Customdraw TreeView - cannot change font colour

This is an example code that is working for me at OnCustomDraw event in TTreeView:

procedure TForm1.tvTareasCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var i: integer;
begin
  //this portion of code change color and font properties depending on a state
  i := eTareas.IndexOf(Node.Text); //look for text in a TStringList to take the state of the node in i
  if i <> -1 then
    with (Sender as TTreeView) do
      with Canvas do
        begin
          case i of
            eWaiting: begin
                           Brush.Color := clRed;
                           Font.Color  := clWhite;
                         end;
            eStandBy   : Brush.Color := clYellow;
            eFinished: begin
                           Brush.Color := clGreen;
                           Font.Color  := clWhite;
                         end;
          end;
          //Font.Style := [fsBold];
        end;
  //this portion paint internal nodes
  i := eNotas.IndexOf(Node.Text); //this search iin another TStringList for another state
  if i <> -1 then
    with (Sender as TTreeView) do
      with Canvas do
        begin
          case i of
            ePendiente : Brush.Color := clRosa;
            eStandBy   : Brush.Color := clAmarillo;
            eFinalizada: Brush.Color := clVerde;
          end;
          //Font.Style := [fsBold];
        end;
  //this paint most important nodes
  if Node.Parent = nil then
    with (Sender as TTreeView) do
      with Canvas do
        Font.Color := clNavy;
//  else if Node.Parent.Parent = nil then
  //this put bold for all text in the treeview
  with (Sender as TTreeView) do
    with Canvas do
      Font.Style := [fsBold];
end;

Hope this help!

Sorry... OnCustomDrawItem event... not at OnCustomDraw as i formerly said.

Try Like this


For example
var
  DisplayText : string;
  NodeRect : TRect;



With TTreeView(Sender).Canvas do
begin
     DefaultDraw := false;
     NodeRect := Node.DisplayRect(False);
     FillRect(NodeRect);
     Font.Color := clBlue;
     DisplayText := Node.Text;
     DrawText(Handle,  DisplayText[1], Length(DisplayText), NodeRect, dt_SingleLine or dt_vcenter);
     NodeRect.Left := Noderect.Left + 100;
     Font.Color := clGreen;
     refresh;
     DrawText(Handle,  DisplayText[1], Length(DisplayText), NodeRect, dt_SingleLine or dt_vcenter);
end;

You can also switch to using WinAPI to change font color in both places.

Instead of
     Font.Color := clBlue;
use
     SetTextColor(Handle, clBlue); // Handle - TreeView's Canvas.Handle

Hi dinlud

Thanks for this but wouldn't calling the refresh method during a paint process result in an infinite loop?

Anyway

Thanks for all who have contributed to this.

sas13 - your answer is the one that works the best - really all component drawing like this should be performed off screen.

Thanks to everyone

Steve

Hi Steve,

   >>>.....wouldn't calling the refresh method during a paint process result in an infinite loop?


  This is my reply. What ever your reply please post.(This is just for a fun)

Unit1.dfm
=======

object Form1: TForm1
  Left = 3
  Top = 197
  Width = 773
  Height = 199
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  OldCreateOrder = False
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 20
  object Button1: TButton
    Left = 288
    Top = 112
    Width = 97
    Height = 41
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
end


Unit1.pas
=======

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormPaint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.TextOut(100,50,'Click On Button.If text not changed, then i will accept your reply.');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.FillRect(Canvas.ClipRect);
  Canvas.Refresh ;
  Canvas.TextOut(100,50,'Now did you accept my answer?. i except your reply. This is just for fun');
end;

end.




   

>> Thanks for this but wouldn't calling the refresh method during a paint process result in an infinite loop?

Answer is in the help of Delphi ;)

TControl.Refresh and TCanvas.Refresh do different things. Why I am talking about TControl? Because TControl is ancestor of TTreeView (TControl -> TWinControl -> TCustomTreeView -> TTreeView).

TControl.Refresh - Repaints the control on the screen.
TCanvas.Refresh - Deselects the Pen, Brush, and Font from the device context.

ZhaawZ / dinilud:

Accepted ;)
 I thought the refresh call would have called the Refresh of the form, not of the Canvas. I wasn't
aware of the Canvas.Refresh method.

Steve

Thank you.