Skip to content

Commit 527546e

Browse files
snakeicesnakeice
committed
added test image
1 parent a22efca commit 527546e

8 files changed

+265
-11
lines changed

‎DelphiDocker.Images.dfm‎

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
object DataModule1: TDataModule1
2+
OldCreateOrder = False
3+
Height = 150
4+
Width = 215
5+
end

‎DelphiDocker.Images.dfm.cbk‎

Lines changed: 148 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,148 @@
1+
object DataModuleImages: TDataModuleImages
2+
OldCreateOrder = False
3+
Height = 150
4+
Width = 215
5+
object ImageList1: TImageList
6+
Left = 88
7+
Top = 56
8+
Bitmap = {
9+
494C010101000800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
10+
0000000000003600000028000000400000001000000001002000000000000010
11+
0000000000000000000000000000000000000000000000000000000000000302
12+
0100000000000000000000000000000000000302010001010100000000000000
13+
0000000000000000000000000000000000000000000000000000000000000000
14+
0000000000000000000000000000000000000000000000000000000000000000
15+
0000000000000000000000000000000000000000000000000000000000000000
16+
0000000000000000000000000000000000000000000000000000000000000000
17+
0000000000000000000000000000000000000000000000000000000000000000
18+
0000000000000000000000000000000000000000000000000000000000000000
19+
0000000000000000000000000000000000000000000000000000000000000000
20+
000008060200110B03000B080200000000000000000000000000010101000000
21+
0000000000000000000000000000000000000000000000000000000000000000
22+
0000000000000000000000000000000000000000000000000000000000000000
23+
0000000000000000000000000000000000000000000000000000000000000000
24+
0000000000000000000000000000000000000000000000000000000000000000
25+
0000000000000000000000000000000000000000000000000000000000000000
26+
0000000000000000000000000000000000000000000000000000000000000000
27+
0000000000000000000000000000000000000302010000000000A3702000CF8E
28+
2400CA8A2000C6861C00C7841800CA861600C8831200A96E0E00090601000000
29+
0000000000000000000000000000000000000000000000000000000000000000
30+
0000000000000000000000000000000000000000000000000000000000000000
31+
0000000000000000000000000000000000000000000000000000000000000000
32+
0000000000000000000000000000000000000000000000000000000000000000
33+
0000000000000000000000000000000000000000000000000000000000000000
34+
0000000000000000000000000000000000000000000000000000000000000000
35+
00000000000000000000000000000000000000000000251A0800CF8F2700C184
36+
2300C1841F00C1831D00C0811900BE7E1700BD7D1200C4801100A4690B003421
37+
0300010101000000000000000000000000000000000000000000000000000000
38+
0000000000000000000000000000000000000000000000000000000000000000
39+
0000000000000000000000000000000000000000000000000000000000000000
40+
0000000000000000000000000000000000000000000000000000000000000000
41+
0000000000000000000000000000000000000000000000000000000000000000
42+
0000000000000000000000000000000000000000000000000000000000000000
43+
0000000000000000000000000000000000003F2D0F00D0932E00C68A2800C487
44+
2500C4862000C4851F00C2831B00C2821900C07F1400BF7E1200BD7B0E00BE7B
45+
0C00593904000000000000000000000000000000000000000000000000000000
46+
0000000000000000000000000000000000000000000000000000000000000000
47+
0000000000000000000000000000000000000000000000000000000000000000
48+
0000000000000000000000000000000000000000000000000000000000000000
49+
0000000000000000000000000000000000000000000000000000000000000000
50+
0000000000000000000000000000000000000000000000000000000000000000
51+
0000000000000000000000000000000000007F5A1F00D3953000C5892800C488
52+
2600C4872200C4862000C3831C00C2821900C1801500C07F1300C07D0F00BC7A
53+
0D00C67E0900432B030004030100020201000000000000000000000000000000
54+
0000000000000000000000000000000000000000000000000000000000000000
55+
0000000000000000000000000000000000000000000000000000000000000000
56+
0000000000000000000000000000000000000000000000000000000000000000
57+
0000000000000000000000000000000000000000000000000000000000000000
58+
0000000000000000000000000000000000000000000000000000000000000000
59+
000000000000000000000000000000000000C68D3000CE912F00CE902B00CC8E
60+
2900CC8C2500CB8A2200CB891E00C9871B00CA861600C7831500C7821000C580
61+
0E00BD790B00C17B0800784B0300251801000000000000000000000000000000
62+
0000000000000000000000000000000000000000000000000000000000000000
63+
0000000000000000000000000000000000000000000000000000000000000000
64+
0000000000000000000000000000000000000000000000000000000000000000
65+
0000000000000000000000000000000000000000000000000000000000000000
66+
0000000000000000000000000000000000000000000000000000000000000000
67+
000000000000000000000000000000000000B3823300B2813100A5772A00AA7A
68+
2A00A4742500A9762500A3712000A7742000A16E1C00A7711B00A06C1700A56F
69+
1600C17B0B00BC780900C67D0500BA7402000000000000000000000000000000
70+
0000000000000000000000000000000000000000000000000000000000000000
71+
0000000000000000000000000000000000000000000000000000000000000000
72+
0000000000000000000000000000000000000000000000000000000000000000
73+
0000000000000000000000000000000000000000000000000000000000000000
74+
0000000000000000000000000000000000000000000000000000000000000000
75+
000000000000000000000000000000000000000000000C080200E19E31007C57
76+
1A00EBA32C0077521500E49B24007C531200E3981C00784F0D00E4951500603E
77+
0700BB790D00C47D0A005C3F1000372609000000000000000000000000000000
78+
0000000000000000000000000000000000000000000000000000000000000000
79+
0000000000000000000000000000000000000000000000000000000000000000
80+
0000000000000000000000000000000000000000000000000000000000000000
81+
0000000000000000000000000000000000000000000000000000000000000000
82+
0000000000000000000000000000000000000000000000000000000000000000
83+
000000000000000000000000000000000000000000000D0A0400C08B36006C4E
84+
1D00B8842E005F441700B27D280063451500B27B220061431200C1841F00563A
85+
0D00B7771000CF86110000000000000000000000000000000000000000000000
86+
0000000000000000000000000000000000000000000000000000000000000000
87+
0000000000000000000000000000000000000000000000000000000000000000
88+
0000000000000000000000000000000000000000000000000000000000000000
89+
0000000000000000000000000000000000000000000000000000000000000000
90+
0000000000000000000000000000000000000000000000000000000000000000
91+
0000000000000000000000000000000000000000000000000000000000000E0A
92+
0300E9A3300079551800E49D28007E561500EA9D21006F4B0F00000000000000
93+
0000000000000000000000000000000000000000000000000000000000000000
94+
0000000000000000000000000000000000000000000000000000000000000000
95+
0000000000000000000000000000000000000000000000000000000000000000
96+
0000000000000000000000000000000000000000000000000000000000000000
97+
0000000000000000000000000000000000000000000000000000000000000000
98+
0000000000000000000000000000000000000000000000000000000000000000
99+
0000000000000000000000000000000000000000000000000000000000000D0A
100+
0400C28B320066491A00BE872C0068491700B27C2400563C1100040301000000
101+
0000000000000101010000000000000000000000000000000000000000000000
102+
0000000000000000000000000000000000000000000000000000000000000000
103+
0000000000000000000000000000000000000000000000000000000000000000
104+
0000000000000000000000000000000000000000000000000000000000000000
105+
0000000000000000000000000000000000000000000000000000000000000000
106+
0000000000000000000000000000000000000000000000000000000000000000
107+
0000000000000000000000000000000000000000000000000000000000000000
108+
00000000000000000000000000000E0A0200E39A23006E4A1000040301000000
109+
0000000000000000000000000000000000000000000000000000000000000000
110+
0000000000000000000000000000000000000000000000000000000000000000
111+
0000000000000000000000000000000000000000000000000000000000000000
112+
0000000000000000000000000000000000000000000000000000000000000000
113+
0000000000000000000000000000000000000000000000000000000000000000
114+
0000000000000000000000000000000000000000000000000000000000000000
115+
0000000000000000000000000000000000000000000000000000000000000000
116+
00000101010000000000000000000E0A0300BD8528005D411300030201000000
117+
0000000000000000000000000000000000000000000000000000000000000000
118+
0000000000000000000000000000000000000000000000000000000000000000
119+
0000000000000000000000000000000000000000000000000000000000000000
120+
0000000000000000000000000000000000000000000000000000000000000000
121+
0000000000000000000000000000000000000000000000000000000000000000
122+
0000000000000000000000000000000000000000000000000000000000000000
123+
0000000000000000000000000000000000000000000000000000000000000000
124+
0000000000000000000000000000000000000000000000000000000000000000
125+
0000000000000000000000000000000000000000000000000000000000000000
126+
0000000000000000000000000000000000000000000000000000000000000000
127+
0000000000000000000000000000000000000000000000000000000000000000
128+
0000000000000000000000000000000000000000000000000000000000000000
129+
0000000000000000000000000000000000000000000000000000000000000000
130+
0000000000000000000000000000000000000000000000000000000000000000
131+
0000000000000000000000000000000000000000000000000000000000000000
132+
0000000000000000000000000000000000000101010000000000000000000000
133+
0000000000000000000000000000000000000000000000000000000000000000
134+
0000000000000000000000000000000000000000000000000000000000000000
135+
0000000000000000000000000000000000000000000000000000000000000000
136+
0000000000000000000000000000000000000000000000000000000000000000
137+
0000000000000000000000000000000000000000000000000000000000000000
138+
0000000000000000000000000000000000000000000000000000000000000000
139+
000000000000000000000000000000000000424D3E000000000000003E000000
140+
2800000040000000100000000100010000000000800000000000000000000000
141+
000000000000000000000000FFFFFF0000000000000000000000000000000000
142+
0000000000000000000000000000000000000000000000000000000000000000
143+
0000000000000000000000000000000000000000000000000000000000000000
144+
0000000000000000000000000000000000000000000000000000000000000000
145+
0000000000000000000000000000000000000000000000000000000000000000
146+
000000000000}
147+
end
148+
end

