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

ide: fixed editortoolbar options defaults

Browse Source
This commit is contained in:
mattias 2024-10-20 19:59:26 +02:00
parent 39caeecab4
commit 0aa1b762d3
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/packages/ideconfig/editortoolbaroptions.pas
View File

@ -21,6 +21,10 @@ type
private
FVisible: Boolean;
FPosition: string;
public
const
cDefaultVisible = true;
cDefaultPosition = 'Top';
public
constructor Create;
//destructor Destroy; override;
@ -48,18 +52,16 @@ const
constructor TEditorToolBarOptions.Create;
begin
inherited Create;
FVisible := True;
FVisible := cDefaultVisible;
FPosition := cDefaultPosition;
CreateDefaults;
end;
{
destructor TEditorToolBarOptions.Destroy;
begin
inherited Destroy;
end;
}
procedure TEditorToolBarOptions.Clear;
begin
inherited Clear;
FVisible := True;
FVisible := cDefaultVisible;
FPosition := cDefaultPosition;
end;
function TEditorToolBarOptions.Equals(Opts: TEditorToolBarOptions): boolean;
@ -94,8 +96,8 @@ begin
Path := Path + BasePath;
if XMLConfig.HasPath(Path + 'Count', True) then
begin
FVisible := XMLConfig.GetValue(Path + 'Visible', True);
FPosition := XMLConfig.GetValue(Path + 'Position', 'Top');
FVisible := XMLConfig.GetValue(Path + 'Visible', cDefaultVisible);
FPosition := XMLConfig.GetValue(Path + 'Position', cDefaultPosition);
LoadButtonNames(XMLConfig, Path);
end
else begin
@ -128,8 +130,8 @@ end;
procedure TEditorToolBarOptions.Save(XMLConfig: TXMLConfig; Path: String);
begin
Path := Path + BasePath;
XMLConfig.SetDeleteValue(Path + 'Visible', FVisible, True);
XMLConfig.SetDeleteValue(Path + 'Position', FPosition, 'Top');
XMLConfig.SetDeleteValue(Path + 'Visible', FVisible, cDefaultVisible);
XMLConfig.SetDeleteValue(Path + 'Position', FPosition, cDefaultPosition);
SaveButtonNames(XMLConfig, Path);
end;