TImage Zoom

[DeddyH]

Ich melde mich gleich nochmal, bin gerade in der Fernwartung.

[DeddyH]

So, hier noch ein paar Gedanken dazu:
- wir benötigen die Abmessungen des Buttons relativ zur im Image enthaltenen Grafik
- die Koordinaten des Buttons sind aber relativ zu seinem Parent (Formular, Panel, Tabsheet oder wo er auch draufliegt)
- je nach Einstellungen des TImage muss seine Breite/Höhe nicht der der Grafik entsprechen
- daraus folgt, dass wir mit einem Offset für X- und Y-Achse rechnen müssen, nämlich dem "Anzeigeabstand" zwischen Rand des Image und der Grafik
- da ich auf die Schnelle keine Eigenschaft finden konnte, um das Anzeigerechteck der Grafik innerhalb des Image zu ermitteln, sind diese Überlegungen ggf. schon wieder hinfällig

Alternative:
- man setzt Autosize des Image auf true und verändert die enthaltene Grafik in der Größe
- damit das auch nach ein paar Änderungen noch einigermaßen aussieht, sollte man das Original im Speicher halten, bei Änderungen eine gestretchte Kopie erzeugen und dem Image zuweisen
- da die linke obere Ecke fix bleiben soll, entfallen die o.a. Offset-Berechnungen
- der Rest ist Prozentrechnung

Alle Klarheiten beseitigt? :mrgreen:

[Davidlocke13]

:thumb: Das hilft mir doch schon mal weiter !

Übrigens: noch mal ne Info zu meinem Bild Größe 2400 x 1564

[Davidlocke13]

So was haltet ihr davon !

Code:

procedure TForm1.Button1Click(Sender: TObject);
...
...
...
Button3.Width:= round(Button3.Width * 1.25);
Button3.Height := round(Button3.Height * 1.25);
Button3.Left:= round(Button3.Left * 1.25);
Button3.Top:= round(Button3.Top * 1.25);

Ach so der Button muss in die ScrollBox damit der sich mit bewegt beim Scrollen ;-)

Ich probiere das noch an ein Par weitern Button und dann müsste mein Problem eigentlich gelöst sein !