Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Flocke,
8. Aug 2005
Du darfst an Stage nichts zuweisen sondern musst es auswerten!
procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
begin
if Stage = cdPrePaint then
with TreeView1.Canvas do
begin
if cdsSelected in State then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Flocke,
8. Aug 2005
Du musst bei OnAdvancedDrawItem natürlich den zusätzlichen Parameter auswerten und nicht immer zeichnen!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Flocke,
7. Aug 2005
Probier mal vor der Ausgabe (in OnCustomDrawItem) (aus dem Kopf, nicht ausprobiert)
Sender.Canvas.Font.Assign(Sender.Font);