paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 11:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: implement DoAfterWrite for IDE options classes

Browse Source 
git-svn-id: trunk@23130 -
This commit is contained in:
paul 2009-12-14 02:29:53 +00:00
parent 8aaa541d27
commit 405dd2ca7c
6 changed files with 31 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/codeexplopts.pas
View File

@ -155,6 +155,7 @@ type
public
class function GetGroupCaption:string; override;
class function GetInstance: TAbstractIDEOptions; override;
procedure DoAfterWrite; override;
public
constructor Create;
destructor Destroy; override;
@ -413,6 +414,11 @@ begin
Result := CodeExplorerOptions;
end;
procedure TCodeExplorerOptions.DoAfterWrite;
begin
Save;
end;
procedure TCodeExplorerOptions.Clear;
begin
IncreaseChangeStep;

6
ide/codetoolsoptions.pas
View File

@ -104,6 +104,7 @@ type
public
class function GetGroupCaption:string; override;
class function GetInstance: TAbstractIDEOptions; override;
procedure DoAfterWrite; override;
public
constructor Create;
destructor Destroy; override;
@ -316,6 +317,11 @@ begin
Result := CodeToolsOpts;
end;
procedure TCodeToolsOptions.DoAfterWrite;
begin
Save;
end;
procedure TCodeToolsOptions.Load;
var
XMLConfig: TXMLConfig;

6
ide/editoroptions.pp
View File

@ -920,6 +920,7 @@ type
public
class function GetGroupCaption:string; override;
class function GetInstance: TAbstractIDEOptions; override;
procedure DoAfterWrite; override;
public
constructor Create;
destructor Destroy; override;
@ -3029,6 +3030,11 @@ begin
Result := EditorOpts;
end;
procedure TEditorOptions.DoAfterWrite;
begin
Save;
end;
function TEditorOptions.GetSynEditOptionName(SynOption: TSynEditorOption): string;
begin
case SynOption of

6
ide/environmentopts.pp
View File

@ -273,6 +273,7 @@ type
public
class function GetGroupCaption:string; override;
class function GetInstance: TAbstractIDEOptions; override;
procedure DoAfterWrite; override;
public
constructor Create;
destructor Destroy; override;
@ -763,6 +764,11 @@ begin
Result := EnvironmentOptions;
end;
procedure TEnvironmentOptions.DoAfterWrite;
begin
Save(False);
end;
procedure TEnvironmentOptions.SetLazarusDefaultFilename;
var
ConfFileName: string;

6
ide/helpoptions.pas
View File

@ -52,6 +52,7 @@ type
public
class function GetGroupCaption:string; override;
class function GetInstance: TAbstractIDEOptions; override;
procedure DoAfterWrite; override;
public
constructor Create;
procedure Clear;
@ -106,6 +107,11 @@ begin
Result := HelpOpts;
end;
procedure THelpOptions.DoAfterWrite;
begin
Save;
end;
procedure THelpOptions.Clear;
begin
FFPCDocsHTMLDirectory := '';

7
ide/main.pp
View File

@ -4223,14 +4223,9 @@ begin
UpdateEditorOptions;
CodeToolsOpts.AssignTo(CodeToolBoss);
// save to disk
IDEEditorGroups.DoAfterWrite;
EnvironmentOptions.Save(False);
EditorOpts.Save;
CodeToolsOpts.AssignTo(CodeToolBoss);
CodeToolsOpts.Save;
CodeExplorerOptions.Save;
HelpBoss.SaveHelpOptions;
// update environment
UpdateDesigners;