FiveTech Support Forums

Hello,

I noticed testing TOUCH.prg from /Samples

DEFINE METROPANEL oMetro OF oWnd TITLE "Finances" ;
COLOR CLR_WHITE, CLR_BLUE

oMetro:lDesignMode := .T.
oMetro:nMetroTop = 250
oMetro:nMetroMargin = 100
oMetro:nBtnSize = 110
oMetro:nSliderTop = 170

DEFINE METROBUTTON oBtn OF oMetro LARGE ;
GROUP 2 ;
COLOR CLR_BLUE, CLR_HGREEN ;
CAPTION "sample menu" ;
ALIGN "BOTTOMCENTER" ;
BODYTEXT "This is;Multi-line;sample menu" ;
MENU Touchmenu1(ometro)

----------- all values of oMenu are used on oMetro as well !!! -----------

STATIC function touchmenu1(ometro)
LOCAL OBTN
IF oMenu == nil

DEFINE METROPANEL oMenu OF oWnd TITLE "Menus....." COLOR CLR_WHITE, CLR_GREEN

oMenu:lDesignMode := .T.
oMenu:nMetroTop = 250
oMenu:nMetroMargin = 300
oMenu:nBtnSize = 50
oMenu:nSliderTop = 270
...
...

is it possible, to define different sizes for oMetro and oMenu ?

best regards
Uwe

Mr. Rao,

thank You very much for Your help.

The logic is working fine now and gives me the basics, to add the dialogs

I noticed a problem on EXIT
ACTION oMetro:End()
The buttons are not working anymore the second time.

Better using :
ACTION WINEXEC( "RESTART MYEXEFILE.exe " + Str( oWnd:hWnd ), 0 )
RELAUNCHING the program with Daniel's C-function !!!

viewtopic.php?f=3&t=20477&p=109206&hilit=restart#p108559

best regards
Uwe