‎DelphiDocker.Images.pas‎

Lines changed: 25 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,25 @@
1+
unit DelphiDocker.Images;
2+
3+
interface
4+
5+
uses
6+
System.SysUtils, System.Classes;
7+
8+
type
9+
TDataModule1 = class(TDataModule)
10+
private
11+
{ Private declarations }
12+
public
13+
{ Public declarations }
14+
end;
15+
16+
var
17+
DataModule1: TDataModule1;
18+
19+
implementation
20+
21+
{%CLASSGROUP 'Vcl.Controls.TControl'}
22+
23+
{$R *.dfm}
24+
25+
end.

‎DelphiDocker.Images.pas.cbk‎

Lines changed: 26 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,26 @@
1+
unit DelphiDocker.Images;
2+
3+
interface
4+
5+
uses
6+
System.SysUtils, System.Classes, System.ImageList, Vcl.ImgList, Vcl.Controls;
7+
8+
type
9+
TDataModuleImages = class(TDataModule)
10+
ImageList1: TImageList;
11+
private
12+
{ Private declarations }
13+
public
14+
{ Public declarations }
15+
end;
16+
17+
var
18+
DataModuleImages: TDataModuleImages;
19+
20+
implementation
21+
22+
{%CLASSGROUP 'Vcl.Controls.TControl'}
23+
24+
{$R *.dfm}
25+
26+
end.

