Changeset 15 for trunk/StudioPackage/UDataModule.pas

Timestamp:

Aug 6, 2012, 2:35:22 PM (12 years ago)

Author:

chronos

Message:

• Added: Registration of new file templates for modules.
• Added: Program stores last opened file list in registry.

File:

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

trunk/StudioPackage/UDataModule.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, ActnList, Controls, SpecializedList,
-  USource, UModularSystem, ULDStudioAPI, Menus, ComCtrls;
+  USource, UModularSystem, UCoolTranslator, ULDStudioAPI, Menus, ComCtrls,
+  Registry, URegistry, UApplicationInfo;
 
 type
 
-  { TOpenedFile }
-
-  TOpenedFile = class
-  private
-    FFileName: string;
-    procedure SetFileName(AValue: string);
-  public
-    Modified: Boolean;
-    Form: TForm;
-    property FileName: string read FFileName write SetFileName;
+  { TTextTemplate }
+
+  TTextTemplate = class(TFileTemplate)
+    constructor Create; override;
+  end;
+
+  { TTextFileType }
+
+  TTextFileType = class(TSourceType)
+    constructor Create; override;
   end;
 
@@ -29 +30 @@
     FOnChange: TNotifyEvent;
   public
-    Selected: TOpenedFile;
-    function FindByFileName(Value: string): TOpenedFile;
-    procedure CloseFile(FileName: string);
-    procedure OpenFile(FileName: string);
+    Selected: TSource;
+    function FindByFileName(Value: string): TSource;
+    procedure CloseFile(Source: TSource);
+    procedure OpenFileName(FileName: string);
+    procedure OpenFile(Source: TSource);
     procedure NewFile;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
@@ -42 +44 @@
   published
     ActionListRegistred: TActionList;
+    ApplicationInfo1: TApplicationInfo;
+    CoolTranslator1: TCoolTranslator;
     ImageListMain: TImageList;
     API: TLDStudioAPI;
     procedure APIDockForm(Form: TForm; Target: TDockTarget);
+    function APIGetRegistryContext: TRegistryContext;
+    procedure APIRegisterFileTemplate(Template: TFileTemplate);
     procedure APIRegisterFileType(FileType: TSourceType);
     procedure APIRegisterForm(Form: TForm);
@@ -50 +56 @@
       ParentItem: TMenuItem; Index: Integer);
     procedure APIUnregisterAction(Action: TAction);
+    procedure APIUnregisterFileTemplate(Template: TFileTemplate);
     procedure APIUnregisterFileType(FileType: TSourceType);
     procedure APIUnregisterForm(Form: TForm);
     procedure APIUnregisterMainMenuItem(MenuItem: TMenuItem);
+    procedure APIOpenFile(FileName: string);
+    procedure APIRegisterAction(Action: TAction);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
-    procedure APIOpenFile(FileName: string);
-    procedure APIRegisterAction(Action: TAction);
   private
+    TextFileType: TSourceType;
+    TextFileTemplate: TTextTemplate;
+    procedure AutoOpen;
     procedure DockToPageControl(PageControl: TPageControl; Form: TForm);
   public
     ModuleManager: TModuleManager;
     FileTypes: TFileTypes;
+    FileTemplates: TFileTemplates;
     OpenedFiles: TOpenedFiles;
-  end;
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
+  end;
+
 
 var
@@ -74 +88 @@
 
 uses
-  UFormSourceCode, UFormMain, UFormSettings, UFormModuleList;
+  UFormSourceCode, UFormMain, UFormSettings, UFormModuleList, UFormNewFile;
 
 resourcestring
   SNewFile = 'New file';
-
-procedure TOpenedFile.SetFileName(AValue: string);
-begin
-  if FFileName = AValue then Exit;
-  FFileName := AValue;
-  if Assigned(Form) then
-    Form.Caption := ExtractFileName(FFileName);
-end;
+  STextFile = 'Text file';
+
+{ TTextFileType }
+
+constructor TTextFileType.Create;
+begin
+  inherited Create;
+  Extension := '.txt';
+  Title := 'Text file';;
+end;
+
+{ TTextTemplate }
+
+constructor TTextTemplate.Create;
+begin
+  inherited Create;
+  Name := STextFile;
+end;
+
 
 { TOpenedFiles }
 
-function TOpenedFiles.FindByFileName(Value: string): TOpenedFile;
+function TOpenedFiles.FindByFileName(Value: string): TSource;
 var
   I: Integer;
 begin
   I := 0;
-  while (I < Count) and (TOpenedFile(Items[I]).FileName <> Value) do Inc(I);
-  if I < Count then Result := TOpenedFile(Items[I])
+  while (I < Count) and (TSource(Items[I]).Name <> Value) do Inc(I);
+  if I < Count then Result := TSource(Items[I])
     else Result := nil;
 end;
 
-procedure TOpenedFiles.CloseFile(FileName: string);
-var
-  OpenedFile: TOpenedFile;
-begin
-  OpenedFile := FindByFileName(FileName);
-  FreeAndNil(OpenedFile.Form);
-  Remove(OpenedFile);
+procedure TOpenedFiles.CloseFile(Source: TSource);
+begin
+  FreeAndNil(Source.Form);
+  Remove(Source);
   if Assigned(FOnChange) then FOnChange(Self);
 end;
 
