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

IDE: rename IDEOptionsDialog.OnLoadIDEOptions and OnSaveIDEOptions to make the code easier to follow.

Browse Source 
git-svn-id: trunk@39270 -
This commit is contained in:
juha 2012-11-10 22:44:54 +00:00
parent 4edee9917b
commit f6ffdc0b7a
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/ideoptionsdlg.pas
View File

@ -72,8 +72,8 @@ type
procedure OkButtonClick(Sender: TObject); procedure OkButtonClick(Sender: TObject);
procedure CancelButtonClick(Sender: TObject); procedure CancelButtonClick(Sender: TObject);
private private
FOnLoadOptions: TOnLoadIDEOptions; FOnLoadOptionsHook: TOnLoadIDEOptions;
FOnSaveOptions: TOnSaveIDEOptions; FOnSaveOptionsHook: TOnSaveIDEOptions;
FOptionsFilter: TIDEOptionsEditorFilter; FOptionsFilter: TIDEOptionsEditorFilter;
FEditorToOpen: TAbstractIDEOptionsEditorClass; FEditorToOpen: TAbstractIDEOptionsEditorClass;
FSettings: TIDEOptionsEditorSettings; FSettings: TIDEOptionsEditorSettings;
@ -107,8 +107,8 @@ type
public public
property OptionsFilter: TIDEOptionsEditorFilter read FOptionsFilter write FOptionsFilter; property OptionsFilter: TIDEOptionsEditorFilter read FOptionsFilter write FOptionsFilter;
property Settings: TIDEOptionsEditorSettings read FSettings write SetSettings; property Settings: TIDEOptionsEditorSettings read FSettings write SetSettings;
property OnLoadIDEOptions: TOnLoadIDEOptions read FOnLoadOptions write FOnLoadOptions; property OnLoadIDEOptionsHook: TOnLoadIDEOptions read FOnLoadOptionsHook write FOnLoadOptionsHook;
property OnSaveIDEOptions: TOnSaveIDEOptions read FOnSaveOptions write FOnSaveOptions; property OnSaveIDEOptionsHook: TOnSaveIDEOptions read FOnSaveOptionsHook write FOnSaveOptionsHook;
end; end;
implementation implementation
@ -427,16 +427,16 @@ end;
procedure TIDEOptionsDialog.LoadIDEOptions(Sender: TObject; AOptions: TAbstractIDEOptions); procedure TIDEOptionsDialog.LoadIDEOptions(Sender: TObject; AOptions: TAbstractIDEOptions);
begin begin
if Assigned(OnLoadIDEOptions) then if Assigned(OnLoadIDEOptionsHook) then
OnLoadIDEOptions(Self, AOptions); OnLoadIDEOptionsHook(Self, AOptions);
TraverseSettings(AOptions,iodaRead); TraverseSettings(AOptions,iodaRead);
end; end;
procedure TIDEOptionsDialog.SaveIDEOptions(Sender: TObject; AOptions: TAbstractIDEOptions); procedure TIDEOptionsDialog.SaveIDEOptions(Sender: TObject; AOptions: TAbstractIDEOptions);
begin begin
TraverseSettings(AOptions,iodaWrite); TraverseSettings(AOptions,iodaWrite);
if Assigned(OnSaveIDEOptions) then if Assigned(OnSaveIDEOptionsHook) then
OnSaveIDEOptions(Self, AOptions); OnSaveIDEOptionsHook(Self, AOptions);
end; end;
procedure TIDEOptionsDialog.CreateEditors; procedure TIDEOptionsDialog.CreateEditors;

4
ide/main.pp
View File

@ -4630,8 +4630,8 @@ begin
IDEOptionsDialog.OptionsFilter := OptionsFilter; IDEOptionsDialog.OptionsFilter := OptionsFilter;
IDEOptionsDialog.Settings := ASettings; IDEOptionsDialog.Settings := ASettings;
IDEOptionsDialog.OpenEditor(AEditor); IDEOptionsDialog.OpenEditor(AEditor);
IDEOptionsDialog.OnLoadIDEOptions:=@Self.OnLoadIDEOptions; IDEOptionsDialog.OnLoadIDEOptionsHook:=@Self.OnLoadIDEOptions;
IDEOptionsDialog.OnSaveIDEOptions:=@Self.OnSaveIDEOptions; IDEOptionsDialog.OnSaveIDEOptionsHook:=@Self.OnSaveIDEOptions;
IDEOptionsDialog.ReadAll; IDEOptionsDialog.ReadAll;
if IDEOptionsDialog.ShowModal = mrOk then begin if IDEOptionsDialog.ShowModal = mrOk then begin
IDEOptionsDialog.WriteAll(false); IDEOptionsDialog.WriteAll(false);