Graphics32-Frage!!

[bingo72]

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