Firemonkey - ungültige Zeigeroperation

[Sir Rufo]

Zitat von Harry Stahl:

Nachtrag:

Wobei die von mir vorgeschlagene Lösung auf dem MAC viel zu langsam ist.

Auf dem MAC läuft allerdings sowohl die von EMBA, als auch die von Sir Rufo vorgeschlagene Lösung(beide aber eben nicht unter Windows).

Also könnte man die Sache erst mal mit {$IFDEF MAC} usw. lösen. Unter Windows zur Not ["erst mal", bis wir es richtig wissen] die von mir vorgeschlagene Lösung, unter MAC die von Sir Rufo.

Deine Lösung unterscheidet sich von meiner Lösung durch das Aufrufen von Sleep.

BTW Die Abfrage ist überflüssig denn der Setter prüft schon, ob sich der Wert ändert und löst nur dann ein Repaint aus:

Delphi-Quellcode:

  if (Image1.Width <> Image1.Bitmap.Width) or (Image1.Height <> Image1.Bitmap.height) then begin
    Image1.Width:=Image1.Bitmap.Width;
    Image1.Height:=Image1.Bitmap.Height;
  end;