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

ide: add dummy debugger options class make filtering IDE options work

Browse Source 
git-svn-id: trunk@30679 -
This commit is contained in:
paul 2011-05-11 08:36:42 +00:00
parent d9366ecdb7
commit 0fb8976945
6 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/frames/debugger_eventlog_options.pas
View File

@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, FileUtil, Graphics, Forms, StdCtrls, Spin, CheckLst,
ComCtrls, LCLType, LCLIntf, ColorBox, Debugger, LazarusIDEStrConsts,
IDEOptionsIntf, EnvironmentOpts;
IDEOptionsIntf, EnvironmentOpts, BaseDebugManager;
type
{ TDebuggerEventLogOptionsFrame }
@ -235,7 +235,7 @@ procedure TDebuggerEventLogOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptio
var
EventType: TDBGEventType;
begin
with AOptions as TEnvironmentOptions do
with EnvironmentOptions do
begin
chkClearLogOnRun.Checked := DebuggerEventLogClearOnRun;
chkLimitLinecount.Checked := DebuggerEventLogCheckLineLimit;
@ -264,7 +264,7 @@ procedure TDebuggerEventLogOptionsFrame.WriteSettings(AOptions: TAbstractIDEOpti
var
EventType: TDBGEventType;
begin
with AOptions as TEnvironmentOptions do
with EnvironmentOptions do
begin
DebuggerEventLogClearOnRun := chkClearLogOnRun.Checked;
DebuggerEventLogCheckLineLimit := chkLimitLinecount.Checked;
@ -284,7 +284,7 @@ end;
class function TDebuggerEventLogOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result := TEnvironmentOptions;
Result := TDebuggerOptions;
end;
initialization

8
debugger/frames/debugger_general_options.pas
View File

@ -312,9 +312,9 @@ end;
procedure TDebuggerGeneralOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
begin
ClearDbgProperties;
with AOptions as TEnvironmentOptions do
with EnvironmentOptions do
begin
TEnvironmentOptions(AOptions).ObjectInspectorOptions.AssignTo(PropertyGrid);
ObjectInspectorOptions.AssignTo(PropertyGrid);
FOldDebuggerPathAndParams := DebuggerFilename;
cmbDebuggerPath.Text := FOldDebuggerPathAndParams;
FetchDebuggerClass;
@ -326,7 +326,7 @@ procedure TDebuggerGeneralOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptio
var
i: Integer;
begin
with AOptions as TEnvironmentOptions do
with EnvironmentOptions do
begin
DebuggerFilename := cmbDebuggerPath.Text;
DebuggerFileHistory.Assign(cmbDebuggerPath.Items);
@ -346,7 +346,7 @@ end;
class function TDebuggerGeneralOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result := TEnvironmentOptions;
Result := TDebuggerOptions;
end;
initialization

2
debugger/frames/debugger_language_exceptions_options.pas
View File

@ -195,7 +195,7 @@ end;
class function TDebuggerLanguageExceptionsOptions.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result := nil;
Result := TDebuggerOptions;
end;
initialization

2
debugger/frames/debugger_signals_options.pas
View File

@ -113,7 +113,7 @@ end;
class function TDebuggerSignalsOptions.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result := nil;
Result := TDebuggerOptions;
end;
initialization

3
ide/basedebugmanager.pas
View File

@ -188,6 +188,7 @@ procedure RegisterDebugger(const ADebuggerClass: TDebuggerClass);
var
DebugBoss: TBaseDebugManager;
DebuggerOptions: TDebuggerOptions = nil;
implementation
@ -231,7 +232,7 @@ end;
class function TDebuggerOptions.GetInstance: TAbstractIDEOptions;
begin
Result := nil;
Result := DebuggerOptions;
end;
initialization

3
ide/main.pp
View File

@ -1305,6 +1305,8 @@ begin
CodeExplorerOptions.OnAfterWrite := @DoCodeExplorerOptionsAfterWrite;
CodeExplorerOptions.Load;
DebuggerOptions := TDebuggerOptions.Create;
MainBuildBoss.SetupInputHistories;
CompileProgress.SetEnabled(EnvironmentOptions.ShowCompileDialog);
@ -1511,6 +1513,7 @@ begin
FreeThenNil(CodeExplorerOptions);
FreeThenNil(MiscellaneousOptions);
FreeThenNil(EditorOpts);
FreeThenNil(DebuggerOptions);
IDEWindowCreators.OnShowForm:=nil;
FreeThenNil(EnvironmentOptions);
FreeThenNil(IDECommandScopes);