-procedure TOpenedFiles.OpenFile(FileName: string);
-var
-  NewFile: TOpenedFile;
-begin
-  NewFile := TOpenedFile(AddNew(TOpenedFile.Create));
-  NewFile.FileName := FileName;
+procedure TOpenedFiles.OpenFileName(FileName: string);
+var
+  NewFile: TSourceText;
+begin
+  NewFile := TSourceText.Create;
+  NewFile.Name := FileName;
+  OpenFile(NewFile);
+end;
+
+procedure TOpenedFiles.OpenFile(Source: TSource);
+begin
+  AddNew(Source);
+  Source.Form := TFormSourceCode.Create(nil);
+  Source.Form.Caption := ExtractFileName(Source.Name);
+  Source.Form.Visible := True;
+  Selected := Source;
+  if Assigned(FOnChange) then FOnChange(Self);
+end;
+
+procedure TOpenedFiles.NewFile;
+var
+  NewFile: TSource;
+begin
+  NewFile := TSourceText(AddNew(TSource.Create));
+  NewFile.Name := SNewFile;
   NewFile.Form := TFormSourceCode.Create(nil);
-  NewFile.Form.Caption := ExtractFileName(NewFile.FileName);
+  NewFile.Form.Caption := ExtractFileName(NewFile.Name);
   NewFile.Form.Visible := True;
   Selected := NewFile;
@@ -122 +163 @@
 end;
 
-procedure TOpenedFiles.NewFile;
-var
-  NewFile: TOpenedFile;
-begin
-  NewFile := TOpenedFile(AddNew(TOpenedFile.Create));
-  NewFile.FileName := SNewFile;
-  NewFile.Form := TFormSourceCode.Create(nil);
-  NewFile.Form.Caption := ExtractFileName(NewFile.FileName);
-  NewFile.Form.Visible := True;
-  Selected := NewFile;
-  if Assigned(FOnChange) then FOnChange(Self);
-end;
-
 { TDataModule1 }
 
 procedure TDataModule1.DataModuleCreate(Sender: TObject);
 begin
+  FileTemplates := TFileTemplates.Create;
+  FileTemplates.OwnsObjects := False;
   FileTypes := TFileTypes.Create;
   FileTypes.OwnsObjects := False;
@@ -144 +174 @@
   ModuleManager := TModuleManager.Create(nil);
   ModuleManager.API := API;
+
+  TextFileType := TTextFileType.Create;
+  API.RegisterFileType(TextFileType);
+  TextFileTemplate := TTextTemplate.Create;
+  API.RegisterFileTemplate(TextFileTemplate);
 
   FormMain := TFormMain.Create(nil);
@@ -151 +186 @@
   FormSettings := TFormSettings.Create(nil);
   FormModuleList := TFormModuleList.Create(nil);
-
+  FormNewFile := TFormNewFile.Create(nil);
+
+  LoadFromRegistry(RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey));
+
+  DataModule1 := Self;
   FormMain.Show;
+  AutoOpen;
 end;
 
@@ -191 +231 @@
 end;
 
+procedure TDataModule1.LoadFromRegistry(Context: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Context.RootKey;
+    OpenKey(Context.Key, True);
+
+  finally
+    Free;
+  end;
+  FormMain.LoadFromRegistry(Context);
+end;
+
+procedure TDataModule1.SaveToRegistry(Context: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Context.RootKey;
+    OpenKey(Context.Key, True);
+
+  finally
+    Free;
+  end;
+  FormMain.SaveToRegistry(Context);
+end;
+
 procedure TDataModule1.APIDockForm(Form: TForm; Target: TDockTarget);
 begin
@@ -203 +269 @@
 end;
 
+function TDataModule1.APIGetRegistryContext: TRegistryContext;
+begin
+  Result := RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey);
+end;
+
+procedure TDataModule1.APIRegisterFileTemplate(Template: TFileTemplate);
+begin
+  FileTemplates.Add(Template);
+end;
+
 procedure TDataModule1.APIUnregisterAction(Action: TAction);
 begin
@@ -208 +284 @@
 end;
 
+procedure TDataModule1.APIUnregisterFileTemplate(Template: TFileTemplate);
+begin
+  FileTemplates.Remove(Template);
+end;
+
 procedure TDataModule1.APIUnregisterFileType(FileType: TSourceType);
 begin
@@ -220 +301 @@
 procedure TDataModule1.DataModuleDestroy(Sender: TObject);
 begin
+  API.UnregisterFileType(TextFileType);
+  FreeAndNil(TextFileType);
+  API.UnregisterFileTemplate(TextFileTemplate);
+  FreeAndNil(TextFileTemplate);
+
+  SaveToRegistry(RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey));
   FreeAndNil(ModuleManager);
+  FreeAndNil(FormNewFile);
   FreeAndNil(FormMain);
   FreeAndNil(FormSourceCode);
@@ -227 +315 @@
   FreeAndNil(OpenedFiles);
   FreeAndNil(FileTypes);
+  FreeAndNil(FileTemplates);
+end;
+
+procedure TDataModule1.AutoOpen;
+var
+  FileName: string;
+begin
+  if (ParamCount > 0) then begin
+    FileName := UTF8Encode(ParamStr(1));
+    if FileExistsUTF8(FileName) then begin
+      OpenedFiles.OpenFileName(FileName);
+    end;
+  end;
 end;
 
 procedure TDataModule1.APIOpenFile(FileName: string);
 begin
-  OpenedFiles.OpenFile(FileName);
+  OpenedFiles.OpenFileName(FileName);
 end;