Skip to content

Commit e6deb6f

Browse files
author
César Cardoso
committed
feature/fif-toolsbars
1 parent 6b017c9 commit e6deb6f

18 files changed

Lines changed: 509 additions & 154 deletions

‎Package/C4DWizard.dpk‎

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -131,6 +131,9 @@ contains
131131
C4D.Wizard.FormatSource.View in '..\Src\FormatSource\C4D.Wizard.FormatSource.View.pas' {C4DWizardFormatSourceView},
132132
C4D.Wizard.Notes.View in '..\Src\Notes\C4D.Wizard.Notes.View.pas' {C4DWizardNotesView},
133133
C4D.Wizard.Utils.OTA.Codex in '..\Src\Utils\C4D.Wizard.Utils.OTA.Codex.pas',
134-
C4D.Wizard.VsCodeIntegration in '..\Src\VsCodeIntegration\C4D.Wizard.VsCodeIntegration.pas';
134+
C4D.Wizard.VsCodeIntegration in '..\Src\VsCodeIntegration\C4D.Wizard.VsCodeIntegration.pas',
135+
C4D.Wizard.IDE.ToolBars.VsCodeIntegration in '..\Src\IDE\ToolBars\C4D.Wizard.IDE.ToolBars.VsCodeIntegration.pas',
136+
C4D.Wizard.IDE.ToolBars.Utils in '..\Src\IDE\ToolBars\C4D.Wizard.IDE.ToolBars.Utils.pas',
137+
C4D.Wizard.IDE.MainMenu.VsCodeIntegration in '..\Src\IDE\MainMenu\C4D.Wizard.IDE.MainMenu.VsCodeIntegration.pas';
135138

136139
end.

‎Package/C4DWizard.dproj‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -293,6 +293,9 @@
293293
</DCCReference>
294294
<DCCReference Include="..\Src\Utils\C4D.Wizard.Utils.OTA.Codex.pas"/>
295295
<DCCReference Include="..\Src\VsCodeIntegration\C4D.Wizard.VsCodeIntegration.pas"/>
296+
<DCCReference Include="..\Src\IDE\ToolBars\C4D.Wizard.IDE.ToolBars.VsCodeIntegration.pas"/>
297+
<DCCReference Include="..\Src\IDE\ToolBars\C4D.Wizard.IDE.ToolBars.Utils.pas"/>
298+
<DCCReference Include="..\Src\IDE\MainMenu\C4D.Wizard.IDE.MainMenu.VsCodeIntegration.pas"/>
296299
<RcItem Include="Img\C4D_Logo.bmp">
297300
<ResourceType>BITMAP</ResourceType>
298301
<ResourceId>C4D_Logo</ResourceId>

‎Src/Consts/C4D.Wizard.Consts.pas‎

Lines changed: 14 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -103,8 +103,12 @@ TC4DConsts = class
103103
MENU_IDE_FormatSource_CAPTION = 'Format Source';
104104
MENU_IDE_NOTES_NAME = 'C4DWizarNotes1';
105105
MENU_IDE_NOTES_CAPTION = 'Notes';
106-
MENU_IDE_OPEN_IN_VSCODE_NAME = 'C4DWizarOpenInVsCode1';
107-
MENU_IDE_OPEN_IN_VSCODE_CAPTION = 'Open In VS Code';
106+
MENU_IDE_VSCODE_INTEGRATION_NAME = 'C4DWizarVsCodeIntegration1';
107+
MENU_IDE_VSCODE_INTEGRATION_CAPTION = 'Vs Code Integration';
108+
MENU_IDE_VSCODE_INTEGRATION_OPEN_NAME = 'C4DWizarVsCodeIntegrationOpen1';
109+
MENU_IDE_VSCODE_INTEGRATION_OPEN_CAPTION = 'Open In VS Code';
110+
MENU_IDE_VSCODE_INTEGRATION_INSTALL_DELPHILSP_NAME = 'C4DWizarVsCodeIntegrationInstallDelphiLSP1';
111+
MENU_IDE_VSCODE_INTEGRATION_INSTALL_DELPHILSP_CAPTION = 'Install DelphiLSP extension in VS Code';
108112

