From 63a231e27778f5ca8edf3ebb5c69fbfe30258957 Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Sat, 14 Jun 2003 02:24:34 +0000
Subject: [PATCH] MWE: + Added DebuggerOptionDialog

git-svn-id: trunk@4276 -
---
 ide/debugmanager.pas        | 21 +++++++++++++++++++--
 ide/lazarusidestrconsts.pas |  1 +
 ide/mainbar.pas             |  7 +++++++
 3 files changed, 27 insertions(+), 2 deletions(-)

diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index b6203887d1..88ba8fc62f 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -40,7 +40,7 @@ uses
   MemCheck,
 {$ENDIF}
   Classes, SysUtils, Forms, Controls, Dialogs, Menus, FileCtrl, Laz_XMLCfg,
-  SynEdit, CodeCache, CodeToolManager,
+  SynEdit, CodeCache, CodeToolManager, DebugOptionsFrm,
   CompilerOptions, EditorOptions, EnvironmentOpts, KeyMapping, UnitEditor,
   Project, IDEProcs, InputHistory, Debugger, RunParamsOpts, ExtToolDialog,
   IDEOptionDefs, LazarusIDEStrConsts, ProjectDefs, BaseDebugManager, MainBar,
@@ -61,7 +61,8 @@ type
   TDebugManager = class(TBaseDebugManager)
     // Menu events
     procedure mnuViewDebugDialogClick(Sender: TObject);
-    procedure mnuResetDebuggerClicked(Sender : TObject);
+    procedure mnuResetDebuggerClicked(Sender: TObject);
+    procedure mnuDebuggerOptionsClick(Sender: TObject);
 
     // SrcNotebook events
     function OnSrcNotebookAddWatchesAtCursor(Sender: TObject): boolean;
@@ -690,6 +691,17 @@ begin
   DoInitDebugger;
 end;
 
+procedure TDebugManager.mnuDebuggerOptionsClick (Sender: TObject );
+var
+  Form: TDebuggerOptionsForm;
+begin
+  Form := TDebuggerOptionsForm.Create(Application);
+  Form.ShowModal;
+  Form.Free;
+end;
+
+
+
 //-----------------------------------------------------------------------------
 // ScrNoteBook events
 //-----------------------------------------------------------------------------
@@ -1065,6 +1077,8 @@ begin
     itmViewDebugOutput.Tag := Ord(ddtOutput);
 
     itmProjectResetDebugger.OnClick := @mnuResetDebuggerClicked;
+    
+    itmEnvDebuggerOptions.OnClick := @mnuDebuggerOptionsClick;
   end;
 end;
 
@@ -1526,6 +1540,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.53  2003/06/14 02:24:34  marc
+  MWE: + Added DebuggerOptionDialog
+
   Revision 1.52  2003/06/13 19:21:31  marc
   MWE: + Added initial signal and exception handling
 
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 91778d2658..ee96d188a4 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -223,6 +223,7 @@ resourcestring
   
   lisMenuGeneralOptions = 'Environment options';
   lisMenuEditorOptions = 'Editor options';
+  lisMenDebuggerOptions = 'Debugger Options';
   lisMenuCodeToolsOptions = 'CodeTools options';
   lisMenuCodeToolsDefinesEditor = 'CodeTools defines editor';
   
diff --git a/ide/mainbar.pas b/ide/mainbar.pas
index 8313a60cb0..7bdae82b98 100644
--- a/ide/mainbar.pas
+++ b/ide/mainbar.pas
@@ -329,6 +329,7 @@ type
     // environment menu
     itmEnvGeneralOptions: TMenuItem;
     itmEnvEditorOptions: TMenuItem;
+    itmEnvDebuggerOptions: TMenuItem;
     itmEnvCodeToolsOptions: TMenuItem;
     itmEnvCodeToolsDefinesEditor: TMenuItem;
 
@@ -1298,6 +1299,12 @@ begin
   itmEnvEditorOptions.Graphic:=LoadPixmap('menu_editoroptions');
   mnuEnvironment.Add(itmEnvEditorOptions);
 
+  itmEnvDebuggerOptions := TMenuItem.Create(Self);
+  itmEnvDebuggerOptions.Name:='itmEnvDebuggerOptions';
+  itmEnvDebuggerOptions.Caption := lisMenDebuggerOptions;
+//  itmEnvDebuggerOptions.Graphic:=LoadPixmap('menu_editoroptions');
+  mnuEnvironment.Add(itmEnvDebuggerOptions);
+
   itmEnvCodeToolsOptions := TMenuItem.Create(Self);
   itmEnvCodeToolsOptions.Name:='itmEnvCodeToolsOptions';
   itmEnvCodeToolsOptions.Caption := lisMenuCodeToolsOptions;