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

In my previous article on Adding GUI to xHarbour/Harbour via HMG [Part I], I have shown you that you can easily hand code, Windows Menu, ToolBar and StatusBar and the result is as below :-


Code Snippet
ToolBar
DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 25,25 FLAT BORDER
BUTTON Button_Exit ;
PICTURE 'exit.bmp' ;
TOOLTIP 'Exit this Application' ;
AUTOSIZE;
ACTION MsgInfo('Exit !');
SEPARATOR

BUTTON Button_ReindexAll ;
PICTURE 'task.bmp' ;
TOOLTIP 'Reindex All Files' ;
AUTOSIZE;
ACTION Reindex_All()

BUTTON Button_Calculator ;
PICTURE 'calculator.bmp' ;
TOOLTIP 'Windows Calculator' ;
AUTOSIZE;
ACTION ExecFile("C:\Windows\System32\calc.exe") ;
SEPARATOR
END TOOLBAR

Status Bar
DEFINE STATUSBAR
STATUSITEM "FAS4HMG" WIDTH 100
KEYBOARD
DATE
CLOCK
END STATUSBAR



Code Snippet
Menus
POPUP '&File'
POPUP '&Define Help Windows' name FileDefine
ITEM 'Define Fiscal Periods' ACTION EditExt('HLPFP')
ITEM 'Define Forex Table' ACTION EditHlpForex()
END POPUP
ITEM 'Exit' ACTION FileExit() IMAGE 'Exit.Bmp'

END POPUP

POPUP 'General Ledger'
ITEM '&Chart of Accounts' ACTION (BrowseGlac())
ITEM 'Report Writer' ACTION EditExt('REPTGL')
POPUP 'Standard Reports' name GLRept
ITEM 'Chart of Accounts' ACTION PrintViewChartofAccounts()
END POPUP
SEPARATOR

ITEM 'Reindex' ACTION Reind_GL()
ITEM 'Edit Fields Description' ACTION EditExt('GLDICT')
SEPARATOR
ITEM 'Rebuild GL' ACTION RebuildGL()
END POPUP


How about calling an external EXE ?

Code Snippet

EXECUTE FILE "C:\Windows\System32\calc.exe"

Using HMG's MsgYesNo() to replace Clipper Alert()

Code Snippet
if MsgYesNo('Reindex All Files ?','Confirm',{'Yes','No'})
ReindexAll()
endif

What about Reindexing with Progress Bar ?


What have I done to 'GUIFY ' FAS4XHB to FAS4HMG thus far ?

a) Completed Main Form Interface via MENU, TOOLBAR & STATUSBAR
Nb. With this, I got rid of the Clipper Menu Interface

b) Use EDIT/EDIT EXTENDED to replace my DBEDIT()-based data screens
Nb. With this, I got rid of the DBEDIT() Interface

c) Use PROGRESSBAR to allow reindexing with Progress Bar
Nb. Replaced my text-based Progress Bar

d) Use EXECUTE FILE 'KE.EXE' PARAMETERS
Nb. This means that I do not need to recode all my reports !

What resources have I used thus far ?

a) xHarbour compatible codes, see Migrating from 5.2e to xHarbour Part III

b) HMG distribution comprising Harbour+HMG, see What is HMG ?

d) HMGIDE, a 2-way IDE (only if you created forms from the IDE)

e) Speedy response by HMG Forum particularly Escigi, Rathinagiri, Grigory Filatov and not forgetting my newly-found friend Sudip Bhattacharyya from Calcutta, West bengal , India :-)

Where do I go from Here ?

a) Master-Details Forms

b) Prettying up the Interface