109113
//FILE .INI REOPEN
110114
REOPEN_INI_Favorite = 'Favorite';
@@ -168,13 +172,19 @@ TC4DConsts = class
168172
//TOOLBAR UTILITIES
169173
TOOL_BAR_UTILITIES_NAME = 'C4DToolBarUtilities';
170174
TOOL_BAR_UTILITIES_CAPTION = 'C4D Utilities';
171-
TOOL_BAR_UTILITIES_TOOL_BUTTON_OpenInVsCode_NAME = 'C4DToolButtoUtilitiesOpenInVsCode';
172-
TOOL_BAR_UTILITIES_TOOL_BUTTON_OpenInVsCode_CAPTION = 'Open In VS Code';
173175
TOOL_BAR_UTILITIES_TOOL_BUTTON_UnitInReadOnly_NAME = 'C4DToolButtoUtilitiesUnitInReadOnly';
174176
TOOL_BAR_UTILITIES_TOOL_BUTTON_GithubDesktop_NAME = 'C4DToolButtonUtilitiesGithubDesktop';
175177
//TOOLBAR UTILITIES INI
176178
TOOL_BAR_UTILITIES_INI_Visible = 'Visible';
177179

180+
//TOOLBAR VS Code Integration
181+
TOOL_BAR_VsCodeIntegration_NAME = 'C4DToolBarVsCodeIntegration';
182+
TOOL_BAR_VsCodeIntegration_CAPTION = 'C4D VS Code Integration';
183+
TOOL_BAR_VsCodeIntegration_TOOL_BUTTON_OpenInVsCode_NAME = 'C4DToolButtoVsCodeIntegrationOpen';
184+
TOOL_BAR_VsCodeIntegration_TOOL_BUTTON_OpenInVsCode_CAPTION = 'Open In VS Code';
185+
//TOOLBAR VS Code Integration INI
186+
TOOL_BAR_VsCodeIntegration_INI_Visible = 'Visible';
187+
178188
EXTENSIONS_PERMITTED_BACKUP_EXPORT: TC4DExtensionsOfFiles = [TC4DExtensionsFiles.INI,
179189
TC4DExtensionsFiles.BMP];
180190

‎Src/IDE/MainMenu/C4D.Wizard.IDE.MainMenu.Backup.pas‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,7 @@ interface
99
C4D.Wizard.Backup.Interfaces;
1010

1111
type
12-
TC4DWizardIDEMainMenuBakcups = class(TInterfacedObject, IC4DWizardIDEMainMenuBackup)
12+
TC4DWizardIDEMainMenuBackup = class(TInterfacedObject, IC4DWizardIDEMainMenuBackup)
1313
private
1414
FMenuItemC4D: TMenuItem;
1515
FMenuItemSave: TMenuItem;
@@ -30,24 +30,24 @@ implementation
3030
C4D.Wizard.IDE.ImageListMain,
3131
C4D.Wizard.IDE.MainMenu.Clicks;
3232

33-
class function TC4DWizardIDEMainMenuBakcups.New(AMenuItemParent: TMenuItem): IC4DWizardIDEMainMenuBackup;
33+
class function TC4DWizardIDEMainMenuBackup.New(AMenuItemParent: TMenuItem): IC4DWizardIDEMainMenuBackup;
3434
begin
3535
Result := Self.Create(AMenuItemParent);
3636
end;
3737

38-
constructor TC4DWizardIDEMainMenuBakcups.Create(AMenuItemParent: TMenuItem);
38+
constructor TC4DWizardIDEMainMenuBackup.Create(AMenuItemParent: TMenuItem);
3939
begin
4040
FMenuItemC4D := AMenuItemParent;
4141
end;
4242

43-
function TC4DWizardIDEMainMenuBakcups.Process: IC4DWizardIDEMainMenuBackup;
43+
function TC4DWizardIDEMainMenuBackup.Process: IC4DWizardIDEMainMenuBackup;
4444
begin
4545
Self.AddMenuItemSave;
4646
Self.AddMenuItemExport;
4747
Self.AddMenuItemImport;
4848
end;
4949

50-
procedure TC4DWizardIDEMainMenuBakcups.AddMenuItemSave;
50+
procedure TC4DWizardIDEMainMenuBackup.AddMenuItemSave;
5151
begin
5252
FMenuItemSave := TMenuItem.Create(FMenuItemC4D);
5353
FMenuItemSave.Name := TC4DConsts.MENU_IDE_BACKUP_NAME;
@@ -56,7 +56,7 @@ procedure TC4DWizardIDEMainMenuBakcups.AddMenuItemSave;
5656
FMenuItemC4D.Add(FMenuItemSave);
5757
end;
5858

