TTreeView раскрасить первые 3 буквы.

[Dvoishnik]

хочу раскрасить первые три буквы Итема TreeView
было бы хорошо если показали бы любой пример. дальше сам бы разобрался.

[min@y™]

вместо 1000 слов:

45.jpg

[Dvoishnik]

беда у меня с хелпом, если несложно прикрепите код из подсказки.

[Аватар]

Рисуй первых три символа одним цветом Canvas.TextOut, Цвет задавай в Canvas.Font. Остаток строки другим цветом. Ширину первых трех символов можно узнать например с помощью Canvas.TextWidth

[min@y™]

беда у меня с хелпом

что за беда?

[Dvoishnik]

Сообщение от min@y™

что за беда?

аллергия на F1
П,С. спасибо за помощь нашёл хелп в интернете

[min@y™]

аллергия на F1

О, повезло, что не геморрой!

[Dvoishnik]

такой код:

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with TreeView1.Canvas do
 Begin
  DefaultDraw := False ;
  Font.Color := clLime;
  TextOut( 10, 0, Copy(Node.Text,0,3));
  Font.Color := clWindowText;
  TextOut( 10+TextWidth(Copy(Node.Text,0,3)), 0, Node.Text);
 end;
end;
end.

результат
1.png
по идее зелеными должны были быть первые 3 символа.
вопрос собственно что я делаю не так??

[min@y™]

Для начала посмотри, как и с какими данными работает функция Copy().

[Dvoishnik]

функция Copy работает со строками копирует количество символов строки с указанной позиции
у меня получается копирует 3 первых символа TextOut выводит их зеленым
затем

TextOut( 10+TextWidth(Copy(Node.Text,0,3)) // ищет позицию на которой нужно продолжить рисовать строку 
, 0, Node.Text); // и по идее должно дорисовать черным.

что с функцией копи то не так??
П.С, если принципиально для примера чтоб выводилась та же строка что и была задана то

  TextOut( 10+TextWidth(Copy(Node.Text,0,3)), 0,Copy(Node.Text,4,Length(Node.Text)));

хотя это ничего не меняет.