Как поставить цвет на узле виртуального дерева строк? - PullRequest
Новая
       13

Как поставить цвет на узле виртуального дерева строк?

0 голосов
/ 04 августа 2010

Возможно ли, что виртуальное дерево строк выглядит так?

альтернативный текст http://sphotos.ak.fbcdn.net/hphotos-ak-ash2/hs142.ash2/40454_1457947221163_1607860397_31141943_5530616_n.jpg

Мне действительно нужна помощь по этому вопросу, поскольку я новичок в Delphi ..

1 Ответ

1 голос
/ 04 августа 2010

Вы можете поместить что-то в событие OnBeforeCellPaint.Например: 

procedure TForm1.VirtualStringTree1BeforeCellPaint(Sender: TBaseVirtualTree;      
    TargetCanvas: TCanvas; Node: PVirtualNode;
    Column: TColumnIndex; CellPaintMode: TVTCellPaintMode; CellRect: TRect; 
var     
  ContentRect: TRect);
begin
  CellRect.Left := CellRect.Left + 20;
  TargetCanvas.Brush.Color := clLime;
  TargetCanvas.RoundRect(CellRect, 5, 5);
  InflateRect(ContentRect, -1, -1);
end;

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

N @

...