Wie kann ich Zoompunkt/Bereich wieder finden ??

[madina]

Hallo,

1. es ist ein TPainBox auf ein TScrollBox positioniert und ich versuche durch einen MausKlick den Klickpunkt oder Klickbereich gezoomt wieder in dem TForm1.ClientHeight/Width darzustellen. Wie kann ich den TScrollBox.HorzScrollBar/VertScrollBar.Range und Position beeinflußen, damit ich den Klickpunkt/Bereich gezommt od. verkleinert ins TForm1.ClientHeight/Width fixieren kann. Linke und rechte Moustasten auf dem TPaintBox vergrößern und verkleinern den TPaintBox.Canvas was kein Problem ist.

2. Bei einer Anpassung des TPainBox in der Breite ins TForm1.ClientHeight/Width kann ich leider den TScrollBox nich mit einem MausScrollRad nicht nach oben und unten verschieben. Warum ?

Kann einer bitte helfen

mfg
Madina