uconst.pas

delphi 写的delphi的程序 Handel is a free, standalone development tool created with Delphi 3 that enable

unit Uconst;
// declare global variables and constants

interface

uses Classes, utype, IniFiles,ComCtrls, mwCustomEdit;

const

   IniName='Handel.ini';
   CodeTemplateName = 'delphi32.dci';
   CodeCompletionName = 'object.dat';
   TempFile = '$$temp$$.~tm';
   TempForm = '$$temp$$.dfm';
   CompileText = 'compile.~tx';
   TempProject='project1.dpr';
   Ident='  ';
   
   scNoComponent=0;
   // Standard Page
   scMainMenu=1;
   scPopupMenu=2;
   scLabel=3;
   scEdit=4;
   scMemo=5;
   scButton=6;
   scCheckBox=7;
   scRadioButton=8;
   scListBox=9;
   scComboBox=10;
   scScrollBar=11;
   scGroupBox=12;
   scRadioGroup=13;
   scPanel=14;

   // Additional Page
   scBitBtn=15;
   scSpeedButton=16;
   scMaskEdit=17;
   scStringGrid=18;
   scDrawGrid=19;
   scImage=20;
   scShape=21;
   scBevel=22;
   scScrollBox=23;

   // Win95 Page
   scTabControl=31;
   scPageControl=32;
   scTreeView=33;
   scListView=34;
   scImageList=35;
   scHeaderControl=36;
   scRichEdit=37;
   scStatusBar=38;
   scTrackBar=39;
   scProgressBar=40;
   scUpDown=41;
   scHotKey=42;

   scAnimate=43;
   scToolBar=44;
   scCoolBar=45;

   // Data Access Page
   scDataSource=71;
   scTable=72;
   scQuery=73;
   scStoredProc=74;
   scDatabase=75;
   scSession=76;
   scBatchMove=77;
   scUpdateSQL=78;

   // Data Controls Page
   scDBGrid=91;
   scDBNavigator=92;
   scDBText=93;
   scDBEdit=94;
   scDBMemo=95;
   scDBImage=96;
   scDBListBox=97;
   scDBComboBox=98;
   scDBCheckBox=99;
   scDBRadioGroup=100;
   scDBLookupListBox=101;
   scDBLookupComboBox=102;
   // Dialogs Page
   scOpenDialog=151;
   scSaveDialog=152;
   scFontDialog=153;
   scColorDialog=154;
   scPrintDialog=155;
   scPrinterSetupDialog=156;
   scFindDialog=157;
   scReplaceDialog=158;
   // System Page
   scTimer=51;
   scPaintBox=52;
   scFileListBox=53;
   scDirectoryListBox=54;
   scDriveComboBox=55;
   scFilterComboBox=56;
   scMediaPlayer=57;
   scOleContainer=58;
   // Quick Report Page
   scQuickReport=121;
   scQRBand=122;
   scQRGroup=123;
   scQRDetailLink=124;
   scQRLabel=125;
   scQRMemo=126;
   scQRDBText=127;
   scQRDBCalc=128;
   scQRSysData=129;
   scQRShape=130;
   scQRPreview=131;

   // Samples Page
   scIBEventAlerter=161;
   scGauge=162;
   scColorGrid=163;
   scSpinButton=164;
   scSpinEdit=165;
   scDirectoryOutline=166;
   scCalendar=167;
   Keywords : array[1..99] of string =
            ('ABSOLUTE', 'ABSTRACT', 'AND', 'ARRAY', 'AS', 'ASM', 'ASSEMBLER',
             'AUTOMATED', 'BEGIN', 'CASE', 'CDECL', 'CLASS', 'CONST', 'CONSTRUCTOR',
             'DEFAULT', 'DESTRUCTOR', 'DISPID', 'DISPINTERFACE', 'DIV', 'DO',
             'DOWNTO', 'DYNAMIC', 'ELSE', 'END', 'EXCEPT', 'EXPORT', 'EXPORTS',
             'EXTERNAL', 'FAR', 'FILE', 'FINALIZATION', 'FINALLY', 'FOR', 'FORWARD',
             'FUNCTION', 'GOTO', 'IF', 'IMPLEMENTATION', 'IN', 'INDEX', 'INHERITED',
             'INITIALIZATION', 'INLINE', 'INTERFACE', 'IS', 'LABEL', 'LIBRARY',
             'MESSAGE', 'MOD', 'NAME', 'NEAR', 'NIL', 'NODEFAULT', 'NOT', 'OBJECT',
             'OF', 'OR', 'OUT', 'OVERRIDE', 'PACKED', 'PASCAL', 'PRIVATE', 'PROCEDURE',
             'PROGRAM', 'PROPERTY', 'PROTECTED', 'PUBLIC', 'PUBLISHED', 'RAISE',
             'READ', 'READONLY', 'RECORD', 'REGISTER', 'REPEAT', 'RESIDENT',
             'RESOURCESTRING', 'SAFECALL', 'SET', 'SHL', 'SHR', 'STDCALL', 'STORED',
             'STRING', 'STRINGRESOURCE', 'THEN', 'THREADVAR', 'TO', 'TRY', 'TYPE',
             'UNIT', 'UNTIL', 'USES', 'VAR', 'VIRTUAL', 'WHILE', 'WITH', 'WRITE',
             'WRITEONLY', 'XOR');

{$Include handel.inc}

var
   ProjectPath:string;
   FilePath:string;
   TempDir:string;
   CompilerPath,CompilerName:string;
   Desktop:string;
   IniFile:TIniFile;
   ProxyDesigner :TProxyDesigner;
   SelectedComponentName:string;
   ProjectInfo:TProjectInfo;
   ActivePasEditor: TmwCustomEdit;
   CodeCompletionList: TStringList;

implementation

end.