mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-05 13:29:17 +02:00
484 lines
15 KiB
ObjectPascal
484 lines
15 KiB
ObjectPascal
{
|
|
***************************************************************************
|
|
* *
|
|
* This source is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
* This code is distributed in the hope that it will be useful, but *
|
|
* WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
|
|
* General Public License for more details. *
|
|
* *
|
|
* A copy of the GNU General Public License is available on the World *
|
|
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
|
|
* obtain it by writing to the Free Software Foundation, *
|
|
* Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA. *
|
|
* *
|
|
***************************************************************************
|
|
Author: Balázs Székely
|
|
Abstract:
|
|
Frame for IDE Coolbar options.
|
|
}
|
|
unit idecoolbar_options;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,
|
|
// LCL
|
|
Forms, ExtCtrls, ComCtrls, Buttons, Controls, Graphics, Dialogs, StdCtrls, Spin, LCLProc,
|
|
// LazControls
|
|
DividerBevel,
|
|
// IDEIntf
|
|
IDEOptionsIntf, IDEOptEditorIntf, IDEImagesIntf,
|
|
// IDE
|
|
LazarusIDEStrConsts, EnvironmentOpts, IdeCoolbarData;
|
|
|
|
type
|
|
|
|
{ TIdeCoolbarOptionsFrame }
|
|
|
|
TIdeCoolbarOptionsFrame = class(TAbstractIDEOptionsEditor)
|
|
bAdd: TBitBtn;
|
|
bDefaultGeneral: TBitBtn;
|
|
bConfig: TBitBtn;
|
|
bDefaultToolbar: TBitBtn;
|
|
bDelete: TBitBtn;
|
|
cbGrabStyle: TComboBox;
|
|
cbBorderStyle: TComboBox;
|
|
cbCoolBarVisible: TCheckBox;
|
|
Coolbar: TCoolBar;
|
|
gbGrabStyle: TGroupBox;
|
|
gbBorderStyle: TGroupBox;
|
|
imButtons: TImageList;
|
|
dbAddConfigDelete: TDividerBevel;
|
|
dbGeneralSettings: TDividerBevel;
|
|
lblNoAutoSaveActiveDesktop: TLabel;
|
|
pnTopCenterLabel: TLabel;
|
|
lbGrabWidth: TLabel;
|
|
lbCoolBarWidth: TLabel;
|
|
pnTop: TPanel;
|
|
pnBottom: TPanel;
|
|
pnButtons: TPanel;
|
|
sbCoolBar: TScrollBox;
|
|
spGrabWidth: TSpinEdit;
|
|
spCoolBarWidth: TSpinEdit;
|
|
tmWait: TTimer;
|
|
procedure bAddClick(Sender: TObject);
|
|
procedure bConfigClick(Sender: TObject);
|
|
procedure bDefaultGeneralClick(Sender: TObject);
|
|
procedure bDefaultToolbarClick(Sender: TObject);
|
|
procedure bDeleteClick(Sender: TObject);
|
|
procedure cbBorderStyleChange(Sender: TObject);
|
|
procedure cbGrabStyleChange(Sender: TObject);
|
|
procedure cbCoolBarVisibleClick(Sender: TObject);
|
|
procedure CoolbarChange(Sender: TObject);
|
|
procedure CoolBarMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
|
|
{%H-}Shift: TShiftState; X, Y: integer);
|
|
procedure CoolbarResize(Sender: TObject);
|
|
procedure spCoolBarWidthChange(Sender: TObject);
|
|
procedure spGrabWidthChange(Sender: TObject);
|
|
procedure tmWaitTimer(Sender: TObject);
|
|
private
|
|
FTempCoolBar: TIDECoolBar;
|
|
FTempCoolBarOptions: TIDECoolBarOptions;
|
|
// Used for assigning and testing the default configuration.
|
|
FDefaultOptions: TDefaultCoolBarOptions;
|
|
function AddBand(ToolBar: TToolBar; aBreak: Boolean): TCoolBand;
|
|
procedure EnableDisableGeneralButtons;
|
|
procedure EnableDisableToolbarButtons;
|
|
procedure SelectBand(const ID: integer);
|
|
function GetSelectedBand: Integer;
|
|
procedure ToolBarClick(Sender: TObject);
|
|
procedure PopulateToolBar;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
function GetTitle: string; override;
|
|
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
|
|
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
|
|
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
|
|
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
uses MainBar, ToolbarConfig;
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TIdeCoolbarOptionsFrame }
|
|
|
|
constructor TIdeCoolbarOptionsFrame.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
FTempCoolBar := TIDEcoolBar.Create(Coolbar);
|
|
FTempCoolBarOptions := TIDECoolBarOptions.Create;
|
|
FDefaultOptions := TDefaultCoolBarOptions.Create;
|
|
end;
|
|
|
|
destructor TIdeCoolbarOptionsFrame.Destroy;
|
|
begin
|
|
FreeAndNil(FDefaultOptions);
|
|
FreeAndNil(FTempCoolBarOptions);
|
|
FreeAndNil(FTempCoolBar);
|
|
inherited Destroy;
|
|
end;
|
|
|
|
function TIdeCoolbarOptionsFrame.GetTitle: string;
|
|
begin
|
|
Result := lisCoolbarOptions;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
|
|
begin
|
|
dbGeneralSettings.Caption := lisCoolbarGeneralSettings;
|
|
cbCoolBarVisible.Caption := lisCoolbarVisible;
|
|
lbCoolBarWidth.Caption := lisCoolbarWidth;
|
|
gbGrabStyle.Caption := lisCoolbarGrabStyle;
|
|
cbGrabStyle.Items.Strings[0] := lisCoolbarGrabStyleItem0;
|
|
cbGrabStyle.Items.Strings[1] := lisCoolbarGrabStyleItem1;
|
|
cbGrabStyle.Items.Strings[2] := lisCoolbarGrabStyleItem2;
|
|
cbGrabStyle.Items.Strings[3] := lisCoolbarGrabStyleItem3;
|
|
cbGrabStyle.Items.Strings[4] := lisCoolbarGrabStyleItem4;
|
|
cbGrabStyle.Items.Strings[5] := lisCoolbarGrabStyleItem5;
|
|
lbGrabWidth.Caption := lisCoolbarGrabWidth;
|
|
gbBorderStyle.Caption := lisCoolbarBorderStyle;
|
|
cbBorderStyle.Items.Strings[0] := lisCoolbarBorderStyleItem0;
|
|
cbBorderStyle.Items.Strings[1] := lisCoolbarBorderStyleItem1;
|
|
bDefaultGeneral.Caption := lisCoolbarRestoreDefaults;
|
|
IDEImages.AssignImage(bDefaultGeneral, 'restore_default');
|
|
|
|
dbAddConfigDelete.Caption := lisCoolbarAddConfigDelete;
|
|
bAdd.Caption := lisBtnAdd;
|
|
IDEImages.AssignImage(bAdd, 'laz_add');
|
|
bConfig.Caption := lisCoolbarConfigure;
|
|
IDEImages.AssignImage(bConfig, 'preferences');
|
|
bDelete.Caption := lisBtnDelete;
|
|
IDEImages.AssignImage(bDelete, 'laz_delete');
|
|
bDefaultToolbar.Caption := lisCoolbarRestoreDefaults;
|
|
IDEImages.AssignImage(bDefaultToolbar, 'restore_defaults');
|
|
lblNoAutoSaveActiveDesktop.Caption := lisNoAutoSaveActiveDesktop;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
|
|
var
|
|
Opts: TIDECoolBarOptions;
|
|
begin
|
|
Opts := (AOptions as TEnvironmentOptions).Desktop.IDECoolBarOptions;
|
|
cbCoolBarVisible.Checked := Opts.Visible;
|
|
FTempCoolBar.IsVisible := Opts.Visible;
|
|
|
|
spCoolBarWidth.Value := Opts.Width;
|
|
FTempCoolBar.Width := Opts.Width;
|
|
|
|
if not (Opts.GrabStyle in [0..5]) then
|
|
Opts.GrabStyle := 1;
|
|
cbGrabStyle.ItemIndex := Opts.GrabStyle;
|
|
FTempCoolBar.Coolbar.GrabStyle := TGrabStyle(Opts.GrabStyle);
|
|
|
|
if not (Opts.GrabWidth in [1..50]) then
|
|
Opts.GrabWidth := 5;
|
|
spGrabWidth.Value := Opts.GrabWidth;
|
|
FTempCoolBar.Coolbar.GrabWidth := Opts.GrabWidth;
|
|
|
|
if not (Opts.BorderStyle in [0..1]) then
|
|
Opts.BorderStyle := 1;
|
|
cbBorderStyle.ItemIndex := Opts.BorderStyle;
|
|
FTempCoolBar.Coolbar.BandBorderStyle := TBorderStyle(Opts.BorderStyle);
|
|
EnableDisableGeneralButtons;
|
|
lblNoAutoSaveActiveDesktop.Visible := not EnvironmentOptions.AutoSaveActiveDesktop;
|
|
|
|
// ToDo: More tests?
|
|
if Opts.ToolBars.Count = 0 then
|
|
FTempCoolBar.CopyFromOptions(FDefaultOptions)
|
|
else
|
|
FTempCoolBar.CopyFromOptions(Opts);
|
|
|
|
PopulateToolBar;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
|
|
var
|
|
Opts: TIDECoolBarOptions;
|
|
begin
|
|
Opts := (AOptions as TEnvironmentOptions).Desktop.IDECoolBarOptions;
|
|
FTempCoolBar.CopyFromRealCoolbar(Coolbar);
|
|
FTempCoolBar.CopyToOptions(Opts);
|
|
Opts.Visible := cbCoolBarVisible.Checked;
|
|
Opts.Width := FTempCoolBar.Width;
|
|
Opts.GrabStyle := cbGrabStyle.ItemIndex;
|
|
Opts.GrabWidth := spGrabWidth.Value;
|
|
Opts.BorderStyle := cbBorderStyle.ItemIndex;
|
|
MainIDEBar.RefreshCoolbar;
|
|
MainIDEBar.SetMainIDEHeight;
|
|
end;
|
|
|
|
class function TIdeCoolbarOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
|
|
begin
|
|
Result := TEnvironmentOptions;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.CoolBarMouseDown(Sender: TObject;
|
|
Button: TMouseButton; Shift: TShiftState; X, Y: integer);
|
|
var
|
|
ABand: integer;
|
|
AGrabber: boolean;
|
|
begin
|
|
FTempCoolBar.CoolBar.MouseToBandPos(X, Y, ABand, AGrabber);
|
|
if ABand < 0 then
|
|
Exit;
|
|
if FTempCoolBar.CoolBar.Bands.Items[ABand].Color <> clHighlight then
|
|
SelectBand(ABand);
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.CoolbarResize(Sender: TObject);
|
|
begin
|
|
if tmWait.Enabled then
|
|
Exit;
|
|
tmWait.Enabled := True;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.spCoolBarWidthChange(Sender: TObject);
|
|
begin
|
|
FTempCoolBar.Width := spCoolBarWidth.Value;
|
|
EnableDisableGeneralButtons;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.tmWaitTimer(Sender: TObject);
|
|
begin
|
|
FTempCoolBar.Coolbar.AutosizeBands;
|
|
tmWait.Enabled := False;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.spGrabWidthChange(Sender: TObject);
|
|
begin
|
|
FTempCoolBar.CoolBar.GrabWidth := TSpinEdit(Sender).Value;
|
|
FTempCoolBar.CoolBar.AutosizeBands;
|
|
EnableDisableGeneralButtons;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.cbGrabStyleChange(Sender: TObject);
|
|
begin
|
|
FTempCoolBar.CoolBar.GrabStyle := TGrabStyle(TComboBox(Sender).ItemIndex);
|
|
FTempCoolBar.CoolBar.AutosizeBands;
|
|
EnableDisableGeneralButtons;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.cbCoolBarVisibleClick(Sender: TObject);
|
|
begin
|
|
FTempCoolBar.IsVisible := cbCoolBarVisible.Checked;
|
|
EnableDisableGeneralButtons;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.CoolbarChange(Sender: TObject);
|
|
begin
|
|
EnableDisableToolbarButtons;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.cbBorderStyleChange(Sender: TObject);
|
|
begin
|
|
FTempCoolBar.Coolbar.BandBorderStyle := TBorderStyle(TComboBox(Sender).ItemIndex);
|
|
FTempCoolBar.Coolbar.AutosizeBands;
|
|
EnableDisableGeneralButtons;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.SelectBand(const ID: integer);
|
|
var
|
|
I: integer;
|
|
Band: TCoolBand;
|
|
begin
|
|
FTempCoolBar.Coolbar.Color := clDefault;
|
|
for I := 0 to FTempCoolBar.CoolBar.Bands.Count - 1 do
|
|
begin
|
|
Band := FTempCoolBar.CoolBar.Bands.Items[I];
|
|
if I <> ID then
|
|
begin
|
|
Band.Color := clDefault;
|
|
Band.Control.Color := clDefault;
|
|
end
|
|
else
|
|
begin
|
|
Band.Color := clHighlight;
|
|
Band.Control.Color := clHighLight;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function TIdeCoolbarOptionsFrame.GetSelectedBand: Integer;
|
|
var
|
|
I: Integer;
|
|
begin
|
|
Result := -1;
|
|
for I := 0 to FTempCoolBar.CoolBar.Bands.Count - 1 do
|
|
if FTempCoolBar.CoolBar.Bands.Items[I].Color = clHighlight then
|
|
Exit(I);
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.ToolBarClick(Sender: TObject);
|
|
var
|
|
CoolBand: TCoolBand;
|
|
begin
|
|
CoolBand := FTempCoolBar.Coolbar.Bands.FindBand(Sender as TToolBar);
|
|
if CoolBand <> nil then
|
|
SelectBand(CoolBand.Index);
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.EnableDisableGeneralButtons;
|
|
begin
|
|
bDefaultGeneral.Enabled := not FTempCoolBar.IsDefaultCoolbar;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.EnableDisableToolbarButtons;
|
|
var
|
|
I: Integer;
|
|
Selected: Boolean;
|
|
begin
|
|
Selected := False;
|
|
for I := 0 to FTempCoolBar.Coolbar.Bands.Count - 1 do
|
|
begin
|
|
if FTempCoolBar.Coolbar.Bands[I].Color = clHighlight then
|
|
begin
|
|
Selected := True;
|
|
Break;
|
|
end;
|
|
end;
|
|
bConfig.Enabled := Selected;
|
|
bDelete.Enabled := Selected;
|
|
bDefaultToolbar.Enabled := not FTempCoolBar.IsDefaultToolbar;
|
|
end;
|
|
|
|
procedure UseToolbarButtons(IDEToolbar: TIDEToolBar);
|
|
var
|
|
I: Integer;
|
|
begin
|
|
IDEToolbar.UseCurrentOptions;
|
|
for I := 0 to Pred(IDEToolbar.ToolBar.ButtonCount) do
|
|
IDEToolbar.ToolBar.Buttons[I].Enabled := False;
|
|
end;
|
|
|
|
function TIdeCoolbarOptionsFrame.AddBand(ToolBar: TToolBar; aBreak: Boolean): TCoolBand;
|
|
begin
|
|
Result := FTempCoolBar.CoolBar.Bands.Add;
|
|
Result.Break := aBreak;
|
|
Result.Control := Toolbar;
|
|
//Result.MinWidth := 25;
|
|
//Result.MinHeight := 22;
|
|
Result.FixedSize := True;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.PopulateToolBar;
|
|
var
|
|
I: Integer;
|
|
IDEToolbar: TIDEToolBar;
|
|
begin
|
|
FTempCoolBar.CoolBar.Bands.Clear;
|
|
for I := 0 to FTempCoolBar.ToolBars.Count - 1 do
|
|
begin
|
|
IDEToolbar := FTempCoolBar.ToolBars[I];
|
|
IDEToolbar.OnToolBarClick := @ToolBarClick;
|
|
IDEToolbar.ToolBar.DisabledImages := IDEToolbar.ToolBar.Images;
|
|
AddBand(IDEToolbar.ToolBar, IDEToolbar.CurrentOptions.Break);
|
|
UseToolbarButtons(IDEToolbar);
|
|
end;
|
|
if FTempCoolBar.CoolBar.Bands.Count > 0 then
|
|
SelectBand(0);
|
|
FTempCoolBar.Coolbar.AutosizeBands;
|
|
EnableDisableToolbarButtons;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.bAddClick(Sender: TObject);
|
|
var
|
|
IDEToolbar: TIDEToolBar;
|
|
begin
|
|
IDEToolbar := FTempCoolBar.Add;
|
|
IDEToolbar.CurrentOptions.Break := False;
|
|
IDEToolbar.OnToolBarClick := @ToolBarClick;
|
|
IDEToolbar.ToolBar.DisabledImages := IDEToolbar.ToolBar.Images;
|
|
SelectBand(AddBand(IDEToolbar.ToolBar, True).Index);
|
|
EnableDisableToolbarButtons;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.bConfigClick(Sender: TObject);
|
|
var
|
|
ToConfig: Integer;
|
|
ToolBar: TToolBar;
|
|
IDEToolbar: TIDEToolBar;
|
|
begin
|
|
ToConfig := GetSelectedBand;
|
|
if ToConfig = -1 then
|
|
begin
|
|
MessageDlg(lisCoolbarSelectToolBar, mtInformation, [mbOk], 0);
|
|
Exit;
|
|
end;
|
|
ToolBar := FTempCoolBar.Coolbar.Bands.Items[ToConfig].Control as TToolBar;
|
|
Assert(Assigned(ToolBar), 'TIdeCoolbarOptionsFrame.bConfigClick: ToolBar=Nil.');
|
|
Assert(ToConfig = FTempCoolBar.FindByToolBar(ToolBar),
|
|
'TIdeCoolbarOptionsFrame.bConfigClick: Indices differ!');
|
|
IDEToolbar := FTempCoolBar.ToolBars[ToConfig];
|
|
if ShowToolBarConfig(IDEToolbar.CurrentOptions.ButtonNames) = mrOK then
|
|
UseToolbarButtons(IDEToolbar);
|
|
FTempCoolBar.Coolbar.AutosizeBands;
|
|
EnableDisableToolbarButtons;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.bDeleteClick(Sender: TObject);
|
|
var
|
|
I: integer;
|
|
ToDelete: integer;
|
|
begin
|
|
if FTempCoolBar.Coolbar.Bands.Count = 1 then
|
|
begin
|
|
MessageDlg(lisCoolbarDeleteWarning, mtInformation, [mbOk], 0);
|
|
Exit;
|
|
end;
|
|
ToDelete := GetSelectedBand;
|
|
if ToDelete > -1 then
|
|
begin
|
|
if MessageDlg(lisCoolbarDeleteToolBar, mtConfirmation, [mbYes, mbNo], 0) = mrYes then
|
|
begin
|
|
if ToDelete < FTempCoolBar.CoolBar.Bands.Count-1 then
|
|
SelectBand(ToDelete + 1)
|
|
else if ToDelete > 0 then
|
|
SelectBand(ToDelete - 1);
|
|
I := FTempCoolBar.FindByToolBar((FTempCoolBar.CoolBar.Bands.Items[ToDelete].Control as TToolBar));
|
|
Assert(I = ToDelete, 'TIdeCoolbarOptionsFrame.bDeleteClick: index mismatch.');
|
|
// CoolBar Band gets deleted at the same go with FTempCoolBar item.
|
|
FTempCoolBar.ToolBars.Delete(ToDelete);
|
|
end;
|
|
end;
|
|
EnableDisableToolbarButtons;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.bDefaultGeneralClick(Sender: TObject);
|
|
begin
|
|
cbCoolBarVisible.Checked := True;
|
|
FTempCoolBar.IsVisible := True;
|
|
spCoolBarWidth.Value := 230;
|
|
FTempCoolBar.Width := 230;
|
|
cbGrabStyle.ItemIndex := 1;
|
|
spGrabWidth.Value := 5;
|
|
BiDiMode := bdLeftToRight;
|
|
cbBorderStyle.ItemIndex := 1;
|
|
FTempCoolBar.SetCoolBarDefaults;
|
|
EnableDisableGeneralButtons;
|
|
end;
|
|
|
|
procedure TIdeCoolbarOptionsFrame.bDefaultToolbarClick(Sender: TObject);
|
|
begin
|
|
FTempCoolBar.SetToolBarDefaults;
|
|
PopulateToolBar;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterIDEOptionsEditor(GroupEnvironment, TIdeCoolbarOptionsFrame, EnvOptionsToolbar);
|
|
|
|
end.
|
|
|