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

[Аватар]

А там и правда на цвет реакция что-то не то. Так нормуль

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var Rect: TRect;
    bmp: TBitmap;
begin
  Rect:=Node.DisplayRect(True);  //область отображения текста нода на канвас тривью
  bmp:=TBitmap.Create;
  bmp.Width:=Rect.Right-Rect.Left;      //размеры битмапа в соответствии с Rect
  bmp.Height:=Rect.Bottom-Rect.Top;
  bmp.Canvas.Font.Assign(TreeView1.Canvas.Font);  //фонт такой же как у тривью
  bmp.Canvas.Font.Color := clRed;                           //цвет красный
  bmp.Canvas.TextOut(0,0,Copy(Node.Text,1,3));     //в битмап первых 3 символа
  bmp.Canvas.Font.Color := clBlack;                       //цвет черный
  bmp.Canvas.TextOut(bmp.Canvas.TextWidth(Copy(Node.Text,1,3)),0,Copy(Node.Text,4,Length(Node.Text))); //в битмап остальные символы со смещением по ширине первых трех
  TreeView1.Canvas.CopyRect(Rect, bmp.Canvas, Classes.Rect(0,0,bmp.Width,bmp.Height)); //копирование битмапа в область текста для нода
  bmp.Free;  //усё
  DefaultDraw := False;
end;

TextOut( 10, 0

Там для каждого нода своя позиция на экране - Node.DisplayRect. И bmp можно только раз создать, а не для прорисовки каждого нода

[min@y™]

что с функцией копи то не так??

нумерация символов - с 1, а не с 0.

[Dvoishnik]

Аватар, я понимаю что наглею, но если не сложно не могли бы комментарий сделать к вашему коду.

[Аватар]

В #11 накоментировал

[Dvoishnik]

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

[Dvoishnik]

продолжаю извращаться с TV
как узнать расстояние от стенки от стенки TreeView до текста?

П.С. а еще лучше расстояние от Правого края монитора.

вопрос закрыт внимательно перечитал пост #11

[min@y™]

Ты задолбал. В хэлпе всё есть.

38.png