PureBasic

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu
; Version de PB : 4
;
; Explication du programme :
; Modifier un texte dans un StringGadget ou un EditorGadget en partant de la position du curseur

Procedure EditText(Gadget, Type, Text_Start.s, Text_End.s = "")
	; type = 0 : Insertion de texte sur le curseur
	; type = 1 : insertion de texte autour de la sélection
	Protected Debut_Position, Fin_position, Texte.s, Index.l
	Select GadgetType(Gadget)
        Case #PB_GadgetType_String
			SendMessage_(GadgetID(Gadget), #EM_GETSEL, @Debut_Position, @Fin_position)
			Texte = GetGadgetText(Gadget)
			If Type = 0
				Texte = Left(Texte, Debut_Position) + Text_Start + Text_End + Right(Texte, Len(Texte) - Fin_position)
				Debut_Position + Len(Text_Start + Text_End)
				Fin_position = Debut_Position
            Else
				Texte = Left(Texte, Debut_Position) + Text_Start + Mid(Texte, Debut_Position + 1, Fin_position - Debut_Position) + Text_End + Right(Texte, Len(Texte) - Fin_position)
				Debut_Position + Len(Text_Start)
				Fin_position + Len(Text_Start)
            EndIf
			SetGadgetText(Gadget, Texte)
			SendMessage_(GadgetID(Gadget), #EM_SETSEL, Debut_Position, Fin_position)
			SetActiveGadget(Gadget)
			
        Case #PB_GadgetType_Editor
			SendMessage_(GadgetID(Gadget), #EM_GETSEL, @Debut_Position, @Fin_position)
			For Index = 0 To CountGadgetItems(Gadget) - 1
				If Texte <> ""
					Texte + Chr(10)
                EndIf
				Texte + GetGadgetItemText(Gadget, Index)
            Next
			If Type = 0
				Texte = Left(Texte, Debut_Position) + Text_Start + Text_End + Right(Texte, Len(Texte) - Fin_position)
				Debut_Position + Len(Text_Start + Text_End)
				Fin_position = Debut_Position
            Else
				Texte = Left(Texte, Debut_Position) + Text_Start + Mid(Texte, Debut_Position + 1, Fin_position - Debut_Position) + Text_End + Right(Texte, Len(Texte) - Fin_position)
				Debut_Position + Len(Text_Start)
				Fin_position + Len(Text_Start)
            EndIf
			SetGadgetText(Gadget, Texte)
			SendMessage_(GadgetID(Gadget), #EM_SETSEL, Debut_Position, Fin_position)
			SetActiveGadget(Gadget)
			
    EndSelect
EndProcedure


; Création de la fenêtre et de la GadgetList
If OpenWindow(0, 0, 0, 300, 300, "Texte", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget) = 0 Or CreateGadgetList(WindowID(0)) = 0
	End
EndIf

StringGadget(0, 0, 0, 300, 25, "")

EditorGadget(1, 0, 30, 300, 100)

ButtonGadget(2, 0, 150, 300, 25, "Insérer le texte 'Blabla' au l'endroit du curseur")
ButtonGadget(3, 0, 175, 300, 25, "Entourer le texte sélectionné par '<b>' et '</b>'")

Repeat
	Event = WaitWindowEvent()
    
	Select Event
        Case #PB_Event_Menu
			Select EventMenu() ; Menus
					
            EndSelect
			
        Case #PB_Event_Gadget
			Select EventGadget() ; Gadgets
                Case 0 ; String
					Gadget_LostFocus = 0
					Debug "String"
                Case 1 ; Editor
                    Gadget_LostFocus = 1
					Debug "Editor"
                Case 2
					Debug "Insertion"
					EditText(Gadget_LostFocus, 0, "Blabla")
                Case 3
					EditText(Gadget_LostFocus, 1, "<b>", "</b>")
            EndSelect
    EndSelect
    
Until Event = #PB_Event_CloseWindow

End

Code : Tout sélectionner

SetCurrentDirectory(GetPathPart(ProgramFilename()))

Code : Tout sélectionner

; valeurs possibles pour le curseur :
#IDC_NO = 32648 ; curseur "interdit" (panneau d'interdiction)
#IDC_ARROW = 32512 ; la flèche (le curseur normal)
#IDC_IBEAM = 32513 ; curseur sélection de texte
#IDC_UPARROW = 32516 ; flèche qui pointe vers le haut
#IDC_APPSTARTING = 32650 ; curseur attente (flèche + sablier)
#IDC_WAIT = 32514 ; curseur occupé (sablier)
#IDC_CROSS = 32515 ; curseur précision de la sélection (croix)
#IDC_SIZENWSE = 32642 ; curseur de dimensionnment, pointe le NordOuest et le SudEst
#IDC_SIZENESW = 32643 ; curseur de dimensionnment, pointe le NE et le SO
#IDC_SIZEWE = 32644 ; curseur de dimensionnment, pointe le E et le O
#IDC_SIZENS = 32645 ; curseur de dimensionnment, pointe le N et le S
#IDC_SIZEALL = 32646 ; curseur de déplacement, pointe le N, S, E et O
#IDC_HELP = 32651 ; curseur aide
#IDC_HAND = 32649 ; curseur main

Procedure SetCursor(IdCursor.l) ; modifie le curseur de la fenêtre en cours
  SetClassLong_(WindowID(0), #GCL_HCURSOR, LoadCursor_(0, IdCursor))
EndProcedure



If OpenWindow(0, 200, 200, 400, 200, "Curseur", #PB_Window_SystemMenu)
  
  ; choix du curseur
  SetCursor(#IDC_HAND)
  
  Repeat
    EventID.l = WaitWindowEvent()
  Until EventID = #PB_Event_CloseWindow
  
EndIf

End