Cascading tab pages

Creative ideas/suggestions for HMG

Moderator: Rathinagiri

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

Cascading tab pages

Post by esgici » Fri Mar 16, 2018 3:41 am

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 471 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: 527
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia
Has thanked: 10 times
Been thanked: 90 times

Post by dragancesu » Fri Mar 16, 2018 7:46 am

Code: Select all

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

edk
Posts: 285
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland
Has thanked: 76 times
Been thanked: 225 times

Post by edk » Fri Mar 16, 2018 8:06 am


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

Post by esgici » Fri Mar 16, 2018 11:44 am

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

TIA
Viva INTERNATIONAL HMG :D

User avatar
gfilatov
Posts: 539
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Has thanked: 9 times
Been thanked: 110 times
Contact:

Post by gfilatov » Fri Mar 16, 2018 12:45 pm

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: 527
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia
Has thanked: 10 times
Been thanked: 90 times

Post by dragancesu » Fri Mar 16, 2018 1:44 pm

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: 2030
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Has thanked: 380 times
Been thanked: 87 times
Contact:

Post by serge_girard » Fri Mar 16, 2018 2:15 pm

Esgici,

Not yet!

Serge

edk
Posts: 285
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland
Has thanked: 76 times
Been thanked: 225 times

Post by edk » Fri Mar 16, 2018 4:48 pm

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 365 times

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

Post by esgici » Sat Mar 17, 2018 1:09 am

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 319 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: 999
Joined: Sat Sep 10, 2011 4:07 am
Location: India
Has thanked: 150 times
Been thanked: 65 times

Post by bpd2000 » Sat Mar 17, 2018 4:29 am

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