ich suche eine methode das das Scrollen zum letzen eintrag in ein Editorgadget unter Linux ermöglicht, unter windows ist dieser mit sendmessage möglich.
Code: Alles auswählen
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#Editor_0
#Button_0
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 220, 0, 491, 300, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
EditorGadget(#Editor_0, 70, 30, 350, 160,#PB_Editor_ReadOnly)
ButtonGadget(#Button_0, 80, 230, 60, 30, "last entry")
EndIf
EndProcedure
Open_Window_0()
For x = 0 To 50
AddGadgetItem(#Editor_0, -1, "Test_"+Str(x))
Next
Repeat ; Start of the event loop
Event = WaitWindowEvent() ; This line waits until an event is received from Windows
WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
GadgetID = EventGadget() ; Is it a gadget event?
EventType = EventType() ; The event type
;You can place code here, and use the result as parameters for the procedures
If Event = #PB_Event_Gadget
If GadgetID = #Editor_0
ElseIf GadgetID = #Button_0
SendMessage_(GadgetID(#Editor_0),#EM_SCROLL,#SB_BOTTOM,0)
EndIf
EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop
End
Danke
jpd
):
