#include "fivewin.ch"
function Main()
local dDate := Date()
local oDlg, oFont
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-20
DEFINE DIALOG oDlg SIZE 600,600 PIXEL TRUEPIXEL FONT oFont
@ 40, 200 GET dDate SIZE 200,30 PIXEL OF oDlg ;
ACTION XbrGetDate( Self, "Select Date", {^ 2019/05/15 }, {^ 2019/05/30 } ) ;
BITMAP "c:\fwh\bitmaps\32x32\calendar.bmp"
@ 200,40 BUTTON "OK" SIZE 100,30 PIXEL OF oDlg ACTION MsgInfo( dDate )
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 45 guests