Changeset 8 for trunk/StudioPackage/Forms

Timestamp:

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

Author:

chronos

Message:

• Modified: Enhanced OpenedFiles list structure.

Location:

trunk/StudioPackage/Forms

Files:

• UFormMain.lfm (modified) (6 diffs)
• UFormMain.pas (modified) (7 diffs)

trunk/StudioPackage/Forms/UFormMain.lfm

@@ -8 +8 @@
   ClientWidth = 747
   Menu = MainMenu
+  OnCreate = FormCreate
   OnShow = FormShow
   LCLVersion = '1.1'
@@ -46 +47 @@
     end
   end
-  object PageControl1: TPageControl
+  object PageControlRight: TPageControl
     Left = 547
     Height = 350
@@ -60 +61 @@
     end
   end
-  object PageControl2: TPageControl
+  object PageControlLeft: TPageControl
     Left = 0
     Height = 350
@@ -74 +75 @@
     end
   end
-  object PageControl3: TPageControl
+  object PageControlBottom: TPageControl
     Left = 0
     Height = 105
@@ -101 +102 @@
     ResizeAnchor = akRight
   end
-  object PageControl4: TPageControl
+  object PageControlCenter: TPageControl
     Left = 205
     Height = 350
@@ -1431 +1432 @@
   end
   object OpenDialogFile: TOpenDialog
-    Filter = 'kkk|.kk|jj|.jj'
     left = 82
     top = 210

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.