Zoom (Lupe) Funktion

[thomas2009]

Hi

die Funktion funktioniert nur wenn der Cursor außerhalb der Form
Ich möchte aber umgekehrt oder besser sowohl Inside als auch outside
wo muss ich ändern ?

zoom-Lupe

[oki]

Hi,

die Funktion copiert den Bildschirmbereich unter dem Cursor in den Clientbereich des Fensters. Das soll bestimmt dein Outside sein. Was soll ein Inside bringen? Sich selbst vergrößern?

Da verstehe ich die Frage nicht ganz.

Die entscheidende Codezeile ist sogar kommentiert:

Delphi-Quellcode:

//if cursor is outside the form.
  If not PtInRect(PosForme,Kursor) then begin

Gruß oki

[thomas2009]

> Was soll ein Inside bringen? Sich selbst vergrößern?
Ich habe ein Bild auf meiner Form und wollte ich die Funktion als Lupe für mein Bild verwenden
Vorher habe ich JVZoom als Lupe verwendet