; German forum: ; Author: Helge ; Date: 08. August 2002 If OpenWindow(0, 100, 100, 500,400, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "PureBasic Window") If CreateGadgetList(WindowID()) Textbox=StringGadget(0, 10, 30, 480, 360, "",#PB_String_Multiline|#ES_AUTOVSCROLL|#WS_VSCROLL |#WS_HSCROLL) Label=TextGadget(1,1,1,400,22,"INFO") Button=ButtonGadget(2,440,1,30,22,"Down") Button=ButtonGadget(3,470,1,30,22,"UP") ;Create some lines For line=1 To 300 info.s=info + "CodeGuru is there in Line:"+Chr(9)+Str(line) +Chr(9) For I=1 To 40 Info.s=info + Chr(Random(52)+65) Next i info=info + Chr(13)+Chr(10) Next line SetGadgetText(0,Info) Repeat EventID.l = WaitWindowEvent() Result=SendMessage_(TextBox,#EM_GetSel,@Anfang,@Ende) Zeichen=Anfang Zeile=SendMessage_(TextBox,#EM_LINEFROMCHAR,Zeichen,0)+1 Zeilenanzahl=SendMessage_(TextBox,#EM_GETLINECOUNT,0,0) Info.s="Position:"+Str(Zeichen)+" in Line:"+Str(Zeile)+" from Linecount:"+Str(Zeilenanzahl) SetGadgetText(1,Info) If EventID = #PB_Event_CloseWindow Quit = 1 EndIf If EventID = #PB_Event_Gadget Gadget = EventGadgetID() If Gadget=3 Zeile=SendMessage_(TextBox,#EM_SCROLL,#SB_PAGEUP,0) EndIf If Gadget=2 Zeile=SendMessage_(TextBox,#EM_SCROLL,#SB_PAGEDOWN,0) EndIf EndIf Until Quit = 1 EndIf EndIf End ; ExecutableFormat=Windows ; FirstLine=1 ; EnableXP ; EOF