Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
15. Apr 2011
Die Pixel der Quelle werden in Pixelblöcke des Ziels kopiert. Dabei entspricht die "durchschnittliche" Farbe des Pixelblocks des Ziels der Farbe des Quellpixels. Das hat zur Folge, dass Übergänge auf dem Ziel weicher aussehen.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
15. Apr 2011
OK, OK, ich habe meine Routine noch etwas erweitert (und gleich noch eine potentielle Fehlerquelle eliminiert):
procedure StretchGraphic(const src, dest: TGraphic;
DestWidth, DestHeight: integer; Smooth: Boolean = true);
var
temp, aCopy: TBitmap;
faktor: double;
begin
Assert(Assigned(src) and Assigned(dest));
if (src.Width = 0) or (src.Height = 0) then
raise...
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
14. Apr 2011
Welche Größe hat denn bmp2?
Vielleicht ist es hiermit einfacher:
procedure StretchGraphic(const src, dest: TGraphic;
DestWidth, DestHeight: integer);
var
temp, aCopy: TBitmap;
faktor: double;
begin
Assert(Assigned(src) and Assigned(dest));