PureBasic

Forums PureBasic
Nous sommes le Mer 17/Juil/2019 3:39

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 4 messages ] 
Auteur Message
 Sujet du message: Mot_barré_rayé
MessagePosté: Ven 06/Oct/2017 12:01 
Hors ligne
Avatar de l’utilisateur

Inscription: Mar 31/Mai/2016 9:06
Messages: 2034
Petite application pour rayer les mots dans le forum
il suffit de choisir et de coller dans l'editeur du forum :)

Code:

;***********************************************
;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


_________________
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"


Dernière édition par Zorro le Ven 06/Oct/2017 17:35, édité 1 fois.

Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Mot_barré_rayé
MessagePosté: Ven 06/Oct/2017 12:16 
Hors ligne

Inscription: Sam 08/Fév/2014 15:19
Messages: 1579
Merci :wink:

Ligne 108: Pourquoi ProcedureDLL ?
Code:
ProcedureDLL strike(a.s,mode)

(Curieusement, ça marche aussi bien avec Procedure)
:?:

_________________
HP de 2012 - Intel i3-3220 @3.30 GHz, 2 coeurs, 4 threads - RAM 16 Go - Nvidia GT 620 1920x1080 DPI 100%
Windows 10 Famille x64 + Linux (Slackware, Debian sur Oracle VirtualBox 6.0)


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Mot_barré_rayé
MessagePosté: Ven 06/Oct/2017 14:12 
Hors ligne
Avatar de l’utilisateur

Inscription: Mar 31/Mai/2016 9:06
Messages: 2034
parceque j'envisageais de m'en faire une lib avec MLF :lol:

_________________
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Mot_barré_rayé
MessagePosté: Sam 07/Oct/2017 1:22 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 8703
̶M̶e̶r̶c̶i̶ pour ce ̷C̷o̷d̷e̷ :D

_________________
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.4x / 5.6x
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
RESIZER GOLD : Mon logiciel de redimensionnement par lot 100% PB


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 4 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 3 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  
cron

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye