PureBasic

ProcedureDLL RetourAuto(gadget)
  SendMessage_(GadgetID(gadget), #EM_SETTARGETDEVICE, #Null, 0)
EndProcedure
;---Retour Automatique à la ligne dans un gadget par Ar-S / 2008---
;
; Enumeration
  ; #window : #MonGadget
; EndEnumeration
;
; Procedure OpenWindow_Window()
  ; If OpenWindow(#window, 268, 496, 227, 121, "retour à la ligne automatique", #PB_Window_SystemMenu|#PB_Window_TitleBar)
    ; If CreateGadgetList(WindowID(#window))
      ; EditorGadget(#MonGadget, 1, 1, 226, 240, #PB_Editor_ReadOnly)
      ; RetourAuto(#MonGadget) ; LA PROCEDURE EST A PLACER APRES LE GADGET CIBLE (et pas avant)
    ; EndIf
  ; EndIf
; EndProcedure
;
;
; OpenWindow_Window()
; SetGadgetText(#MonGadget,"Le retour chariot désigne originellement le mécanisme physique permettant au chariot d'une machine à écrire de revenir en butée à gauche (soit, du point de vue du rédacteur, de revenir au début de la ligne). Par extension, le terme désigne usuellement le passage à la ligne suivante sur les traitements de texte. Source : wikipedia")
;
; Repeat
  ; Select WaitWindowEvent()
    ; Case #PB_Event_CloseWindow
      ; Select EventWindow()
        ; Case #window
          ; CloseWindow(#window)
          ; Break
      ; EndSelect
  ; EndSelect
; ForEver