PureBasic Forums - English

Posted: **Fri Nov 02, 2012 8:07 pm**

;run and you will see the items are listed and the last items are visible
If OpenWindow(0, 0, 0, 322, 150, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    EditorGadget(0, 8, 8, 306, 133)
    For a = 0 To 15
      AddGadgetItem(0, a, "Line "+Str(a))
    Next
    
    Range.NSRange\location = Len(GetGadgetText(0))
    CocoaMessage(0, GadgetID(0), "scrollRangeToVisible:@", @Range)
    
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Posted: **Fri Nov 02, 2012 8:56 pm**

Thanks wilbert!

That works perfectly!

I had to add this definition to my procedure (since I am using 'EnableExplicit').

Code: Select all

Define Range.NSRange

Posted: **Fri Nov 02, 2012 9:06 pm**

I'm glad it works for you.
And you are right about Define .
I usually don't use EnableExplicit (a bit lazy

)

PureBasic Forums - English

How to make EditorGadget scroll

Re: How to make EditorGadget scroll

Re: How to make EditorGadget scroll

Re: How to make EditorGadget scroll