how do i remove white background in node inside virtual TVirtualStringTree?

[drama22]

i tried to use TargetCanvas.Brush.Style := bsClear; inside BeforeCellPaint still node have white back ground here is the full code

Delphi-Quellcode:

procedure TForm2.VTs1BeforeCellPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
begin
TargetCanvas.Brush.Style := bsClear;
TargetCanvas.FillRect(CellRect);
end;

[Zacherl]

What exactly are you trying to do?

You can set a custom color for each row like this:

Delphi-Quellcode:

procedure TfrmMain.EditorTreeBeforeItemErase(Sender: TBaseVirtualTree; TargetCanvas: TCanvas;
  Node: PVirtualNode; ItemRect: TRect; var ItemColor: TColor; var EraseAction: TItemEraseAction);
begin
  EraseAction := eaColor;
  ItemColor := clBlue;
end;

If you like to use colored rows while using a background image, try this:
http://stackoverflow.com/a/10537589

[drama22]

Zitat von Zacherl:

What exactly are you trying to do?

i dont want any back ground around the cell just the text

[Zacherl]

So you want to make the cell transparent? I don't think that's possible at all :/ There might be a hacky way by manually drawing the contents of the parent canvas before printing the text, but I never saw something like that in action.

[drama22]

Zitat von Zacherl:

So you want to make the cell transparent? I don't think that's possible at all :/ There might be a hacky way by manually drawing the contents of the parent canvas before printing the text, but I never saw something like that in action.

i think there is way because i found something like that in action

[Zacherl]

Zitat von drama22:

i found something like that in action see this image

I can't even see the actual VirtualStringTree control on this picture Is it the gradient thingy in the background?

[drama22]

Zitat von Zacherl:

I can't even see the actual VirtualStringTree control on this picture Is it the gradient thingy in the background?

this gradient can be drawn easy on paint-background as eg .

Delphi-Quellcode:

procedure TForm2.VTs1PaintBackground(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; R: TRect; var Handled: Boolean);
begin
 //
  GradientFillCanvas(TargetCanvas,  clred, clWhite, R, gdHorizontal); // GraphUtil
  Handled := True;

end;

the white bg of node is the issue see my example

[uligerhardt]

Zitat von drama22:

http://www.mediafire.com/convkey/aa8....jpg?size_id=4

Please use the attachment feature of this forum for pictures. File hosters are blocked at my workplace (and that of others too, I guess).

[drama22]

Zitat von uligerhardt:

Please use the attachment feature of this forum for pictures. File hosters are blocked at my workplace (and that of others too, I guess).

image attached .