Well, isn't a sample from fwh itself by the code is based upon one...
It's running under XP, by it's suppose to work like 8, right?
METHOD Activate() CLASS TMetro
ACTIVATE WINDOW ::oWnd MAXIMIZED ;
ON PAINT ( DrawBitmap( hDC, ::hBitmap, 0, 0, GetSysMetrics( 0 ), GetSysMetrics( 1 ) ),;
::oWnd:Say( 3, 16, ::cTitle,,, ::oFont,, .T. ),;
::oWnd:Say( 40, ScreenWidth()-400, OemToAnsi(CDoW( Date() )),,, ::oFont,.t., .T. ),;
::oWnd:Say( 120, ScreenWidth()-400, AllTrim( Str( Day( Date() ) ) )+" de " + CMonth( Date() ) ,,, ::oFont,.T., .T. ) )
/*;
ON CLICK ::oWnd:End()*/ //Biel
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 144 guests