paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-18 06:01:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Replace config button with a popup menu in EditorToolbar. Issue #28865, patch from Ondrej Pokorny.

Browse Source 
git-svn-id: trunk@50090 -
This commit is contained in:
juha 2015-10-16 22:16:45 +00:00
parent 5564280ff8
commit f40462ba60
2 changed files with 15 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
ide/editortoolbarstatic.pas
View File

@ -24,7 +24,7 @@ unit EditorToolbarStatic;
interface
uses
SysUtils, Classes, fgl, ComCtrls, Controls, LCLProc,
SysUtils, Classes, fgl, ComCtrls, Controls, LCLProc, Menus,
IDEImagesIntf, SrcEditorIntf, BaseIDEIntf,
LazarusIDEStrConsts, LazConfigStorage, Laz2_XMLCfg, ToolbarConfig;
@ -58,9 +58,7 @@ type
private
FCollection: TAllEditorToolbars;
FWindow: TSourceEditorWindowInterface;
CfgButton: TToolButton;
procedure AddStaticItems;
procedure InitEditorToolBar;
CfgItem: TMenuItem;
procedure ClearToolbar;
protected
procedure PostCopyOptions; override;
@ -195,6 +193,8 @@ end;
{ TEditorToolbar }
constructor TEditorToolbar.Create(AOwner: TComponent; ACollection: TAllEditorToolbars);
var
xPM: TPopupMenu;
begin
inherited Create(AOwner);
Assert(not Assigned(FToolBar), 'TEditorToolbar.Create: FToolBar is assigned');
@ -209,9 +209,16 @@ begin
FToolBar.Flat := True;
FToolBar.Images := IDEImages.Images_16;
FToolBar.ShowHint := True;
FToolBar.Hint := lisEditorToolbarHint;
AddStaticItems;
xPM := TPopupMenu.Create(FToolBar);
xPM.Images := IDEImages.Images_16;
CfgItem := TMenuItem.Create(xPM);
xPM.Items.Add(CfgItem);
CfgItem.Caption := lisConfigureEditorToolbar;
CfgItem.ImageIndex := IDEImages.LoadImage(16, 'preferences');
CfgItem.OnClick := @FCollection.DoConfigureEditorToolbar;
FToolBar.PopupMenu := xPM;
end;
destructor TEditorToolbar.Destroy;
@ -220,12 +227,6 @@ begin
inherited Destroy;
end;
procedure TEditorToolbar.InitEditorToolBar;
begin
FToolBar := nil;
CfgButton := nil;
end;
procedure TEditorToolbar.PostCopyOptions;
begin
case EnvironmentOptions.Desktop.EditorToolBarOptions.Position of
@ -248,25 +249,6 @@ begin
end;
end;
procedure TEditorToolbar.AddStaticItems;
begin
FToolBar.BeginUpdate;
try
// Config Button
if CfgButton = nil then
CfgButton := TToolbutton.Create(FToolBar);
CfgButton.Caption := lisConfigureEditorToolbar;
CfgButton.Hint := CfgButton.Caption;
CfgButton.ImageIndex := IDEImages.LoadImage(16, 'preferences');
CfgButton.Style := tbsButton;
CfgButton.OnClick := @FCollection.DoConfigureEditorToolbar;
PositionAtEnd(FToolBar, CfgButton);
AddDivider;
finally
FToolBar.EndUpdate;
end;
end;
procedure TEditorToolbar.ClearToolbar;
var
i: integer;
@ -274,10 +256,7 @@ begin
FToolBar.BeginUpdate;
try
for i := FToolBar.ButtonCount - 1 downto 0 do
if FToolBar.Buttons[i] <> CfgButton then
FToolBar.Buttons[i].Free
else
FToolBar.Buttons[i].Parent := nil;
FToolBar.Buttons[i].Free
finally
FToolBar.EndUpdate;
end;
@ -314,12 +293,9 @@ procedure TAllEditorToolbars.SourceWindowCreated(Sender: TObject);
var
ETB: TEditorToolbar;
Opts: TEditorToolBarOptions;
i: Integer;
begin
ETB := TEditorToolbar.Create(Sender as TSourceEditorWindowInterface, Self);
i := FToolBars.Add(ETB);
Assert(FToolBars[i] = ETB, 'TAllEditorToolbars.SourceWindowCreated: FToolBars[i] <> ETB');
ETB.AddStaticItems;
FToolBars.Add(ETB);
Opts := EnvironmentOptions.Desktop.EditorToolBarOptions;
ETB.CopyFromOptions(Opts);
ETB.FToolBar.Visible := Opts.Visible;
@ -359,7 +335,6 @@ begin
begin
aBar := FToolBars[i];
aBar.ClearToolbar;
aBar.AddStaticItems;
Opts := EnvironmentOptions.Desktop.EditorToolBarOptions;
aBar.CopyFromOptions(Opts);
aBar.FToolBar.Visible := Opts.Visible;

1
ide/lazarusidestrconsts.pas
View File

@ -4630,7 +4630,6 @@ resourcestring
// Editor Toolbar
lisEditorToolbar = 'Editor ToolBar';
lisEditorToolbarHint = 'You may add here your favorite commands';
lisConfigureEditorToolbar = 'Configure Toolbar';
lisEditorToolbarVisible = 'Editor Toolbar is &visible';
lisEditorToolbarSettings = 'Editor Toolbar Settings';