Code Source
Code : Tout sélectionner
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