paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 16:39:15 +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 // Environment options dialog events
procedure OnLoadIDEOptions(Sender: TObject; AOptions: TAbstractIDEOptions); procedure OnLoadIDEOptions(Sender: TObject; AOptions: TAbstractIDEOptions);
procedure OnSaveIDEOptions(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; AOptionsFilter: TAbstractIDEOptionsClass = nil); override;
procedure DoEnvironmentOptionsBeforeRead(Sender: TObject); procedure DoEnvironmentOptionsBeforeRead(Sender: TObject);
@ -3703,7 +3704,7 @@ end;
procedure TMainIDE.mnuProjectOptionsClicked(Sender: TObject); procedure TMainIDE.mnuProjectOptionsClicked(Sender: TObject);
begin begin
DoOpenIDEOptions(nil, TAbstractIDEProjectOptions); DoOpenIDEOptions(nil, dlgProjectOptions, TAbstractIDEProjectOptions);
end; end;
function TMainIDE.UpdateProjectPOFile(AProject: TProject): TModalResult; function TMainIDE.UpdateProjectPOFile(AProject: TProject): TModalResult;
@ -4128,7 +4129,7 @@ end;
procedure TMainIDE.mnuEnvGeneralOptionsClicked(Sender: TObject); procedure TMainIDE.mnuEnvGeneralOptionsClicked(Sender: TObject);
begin begin
DoOpenIDEOptions(nil); DoOpenIDEOptions;
end; end;
//------------------------------------------------------------------------------ //------------------------------------------------------------------------------
@ -4185,14 +4186,17 @@ begin
SaveDesktopSettings(AOptions as TEnvironmentOptions); SaveDesktopSettings(AOptions as TEnvironmentOptions);
end; end;
procedure TMainIDE.DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass; procedure TMainIDE.DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass = nil;
AOptionsFilter: TAbstractIDEOptionsClass = nil); ACaption: String = '';
AOptionsFilter: TAbstractIDEOptionsClass = nil);
var var
IDEOptionsDialog: TIDEOptionsDialog; IDEOptionsDialog: TIDEOptionsDialog;
begin begin
IDEOptionsDialog := TIDEOptionsDialog.Create(nil); IDEOptionsDialog := TIDEOptionsDialog.Create(nil);
try try
if ACaption <> '' then
IDEOptionsDialog.Caption := ACaption;
if AOptionsFilter = nil then if AOptionsFilter = nil then
if AEditor <> nil then if AEditor <> nil then
AOptionsFilter := AEditor.SupportedOptionsClass AOptionsFilter := AEditor.SupportedOptionsClass

3
ideintf/lazideintf.pas
View File

@ -215,7 +215,8 @@ type
function GetPrimaryConfigPath: String; virtual; abstract; function GetPrimaryConfigPath: String; virtual; abstract;
function GetSecondaryConfigPath: String; virtual; abstract; function GetSecondaryConfigPath: String; virtual; abstract;
procedure CopySecondaryConfigFile(const AFilename: 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; AOptionsFilter: TAbstractIDEOptionsClass = nil); virtual; abstract;
// filenames, paths // filenames, paths