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

IdeConfig: Remove LCL dependency from unit CoolBarOptions.

Browse Source
This commit is contained in:
Juha 2022-12-10 23:52:32 +02:00
parent ad3127e414
commit 76ef6d67b4
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/idecoolbardata.pas
View File

@ -230,6 +230,7 @@ end;
procedure TIDECoolBar.CopyFromRealCoolbar(RealCoolbar: TCoolBar); procedure TIDECoolBar.CopyFromRealCoolbar(RealCoolbar: TCoolBar);
var var
ToolBar: TToolBar; ToolBar: TToolBar;
Band: TCoolBand;
I, J: Integer; I, J: Integer;
begin begin
for I := 0 to RealCoolbar.Bands.Count - 1 do for I := 0 to RealCoolbar.Bands.Count - 1 do
@ -239,7 +240,10 @@ begin
ToolBar := (RealCoolbar.Bands[I].Control as TToolBar); ToolBar := (RealCoolbar.Bands[I].Control as TToolBar);
J := FindByToolBar(ToolBar); J := FindByToolBar(ToolBar);
if J <> -1 then if J <> -1 then
ToolBars[J].CurrentOptions.CopyPosFromBand(RealCoolbar.Bands[I]); begin
Band := RealCoolbar.Bands[I];
ToolBars[J].CurrentOptions.CopyPosFromBandValues(Band.Index, Band.Break);
end;
end; end;
Sort; Sort;
end; end;

10
ide/packages/ideconfig/coolbaroptions.pas
View File

@ -5,7 +5,7 @@ unit CoolBarOptions;
interface interface
uses uses
SysUtils, fgl, ToolBarOptionsBase, Laz2_XMLCfg, ComCtrls; SysUtils, fgl, ToolBarOptionsBase, Laz2_XMLCfg;
type type
@ -23,7 +23,7 @@ type
//destructor Destroy; override; //destructor Destroy; override;
function Equals(Opts: TIDEToolBarOptions): boolean; overload; function Equals(Opts: TIDEToolBarOptions): boolean; overload;
procedure Assign(Source: TIDEToolBarOptions); procedure Assign(Source: TIDEToolBarOptions);
procedure CopyPosFromBand(Band: TCoolBand); procedure CopyPosFromBandValues(APosIndex: Integer; ABreak: Boolean);
procedure Load(XMLConfig: TXMLConfig; SubPath: String); procedure Load(XMLConfig: TXMLConfig; SubPath: String);
procedure Save(XMLConfig: TXMLConfig; SubPath: String); procedure Save(XMLConfig: TXMLConfig; SubPath: String);
published published
@ -94,10 +94,10 @@ begin
FBreak := Source.FBreak; FBreak := Source.FBreak;
end; end;
procedure TIDEToolBarOptions.CopyPosFromBand(Band: TCoolBand); procedure TIDEToolBarOptions.CopyPosFromBandValues(APosIndex: Integer; ABreak: Boolean);
begin begin
FPosIndex := Band.Index; FPosIndex := APosIndex;
FBreak := Band.Break; FBreak := ABreak;
end; end;
procedure TIDEToolBarOptions.Load(XMLConfig: TXMLConfig; SubPath: String); procedure TIDEToolBarOptions.Load(XMLConfig: TXMLConfig; SubPath: String);