Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

рисование в treeview   Найти похожие ветки 

 
webpauk   (2007-05-10 20:26) [0]

Подскажите позволяет ли TtreeView отрисовывать TtreeNode разными цветами?

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
 Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
 Rect: TRect;
 fI, fPos: Integer;
begin
 with TTreeView(Sender).Canvas do
 begin
   Brush.Color:=clWindow;

   if (cdsSelected in State) then
   begin
     Brush.Color:=clHighlight;
     Font.Color:=clHighlightText;

     Rect:=Node.DisplayRect(True);
     FillRect(Rect);
   end;

   Font.Color:=clBlack;

   fPos:=0;

   for fI := 1 to Length(Node.text) do
   begin
     Font.Color:=ColorArray[fI-1];

     TextOut(Rect.Left+fPos, Rect.Top, Node.Text[fI]);
     fPos:=fPos+TextWidth(Node.Text[fI]);
   end;
 end;
end;


раскрашивает только последним цветом, а надо чтобы все буквы отличались...


 
Loginov Dmitry ©   (2007-05-10 22:54) [1]

Без промежуточного буфера действительно чесь нихотит.

Вот такое, к примеру, работает:


procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
 Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
 var PaintImages, DefaultDraw: Boolean);
var
 Rect: TRect;
 Bitmap: TBitmap;
begin
 Rect := Node.DisplayRect(True);

 Bitmap := TBitmap.Create;
 try
   Bitmap.Width := Rect.Right - Rect.Left;
   Bitmap.Height := Rect.Bottom - Rect.Top;
   with Bitmap.Canvas do
   begin
     DefaultDraw := False;
     Font.Color := clGreen;
     TextOut(0, 0, "111");
     Font.Color := clRed;
     TextOut(TextWidth("111"), 0, "222");
     Sender.Canvas.Draw(Rect.Left, Rect.Top, Bitmap);
   end;
 finally
   Bitmap.Free;
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.07 c
2-1178035094
Belorus
2007-05-01 19:58
2007.05.27
Классы


15-1178012527
DVM
2007-05-01 13:42
2007.05.27
Счетчик ошибок страницы в Диспетчере задач.


2-1177655982
ОльгаС
2007-04-27 10:39
2007.05.27
Ehlib и инсталяция


2-1178557712
Антон Шестаков
2007-05-07 21:08
2007.05.27
Чтение из базы


15-1177436016
Kerk
2007-04-24 21:33
2007.05.27
Дайте чтоль похвалюсь :))