59-
procedure TC4DWizardIDEMainMenuBakcups.AddMenuItemExport;
59+
procedure TC4DWizardIDEMainMenuBackup.AddMenuItemExport;
6060
var
6161
LItemExport: TMenuItem;
6262
begin
@@ -68,7 +68,7 @@ procedure TC4DWizardIDEMainMenuBakcups.AddMenuItemExport;
6868
FMenuItemSave.Add(LItemExport);
6969
end;
7070

71-
procedure TC4DWizardIDEMainMenuBakcups.AddMenuItemImport;
71+
procedure TC4DWizardIDEMainMenuBackup.AddMenuItemImport;
7272
var
7373
LItemImport: TMenuItem;
7474
begin

‎Src/IDE/MainMenu/C4D.Wizard.IDE.MainMenu.Clicks.pas‎

Lines changed: 8 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -21,7 +21,8 @@ TC4DWizardIDEMainMenuClicks = class
2121
class procedure FindClick(Sender: TObject);
2222
class procedure ReplaceClick(Sender: TObject);
2323
class procedure NotesClick(Sender: TObject);
24-
class procedure OpenInVsCodeClick(Sender: TObject);
24+
class procedure VsCodeIntegrationOpenInVsCodeClick(Sender: TObject);
25+
class procedure VsCodeIntegrationInstallDelphiLSPClick(Sender: TObject);
2526
class procedure DefaultFilesInOpeningProjectClick(Sender: TObject);
2627
class procedure BackupExportClick(Sender: TObject);
2728
class procedure BackupImportClick(Sender: TObject);
@@ -134,11 +135,16 @@ class procedure TC4DWizardIDEMainMenuClicks.NotesClick(Sender: TObject);
134135
C4D.Wizard.Notes.View.C4DWizardNotesViewShowDockableForm;
135136
end;
136137

137-
class procedure TC4DWizardIDEMainMenuClicks.OpenInVsCodeClick(Sender: TObject);
138+
class procedure TC4DWizardIDEMainMenuClicks.VsCodeIntegrationOpenInVsCodeClick(Sender: TObject);
138139
begin
139140
TC4DWizardVsCodeIntegration.Open;
140141
end;
141142

143+
class procedure TC4DWizardIDEMainMenuClicks.VsCodeIntegrationInstallDelphiLSPClick(Sender: TObject);
144+
begin
145+
TC4DWizardVsCodeIntegration.InstallDelphiLSP;
146+
end;
147+
142148
class procedure TC4DWizardIDEMainMenuClicks.DefaultFilesInOpeningProjectClick(Sender: TObject);
143149
begin
144150
TC4DWizardDefaultFilesInOpeningProject

‎Src/IDE/MainMenu/C4D.Wizard.IDE.MainMenu.VsCodeIntegration.pas‎

