XProfan

English

Description:

ScrollWindow scrolls whom Clientbereich one Fensters circa a angegebenen amount in horizontal or Mouse and Sprite.

Deklaration:

DEF @ScrollWindow(5) !USER32,ScrollWindow

Parameter:

1.Parameter: lever the To scrollenden Fensters.

2.Parameter: Size the horizontalen Scrollens as Integer.

3.Parameter: Size the vertikalen Scrollens as Integer.

4.Parameter: Structure or 16 byte great area, the angibt, which Fensterausschnitt gescrollt go should. If this Parameter 0 is, becomes the entire Clientbereich gescrollt. =>
-byte 0-3 = X-Koordinate the left upper corner the To scrollenden Rechtecks.
-byte 4-7 = Y-Koordinate the left upper corner the To scrollenden Rechtecks.
-byte 8-11 = X-Koordinate the rechten downstairs corner the To scrollenden Rechtecks.
-byte 12-15 = Y-Koordinate the rechten downstairs corner the To scrollenden Rechtecks.

5.Parameter: Structure or 16 byte great area, the angibt, which Fensterausschnitt at Scrolling new drawn go should. =>
-byte 0-3 = X-Koordinate the left upper corner the Bereichs.
-byte 4-7 = Y-Koordinate the left upper corner the Bereichs.
-byte 8-11 = X-Koordinate the rechten downstairs corner the Bereichs.
-byte 12-15 = Y-Koordinate the rechten downstairs corner the Bereichs.

Return Value:

1 with success, 0 with Error.

Examples:

Compile Mark Separation

DEF @ScrollWindow(5) !"USER32","ScrollWindow"
Declare Schließen&,RECT#,Ton&,Scrollinfo#
Windowstyle 31
Windowtitle "Fenster scrollen"
Window 0,0-400,400
LET SCHLIEßEN&=@Createbutton(%HWND,"Fenster dicht!",20,100,120,30)
LET TON&=@Createbutton(%HWND,"Beep",20,360,120,30)

While 0=0

    Waitinput

    IF %SCANKEY=39

        DIM RECT#,16
        Long Rect#,0=0
        Long Rect#,4=0
        Long Rect#,8=%MAXX
        Long Rect#,12=%MAXY
        @ScrollWindow(%HWND,+10,0,0,RECT#)
        Dispose RECT#

    elseIF %SCANKEY=37

        DIM RECT#,16
        Long Rect#,0=0
        Long Rect#,4=0
        Long Rect#,8=%MAXX
        Long Rect#,12=%MAXY
        @ScrollWindow(%HWND,-10,0,0,RECT#)
        Dispose RECT#

    elseIF %SCANKEY=40

        DIM RECT#,16
        Long Rect#,0=0
        Long Rect#,4=0
        Long Rect#,8=%MAXX
        Long Rect#,12=%MAXY
        @ScrollWindow(%HWND,0,10,0,RECT#)
        Dispose RECT#

    elseIF %SCANKEY=38

        DIM RECT#,16
        Long Rect#,0=0
        Long Rect#,4=0
        Long Rect#,8=%MAXX
        Long Rect#,12=%MAXY
        @ScrollWindow(%HWND,0,-10,0,RECT#)
        Dispose RECT#

    Elseif @Getfocus(Ton&)

        Beep 1

    Elseif @Getfocus(Schließen&)

        End

    endif

4 href='./../function-references/XProfan/wend/'>Wend