home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 17
/
CD_ASCQ_17_101194.iso
/
dos
/
prg
/
czlist
/
demo.bas
< prev
next >
Wrap
BASIC Source File
|
1994-07-10
|
953b
|
36 lines
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