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

Timestamp:

Aug 3, 2012, 12:14:25 PM (12 years ago)

Author:

chronos

Message:

• Modified: Enhanced OpenedFiles list structure.

File:

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

trunk/StudioPackage/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ActnList, ComCtrls, ExtCtrls;
+  ActnList, ComCtrls, ExtCtrls, UDataModule;
 
 type
@@ -75 +75 @@
     MenuItem9: TMenuItem;
     OpenDialogFile: TOpenDialog;
-    PageControl1: TPageControl;
-    PageControl2: TPageControl;
-    PageControl3: TPageControl;
-    PageControl4: TPageControl;
+    PageControlRight: TPageControl;
+    PageControlLeft: TPageControl;
+    PageControlBottom: TPageControl;
+    PageControlCenter: TPageControl;
     SaveDialogFile: TSaveDialog;
     Splitter1: TSplitter;
@@ -96 +96 @@
     procedure AViewProjectManagerExecute(Sender: TObject);
     procedure AViewSettingsExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
     procedure DockInit;
   public
-    { public declarations }
+    procedure OpenFileExecute(OpenedFile: TOpenedFile);
   end;
 
@@ -111 +112 @@
 
 uses
-  UFormProject, UFormSourceCode, UFormSettings, UDataModule;
+  UFormProject, UFormSourceCode, UFormSettings;
 
 { TFormMain }
@@ -123 +124 @@
 begin
   OpenDialogFile.Filter := DataModule1.FileTypes.GetDialogFilter;
-  if OpenDialogFile.Execute then ;
+  if OpenDialogFile.Execute then begin
+    DataModule1.OpenedFiles.OpenFile(OpenDialogFile.FileName);
+  end;
 end;
 
@@ -134 +137 @@
 begin
   FormSettings.ShowModal;
+end;
+
+procedure TFormMain.FormCreate(Sender: TObject);
+begin
 end;
 
@@ -151 +158 @@
 end;
 
+procedure TFormMain.OpenFileExecute(OpenedFile: TOpenedFile);
+var
+  NewTabSheet: TTabSheet;
+begin
+  NewTabSheet := PageControlCenter.AddTabSheet;
+  OpenedFile.Form.ManualDock(NewTabSheet, nil, alClient);
+  OpenedFile.Form.Align := alClient;
+  OpenedFile.Form.Show;
+end;
+
 end.