mainform.pas

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

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus,ToolIntf, Buttons, ComCtrls, ExtCtrls, StdCtrls,utype, TypInfo,Proxies
  , Mask,FileCtrl, Grids, DB, DBTables,DBGrids, DBCtrls, DBCGrids,MPlayer, Gauges,
  Calendar, Outline, DirOutln, Spin, ColorGrd, IBCtrls, quickrpt, Qrctrls,
  qrprntr;

type
  TYB_FindScope = (fsGlobal, fsSelected);
  TYB_FindOrigin = (foCursor, foEntire);
  TYB_FindDirection = (fdDown, fdUp);

  TYB_SearchType = record
    FindOption:TSearchTypes;
    Direction:TYB_FindDirection;
    Scope: TYB_FindScope;
    Origin: TYB_FindOrigin;
    ReplaceAll:Boolean;
    PromptOn:Boolean;
  end;

  TFMainForm = class(TForm)
    MainMenu1: TMainMenu;
    FileMenu: TMenuItem;
    FileNewItem: TMenuItem;
    FileNewApplication: TMenuItem;
    FileNewFormItem: TMenuItem;
    FileNewDataModuleItem: TMenuItem;
    FileOpenItem: TMenuItem;
    ReOpen1: TMenuItem;
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabStandard: TTabSheet;
    TabAddtional: TTabSheet;
    TabWin32: TTabSheet;
    TabSystem: TTabSheet;
    sbArrow1: TSpeedButton;
    EditMenu: TMenuItem;
    SearchMenu: TMenuItem;
    N4: TMenuItem;
    ProjectMenu: TMenuItem;
    RunMenu: TMenuItem;
    N7: TMenuItem;
    DatabaseMenu: TMenuItem;
    ToolsMenu: TMenuItem;
    HelpMenu: TMenuItem;
    FileSaveItem: TMenuItem;
    FileSaveAsItem: TMenuItem;
    FileSaveProjectAsItem: TMenuItem;
    FileSaveAllItem: TMenuItem;
    FileCloseItem: TMenuItem;
    FileCloseAllItem: TMenuItem;
    FileUseUnitItem: TMenuItem;
    FileAddItem: TMenuItem;
    FileRemoveItem: TMenuItem;
    FilePrintItem: TMenuItem;
    FileExitItem: TMenuItem;
    EditUndoItem: TMenuItem;
    EditRedoItem: TMenuItem;
    EditCutItem: TMenuItem;
    EditCopyItem: TMenuItem;
    EditPasteItem: TMenuItem;
    EditDeleteItem: TMenuItem;
    EditSelectAllItem: TMenuItem;
    TabDataAccess: TTabSheet;
    TabDataControls: TTabSheet;
    TabQRReport: TTabSheet;
    TabDialog: TTabSheet;
    TabWin31: TTabSheet;
    TabSample: TTabSheet;
    HelpAboutItem: TMenuItem;
    sbArrow2: TSpeedButton;
    sbBitBtn: TSpeedButton;
    sbSpeedButton: TSpeedButton;
    sbMaskEdit: TSpeedButton;
    sbStringGrid: TSpeedButton;
    sbDrawGrid: TSpeedButton;
    sbBevel: TSpeedButton;
    sbScrollBox: TSpeedButton;
    sbShape: TSpeedButton;
    sbImage: TSpeedButton;
    sbArrow3: TSpeedButton;
    sbTabControl: TSpeedButton;
    sbPageControl: TSpeedButton;
    sbImageList: TSpeedButton;
    sbRichEdit: TSpeedButton;
    sbTrackBar: TSpeedButton;
    sbProgressBar: TSpeedButton;
    sbUpDown: TSpeedButton;
    sbTreeView: TSpeedButton;
    sbListView: TSpeedButton;
    sbHeaderControl: TSpeedButton;
    sbStatusBar: TSpeedButton;
    sbArrow8: TSpeedButton;
    sbTimer: TSpeedButton;
    sbPaintBox: TSpeedButton;
    sbMediaPlayer: TSpeedButton;
    sbArrow7: TSpeedButton;
    sbOpenDialog: TSpeedButton;
    sbSaveDialog: TSpeedButton;
    sbFontDialog: TSpeedButton;
    sbColorDialog: TSpeedButton;
    sbPrintDialog: TSpeedButton;
    sbPrinterSetupDialog: TSpeedButton;
    sbFindDialog: TSpeedButton;
    sbReplaceDialog: TSpeedButton;
    sbArrow4: TSpeedButton;
    sbDataSource: TSpeedButton;
    sbTable: TSpeedButton;
    sbQuery: TSpeedButton;
    sbStoredProc: TSpeedButton;
    sbDatabase: TSpeedButton;
    sbSession: TSpeedButton;
    sbBatchMove: TSpeedButton;
    sbUpdateSQL: TSpeedButton;
    sbArrow5: TSpeedButton;
    sbDBGrid: TSpeedButton;
    sbDBNavigator: TSpeedButton;
    sbDBText: TSpeedButton;
    sbDBEdit: TSpeedButton;
    sbDBImage: TSpeedButton;
    sbDBListBox: TSpeedButton;
    sbDBComboBox: TSpeedButton;
    sbDBCheckBox: TSpeedButton;
    sbDBRadioGroup: TSpeedButton;
    sbDBLookupListBox: TSpeedButton;
    sbDBLookupComboBox: TSpeedButton;
    sbArrow6: TSpeedButton;
    sbTabbedNotebook: TSpeedButton;
    sbOutline: TSpeedButton;
    sbNotebook: TSpeedButton;
    sbHeader: TSpeedButton;
    sbOleContainer: TSpeedButton;
    sbDDEClientConv: TSpeedButton;
    sbDdeClientItem: TSpeedButton;
    sbDdeServerConv: TSpeedButton;
    sbDdeServerItem: TSpeedButton;
    sbDBMemo: TSpeedButton;
    SearchFindItem: TMenuItem;
    SearchFinfInFilesItem: TMenuItem;
    SearchReplaceItem: TMenuItem;
    SearchAgainItem: TMenuItem;
    SearchIncrementalItem: TMenuItem;
    SearchGotoItem: TMenuItem;
    BrowseSymbol1: TMenuItem;
    ViewPrjMgrItem: TMenuItem;
    ViewPrjSourceItem: TMenuItem;
    ViewObjInspItem: TMenuItem;
    ViewAlignItem: TMenuItem;
    ViewBrowserItem: TMenuItem;
    ViewCompListItem: TMenuItem;
    ViewWindowListItem: TMenuItem;
    ViewToggleFormItem: TMenuItem;
    ViewUnitItem: TMenuItem;
    ViewFormItem: TMenuItem;
    ViewNewEditorItem: TMenuItem;
    ViewSpeedBarItem: TMenuItem;
    ViewPaletteItem: TMenuItem;
    ProjectAddItem: TMenuItem;
    ProjectRemoveItem: TMenuItem;
    ProjectAddRepositoryItem: TMenuItem;
    ProjectCompileItem: TMenuItem;
    ProjectBuildItem: TMenuItem;
    ProjectSyntaxItem: TMenuItem;
    ProjectInformationItem: TMenuItem;
    ProjectOptionsItem: TMenuItem;
    RunRunItem: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    Reset1: TMenuItem;
    AddWatch1: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    DatabaseExploreItem: TMenuItem;
    DatabaseFormWinzardItem: TMenuItem;
    ToolsOptionsItem: TMenuItem;
    ToolsGalleryItem: TMenuItem;
    ToolsToolsItem: TMenuItem;
    NImageEdit: TMenuItem;
    NDatabaseDestop: TMenuItem;
    sbArrow10: TSpeedButton;
    sbGauge: TSpeedButton;
    sbColorGrid: TSpeedButton;
    sbSpinButton: TSpeedButton;
    sbDirectoryOutline: TSpeedButton;
    sbCalendar: TSpeedButton;
    sbArrow9: TSpeedButton;
    sbQuickRep: TSpeedButton;
    sbQRBand: TSpeedButton;
    sbQRGroup: TSpeedButton;
    sbQRLabel: TSpeedButton;
    sbQRDbText: TSpeedButton;
    sbQRDBCalc: TSpeedButton;
    sbQRSysData: TSpeedButton;
    sbQRShape: TSpeedButton;
    sbQRDetailLink: TSpeedButton;
    sbQRMemo: TSpeedButton;
    sbQRPreview: TSpeedButton;
    SaveDialog1: TSaveDialog;
    N11: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    EditAlignGridItem: TMenuItem;
    EditFrontItem: TMenuItem;
    EditBackItem: TMenuItem;
    EditAlignItem: TMenuItem;
    EditSizeItem: TMenuItem;
    EditScaleItem: TMenuItem;
    EditTabOrderItem: TMenuItem;
    EditCreateOrderItem: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    N88: TMenuItem;
    N89: TMenuItem;
    N90: TMenuItem;
    SpeedBar: TPanel;
    sbOpenProject: TSpeedButton;
    sbSaveAll: TSpeedButton;
    sbAddProject: TSpeedButton;
    sbUnits: TSpeedButton;
    sbForms: TSpeedButton;
    sbRun: TSpeedButton;
    sbPause: TSpeedButton;
    sbOpenFile: TSpeedButton;
    sbSave: TSpeedButton;
    sbRemoveProject: TSpeedButton;
    sbToggleUnit: TSpeedButton;
    sbNewForm: TSpeedButton;
    sbTraceInto: TSpeedButton;
    sbStepOver: TSpeedButton;
    N22: TMenuItem;
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    PopupMenu1: TPopupMenu;
    NHideHint: TMenuItem;
    NHide: TMenuItem;
    NHelp: TMenuItem;
    NProperty: TMenuItem;
    N33: TMenuItem;
    sbHotKey: TSpeedButton;
    sbIBEventAlert: TSpeedButton;
    sbSpinEdit: TSpeedButton;
    sbRight1: TSpeedButton;
    HelpContextItem: TMenuItem;
    sbFileListBox: TSpeedButton;
    sbDirectoryListBox: TSpeedButton;
    sbDriveComboBox: TSpeedButton;
    sbFilterComboBox: TSpeedButton;
    sbLeft1: TSpeedButton;
    sbMainMenu: TSpeedButton;
    sbPopupMenu: TSpeedButton;
    sbLabel: TSpeedButton;
    sbEdit: TSpeedButton;
    sbMemo: TSpeedButton;
    sbButton: TSpeedButton;
    sbCheckBox: TSpeedButton;
    sbRadioButton: TSpeedButton;
    sbListBox: TSpeedButton;
    sbComboBox: TSpeedButton;
    sbScrollBar: TSpeedButton;
    sbGroupBox: TSpeedButton;
    sbRadioGroup: TSpeedButton;
    sbPanel: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure FileExitItemClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure HelpAboutItemClick(Sender: TObject);
    procedure sbButtonClick(Sender: TObject);
    procedure sbOpenFileClick(Sender: TObject);
    procedure sbFormsClick(Sender: TObject);
    procedure sbUnitsClick(Sender: TObject);
    procedure ViewPrjSourceItemClick(Sender: TObject);
    procedure sbOpenProjectClick(Sender: TObject);
    procedure ViewPrjMgrItemClick(Sender: TObject);
    procedure ProjectCompileItemClick(Sender: TObject);
    procedure ProjectBuildItemClick(Sender: TObject);
    procedure RunRunItemClick(Sender: TObject);
    procedure sbMainMenuClick(Sender: TObject);
    procedure EditCopyItemClick(Sender: TObject);
    procedure EditPasteItemClick(Sender: TObject);
    procedure EditCutItemClick(Sender: TObject);
    procedure FileSaveItemClick(Sender: TObject);
    procedure FilePrintItemClick(Sender: TObject);
    procedure EditSelectAllItemClick(Sender: TObject);
    procedure EditUndoItemClick(Sender: TObject);
    procedure SearchGotoItemClick(Sender: TObject);
    procedure ViewObjInspItemClick(Sender: TObject);
    procedure ViewNewEditorItemClick(Sender: TObject);
    procedure ViewSpeedBarItemClick(Sender: TObject);
    procedure ViewPaletteItemClick(Sender: TObject);
    procedure FileNewFormItemClick(Sender: TObject);
    procedure SearchFindItemClick(Sender: TObject);
    procedure FindDialog1Find(Sender: TObject);
    procedure SearchReplaceItemClick(Sender: TObject);
    procedure ReplaceDialog1Replace(Sender: TObject);
    procedure FileNewApplicationClick(Sender: TObject);
    procedure FileCloseAllItemClick(Sender: TObject);
    procedure sbSaveAllClick(Sender: TObject);
    procedure sbToggleUnitClick(Sender: TObject);
    procedure NHideClick(Sender: TObject);
    procedure ToolsOptionsItemClick(Sender: TObject);
    procedure NImageEditClick(Sender: TObject);
    procedure NDatabaseDestopClick(Sender: TObject);
    procedure ProjectOptionsItemClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ProjectAddItemClick(Sender: TObject);
    procedure ProjectRemoveItemClick(Sender: TObject);
    procedure ViewWindowListItemClick(Sender: TObject);
    procedure ViewCompListItemClick(Sender: TObject);
    procedure ToolsToolsItemClick(Sender: TObject);
    procedure SearchFinfInFilesItemClick(Sender: TObject);
    procedure FileSaveAsItemClick(Sender: TObject);
    procedure FileSaveAllItemClick(Sender: TObject);
    procedure FileCloseItemClick(Sender: TObject);
    procedure EditFrontItemClick(Sender: TObject);
    procedure EditBackItemClick(Sender: TObject);
  private
    { Private declarations }
    ParseLine:Integer;
    SourceList: TStringList;  // 汽 颇老狼 咆胶飘 钎泅阑 历厘茄促.
    ToggleFormUnit:Boolean;
    fShiftKeyed:Boolean;
    function  CreateProxy(Ancestor:TFormClass;const ClassName:string):TObject;
    function  CompileAndInformation(const Option:string):Boolean;
    function  CreateForm(const FormName,UnitName:string):TForm;  // 橇废矫 汽阑 积己茄促.
    procedure CreateSheet(const FileName:string);
    function  SaveProject(const ProjName:string):Boolean;
    function  OpenProject(const ProjName:string):Boolean;
    procedure SetProjectInfo(const ProjectName:string);
    procedure SaveProxyForm;
    procedure OpenForm(const FileName:string);
    procedure SaveForm(Form:TForm;FormName:string);
    procedure NewProject;