Do not overwrite FCellFont after adjusting its color. Fixes issue #1295

This commit is contained in:
Ansgar Becker
2009-08-15 18:17:49 +00:00
parent 2cd3e99596
commit 74b36d8524

View File

@@ -290,9 +290,11 @@ var
CellBounds, TextBounds: TRect;
Ghosted: Boolean;
ImageIndex: Integer;
f: TFont;
begin
// Return the cell's rectangle, relative to the parent form.
FTree.GetTextInfo(FNode, FColumn, FCellFont, TextBounds, Text);
f := TFont.Create;
FTree.GetTextInfo(FNode, FColumn, f, TextBounds, Text);
CellBounds := FTree.GetDisplayRect(FNode, FColumn, False);
Inc(CellBounds.Left, Integer(FTree.GetNodeLevel(FNode)) * (Integer(FTree.Indent)+FTree.TextMargin));