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

debugger: select last event on event add

Browse Source 
git-svn-id: trunk@30654 -
This commit is contained in:
paul 2011-05-10 06:17:54 +00:00
parent 4ae562d3db
commit ca906c31e1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/debugeventsform.pp
View File

@ -158,7 +158,10 @@ begin
//removed from FEvents because of log limit.
// Also, TopItem and GetItemAt(0,0) both return nil in gtk2.
if tvFilteredEvents.Items.Count <> 0 then
tvFilteredEvents.Items[tvFilteredEvents.Items.Count -1].MakeVisible;
begin
tvFilteredEvents.Items[tvFilteredEvents.Items.Count - 1].MakeVisible;
tvFilteredEvents.Selected := tvFilteredEvents.Items[tvFilteredEvents.Items.Count - 1];
end;
end;
procedure TDbgEventsForm.SetEvents(const AEvents: TStrings);
@ -236,6 +239,7 @@ begin
Item.SelectedIndex := Rec.Category;
Item.Data := Rec.Ptr;
Item.MakeVisible;
tvFilteredEvents.Selected := Item;
end;
end;