i save in c:\hmg.3.4.4\SOURCE\h_init.prg
Code: Select all
* _HMG_SYSDATA [ 191 ] -> _HMG_MouseRow
* _HMG_SYSDATA [ 192 ] -> _HMG_MouseCol
* _HMG_SYSDATA [ 193 ] -> _HMG_MouseState
Code: Select all
case nMsg == WM_LBUTTONDOWN
_HMG_SYSDATA [ 193 ] := 1
case nMsg == WM_LBUTTONUP
_HMG_SYSDATA [ 193 ] := 0