Lines changed: 112 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,112 @@
1+
unit C4D.Wizard.IDE.MainMenu.VsCodeIntegration;
2+
3+
interface
4+
5+
uses
6+
System.SysUtils,
7+
System.Classes,
8+
VCL.Menus;
9+
10+
type
11+
IC4DWizardIDEMainMenuVsCodeIntegration = interface
12+
['{9B729013-F7A2-4B98-AC35-994E236682A0}']
13+
function Process: IC4DWizardIDEMainMenuVsCodeIntegration;
14+
end;
15+
16+
TC4DWizardIDEMainMenuVsCodeIntegration = class(TInterfacedObject, IC4DWizardIDEMainMenuVsCodeIntegration)
17+
private
18+
FMenuItemC4D: TMenuItem;
19+
FMenuItemVsCodeIntegration: TMenuItem;
20+
procedure AddMenuVsCodeIntegration;
21+
procedure AddSubMenuItemOpen;
22+
procedure AddSubMenuInstallDelphiLSP;
23+
procedure AddSeparator(AName: string);
24+
function GetShortcutOpenInVsCode: string;
25+
protected
26+
function Process: IC4DWizardIDEMainMenuVsCodeIntegration;
27+
public
28+
class function New(AMenuItemParent: TMenuItem): IC4DWizardIDEMainMenuVsCodeIntegration;
29+
constructor Create(AMenuItemParent: TMenuItem);
30+
end;
31+
32+
implementation
33+
34+
uses
35+
C4D.Wizard.Consts,
36+
C4D.Wizard.Utils,
37+
C4D.Wizard.IDE.ImageListMain,
38+
C4D.Wizard.IDE.MainMenu.Clicks,
39+
C4D.Wizard.Settings.Model;
40+
41+
class function TC4DWizardIDEMainMenuVsCodeIntegration.New(AMenuItemParent: TMenuItem): IC4DWizardIDEMainMenuVsCodeIntegration;
42+
begin
43+
Result := Self.Create(AMenuItemParent);
44+
end;
45+
46+
constructor TC4DWizardIDEMainMenuVsCodeIntegration.Create(AMenuItemParent: TMenuItem);
47+
begin
48+
FMenuItemC4D := AMenuItemParent;
49+
end;
50+
51+
function TC4DWizardIDEMainMenuVsCodeIntegration.Process: IC4DWizardIDEMainMenuVsCodeIntegration;
52+
begin
53+
Self.AddMenuVsCodeIntegration;
54+
Self.AddSubMenuItemOpen;
55+
Self.AddSeparator('C4DVsCodeIntegrationSeparator01');
56+
Self.AddSubMenuInstallDelphiLSP;
57+
end;
58+
59+
procedure TC4DWizardIDEMainMenuVsCodeIntegration.AddSeparator(AName: string);
60+
var
61+
LMenuItem: TMenuItem;
62+
begin
63+
LMenuItem := TMenuItem.Create(FMenuItemVsCodeIntegration);
64+
LMenuItem.Name := AName;
65+
LMenuItem.Caption := '-';
66+
LMenuItem.ImageIndex := -1;
67+
LMenuItem.OnClick := nil;
68+
FMenuItemVsCodeIntegration.Add(LMenuItem);
69+
end;
70+
71+
procedure TC4DWizardIDEMainMenuVsCodeIntegration.AddMenuVsCodeIntegration;
72+
begin
73+
FMenuItemVsCodeIntegration := TMenuItem.Create(FMenuItemC4D);
74+
FMenuItemVsCodeIntegration.Name := TC4DConsts.MENU_IDE_VSCODE_INTEGRATION_NAME;
75+
FMenuItemVsCodeIntegration.Caption := TC4DConsts.MENU_IDE_VSCODE_INTEGRATION_CAPTION;
76+
FMenuItemVsCodeIntegration.ImageIndex := TC4DWizardIDEImageListMain.GetInstance.ImgIndexVsCode;
77+
FMenuItemC4D.Add(FMenuItemVsCodeIntegration);
78+
end;
79+
80+
procedure TC4DWizardIDEMainMenuVsCodeIntegration.AddSubMenuItemOpen;
81+
var
82+
LMenuItem: TMenuItem;
83+
begin
84+
LMenuItem := TMenuItem.Create(FMenuItemVsCodeIntegration);
85+
LMenuItem.Name := TC4DConsts.MENU_IDE_VSCODE_INTEGRATION_OPEN_NAME;
86+
LMenuItem.Caption := TC4DConsts.MENU_IDE_VSCODE_INTEGRATION_OPEN_CAPTION;
87+
LMenuItem.ImageIndex := TC4DWizardIDEImageListMain.GetInstance.ImgIndexVsCode;
88+
LMenuItem.OnClick := TC4DWizardIDEMainMenuClicks.VsCodeIntegrationOpenInVsCodeClick;
89+
LMenuItem.ShortCut := TextToShortCut(TC4DWizardUtils.RemoveSpacesAll(Self.GetShortcutOpenInVsCode));
90+
FMenuItemVsCodeIntegration.Add(LMenuItem);
91+
end;
92+
93+
procedure TC4DWizardIDEMainMenuVsCodeIntegration.AddSubMenuInstallDelphiLSP;
94+
var
95+
LMenuItem: TMenuItem;
96+
begin
97+
LMenuItem := TMenuItem.Create(FMenuItemVsCodeIntegration);
98+
LMenuItem.Name := TC4DConsts.MENU_IDE_VSCODE_INTEGRATION_INSTALL_DELPHILSP_NAME;
99+
LMenuItem.Caption := TC4DConsts.MENU_IDE_VSCODE_INTEGRATION_INSTALL_DELPHILSP_CAPTION;
100+
LMenuItem.ImageIndex := TC4DWizardIDEImageListMain.GetInstance.ImgIndexImport;
101+
LMenuItem.OnClick := TC4DWizardIDEMainMenuClicks.VsCodeIntegrationInstallDelphiLSPClick;
102+
FMenuItemVsCodeIntegration.Add(LMenuItem);
103+
end;
104+
105+
function TC4DWizardIDEMainMenuVsCodeIntegration.GetShortcutOpenInVsCode: string;
106+
begin
107+
Result := '';
108+
if(C4DWizardSettingsModel.ShortcutVsCodeIntegrationOpenUse)and(not C4DWizardSettingsModel.ShortcutVsCodeIntegrationOpen.Trim.IsEmpty)then
109+
Result := C4DWizardSettingsModel.ShortcutVsCodeIntegrationOpen.Trim;
110+
end;
111+
112+
end.

