StretchDraw auf Paintbox in XE3 langsamer als in XE2

[PhilmacFLy]

Moin

Wie ich ja jetzt schon mal geposted hab zieh ich momentan einige Projekte von Delphi 2005 auf XE3.
Jetzt habe ich folgenden Code portiert:

Delphi-Quellcode:

procedure TForm1.pb_backPaint(Sender: TObject);
var
balkenrect: Trect;
begin
balkenrect := Rect(0, round(screen.height *0.14), screen.Width, screen.Height);
pb_back.Canvas.StretchDraw(balkenrect, im_hintergrund.Picture.Graphic);
end;

In Delphi 2005 funktioniert der problemlos.
In XE3 funktioniert er auch aber ist um einiges langsamer und zwar so langsam, das man es merkt.
Das Bild ist ein jpg Bild mit der stattlichen Größe von 4672x2406 Pixel. Wenn ich das Bild auf 2000 Pixel verkleiner gehts natürlich schneller.
Mich würde aber trotzdem interessieren warum es im XE3 langsamer ist als in Delphi 2005.

Edit: grad gemerkt das der Titel falsch is soll natürlich heissen: "StretchDraw auf Paintbox in XE3 langsamer als in Delphi 2005"

[Bernhard Geyer]

hast du mal den Quellcode der in der VCL steckt hinter StretchDraw steckt verglichen?

[PhilmacFLy]

Auf die schnelle hab ich keinen Unterschied feststellen können :|

[himitsu]

Kann jetzt nichts zum Problem sagen, aber mir ist grade aufgefallen, daß TImage mindestens seit XE extrem langsam ist, wenn man dort das Image gestretcht anzeigt.

> Neues JPEG da reinladen, dann flackert die Anzeige ... je größer das Bild, um so mehr fällt es auf und um so länger wird est, daß da mal "kurz" der Hintergrund sichtbar wird.