|
Registriert seit: 4. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
Delphi XE4 Ultimate
|
AW: FM: Auf Panel.Canvas malen
2. Mär 2014, 21:16
Hallo,
jetzt der Code im richtigen Eventhandler:
Delphi-Quellcode:
procedure TForm1.Panel1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
Panel1.Canvas.BeginScene;
Panel1.Canvas.Fill.Color := claGreen;
Panel1.Canvas.FillRect (ARect, 0, 0, [], 1.0);
Panel1.Canvas.EndScene
end;
Gruß
Volker Zeller
Geändert von Volker Z. ( 2. Mär 2014 um 21:28 Uhr)
Grund: Eventhandler korrigiert
|