TreeView и градиент

[kettanaito]

Возможно выделять items в TreeView градиентом?
В CustomDrawItem могу описать статичный цвет для состояния item Selected, но при попытке прорисовать градиент не могу найти правильные свойства item (TRect, Canvas).

Есть идеи?

[ReportCube]

Примерно так:

procedure TForm1.TreeReportAdvancedCustomDraw Item(
Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
Stage: TCustomDrawStage; var PaintImages, DefaultDraw: Boolean);
var
ARect: TRect;
begin
if (Node.Parent = nil) then Exit;
if not (Stage = cdPostPaint) then Exit;
ARect := Node.DisplayRect(True);
with TTreeView(Sender) do begin
if cdsSelected in State then begin
///////// Код для выделенного
end else begin
///////// Код для невыделенного
end;
end;
DefaultDraw := False;
end;

[kettanaito]

ReportCube, это все ясно, я же писал, что могу задать выделенный цвет и фон в CustomDrawItem. Вопрос в том, как мне задать в качестве фона для item градиент?

Как получить Canvas и TRect выделенного item из TreeView?

[Аватар]

Можно здесь подсмотреть http://www.delphisources.ru/pages/fa..._gradient.html

[kettanaito]

Сейчас делаю так:

 procedure GradVertical(Canvas:TCanvas; Rect:TRect; FromColor, ToColor:TColor) ;
 var
   Y:integer;
   dr,dg,db:Extended;
   C1,C2:TColor;
   r1,r2,g1,g2,b1,b2:Byte;
   R,G,B:Byte;
   cnt:Integer;
 begin
    C1 := FromColor;
    R1 := GetRValue(C1) ;
    G1 := GetGValue(C1) ;
    B1 := GetBValue(C1) ;

    C2 := ToColor;
    R2 := GetRValue(C2) ;
    G2 := GetGValue(C2) ;
    B2 := GetBValue(C2) ;

    dr := (R2-R1) / Rect.Bottom-Rect.Top;
    dg := (G2-G1) / Rect.Bottom-Rect.Top;
    db := (B2-B1) / Rect.Bottom-Rect.Top;

    cnt := 0;
    for Y := Rect.Top to Rect.Bottom-1 do
    begin
       R := R1+Ceil(dr*cnt) ;
       G := G1+Ceil(dg*cnt) ;
       B := B1+Ceil(db*cnt) ;

       Canvas.Pen.Color := RGB(R,G,B) ;
       Canvas.MoveTo(Rect.Left,Y) ;
       Canvas.LineTo(Rect.Right,Y) ;
       Inc(cnt) ;
    end;
 end;
...
procedure TForm1.TVAdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
  var ARect:TRect;
begin
  ARect:=Node.DisplayRect(True);
  ARect.Right:=TV.ClientWidth;
  ARect.Left:=0;
  if cdsSelected in State then
  begin
  ARect:=Node.DisplayRect(True);
  ARect.Right:=TV.ClientWidth;
  ARect.Left:=0;
  GradVertical(TV.Canvas,ARect,$00E39B40,$00CD6000);
  Sender.Canvas.Font.Color:=clWhite;
  Sender.Canvas.Font.Style:=[fsBold];
  Sender.Canvas.Brush.Style:=bsClear;
  Sender.Canvas.TextOut(2,Arect.Top+5,Node.text);
  end else
  begin
  Sender.Canvas.Font.Color:=clGray;
  Sender.Canvas.Font.Style:=[];
  end;
end;

Все отлично работает только при выделении первого Item из TreeView. При выделении других получаю такое:
http://gyazo.com/2293d9a9804697b9dad3439efb77f4d4.png

Причем чем больше по счету item выделяю, тем безобразнее становится градиент (как на картинке выше).

Объясните почему так?

[Аватар]

Сильно не анализировал, но отсутствие скобок не очень нравится

    dr := (R2-R1) / (Rect.Bottom-Rect.Top);
    dg := (G2-G1) / (Rect.Bottom-Rect.Top);
    db := (B2-B1) / (Rect.Bottom-Rect.Top);

[ReportCube]

Посмотрите здесь

[kettanaito]

Аватар, ReportCube, в функции рисования градиента все верно. Проблема в другом (на картинке в посте указал ссылку на скриншот).
P.S. Нарисованный в ARect градиент перекрывает и текст узла и картинку узла (иконку слева). Текст отрисовать заново можно (в коде выше сделано), а вот как быть с картинкой...

[Аватар]

Все из-за этого ARect.Left:=0

[ReportCube]

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