‎DelphiDocker.Register.pas‎

Lines changed: 12 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -9,6 +9,9 @@ procedure Register;
99

1010
implementation
1111

12+
uses
13+
DelphiDocker.Images;
14+
1215
procedure AddLocalMenuDocker;
1316
var
1417
LNotifierMenuIndex: Integer;
@@ -18,15 +21,16 @@ procedure AddLocalMenuDocker;
1821
end;
1922

2023
procedure AddToolBarDocker;
21-
// var
22-
// LToolButton: TToolButton;
23-
// LToolBarItem: TToolBar;
24+
var
25+
LToolButton: TToolButton;
26+
LToolBarItem: TToolBar;
2427
begin
25-
// LToolBarItem := (BorlandIDEServices as INTAServices).ToolBar[sDebugToolBar];
26-
// LToolButton := TToolButton.Create(LToolBarItem);
27-
// LToolButton.Caption := 'Run With Docker';
28-
// LToolButton.
29-
// LToolButton.Parent := LToolBarItem;
28+
DataModuleImages := TDataModuleImages.Create(nil);
29+
LToolBarItem := (BorlandIDEServices as INTAServices).ToolBar[sDebugToolBar];
30+
LToolButton := TToolButton.Create(LToolBarItem);
31+
LToolButton.Caption := 'Run With Docker';
32+
LToolButton.Parent := LToolBarItem;
33+
LToolButton.ImageIndex := (BorlandIDEServices as INTAServices).AddImages(DataModuleImages.ImageList1, 'docker');
3034
end;
3135

