Forum: Cross-Platform-Entwicklung
by Hofix2004,
18. Jul 2020
Wenn ich ein Label auf das Formular setze und folgendes mache, dann klappt das Zeichnen auch
procedure TCanvasTestForm.Timer1Timer(Sender: TObject);
begin
Label1.Text := inttostr(x);
end;
Forum: Cross-Platform-Entwicklung
by Hofix2004,
17. Jul 2020
Hallo,
kann mir jemand weiterhelfen, warum das unter Windows und Android klappt, aber auf iOS nicht?
Auf iOS wird nur das erste OnPaint dargestellt. Der Rest scheint im Speicher des Canvas zu sein, wird aber nicht dargestellt.
procedure TCanvasTestForm.FormCreate(Sender: TObject);
begin
x := 10;