TRect in TScrollBox mittig ausgeben ?

[madina]

Hallo,

ich habe ein PrintPreview Applik. geschrieben, der ein TPaintBox und TScrollBox hat und versuche dabei mit TPaintBox.Canvas.DrawFocusRect() ein Rechteck zu zeichnen, der dann in der Breite oder Höhe dem ScrollBox.ClientWidth oder ClientHeight vergrößert angepaßt wird. Im PaintBoxMouseUp Ereignis berechne ich den ZookFaktor und auch u.g. Position aus.

Meine Fragen ist ?

ich habe das Problem, daß nach der Vergrößerung die Position wie folgt zu berechnen, damit das ausgewählte Rechteck horizontal und vertikal mittig im Bildschirm darzustellen ist.

TScrollBox.HorizScrollBar.Position:= ?
TScrollBox.VertScrollBar.Position := ?

mfg
madina