Cascading tab pages

Creative ideas/suggestions for HMG

Moderator: Rathinagiri

User avatar
esgici
Posts: 4533
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 409 times
Been thanked: 116 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 3204 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: 806
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia
Has thanked: 30 times
Been thanked: 230 times

Post by dragancesu »

Code: Select all

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

edk
Posts: 586
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland
Has thanked: 148 times
Been thanked: 515 times

Post by edk »


User avatar
esgici
Posts: 4533
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 409 times
Been thanked: 116 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 3156 times
Windows 7 Ult; HMG 3.4.4

TIA
Viva INTERNATIONAL HMG :D

User avatar
gfilatov
Posts: 756
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Has thanked: 30 times
Been thanked: 392 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: 806
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia
Has thanked: 30 times
Been thanked: 230 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: 2559
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Has thanked: 847 times
Been thanked: 160 times
Contact:

Post by serge_girard »

Esgici,

Not yet!

Serge

edk
Posts: 586
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland
Has thanked: 148 times
Been thanked: 515 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 3099 times

User avatar
esgici
Posts: 4533
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 409 times
Been thanked: 116 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 3053 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: 1170
Joined: Sat Sep 10, 2011 4:07 am
Location: India
Has thanked: 256 times
Been thanked: 145 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