Changeset 15 for trunk/StudioCommon/ULDStudioAPI.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/StudioCommon/ULDStudioAPI.pas (modified) (8 diffs)

trunk/StudioCommon/ULDStudioAPI.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UModularSystem, ActnList, Menus, Forms, USource,
-  SpecializedList;
+  SpecializedList, URegistry;
 
 type
@@ -19 +19 @@
   TUnregisterMainMenuItemEvent = procedure (MenuItem: TMenuItem) of object;
   TDockFormEvent = procedure (Form: TForm; Target: TDockTarget) of object;
+  TGetRegistryContextEvent = function: TRegistryContext of object;
+  TRegisterFileTemplateEvent = procedure (Template: TFileTemplate) of object;
 
   { TLDStudioAPI }
@@ -25 +27 @@
   private
     FOnDockForm: TDockFormEvent;
+    FOnGetRegistryContext: TGetRegistryContextEvent;
     FOnOpenFile: TOpenFileEvent;
     FOnRegisterAction: TRegisterActionEvent;
+    FOnRegisterFileTemplate: TRegisterFileTemplateEvent;
     FOnRegisterFileType: TRegisterFileTypeEvent;
     FOnRegisterForm: TRegisterFormEvent;
     FOnRegisterMainMenuItem: TRegisterMainMenuItemEvent;
     FOnUnregisterAction: TRegisterActionEvent;
+    FOnUnregisterFileTemplate: TRegisterFileTemplateEvent;
     FOnUnregisterFileType: TRegisterFileTypeEvent;
     FOnUnregisterForm: TRegisterFormEvent;
@@ -42 +47 @@
     procedure RegisterFileType(FileType: TSourceType);
     procedure UnregisterFileType(FileType: TSourceType);
+    procedure RegisterFileTemplate(Template: TFileTemplate);
+    procedure UnregisterFileTemplate(Template: TFileTemplate);
     procedure RegisterForm(Form: TForm);
     procedure UnregisterForm(Form: TForm);
@@ -50 +57 @@
     procedure UnregisterMainMenuItem(MenuItem: TMenuItem);
     procedure DockForm(Form: TForm; Target: TDockTarget);
-
+    function GetRegistryContext: TRegistryContext;
   published
     // API handling
@@ -71 +78 @@
       read FOnUnregisterMainMenuItem write FOnUnregisterMainMenuItem;
     property OnDockForm: TDockFormEvent read FOnDockForm write FOnDockForm;
+    property OnGetRegistryContext: TGetRegistryContextEvent
+      read FOnGetRegistryContext write FOnGetRegistryContext;
+    property OnRegisterFileTemplate: TRegisterFileTemplateEvent
+      read FOnRegisterFileTemplate write FOnRegisterFileTemplate;
+    property OnUnregisterFileTemplate: TRegisterFileTemplateEvent
+      read FOnUnregisterFileTemplate write FOnUnregisterFileTemplate;
   end;
 
@@ -110 +123 @@
   if Assigned(FOnUnregisterFileType) then
     FOnUnregisterFileType(FileType);
+end;
+
+procedure TLDStudioAPI.RegisterFileTemplate(Template: TFileTemplate);
+begin
+  if Assigned(FOnRegisterFileTemplate) then
+    FOnRegisterFileTemplate(Template);
+end;
+
+procedure TLDStudioAPI.UnregisterFileTemplate(Template: TFileTemplate);
+begin
+  if Assigned(FOnUnregisterFileTemplate) then
+    FOnUnregisterFileTemplate(Template);
 end;
 
@@ -155 +180 @@
 end;
 
+function TLDStudioAPI.GetRegistryContext: TRegistryContext;
+begin
+  if Assigned(FOnGetRegistryContext) then
+    Result := FOnGetRegistryContext();
+end;
+
 end.