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

ide: use treeview canvas for text height measurements in editor color options frame

Browse Source 
git-svn-id: trunk@30484 -
This commit is contained in:
paul 2011-04-27 03:20:55 +00:00
parent 873771ca05
commit bc6174fd5e
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/frames/editor_color_options.lfm
View File

@ -3,6 +3,7 @@ inherited EditorColorOptionsFrame: TEditorColorOptionsFrame
Width = 640
ClientHeight = 440
ClientWidth = 640
TabOrder = 0
Visible = False
DesignLeft = 420
DesignTop = 200

2
ide/frames/editor_color_options.pas
View File

@ -229,7 +229,7 @@ begin
end;
NodeRect := Node.DisplayRect(true);
FullAbcWidth := ColorElementTree.Canvas.TextExtent(COLOR_NODE_PREFIX).cx;
TextY := (NodeRect.Top + NodeRect.Bottom - canvas.TextHeight(Node.Text)) div 2;
TextY := (NodeRect.Top + NodeRect.Bottom - ColorElementTree.Canvas.TextHeight(Node.Text)) div 2;
ColorElementTree.Canvas.FillRect(NodeRect);
ColorElementTree.Canvas.TextOut(NodeRect.Left+FullAbcWidth, TextY, Attri.Name);