XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Lupe mit Profan²
------------------------------------------------------------------------------
Simple Lupe für Profan² ab 6.0, 32 Bit
Zeigt einen Ausschnitt des Hauptfensters vergrößert in einem Lupenfenster an.
(c)1998 Richard Maurukas
------------------------------------------------------------------------------
window 0,0-640,480
declare x%,y%,Lupe&,ende%,ausschnitt%,Vergrößerung%
POPUP Datei
Appendmenu 199,Beenden
cls
Let ausschnitt%=40        Der zu vergrößernde Bereich
Let vergrößerung%=5      die Vergrößerung
print  Fahren Sie mit der Maus über das Profan Hauptfenster
Print
Print  Der definierte Ausschnitt um den Mauszeiger wird im Lupen-Fenster
Print  vergrößert dargestellt.
createicon(%Hwnd,A,100,100)
let lupe&=createwindow(%hwnd,add$(str$(Vergrößerung%),-fach vergrößert),
200,200,200,200)
mcls ausschnitt%,ausschnitt%

whilenot ende%

    if Menuitem(199)

        let ende%=1

    else

        CopyBmpToMem sub(%Mousex,div(ausschnitt%,2)),
        sub(%Mousey,div(Ausschnitt%,2))
        -ausschnitt%,ausschnitt%>0,0
        startpaint lupe&
        MCopySizedBmp 0,0-ausschnitt%,ausschnitt% > 0,0-
        @mul(ausschnitt%,vergrößerung%),
        @mul(ausschnitt%,vergrößerung%);0
        endpaint

    endif

wend

end