Category : BASIC Source Code
Archive   : CZLIS110.ZIP
Filename : DEMO.BAS

DEFINT A-Z

'$FORM frmCzList
'$FORM Demodir
'$FORM General

' CzList Internal functions. These functions have to be declared if you
' want to use them.
DECLARE FUNCTION CzGetWhatKindMem% ()
DECLARE FUNCTION CzItemsTagged% ()
DECLARE FUNCTION CzAllowTagging% (YesNo%)
DECLARE FUNCTION CzKeybTagScrolling% (YesNo%)
DECLARE FUNCTION CzMouTagScrolling% (YesNo%)
DECLARE FUNCTION CzSetVirtualPath% (PathToSet$)

SUB FChkAllowTag (frmCzList AS FORM)

IF frmCzList.chkAllowTag.Value = 1 THEN
Result = CzAllowTagging(0)
Result = CzKeybTagScrolling(0)
Result = CzMouTagScrolling(0)
frmCzList.chkKeybTag.Enabled = -1
frmCzList.chkMouseTag.Enabled = -1
frmCzList.chkKeybTag.Value = 1
frmCzList.chkMouseTag.Value = 1
ELSE
Result = CzAllowTagging(1)
Result = CzKeybTagScrolling(1)
Result = CzMouTagScrolling(1)
frmCzList.chkKeybTag.Enabled = 0
frmCzList.chkMouseTag.Enabled = 0
END IF

END SUB