TTreeView Font Color Bug?

[wjackson153]

I have tried to change the font color of TTreeView componient with no success
back color changes fine, but font will not change.

Can anyone else confirm this?

[wjackson153]

Man 45 reviews and no one can confirm this issue ?

Ok, perhaps I left out a vital peice of information

Lazarus 1.04  FPC 2.6
Linux Mint 12 i386
GTK2 and KDE4 same effect both enviroments
Debian 6.05  same effect

Confirmed also on Ubuntu 12.04

[Bart]

I can confirm that on Windows.
(Lazarus 1.1 r39620 FPC 2.6.2 i386-win32-win32/win64)

Setting font.color has no visual effect, althoug querying the font.color will return the value you have assigned.

Bart

[wjackson153]

Ok thanks for your comfirmation, I was beginning to think it was a linux issue
as I do not use Windows nor own  a copy of windows I had no way of testing
it to confirm it was a linux only issue.

Good to know im not the only affected user

Now I wonder if there are any plans to fix it in the next control release.

[Bart]

You can file a bugreport in the bugtracker.
This will ensure it gets the attention it needs.

Mind you, under Windows (WinME) using Delphi 3 (okay, very old indeed) I cannot alter TTreeView.Font.Color as well.
So this may well be a limitation of the underlying widgetset (but this does not show in the Restriction Tab of the OI, nor in the Restriction Browser).

Bart

[Bart]

It seems that you need to use the OnCustomDrawItem() event for that.
See: this topic at ProgrammersHeaven.com for an example.

Bart

[wjackson153]

In regards to :

Code: [Select]

It seems that you need to use the OnCustomDrawItem() event for that.
Tried that as well

procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
begin
 with TreeView1.Canvas do
 begin // use the canvas of the treeview and not the form's canvas
    if Node.Level = 0 then // root nodes have a level of 0
      begin

      Font.Style := [fsBold, fsItalic];
      font.Color:= clRed;
      end

    else // all other have higher level properties
    begin
      Font.Style := [];
    DefaultDraw := true; // let the treeview do the drawing with your selected properties

    end;
  end;
end;       
     

[prenic]

On TTreeView control property, set Options | tvoThemedDraw to False.

[vaun]

Changing options->tvoTHemedDraw works for me.
Thanks.