XProfan

Français

Beschreibung:

ScrollWindow scrollt den Clientbereich eines Fensters um une angegebenen Betrag dans horizontal ou bien vertikal.

Deklaration:

DEF @ScrollWindow(5) !USER32,ScrollWindow

paramètre:

1.paramètre: Handle des trop scrollenden Fensters.

2.paramètre: Taille des horizontalen Scrollens comme Integer.

3.paramètre: Taille des vertikalen Scrollens comme Integer.

4.paramètre: Struktur ou bien 16 Byte großer Bereich, qui angibt, quel Fensterausschnitt gescrollt volonté soll. si cette paramètre 0 ist, wird qui gesamte Clientbereich gescrollt. =>
-Byte 0-3 = X-Koordinate qui linken obere coin des trop scrollenden Rechtecks.
-Byte 4-7 = Y-Koordinate qui linken obere coin des trop scrollenden Rechtecks.
-Byte 8-11 = X-Koordinate qui rechten unteren coin des trop scrollenden Rechtecks.
-Byte 12-15 = Y-Koordinate qui rechten unteren coin des trop scrollenden Rechtecks.

5.paramètre: Struktur ou bien 16 Byte großer Bereich, qui angibt, quel Fensterausschnitt beim Scrollen récente gezeichnet volonté soll. =>
-Byte 0-3 = X-Koordinate qui linken obere coin des Bereichs.
-Byte 4-7 = Y-Koordinate qui linken obere coin des Bereichs.
-Byte 8-11 = X-Koordinate qui rechten unteren coin des Bereichs.
-Byte 12-15 = Y-Koordinate qui rechten unteren coin des Bereichs.

Rückgabewert:

1 chez Erfolg, 0 chez faute.

Beispiele:

Kompilieren Marque Séparation

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