VirtualStringTree Text with multiColor

[sdean]

Hello , please i need all your help in this :

Suppose i have this Text on VirtualStringTree cell :

'HELLO'

how can i give Each character a different Color like this :

HELLO

many thanks

[Aviator]

Maybe you could use the OnDrawText Event of the VST. And I think there you could change the Canvas.Font.Color of the TargetCanvas for each letter.

[sdean]

Zitat von Aviator:

Maybe you could use the OnDrawText Event of the VST. And I think there you could change the Canvas.Font.Color of the TargetCanvas for each letter.

many thanks Aviator , i really need a little code ....

[Aviator]

Maybe you could do it like this:

Delphi-Quellcode:

procedure TMainFrm.MainVSTDrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
  Column: TColumnIndex; const Text: string; const CellRect: TRect; var DefaultDraw: Boolean);
var
  i, TotalWidth : Integer;
begin
  DefaultDraw := False;
  if Node.Index = 1 then begin
    TotalWidth := 0;
    for i := 0 to Length(Text) - 1 do begin
      if (i mod 2 = 0) then
        TargetCanvas.Font.Color := clBlue
      else
        TargetCanvas.Font.Color := clRed;

      TargetCanvas.TextOut(CellRect.Left + TotalWidth, CellRect.Top, Text[i]);
      Inc(TotalWidth, TargetCanvas.TextWidth(Text[i]));

    end;
  end else
    DefaultDraw := True;
end;

But I really don't know if this is the right and/or fastest way to do this.

Happy testing.

[Aviator]

Sorry for double posting, but I forgot the sample picture.