3236
procedure Register;

‎delphi_docker.dpk‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -34,6 +34,7 @@ requires
3434

3535
contains
3636
DelphiDocker.Register in 'DelphiDocker.Register.pas',
37-
DelphiDocker.LocalMenuItem in 'DelphiDocker.LocalMenuItem.pas';
37+
DelphiDocker.LocalMenuItem in 'DelphiDocker.LocalMenuItem.pas',
38+
DelphiDocker.Images in 'DelphiDocker.Images.pas' {DataModule1: TDataModule};
3839

3940
end.

‎delphi_docker.dpk.cbk‎

Lines changed: 40 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,40 @@
1+
package delphi_docker;
2+
3+
{$R *.res}
4+
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
5+
{$ALIGN 8}
6+
{$ASSERTIONS ON}
7+
{$BOOLEVAL OFF}
8+
{$DEBUGINFO OFF}
9+
{$EXTENDEDSYNTAX ON}
10+
{$IMPORTEDDATA ON}
11+
{$IOCHECKS ON}
12+
{$LOCALSYMBOLS ON}
13+
{$LONGSTRINGS ON}
14+
{$OPENSTRINGS ON}
15+
{$OPTIMIZATION OFF}
16+
{$OVERFLOWCHECKS OFF}
17+
{$RANGECHECKS OFF}
18+
{$REFERENCEINFO ON}
19+
{$SAFEDIVIDE OFF}
20+
{$STACKFRAMES ON}
21+
{$TYPEDADDRESS OFF}
22+
{$VARSTRINGCHECKS ON}
23+
{$WRITEABLECONST OFF}
24+
{$MINENUMSIZE 1}
25+
{$IMAGEBASE $400000}
26+
{$DEFINE DEBUG}
27+
{$ENDIF IMPLICITBUILDING}
28+
{$DESIGNONLY}
29+
{$IMPLICITBUILD ON}
30+
31+
requires
32+
rtl,
33+
designide;
34+
35+
contains
36+
DelphiDocker.Register in 'DelphiDocker.Register.pas',
37+
DelphiDocker.LocalMenuItem in 'DelphiDocker.LocalMenuItem.pas',
38+
DelphiDocker.Images in 'DelphiDocker.Images.pas' {DataModuleImages: TDataModule};
39+
40+
end.

‎delphi_docker.dproj‎

Lines changed: 7 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22
<PropertyGroup>
33
<ProjectGuid>{CC69F17C-E429-4154-899A-E9F0ACA9841F}</ProjectGuid>
44
<MainSource>delphi_docker.dpk</MainSource>
5-
<ProjectVersion>18.5</ProjectVersion>
5+
<ProjectVersion>18.6</ProjectVersion>
66
<FrameworkType>VCL</FrameworkType>
77
<Base>True</Base>
88
<Config Condition="'$(Config)'==''">Debug</Config>
@@ -97,6 +97,11 @@
9797
<DCCReference Include="designide.dcp"/>
9898
<DCCReference Include="DelphiDocker.Register.pas"/>
9999
<DCCReference Include="DelphiDocker.LocalMenuItem.pas"/>
100+
<DCCReference Include="DelphiDocker.Images.pas">
101+
<Form>DataModule1</Form>
102+
<FormType>dfm</FormType>
103+
<DesignClass>TDataModule</DesignClass>
104+
</DCCReference>
100105
<BuildConfiguration Include="Release">
101106
<Key>Cfg_2</Key>
102107
<CfgParent>Base</CfgParent>
@@ -149,7 +154,7 @@
149154
<Overwrite>true</Overwrite>
150155
</Platform>
151156
</DeployFile>
152-
<DeployFile LocalName="..\..\..\..\Public\Documents\Embarcadero\Studio\20.0\Bpl\delphi_docker.bpl" Configuration="Debug" Class="ProjectOutput">
157+
<DeployFile LocalName="Win32\Debug\delphi_docker.bpl" Configuration="Debug" Class="ProjectOutput">
153158
<Platform Name="Win32">
154159
<RemoteName>delphi_docker.bpl</RemoteName>
155160
<Overwrite>true</Overwrite>

0 commit comments

Comments
 (0)