XProfan

Español

Descripción:

ScrollWindow scrollt el Clientbereich uno Fensters en una angegebenen Betrag en horizontal oder vertikal.

Deklaration:

DEF @ScrollWindow(5) !USER32,ScrollWindow

Parámetro:

1.Parámetro: Handle des a scrollenden Fensters.

2.Parámetro: Größe des horizontalen Scrollens como Integer.

3.Parámetro: Größe des vertikalen Scrollens como Integer.

4.Parámetro: Struktur oder 16 Byte großer Zona, el angibt, welcher Fensterausschnitt gescrollt voluntad se. Wenn dieser Parámetro 0 es, se el gesamte Clientbereich gescrollt. =>
-Byte 0-3 = X-Koordinate el linken obere Ecke des a scrollenden Rechtecks.
-Byte 4-7 = Y-Koordinate el linken obere Ecke des a scrollenden Rechtecks.
-Byte 8-11 = X-Koordinate el rechten unteren Ecke des a scrollenden Rechtecks.
-Byte 12-15 = Y-Koordinate el rechten unteren Ecke des a scrollenden Rechtecks.

5.Parámetro: Struktur oder 16 Byte großer Zona, el angibt, welcher Fensterausschnitt beim Scrollen redibujar voluntad se. =>
-Byte 0-3 = X-Koordinate el linken obere Ecke des Bereichs.
-Byte 4-7 = Y-Koordinate el linken obere Ecke des Bereichs.
-Byte 8-11 = X-Koordinate el rechten unteren Ecke des Bereichs.
-Byte 12-15 = Y-Koordinate el rechten unteren Ecke des Bereichs.

Rückgabewert:

1 en Erfolg, 0 en Fehler.

Beispiele:

Kompilieren Marca Separación

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