Changeset 14 for trunk/StudioCommon

Timestamp:

Aug 6, 2012, 10:49:50 AM (12 years ago)

Author:

chronos

Message:

• Modified: API revised to slave proxy model.
• Added: Modules can control docking of forms.

Location:

trunk/StudioCommon

Files:

• LDStudioCommon.lpk (modified) (1 diff)
• LDStudioCommon.pas (modified) (1 diff)
• ULDStudioAPI.pas (modified) (6 diffs)

trunk/StudioCommon/LDStudioCommon.lpk

@@ -20 +20 @@
       <Item1>
         <Filename Value="ULDStudioAPI.pas"/>
+        <HasRegisterProc Value="True"/>
         <UnitName Value="ULDStudioAPI"/>
       </Item1>

trunk/StudioCommon/LDStudioCommon.pas

@@ -14 +14 @@
 procedure Register;
 begin
+  RegisterUnit('ULDStudioAPI', @ULDStudioAPI.Register);
 end;
 

trunk/StudioCommon/ULDStudioAPI.pas

@@ -10 +10 @@
 
 type
+  TDockTarget = (dtCenter, dtLeft, dtRight, dtBottom, dtTop);
+  TOpenFileEvent = procedure (FileName: string) of object;
+  TRegisterFileTypeEvent = procedure (FileType: TSourceType) of object;
+  TRegisterFormEvent = procedure (Form: TForm) of object;
+  TRegisterActionEvent = procedure (Action: TAction) of object;
+  TRegisterMainMenuItemEvent = procedure (MenuItem: TMenuItem; ParentItem: TMenuItem;
+    Index: Integer) of object;
+  TUnregisterMainMenuItemEvent = procedure (MenuItem: TMenuItem) of object;
+  TDockFormEvent = procedure (Form: TForm; Target: TDockTarget) of object;
 
   { TLDStudioAPI }
@@ -15 +24 @@
   TLDStudioAPI = class(TAPI)
   private
+    FOnDockForm: TDockFormEvent;
+    FOnOpenFile: TOpenFileEvent;
+    FOnRegisterAction: TRegisterActionEvent;
+    FOnRegisterFileType: TRegisterFileTypeEvent;
+    FOnRegisterForm: TRegisterFormEvent;
+    FOnRegisterMainMenuItem: TRegisterMainMenuItemEvent;
+    FOnUnregisterAction: TRegisterActionEvent;
+    FOnUnregisterFileType: TRegisterFileTypeEvent;
+    FOnUnregisterForm: TRegisterFormEvent;
+    FOnUnregisterMainMenuItem: TUnregisterMainMenuItemEvent;
   public
-    Actions: TActionList;
-    MainForm: TForm;
-    MainMenu: TMainMenu;
-    FileTypes: TFileTypes;
     constructor Create;
     destructor Destroy; override;
 
-    // API functions
+    // API client functions
     procedure OpenFile(FileName: string);
     procedure RegisterFileType(FileType: TSourceType);
@@ -34 +49 @@
       Index: Integer);
     procedure UnregisterMainMenuItem(MenuItem: TMenuItem);
+    procedure DockForm(Form: TForm; Target: TDockTarget);
+
+  published
+    // API handling
+    property OnOpenFile: TOpenFileEvent read FOnOpenFile write FOnOpenFile;
+    property OnRegisterFileType: TRegisterFileTypeEvent
+      read FOnRegisterFileType write FOnRegisterFileType;
+    property OnUnregisterFileType: TRegisterFileTypeEvent
+      read FOnUnregisterFileType write FOnUnregisterFileType;
+    property OnRegisterForm: TRegisterFormEvent
+      read FOnRegisterForm write FOnRegisterForm;
+    property OnUnregisterForm: TRegisterFormEvent
+      read FOnUnregisterForm write FOnUnregisterForm;
+    property OnRegisterAction: TRegisterActionEvent
+      read FOnRegisterAction write FOnRegisterAction;
+    property OnUnregisterAction: TRegisterActionEvent
+      read FOnUnregisterAction write FOnUnregisterAction;
+    property OnRegisterMainMenuItem: TRegisterMainMenuItemEvent
+      read FOnRegisterMainMenuItem write FOnRegisterMainMenuItem;
+    property OnUnregisterMainMenuItem: TUnregisterMainMenuItemEvent
+      read FOnUnregisterMainMenuItem write FOnUnregisterMainMenuItem;
+    property OnDockForm: TDockFormEvent read FOnDockForm write FOnDockForm;
   end;
 
+procedure Register;
+
+
 implementation
+
+procedure Register;
+begin
+  RegisterComponents('LibreDevelop', [TLDStudioAPI]);
+end;
 
 { TLDStudioAPI }
@@ -42 +87 @@
 constructor TLDStudioAPI.Create;
 begin
-  Actions := TActionList.Create(nil);
 end;
 
 destructor TLDStudioAPI.Destroy;
 begin
-  FreeAndNil(Actions);
   inherited Destroy;
 end;
@@ -53 +96 @@
 procedure TLDStudioAPI.OpenFile(FileName: string);
 begin
-
+  if Assigned(FOnOpenFile) then
+    FOnOpenFile(FileName);
 end;
 
 procedure TLDStudioAPI.RegisterFileType(FileType: TSourceType);
 begin
-  FileTypes.Add(FileType);
+  if Assigned(FOnRegisterFileType) then
+    FOnRegisterFileType(FileType);
 end;
 
 procedure TLDStudioAPI.UnregisterFileType(FileType: TSourceType);
 begin
-  FileTypes.Remove(FileType);
+  if Assigned(FOnUnregisterFileType) then
+    FOnUnregisterFileType(FileType);
 end;
 
 procedure TLDStudioAPI.RegisterForm(Form: TForm);
 begin
-  Form.Parent := MainForm;
+  if Assigned(FOnRegisterForm) then
+    FOnRegisterForm(Form);
 end;
 
 procedure TLDStudioAPI.UnregisterForm(Form: TForm);
 begin
-  Form.Parent := nil;
+  if Assigned(FOnUnregisterForm) then
+    FOnUnregisterForm(Form);
 end;
 
 procedure TLDStudioAPI.RegisterAction(Action: TAction);
 begin
-  Action.ActionList := Actions;
+  if Assigned(FOnRegisterAction) then
+    FOnRegisterAction(Action);
 end;
 
 procedure TLDStudioAPI.UnregisterAction(Action: TAction);
 begin
-  Action.ActionList := nil;
+  if Assigned(FOnUnregisterAction) then
+    FOnUnregisterAction(Action);
 end;
 
@@ -89 +139 @@
   ParentItem: TMenuItem; Index: Integer);
 begin
-  if Assigned(ParentItem) then ParentItem.Insert(Index, MenuItem)
-    else MainMenu.Items.Insert(Index, MenuItem);
+  if Assigned(FOnRegisterMainMenuItem) then
+    FOnRegisterMainMenuItem(MenuItem, ParentItem, Index);
 end;
 
 procedure TLDStudioAPI.UnregisterMainMenuItem(MenuItem: TMenuItem);
 begin
-  MenuItem.Parent.Delete(MenuItem.Parent.IndexOf(MenuItem));
+  if Assigned(FOnUnregisterMainMenuItem) then
+    FOnUnregisterMainMenuItem(MenuItem);
+end;
+
+procedure TLDStudioAPI.DockForm(Form: TForm; Target: TDockTarget);
+begin
+  if Assigned(FOnDockForm) then
+    FOnDockForm(Form, Target);
 end;