paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 18:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Rename Toolbar_options -> IdeCoolbar_options.

Browse Source 
git-svn-id: trunk@49393 -
This commit is contained in:
juha 2015-06-21 17:31:13 +00:00
parent f3e3b26250
commit 99ba2360a7
4 changed files with 97 additions and 97 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored
View File

@ -5737,6 +5737,8 @@ ide/frames/fpdoc_options.lfm svneol=native#text/plain
ide/frames/fpdoc_options.pas svneol=native#text/pascal ide/frames/fpdoc_options.pas svneol=native#text/pascal
ide/frames/help_general_options.lfm svneol=native#text/plain ide/frames/help_general_options.lfm svneol=native#text/plain
ide/frames/help_general_options.pas svneol=native#text/plain ide/frames/help_general_options.pas svneol=native#text/plain
ide/frames/idecoolbar_options.lfm svneol=native#text/plain
ide/frames/idecoolbar_options.pas svneol=native#text/pascal
ide/frames/modematrixctrl.pas svneol=native#text/plain ide/frames/modematrixctrl.pas svneol=native#text/plain
ide/frames/msgwnd_options.lfm svneol=native#text/plain ide/frames/msgwnd_options.lfm svneol=native#text/plain
ide/frames/msgwnd_options.pas svneol=native#text/plain ide/frames/msgwnd_options.pas svneol=native#text/plain
@ -5760,8 +5762,6 @@ ide/frames/project_save_options.lfm svneol=native#text/plain
ide/frames/project_save_options.pas svneol=native#text/plain ide/frames/project_save_options.pas svneol=native#text/plain
ide/frames/project_versioninfo_options.lfm svneol=native#text/plain ide/frames/project_versioninfo_options.lfm svneol=native#text/plain
ide/frames/project_versioninfo_options.pas svneol=native#text/plain ide/frames/project_versioninfo_options.pas svneol=native#text/plain
ide/frames/toolbar_options.lfm svneol=native#text/plain
ide/frames/toolbar_options.pas svneol=native#text/pascal
ide/frames/window_options.lfm svneol=native#text/plain ide/frames/window_options.lfm svneol=native#text/plain
ide/frames/window_options.pas svneol=native#text/pascal ide/frames/window_options.pas svneol=native#text/pascal
ide/frmcustomapplicationoptions.lfm svneol=native#text/plain ide/frmcustomapplicationoptions.lfm svneol=native#text/plain

122
ide/frames/toolbar_options.lfm → ide/frames/idecoolbar_options.lfm
View File

