paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 11:59:18 +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 // 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 DoShowEnvGeneralOptions(AEditor: TAbstractIDEOptionsEditorClass); procedure DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass); override;
// SourceNotebook events // SourceNotebook events
procedure OnSrcNoteBookActivated(Sender: TObject); procedure OnSrcNoteBookActivated(Sender: TObject);
@ -1384,7 +1384,7 @@ end;
procedure TMainIDE.OIOnShowOptions(Sender: TObject); procedure TMainIDE.OIOnShowOptions(Sender: TObject);
begin begin
DoShowEnvGeneralOptions(TOIOptionsFrame); DoOpenIDEOptions(TOIOptionsFrame);
end; end;
procedure TMainIDE.OIOnViewRestricted(Sender: TObject); procedure TMainIDE.OIOnViewRestricted(Sender: TObject);
@ -4053,7 +4053,7 @@ end;
procedure TMainIDE.mnuEnvGeneralOptionsClicked(Sender: TObject); procedure TMainIDE.mnuEnvGeneralOptionsClicked(Sender: TObject);
begin begin
DoShowEnvGeneralOptions(nil); DoOpenIDEOptions(nil);
end; end;
//------------------------------------------------------------------------------ //------------------------------------------------------------------------------
@ -4110,7 +4110,7 @@ begin
SaveDesktopSettings(AOptions as TEnvironmentOptions); SaveDesktopSettings(AOptions as TEnvironmentOptions);
end; end;
procedure TMainIDE.DoShowEnvGeneralOptions(AEditor: TAbstractIDEOptionsEditorClass); procedure TMainIDE.DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass);
var var
IDEOptionsDialog: TIDEOptionsDialog; IDEOptionsDialog: TIDEOptionsDialog;
MacroValueChanged, MacroValueChanged,
@ -4200,7 +4200,6 @@ begin
UpdateDefaultPascalFileExtensions; UpdateDefaultPascalFileExtensions;
//DebugLn(['TMainIDE.DoShowEnvGeneralOptions OldLanguage=',OldLanguage,' EnvironmentOptions.LanguageID=',EnvironmentOptions.LanguageID]);
if OldLanguage<>EnvironmentOptions.LanguageID then if OldLanguage<>EnvironmentOptions.LanguageID then
begin begin
TranslateResourceStrings(EnvironmentOptions.LazarusDirectory, TranslateResourceStrings(EnvironmentOptions.LazarusDirectory,
@ -4248,7 +4247,7 @@ end;
procedure TMainIDE.mnuEnvEditorOptionsClicked(Sender: TObject); procedure TMainIDE.mnuEnvEditorOptionsClicked(Sender: TObject);
begin begin
DoShowEnvGeneralOptions(TEditorGeneralOptionsFrame); DoOpenIDEOptions(TEditorGeneralOptionsFrame);
end; end;
procedure TMainIDE.mnuEnvCodeTemplatesClicked(Sender: TObject); procedure TMainIDE.mnuEnvCodeTemplatesClicked(Sender: TObject);
@ -12224,7 +12223,7 @@ end;
procedure TMainIDE.OnDesignerShowOptions(Sender: TObject); procedure TMainIDE.OnDesignerShowOptions(Sender: TObject);
begin begin
DoShowEnvGeneralOptions(TFormEditorOptionsFrame); DoOpenIDEOptions(TFormEditorOptionsFrame);
end; end;
procedure TMainIDE.OnDesignerPasteComponent(Sender: TObject; procedure TMainIDE.OnDesignerPasteComponent(Sender: TObject;
@ -12465,7 +12464,7 @@ end;
procedure TMainIDE.OnCodeExplorerShowOptions(Sender: TObject); procedure TMainIDE.OnCodeExplorerShowOptions(Sender: TObject);
begin begin
DoShowEnvGeneralOptions(TCodeExplorerUpdateOptionsFrame); DoOpenIDEOptions(TCodeExplorerUpdateOptionsFrame);
end; end;
procedure TMainIDE.OnCodeToolNeedsExternalChanges(Manager: TCodeToolManager; procedure TMainIDE.OnCodeToolNeedsExternalChanges(Manager: TCodeToolManager;

3
ideintf/lazideintf.pas
View File

@ -23,7 +23,7 @@ interface
uses uses
Classes, SysUtils, LCLProc, Forms, Controls, Dialogs, PropEdits, LazHelpHTML, Classes, SysUtils, LCLProc, Forms, Controls, Dialogs, PropEdits, LazHelpHTML,
IDEExternToolIntf, ProjectIntf, SrcEditorIntf, LDockCtrl; IDEExternToolIntf, IDEOptionsIntf, ProjectIntf, SrcEditorIntf, LDockCtrl;
type type
// open file flags // open file flags
@ -214,6 +214,7 @@ 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); virtual; abstract;
// filenames, paths // filenames, paths
function CreateNewUniqueFilename(const Prefix, Ext: string; function CreateNewUniqueFilename(const Prefix, Ext: string;