May be a way to cascade tab control's pages button ?
Like HMG IDE Project Browser window:
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()