@ -1,4 +1,4 @@
object ToolbarOptionsFrame: TToolbarOptionsFrame object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
Left = 0 Left = 0
Height = 451 Height = 451
Top = 0 Top = 0
@ -17,13 +17,13 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 264 Height = 251
Top = 187 Top = 200
Width = 520 Width = 520
Align = alClient Align = alClient
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 264 ClientHeight = 251
ClientWidth = 520 ClientWidth = 520
Constraints.MinHeight = 115 Constraints.MinHeight = 115
TabOrder = 1 TabOrder = 1
@ -34,7 +34,7 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 35 Height = 35
Top = 229 Top = 216
Width = 520 Width = 520
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
@ -48,9 +48,9 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideBottom.Control = pnButtons AnchorSideBottom.Control = pnButtons
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 27
Top = 6 Top = 2
Width = 45 Width = 36
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -64,10 +64,10 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = pnButtons AnchorSideBottom.Control = pnButtons
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 120 Left = 105
Height = 23 Height = 27
Top = 6 Top = 2
Width = 57 Width = 50
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -81,10 +81,10 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = pnButtons AnchorSideBottom.Control = pnButtons
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 57 Left = 48
Height = 23 Height = 27
Top = 6 Top = 2
Width = 57 Width = 51
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -98,10 +98,10 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnButtons AnchorSideBottom.Control = pnButtons
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 453 Left = 459
Height = 23 Height = 27
Top = 6 Top = 2
Width = 61 Width = 55
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -113,14 +113,14 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
end end
object sbCoolBar: TScrollBox object sbCoolBar: TScrollBox
Left = 0 Left = 0
Height = 201 Height = 188
Top = 0 Top = 0
Width = 520 Width = 520
HorzScrollBar.Page = 75 HorzScrollBar.Page = 75
VertScrollBar.Page = 25 VertScrollBar.Page = 22
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderStyle = bsNone BorderStyle = bsNone
ClientHeight = 201 ClientHeight = 188
ClientWidth = 520 ClientWidth = 520
Constraints.MinHeight = 75 Constraints.MinHeight = 75
TabOrder = 0 TabOrder = 0
@ -149,19 +149,19 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
end end
object pnTop: TPanel object pnTop: TPanel
Left = 0 Left = 0
Height = 168 Height = 179
Top = 0 Top = 0
Width = 520 Width = 520
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 168 ClientHeight = 179
ClientWidth = 520 ClientWidth = 520
Constraints.MinWidth = 350 Constraints.MinWidth = 350
TabOrder = 0 TabOrder = 0
object dbGeneralSettings: TDividerBevel object dbGeneralSettings: TDividerBevel
Left = 0 Left = 0
Height = 13 Height = 15
Top = 5 Top = 5
Width = 520 Width = 520
Caption = 'General Coolbars Settings' Caption = 'General Coolbars Settings'
@ -178,25 +178,25 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnTopCenterLabel AnchorSideRight.Control = pnTopCenterLabel
Left = 0 Left = 0
Height = 78 Height = 80
Top = 55 Top = 60
Width = 257 Width = 257
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 3 BorderSpacing.Right = 3
Caption = 'Grab Style' Caption = 'Grab Style'
ClientHeight = 60 ClientHeight = 64
ClientWidth = 253 ClientWidth = 255
TabOrder = 1 TabOrder = 1
object lbGrabWidth: TLabel object lbGrabWidth: TLabel
AnchorSideTop.Control = spGrabWidth AnchorSideTop.Control = spGrabWidth
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = spGrabWidth AnchorSideRight.Control = spGrabWidth
Left = 107 Left = 94
Height = 13 Height = 15
Top = 37 Top = 40
Width = 58 Width = 73
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Grab Width:' Caption = 'Grab Width:'
@ -207,9 +207,9 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbGrabStyle AnchorSideRight.Control = gbGrabStyle
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 171 Left = 173
Height = 21 Height = 21
Top = 33 Top = 37
Width = 76 Width = 76
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -225,12 +225,12 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideRight.Control = gbGrabStyle AnchorSideRight.Control = gbGrabStyle
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 21 Height = 25
Top = 6 Top = 6
Width = 241 Width = 243
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 13 ItemHeight = 0
ItemIndex = 1 ItemIndex = 1
Items.Strings = ( Items.Strings = (
'gsSimple' 'gsSimple'
@ -253,10 +253,10 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnTop AnchorSideBottom.Control = pnTop
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 453 Left = 459
Height = 23 Height = 27
Top = 139 Top = 146
Width = 61 Width = 55
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -269,9 +269,9 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideTop.Control = dbGeneralSettings AnchorSideTop.Control = dbGeneralSettings
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 17 Height = 22
Top = 30 Top = 32
Width = 97 Width = 123
BorderSpacing.Top = 12 BorderSpacing.Top = 12
Caption = 'Coolbar is visible' Caption = 'Coolbar is visible'
OnClick = cbCoolBarVisibleClick OnClick = cbCoolBarVisibleClick
@ -286,15 +286,15 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideBottom.Control = gbGrabStyle AnchorSideBottom.Control = gbGrabStyle
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 263 Left = 263
Height = 78 Height = 80
Top = 55 Top = 60
Width = 257 Width = 257
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'Band Border Style' Caption = 'Band Border Style'
ClientHeight = 60 ClientHeight = 64
ClientWidth = 253 ClientWidth = 255
TabOrder = 2 TabOrder = 2
object cbBorderStyle: TComboBox object cbBorderStyle: TComboBox
AnchorSideLeft.Control = gbBorderStyle AnchorSideLeft.Control = gbBorderStyle
@ -302,12 +302,12 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideRight.Control = gbBorderStyle AnchorSideRight.Control = gbBorderStyle
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 21 Height = 25
Top = 6 Top = 6
Width = 241 Width = 243
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 13 ItemHeight = 0
ItemIndex = 1 ItemIndex = 1
Items.Strings = ( Items.Strings = (
'None' 'None'
@ -324,10 +324,10 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbCoolBarVisible AnchorSideTop.Control = cbCoolBarVisible
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 129 Left = 155
Height = 13 Height = 15
Top = 32 Top = 36
Width = 66 Width = 83
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Left = 32 BorderSpacing.Left = 32
Caption = 'Coolbar width' Caption = 'Coolbar width'
@ -338,9 +338,9 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lbCoolBarWidth AnchorSideTop.Control = lbCoolBarWidth
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 201 Left = 244
Height = 21 Height = 21
Top = 28 Top = 33
Width = 64 Width = 64
BorderSpacing.Left = 6 BorderSpacing.Left = 6
MaxValue = 5000 MaxValue = 5000
@ -366,8 +366,8 @@ object ToolbarOptionsFrame: TToolbarOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 13 Height = 15
Top = 168 Top = 179
Width = 520 Width = 520
Caption = 'Add/Config/Delete Toolbar(s)' Caption = 'Add/Config/Delete Toolbar(s)'
Align = alTop Align = alTop

64
ide/frames/toolbar_options.pas → ide/frames/idecoolbar_options.pas
View File

@ -19,9 +19,9 @@
*************************************************************************** ***************************************************************************
Author: Balázs Székely Author: Balázs Székely
Abstract: Abstract:
Frame for toolbar options. Frame for IDE Coolbar options.
} }
unit toolbar_options; unit idecoolbar_options;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -34,9 +34,9 @@ uses
type type
{ TToolbarOptionsFrame } { TIdeCoolbarOptionsFrame }
TToolbarOptionsFrame = class(TAbstractIDEOptionsEditor) TIdeCoolbarOptionsFrame = class(TAbstractIDEOptionsEditor)
bAdd: TBitBtn; bAdd: TBitBtn;
bDefaultGeneral: TBitBtn; bDefaultGeneral: TBitBtn;
bConfig: TBitBtn; bConfig: TBitBtn;
@ -103,14 +103,14 @@ uses MainBar, ToolbarConfig;
{$R *.lfm} {$R *.lfm}
{ TToolbarOptionsFrame } { TIdeCoolbarOptionsFrame }
function TToolbarOptionsFrame.GetTitle: string; function TIdeCoolbarOptionsFrame.GetTitle: string;
begin begin
Result := lisCoolbarOptions; Result := lisCoolbarOptions;
end; end;
procedure TToolbarOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog); procedure TIdeCoolbarOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin begin
dbAddConfigDelete.Caption := lisCoolbarAddConfigDelete; dbAddConfigDelete.Caption := lisCoolbarAddConfigDelete;
dbGeneralSettings.Caption := lisCoolbarGeneralSettings; dbGeneralSettings.Caption := lisCoolbarGeneralSettings;
@ -134,7 +134,7 @@ begin
bDefaultGeneral.Caption := lisCoolbarRestoreDefaults; bDefaultGeneral.Caption := lisCoolbarRestoreDefaults;
end; end;
procedure TToolbarOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions); procedure TIdeCoolbarOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
var var
Opts: TIDECoolBarOptions; Opts: TIDECoolBarOptions;
begin begin
@ -170,7 +170,7 @@ begin
PopulateToolBar; PopulateToolBar;
end; end;
procedure TToolbarOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions); procedure TIdeCoolbarOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
var var
I, J: integer; I, J: integer;
ToolBar: TToolBar; ToolBar: TToolBar;
@ -200,12 +200,12 @@ begin
MainIDEBar.SetMainIDEHeight; MainIDEBar.SetMainIDEHeight;
end; end;
class function TToolbarOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass; class function TIdeCoolbarOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin begin
Result := TEnvironmentOptions; Result := TEnvironmentOptions;
end; end;
procedure TToolbarOptionsFrame.CoolBarMouseDown(Sender: TObject; procedure TIdeCoolbarOptionsFrame.CoolBarMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: integer); Button: TMouseButton; Shift: TShiftState; X, Y: integer);
var var
ABand: integer; ABand: integer;
@ -218,58 +218,58 @@ begin
SelectBand(ABand); SelectBand(ABand);
end; end;
procedure TToolbarOptionsFrame.CoolbarResize(Sender: TObject); procedure TIdeCoolbarOptionsFrame.CoolbarResize(Sender: TObject);
begin begin
if tmWait.Enabled then if tmWait.Enabled then
Exit; Exit;
tmWait.Enabled := True; tmWait.Enabled := True;
end; end;
procedure TToolbarOptionsFrame.spCoolBarWidthChange(Sender: TObject); procedure TIdeCoolbarOptionsFrame.spCoolBarWidthChange(Sender: TObject);
begin begin
FTempCoolBar.Width := spCoolBarWidth.Value; FTempCoolBar.Width := spCoolBarWidth.Value;
EnableDisableButtons(0); EnableDisableButtons(0);
end; end;
procedure TToolbarOptionsFrame.tmWaitTimer(Sender: TObject); procedure TIdeCoolbarOptionsFrame.tmWaitTimer(Sender: TObject);
begin begin
Coolbar.AutosizeBands; Coolbar.AutosizeBands;
tmWait.Enabled := False; tmWait.Enabled := False;
end; end;
procedure TToolbarOptionsFrame.spGrabWidthChange(Sender: TObject); procedure TIdeCoolbarOptionsFrame.spGrabWidthChange(Sender: TObject);
begin begin
CoolBar.GrabWidth := TSpinEdit(Sender).Value; CoolBar.GrabWidth := TSpinEdit(Sender).Value;
CoolBar.AutosizeBands; CoolBar.AutosizeBands;
EnableDisableButtons(0); EnableDisableButtons(0);
end; end;
procedure TToolbarOptionsFrame.cbGrabStyleChange(Sender: TObject); procedure TIdeCoolbarOptionsFrame.cbGrabStyleChange(Sender: TObject);
begin begin
CoolBar.GrabStyle := TGrabStyle(TComboBox(Sender).ItemIndex); CoolBar.GrabStyle := TGrabStyle(TComboBox(Sender).ItemIndex);
CoolBar.AutosizeBands; CoolBar.AutosizeBands;
EnableDisableButtons(0); EnableDisableButtons(0);
end; end;
procedure TToolbarOptionsFrame.cbCoolBarVisibleClick(Sender: TObject); procedure TIdeCoolbarOptionsFrame.cbCoolBarVisibleClick(Sender: TObject);
begin begin
FTempCoolBar.IsVisible := cbCoolBarVisible.Checked; FTempCoolBar.IsVisible := cbCoolBarVisible.Checked;
EnableDisableButtons(0); EnableDisableButtons(0);
end; end;
procedure TToolbarOptionsFrame.CoolbarChange(Sender: TObject); procedure TIdeCoolbarOptionsFrame.CoolbarChange(Sender: TObject);
begin begin
EnableDisableButtons(1); EnableDisableButtons(1);
end; end;
procedure TToolbarOptionsFrame.cbBorderStyleChange(Sender: TObject); procedure TIdeCoolbarOptionsFrame.cbBorderStyleChange(Sender: TObject);
begin begin
Coolbar.BandBorderStyle := TBorderStyle(TComboBox(Sender).ItemIndex); Coolbar.BandBorderStyle := TBorderStyle(TComboBox(Sender).ItemIndex);
Coolbar.AutosizeBands; Coolbar.AutosizeBands;
EnableDisableButtons(0); EnableDisableButtons(0);
end; end;
procedure TToolbarOptionsFrame.SelectBand(const ID: integer); procedure TIdeCoolbarOptionsFrame.SelectBand(const ID: integer);
var var
I: integer; I: integer;
begin begin
@ -289,7 +289,7 @@ begin
end; end;
end; end;
function TToolbarOptionsFrame.GetSelectedBand: Integer; function TIdeCoolbarOptionsFrame.GetSelectedBand: Integer;
var var
I: Integer; I: Integer;
begin begin
@ -306,7 +306,7 @@ begin
end; end;
end; end;
procedure TToolbarOptionsFrame.ToolBarClick(Sender: TObject); procedure TIdeCoolbarOptionsFrame.ToolBarClick(Sender: TObject);
var var
CoolBand: TCoolBand; CoolBand: TCoolBand;
begin begin
@ -315,7 +315,7 @@ begin
SelectBand(CoolBand.Index); SelectBand(CoolBand.Index);
end; end;
procedure TToolbarOptionsFrame.EnableDisableButtons(const bType: Integer); procedure TIdeCoolbarOptionsFrame.EnableDisableButtons(const bType: Integer);
var var
I: Integer; I: Integer;
Selected: Boolean; Selected: Boolean;
@ -343,7 +343,7 @@ begin
end; end;
end; end;
procedure TToolbarOptionsFrame.PopulateToolBar; procedure TIdeCoolbarOptionsFrame.PopulateToolBar;
var var
CoolBand: TCoolBand; CoolBand: TCoolBand;
I, J: Integer; I, J: Integer;
@ -369,7 +369,7 @@ begin
EnableDisableButtons(1); EnableDisableButtons(1);
end; end;
constructor TToolbarOptionsFrame.Create(AOwner: TComponent); constructor TIdeCoolbarOptionsFrame.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FTempCoolBar := TIDEcoolBar.Create(Coolbar); FTempCoolBar := TIDEcoolBar.Create(Coolbar);
@ -377,7 +377,7 @@ begin
FDefaultOptions := TDefaultCoolBarOptions.Create; FDefaultOptions := TDefaultCoolBarOptions.Create;
end; end;
destructor TToolbarOptionsFrame.Destroy; destructor TIdeCoolbarOptionsFrame.Destroy;
begin begin
FreeAndNil(FDefaultOptions); FreeAndNil(FDefaultOptions);
FreeAndNil(FTempCoolBarOptions); FreeAndNil(FTempCoolBarOptions);
@ -385,7 +385,7 @@ begin
inherited Destroy; inherited Destroy;
end; end;
procedure TToolbarOptionsFrame.bAddClick(Sender: TObject); procedure TIdeCoolbarOptionsFrame.bAddClick(Sender: TObject);
var var
CoolBand: TCoolBand; CoolBand: TCoolBand;
IDEToolbar: TIDEToolBar; IDEToolbar: TIDEToolBar;
@ -406,7 +406,7 @@ begin
EnableDisableButtons(1); EnableDisableButtons(1);
end; end;
procedure TToolbarOptionsFrame.bConfigClick(Sender: TObject); procedure TIdeCoolbarOptionsFrame.bConfigClick(Sender: TObject);
var var
ToConfig: Integer; ToConfig: Integer;
ToolBar: TToolBar; ToolBar: TToolBar;
@ -436,7 +436,7 @@ begin
EnableDisableButtons(1); EnableDisableButtons(1);
end; end;
procedure TToolbarOptionsFrame.bDeleteClick(Sender: TObject); procedure TIdeCoolbarOptionsFrame.bDeleteClick(Sender: TObject);
var var
I: integer; I: integer;
ToDelete: integer; ToDelete: integer;
@ -464,7 +464,7 @@ begin
EnableDisableButtons(1); EnableDisableButtons(1);
end; end;
procedure TToolbarOptionsFrame.bDefaultGeneralClick(Sender: TObject); procedure TIdeCoolbarOptionsFrame.bDefaultGeneralClick(Sender: TObject);
begin begin
cbCoolBarVisible.Checked := True; cbCoolBarVisible.Checked := True;
FTempCoolBar.IsVisible := True; FTempCoolBar.IsVisible := True;
@ -478,7 +478,7 @@ begin
EnableDisableButtons(0); EnableDisableButtons(0);
end; end;
procedure TToolbarOptionsFrame.bDefaultToolbarClick(Sender: TObject); procedure TIdeCoolbarOptionsFrame.bDefaultToolbarClick(Sender: TObject);
begin begin
FTempCoolBar.SetToolBarDefaults; FTempCoolBar.SetToolBarDefaults;
PopulateToolBar; PopulateToolBar;
@ -486,7 +486,7 @@ end;
initialization initialization
RegisterIDEOptionsEditor(GroupEnvironment, TToolbarOptionsFrame, EnvOptionsToolbar); RegisterIDEOptionsEditor(GroupEnvironment, TIdeCoolbarOptionsFrame, EnvOptionsToolbar);
end. end.

