Cascading tab pages

Creative ideas/suggestions for HMG

Moderator: Rathinagiri

User avatar
esgici
Posts: 4523
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 400 times
Been thanked: 112 times
Contact:

Cascading tab pages

Post by esgici »

Hi All

May be a way to cascade tab control's pages button ?

Like HMG IDE Project Browser window:
HMG IDE Project Browser Form.JPG
HMG IDE Project Browser Form.JPG (19.19 KiB) Viewed 2644 times

Code: Select all

/*

    Cascading tab pages attempt 
	
*/

#include <hmg.ch>

PROC Main() 

	DEFINE WINDOW frmTabsTest ;
		AT 0,0 ;
		WIDTH 300 HEIGHT 300 ;
		TITLE 'Cascading Tab Pages' ;
		MAIN 

		DEFINE TAB tabTest ;
			AT 10,10 ;
			WIDTH 600 ;
			HEIGHT 400
	
			PAGE 'Modules' 
			END PAGE
			
			PAGE 'Forms' 
			END PAGE
			
			PAGE 'Resources' 
			END PAGE
			
			PAGE 'Reports' 
			END PAGE
			
			PAGE 'Configuration' 		
			END PAGE
			
			PAGE 'Includes' 
			END PAGE
			
			PAGE 'Tables' 
			END PAGE
			
		END TAB
		
	END WINDOW
	
    frmTabsTest.Center()
    frmTabsTest.Activate()

	
RETU // Main()

Thanks in advance :D
Viva INTERNATIONAL HMG :D

User avatar
dragancesu
Posts: 750
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia
Has thanked: 27 times
Been thanked: 179 times

Post by dragancesu »

Code: Select all

		DEFINE TAB tabTest ;
			AT 10,10 ;
			WIDTH 280 ;
			HEIGHT 400 ;
			MULTILINE 
	

edk
Posts: 545
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland
Has thanked: 144 times
Been thanked: 474 times

Post by edk »


User avatar
esgici
Posts: 4523
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 400 times
Been thanked: 112 times
Contact:

Post by esgici »

Thanks; but noting changed :(

Code: Select all

/*

    Cascading tab pages attempt 
	
*/

#include <hmg.ch>

PROC Main() 

	DEFINE WINDOW frmTabsTest ;
		AT 0,0 ;
		WIDTH 300 HEIGHT 300 ;
		TITLE 'Cascading Tab Pages' ;
		MAIN 

		DEFINE TAB tabTest ;
			AT 10,10 ;
			WIDTH 600 ;
			HEIGHT 400;
			MULTILINE
	
			PAGE 'Modules' 
			END PAGE
			
			PAGE 'Forms' 
			END PAGE
			
			PAGE 'Resources' 
			END PAGE
			
			PAGE 'Reports' 
			END PAGE
			
			PAGE 'Configuration' 		
			END PAGE
			
			PAGE 'Includes' 
			END PAGE
			
			PAGE 'Tables' 
			END PAGE
			
		END TAB
		
	END WINDOW
	
    frmTabsTest.Center()
    frmTabsTest.Activate()

	
RETU // Main()

By the way, Dragan, Edward and Serge; did you tried ?
multiline.JPG
multiline.JPG (14.91 KiB) Viewed 2596 times
Windows 7 Ult; HMG 3.4.4

TIA
Viva INTERNATIONAL HMG :D

User avatar
gfilatov
Posts: 713
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Has thanked: 26 times
Been thanked: 313 times
Contact:

Post by gfilatov »

esgici wrote:
Fri Mar 16, 2018 11:44 am
Thanks; but noting changed :(
Windows 7 Ult; HMG 3.4.4

TIA
Hi Esgici,

Try to define your TAB as below :arrow:

Code: Select all

		DEFINE TAB tabTest ;
			AT 10,10 ;
			WIDTH frmTabsTest.WIDTH - 30 ;
			HEIGHT frmTabsTest.HEIGHT - 50;
			MULTILINE
8-)
Kind Regards,
Grigory Filatov

"Everything should be made as simple as possible, but no simpler." Albert Einstein

User avatar
dragancesu
Posts: 750
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia
Has thanked: 27 times
Been thanked: 179 times

Post by dragancesu »

By the way, Dragan, Edward and Serge; did you tried ?
Look TAB WIDTH parameter (600), your is bigger then window width (300)

User avatar
serge_girard
Posts: 2416
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Has thanked: 728 times
Been thanked: 133 times
Contact:

Post by serge_girard »

Esgici,

Not yet!

Serge

edk
Posts: 545
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland
Has thanked: 144 times
Been thanked: 474 times

Post by edk »

esgici wrote:
Fri Mar 16, 2018 11:44 am
By the way, Dragan, Edward and Serge; did you tried ?
Esgici.
Yes, I've tried it successfully using IDE.
Bez tytułu.png
Bez tytułu.png (5.04 KiB) Viewed 2539 times

User avatar
esgici
Posts: 4523
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 400 times
Been thanked: 112 times
Contact:

Post by esgici »

Thanks to all helper: Edward, Dragan, Grigory and Serge :arrow:

It's time to retire for me :oops: :oops: :oops:
TAB Cascading (MULTILINE) sample.JPG
TAB Cascading (MULTILINE) sample.JPG (23.53 KiB) Viewed 2493 times

Code: Select all


/*
    Cascading tab pages ( MULTILINE) sample 

    Thanks to HMG forum friends : Edward, Dragan, Grigory and Serge 

    Esgici 
	
	20180317
	
	http://www.hmgforum.com/viewtopic.php?f=14&t=5586
	
*/

#include <hmg.ch>

PROC Main() 

	DEFINE WINDOW frmTabsTest ;
		AT 0,0 ;
		WIDTH 335 HEIGHT 280 ;
		TITLE 'TAB Cascading (MULTILINE) sample' ;
		MAIN 

		DEFINE TAB tabTest ;
			AT 10,10 ;
			WIDTH 300 ;
			HEIGHT 220;
			MULTILINE
	
			PAGE 'Modules' 
			   @ 100, 100 LABEL lblModules VALUE "Modules"
			END PAGE
			
			PAGE 'Forms' 
			   @ 100, 100 LABEL lblForms VALUE "Forms"
			END PAGE
			
			PAGE 'Resources' 
			   @ 100, 100 LABEL lblResources VALUE "Resources"
			END PAGE
			
			PAGE 'Reports' 
			   @ 100, 100 LABEL lblReports VALUE "Reports"
			END PAGE
			
			PAGE 'Configuration' 		
			   @ 100, 100 LABEL lblConfiguration VALUE "Configuration"
			END PAGE
			
			PAGE 'Includes' 
			   @ 100, 100 LABEL lblIncludes VALUE "Includes"
			END PAGE
			
			PAGE 'Tables' 
			   @ 100, 100 LABEL lblTables VALUE "Tables"
			END PAGE
			
		END TAB
		
	END WINDOW
	
    frmTabsTest.Center()
    frmTabsTest.Activate()

	
RETU // Main()

Viva HMG and HMG friendship :D :D :D
Viva INTERNATIONAL HMG :D

User avatar
bpd2000
Posts: 1125
Joined: Sat Sep 10, 2011 4:07 am
Location: India
Has thanked: 224 times
Been thanked: 117 times

Post by bpd2000 »

esgici wrote:
Sat Mar 17, 2018 1:09 am
It's time to retire for me :oops: :oops: :oops:

Viva HMG and HMG friendship :D :D :D
Hi Esgici, Old is GOLD
https://www.youtube.com/watch?v=FoYeZpMfStw
BPD
Convert Dream into Reality through HMG

Post Reply