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

* Callstack improvement by Martin Friebe

Browse Source 
git-svn-id: trunk@14493 -
This commit is contained in:
marc 2008-03-11 00:32:30 +00:00
parent 61b5aa81fb
commit b23a60a435
1 changed files with 7 additions and 0 deletions

7
debugger/callstackdlg.pp
View File

@ -403,6 +403,13 @@ end;
procedure TCallStackDlg.SetViewLimit(const AValue: Integer);
begin
if FViewLimit = AValue then Exit;
if (CallStack <> nil)
and (FViewStart + FViewLimit >= CallStack.Count - 1)
and (AValue > FViewLimit)
then begin
FViewStart := CallStack.Count - 1 - AValue;
if FViewStart < 0 then FViewStart := 0;
end;
FViewLimit := AValue;
UpdateView;
end;