hmg.3.4.3
Based on the example Grid_CheckBoxes did Grid connected with the base dbf and I wanted to use CheckBoxEnabled but it did not work. The first column expands and makes room for the CheckBox but she does not, does not work either event handler ON CHECKBOXCLICKED. Did I do something wrong, or is it impossible for a grid connected with dbf.
Code: Select all
#include "hmg.ch"
Function Main
use koszty
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 800 ;
HEIGHT 600 ;
TITLE "Demo: GRID CheckBox" ;
MAIN
@ 50,10 GRID Grid_1 WIDTH 750 HEIGHT 350 HEADERS {'Last Name', 'First Name'} ;
WIDTHS {140, 140} ROWSOURCE 'koszty' COLUMNFIELDS {'SYMB_KONT','NAZWA'} VALUE {1,1} CELLNAVIGATION ;
ON CHECKBOXCLICKED MsgInfo ({"Row: ", This.CellRowClicked, " is checked: ", Form_1.Grid_1.CheckBoxItem (This.CellRowClicked)}, "On CheckBoxClicked")
@ 450, 155 BUTTON Button_1 CAPTION "CheckBoxEnabled ON/OFF" ACTION wlacz() WIDTH 200
@ 450, 555 BUTTON Button_2 CAPTION "Check List" ACTION GetListCheckBox()
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
procedure wlacz()
if !Form_1.Grid_1.CheckBoxEnabled
Form_1.Grid_1.CheckBoxEnabled:=.t.
else
Form_1.Grid_1.CheckBoxEnabled:=.f.
endif
return
PROCEDURE GetListCheckBox
Local i, cList := ""
IF Form_1.Grid_1.CheckBoxEnabled == .T.
FOR i = 1 TO Form_1.Grid_1.ItemCount
IF Form_1.Grid_1.CheckBoxItem ( i ) == .T.
cList := cList + Form_1.Grid_1.CellEx (i, 1) +", "+ Form_1.Grid_1.CellEx (i, 2) + HB_OsNewLine()
ENDIF
NEXT
IF EMPTY (cList)
cList := "Empty List"
ENDIF
MsgInfo (cList, "Check List")
ELSE
MsgInfo ("CheckBoxEnabled is FALSE")
ENDIF
RETURN
I looked online but did not find anything similar.
I tried to run the debugger joining the project h_controlmisc.prg to trace where the problem is but when you start getting an error:
Code: Select all
HMG Errorlog File
------------------------------------
Date:05/11/16 Time: 19:26:56
Error BASE/1070 Argument error: ==
Called from EVENTS(528)
Called from INITWINDOW(0)
Called from _DEFINEWINDOW(4293)
Called from HMG_DEBUGGERWAITMESSAGE(1513)
Called from PROCINITGUIDEBUGGER(151)
Called from (b)HMGDEBUGGER(245)
Called from (b)HMGDEBUGGER(253)
Called from HMGDEBUGGER:GUICREATEFORMDEBUGGER(0)
Called from HMGDEBUGGER:ACTIVATE(276)
Called from __DBGENTRY(114)
Called from _HMG_PRINTER_INITUSERMESSAGES(6106)
Called from INITMESSAGES(915)
Called from INIT(794)
Called from ERRORSYS(67)
Called from __HBVMINIT(0)
------------------------------------
Piotr
Google translation