Registriert seit: 9. Jun 2005
Ort: Unna
1.172 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: JPEG resizen und nur Probleme
15. Jul 2005, 12:52
Zitat von alcaeus:
Die groesse passt, aber die Farben usw. passen ueberhaupt nicht. Es sieht so aus als waere ein Raster druebergezogen worden. Mit StretchDraw klappt es hingegen.
Hast du mal das ausprobiert für StretchBlt:
Delphi-Quellcode:
with PaintBoxList[1][iIndex].Canvas do
begin
GetBrushOrgEx( Handle, pt);
SetStretchBltMode( Handle, HALFTONE);
SetBrushOrgEx( Handle, pt.x, pt.y, @pt);
StretchBlt( Handle, PicLeft, PicTop, NewWidth, NewHeight,
TempBMP.Canvas.Handle, 0, 0, OldWidth, OldHeight, SRCCOPY);
end;
Volker
|
|
Zitat
|