Changeset 4 for trunk/StudioPackage/Forms/UFormMain.pas

Timestamp:

Aug 1, 2012, 11:10:12 PM (12 years ago)

Author:

chronos

Message:

• Modified: Base pagecontrol layout.

File:

• trunk/StudioPackage/Forms/UFormMain.pas (modified) (5 diffs)

trunk/StudioPackage/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ActnList, ComCtrls;
+  ActnList, ComCtrls, ExtCtrls;
 
 type
@@ -47 +47 @@
     MenuItem8: TMenuItem;
     MenuItem9: TMenuItem;
+    PageControl1: TPageControl;
+    PageControl2: TPageControl;
+    PageControl3: TPageControl;
+    PageControl4: TPageControl;
+    Splitter1: TSplitter;
+    Splitter2: TSplitter;
     StatusBar1: TStatusBar;
+    TabSheetProject: TTabSheet;
+    TabSheet2: TTabSheet;
+    TabSheet3: TTabSheet;
+    TabSheetSource: TTabSheet;
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
@@ -55 +65 @@
     procedure AExitExecute(Sender: TObject);
     procedure AViewProjectManagerExecute(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
-    { private declarations }
+    procedure DockInit;
   public
     { public declarations }
@@ -69 +80 @@
 
 uses
-  UFormProject;
+  UFormProject, UFormSourceCode;
 
 { TFormMain }
@@ -83 +94 @@
 end;
 
+procedure TFormMain.FormShow(Sender: TObject);
+begin
+  DockInit;
+end;
+
+procedure TFormMain.DockInit;
+begin
+  FormSourceCode.ManualDock(TabSheetSource, nil, alClient);
+  FormSourceCode.Align := alClient;
+  FormSourceCode.Show;
+  FormProject.ManualDock(TabSheetProject, nil, alClient);
+  FormProject.Align := alClient;
+  FormProject.Show;
+end;
+
 end.