4
ide/main.pp
View File

@ -115,7 +115,7 @@ uses
// environment option frames // environment option frames
editor_general_options, componentpalette_options, formed_options, OI_options, editor_general_options, componentpalette_options, formed_options, OI_options,
MsgWnd_Options, files_options, desktop_options, window_options, MsgWnd_Options, files_options, desktop_options, window_options,
Backup_Options, naming_options, fpdoc_options, toolbar_options, editortoolbar_options, Backup_Options, naming_options, fpdoc_options, idecoolbar_options, editortoolbar_options,
editor_display_options, editor_keymapping_options, editor_mouseaction_options, editor_display_options, editor_keymapping_options, editor_mouseaction_options,
editor_mouseaction_options_advanced, editor_color_options, editor_markup_options, editor_mouseaction_options_advanced, editor_color_options, editor_markup_options,
editor_markup_userdefined, editor_codetools_options, editor_codefolding_options, editor_markup_userdefined, editor_codetools_options, editor_codefolding_options,
@ -12752,7 +12752,7 @@ end;
procedure TMainIDE.ToolBarOptionsClick(Sender: TObject); procedure TMainIDE.ToolBarOptionsClick(Sender: TObject);
begin begin
DoOpenIDEOptions(TToolbarOptionsFrame, '', [], []); DoOpenIDEOptions(TIdeCoolbarOptionsFrame, '', [], []);
end; end;