uconst.pas

一个模拟Delphi的快速开发环境RAD

unit Uconst;
// 橇肺璃飘俊辑 荤侩窍绰 傈开 函荐客 惑荐 沥狼

interface

uses utype,IniFiles,ComCtrls;

const

   IniName='Handel.ini';
   TempFile = '$$temp$$.~tm';
   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;

var
   ProjectPath:string;
   FilePath:string;
   TempDir:string;
   Complier:string;
   Desktop:string;
   IniFile:TIniFile;
   ProxyDesigner :TProxyDesigner;
   SelectedComponentIndex:integer;
   ProjectInfo:TProjectInfo;
   ActiveRichEdit:TRichEdit;

implementation

end.