Cascading tab pages

Creative ideas/suggestions for HMG

Moderator: Rathinagiri

User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
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 4967 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: 920
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia

Re: Cascading tab pages

Post by dragancesu »

Code: Select all

		DEFINE TAB tabTest ;
			AT 10,10 ;
			WIDTH 280 ;
			HEIGHT 400 ;
			MULTILINE 
	
edk
Posts: 909
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland

Re: Cascading tab pages

Post by edk »

User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: Cascading tab pages

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 4919 times
Windows 7 Ult; HMG 3.4.4

TIA
Viva INTERNATIONAL HMG :D
User avatar
gfilatov
Posts: 1060
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Contact:

Re: Cascading tab pages

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: 920
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia

Re: Cascading tab pages

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: 3161
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Contact:

Re: Cascading tab pages

Post by serge_girard »

Esgici,

Not yet!

Serge
There's nothing you can do that can't be done...
edk
Posts: 909
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland

Re: Cascading tab pages

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 4862 times
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: Cascading tab pages

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 4816 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: 1207
Joined: Sat Sep 10, 2011 4:07 am
Location: India

Re: Cascading tab pages

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