PureBasic Forums - English

Code: Select all

Procedure GetLineNr()
  SendMessage_(GadgetID(0), #EM_GETSEL, @pos, 0)
  ProcedureReturn SendMessage_(GadgetID(0), #EM_EXLINEFROMCHAR, 0, pos) + 1
EndProcedure

OpenWindow(0, 0, 0, 300, 200, "GetLineNr() EditorGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)

EditorGadget(0, 10, 10, 100, 100)
AddGadgetItem(0, -1, "edit...")

TextGadget(1, 120, 10, 100, 30, "")

AddWindowTimer(0, 123, 250)

Repeat  
  event = WaitWindowEvent() 
  Select event
    Case #PB_Event_Timer
      If EventTimer() = 123
        SetGadgetText(1, "Line: " + GetLineNr())
      EndIf      
  EndSelect
Until event = #PB_Event_CloseWindow

Code: Select all

EnableExplicit

;EditorLastChange()

;Gets the position of the first change since the last call to the same Editor Gadget!
;Dont take this code to serious just wipped it up for fun!

;Notes: 
;- Only one gadget at a time is supported!
;- Bug when the same char is added multiple times at the same position (will report whole line size)
;- Looks for the first change!
;- Starts counting from 0

Procedure.i EditorLastChange(Gadget.i,*X.Integer,*Y.Integer);<- to reset set *X or *Y to #Null!
  Static.s a,b
  Static.i x,y
  Protected.i sx,sy
  Protected.Unicode *a,*b,*c
  If *X = #Null Or *Y = #Null 
    x = 0
    y = 0
    b = #Null$
    ProcedureReturn #Null
  EndIf
  a = GetGadgetText(Gadget)
  If b And a <> b
    *a = @a
    *b = @b
    While *a\u <> #Null And *b\u <> #Null
      If *a\u = 10
        *c = *a
        sy + 1
      EndIf
      If *a\u <> *b\u
        sx = (*a - *c) >> 1
        Break
      EndIf
      *a + 2
      *b + 2
      If *a\u = #Null Or *b\u = #Null
        If *c = 0
          sx = StringByteLength(a) >> 1
        Else
          sx = (*a - *c) >> 1
        EndIf
      EndIf
      If sx
        sx - 1
      EndIf
    Wend
    x = sx
    y = sy
  EndIf
  b = a
  *X\i = x
  *Y\i = y
  ProcedureReturn #Null
EndProcedure

Procedure.i Main()
  Protected.i cx,cy
  If OpenWindow(0,0,0,320,200,#Null$,#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget)
    If EditorGadget(0,0,0,WindowWidth(0),WindowHeight(0),#PB_Editor_WordWrap)
      Repeat
        Select WaitWindowEvent()
          Case #PB_Event_Gadget
            If EventGadget() = 0 And EventType() = #PB_EventType_Change
              EditorLastChange(0,@cx,@cy)
              Debug Str(cx) + " x " + Str(cy)
            EndIf
          Case #PB_Event_CloseWindow
            Break
        EndSelect
      ForEver
    EndIf
    CloseWindow(0)
  EndIf
  ProcedureReturn #Null
EndProcedure

End Main()

Code: Select all

If OpenWindow(0, 0, 0, 322, 170, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  EditorGadget(0, 8, 8, 306, 133)
  TextGadget(1, 8, 147, 306, 20, "Move up/down lines with the cursor")
  For a = 1 To 5
    AddGadgetItem(0, a, "Line "+Str(a))
  Next
  SetActiveGadget(0)
  Repeat
    ev=WaitWindowEvent()
    If ev=#WM_KEYDOWN And EventGadget()=0
      SetGadgetText(1, "Cursor is on line "+Str(SendMessage_(GadgetID(0),#EM_LINEFROMCHAR,-1,0)+1))
    EndIf
  Until ev=#PB_Event_CloseWindow
EndIf