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

Timestamp:

Aug 3, 2012, 4:03:59 PM (12 years ago)

Author:

chronos

Message:

• Modified: Implementing base tabbed opened file list.

File:

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

trunk/StudioPackage/Forms/UFormMain.pas

@@ -105 +105 @@
     procedure AExitExecute(Sender: TObject);
     procedure AFileCloseExecute(Sender: TObject);
+    procedure AFileNewExecute(Sender: TObject);
     procedure AFileOpenExecute(Sender: TObject);
     procedure AViewModulesExecute(Sender: TObject);
@@ -115 +116 @@
     procedure DockInit;
   public
-    procedure OpenFileExecute(OpenedFile: TOpenedFile);
+    procedure OpenedFileChange(Sender: TObject);
   end;
 
@@ -137 +138 @@
 procedure TFormMain.AFileCloseExecute(Sender: TObject);
 begin
-//  DataModule1.OpenedFiles.Close(DataModule1.OpenedFiles.Selected);
+  DataModule1.OpenedFiles.CloseFile(DataModule1.OpenedFiles.Selected.FileName);
+end;
+
+procedure TFormMain.AFileNewExecute(Sender: TObject);
+begin
+  DataModule1.OpenedFiles.NewFile;
 end;
 
@@ -185 +191 @@
 }end;
 
-procedure TFormMain.OpenFileExecute(OpenedFile: TOpenedFile);
+procedure TFormMain.OpenedFileChange(Sender: TObject);
 var
   NewTabSheet: TTabSheet;
-begin
-  NewTabSheet := PageControlCenter.AddTabSheet;
-  OpenedFile.Form.ManualDock(NewTabSheet, nil, alClient);
-  OpenedFile.Form.Align := alClient;
-  OpenedFile.Form.Show;
+  I: Integer;
+begin
+  with DataModule1.OpenedFiles do begin
+    for I := 0 to Count - 1 do
+    with TOpenedFile(Items[I]) do begin
+      if not Assigned(Form.Parent) then begin
+        NewTabSheet := PageControlCenter.AddTabSheet;
+        NewTabSheet.Caption := ExtractFileName(FileName);
+        //NewTabSheet.PopupMenu := ;
+        Form.ManualDock(NewTabSheet, nil, alClient);
+        Form.Align := alClient;
+        Form.Show;
+      end;
+    end;
+  end;
 end;