Ein Bild komplett in Image1.Picture anzeigen lassen

[taktaky]

Hallo,

wenn das Bild zu groß ist, dann wird nur teilweise vom Bild in Image1.Picture angezeigt

Kann man das ganze Bild anzeigen lassen, in dem man das Bild in Image1.Picture scrollt?

[Muetze1]

Ja! Schau dir mal TScrollBox an!

[taktaky]

Zitat:

Zitat von Muetze1

Ja! Schau dir mal TScrollBox an!

Und wie?
in Object Inspector gibt es mehrere Eigenschaften wie Proportional, Strecken
aber kein Scroll. Oder habe ich versehen?

Ich möchte aber nur das Bild scrollen und nicht das Form

---

[Blackheart]

Tipp: TScrollBox

[brinkee]

Du nimmst einfach ein TScrollbox, die Du genau so groß machst, wie du es kannst. Weiß ja nicht ob dein Bildschirm oder was auch immer der limitierende Faktor ist. Dann schiebst Du dein Image im Objektinspektor da rein und kannst es so groß machen, wie es Dir passt.

LG,
Markus

[taktaky]

Zitat:

Zitat von Blackheart

Tipp: TScrollBox

Vielen Dank!

Wenn keine andere Möglichkeit außer ScrollBox gibt, bin trotzdem damit zufrieden :mrgreen:

[peschai]

Hallo

Schau dir mal diesen codeschnipsel zum proportionalen resizen an
Ein bild als tImage soll so in ein Panel eingeblendet werden, daß es optimal groß proportional dargestellt wird.... Image12.Parent wäre das Panel...

Delphi-Quellcode:

 { JPEGImage } 
          ms1.Seek(0, soFromBeginning); 
          jpg3.LoadFromStream(ms1); 
        
          { Resize } 
          if (Image12.Parent.ClientWidth>0) and (jpg3.Width>0) then 
            begin 
              { Seitenverhältnis Container } 
              r1 := (Image12.Parent.ClientHeight/Image12.Parent.ClientWidth); 
              { Seitenverhältnis Bild } 
              if (jpg3.Width>0) 
                then r2 :=(jpg3.Height/jpg3.Width) 
                else r2 := 0.0; 
              { Container passend zum Bild in Übergeordneten Panel einpassen, damit Stretch automatisch funktioniert } 
              if (r1>r2) 
                then 
                  begin 
                    { Container ist im Verhältnis höher als Bild, also auf Breite anpassen } 
                    { Faktor damit Bild so breit wie Container wird } 
                    r1 := Image12.Parent.ClientWidth/jpg3.Width; 
                    Image12.Width  := Image12.Parent.ClientWidth; 
                    Image12.Left   := 0; 
                    Image12.Height := Trunc(r1* jpg3.Height); 
                    Image12.Top    := (Image12.Parent.ClientHeight-Image12.Height) div 2; 
                  end 
                else 
                  begin 
                    { Container ist im Verhältnis breiter als Bild, also auf Höhe anpassen } 
                    { Faktor damit Bild so hoch wie Container wird } 
                    r1 := Image12.Parent.ClientHeight/jpg3.Height; 
                    Image12.Height := Image12.Parent.ClientHeight; 
                    Image12.Top    := 0; 
                    Image12.Width  := Trunc(r1* jpg3.Width); 
                    Image12.Left   := (Image12.Parent.ClientWidth-Image12.Width) div 2; 
                  end; 
              Image12.Picture.Assign(jpg3); 
            end;

[taktaky]

Hallo,

wo soll der Code hin?

[inherited]

Du sollst ih nicht kopieren, dass klappt eh nicht weil dein Image beispielsweise sicherlich nicht Image12 heißt, du sollst ihn dir angucken, verstehen wie er resized und das dann in deinem programm implementieren.

[Nuclear-Ping]

[OT]

Zitat:

Zitat von taktaky

Hallo,

wo soll der Code hin?

Oh mein Gott ... :wall:

Meine Diagnose: 33+/- Jahre, wohnt noch bei Mutti - die wäscht, putzt, kocht und bringt das Essen an den PC, Hartz IV Empfänger ... oder Beamter.
[/OT]

[brinkee]

Man muss ja nicht immer so rumflamen... :angel:

[Nuclear-Ping]

Ähm sorry, aber Taktaky ist doch wirklich 'ne Manifestation reinster Doofheit und Unselbständigkeit, also sowas hab ich noch nicht gesehen.
Selbst wenn man ihm noch alles vorkaut, er kopiert sichs einfach ohne was daraus zu lernen. Er liest nichmal das, was man ihm sagt oder schaut mal eine Minute in den Objektinspektor. Er forscht oder experimentiert nichtmal mit der Sprache und den Möglichkeiten, um sie kennen zu lernen ... Ne ... nur Fragen Fragen Fragen, das geht nicht, dies geht nicht, jenes geht nicht ... Wohin soll das, Screenshots von Syntaxfehlern ... WANN KOMMT ENDLICH DIE IGNOREFUNKTION? :?

[brinkee]

Naja, hast ja Recht.

[taktaky]

Zitat:

Zitat von Nuclear-Ping

WANN KOMMT ENDLICH DIE IGNOREFUNKTION? :?

Wenn die Ignorefunktion kommt, dann heisse ich nicht mehr Taktaky sondern blabla :mrgreen:

---

[Nuclear-Ping]

"Blabla" heisste auch so schon ...

... das traurige an der ganzen Sache is ja, dass du es scheinbar selber garnicht mitkriegst, wie du hier wirkst und auftrittst. Du müsstest dich selbst mal aus den Augen von anderen sehen ... :pale:

[Muetze1]

Es ist erstaunlich, dass taktaky mein Text in meiner Antwort nicht aufgefallen ist. Nicht nur, dass ein einzelnes Symbol komisch aussieht, aber spätestens das Zitat in seinem Beitrag danach bringt mehr als das 5-fache an Text zum Vorschein (samt der angesprochenen Lösung), aber es wird halt nicht geschaut bzw. gross gelesen. Naja, war ein schönes Beispiel...

[taktaky]

Zitat:

Zitat von Muetze1

Ja! Schau dir mal TScrollBox an!

Das war wirklich so gemeint von Dir die Textfarbe wie HG-Farbe... :zwinker:

---