habe jetz noch etwas mit
gra.ResamplerClassName := 'TLinearResampler';
experimentiert, und dabei die ausgabe in ein TImage32 auf der form geleitet, dabei werden die farben ziehmlich stark verfälscht, mit und ohne den resampler! wieso? liegt es eventuell am drawto?
wenn ich das bild direkt mit der kompo öffne, wird das bild korrekt angezeigt.
Delphi-Quellcode:
procedure BildDrucken(PCanvas : TCanvas; px1, py1, px2, py2 : Integer; pmotiv : tmotiv);
var gra : Tbitmap32;
begin
gra := Tbitmap32.Create;
gra.LoadFromFile('C:\motive\'+pmotiv.Bildname);
gra.ResamplerClassName := 'TLinearResampler';
//gra.Rotate270();
gra.DrawTo(pcanvas.Handle, Rect(px1,py1,px2,py2), gra.BoundsRect);
gra.Free;
end;