Adding GUI to xHarbour/Harbour via HMG [Part I]

I started with FAS4XHB, the migrated FAS4DOS mentioned in my earlier articles as follows :


After Adding MENU structure using HMG

Having downloaded the Harbour MiniGui Harbour Distribution and joining the HMG Forum, I played with the IDE. Nice.. but on the advice of Esgici, I started to code by hand this morning and this is the result of my handiwork :-



After adding a Status Bar showing Date & Time..

DEFINE STATUSBAR
CLOCK
DATE
END STATUSBAR



After adding a Tool Bar with some high quality bitmaps :-

DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 32,24 BORDER

BUTTON Button_Exit ;
CAPTION 'E&xit' ;
PICTURE 'exit.bmp' ;
ACTION Exit()
SEPARATOR

BUTTON Button_GL ;
CAPTION '&General Ledger' ;
PICTURE 'accounts.bmp' ;
ACTION ViewGL()

BUTTON Button_AR ;
CAPTION 'Accounts &Receivable' ;
PICTURE 'table.bmp' ;
ACTION ViewAR()

BUTTON Button_AP ;
CAPTION 'Accounts &Payable' ;
PICTURE 'view.bmp' ;
ACTION ViewAP()
SEPARATOR

BUTTON Button_Reindex ;
CAPTION '&Reindex All' ;
PICTURE 'task-2.bmp' ;
ACTION ReindexAll()
END TOOLBAR


Now, it looks pretty good for a Clipper for Windows (Harbour+HMG) executable !