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

EditoEditorOptions: Preview Colors in list / font size

Browse Source 
git-svn-id: trunk@21195 -
This commit is contained in:
martin 2009-08-12 13:44:01 +00:00
parent c05c2d6daa
commit 1aa3cceda2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/frames/editor_color_options.pas
View File

@ -283,7 +283,7 @@ begin
s:= '123';
ColorElementTree.Canvas.Font.Color := c;
ColorElementTree.Canvas.Font.Style := Attri.Style;
ColorElementTree.Canvas.Font.Height := NodeRect.Bottom - NodeRect.Top - 5;
ColorElementTree.Canvas.Font.Height := -(NodeRect.Bottom - NodeRect.Top - 7);
TextY := (NodeRect.Top + NodeRect.Bottom - canvas.TextHeight(s)) div 2;
AbcWidth := ColorElementTree.Canvas.TextExtent(s).cx;
SetBkMode(ColorElementTree.Canvas.Handle, TRANSPARENT);