XProfan

Deutsch

Beschreibung:

ScrollWindow scrollt den Clientbereich eines Fensters um einen angegebenen Betrag in horizontal oder vertikal.

Deklaration:

DEF @ScrollWindow(5) !USER32,ScrollWindow

Parameter:

1.Parameter: Handle des zu scrollenden Fensters.

2.Parameter: Größe des horizontalen Scrollens als Integer.

3.Parameter: Größe des vertikalen Scrollens als Integer.

4.Parameter: Struktur oder 16 Byte großer Bereich, der angibt, welcher Fensterausschnitt gescrollt werden soll. Wenn dieser Parameter 0 ist, wird der gesamte Clientbereich gescrollt. =>
-Byte 0-3 = X-Koordinate der linken obere Ecke des zu scrollenden Rechtecks.
-Byte 4-7 = Y-Koordinate der linken obere Ecke des zu scrollenden Rechtecks.
-Byte 8-11 = X-Koordinate der rechten unteren Ecke des zu scrollenden Rechtecks.
-Byte 12-15 = Y-Koordinate der rechten unteren Ecke des zu scrollenden Rechtecks.

5.Parameter: Struktur oder 16 Byte großer Bereich, der angibt, welcher Fensterausschnitt beim Scrollen neu gezeichnet werden soll. =>
-Byte 0-3 = X-Koordinate der linken obere Ecke des Bereichs.
-Byte 4-7 = Y-Koordinate der linken obere Ecke des Bereichs.
-Byte 8-11 = X-Koordinate der rechten unteren Ecke des Bereichs.
-Byte 12-15 = Y-Koordinate der rechten unteren Ecke des Bereichs.

Rückgabewert:

1 bei Erfolg, 0 bei Fehler.

Beispiele:

Kompilieren Markieren Separieren

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

Wend