diff --git a/debugger/frames/debugger_class_options.pas b/debugger/frames/debugger_class_options.pas index a5c757577d..194e59f122 100644 --- a/debugger/frames/debugger_class_options.pas +++ b/debugger/frames/debugger_class_options.pas @@ -37,7 +37,7 @@ uses GDBMIDebugger, // IDE TransferMacros, LazarusIDEStrConsts, PathEditorDlg, IDEProcs, DialogProcs, - InputHistory, EnvironmentOpts, BaseDebugManager, Debugger; + InputHistory, EnvironmentOpts, BaseDebugManager, Debugger, IdeDebuggerOpts; type diff --git a/debugger/frames/debugger_eventlog_options.pas b/debugger/frames/debugger_eventlog_options.pas index 39787ef880..5a8a0c0503 100644 --- a/debugger/frames/debugger_eventlog_options.pas +++ b/debugger/frames/debugger_eventlog_options.pas @@ -33,7 +33,8 @@ uses // IdeIntf IDEOptionsIntf, IDEOptEditorIntf, // IDE - Debugger, LazarusIDEStrConsts, EnvironmentOpts, BaseDebugManager; + Debugger, IdeDebuggerOpts, LazarusIDEStrConsts, EnvironmentOpts, + BaseDebugManager; type { TDebuggerEventLogOptionsFrame } diff --git a/debugger/frames/debugger_general_options.pas b/debugger/frames/debugger_general_options.pas index 07a0813bc9..33a1c6ec7e 100644 --- a/debugger/frames/debugger_general_options.pas +++ b/debugger/frames/debugger_general_options.pas @@ -34,7 +34,7 @@ uses IDEOptionsIntf, IDEOptEditorIntf, // IDE LazarusIDEStrConsts, PathEditorDlg, IDEProcs, - EnvironmentOpts, BaseDebugManager; + EnvironmentOpts, BaseDebugManager, IdeDebuggerOpts; type diff --git a/debugger/frames/debugger_signals_options.pas b/debugger/frames/debugger_signals_options.pas index c7827bb5c7..700eca0bc8 100644 --- a/debugger/frames/debugger_signals_options.pas +++ b/debugger/frames/debugger_signals_options.pas @@ -31,7 +31,7 @@ uses // IdeIntf IDEOptionsIntf, IDEOptEditorIntf, IDEImagesIntf, // IDE - LazarusIDEStrConsts, Debugger, BaseDebugManager; + LazarusIDEStrConsts, Debugger, IdeDebuggerOpts, BaseDebugManager; type { TDebuggerSignalsOptions } diff --git a/ide/basedebugmanager.pas b/ide/basedebugmanager.pas index 8d2df5ea8e..2c6788a800 100644 --- a/ide/basedebugmanager.pas +++ b/ide/basedebugmanager.pas @@ -50,6 +50,7 @@ uses // DebuggerIntf DbgIntfBaseTypes, DbgIntfDebuggerBase, DbgIntfPseudoTerminal, LazDebuggerIntf, + IdeDebuggerOpts, // IDE Debugger, SourceMarks, Project, ProjectDefs, LazarusIDEStrConsts; @@ -108,14 +109,6 @@ type TDbgInitFlag = (difInitForAttach); TDbgInitFlags = set of TDbgInitFlag; - { TDebuggerOptions } - - TDebuggerOptions = class(TAbstractIDEEnvironmentOptions) - public - class function GetGroupCaption:string; override; - class function GetInstance: TAbstractIDEOptions; override; - end; - TBaseDebugManager = class(TBaseDebugManagerIntf) protected FDestroying: boolean; @@ -257,22 +250,9 @@ type var DebugBoss: TBaseDebugManager; - DebuggerOptions: TDebuggerOptions = nil; implementation -{ TDebuggerOptions } - -class function TDebuggerOptions.GetGroupCaption: string; -begin - Result := dlgGroupDebugger; -end; - -class function TDebuggerOptions.GetInstance: TAbstractIDEOptions; -begin - Result := DebuggerOptions; -end; - initialization RegisterIDEOptionsGroup(GroupDebugger, TDebuggerOptions); DebugBoss := nil; diff --git a/ide/main.pp b/ide/main.pp index 503e3bc3e4..cc5424e8e2 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -149,7 +149,7 @@ uses JumpHistoryView, DesktopManager, DiskDiffsDialog, BuildLazDialog, BuildProfileManager, BuildManager, CheckCompOptsForNewUnitDlg, MiscOptions, InputHistory, InputhistoryWithSearchOpt, UnitDependencies, - IDEFPCInfo, IDEInfoDlg, IDEInfoNeedBuild, ProcessList, InitialSetupDlgs, + IDEFPCInfo, IDEInfoDlg, IDEInfoNeedBuild, ProcessList, IdeDebuggerOpts, InitialSetupDlgs, InitialSetupProc, NewDialog, MakeResStrDlg, DialogProcs, FindReplaceDialog, FindInFilesDlg, CodeExplorer, BuildFileDlg, ProcedureList, ExtractProcDlg, FindRenameIdentifier, AbstractsMethodsDlg, EmptyMethodsDlg, UnusedUnitsDlg, diff --git a/ide/packages/idedebugger/idedebugger.lpk b/ide/packages/idedebugger/idedebugger.lpk index 1a8cc33817..a19e6f4726 100644 --- a/ide/packages/idedebugger/idedebugger.lpk +++ b/ide/packages/idedebugger/idedebugger.lpk @@ -69,6 +69,10 @@ + + + + diff --git a/ide/packages/idedebugger/idedebuggeropts.pas b/ide/packages/idedebugger/idedebuggeropts.pas new file mode 100644 index 0000000000..07af6dc379 --- /dev/null +++ b/ide/packages/idedebugger/idedebuggeropts.pas @@ -0,0 +1,41 @@ +unit IdeDebuggerOpts; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, IDEOptionsIntf, IdeDebuggerStringConstants; + +type + + TDebuggerOptions = class(TAbstractIDEEnvironmentOptions) + class function GetGroupCaption:string; override; + class function GetInstance: TAbstractIDEOptions; override; + end; + +var + DebuggerOptions: TDebuggerOptions = nil; + + +implementation + +const + DebuggerOptsConfFileName = 'debuggeroptions.xml'; + +{ TDebuggerOptions } + +class function TDebuggerOptions.GetGroupCaption: string; +begin + Result := dlgIdeDbgDebugger; +end; + +class function TDebuggerOptions.GetInstance: TAbstractIDEOptions; +begin + Result := DebuggerOptions; +end; + + + +end. + diff --git a/ide/packages/idedebugger/idedebuggerpackage.pas b/ide/packages/idedebugger/idedebuggerpackage.pas index 956330a0ef..178d1264f4 100644 --- a/ide/packages/idedebugger/idedebuggerpackage.pas +++ b/ide/packages/idedebugger/idedebuggerpackage.pas @@ -11,7 +11,7 @@ uses IdeDebuggerBase, Debugger, ProcessDebugger, ProcessList, DebuggerTreeView, IdeDebuggerUtils, IdeDebuggerWatchResult, IdeDebuggerWatchResPrinter, IdeDebuggerWatchResUtils, ArrayNavigationFrame, IdeDebuggerStringConstants, - LazarusPackageIntf; + IdeDebuggerOpts, LazarusPackageIntf; implementation diff --git a/ide/packages/idedebugger/idedebuggerstringconstants.pas b/ide/packages/idedebugger/idedebuggerstringconstants.pas index 1cadbcfaa8..d10158f86b 100644 --- a/ide/packages/idedebugger/idedebuggerstringconstants.pas +++ b/ide/packages/idedebugger/idedebuggerstringconstants.pas @@ -11,6 +11,7 @@ resourcestring dlgInspectIndexOfFirstItemToShow = 'Index of first item to show'; dlgInspectAmountOfItemsToShow = 'Amount of items to show'; dlgInspectBoundsDD = 'Bounds: %d .. %d'; + dlgIdeDbgDebugger = 'Debugger'; implementation