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

DBG: Fixed Callstack power mode

Browse Source 
git-svn-id: trunk@28504 -
This commit is contained in:
martin 2010-11-26 21:24:15 +00:00
parent f4532d9046
commit 62e56cbbf3
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/callstackdlg.pp
View File

@ -469,14 +469,14 @@ end;
procedure TCallStackDlg.actViewMoreExecute(Sender: TObject); procedure TCallStackDlg.actViewMoreExecute(Sender: TObject);
begin begin
ToolButtonPower.Down := False; ToolButtonPower.Down := True;
ToolButtonPowerClick(nil); ToolButtonPowerClick(nil);
ViewLimit := ViewLimit + FViewCount; ViewLimit := ViewLimit + FViewCount;
end; end;
procedure TCallStackDlg.actViewTopExecute(Sender: TObject); procedure TCallStackDlg.actViewTopExecute(Sender: TObject);
begin begin
ToolButtonPower.Down := False; ToolButtonPower.Down := True;
ToolButtonPowerClick(nil); ToolButtonPowerClick(nil);
SetViewStart(0); SetViewStart(0);
end; end;
@ -571,7 +571,7 @@ end;
procedure TCallStackDlg.actViewLimitExecute(Sender: TObject); procedure TCallStackDlg.actViewLimitExecute(Sender: TObject);
begin begin
ToolButtonPower.Down := False; ToolButtonPower.Down := True;
ToolButtonPowerClick(nil); ToolButtonPowerClick(nil);
ViewLimit := FViewCount; ViewLimit := FViewCount;
end; end;
@ -579,7 +579,7 @@ end;
procedure TCallStackDlg.SetViewStart(AStart: Integer); procedure TCallStackDlg.SetViewStart(AStart: Integer);
begin begin
if CallStack = nil then Exit; if CallStack = nil then Exit;
ToolButtonPower.Down := False; ToolButtonPower.Down := True;
ToolButtonPowerClick(nil); ToolButtonPowerClick(nil);
if (AStart > CallStack.Count - FViewLimit) if (AStart > CallStack.Count - FViewLimit)
@ -625,7 +625,7 @@ end;
procedure TCallStackDlg.SetViewLimit(const AValue: Integer); procedure TCallStackDlg.SetViewLimit(const AValue: Integer);
begin begin
ToolButtonPower.Down := False; ToolButtonPower.Down := True;
ToolButtonPowerClick(nil); ToolButtonPowerClick(nil);
if FViewLimit = AValue then Exit; if FViewLimit = AValue then Exit;
if (CallStack <> nil) if (CallStack <> nil)