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

ideintf, ide: implement custom caption for IDE options dialog, use another caption for project options

Browse Source 
git-svn-id: trunk@23328 -
This commit is contained in:
paul 2009-12-30 15:45:14 +00:00
parent f7bf225a8a
commit b9deb8c122
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/main.pp
View File

@ -355,7 +355,8 @@ type
// Environment options dialog events
procedure OnLoadIDEOptions(Sender: TObject; AOptions: TAbstractIDEOptions);
procedure OnSaveIDEOptions(Sender: TObject; AOptions: TAbstractIDEOptions);
procedure DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass;
procedure DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass = nil;
ACaption: String = '';
AOptionsFilter: TAbstractIDEOptionsClass = nil); override;
procedure DoEnvironmentOptionsBeforeRead(Sender: TObject);
@ -3703,7 +3704,7 @@ end;
procedure TMainIDE.mnuProjectOptionsClicked(Sender: TObject);
begin
DoOpenIDEOptions(nil, TAbstractIDEProjectOptions);
DoOpenIDEOptions(nil, dlgProjectOptions, TAbstractIDEProjectOptions);
end;
function TMainIDE.UpdateProjectPOFile(AProject: TProject): TModalResult;
@ -4128,7 +4129,7 @@ end;
procedure TMainIDE.mnuEnvGeneralOptionsClicked(Sender: TObject);
begin
DoOpenIDEOptions(nil);
DoOpenIDEOptions;
end;
//------------------------------------------------------------------------------
@ -4185,14 +4186,17 @@ begin
SaveDesktopSettings(AOptions as TEnvironmentOptions);
end;
procedure TMainIDE.DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass;
AOptionsFilter: TAbstractIDEOptionsClass = nil);
procedure TMainIDE.DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass = nil;
ACaption: String = '';
AOptionsFilter: TAbstractIDEOptionsClass = nil);
var
IDEOptionsDialog: TIDEOptionsDialog;
begin
IDEOptionsDialog := TIDEOptionsDialog.Create(nil);
try
if ACaption <> '' then
IDEOptionsDialog.Caption := ACaption;
if AOptionsFilter = nil then
if AEditor <> nil then
AOptionsFilter := AEditor.SupportedOptionsClass

3
ideintf/lazideintf.pas
View File

@ -215,7 +215,8 @@ type
function GetPrimaryConfigPath: String; virtual; abstract;
function GetSecondaryConfigPath: String; virtual; abstract;
procedure CopySecondaryConfigFile(const AFilename: String); virtual; abstract;
procedure DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass;
procedure DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass = nil;
ACaption: String = '';
AOptionsFilter: TAbstractIDEOptionsClass = nil); virtual; abstract;
// filenames, paths