Hallo Thornberry!!
Klingt interessant...
Nur noch eine Frage...wie kopiere ich das Source-Image richtig?? Denn im Draw stecken ja auch die Ausmasse für das neue Image...
Habs mal so probiert...
Delphi-Quellcode:
....
ABmp.Width := 300;//Round(ASrcImage.Width * AScale);
ABmp.Height := 400;//Round(ASrcImage.Height * AScale);
R := TKernelResampler.Create(ASrcImage);
//R.Kernel := TLanczosKernel.Create;
lPageIndex := pcMinimize.ActivePageIndex;
R.Kernel := fFilter[aCount].Create;
// Zielbild ist fertig
//ADstImage.Draw(ADstImage.BoundsRect, ASrcImage.BoundsRect, ASrcImage);
// direkt geht es leider nicht in das AJpeg
ABmp.Assign(ASrcImage);
.....
Aber da zeichnet er das Bild wieder in Originalgröße hin und vermutlich auch ohne Komprimierung oder??
LG
Thomas