AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Grafik in der TImage vergrössern ? (Zoom-Funktion)

Grafik in der TImage vergrössern ? (Zoom-Funktion)

Ein Thema von Darty · begonnen am 9. Mär 2003 · letzter Beitrag vom 9. Mär 2003
Antwort Antwort
Benutzerbild von Darty
Darty

Registriert seit: 8. Jun 2002
Ort: Kronau
731 Beiträge
 
#1

Grafik in der TImage vergrössern ? (Zoom-Funktion)

  Alt 9. Mär 2003, 10:15
Hi Leutz,

ich habe für mein Programm ein TImage auf ein ScrollBox gelegt. Nun möchte ich eine "Zoom-Funktion" einbauen. 1xZoom sollte die Original Grösse des Bildes haben. Bei 2xZoom sollte sich das Bild doppelt gross darstellen u.s.w.
Nur komme ich gerade nicht drauf wie ich es hinbekommen könnte ?

Danke schon mal für die Hilfe ..
Matthias Knebel
Mfg M. Knebel [-Darty-]
- Gehörlose Delphianer gibt es selten -
www.team-knebel.de
  Mit Zitat antworten Zitat
Benutzerbild von Mirilin
Mirilin

Registriert seit: 21. Dez 2002
Ort: Lenzburg
861 Beiträge
 
Delphi 6 Professional
 
#2
  Alt 9. Mär 2003, 10:42
vielleicht hilft Dir dieses?
Tobias
Die Physik ist für die Physiker eigentlich viel zu schwer.
  Mit Zitat antworten Zitat
DennyC

Registriert seit: 27. Jan 2003
Ort: Berlin
47 Beiträge
 
Delphi 7 Professional
 
#3
  Alt 9. Mär 2003, 11:56
Hallo!

Wenn Du einfach nur die Bildansicht zoomen möchtest und eh mit TImage und TScrollBox arbeitest, setze doch bei TImage die Stretch-Eigenschaft auf True und verdopple einfach Width und Height für eine 2x-Zoom. So kannst Du mit Mitteln der Mathematik x-fach verkleinern und vergrößern.

Denny
  Mit Zitat antworten Zitat
Benutzerbild von Darty
Darty

Registriert seit: 8. Jun 2002
Ort: Kronau
731 Beiträge
 
#4
  Alt 9. Mär 2003, 15:24
@Mirilin: Eine "Lupe"-Funktion. Werde ich mir auch mal genauer anschauen, aber ziehe den Vorschlag von DennyC vor da es ausreichend ist für mein Program.

@DennyC: Ja dass ist wirklich eine gute Idee. Werde diesen Weg einschlagen ..

Danke nochmals !
Matthias Knebel
Mfg M. Knebel [-Darty-]
- Gehörlose Delphianer gibt es selten -
www.team-knebel.de
  Mit Zitat antworten Zitat
Benutzerbild von Darty
Darty

Registriert seit: 8. Jun 2002
Ort: Kronau
731 Beiträge
 
#5
  Alt 9. Mär 2003, 22:27
Wollte nur sagen dass es gut geklappt hatte.

Habe z.B. zuerst die tatsächliche Bild-Breite aus Image1.Picture.width ausgelesen. Und diesen Wert dann mit zum Beispiel 2 Multipliziert wenn ich es zweifach zoomen möchte. Diesen Wert dann in Image.width einkopiert. Und TImage.Stretch musste noch True sein.
das selbe auch mit Height und schon hat man so eine "Zoom" Funktion.
Matthias Knebel
Mfg M. Knebel [-Darty-]
- Gehörlose Delphianer gibt es selten -
www.team-knebel.de
  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 07:21 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