Auswahl in TScrollBox mittig positionieren?

[madina]

Hallo an Alle,

ich habe ein TForm mit (TPaintBox1.Align=Client, TScrollBox.Align=Client, TPaintBox.Align=None) und zeichne was auf TPaintBox und will dabei über die Events TPaintBox1.(MouseDown, MouseMove und MouseUp) nur bestimmte Bereiche des gewünschten TPaintBox1 mit einer AuswahlRect auswählen und entsprechend TPaintBox (geZoomtIn/geZoomtOut) mittig zentrieren?

Das ZoomIn/ZoomOut ist kein Problem und TPaintBox ist größer als TPaintBox1 nur AuswahlRect schwer zu zentrieren über TScrollBox.HorzScrollBar.Position/TScrollBox.VertScrollBar.Position nach dem ZoomIn/ZoomOut?

Für Code wäre ich dankbar.


MFG