2010-08-04 79 views

回答

1

你可以把東西然後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 - [