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

ide: fix selection painting of debugger eventlog colors list

Browse Source 
git-svn-id: trunk@36772 -
This commit is contained in:
blikblum 2012-04-14 11:58:45 +00:00
parent d82c35b476
commit 177d1ee320
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
debugger/frames/debugger_eventlog_options.pas
View File

@ -101,6 +101,7 @@ begin
end; end;
NodeRect := Node.DisplayRect(True); NodeRect := Node.DisplayRect(True);
FullAbcWidth := Sender.Canvas.TextExtent(COLOR_NODE_PREFIX).cx; FullAbcWidth := Sender.Canvas.TextExtent(COLOR_NODE_PREFIX).cx;
Inc(NodeRect.Right, FullAbcWidth);
TextY := (NodeRect.Top + NodeRect.Bottom - Sender.Canvas.TextHeight(Node.Text)) div 2; TextY := (NodeRect.Top + NodeRect.Bottom - Sender.Canvas.TextHeight(Node.Text)) div 2;
Sender.Canvas.FillRect(NodeRect); Sender.Canvas.FillRect(NodeRect);
Sender.Canvas.TextOut(NodeRect.Left + FullAbcWidth, TextY, Node.Text); Sender.Canvas.TextOut(NodeRect.Left + FullAbcWidth, TextY, Node.Text);