Einzelnen Beitrag anzeigen

Benutzerbild von PhilmacFLy
PhilmacFLy

Registriert seit: 20. Jan 2008
Ort: Nürnberg
340 Beiträge
 
FreePascal / Lazarus
 
#1

StretchDraw auf Paintbox in XE3 langsamer als in XE2

  Alt 15. Okt 2013, 10:02
Delphi-Version: XE2
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"
Philipp N.
"Programmiern ist wie küssen:
Mann kan darüber reden, mann kann es beschreiben,
aber man weiss erst, was es bedeutet,
wenn man es getan hat"

Geändert von PhilmacFLy (15. Okt 2013 um 10:38 Uhr)
  Mit Zitat antworten Zitat