soo, habs jetz so ungefähr, liegt der fehler aber wirklich am fehlenden resampler? schaut euch mal das bild im anhang aus, wie das kindergesicht angezeigt wird nach dem code hier:
Delphi-Quellcode:
procedure BildDrucken(PCanvas : TCanvas; px1, py1, px2, py2 : Integer; pmotiv : tmotiv);
var gra,gra2 : Tbitmap32;
KRS: TKernelResampler;
begin
gra := Tbitmap32.Create;
gra2 := Tbitmap32.Create;
gra.LoadFromFile('C:\motive\'+pmotiv.Bildname);
//KRS := TKernelResampler.Create(gra);
//KRS.Kernel := TLanczosKernel.Create;
gra.DrawTo(pcanvas.Handle, Rect(px1,py1,px2,py2), gra.BoundsRect);
gra.Free;
gra2.Free;
end;
kann es auch sein, das tbitmap32 das bild beim drawto oder beim rotieren eventuell etwas aufhellt?
danke