FiveTech Support Forums

Antonio

there is a problem in tcalenda.prg , you cann see it in TESTCAL2.PRG
If you do a double click (quicky ) on a day of previous month , you have :

Application
===========
Path and name: C:\fwh_09\samples\testcal2.exe (32 bits)
Size: 1,840,128 bytes
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 9445)
FiveWin Version: FWHX 12.06
Windows version: 5.1, Build 2600 Service Pack 3

Time from start: 0 hours 0 mins 1 secs
Error occurred at: 05/12/2012, 10:58:06
Error description: Error BASE/1082 Argument error: -
Args:
[ 1] = U
[ 2] = N 52

The problem is in lButtonUP Line 614
IF IsOverDay( ::hWnd, nRow, nCol ) .AND. Abs( ::nRowDbl - nRow ) <= HEIGHTDBLCLICK .AND. Abs( ::nColDbl - nCol ) <= WIDTHDBLCLICK

I solve with
IF HB_IsNumeric( ::nRowDbl) .AND. IsOverDay( ::hWnd, nRow, nCol ) .AND. Abs( ::nRowDbl - nRow ) <= HEIGHTDBLCLICK .AND. Abs( ::nColDbl - nCol ) <= WIDTHDBLCLICK


Regards Maurizio
www.nipeservice.com

Maurizio,

Implemented this way, thanks!: