Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Bilder im TImage verschieben? (https://www.delphipraxis.net/90557-bilder-im-timage-verschieben.html)

CUBEstorm 19. Apr 2007 13:19


Bilder im TImage verschieben?
 
Servus allerseits, ich arbeite momentan etwas für die Schule und habe einige Probleme die mir mein Lehrer leider auch nicht auf anhieb beantworten konnte.

Ich habe ein Bild, sagen wir mal 1000x1000 pixel groß. Das Bild ist aufgrund seiner Größe natürlich zu groß für ein TImage.
Ich habe wenn ich es zB auf ein TImage der Größer 500x500 lade nur einen kleine Ausschnitt des Bildes sichtbar. Ich möchte das ins Image gelade JPeg nun verschieben, dass ich nun auch andere Bereiche des Bildes sehe. Soweit ich weiß ist es nicht möglich das Bild nun zu verschieben, also habe ich mir alternativ überlegt, dass ich die Größe des Jpegs auslese und das Timgae automatisch an die Größe des Jpeg angleiche. Das TImage möchte ich nun auf einem Panel einer bestimmten Größe hin und her schieben. Wie ich das TImage das das Bild beinhaltet verschiebe weiß ich. Gibt es eine Möglichkeit dass ich verhindern kann dass ich das Timage nun dazu zwingen kann, dass es nicht weiter verschiebbar ist wenn zB. die linke untere ecke des Bildes an die linke untere ecke des Panels anstöst?
Als würde ich eine Landkarte verschieben, aber nicht die Möglichkeit habe, es aus dem Paneöl oder wo auch immer es ist rausziehen kann?

mfg CUBE

chaosben 19. Apr 2007 13:41

Re: Bilder im TImage verschieben?
 
Zitat:

Zitat von CUBEstorm
Gibt es eine Möglichkeit dass ich verhindern kann dass ich das Timage nun dazu zwingen kann, dass es nicht weiter verschiebbar ist

:D
Das ist nur möglich in dem du Delphi deinstallierst oder sonst etwas tust, was dazu führt, das du an diesem TImage nicht mehr weiterarbeiten kannst. ;)

So, aber jetzt mal ernst:

Ja, das kannst du. Du hast ja eine Routine mit der du das Bild verschiebst. In dieser Routine kannst du ja prüfen, ob die Bedingung eintritt, die du da oben beschrieben hast. Und wenn ja, hörst du einfach auf mit dem Verschieben.

Falls dir noch nicht klar ist was ich meine, zeig einfach mal, wie du das Bild verschiebst.

CUBEstorm 19. Apr 2007 17:23

Re: Bilder im TImage verschieben?
 
Liste der Anhänge anzeigen (Anzahl: 1)
Also hier mal ein Bild umdas ganze zu verdeutlcihen:
Das Panel ist selbstverständlich nicht verschiebbar :-D

Also sobald das Bilde weit genug verschoben wurde ist es nicht weiter verschiebbar, als würde das Panel bis an die Grenze des Bildes geschoben werden, nur das sich nicht das Panel sondern das TImage verschiebt^^

chaosben 19. Apr 2007 17:52

Re: Bilder im TImage verschieben?
 
Zitat:

Zitat von CUBEstorm
Also hier mal ein Bild umdas ganze zu verdeutlcihen:

Ich meinte eher den Code, mit dem du das Bild verschiebst. :)

Blackheart 19. Apr 2007 18:02

Re: Bilder im TImage verschieben?
 
Pack doch das Image in eine ScrollBox.

CUBEstorm 19. Apr 2007 18:25

Re: Bilder im TImage verschieben?
 
Ich hab ja keinen Code bei denm ich ansetzen kann^^
ICh habe hier im Form eine Möglichkeit gefunden mit der ich das Image mit der MAus bewegen kann, das Image soll aber automatisch die Größe des JPeg's haben, das ist kein Problem, do wie bekomme ich diese informationen, also die Größe aus der externen JPeg die ins TImage geladen wird? Wichtiger ist aber wie ich verhindern kann dass sich das Bild zu weit ziehen läst? Oo'

bitsetter 19. Apr 2007 22:47

Re: Bilder im TImage verschieben?
 
Liste der Anhänge anzeigen (Anzahl: 1)
Moin,

ich habe dir eine kleine Demo angehängt.

CUBEstorm 20. Apr 2007 15:37

Re: Bilder im TImage verschieben?
 
Super, ich danke dir genau so sollte es nämlich funktioniern, dann werd ich mir mal die Syntax des Ganzen einprägen, danke nochmal an alle die mir geholfen haben :-D :-D :-D


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:30 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