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

IDE: next/prev error: clear multi selection

Browse Source 
git-svn-id: trunk@36753 -
This commit is contained in:
mattias 2012-04-13 16:31:44 +00:00
parent 43f74e4964
commit 1cef794417
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/msgview.pp
View File

@ -1208,11 +1208,14 @@ end;
procedure TMessagesView.SetSelectedLineIndex(const AValue: integer);
begin
MessageTreeView.BeginUpdate;
MessageTreeView.ClearInvisibleSelection;
if AValue>=0 then begin
MessageTreeView.Items.TopLvlItems[AValue].Selected := true;
MessageTreeView.Selected:=MessageTreeView.Items.TopLvlItems[AValue];
//MessageTreeView.TopItem := MessageTreeView.Selected;
end else
MessageTreeView.Selected := nil;
MessageTreeView.EndUpdate;
end;
procedure TMessagesView.UpdateMsgSrcPos(Line: TLazMessageLine);