AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Library: Grafik / Sound / Multimedia Delphi Bild vergrößern / verkleinern

Bild vergrößern / verkleinern

Ein Thema von DeCodeGuru · begonnen am 7. Jun 2002
Antwort Antwort
DeCodeGuru

Registriert seit: 7. Jun 2002
Ort: Walluf
66 Beiträge
 
#1

Bild vergrößern / verkleinern

  Alt 7. Jun 2002, 22:18
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
MfG DeCodeGuru
-=][ Wenn Windows die Antwort ist, muss es eine doofe Frage gewesen sein ][=-
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf