Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by drama22,
6. Apr 2016
this gradient can be drawn easy on paint-background as eg .
procedure TForm2.VTs1PaintBackground(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; R: TRect; var Handled: Boolean);
begin
//
GradientFillCanvas(TargetCanvas, clred, clWhite, R, gdHorizontal); // GraphUtil
Handled := True;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by drama22,
6. Apr 2016
i tried to use TargetCanvas.Brush.Style := bsClear; inside BeforeCellPaint still node have white back ground here is the full code
procedure TForm2.VTs1BeforeCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
begin
TargetCanvas.Brush.Style := bsClear;...