Seite 1 von 1

Scrollvorgang am Ende ermitteln

Verfasst: 01.01.2007 22:21
von RSBasic
Hallo ihr PB-User,
ich habe eine Frage.
Es ist so, ich habe ein EditorGadget und der User kann herunterscrollen.
Ich möchte ermitteln, ob es nicht mehr weiter geht nach unten zu scrollen.
Beispiel bei manchen Programmen/Setups man muss die Lizenz im EditorGadget nach unten scrollen und am Ende des Scrolls wird der Button "Akzeptieren" aktiviert.
Habt ihr eine Lösung?

Verfasst: 01.01.2007 23:14
von Frogger
eventuell damit?

Code: Alles auswählen

GetScrollPos_(...)

//EDIT
Hat mich eben auch interessiert.
Hier ist mein Ergebniss :allright:

Code: Alles auswählen

If OpenWindow(0, 0, 0, 600, 400, "")
  If CreateGadgetList(WindowID(0))
    EditorGadget(1, 5, 5, 500, 400)
  EndIf
EndIf

For i=0 To 100
  AddGadgetItem(1, -1, "")
Next

min.l = 0
max.l = 0
GetScrollRange_(GadgetID(1), #SB_VERT, @min, @max)

Repeat
  event.l = WaitWindowEvent() 
  pos.l = GetScrollPos_(GadgetID(1), #SB_VERT)
  If pos >= max-400 ;400 ist die Höhe des Editorgadget
    MessageRequester("Info", "Ende erreicht!")
    End
  EndIf
Until event = #PB_Event_CloseWindow

Verfasst: 02.01.2007 20:30
von RSBasic
@Frogger
Vielen Dank für dein Code, sry für die Verspätung.
Ich habe somit dein Beispielcode übernommen.
Danke :allright: