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

watches dialog now without DoInitDebugger

Browse Source 
git-svn-id: trunk@4205 -
This commit is contained in:
mattias 2003-05-28 09:00:35 +00:00
parent 6241f4822c
commit f0f5ad9694
2 changed files with 48 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
debugger/watchesdlg.pp
View File

@ -74,6 +74,7 @@ type
protected
procedure SetDebugger(const ADebugger: TDebugger); override;
public
procedure WatchesUpdate(const TheWatches: TDBGWatches);
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
@ -224,6 +225,14 @@ begin
else inherited;
end;
procedure TWatchesDlg.WatchesUpdate(const TheWatches: TDBGWatches);
var
i: Integer;
begin
for i:=0 to TheWatches.Count-1 do
WatchUpdate(TheWatches,TheWatches[i]);
end;
procedure TWatchesDlg.WatchAdd(const ASender: TDBGWatches; const AWatch: TDBGWatch);
var
Item: TListItem;
@ -263,6 +272,9 @@ end.
{ =============================================================================
$Log$
Revision 1.6 2003/05/28 09:00:35 mattias
watches dialog now without DoInitDebugger
Revision 1.5 2003/05/18 10:42:58 mattias
implemented deleting empty submenus

40
ide/debugmanager.pas
View File

@ -99,7 +99,11 @@ type
procedure DebugDialogDestroy(Sender: TObject);
procedure ViewDebugDialog(const ADialogType: TDebugDialogType);
procedure DestroyDebugDialog(const ADialogType: TDebugDialogType);
procedure InitDebugOutputDlg;
procedure InitBreakPointDlg;
procedure InitWatchesDlg;
procedure InitLocalsDlg;
procedure InitCallStackDlg;
protected
function GetState: TDBGState; override;
function GetCommands: TDBGCommands; override;
@ -568,10 +572,15 @@ begin
CurDialog.Tag := Integer(ADialogType);
CurDialog.OnDestroy := @DebugDialogDestroy;
EnvironmentOptions.IDEWindowLayoutList.Apply(CurDialog,CurDialog.Name);
if (CurDialog is TBreakPointsDlg) then
InitBreakPointDlg;
case ADialogType of
ddtOutput: InitDebugOutputDlg;
ddtBreakpoints: InitBreakPointDlg;
ddtWatches: InitWatchesDlg;
ddtLocals: InitLocalsDlg;
ddtCallStack: InitCallStackDlg;
end;
//DoInitDebugger;
//CurDialog.Debugger := FDebugger;
CurDialog.Debugger := FDebugger;
end else begin
CurDialog:=FDialogs[ADialogType];
if (CurDialog is TBreakPointsDlg) then begin
@ -592,6 +601,10 @@ begin
FDialogs[ADialogType] := nil;
end;
procedure TDebugManager.InitDebugOutputDlg;
begin
end;
procedure TDebugManager.InitBreakPointDlg;
var
TheDialog: TBreakPointsDlg;
@ -602,6 +615,22 @@ begin
TheDialog.BreakPointsUpdate(FBreakPoints);
end;
procedure TDebugManager.InitWatchesDlg;
var
TheDialog: TWatchesDlg;
begin
TheDialog:=TWatchesDlg(FDialogs[ddtWatches]);
TheDialog.WatchesUpdate(FWatches);
end;
procedure TDebugManager.InitLocalsDlg;
begin
end;
procedure TDebugManager.InitCallStackDlg;
begin
end;
constructor TDebugManager.Create(TheOwner: TComponent);
var
DialogType: TDebugDialogType;
@ -814,7 +843,7 @@ var
//@@ OldBreakpoints: TDBGBreakpoints;
//@@ OldBreakPointGroups: TDBGBreakPointGroups;
OldWatches: TDBGWatches;
procedure ResetDialogs;
var
DialogType: TDebugDialogType;
@ -1159,6 +1188,9 @@ end.
{ =============================================================================
$Log$
Revision 1.33 2003/05/28 09:00:35 mattias
watches dialog now without DoInitDebugger
Revision 1.32 2003/05/28 08:46:23 mattias
break;points dialog now gets the items without debugger