Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by pertzschc,
1. Apr 2009
Lass uns doch nochmal nachfragen: warum rufst Du in der procedure eigentlich inherited; auf? Habe das bei den Beispielen hier im Forum noch nicht gesehen und selber auch noch nie so programmiert.
Gruß,
Christoph
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by pertzschc,
1. Apr 2009
Schau mal dazu in die VTV-Doku, Stichwort: Paint cycles and stages.
Auch hierzu gibt es in der Doku eine mögliche Erklärung:
Gruß,
Christoph
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by pertzschc,
1. Apr 2009
Ich habe mir den Quellcode des Beispieles mal angeschaut und folgende Frage zu meinem Verständnis:
procedure TForm1.VirtualStringTree1BeforeCellPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
var
CachedShadowColor: TColor;
begin
if (CellPaintMode = cpmPaint)...