PureBoard

Code: Alles auswählen

SendMessage_(GadgetID(#editor), #EM_SETLIMITTEXT, 100, 0)

Code: Alles auswählen

; das wuppzt zumindest bei XP
Enumeration
  #Window_0
EndEnumeration

Enumeration
  #Editor_0
EndEnumeration

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      EditorGadget(#Editor_0, 70, 50, 240, 140)
    EndIf
  EndIf
EndProcedure

Open_Window_0()

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
      lines.q=CountGadgetItems(#Editor_0)
      chars.q=Len(GetGadgetText(#Editor_0))
      If lines>=4
        SendMessage_(GadgetID(#Editor_0), #EM_SETLIMITTEXT, chars+1, 0)
      Else
        SendMessage_(GadgetID(#Editor_0), #EM_SETLIMITTEXT, -1, -1)
      EndIf
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop
End
;