Einzelnen Beitrag anzeigen

FredlFesl

Registriert seit: 19. Apr 2011
293 Beiträge
 
Delphi 2009 Enterprise
 
#2

AW: Zoomen etwas ungenau ?

  Alt 28. Jul 2011, 06:14
Hi, vielleicht berücksichtigst du die Scrollbars nicht aber dafür den cAbstand?

Weiterhin würde ich die Variablen so benennen, wie du sie in den Remarks bezeichnest, also:
StartCoordinate anstatt StartPlace
EndCoordinate anstatt EndPlace
Zoomfactor anstatt i

usw.

Richtiger wirds dadurch auch nicht, aber lesbarer.

Und den Effekt, das sich der Ausschnitt verschiebt, wenn Du das Fokusrechteck außerhalb der Scrollbox zeichnest kannst du einfach dadurch erzielen, indem Du die Mausbewegungen bzw. die Mausevents für alle Controls implementierst, also die Scrollbox, Formular etc. Dabei musst Du nur beachten, das die X/Y-Koordinaten immer relativ zum Control übergeben werden, für die Du das Mausevent implementierst. Du musst also die Mauskoordinaten mit Sender.ClientToScreen und Paintbox1.ScreenToClient auf die Paintbox transformieren.
Das Bild hängt schief.
  Mit Zitat antworten Zitat