PureBasic

Code : Tout sélectionner

;-PB 4.30
Enumeration
    #Window_0
    #editor
    #Button_1
EndEnumeration
;}
Global NouveauTexte$, texte$,NbrDeCar

Procedure OpenWindow_Window_0()
    If OpenWindow(#Window_0, 450, 200, 523, 193, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
        EditorGadget(#editor, 10, 10, 500, 135)
        SetGadgetText(#editor,"Mon editor plein de texte"+Chr(10)+Chr(10)+"des trucs, tout ça blabla"+Chr(10)+Chr(10)+"alors j'aimerai bien pouvoir placer mon curseur par exemple ici et qu'en"+Chr(10)+"cliquant sur le bouton, ça insère le mot cassoulet")
        ButtonGadget(#Button_1, 8, 150, 505, 35, "clique ici pour insérer le mot cassoulet")
    EndIf
EndProcedure

Procedure InserMot(gadget,mot$)
    Texte.s=GetGadgetText(gadget)
    NbrDeCar=Len(texte$)
;    (... code à ajouter dont je n'ai aucune idée)
;    text_Avant_Inser$=  ???? ; ce qu'il y a après le curseur
;    text_Apres_Inser$= ??? ; ce qu'il y a avant le curseur
    NouveauTexte$=text_Avant_Inser$+mot$+text_Apres_Inser$
    SetGadgetText(gadget,NouveauTexte$)
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
    Select WaitWindowEvent()
            ; ///////////////////
        Case #PB_Event_Gadget
            Select EventGadget()
                Case #editor
                Case #Button_1
                    MotAInserer.s="cassoulet"
                    InserMot(#editor,MotAInserer)
                    
            EndSelect
            ; ////////////////////////
        Case #PB_Event_CloseWindow
            Select EventWindow()
                Case #Window_0
                    CloseWindow(#Window_0)
                    Break
            EndSelect
    EndSelect
ForEver
;
;}

Code : Tout sélectionner

;-PB 4.30
Enumeration
    #Window_0
    #editor
    #Button_1
EndEnumeration

Global NouveauTexte$, texte$,NbrDeCar

;Procedure InserMot(gadget,mot$)
;    Texte.s=GetGadgetText(gadget)
;    NbrDeCar=Len(texte$)
    ;    (... code à ajouter dont je n'ai aucune idée)
    ;    text_Avant_Inser.s=  ???? ; ce qu'il y a après le curseur
    ;    text_Apres_Inser.s= ??? ; ce qu'il y a avant le curseur
;    NouveauTexte$=text_Avant_Inser$+mot$+text_Apres_Inser$
;    SetGadgetText(gadget,NouveauTexte$)
;EndProcedure


    hwnd= OpenWindow(#Window_0, 450, 200, 523, 193, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    hED=EditorGadget(#editor, 10, 10, 500, 135)
    SetGadgetText(#editor,"Mon editor plein de texte"+Chr(10)+Chr(10)+"des trucs, tout ça blabla"+Chr(10)+Chr(10)+"alors j'aimerai bien pouvoir placer mon curseur par exemple ici et qu'en"+Chr(10)+"cliquant sur le bouton, ça insère le mot cassoulet")
    ButtonGadget(#Button_1, 8, 150, 505, 35, "clique ici pour insérer le mot cassoulet")


Repeat
    e=WaitWindowEvent()
    If e=#PB_Event_Gadget And EventGadget()=#Button_1
        GetCaretPos_(@p.POINT)   ;Get current cursor position in the client area
        Debug GetCaretPos_(@p.POINT)   ;Get current cursor position in the client area
        chrIdx=SendMessage_(hED, #EM_EXGETSEL, #Null, @Selection.CHARRANGE)
        Debug "line: "+ Str(SendMessage_(hED, #EM_LINEFROMCHAR, chrIdx, 0) + 1)
        SetFocus_(hED)
    EndIf
    
Until e=#PB_Event_CloseWindow
;
;}

Code : Tout sélectionner

Procedure Editor_InsertText(gadget,Text$) 
  ProcedureReturn SendMessage_(GadgetID(gadget),#EM_REPLACESEL,0,Text$) 
EndProcedure

Code : Tout sélectionner

Procedure InserMot(gadget,mot$)
  SetClipboardText(mot$)
  SendMessage_(GadgetID(gadget),#WM_PASTE,0,0)
EndProcedure

Code : Tout sélectionner

;la Position du curseur :
; Author: Danilo
; Date: 08. August 2003
Procedure EditorGadgetCursorX (Gadget)
      ; returns X-Pos of Cursor
      REG = GadgetID (Gadget)
      SendMessage_ (REG, #EM_EXGETSEL ,0,Range.CHARRANGE)
      ProcedureReturn (Range\cpMax-( SendMessage_ (REG, #EM_LINEINDEX , SendMessage_ (REG, #EM_EXLINEFROMCHAR ,0,Range\cpMin),0))+1)
EndProcedure

Procedure EditorGadgetCursorY (Gadget)
      ; returns Y-Pos of Cursor
      REG = GadgetID (Gadget)
      SendMessage_ (REG, #EM_EXGETSEL ,0,Range.CHARRANGE)
      ProcedureReturn SendMessage_ (REG, #EM_EXLINEFROMCHAR ,0,Range\cpMin)+1
EndProcedure

Procedure EditorGadgetCursorPos (Gadget)
      ; returns relative Position of Cursor
      SendMessage_ ( GadgetID (Gadget), #EM_EXGETSEL ,0,Range.CHARRANGE)
      ProcedureReturn Range\cpMax
EndProcedure

Procedure EditorGadgetLocate (Gadget,x,y)
      ; Set cursor position
      REG = GadgetID (Gadget)
      CharIdx = SendMessage_ (REG, #EM_LINEINDEX ,y-1,0)
      LLength = SendMessage_ (REG, #EM_LINELENGTH ,CharIdx,0)
      If LLength >= x-1
            CharIdx + x-1
      EndIf
      Range.CHARRANGE
      Range\cpMin = CharIdx
      Range\cpMax = CharIdx
      SendMessage_ (REG, #EM_EXSETSEL ,0,Range)
EndProcedure

OpenWindow (1,200,200,300,200, "EditorGadget" , #PB_Window_SystemMenu )

EditorGadget (1,5,5,290,190)
 
AddGadgetItem (1,-1, "Hallo!" )
AddGadgetItem (1,-1, "" )
AddGadgetItem (1,-1, "Hier ein paar Proceduren" )
AddGadgetItem (1,-1, "zur Steuerung des Cursors" )
AddGadgetItem (1,-1, "im EditorGadget." )
EditorGadgetLocate (1,7,2)
Repeat
      Select WaitWindowEvent ()
            Case #PB_Event_CloseWindow : End
      EndSelect
      SetWindowText_ ( WindowID (1), "X: " + Str ( EditorGadgetCursorX (1))+ " Y: " + Str ( EditorGadgetCursorY (1))+ " -- Position: " + Str ( EditorGadgetCursorPos (1)))
ForEver 

Code : Tout sélectionner

Global Rep$                                        ;  Localisation de l'application
Rep$=GetPathPart(ProgramFilename())  ; ATTENTION : Pour JaPBe, Ici il faut que l'option "exe" dans le répertoire source soit coché
SetCurrentDirectory(Rep$)					   ;                        **********************************************************************************           
Debug Rep$

Code : Tout sélectionner

Macro HIWORD(n) :  (n >> 16) : EndMacro
Macro LOWORD(n) : (n & $FFFF) : EndMacro ; etc...

Code : Tout sélectionner

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; API MACROS; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Macro HIWORD(n) :  (n >> 16) : EndMacro
Macro LOWORD(n) : (n & $FFFF) : EndMacro