Hallo,
aus bestimmten Gründen muss ich direkt auf das Canvas eines TExpanders zeichnen.
Dass ich das im OnPaint machen muss, weiß ich, aber jetzt passiert etwas ganz merkwürdiges:
Delphi-Quellcode:
procedure TForm1.Expander1Paint(Sender: TObject; Canvas: TCanvas;
const ARect: TRectF);
begin
Expander1.canvas.BeginScene();
Expander1.canvas.Clear(Talphacolors.Blue);
Expander1.canvas.EndScene;
end;
Das gesamte Formular und der Expander wird blau!
Was ist denn nun los?
Nachtrag:
Wenn ich den Code verlagere nach
Delphi-Quellcode:
procedure TForm1.Expander1Painting(Sender: TObject; Canvas: TCanvas;
const ARect: TRectF);
begin
Expander1.canvas.BeginScene();
Expander1.canvas.Clear(Talphacolors.Blue);
Expander1.canvas.EndScene;
end;
ist das Formular blau und der Expander weiß!
Ciao
Stefan