Antonio,
no changes needed, just a window adjustment ( NO window maximized )
If the slider is needed, just 1 line has to be changed
METHOD Paint() CLASS TMetroPanel
oRect:nTop := oRect:nBottom - SCRLB_HEIGHT
adjusted to
oRect:nTop := oRect:nBottom - SCRLB_HEIGHT - 40
The defined mainwindow
DEFINE WINDOW oMWnd TITLE cTitle [color=#0000FF:2bik3fz8]FROM 0, 0 TO ScreenHeight() + 20, ScreenWidth() PIXEL [/color:2bik3fz8];
STYLE nOr( WS_POPUP );
COLOR CLR_WHITE, CLR_GREEN
oMetro := MakeMetroPanel( oMWnd )
DEFINE BRUSH oBrush FILE c_Path1 + "earth.bmp" RESIZE
oMetro:SetBrush( oBrush )
oBrush:End()
oMetro:bRClicked := { |r,c,f,o| msginfo( 'HWND' + NUMTOHEX( oMWnd:hWnd, 8 ) ) }
ACTIVATE WINDOW oMWnd ON INIT oMetro:Show()
[img:2bik3fz8]http://www.pflegeplus.com/IMAGES/Metro3.jpg[/img:2bik3fz8]
regards
Uwe
↧