[FMX] UI wird nicht sauber gezeichnet

[Darlo]

Die Fehler treten nur auf wenn form.scale.x und y ungleich 1 ist.
Ich skaliere wie folgt:

Delphi-Quellcode:

procedure TfrmMain.FormResize(Sender: TObject);
var
  scaleX, scaleY, scaleFaktor: double;
begin

  if (frmMain.Height > 712) and (frmMain.Width > 1024) then
    begin
      //Für eine gleichmäßige Skallierung den kleineren Wert ermitteln
      scaleX := frmMain.ClientWidth/1024;
      scaleY := frmMain.ClientHeight/712;
      scaleFaktor := max(min(scaleX, scaleY),1);

      frmMain.laMain.Scale.X := scaleFaktor;
      frmMain.laMain.Scale.Y := scaleFaktor;
    end
  else
    begin
      scaleX := frmMain.ClientWidth/1024;
      scaleY := frmMain.ClientHeight/712;
      scaleFaktor := max(min(scaleX, scaleY),0.6);

      frmMain.laMain.Scale.X := scaleFaktor;
      frmMain.laMain.Scale.Y := scaleFaktor;
    end;

end;

Anbei eine Testanwendung. Wäre nett wenn jemand kurz testen könnte ob der Fehler bei ihm auch auftritt.