Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Library: Grafik / Sound / Multimedia (https://www.delphipraxis.net/21-library-grafik-sound-multimedia/)
-   -   Delphi Bild vergrößern / verkleinern (https://www.delphipraxis.net/36-bild-vergroessern-verkleinern.html)

DeCodeGuru 7. Jun 2002 23:18


Bild vergrößern / verkleinern
 
Delphi-Quellcode:
procedure TForm1.ResizeImage(newWidth,newHeight: Integer);
begin
  SetStretchBltMode(Image2.Canvas.Handle, Halftone);
  StretchBlt(Image2.Canvas.Handle, 0,0,newwidth,newheight,Image1.Canvas.Handle,0,0,Image1.Width,Image1.Height,SRCCOPY);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ResizeImage(100,50);
end;
In Image1 wird das Bild geladen und in Image2 wird es vergrößert oder verkleinert dargestellt.

Suchwörter: Bildgröße, Auflösung


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:07 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz