| Autor |
Beitrag |
Calyptus
      
Beiträge: 386
Win Xp Prof
D3, D6 Pers, D7 Ent
|
Verfasst: Do 09.12.04 17:28
Ich hab Bilder mit einer Auflösung von 640*480 und 480*640. Diese sollen jetzt in einem Image mit 320*320 Pixel angezeigt werden (also mit Rand). Ich weis aber nicht wie ich das machen soll. Wenn ich Image1.Stretch := true mache, wird des ganze Image gefüllt aber des bild ist halt verzogen. Also eigentlich sollen die Bilder in Breite und Höhe um 50% verkleinert werden.
Ich hoff jetzt mal ihr versteht was ich mein 
_________________ Luft- und Raumfahrtechnik an der Uni Stuttgart
|
|
Basti
      
Beiträge: 345
Windows Vista
D2005 Pers, D7 Pers
|
Verfasst: Do 09.12.04 17:51
Wenn du die Bilder auf einem Image anzeigen lässt,
verändere doch einfach die Breite und Höhe des Images.
Du musst Proportional auch auf true setzen.
_________________ Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
|
|
Calyptus 
      
Beiträge: 386
Win Xp Prof
D3, D6 Pers, D7 Ent
|
Verfasst: Do 09.12.04 17:57
Ja aber wie erkenne ich ob das ein Bild mit 640*480 oder 480*640 ist?
_________________ Luft- und Raumfahrtechnik an der Uni Stuttgart
|
|
greg
      
Beiträge: 119
Windows2000, WindowsXP
D5 Prof
|
Verfasst: Do 09.12.04 18:06
Hallo Calyptus,
lies mal hier ... (Quelle: Delphi5 Prof. Hilfe)
TJPEGImage.Scale
TJPEGImage
Die Eigenschaft Scale legt die Größe der JPEG-Grafik für die Anzeige fest.
type TJPEGScale = (jsFullSize, jsHalf, jsQuarter, jsEighth);
property Scale: TJPEGScale;
Beschreibung
Mit Scale läßt sich die Ausführungsgeschwindigkeit bei der Voranzeige einer Grafik optimieren. Der Wert jsFullSize zeigt die Grafik in der maximalen Größe an. Wenn Sie Scale dagegen auf jsEighth setzen, wird die Grafik nur in einem Achtel der vollen Größe angezeigt, dafür aber achtmal schneller.
TJPEGScale ist der Typ der Eigenschaft Scale. Die folgende Tabelle enthält die Werte, die diese Eigenschaft annehmen kann:
Wert Bedeutung
jsFullSize Zeigt die Grafik in voller Größe an.
jsHalf Zeigt die Grafik in halber Göße, dafür aber in doppelter Geschwindigkeit an.
jsQuarter Zeigt die Grafik in einem Viertel der maximalen Größe, dafür aber viermal so schnell an.
jsEighth Zeigt die Grafik in einem Achtel der maximalen Größe, dafür aber achtmal so schnell an.
Scale wird beim Einlesen von Dateien (d.h. beim Dekomprimieren) verwendet.
Gruß
Gregor
|
|
JayEff
      
Beiträge: 2971
Windows Vista Ultimate
D7 Enterprise
|
Verfasst: Do 09.12.04 18:06
wie wärs mit
Image.Width:=320
Image.Height:=320?
aber warum sagst du, es soll nur um 50% verkleinert werden, wenn doch die proportionen garnicht mehr stimmen?
640*480 (rechteckig) -> 320*320 (quadratisch) => proportionen verändert, Bild verzerrt.
_________________ >+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.
|
|
Gausi
      
Beiträge: 8554
Erhaltene Danke: 481
Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
|
Verfasst: Do 09.12.04 18:26
Ich sag einfach nochmal, was schon gesagt wurde, wenn auch nicht ganz so klar:
TImage hat die Eigenschaft Proportional. Wenn man die auf true setzt, dann werden Bilder in den richtigen Proportionen angezeigt.
Wenn du also ein 320x320 Image hast, und da ein 640x480 Image reinlädst, dann wird das automatisch auf 320x240 geschrumpft. Ein 480x640 entsprechend auf 240x320. Ganz einfach.
_________________ We are, we were and will not be.
|
|
Calyptus 
      
Beiträge: 386
Win Xp Prof
D3, D6 Pers, D7 Ent
|
Verfasst: Do 09.12.04 18:34
@ greg und Gausi: Danke genau das hab ich gesucht!
@ JayEff: Ich will sie ja mit rand haben!
Kann mich nur nochmal widerholen: Danke für die Hilfe. Das DF is echt super! 
_________________ Luft- und Raumfahrtechnik an der Uni Stuttgart
|
|
Basti
      
Beiträge: 345
Windows Vista
D2005 Pers, D7 Pers
|
Verfasst: Do 09.12.04 19:32
lol - kein Kommentar
Ausser, dass wir 3 mal Proportional gesagt haben, hat ja jetzt keiner direkt geholfen.
Aber schön, dass wir trotzdem super sind 
_________________ Der Computer ist die logische Weiterentwicklung des Menschen: Intelligenz ohne Moral.
|
|
Calyptus 
      
Beiträge: 386
Win Xp Prof
D3, D6 Pers, D7 Ent
|
Verfasst: Do 09.12.04 21:10
| Basti hat folgendes geschrieben: | lol - kein Kommentar
Ausser, dass wir 3 mal Proportional gesagt haben, hat ja jetzt keiner direkt geholfen. |
Aber genau nach dem hab ich gesucht... (hätt auch selber drauf kommen können  )
_________________ Luft- und Raumfahrtechnik an der Uni Stuttgart
|
|