50 lines
1.1 KiB
Plaintext
50 lines
1.1 KiB
Plaintext
|
{************************************************}
|
||
|
|
{ }
|
||
|
|
{ Turbo Pascal 6.0 }
|
||
|
|
{ Turbo Vision Forms Demo }
|
||
|
|
{ Copyright (c) 1990 by Borland International }
|
||
|
|
{ }
|
||
|
|
{************************************************}
|
||
|
|
|
||
|
|
unit FormCmds;
|
||
|
|
|
||
|
|
{$D-}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses Drivers;
|
||
|
|
|
||
|
|
const
|
||
|
|
|
||
|
|
{ Misc UI commands }
|
||
|
|
cmAboutBox = 2000;
|
||
|
|
cmChangeDir = 2001;
|
||
|
|
cmVideoMode = 2002;
|
||
|
|
cmDosShell = 2003;
|
||
|
|
|
||
|
|
{ List & form-oriented commands }
|
||
|
|
{ (Cannot be disabled) }
|
||
|
|
cmListOpen = 3000;
|
||
|
|
cmListSave = 3001;
|
||
|
|
cmFormEdit = 3002;
|
||
|
|
cmFormNew = 3003;
|
||
|
|
cmFormSave = 3004;
|
||
|
|
cmFormDel = 3005;
|
||
|
|
|
||
|
|
{ Broadcast commands }
|
||
|
|
cmTopForm = 3050;
|
||
|
|
cmRegisterForm = 3051;
|
||
|
|
cmEditingForm = 3052;
|
||
|
|
cmCanCloseForm = 3053;
|
||
|
|
cmCloseForm = 3054;
|
||
|
|
cmTopList = 3055;
|
||
|
|
cmEditingFile = 3056;
|
||
|
|
|
||
|
|
{ History list IDs }
|
||
|
|
hlChangeDir = 1;
|
||
|
|
hlOpenListDlg = 2;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
end.
|