Changeset 8 for trunk/StudioPackage/UDataModule.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Enhanced OpenedFiles list structure.

File:

• trunk/StudioPackage/UDataModule.pas (modified) (3 diffs)

trunk/StudioPackage/UDataModule.pas

@@ -9 +9 @@
 
 type
+
+  { TOpenedFile }
+
+  TOpenedFile = class
+  private
+    FFileName: string;
+    procedure SetFileName(AValue: string);
+  public
+    Modified: Boolean;
+    Form: TForm;
+    property FileName: string read FFileName write SetFileName;
+  end;
+
+  TOpenFileEvent = procedure (OpenedFile: TOpenedFile) of object;
+
+  { TOpenedFiles }
+
+  TOpenedFiles = class(TListObject)
+  private
+    FOnOpenFile: TOpenFileEvent;
+  public
+    procedure OpenFile(FileName: string);
+    procedure NewFile;
+    property OnOpenFile: TOpenFileEvent read FOnOpenFile write FOnOpenFile;
+  end;
+
   { TDataModule1 }
 
@@ -19 +45 @@
     Project: TProject;
     FileTypes: TFileTypes;
+    OpenedFiles: TOpenedFiles;
   end;
 
@@ -32 +59 @@
   UFormSourceCode, UFormMain, UFormProject, UFormSettings;
 
+procedure TOpenedFile.SetFileName(AValue: string);
+begin
+  if FFileName = AValue then Exit;
+  FFileName := AValue;
+  if Assigned(Form) then
+    Form.Caption := ExtractFileName(FFileName);
+end;
+
+{ TOpenedFiles }
+
+procedure TOpenedFiles.OpenFile(FileName: string);
+var
+  NewFile: TOpenedFile;
+begin
+  NewFile := TOpenedFile(AddNew(TOpenedFile.Create));
+  NewFile.FileName := FileName;
+  NewFile.Form := TFormSourceCode.Create(nil);
+  NewFile.Form.Caption := ExtractFileName(NewFile.FileName);
+  NewFile.Form.Visible := True;
+  if Assigned(FOnOpenFile) then
+    FOnOpenFile(NewFile);
+end;
+
+procedure TOpenedFiles.NewFile;
+begin
+
+end;
+
 { TDataModule1 }
 
 procedure TDataModule1.DataModuleCreate(Sender: TObject);
 begin
+  FileTypes := TFileTypes.Create;
+  FileTypes.OwnsObjects := False;
+  OpenedFiles := TOpenedFiles.Create;
+
   Application.CreateForm(TFormMain, FormMain);
+  OpenedFiles.OnOpenFile := FormMain.OpenFileExecute;
   Application.CreateForm(TFormProject, FormProject);
   Application.CreateForm(TFormSourceCode, FormSourceCode);
   Application.CreateForm(TFormSettings, FormSettings);
-  FileTypes := TFileTypes.Create;
 end;
 
 procedure TDataModule1.DataModuleDestroy(Sender: TObject);
 begin
+  FreeAndNil(OpenedFiles);
   FreeAndNil(FileTypes);
 end;