‎Src/IDE/MainMenu/C4D.Wizard.IDE.MainMenu.pas‎

Lines changed: 4 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -24,7 +24,6 @@ TC4DWizardIDEMainMenu = class(TInterfacedObject, IC4DWizardIDEMainMenu)
2424
function GetShortcutIndent: string;
2525
function GetShortcutReplace: string;
2626
function GetShortcutNotes: string;
27-
function GetShortcutOpenInVsCode: string;
2827
function GetShortcutFind: string;
2928
function GetShortcutDefaultFilesInOpeningProject: string;
3029
protected
@@ -44,7 +43,8 @@ implementation
4443
C4D.Wizard.Settings.Model,
4544
C4D.Wizard.IDE.MainMenu.OpenExternal,
4645
C4D.Wizard.IDE.ImageListMain,
47-
C4D.Wizard.IDE.MainMenu.Backup;
46+
C4D.Wizard.IDE.MainMenu.Backup,
47+
C4D.Wizard.IDE.MainMenu.VsCodeIntegration;
4848

4949
var
5050
Instance: IC4DWizardIDEMainMenu;
@@ -121,11 +121,7 @@ procedure TC4DWizardIDEMainMenu.CreateMenus;
121121
TC4DWizardIDEImageListMain.GetInstance.ImgIndexNotes,
122122
Self.GetShortcutNotes);
123123

124-
Self.CreateSubMenu(TC4DConsts.MENU_IDE_OPEN_IN_VSCODE_NAME,
125-
TC4DConsts.MENU_IDE_OPEN_IN_VSCODE_CAPTION,
126-
TC4DWizardIDEMainMenuClicks.OpenInVsCodeClick,
127-
TC4DWizardIDEImageListMain.GetInstance.ImgIndexVsCode,
128-
Self.GetShortcutOpenInVsCode);
124+
TC4DWizardIDEMainMenuVsCodeIntegration.New(FMenuItemC4D).Process;
129125

130126
Self.CreateSubMenu('C4DSeparator50', '-', nil);
131127
Self.CreateSubMenu(TC4DConsts.ITEM_MENU_DefaultFilesInOpeningProject_NAME,
@@ -140,7 +136,7 @@ procedure TC4DWizardIDEMainMenu.CreateMenus;
140136
TC4DWizardIDEMainMenuClicks.SettingsClick,
141137
TC4DWizardIDEImageListMain.GetInstance.ImgIndexGear);
142138

143-
TC4DWizardIDEMainMenuBakcups.New(FMenuItemC4D).Process;
139+
TC4DWizardIDEMainMenuBackup.New(FMenuItemC4D).Process;
144140

