[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.

[Mavarik]

Schick bitte mal den Source zum testen...

[Darlo]

Code wollte ich anhängen, leider ist mir Delphi nach dem compilieren abgestürzt. Und jetzt... bekomme ich es in einer Testanwendung nicht mehr reproduziert.

[Der schöne Günther]

Hier wenigstens ein Screenshot von mir

[Darlo]

Danke, dann liegt es wohl nicht an meinem Rechner.
Versuche noch den Source bereitzustellen.

[Mavarik]

Zitat von Darlo:

Danke, dann liegt es wohl nicht an meinem Rechner.
Versuche noch den Source bereitzustellen.

Ein Resize fixed das Problem..
Versuch mal ein beginupdate endupdate

[Darlo]

Leider nicht. Ich aktiviere jetzt nach jedem View-Wechsel einen Timer der ein myform.repaint ausführt. Leider sieht man trotzdem für einen Bruchteil einer Sekunde die schwarzen Linien.