Page 1 of 2

Cascading tab pages

Posted: Fri Mar 16, 2018 3:41 am
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 2198 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

Re: Cascading tab pages

Posted: Fri Mar 16, 2018 7:46 am
by dragancesu

Code: Select all

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

Re: Cascading tab pages

Posted: Fri Mar 16, 2018 8:06 am
by edk

Re: Cascading tab pages

Posted: Fri Mar 16, 2018 11:44 am
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 2150 times
Windows 7 Ult; HMG 3.4.4

TIA

Re: Cascading tab pages

Posted: Fri Mar 16, 2018 12:45 pm
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-)

Re: Cascading tab pages

Posted: Fri Mar 16, 2018 1:44 pm
by dragancesu
By the way, Dragan, Edward and Serge; did you tried ?
Look TAB WIDTH parameter (600), your is bigger then window width (300)

Re: Cascading tab pages

Posted: Fri Mar 16, 2018 2:15 pm
by serge_girard
Esgici,

Not yet!

Serge

Re: Cascading tab pages

Posted: Fri Mar 16, 2018 4:48 pm
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 2093 times

Re: Cascading tab pages

Posted: Sat Mar 17, 2018 1:09 am
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 2047 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

Re: Cascading tab pages

Posted: Sat Mar 17, 2018 4:29 am
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