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

ideintf: add DoOpenIDEOptions method to the lazarus interface

Browse Source 
git-svn-id: trunk@23131 -
This commit is contained in:
paul 2009-12-14 02:46:01 +00:00
parent 405dd2ca7c
commit 5c498e6e64
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/main.pp
View File

@ -347,7 +347,7 @@ type
// Environment options dialog events
procedure OnLoadIDEOptions(Sender: TObject; AOptions: TAbstractIDEOptions);
procedure OnSaveIDEOptions(Sender: TObject; AOptions: TAbstractIDEOptions);
procedure DoShowEnvGeneralOptions(AEditor: TAbstractIDEOptionsEditorClass);
procedure DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass); override;
// SourceNotebook events
procedure OnSrcNoteBookActivated(Sender: TObject);
@ -1384,7 +1384,7 @@ end;
procedure TMainIDE.OIOnShowOptions(Sender: TObject);
begin
DoShowEnvGeneralOptions(TOIOptionsFrame);
DoOpenIDEOptions(TOIOptionsFrame);
end;
procedure TMainIDE.OIOnViewRestricted(Sender: TObject);
@ -4053,7 +4053,7 @@ end;
procedure TMainIDE.mnuEnvGeneralOptionsClicked(Sender: TObject);
begin
DoShowEnvGeneralOptions(nil);
DoOpenIDEOptions(nil);
end;
//------------------------------------------------------------------------------
@ -4110,7 +4110,7 @@ begin
SaveDesktopSettings(AOptions as TEnvironmentOptions);
end;
procedure TMainIDE.DoShowEnvGeneralOptions(AEditor: TAbstractIDEOptionsEditorClass);
procedure TMainIDE.DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass);
var
IDEOptionsDialog: TIDEOptionsDialog;
MacroValueChanged,
@ -4200,7 +4200,6 @@ begin
UpdateDefaultPascalFileExtensions;
//DebugLn(['TMainIDE.DoShowEnvGeneralOptions OldLanguage=',OldLanguage,' EnvironmentOptions.LanguageID=',EnvironmentOptions.LanguageID]);
if OldLanguage<>EnvironmentOptions.LanguageID then
begin
TranslateResourceStrings(EnvironmentOptions.LazarusDirectory,
@ -4248,7 +4247,7 @@ end;
procedure TMainIDE.mnuEnvEditorOptionsClicked(Sender: TObject);
begin
DoShowEnvGeneralOptions(TEditorGeneralOptionsFrame);
DoOpenIDEOptions(TEditorGeneralOptionsFrame);
end;
procedure TMainIDE.mnuEnvCodeTemplatesClicked(Sender: TObject);
@ -12224,7 +12223,7 @@ end;
procedure TMainIDE.OnDesignerShowOptions(Sender: TObject);
begin
DoShowEnvGeneralOptions(TFormEditorOptionsFrame);
DoOpenIDEOptions(TFormEditorOptionsFrame);
end;
procedure TMainIDE.OnDesignerPasteComponent(Sender: TObject;
@ -12465,7 +12464,7 @@ end;
procedure TMainIDE.OnCodeExplorerShowOptions(Sender: TObject);
begin
DoShowEnvGeneralOptions(TCodeExplorerUpdateOptionsFrame);
DoOpenIDEOptions(TCodeExplorerUpdateOptionsFrame);
end;
procedure TMainIDE.OnCodeToolNeedsExternalChanges(Manager: TCodeToolManager;

3
ideintf/lazideintf.pas
View File

@ -23,7 +23,7 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, Dialogs, PropEdits, LazHelpHTML,
IDEExternToolIntf, ProjectIntf, SrcEditorIntf, LDockCtrl;
IDEExternToolIntf, IDEOptionsIntf, ProjectIntf, SrcEditorIntf, LDockCtrl;
type
// open file flags
@ -214,6 +214,7 @@ type
function GetPrimaryConfigPath: String; virtual; abstract;
function GetSecondaryConfigPath: String; virtual; abstract;
procedure CopySecondaryConfigFile(const AFilename: String); virtual; abstract;
procedure DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass); virtual; abstract;
// filenames, paths
function CreateNewUniqueFilename(const Prefix, Ext: string;