Registriert seit: 1. Nov 2005
153 Beiträge
|
Auswahl in TScrollBox mittig positionieren?
16. Dez 2011, 22:46
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
mfg
madina
Geändert von madina (17. Dez 2011 um 10:20 Uhr)
|