Changeset 2 for trunk/Forms/UMainForm.pas

Timestamp:

Jul 28, 2009, 1:39:09 PM (15 years ago)

Author:

george

Message:

• Modified: CodeEdit window is now dockable rather than MDI child.
• Modified: Main menu changed to ActionMainMenuBar with XP style.

File:

• trunk/Forms/UMainForm.pas (modified) (6 diffs)

trunk/Forms/UMainForm.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, Menus, ExtCtrls, StdCtrls, ComCtrls, DockPanel, URegistry,
-  UApplicationInfo, UDockManagement, ActnList, XPStyleActnCtrls, ActnMan;
+  UApplicationInfo, UDockManagement, ActnList, XPStyleActnCtrls, ActnMan,
+  UProject, XPMan, ImgList, DockManagerPro, StdStyleActnCtrls, ToolWin,
+  ActnCtrls, ActnMenus;
 
 type
   TMainForm = class(TForm)
-    MainMenu1: TMainMenu;
-    File1: TMenuItem;
-    Edit1: TMenuItem;
-    Search1: TMenuItem;
-    view1: TMenuItem;
-    Project1: TMenuItem;
-    Run1: TMenuItem;
-    Component1: TMenuItem;
-    ools1: TMenuItem;
-    Windows1: TMenuItem;
-    Help1: TMenuItem;
-    New1: TMenuItem;
-    Open1: TMenuItem;
-    Openproject1: TMenuItem;
-    Reopen1: TMenuItem;
-    N1: TMenuItem;
-    Save1: TMenuItem;
-    Saveas1: TMenuItem;
-    Saveproject1: TMenuItem;
-    SaveAll1: TMenuItem;
-    Close1: TMenuItem;
-    CloseAll1: TMenuItem;
-    N2: TMenuItem;
-    Exit1: TMenuItem;
-    Undo1: TMenuItem;
-    Redo1: TMenuItem;
-    N3: TMenuItem;
-    Copy1: TMenuItem;
-    Cut1: TMenuItem;
-    Paste1: TMenuItem;
-    Delete1: TMenuItem;
-    DeleteAll1: TMenuItem;
-    Find1: TMenuItem;
-    ProjectManager1: TMenuItem;
-    oolPalete1: TMenuItem;
-    ObjectInspector1: TMenuItem;
-    Structure1: TMenuItem;
     DockPanel1: TDockPanel;
     DockPanel2: TDockPanel;
@@ -52 +17 @@
     ActionManager1: TActionManager;
     ActionExit: TAction;
+    ActionProjectOpen: TAction;
+    ActionProjectSaveAs: TAction;
+    ActionFileOpen: TAction;
+    ActionFileSave: TAction;
+    ActionFileClose: TAction;
+    ActionFileCloseAll: TAction;
+    ActionUnitTest: TAction;
+    ActionPrint: TAction;
+    ActionFileSaveAs: TAction;
+    ImageList1: TImageList;
+    ActionMainMenuBar1: TActionMainMenuBar;
+    ActionFile: TAction;
+    ActionFileNew: TAction;
+    ActionFileReopen: TAction;
+    ActionFileSaveAll: TAction;
+    ActionEdit: TAction;
+    OpenDialog1: TOpenDialog;
+    SaveDialog1: TSaveDialog;
+    FindDialog1: TFindDialog;
+    ReplaceDialog1: TReplaceDialog;
+    ActionEditUndo: TAction;
+    ActionEditRedo: TAction;
+    ActionEditCut: TAction;
+    ActionEditCopy: TAction;
+    ActionEditPaste: TAction;
+    ActionEditDelete: TAction;
+    ActionEditSelectAll: TAction;
+    ActionEditAlignToGrid: TAction;
+    ActionEditBringToFront: TAction;
+    ActionEditSendToBack: TAction;
+    ActionEditAlign: TAction;
+    ActionEditSize: TAction;
+    ActionEditScale: TAction;
+    ActionEditTabOrder: TAction;
+    ActionEditCreationOrder: TAction;
+    ActionEditFlipChildren: TAction;
+    ActionEditLockControls: TAction;
+    ActionSearch: TAction;
+    ActionView: TAction;
+    ActionProject: TAction;
+    ActionRun: TAction;
+    ActionComponent: TAction;
+    ActionTools: TAction;
+    ActionWindow: TAction;
+    ActionHelp: TAction;
     procedure FormShow(Sender: TObject);
     procedure ObjectInspector1Click(Sender: TObject);
@@ -61 +71 @@
     procedure FormDestroy(Sender: TObject);
     procedure ActionExitExecute(Sender: TObject);
+    procedure ActionFileUpdate(Sender: TObject);
+    procedure ActionEditExecute(Sender: TObject);
+    procedure ActionProjectOpenExecute(Sender: TObject);
+    procedure ActionFileOpenExecute(Sender: TObject);
+    procedure ActionProjectSaveAsExecute(Sender: TObject);
   private
     CustomDockManager: TDDockManager;
@@ -83 +98 @@
 {$R *.dfm}
 
+procedure TMainForm.ActionEditExecute(Sender: TObject);
+begin
+  //
+end;
+
 procedure TMainForm.ActionExitExecute(Sender: TObject);
 begin
   Close;
+end;
+
+procedure TMainForm.ActionFileOpenExecute(Sender: TObject);
+begin
+  if OpenDialog1.Execute then begin
+  end;
+end;
+
+procedure TMainForm.ActionFileUpdate(Sender: TObject);
+begin
+  //
+end;
+
+procedure TMainForm.ActionProjectOpenExecute(Sender: TObject);
+begin
+  if OpenDialog1.Execute then begin
+  end;
+end;
+
+procedure TMainForm.ActionProjectSaveAsExecute(Sender: TObject);
+begin
+  if SaveDialog1.Execute then begin
+  end;
 end;
 
@@ -125 +168 @@
     RegisterDockForm(ObjectInspector, 100, 400, 'PanelRight', True);
     RegisterDockForm(StructureView, 100, 400, 'PanelRight', True);
+    RegisterDockForm(CodeEdit, 500, 400, 'PanelCenter', True);
     with BaseDockPanel do begin
       PanelLeft.Tag := 300;
@@ -136 +180 @@
   LoadFormPosition(Self);
   CodeEdit.Show;
+  ActionManager1.Style := XPStyle;
 end;