source: trunk/StudioCommon/ULDStudioAPI.pas

unit ULDStudioAPI;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, UModularSystem, ActnList, Menus, Forms, USource,
  SpecializedList, URegistry;

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;
  TGetRegistryContextEvent = function: TRegistryContext of object;
  TRegisterFileTemplateEvent = procedure (Template: TFileTemplate) of object;

  { TLDStudioAPI }

  TLDStudioAPI = class(TAPI)
  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;
    FOnUnregisterMainMenuItem: TUnregisterMainMenuItemEvent;
  public
    constructor Create;
    destructor Destroy; override;

    // API client functions
    procedure OpenFile(FileName: string);
    procedure RegisterFileType(FileType: TSourceType);
    procedure UnregisterFileType(FileType: TSourceType);
    procedure RegisterFileTemplate(Template: TFileTemplate);
    procedure UnregisterFileTemplate(Template: TFileTemplate);
    procedure RegisterForm(Form: TForm);
    procedure UnregisterForm(Form: TForm);
    procedure RegisterAction(Action: TAction);
    procedure UnregisterAction(Action: TAction);
    procedure RegisterMainMenuItem(MenuItem: TMenuItem; ParentItem: TMenuItem;
      Index: Integer);
    procedure UnregisterMainMenuItem(MenuItem: TMenuItem);
    procedure DockForm(Form: TForm; Target: TDockTarget);
    function GetRegistryContext: TRegistryContext;
  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;
    property OnGetRegistryContext: TGetRegistryContextEvent
      read FOnGetRegistryContext write FOnGetRegistryContext;
    property OnRegisterFileTemplate: TRegisterFileTemplateEvent
      read FOnRegisterFileTemplate write FOnRegisterFileTemplate;
    property OnUnregisterFileTemplate: TRegisterFileTemplateEvent
      read FOnUnregisterFileTemplate write FOnUnregisterFileTemplate;
  end;

procedure Register;


implementation

procedure Register;
begin
  RegisterComponents('LibreDevelop', [TLDStudioAPI]);
end;

{ TLDStudioAPI }

constructor TLDStudioAPI.Create;
begin
end;

destructor TLDStudioAPI.Destroy;
begin
  inherited Destroy;
end;

procedure TLDStudioAPI.OpenFile(FileName: string);
begin
  if Assigned(FOnOpenFile) then
    FOnOpenFile(FileName);
end;

procedure TLDStudioAPI.RegisterFileType(FileType: TSourceType);
begin
  if Assigned(FOnRegisterFileType) then
    FOnRegisterFileType(FileType);
end;

procedure TLDStudioAPI.UnregisterFileType(FileType: TSourceType);
begin
  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;

procedure TLDStudioAPI.RegisterForm(Form: TForm);
begin
  if Assigned(FOnRegisterForm) then
    FOnRegisterForm(Form);
end;

procedure TLDStudioAPI.UnregisterForm(Form: TForm);
begin
  if Assigned(FOnUnregisterForm) then
    FOnUnregisterForm(Form);
end;

procedure TLDStudioAPI.RegisterAction(Action: TAction);
begin
  if Assigned(FOnRegisterAction) then
    FOnRegisterAction(Action);
end;

procedure TLDStudioAPI.UnregisterAction(Action: TAction);
begin
  if Assigned(FOnUnregisterAction) then
    FOnUnregisterAction(Action);
end;

procedure TLDStudioAPI.RegisterMainMenuItem(MenuItem: TMenuItem;
  ParentItem: TMenuItem; Index: Integer);
begin
  if Assigned(FOnRegisterMainMenuItem) then
    FOnRegisterMainMenuItem(MenuItem, ParentItem, Index);
end;

procedure TLDStudioAPI.UnregisterMainMenuItem(MenuItem: TMenuItem);
begin
  if Assigned(FOnUnregisterMainMenuItem) then
    FOnUnregisterMainMenuItem(MenuItem);
end;

procedure TLDStudioAPI.DockForm(Form: TForm; Target: TDockTarget);
begin
  if Assigned(FOnDockForm) then
    FOnDockForm(Form, Target);
end;

function TLDStudioAPI.GetRegistryContext: TRegistryContext;
begin
  if Assigned(FOnGetRegistryContext) then
    Result := FOnGetRegistryContext();
end;

end.