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);
var
ToolBar: TToolBar;
Band: TCoolBand;
I, J: Integer;
begin
for I := 0 to RealCoolbar.Bands.Count - 1 do
@ -239,7 +240,10 @@ begin
ToolBar := (RealCoolbar.Bands[I].Control as TToolBar);
J := FindByToolBar(ToolBar);
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;
Sort;
end;

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

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