|
Auswahl in TScrollBox mittig positionieren?
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 |
| Alle Zeitangaben in WEZ +1. Es ist jetzt 13:43 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz