il suffit de choisir et de coller dans l'editeur du forum
Code : Tout sélectionner
;***********************************************
;Titre :mot_barre_raye
;Auteur : Zorro
;Date :06/10/2017
;Heure :18:34:35
;Version Purebasic : PureBasic 5.60 (Windows - x86)
;Version de l'editeur :EPB V2.68
; Libairies necessaire : Aucune
;***********************************************
;{- Enumerations / DataSections
;{ Windows
Enumeration
#Win
EndEnumeration
;}
;{ Gadgets
Enumeration
#Text_Titre
#Text_auteur
#Option_1
#Option_2
#Option_3
#Option_4
#String
#Button_Go
EndEnumeration
;}
;{ Fonts
Enumeration
#Font_Text_Titre
EndEnumeration
;}
Define.l Event
Global Flag_option
Declare openwindow_win()
Declare strike(a.s,mode)
Declare gras(a.s)
Declare underline(a.s)
;}
OpenWindow_Win()
;{- Event loop
Repeat
Event = WaitWindowEvent(12)
Select Event
; ///////////////////
Case #PB_Event_Gadget
Select EventGadget()
Case #Text_Titre
Case #Text_auteur
Case #Option_1
Flag_option=1
Case #Option_2
Flag_option=2
Case #Option_3
Flag_option=3
Case #Option_4
Flag_option=4
Case #String
Text.s=GetGadgetText(#String)
Case #Button_Go
Select Flag_option
Case 1 ; Barre simple
strike(Text.s,Flag_option)
Case 2 ;Bassé /
strike(Text.s,Flag_option)
Case 3 ; Gras
Gras(Text.s)
Case 4 ; underline
Underline(Text.s)
EndSelect
EndSelect
; ////////////////////////
Case #PB_Event_CloseWindow
Select EventWindow()
Case #Win
CloseWindow(#Win)
Break
EndSelect
EndSelect
Forever
;
;}
;-Zone Procedures
Procedure OpenWindow_Win()
If OpenWindow(#Win, 450, 200, 501, 173, "Styler", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
TextGadget(#Text_Titre, 195, 10, 80, 35, "Styler")
TextGadget(#Text_auteur, 430, 150, 65, 20, "By Zorro")
OptionGadget(#Option_1, 15, 45, 85, 25, "Barré simple")
OptionGadget(#Option_2, 15, 70, 85, 25, "Barré /")
OptionGadget(#Option_3, 15, 95, 85, 25, "Gras")
OptionGadget(#Option_4, 15, 120, 85, 25, "Souligné")
StringGadget(#String, 120, 75, 350, 25, "")
ButtonGadget(#Button_Go, 125, 120, 130, 30, "Go to CLipboard")
; Gadget Fonts
SetGadgetFont(#Text_Titre, LoadFont(#Font_Text_Titre, "Arial Narrow", 24, #PB_Font_HighQuality))
SetGadgetState(#Option_1, #True) :Flag_option=1
EndIf
EndProcedure
;
ProcedureDLL strike(a.s,mode)
Protected code
Select mode
Case 1
code=822
Case 2
code=823
EndSelect
sortie.s=sortie.s+Chr(32)
For i=1 To Len(a.s)
sortie.s=sortie.s+Chr(code)
sortie.s=sortie.s+Mid(a.s,i,1)
Next i
sortie.s=sortie.s+Chr(code)
SetClipboardText(sortie.s)
EndProcedure
Procedure Gras(a.s)
Sortie.s="[b]"+a.s+"[/b]"
SetClipboardText(sortie.s)
EndProcedure
Procedure Underline(a.s)
Sortie.s="[u]"+a.s+"[/u]"
SetClipboardText(sortie.s)
EndProcedure
; Epb