Hallo,
versuche jetzt schon etwas länger auf ein Canvas eines Panels zu malen. Unter der
VCL funktioniert es. Unter FireMonkey habe ich mal folgenden Code geschrieben:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
theRect : TRectF;
begin
theRect.Left := 10;
theRect.Top := 40;
theRect.Right := 50;
theRect.Bottom := 60;
Panel1.Canvas.Stroke.Color := claGreen;
Panel1.BeginUpdate;
Panel1.Canvas.FillRect(theRect, 0, 0, [], 1.0);
Panel1.EndUpdate;
Panel1.Repaint;
end;
Habe es auch schon ohne BeginUpdate und EndUpdate und auch ohne Repaint versucht, aber es erscheint nichts auf dem Panel.