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 (19.19 KiB) Viewed 5118 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
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 (14.91 KiB) Viewed 5070 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
Code: Select all
DEFINE TAB tabTest ;
AT 10,10 ;
WIDTH frmTabsTest.WIDTH - 30 ;
HEIGHT frmTabsTest.HEIGHT - 50;
MULTILINE
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 (5.04 KiB) Viewed 5013 times
Re: Cascading tab pages
Posted: Sat Mar 17, 2018 1:09 am
by esgici
Thanks to all helper: Edward, Dragan, Grigory and Serge
It's time to retire for me
- TAB Cascading (MULTILINE) sample.JPG (23.53 KiB) Viewed 4967 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
Re: Cascading tab pages
Posted: Sat Mar 17, 2018 4:29 am
by bpd2000