Forum: Multimedia
Delphi
by DGL-luke,
25. Aug 2006
Also ich hab da schon öfter selber was geschrieben...
function ResizePropertional(Src: TBitmap32; AvailDim: TPoint): TBitmap32;
var factor: real; //Skalierungsfaktor
NewDim: TPoint; //Neue Ausmaße
begin
factor := Min(Src.Width / AvailDim.X, Src.Height / AvailDim.Y); // Skalierungsfaktor ermitteln
NewDim.X := Floor(Src.Width * factor); //Neue Breite errechnen
NewDim.Y :=...
Forum: Multimedia
Delphi
by DGL-luke,
25. Aug 2006
@SirT: allerdings, da hast du recht.
der resampler ist (ich gehe da von der vorherigen version mit stretchfilter aus) auch nur zum zeichnen AUF ein TBitmap32 geeignet.
@alienous: Du solltest das Bild also erst skalieren und dann auf den printer zeichnen.
Forum: Multimedia
Delphi
by DGL-luke,
25. Aug 2006
also sowas sollte eigentlich nicht passieren... und aufgehellt wird normalerweise auch nichts... ich bin mit meinem latein am ende. das sieht ja schon nach veritablen falschfarben aus...
Forum: Multimedia
Delphi
by DGL-luke,
25. Aug 2006
Ich würd n TKernelResampler mit Lanczos hernehmen.
also Classname auf TKernelResampler und irgendwo kannst du dann diesen Kernel einstellen... "ResamplerKernel" oder "Kernelmode" im TBitmap32 muss das sein...