[QUOTE=Harry Stahl;1304932]
Delphi-Quellcode:
procedure TForm14.Panel1Paint(Sender: TObject; Canvas: TCanvas;
const ARect: TRectF);
begin
canvas.BeginScene;
canvas.Fill.Kind := TBrushKind.bkSolid;
Canvas.Clearrect (Arect, TAlphaColorRec.Yellow);
canvas.EndScene;
end;
Das zeichnet das Panel in Gelb,...
Es geht auch ganz simpel(siehe Anhang) Anfängerglück (?):
Aus der Ruhelage (Blau) werden über Button1 oder Button2 andere Farben gewählt. Das klappt ganz stabil. Die Zuordnung / Farbwahl findet über <if> statt.
Ich wüsste aber gern den Code für den Aufruf von
procedure TForm2.Panel1Paint(Sender: TObject; Canvas: TCanvas;const ARect: TRectF);
direkt über z.B. Button1Click.