home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
TPBOOK
/
TCMDSET.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-08-07
|
517b
|
22 lines
{ TCMDSET.PAS }
{ Example using TCommandSet, from TVSHELL8.PAS }
var
CommandsOn : TCommandSet;
CommandsOff : TCommandSet;
...
CommandsOn := [cmUseDOS, cmDelete];
CommandsOff := CommandsOn;
if (SetUpData.ProgOptions and 2) = 2 then
CommandsOff := CommandsOff - [cmUseDOS];
if (SetUpData.ProgOptions and 4) = 4 then
CommandsOff := CommandsOff - [cmDelete];
CommandsOn := CommandsOn - CommandsOff;
DisableCommands( CommandsOff );
EnableCommands( CommandsOn );