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

ide: fixed drawing of selected text in search results view, based on patch by Alexander Klenin (issue #18328)

Browse Source 
git-svn-id: trunk@28840 -
This commit is contained in:
vincents 2010-12-30 11:39:26 +00:00
parent ac11c21dd6
commit 95e7ce5291
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/searchresultview.pp
View File

@ -896,8 +896,15 @@ var
ARect: TRect;
begin
if Stage <> cdPostPaint then Exit;
With Sender as TLazSearchResultTV do
begin
if [cdsSelected,cdsMarked] * State <> [] then
Canvas.Font.Color := clHighlightText;
ARect:=Node.DisplayRect(true);
Canvas.FillRect(ARect);
MatchObj := TLazSearchMatchPos(Node.Data);
if assigned(MatchObj) and (MatchObj is TLazSearchMatchPos) then
MatchPos:= TLazSearchMatchPos(Node.Data)
@ -906,8 +913,6 @@ begin
if Assigned(MatchPos) then
begin
ARect:=Node.DisplayRect(true);
Canvas.FillRect(ARect);
FirstMatchPos:=MatchPos;
TheTop:= ARect.Top;
@ -948,6 +953,11 @@ begin
end;
MatchPos:=MatchPos.NextInThisLine;
end;
end
else begin
// this is usually the filename only
// draw it here too, so that the correct colors are used
Canvas.TextOut(ARect.Left, ARect.Top, Node.Text);
end;//if
end;//with
end;//TreeViewDrawItem