adjusted structure project

Author: hunsche

DelphiDocker.Images.pas

@@ -0,0 +1,41 @@
+package DelphiDocker;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESIGNONLY}
+{$IMPLICITBUILD ON}
+
+requires
+  rtl,
+  designide;
+
+contains
+  OpenToolApi.LocalMenuItem in 'Src\OpenToolApi\OpenToolApi.LocalMenuItem.pas',
+  OpenToolApi.Register in 'Src\OpenToolApi\OpenToolApi.Register.pas',
+  OpenToolApi.ToolBarItem in 'Src\OpenToolApi\OpenToolApi.ToolBarItem.pas',
+  OpenToolApi.Images in 'Src\OpenToolApi\OpenToolApi.Images.pas' {DataModuleImages: TDataModule};
+
+end.

DelphiDocker.dpk

@@ -21,16 +21,7 @@ procedure AddLocalMenuDocker;
 end;
 
 procedure AddToolBarDocker;
- var
- LToolButton: TToolButton;
- LToolBarItem: TToolBar;
-begin
-   DataModuleImages := TDataModuleImages.Create(nil);
-   LToolBarItem := (BorlandIDEServices as INTAServices).ToolBar[sDebugToolBar];
-   LToolButton := TToolButton.Create(LToolBarItem);
-   LToolButton.Caption := 'Run With Docker';
-   LToolButton.Parent := LToolBarItem;
-   LToolButton.ImageIndex := (BorlandIDEServices as INTAServices).AddImages(DataModuleImages.ImageList1, 'docker');
+
 end;
 
 procedure Register;

DelphiDocker.dproj

@@ -2,7 +2,7 @@ object DataModuleImages: TDataModuleImages
   OldCreateOrder = False
   Height = 150
   Width = 215
-  object ImageList1: TImageList
+  object ImageListDocker: TImageList
     Left = 88
     Top = 56
     Bitmap = {

delphi_docker.res DelphiDocker.resdelphi_docker.res renamed to DelphiDocker.res

@@ -0,0 +1,55 @@
+unit OpenToolApi.Images;
+
+interface
+
+uses
+  System.SysUtils, System.Classes, System.ImageList, Vcl.ImgList, Vcl.Controls;
+
+type
+  TDataModuleImages = class(TDataModule)
+    ImageListDocker: TImageList;
+  private
+    FIndexDocker: Integer;
+    class var FInstance: TDataModuleImages;
+  public
+    class function GetInstance: TDataModuleImages;
+    class procedure Release;
+    property IndexDocker: Integer read FIndexDocker write FIndexDocker;
+    constructor Create; reintroduce;
+  end;
+
+implementation
+
+uses
+  ToolsAPI;
+
+{%CLASSGROUP 'Vcl.Controls.TControl'}
+{$R *.dfm}
+
+constructor TDataModuleImages.Create;
+begin
+  inherited Create(nil);
+  FIndexDocker := (BorlandIDEServices as INTAServices).AddImages(ImageListDocker, 'docker');
+end;
+
+class function TDataModuleImages.GetInstance: TDataModuleImages;
+begin
+  if not Assigned(FInstance) then
+    FInstance := TDataModuleImages.Create;
+
+  Result := FInstance;
+end;
+
+class procedure TDataModuleImages.Release;
+begin
+  if Assigned(FInstance) then
+    FInstance.Free;
+end;
+
+initialization
+
+finalization
+
+TDataModuleImages.Release;
+
+end.

DelphiDocker.Register.pas Src/OpenToolApi/DelphiDocker.Register.pasDelphiDocker.Register.pas renamed to Src/OpenToolApi/DelphiDocker.Register.pas

@@ -1,4 +1,4 @@
-unit DelphiDocker.LocalMenuItem;
+unit OpenToolApi.LocalMenuItem;
 
 interface
 

DelphiDocker.Images.dfm Src/OpenToolApi/OpenToolApi.Images.dfmDelphiDocker.Images.dfm renamed to Src/OpenToolApi/OpenToolApi.Images.dfm

@@ -0,0 +1,36 @@
+unit OpenToolApi.Register;
+
+interface
+
+uses
+  ToolsAPI, Vcl.ComCtrls, OpenToolApi.LocalMenuItem, OpenToolApi.ToolBarItem;
+
+procedure Register;
+
+implementation
+
+procedure AddLocalMenuDocker;
+var
+  LNotifierMenuIndex: Integer;
+begin
+  LNotifierMenuIndex := (BorlandIDEServices as IOTAProjectManager).AddMenuItemCreatorNotifier
+    (TNotifierLocalMenuItem.Create);
+end;
+
+procedure AddToolBarDocker;
+var
+  LToolButton: TToolButton;
+  LToolBarItem: TToolBar;
+begin
+  LToolBarItem := (BorlandIDEServices as INTAServices).ToolBar[sDebugToolBar];
+  LToolButton := TToolBarItem.Create(LToolBarItem);
+  LToolButton.Parent := LToolBarItem;
+end;
+
+procedure Register;
+begin
+  AddLocalMenuDocker;
+  AddToolBarDocker;
+end;
+
+end.

Src/OpenToolApi/OpenToolApi.Images.pas

@@ -0,0 +1,26 @@
+unit OpenToolApi.ToolBarItem;
+
+interface
+
+uses
+  ToolsAPI, Vcl.ComCtrls, System.Classes, OpenToolApi.Images;
+
+type
+
+  TToolBarItem = class(TToolButton)
+  public
+    constructor Create(AOwner: TComponent); reintroduce;
+  end;
+
+implementation
+
+{ TToolBarItem }
+
+constructor TToolBarItem.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  Caption := 'Run With Docker';
+  ImageIndex := TDataModuleImages.GetInstance.IndexDocker;
+end;
+
+end.