145141
Self.CreateSubMenu('C4DSeparator70', '-', nil);
146142
Self.CreateSubMenu(TC4DConsts.ITEM_MENU_OpenInGitHubDesktop_NAME,
@@ -282,13 +278,6 @@ function TC4DWizardIDEMainMenu.GetShortcutNotes: string;
282278
Result := C4DWizardSettingsModel.ShortcutNotes.Trim;
283279
end;
284280

285-
function TC4DWizardIDEMainMenu.GetShortcutOpenInVsCode: string;
286-
begin
287-
Result := '';
288-
// if(C4DWizardSettingsModel.ShortcutNotesUse)and(not C4DWizardSettingsModel.ShortcutNotes.Trim.IsEmpty)then
289-
// Result := C4DWizardSettingsModel.ShortcutNotes.Trim;
290-
end;
291-
292281
function TC4DWizardIDEMainMenu.GetShortcutDefaultFilesInOpeningProject: string;
293282
begin
294283
Result := '';

‎Src/IDE/ToolBars/C4D.Wizard.IDE.ToolBars.Branch.pas‎

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -133,9 +133,7 @@ procedure TC4DWizardIDEToolBarsBranch.NewToolBarC4D;
133133
begin
134134
Self.RemoveToolBarC4D;
135135
FToolBarBranch := FINTAServices.NewToolbar(TC4DConsts.TOOL_BAR_BRANCH_NAME,
136-
TC4DConsts.TOOL_BAR_BRANCH_CAPTION,
137-
Self.GetReferenceToolBar,
138-
True);
136+
TC4DConsts.TOOL_BAR_BRANCH_CAPTION, Self.GetReferenceToolBar, True);
139137
FToolBarBranch.Visible := False;
140138
FToolBarBranch.EdgeInner := esNone;
141139
FToolBarBranch.EdgeOuter := esNone;

‎Src/IDE/ToolBars/C4D.Wizard.IDE.ToolBars.Build.pas‎

Lines changed: 2 additions & 34 deletions
Original file line numberDiff line numberDiff line change
@@ -28,7 +28,6 @@ TC4DWizardIDEToolBarsBuild = class
2828
procedure RemoveToolBarBuild;
2929
procedure AddComboBoxBuild;
3030
procedure FillComboBoxBuild;
31-
function GetReferenceToolBar: string;
3231
function GetIniFile: TIniFile;
3332
procedure ComboBoxClick(Sender: TObject);
3433
procedure AddButtonBuildAllGroup;
@@ -59,6 +58,7 @@ implementation
5958
C4D.Wizard.Consts,
6059
C4D.Wizard.Utils,
6160
C4D.Wizard.Utils.OTA,
61+
C4D.Wizard.IDE.ToolBars.Utils,
6262
C4D.Wizard.IDE.ImageListMain;
6363

6464
const
@@ -108,43 +108,11 @@ function TC4DWizardIDEToolBarsBuild.GetVisibleInINI: Boolean;
108108
True);
109109
end;
110110

111-
function TC4DWizardIDEToolBarsBuild.GetReferenceToolBar: string;
112-
var
113-
LStandardToolBar: TToolBar;
114-
LControlBar: TControlBar;
115-
LControl: TControl;
116-
i: integer;
117-
LBiggerLeft: integer;
118-
begin
119-
Result := sBrowserToolbar;
120-
121-
if(FINTAServices.ToolBar[TC4DConsts.TOOL_BAR_BRANCH_NAME] <> nil)then
122-
Result := TC4DConsts.TOOL_BAR_BRANCH_NAME;
123-
124-
LStandardToolBar := FINTAServices.ToolBar[sStandardToolBar];
125-
if(not Assigned(LStandardToolBar))then
126-
Exit;
127-
LControlBar := LStandardToolBar.Parent as TControlBar;
128-
129-
LBiggerLeft := 0;
130-
for i := 0 to Pred(LControlBar.ControlCount) do
131-
begin
132-
LControl := LControlBar.Controls[i];
133-
if(LControl.Visible)and(LControl.Left > LBiggerLeft)then
134-
begin
135-
Result := LControl.Name;
136-
LBiggerLeft := LControl.Left;
137-
end;
138-
end;
139-
end;
140-
141111
procedure TC4DWizardIDEToolBarsBuild.NewToolBarBuild;
142112
begin
143113
Self.RemoveToolBarBuild;
144114
FToolBarBuild := FINTAServices.NewToolbar(TC4DConsts.TOOL_BAR_BUILD_NAME,
145-
TC4DConsts.TOOL_BAR_BUILD_CAPTION,
146-
Self.GetReferenceToolBar,
147-
True);
115+
TC4DConsts.TOOL_BAR_BUILD_CAPTION, TC4DWizardIDEToolBarsUtils.GetReferenceToolbarName, True);
148116
FToolBarBuild.Visible := False;
149117
FToolBarBuild.Flat := True;
150118
FToolBarBuild.Images := TC4DWizardUtilsOTA.GetINTAServices.ImageList;

0 commit comments

Comments
 (0)