Exemple de code
Publié : sam. 09/avr./2011 13:07
J'ai commencer a faire ceci, sa va me facilité la tache que de toujours rechercher les codes dans mes dossier 
La suite plus bas...
Code : Tout sélectionner
TEMPLATES:1.0
Directory: Gestion du clavier et de la souris
Template: Renvoyer touche clavier appuiyer
Comment: Renvoie la touche du clavier qui est présser
Code: \n;{Aide\n;-----------------------------------------------------------Pour le clavier:---------------------------------------------------------------------------------------------------------\n\n; Le Mode peut être entre 1 et 5, sinon si différent de 1, 2, 3, 4 ou 5, le mode 1 sera appliquer par défaut\n;\n; 1 = Renvoie uniquement le nom de la touche presser (Mode par défaut)\n; 2 = Renvoie le nom ainsi que le code de la touche presser\n; 3 = Renvoie le nom ainsi que le code de la touche presser sous la forme Hexa\n; 4 = Renvoie uniquement le code de la touche presser\n; 5 = Renvoie uniquement le code de la touche presser mais sous la forme Hexa\n\n; Syntaxe: Touche_presser$ = GetKeyboardKeyPressed(Mode)\n\n; La commande doit être placer a l'intérieur d'une boucle quelconque pour fonctionner correctement\n; ou sinon celle-ci sera exécuter qu'une seule fois et ne renverra rien sauf si une touche est déjà enfoncer\n\n; Normalement, toutes les touches du clavier son gérer !\n\n;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\n;}\n\nProcedure.s GetKeyboardKeyPressed(Mode)\n \n Buffer$ = ""\n \n For Touche = 0 To 254\n Cle_Touche = GetAsyncKeyState_(Touche)\n \n If Cle_Touche = - 32767\n \n Buffer$ + Str(Touche) + "|"\n \n \n If Touche > 64 And Touche < 91 ; de A à Z\n Touche$ = Chr(Touche)\n \n \n ElseIf Touche = 27\n Touche$ = "Echap"\n \n \n ElseIf Touche = 32\n Touche$ = "Espace"\n \n \n ElseIf Touche > 111 And Touche < 124 ; de F1 a F12\n Touche$ = "F" + Str(Touche - 111)\n \n \n ElseIf Touche = 44\n Touche$ = "Impr écran"\n \n \n ElseIf Touche = 45\n Touche$ = "Inser"\n \n \n ElseIf Touche = 46\n Touche$ = "Suppr"\n \n \n ElseIf Touche = 36\n Touche$ = "Flèche diagonnale haut gauche"\n \n \n ElseIf Touche = 35\n Touche$ = "Fin"\n \n \n ElseIf Touche = 19\n Touche$ = "Pause-Attn"\n \n \n ElseIf Touche = 145\n Touche$ = "Arrêt Défil"\n \n \n ElseIf Touche > 47 And Touche < 58 ; de 0 à 9\n Touche$ = Str(Touche - 48)\n \n \n ElseIf Touche > 95 And Touche < 106 ; pad numérique de 0 à 9\n Touche$ = "Pad " + Str(Touche - 96)\n \n \n ElseIf Touche = 222\n Touche$ = "²"\n \n \n ElseIf Touche = 219\n Touche$ = ")"\n \n \n ElseIf Touche = 187\n Touche$ = "="\n \n \n ElseIf Touche = 8\n Touche$ = "Retour arrière"\n \n \n ElseIf Touche = 9\n Touche$ = "Tabulation Horizontal"\n \n \n ElseIf Touche = 20\n Touche$ = "Majuscule Cadena"\n \n \n ElseIf Touche = 160\n Touche$ = "Majuscule flèche gauche"\n \n \n ElseIf Touche = 162\n Touche$ = "Ctrl gauche"\n \n ElseIf Touche = 91\n Touche$ = "Appel du menue de windows"\n \n \n ElseIf Touche = 93\n Touche$ = "Appel du menue de la souris"\n \n \n ElseIf Touche = 164\n Touche$ = "Alt"\n \n \n ElseIf Touche = 226\n Touche$ = ">"\n \n \n ElseIf Touche = 221\n Touche$ = "¨"\n \n \n ElseIf Touche = 186\n Touche$ = "$"\n \n \n ElseIf Touche = 192\n Touche$ = "ù"\n \n \n ElseIf Touche = 220\n Touche$ = "*"\n \n \n ElseIf Touche = 188\n Touche$ = ","\n \n \n ElseIf Touche = 190\n Touche$ = ";"\n \n \n ElseIf Touche = 191\n Touche$ = ":"\n \n \n ElseIf Touche = 223\n Touche$ = "!"\n \n \n ElseIf Touche = 161\n Touche$ = "Majuscule flèche droite"\n \n \n ElseIf Touche = 33\n Touche$ = "Flèche arrètte haut"\n \n \n ElseIf Touche = 34\n Touche$ = "Flèche arrètte bas"\n \n \n ElseIf Touche = 163\n Touche$ = "Ctrl droite"\n \n \n ElseIf Touche = 165\n Touche$ = "Alt Gr"\n \n ElseIf Touche = 37\n Touche$ = "Flèche gauche"\n \n ElseIf Touche = 38\n Touche$ = "Flèche haut"\n \n ElseIf Touche = 39\n Touche$ = "Flèche droite"\n \n ElseIf Touche = 40\n Touche$ = "Flèche bas"\n \n ElseIf Touche = 110\n Touche$ = "Pad Suppr"\n \n ElseIf Touche = 13\n Touche$ = "Entrer"\n \n ElseIf Touche = 106\n Touche$ = "Pad Multiplication"\n \n ElseIf Touche = 107\n Touche$ = "Pad Addition"\n \n ElseIf Touche = 109\n Touche$ = "Pad soustraction"\n \n ElseIf Touche = 111\n Touche$ = "Pad Division"\n \n ElseIf Touche = 144\n Touche$ = "Verr num"\n \n ElseIf Touche = 172\n Touche$ = "Internet"\n \n ElseIf Touche = 180\n Touche$ = "Mail"\n \n ElseIf Touche = 174\n \n \n Touche$ = "Sons -"\n \n ElseIf Touche = 175\n Touche$ = "Sons +"\n \n ElseIf Touche = 177\n Touche$ = "Lecture reculer"\n \n ElseIf Touche = 178\n Touche$ = "Lecture stop"\n \n ElseIf Touche = 179\n Touche$ = "Lecture / pause"\n \n ElseIf Touche = 176\n Touche$ = "Lecture avencer"\n \n \n EndIf\n \n If Touche <> 16 And Touche <> 17 And Touche <> 18 And Touche <> 1 And Touche <> 2 And Touche <> 4 \n If Buffer$ <> "17|18|162|"\n If Mode = 1\n Touche_presser$ = Touche$\n ElseIf Mode = 2\n Touche_presser$ = Touche$ + " | " + Str(Touche)\n ElseIf Mode = 3\n Touche_presser$ = Touche$ + " | " + "$" + RSet(Hex(Touche), 2, "0")\n ElseIf Mode = 4\n Touche_presser$ = Str(Touche)\n ElseIf Mode = 5\n Touche_presser$ = "$" + RSet(Hex(Touche), 2, "0")\n Else\n Touche_presser$ = Touche$\n EndIf\n ElseIf Buffer$ = "17|18|162|"\n If Mode = 1\n Touche_presser$ = "Alt Gr"\n ElseIf Mode = 2\n Touche_presser$ = "Alt Gr" + " | " + Str(165)\n ElseIf Mode = 3\n Touche_presser$ = "Alt Gr" + " | " + "$" + RSet(Hex(165), 2, "0")\n ElseIf Mode = 4\n Touche_presser$ = Str(165)\n ElseIf Mode = 5\n Touche_presser$ = "$" + RSet(Hex(165), 2, "0")\n Else\n Touche_presser$ = "Alt Gr"\n EndIf\n EndIf\n EndIf\n \n EndIf\n \n Next Touche\n \n \n ProcedureReturn Touche_presser$\nEndProcedure\n
Template: Renvoie touche souris appuiyer
Comment: Renvoie le clique de la souris qui est présser
Code: ;{ Aide\n;---------------------------------------------------------------Pour la souris:-----------------------------------------------------------------------------------------------------\n\n; Le Mode peut être entre 1 et 5, sinon si différent de 1, 2, 3, 4 ou 5, le mode 1 sera appliquer par défaut\n;\n; 1 = Renvoie uniquement le nom du clique presser (Mode par défaut)\n; 2 = Renvoie le nom ainsi que le code du clique presser\n; 3 = Renvoie le nom ainsi que le code du clique presser sous la forme Hexa\n; 4 = Renvoie uniquement le code du clique presser\n; 5 = Renvoie uniquement le code du clique presser mais sous la forme Hexa\n\n; Syntaxe: Clique_Souris$ = GetMouseKeyPressed(Mode)\n\n; La commande doit être placer a l'intérieur d'une boucle quelconque pour fonctionner correctement\n; ou sinon celle-ci sera exécuter qu'une seule fois et ne renverra rien sauf si un clique est déjà enfoncer\n\n; Normalement, la plupart des cliques de la souris son gérer, mais pas tous !\n\n;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\n;}\n\nProcedure.s GetMouseKeyPressed(Mode)\n \n For Clique = 0 To 10\n Cle_Clique = GetAsyncKeyState_(Clique)\n \n If Cle_Clique = - 32767\n \n If Clique = 1\n Clique$ = "Clique droit"\n \n ElseIf Clique = 2\n Clique$ = "Clique gauche"\n \n ElseIf Clique = 4\n Clique$ = "Clique centre"\n \n ElseIf Clique = 5\n Clique$ = "Clique Précédent"\n \n ElseIf Clique = 6\n Clique$ = "Clique Suivent"\n \n EndIf\n \n If Mode = 1\n Clique_Souris$ = Clique$\n \n ElseIf Mode = 2\n Clique_Souris$ = Clique$ + " | " + Str(Clique)\n \n ElseIf Mode = 3\n Clique_Souris$ = Clique$ + " | " + "$" + RSet(Hex(Clique), 2, "0")\n \n ElseIf Mode = 4\n Clique_Souris$ = Str(Clique)\n \n ElseIf Mode = 5\n Clique_Souris$ = "$" + RSet(Hex(Clique), 2, "0")\n \n Else\n Clique_Souris$ = Clique$\n EndIf\n \n EndIf\n \n Next\n \n ProcedureReturn Clique_Souris$\nEndProcedure\n
CloseDirectory
Directory: Convertion
Expanded
Directory: Nombre positif ou négatif
Template: Convertion nombre en positif
Comment: Permet de convertie un nombre négatif en positif
Code: \nProcedure.l convertion_positif(nombre)\n convertion_nombre = nombre - nombre - nombre\n ProcedureReturn convertion_nombre\nEndProcedure\n
Template: Convertion nombre en négatif
Comment: Permet de convertire un nombre positif en négatif
Code: \nProcedure.l convertion_negatif(nombre)\n convertion_nombre = nombre - nombre - nombre\n ProcedureReturn convertion_nombre\nEndProcedure\n
CloseDirectory
Directory: Convertion chaine caractère
Template: Convertion chaine caractère en code
Comment: Cette procedure permet de convertire une chaine de caractère en code directement compilable\n\nSa permet de facilité le travail d'affichage\ndes caractère notament dans une console
Code: \n ; crée par dieppedalle david le 16 mars 2010\n ; vous pouvez crée une procedure comme la\n ; ou alors vous prenez la chaine dans un fichier:\n \n ; If ReadFile(1, "chaine.txt") ; Si le fichier peut être lu , on continue...\n ; While Eof(1) = 0 ; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File') \n ; chaine$ = ReadString(1) ; Affiche ligne par ligne le contenu du fichier\n ; Wend\n ; CloseFile(1) ; Ferme le fichier précédemment ouvert\n ; Else\n ; MessageRequester("Information","Impossible d'ouvrir le fichier !")\n ; EndIf\n \n ; l'aventage de prendre la chaine directement dans un fichier\n ; c'est que ont peut convertire aussie les guillemet \n ; ce qui ne peut pas ce faire avec une procedure\n ; car l'on ne peut pas mêtre de guillemet\n ; pure dans une chaine de caractère\n \n ; il y as deux mode, 0 et 1\n ; le mode 0 est pour les caractères ascii standard qui ne sont pas compatible avec la console\n ; et le mode 1 est pour les caractères ascii en mode console\n \n \n Procedure Convertion_caractere(Chaine$, Mode)\n\n If mode = 0\n \n For converssion = 1 To Len(chaine$) \n \n caractere$ = Mid(chaine$, converssion, 1)\n \n If caractere$ = Chr(34) Or caractere$ = "à" Or caractere$ = "â" Or caractere$ = "ä" Or caractere$ = "é" Or caractere$ = "è" Or caractere$ = "ê" Or caractere$ = "ë" Or caractere$ = "î" Or caractere$ = "ï" Or caractere$ = "ô"Or caractere$ = "ö" Or caractere$ = "û" Or caractere$ = "ü" Or caractere$ = "ÿ" Or caractere$ = "ç"\n ; si un caractères est accentuer ou que c'est un guillemet, ont le convertit\n convertisseur = 1\n Else\n convertisseur = 0\n EndIf\n \n If converssion = 1 And convertisseur = 0 ; si c'est le premier caractère de la chaine et que et que ya pas de lèttre a convertire\n caractere_convertis$ = Chr(34) + caractere$ ; je debute la chaine de caractère par un guillemet\n \n ElseIf converssion = 1 And convertisseur = 1 ; sinon si c'est le premier caractère de la chaine et que ya une lèttre a convertire\n caractere_convertis$ = "Chr(" + Str(Asc(caractere$)) + ") + " + Chr(34) ; ; je debute la chaine de caractère par un chr(identifiant caractère) plus un guillemet\n \n ElseIf converssion = Len(chaine$) And convertisseur = 0 ; sinon si c'est le dernier caractère de la chaine et que ya pas de lèttre a convertire\n caractere_convertis$ = caractere$ + Chr(34) ; je tèrmine la chaine de caractère par un guillemet\n \n ElseIf converssion = Len(chaine$) And convertisseur = 1 ; sinon si c'est le dernier caractère de la chaine et que ya une lèttre a convertire\n caractere_convertis$ = Chr(34) + " + Chr(" + Str(Asc(caractere$)) + ")" ; je tèrmine la chaine de caractère par un + chr(identifiant caractère)\n \n ElseIf converssion < Len(chaine$) And convertisseur = 0 ; sinon si c'est un caractère qui n'est ni au début ni a la fin de la chaine et que ya pas de lèttre a convertire\n caractere_convertis$ = caractere$ ; j'enregistrer le caractere\n \n ElseIf converssion < Len(chaine$) And convertisseur = 1; sinon si c'est un caractère qui n'est ni au début ni a la fin de la chaine et que ya une lèttre a convertire\n caractere_convertis$ = Chr(34) + " + Chr(" + Str(Asc(caractere$)) + ") + " + Chr(34) ; je met un guillemet + chr(identifiant caractère) + ") + " + un autre guillemet\n \n EndIf\n \n caractere_convertis_precedent$ = caractere_convertis$\n converssion_chaine$ = converssion_chaine$ + caractere_convertis$\n \n Next\n \n ElseIf mode = 1\n \n For converssion = 1 To Len(chaine$) \n \n caractere$ = Mid(chaine$, converssion, 1)\n \n Select caractere$\n ; si un caractères est accentuer ou que c'est un guillemet, ont le convertit\n \n Case Chr(34)\n convertisseur = 1\n ascii_caractere = 34\n \n Case "à"\n convertisseur = 1\n ascii_caractere = 133\n \n Case "â"\n convertisseur = 1\n ascii_caractere = 134\n \n Case "ä"\n convertisseur = 1\n ascii_caractere = 132\n \n Case "é"\n convertisseur = 1\n ascii_caractere = 130\n \n Case "è"\n convertisseur = 1\n ascii_caractere = 138\n \n Case "ê"\n convertisseur = 1\n ascii_caractere = 136\n \n Case "ë"\n convertisseur = 1\n ascii_caractere = 137\n \n Case "î"\n convertisseur = 1\n ascii_caractere = 140\n \n Case "ï"\n convertisseur = 1\n ascii_caractere = 139\n \n Case "ô"\n convertisseur = 1\n ascii_caractere = 147\n \n Case "ö"\n convertisseur = 1\n ascii_caractere = 153\n \n Case "û"\n convertisseur = 1\n ascii_caractere = 150\n \n Case "ü"\n convertisseur = 1\n ascii_caractere = 154\n \n Case "ÿ"\n convertisseur = 1\n ascii_caractere = 152\n \n Case "ç"\n convertisseur = 1\n ascii_caractere = 128\n \n Default\n convertisseur = 0\n \n EndSelect\n \n If converssion = 1 And convertisseur = 0 ; si c'est le premier caractère de la chaine et que et que ya pas de lèttre a convertire\n caractere_convertis$ = Chr(34) + caractere$ ; je debute la chaine de caractère par un guillemet\n \n ElseIf converssion = 1 And convertisseur = 1 ; sinon si c'est le premier caractère de la chaine et que ya une lèttre a convertire\n caractere_convertis$ = "Chr(" + Str(ascii_caractere) + ") + " + Chr(34) ; ; je debute la chaine de caractère par un chr(identifiant caractère) plus un guillemet\n \n ElseIf converssion = Len(chaine$) And convertisseur = 0 ; sinon si c'est le dernier caractère de la chaine et que ya pas de lèttre a convertire\n caractere_convertis$ = caractere$ + Chr(34) ; je tèrmine la chaine de caractère par un guillemet\n \n ElseIf converssion = Len(chaine$) And convertisseur = 1 ; sinon si c'est le dernier caractère de la chaine et que ya une lèttre a convertire\n caractere_convertis$ = Chr(34) + " + Chr(" + Str(ascii_caractere) + ")" ; je tèrmine la chaine de caractère par un + chr(identifiant caractère)\n \n ElseIf converssion < Len(chaine$) And convertisseur = 0 ; sinon si c'est un caractère qui n'est ni au début ni a la fin de la chaine et que ya pas de lèttre a convertire\n caractere_convertis$ = caractere$ ; j'enregistrer le caractere\n \n ElseIf converssion < Len(chaine$) And convertisseur = 1; sinon si c'est un caractère qui n'est ni au début ni a la fin de la chaine et que ya une lèttre a convertire\n caractere_convertis$ = Chr(34) + " + Chr(" + Str(ascii_caractere) + ") + " + Chr(34) ; je met un guillemet + chr(identifiant caractère) + ") + " + un autre guillemet\n \n EndIf\n \n caractere_convertis_precedent$ = caractere_convertis$\n converssion_chaine$ = converssion_chaine$ + caractere_convertis$\n \n Next\n \n EndIf\n \n Debug converssion_chaine$\n \n ; voici ce que sa donne\n Debug ""\n \n EndProcedure\n \n Convertion_caractere("ë, éléphant, électrique, à, éphémère, être, ö, caraïbe, âme,ÿ, île, hôte, ä, etc.", 1)\n \n
CloseDirectory
CloseDirectory
Directory: Procedure diverses
Expanded
Directory: Fenêtre
Template: Procedure nouvelle fenêtre
Comment: Ceci est une procedure de base pour crée une nouvelle fenêtre
Code: Enumeration\n #Fenetre\nEndEnumeration\n\nProcedure Procedure_Fenetre()\n If OpenWindow(#Fenetre, 439, 170, 600, 300, "Fenêtre", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )\n \n ;If CreateGadgetList(WindowID(#Fenetre))\n \n ;EndIf\n \n Repeat ; Start of the event loop\n \n Event = WaitWindowEvent(1) ; This line waits until an event is received from Windows\n WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures\n GadgetID = EventGadget() ; Is it a gadget event?\n EventType = EventType() ; The event type\n EventMenu = EventMenu()\n \n If Event = #PB_Event_Gadget\n \n If GadgetID = 0\n \n ElseIf GadgetID = 0\n \n ElseIf GadgetID = 0\n \n ElseIf GadgetID = 0\n \n ElseIf GadgetID = 0\n \n ElseIf GadgetID = 0\n \n ElseIf GadgetID = 0\n \n EndIf\n \n ElseIf Event = #PB_Event_Menu\n \n EndIf\n \n Until Event = #PB_Event_CloseWindow ; End of the event loop\n \n EndIf\nEndProcedure
Template: Choix transparence fenêtre
Comment: Permet de choisir la transparence de la fenêtre
Code: ; English forum: http://www.purebasic.fr/english/viewtopic.php?t=8747&highlight=\n; Author: Danilo (updated for PB4.00 by blbltheworm)\n; Date: 15. December 2003\n; OS: Windows\n; Demo: No\n\n\n; The function 'SetLayeredWindowAttributes' isnt available \n; on Win9x, so the procedure just ignores it on Win9x. \n; Works fine on Win2000+\n\nProcedure SetWinTransparency(win,level) \n If level>=0 And level<101 \n hLib = LoadLibrary_("user32.dll") \n If hLib \n adr = GetProcAddress_(hLib,"SetLayeredWindowAttributes") \n If adr \n SetWindowLong_(WindowID(win),#GWL_EXSTYLE,GetWindowLong_(WindowID(win),#GWL_EXSTYLE)|$00080000) ; #WS_EX_LAYERED = $00080000 \n CallFunctionFast(adr,WindowID(win),0,255*level/100,2) \n EndIf \n FreeLibrary_(hLib) \n EndIf \n EndIf \nEndProcedure \n\nOpenWindow(0,0,0,300,300,"Layered Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) \n SetWinTransparency(0,60)\n If CreateGadgetList(WindowID(0)) \n ButtonGadget(0,10,10,200,30,"Test")\n EndIf\nRepeat:Until WaitWindowEvent()=#PB_Event_CloseWindow
Template: Désactiver croix fenêtre
Comment: Permet de rendre inactif le croix d'une fenêtre pour qu'on ne puisse pas la fermer avec celle-ci\n\nCode a placer juste apres la commande\nde création de la fenêtre (OpenWindow)
Code: ; Retourne l'identifiant du menu système\n hSysMenu = GetSystemMenu_(WindowID(0), #False)\n ; Efface un élément du menu\n RemoveMenu_(hSysMenu, #SC_CLOSE, #MF_BYCOMMAND)\n ;Mise à jour du menu\n DrawMenuBar_(WindowID(0))
Template: Sauvegarde paramètre fenêtre fermeture
Comment: Permet de sauvegarder les divers paramètre de la fenêtre l'or de sa fermeture qui une fois réouverte reprendra les même paramètre que quand fermer
Code: ;----- Constantes -----\n\nEnumeration\n #Tisseran\nEndEnumeration\n\n;----- Variables -----\n\nEvent = #Null\nWindowX = #Null\nWindowY = #Null\nWindowWidth = #Null\nWindowHeight = #Null\nWindowFlags = #Null\n\n;----- Initialisation -----\n\nOpenPreferences("Préférences.txt")\n PreferenceGroup("Fenêtre pricipale")\n WindowX = ReadPreferenceInteger("Position en X", 64)\n WindowY = ReadPreferenceInteger("Position en Y", 64)\n WindowWidth = ReadPreferenceInteger("Largeur", 320)\n WindowHeight = ReadPreferenceInteger("Hauteur", 240)\n WindowFlags = ReadPreferenceInteger("État", 0)\nClosePreferences()\n\nSelect WindowFlags\n Case 0:\n WindowFlags = #PB_Window_Normal\n Case 1:\n WindowFlags = #PB_Window_Maximize\n Default:\n WindowFlags = #PB_Window_Normal\nEndSelect\n\nWindowFlags = #PB_Window_SystemMenu|WindowFlags|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget|#PB_Window_SizeGadget\n\n;----- Démarrage -----\n\nOpenWindow(#Tisseran, WindowX, WindowY, WindowWidth, WindowHeight, "Tisseran", WindowFlags)\n\n;----- Boucle principale -----\n\nRepeat\n Event = WaitWindowEvent()\n Select Event\n Case #PB_Event_CloseWindow:\n Break\n Case #PB_Event_SizeWindow:\n If GetWindowState(#Tisseran) = #PB_Window_Normal\n WindowWidth = WindowWidth(#Tisseran)\n WindowHeight = WindowHeight(#Tisseran)\n WindowFlags = 0\n ElseIf GetWindowState(#Tisseran) = #PB_Window_Maximize\n WindowFlags = 1\n EndIf\n Case #PB_Event_MoveWindow:\n If GetWindowState(#Tisseran) = #PB_Window_Normal\n WindowX = WindowX(#Tisseran)\n WindowY = WindowY(#Tisseran)\n WindowFlags = 0\n ElseIf GetWindowState(#Tisseran) = #PB_Window_Maximize\n WindowFlags = 1\n EndIf\n EndSelect\nForEver\n\n;----- Fermeture -----\n\nCreatePreferences("Préférences.txt")\n PreferenceGroup("Fenêtre pricipale")\n WritePreferenceInteger("Position en X", WindowX)\n WritePreferenceInteger("Position en Y", WindowY)\n WritePreferenceInteger("Largeur", WindowWidth)\n WritePreferenceInteger("Hauteur", WindowHeight)\n WritePreferenceInteger("État", WindowFlags)\nClosePreferences()\n\nEnd\n\n
CloseDirectory
Directory: Gadget
Template: Réorganiser onglet pannel gadget
Comment: Cette procedure permet de réorganiser les onglet d'un pannel gadget quand il sons trop nombreux sur une ligne\n\nLe programme les réorganise alors automatiquement\nen plusieur ligne
Code: Procedure SetPanelGadgetToMultiRows(GadgetID)\n \n OldStyle = GetWindowLongPtr_(GadgetID(GadgetID), #GWL_STYLE)\n NewStyle = OldStyle | #TCS_MULTILINE | #TCS_RIGHTJUSTIFY\n SetWindowLongPtr_(GadgetID(GadgetID), #GWL_STYLE, NewStyle)\n SetGadgetState(GadgetID, 0)\n \nEndProcedure
Template: Selectionner tous sring gadget
Comment: Ceci permet de selectionner tous dans un string gadget
Code: Procedure SelectAll(gadget) \n SendMessage_(GadgetID(gadget),#EM_SETSEL,0,99999) \n SetActiveGadget(gadget) \nEndProcedure
CloseDirectory
Directory: Boitte dialogue
Expanded
Template: Message requester avec bouton tool
Comment: Permet d'afficher une boitte requester avec la petite croix rouge
Code: Procedure thread(*titleWindow)\n titleWindow.s = PeekS(*titleWindow)\n string.s = Space(1024)\n ok = 0\n \n Repeat\n ;on liste les fenetre ouvertes\n hwnd = FindWindow_(0,0)\n While hwnd <> 0\n ;on ne considère pas les fenetres invisibles ou de type 'outil'\n If GetWindowLong_(hWnd, #GWL_STYLE) & #WS_VISIBLE = #WS_VISIBLE And GetWindowLong_(hWnd, #GWL_EXSTYLE) & #WS_EX_TOOLWINDOW <> #WS_EX_TOOLWINDOW\n GetWindowText_(hwnd, @string, 1024)\n \n If Trim(string) = titleWindow ;on a trouvé le fenetre cherchée\n ;on change ses attributs\n SetWindowLong_(hwnd, #GWL_EXSTYLE, GetWindowLong_(hwnd, #GWL_EXSTYLE)|#WS_EX_TOOLWINDOW)\n ok = 1\n \n EndIf\n EndIf\n \n hwnd = GetWindow_(hwnd, #GW_HWNDNEXT) ;fenetre suivante\n Wend\n Delay(1)\n Until ok\nEndProcedure\n \n\nname.s = "test"\nCreateThread(@thread(), @name)\nMessageRequester(name, "petit test")\n\n
Template: Message requester avec icon
Comment: Permet d'afficher une icon dans le message requester
Code: ; German forum:\n; Author: Unknown\n; Date: 09. February 2003\n; OS: Windows\n; Demo: No\n\nProcedure MsgBoxEx(Message.s,Caption.s,Iconfile.s,Index.l)\n #MB_USERICON = $080\n Protected hDll.l\n hDll = OpenLibrary(0,Iconfile)\n mbox.MSGBOXPARAMS\n mBox\\cbSize = SizeOf(MSGBOXPARAMS)\n mbox\\hwndOwner = 0\n mbox\\hInstance = hDll\n mbox\\lpszText = @Message\n mbox\\lpszCaption = @Caption\n mbox\\dwStyle = #MB_OK|#MB_USERICON\n mbox\\lpszIcon = Index\n mbox\\dwContextHelpId = 0\n mbox\\lpfnMsgBoxCallback = 0\n mbox\\dwLanguageId = 0\n Result = MessageBoxIndirect_(mbox)\n CloseLibrary(0)\n ProcedureReturn Result\nEndProcedure\n\n\nMsgBoxEx("Testmeldung","Caption","Shell32",5)
CloseDirectory
CloseDirectory
Directory: Détéction
Directory: Souris sur gadget
Template: Si souris sur un gadget
Comment: Si la souris est sur un gadget\nMarge est la marge de détéction sur le gadget\n\nExemple:\n\n10 = la souris est 10 pixel avent le gadget\n- 10 = la souris est 10 pixel sur le gadget
Code: \nProcedure IsMouseOverGadget(Gadget, Marge) \n If IsGadget(Gadget)\n GetWindowRect_(GadgetID(Gadget),GadgetRect.RECT) \n GetCursorPos_(mouse.POINT) \n If mouse\\x>=GadgetRect\\Left - Marge And mouse\\x<=GadgetRect\\right + Marge And mouse\\y>=GadgetRect\\Top - Marge And mouse\\y<=GadgetRect\\bottom + Marge\n ProcedureReturn #True \n Else \n ProcedureReturn #False \n EndIf \n EndIf\nEndProcedure \n
CloseDirectory
CloseDirectory
Directory: Exemple diverses
Expanded
Directory: Autorezize de gadget
Template: Autoresize string gadget
Comment: Autoresize d'un string gadget suivent sont comptenue
Code: \n\n; crée par Mr dieppedalle david le mercredi 30 juin 2010\n\n; ce programme permet de redimensionner en temps réel les string gadget suivent leur contenu\n\nEnumeration\n#Window_0\n#String_0\n#String_1\n#String_2\n#String_3\n#String_4\n#String_5\n#String_6\n#String_7\n#String_8\n#String_9\n#Fond\n#fond_neutre\n#Fond2\n#Fond3\n#Fond4\n#Fond5\n#Fond6\n#Fond7\n#Fond8\n#Fond9\n#Fond10\nEndEnumeration\n\nProcedure Open_Window_0()\n If OpenWindow(#Window_0, 382, 195, 800, 600, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )\n SmartWindowRefresh(#Window_0, 1)\n \n StringGadget(#String_0, 10, 10, 145, 20, "")\n SetGadgetFont(#String_0, LoadFont(#Fond, "arial", 10))\n ResizeGadget(#String_0, #PB_Ignore, #PB_Ignore, 18, #PB_Ignore)\n \n StringGadget(#String_1, 10, 10, 145, 20, "")\n SetGadgetFont(#String_1, LoadFont(#Fond2, "arial", 10))\n ResizeGadget(#String_1, GadgetX(#String_0) + GadgetWidth(#String_0) , #PB_Ignore, 18, #PB_Ignore)\n \n StringGadget(#String_2, 10, 10, 145, 20, "")\n SetGadgetFont(#String_2, LoadFont(#Fond3, "arial", 10))\n ResizeGadget(#String_2, GadgetX(#String_1) + GadgetWidth(#String_1) , #PB_Ignore, 18, #PB_Ignore)\n \n StringGadget(#String_3, 10, 10, 145, 20, "")\n SetGadgetFont(#String_3, LoadFont(#Fond4, "arial", 10))\n ResizeGadget(#String_3, GadgetX(#String_2) + GadgetWidth(#String_2) , #PB_Ignore, 18, #PB_Ignore)\n \n StringGadget(#String_4, 10, 10, 145, 20, "")\n SetGadgetFont(#String_4, LoadFont(#Fond5, "arial", 10))\n ResizeGadget(#String_4, GadgetX(#String_3) + GadgetWidth(#String_3) , #PB_Ignore, 18, #PB_Ignore)\n \n StringGadget(#String_5, 10, 10, 145, 20, "")\n SetGadgetFont(#String_5, LoadFont(#Fond6, "arial", 10))\n ResizeGadget(#String_5, GadgetX(#String_4) + GadgetWidth(#String_4) , #PB_Ignore, 18, #PB_Ignore)\n \n StringGadget(#String_6, 10, 10, 145, 20, "")\n SetGadgetFont(#String_6, LoadFont(#Fond7, "arial", 10))\n ResizeGadget(#String_6, GadgetX(#String_5) + GadgetWidth(#String_5) , #PB_Ignore, 18, #PB_Ignore)\n \n StringGadget(#String_7, 10, 10, 145, 20, "")\n SetGadgetFont(#String_7, LoadFont(#Fond8, "arial", 10))\n ResizeGadget(#String_7, GadgetX(#String_6) + GadgetWidth(#String_6) , #PB_Ignore, 18, #PB_Ignore)\n \n StringGadget(#String_8, 10, 10, 145, 20, "")\n SetGadgetFont(#String_8, LoadFont(#Fond9, "arial", 10))\n ResizeGadget(#String_8, GadgetX(#String_7) + GadgetWidth(#String_7) , #PB_Ignore, 18, #PB_Ignore)\n \n StringGadget(#String_9, 10, 10, 145, 20, "")\n SetGadgetFont(#String_9, LoadFont(#Fond10, "arial", 10))\n ResizeGadget(#String_9, GadgetX(#String_8) + GadgetWidth(#String_8) , #PB_Ignore, 18, #PB_Ignore)\n \n EndIf\n \n Repeat ; Start of the event loop\n \n Event = WaitWindowEvent() ; This line waits until an event is received from Windows\n WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures\n GadgetID = EventGadget() ; Is it a gadget event?\n EventType = EventType() ; The event type\n EvenMenue = EventMenu() \n \n If Event = #PB_Event_Gadget\n \n If GadgetID = #String_0\n If EventType = #PB_EventType_Change\n texte$ = GetGadgetText(#String_0)\n fond = LoadFont(#fond_neutre, "arial", 10)\n StartDrawing(WindowOutput(#Window_0))\n DrawingFont(fond)\n Longueur_texte = TextWidth(texte$)\n StopDrawing()\n ResizeGadget(#String_0, #PB_Ignore, #PB_Ignore, Longueur_texte + 18, #PB_Ignore)\n ResizeGadget(#String_1, GadgetX(#String_0) + GadgetWidth(#String_0), #PB_Ignore, Longueur_texte2 + 18, #PB_Ignore)\n ResizeGadget(#String_2, GadgetX(#String_1) + GadgetWidth(#String_1), #PB_Ignore, Longueur_texte3 + 18, #PB_Ignore)\n ResizeGadget(#String_3, GadgetX(#String_2) + GadgetWidth(#String_2), #PB_Ignore, Longueur_texte4 + 18, #PB_Ignore)\n ResizeGadget(#String_4, GadgetX(#String_3) + GadgetWidth(#String_3), #PB_Ignore, Longueur_texte5 + 18, #PB_Ignore)\n ResizeGadget(#String_5, GadgetX(#String_4) + GadgetWidth(#String_4), #PB_Ignore, Longueur_texte6 + 18, #PB_Ignore)\n ResizeGadget(#String_6, GadgetX(#String_5) + GadgetWidth(#String_5), #PB_Ignore, Longueur_texte7 + 18, #PB_Ignore)\n ResizeGadget(#String_7, GadgetX(#String_6) + GadgetWidth(#String_6), #PB_Ignore, Longueur_texte8 + 18, #PB_Ignore)\n ResizeGadget(#String_8, GadgetX(#String_7) + GadgetWidth(#String_7), #PB_Ignore, Longueur_texte9 + 18, #PB_Ignore)\n ResizeGadget(#String_9, GadgetX(#String_8) + GadgetWidth(#String_8), #PB_Ignore, Longueur_texte10 + 18, #PB_Ignore)\n ; ceci sert pour ré-afficher correctement les gadget, sinon certain sons parfois pas bien afficher\n SetActiveGadget(#String_1)\n SetActiveGadget(#String_2)\n SetActiveGadget(#String_3)\n SetActiveGadget(#String_4)\n SetActiveGadget(#String_5)\n SetActiveGadget(#String_6)\n SetActiveGadget(#String_7)\n SetActiveGadget(#String_8)\n SetActiveGadget(#String_9)\n SetActiveGadget(#String_0)\n EndIf\n \n ElseIf GadgetID = #String_1\n If EventType = #PB_EventType_Change\n texte2$ = GetGadgetText(#String_1)\n fond2 = LoadFont(#fond_neutre, "arial", 10)\n StartDrawing(WindowOutput(#Window_0))\n DrawingFont(fond2)\n Longueur_texte2 = TextWidth(texte2$)\n StopDrawing()\n ResizeGadget(#String_1, GadgetX(#String_0) + GadgetWidth(#String_0), #PB_Ignore, Longueur_texte2 + 18, #PB_Ignore)\n ResizeGadget(#String_2, GadgetX(#String_1) + GadgetWidth(#String_1), #PB_Ignore, Longueur_texte3 + 18, #PB_Ignore)\n ResizeGadget(#String_3, GadgetX(#String_2) + GadgetWidth(#String_2), #PB_Ignore, Longueur_texte4 + 18, #PB_Ignore)\n ResizeGadget(#String_4, GadgetX(#String_3) + GadgetWidth(#String_3), #PB_Ignore, Longueur_texte5 + 18, #PB_Ignore)\n ResizeGadget(#String_5, GadgetX(#String_4) + GadgetWidth(#String_4), #PB_Ignore, Longueur_texte6 + 18, #PB_Ignore)\n ResizeGadget(#String_6, GadgetX(#String_5) + GadgetWidth(#String_5), #PB_Ignore, Longueur_texte7 + 18, #PB_Ignore)\n ResizeGadget(#String_7, GadgetX(#String_6) + GadgetWidth(#String_6), #PB_Ignore, Longueur_texte8 + 18, #PB_Ignore)\n ResizeGadget(#String_8, GadgetX(#String_7) + GadgetWidth(#String_7), #PB_Ignore, Longueur_texte9 + 18, #PB_Ignore)\n ResizeGadget(#String_9, GadgetX(#String_8) + GadgetWidth(#String_8), #PB_Ignore, Longueur_texte10 + 18, #PB_Ignore)\n ; ceci sert pour ré-afficher correctement les gadget, sinon certain sons parfois pas bien afficher\n SetActiveGadget(#String_0)\n SetActiveGadget(#String_2)\n SetActiveGadget(#String_3)\n SetActiveGadget(#String_4)\n SetActiveGadget(#String_5)\n SetActiveGadget(#String_6)\n SetActiveGadget(#String_7)\n SetActiveGadget(#String_8)\n SetActiveGadget(#String_9)\n SetActiveGadget(#String_1)\n EndIf\n \n ElseIf GadgetID = #String_2\n If EventType = #PB_EventType_Change\n texte3$ = GetGadgetText(#String_2)\n fond3 = LoadFont(#fond_neutre, "arial", 10)\n StartDrawing(WindowOutput(#Window_0))\n DrawingFont(fond3)\n Longueur_texte3 = TextWidth(texte3$)\n StopDrawing()\n ResizeGadget(#String_2, GadgetX(#String_1) + GadgetWidth(#String_1), #PB_Ignore, Longueur_texte3 + 18, #PB_Ignore)\n ResizeGadget(#String_3, GadgetX(#String_2) + GadgetWidth(#String_2), #PB_Ignore, Longueur_texte4 + 18, #PB_Ignore)\n ResizeGadget(#String_4, GadgetX(#String_3) + GadgetWidth(#String_3), #PB_Ignore, Longueur_texte5 + 18, #PB_Ignore)\n ResizeGadget(#String_5, GadgetX(#String_4) + GadgetWidth(#String_4), #PB_Ignore, Longueur_texte6 + 18, #PB_Ignore)\n ResizeGadget(#String_6, GadgetX(#String_5) + GadgetWidth(#String_5), #PB_Ignore, Longueur_texte7 + 18, #PB_Ignore)\n ResizeGadget(#String_7, GadgetX(#String_6) + GadgetWidth(#String_6), #PB_Ignore, Longueur_texte8 + 18, #PB_Ignore)\n ResizeGadget(#String_8, GadgetX(#String_7) + GadgetWidth(#String_7), #PB_Ignore, Longueur_texte9 + 18, #PB_Ignore)\n ResizeGadget(#String_9, GadgetX(#String_8) + GadgetWidth(#String_8), #PB_Ignore, Longueur_texte10 + 18, #PB_Ignore)\n ; ceci sert pour ré-afficher correctement les gadget, sinon certain sons parfois pas bien afficher\n SetActiveGadget(#String_0)\n SetActiveGadget(#String_1)\n SetActiveGadget(#String_3)\n SetActiveGadget(#String_4)\n SetActiveGadget(#String_5)\n SetActiveGadget(#String_6)\n SetActiveGadget(#String_7)\n SetActiveGadget(#String_8)\n SetActiveGadget(#String_9)\n SetActiveGadget(#String_2)\n EndIf\n \n ElseIf GadgetID = #String_3\n If EventType = #PB_EventType_Change\n texte4$ = GetGadgetText(#String_3)\n fond4 = LoadFont(#fond_neutre, "arial", 10)\n StartDrawing(WindowOutput(#Window_0))\n DrawingFont(fond4)\n Longueur_texte4 = TextWidth(texte4$)\n StopDrawing()\n ResizeGadget(#String_3, GadgetX(#String_2) + GadgetWidth(#String_2), #PB_Ignore, Longueur_texte4 + 18, #PB_Ignore)\n ResizeGadget(#String_4, GadgetX(#String_3) + GadgetWidth(#String_3), #PB_Ignore, Longueur_texte5 + 18, #PB_Ignore)\n ResizeGadget(#String_5, GadgetX(#String_4) + GadgetWidth(#String_4), #PB_Ignore, Longueur_texte6 + 18, #PB_Ignore)\n ResizeGadget(#String_6, GadgetX(#String_5) + GadgetWidth(#String_5), #PB_Ignore, Longueur_texte7 + 18, #PB_Ignore)\n ResizeGadget(#String_7, GadgetX(#String_6) + GadgetWidth(#String_6), #PB_Ignore, Longueur_texte8 + 18, #PB_Ignore)\n ResizeGadget(#String_8, GadgetX(#String_7) + GadgetWidth(#String_7), #PB_Ignore, Longueur_texte9 + 18, #PB_Ignore)\n ResizeGadget(#String_9, GadgetX(#String_8) + GadgetWidth(#String_8), #PB_Ignore, Longueur_texte10 + 18, #PB_Ignore)\n ; ceci sert pour ré-afficher correctement les gadget, sinon certain sons parfois pas bien afficher\n SetActiveGadget(#String_0)\n SetActiveGadget(#String_1)\n SetActiveGadget(#String_2)\n SetActiveGadget(#String_4)\n SetActiveGadget(#String_5)\n SetActiveGadget(#String_6)\n SetActiveGadget(#String_7)\n SetActiveGadget(#String_8)\n SetActiveGadget(#String_9)\n SetActiveGadget(#String_3)\n EndIf\n \n ElseIf GadgetID = #String_4\n If EventType = #PB_EventType_Change\n texte5$ = GetGadgetText(#String_4)\n fond5 = LoadFont(#fond_neutre, "arial", 10)\n StartDrawing(WindowOutput(#Window_0))\n DrawingFont(fond5)\n Longueur_texte5 = TextWidth(texte5$)\n StopDrawing()\n ResizeGadget(#String_4, GadgetX(#String_3) + GadgetWidth(#String_3), #PB_Ignore, Longueur_texte5 + 18, #PB_Ignore)\n ResizeGadget(#String_5, GadgetX(#String_4) + GadgetWidth(#String_4), #PB_Ignore, Longueur_texte6 + 18, #PB_Ignore)\n ResizeGadget(#String_6, GadgetX(#String_5) + GadgetWidth(#String_5), #PB_Ignore, Longueur_texte7 + 18, #PB_Ignore)\n ResizeGadget(#String_7, GadgetX(#String_6) + GadgetWidth(#String_6), #PB_Ignore, Longueur_texte8 + 18, #PB_Ignore)\n ResizeGadget(#String_8, GadgetX(#String_7) + GadgetWidth(#String_7), #PB_Ignore, Longueur_texte9 + 18, #PB_Ignore)\n ResizeGadget(#String_9, GadgetX(#String_8) + GadgetWidth(#String_8), #PB_Ignore, Longueur_texte10 + 18, #PB_Ignore)\n ; ceci sert pour ré-afficher correctement les gadget, sinon certain sons parfois pas bien afficher\n SetActiveGadget(#String_0)\n SetActiveGadget(#String_1)\n SetActiveGadget(#String_2)\n SetActiveGadget(#String_3)\n SetActiveGadget(#String_5)\n SetActiveGadget(#String_6)\n SetActiveGadget(#String_7)\n SetActiveGadget(#String_8)\n SetActiveGadget(#String_9)\n SetActiveGadget(#String_4)\n EndIf\n \n ElseIf GadgetID = #String_5\n If EventType = #PB_EventType_Change\n texte6$ = GetGadgetText(#String_5)\n fond6 = LoadFont(#fond_neutre, "arial", 10)\n StartDrawing(WindowOutput(#Window_0))\n DrawingFont(fond6)\n Longueur_texte6 = TextWidth(texte6$)\n StopDrawing()\n ResizeGadget(#String_5, GadgetX(#String_4) + GadgetWidth(#String_4), #PB_Ignore, Longueur_texte6 + 18, #PB_Ignore)\n ResizeGadget(#String_6, GadgetX(#String_5) + GadgetWidth(#String_5), #PB_Ignore, Longueur_texte7 + 18, #PB_Ignore)\n ResizeGadget(#String_7, GadgetX(#String_6) + GadgetWidth(#String_6), #PB_Ignore, Longueur_texte8 + 18, #PB_Ignore)\n ResizeGadget(#String_8, GadgetX(#String_7) + GadgetWidth(#String_7), #PB_Ignore, Longueur_texte9 + 18, #PB_Ignore)\n ResizeGadget(#String_9, GadgetX(#String_8) + GadgetWidth(#String_8), #PB_Ignore, Longueur_texte10 + 18, #PB_Ignore)\n ; ceci sert pour ré-afficher correctement les gadget, sinon certain sons parfois pas bien afficher\n SetActiveGadget(#String_0)\n SetActiveGadget(#String_1)\n SetActiveGadget(#String_2)\n SetActiveGadget(#String_3)\n SetActiveGadget(#String_4)\n SetActiveGadget(#String_6)\n SetActiveGadget(#String_7)\n SetActiveGadget(#String_8)\n SetActiveGadget(#String_9)\n SetActiveGadget(#String_5)\n EndIf\n \n ElseIf GadgetID = #String_6\n If EventType = #PB_EventType_Change\n texte7$ = GetGadgetText(#String_6)\n fond7 = LoadFont(#fond_neutre, "arial", 10)\n StartDrawing(WindowOutput(#Window_0))\n DrawingFont(fond7)\n Longueur_texte7 = TextWidth(texte7$)\n StopDrawing()\n ResizeGadget(#String_6, GadgetX(#String_5) + GadgetWidth(#String_5), #PB_Ignore, Longueur_texte7 + 18, #PB_Ignore)\n ResizeGadget(#String_7, GadgetX(#String_6) + GadgetWidth(#String_6), #PB_Ignore, Longueur_texte8 + 18, #PB_Ignore)\n ResizeGadget(#String_8, GadgetX(#String_7) + GadgetWidth(#String_7), #PB_Ignore, Longueur_texte9 + 18, #PB_Ignore)\n ResizeGadget(#String_9, GadgetX(#String_8) + GadgetWidth(#String_8), #PB_Ignore, Longueur_texte10 + 18, #PB_Ignore)\n ; ceci sert pour ré-afficher correctement les gadget, sinon certain sons parfois pas bien afficher\n SetActiveGadget(#String_0)\n SetActiveGadget(#String_1)\n SetActiveGadget(#String_2)\n SetActiveGadget(#String_3)\n SetActiveGadget(#String_4)\n SetActiveGadget(#String_5)\n SetActiveGadget(#String_7)\n SetActiveGadget(#String_8)\n SetActiveGadget(#String_9)\n SetActiveGadget(#String_6)\n EndIf\n \n ElseIf GadgetID = #String_7\n If EventType = #PB_EventType_Change\n texte8$ = GetGadgetText(#String_7)\n fond8 = LoadFont(#fond_neutre, "arial", 10)\n StartDrawing(WindowOutput(#Window_0))\n DrawingFont(fond8)\n Longueur_texte8 = TextWidth(texte8$)\n StopDrawing()\n ResizeGadget(#String_7, GadgetX(#String_6) + GadgetWidth(#String_6), #PB_Ignore, Longueur_texte8 + 18, #PB_Ignore)\n ResizeGadget(#String_8, GadgetX(#String_7) + GadgetWidth(#String_7), #PB_Ignore, Longueur_texte9 + 18, #PB_Ignore)\n ResizeGadget(#String_9, GadgetX(#String_8) + GadgetWidth(#String_8), #PB_Ignore, Longueur_texte10 + 18, #PB_Ignore)\n ; ceci sert pour ré-afficher correctement les gadget, sinon certain sons parfois pas bien afficher\n SetActiveGadget(#String_0)\n SetActiveGadget(#String_1)\n SetActiveGadget(#String_2)\n SetActiveGadget(#String_3)\n SetActiveGadget(#String_4)\n SetActiveGadget(#String_5)\n SetActiveGadget(#String_6)\n SetActiveGadget(#String_8)\n SetActiveGadget(#String_9)\n SetActiveGadget(#String_7)\n EndIf\n \n ElseIf GadgetID = #String_8\n If EventType = #PB_EventType_Change\n texte9$ = GetGadgetText(#String_8)\n fond9 = LoadFont(#fond_neutre, "arial", 10)\n StartDrawing(WindowOutput(#Window_0))\n DrawingFont(fond9)\n Longueur_texte9 = TextWidth(texte9$)\n StopDrawing()\n ResizeGadget(#String_8, GadgetX(#String_7) + GadgetWidth(#String_7), #PB_Ignore, Longueur_texte9 + 18, #PB_Ignore)\n ResizeGadget(#String_9, GadgetX(#String_8) + GadgetWidth(#String_8), #PB_Ignore, Longueur_texte10 + 18, #PB_Ignore)\n ; ceci sert pour ré-afficher correctement les gadget, sinon certain sons parfois pas bien afficher\n SetActiveGadget(#String_0)\n SetActiveGadget(#String_1)\n SetActiveGadget(#String_2)\n SetActiveGadget(#String_3)\n SetActiveGadget(#String_4)\n SetActiveGadget(#String_5)\n SetActiveGadget(#String_6)\n SetActiveGadget(#String_7)\n SetActiveGadget(#String_9)\n SetActiveGadget(#String_8)\n EndIf\n \n ElseIf GadgetID = #String_9\n If EventType = #PB_EventType_Change\n texte10$ = GetGadgetText(#String_9)\n fond10 = LoadFont(#fond_neutre, "arial", 10)\n StartDrawing(WindowOutput(#Window_0))\n DrawingFont(fond10)\n Longueur_texte10 = TextWidth(texte10$)\n StopDrawing()\n ResizeGadget(#String_9, GadgetX(#String_8) + GadgetWidth(#String_8), #PB_Ignore, Longueur_texte10 + 18, #PB_Ignore)\n ; ceci sert pour ré-afficher correctement les gadget, sinon certain sons parfois pas bien afficher\n SetActiveGadget(#String_0)\n SetActiveGadget(#String_1)\n SetActiveGadget(#String_2)\n SetActiveGadget(#String_3)\n SetActiveGadget(#String_4)\n SetActiveGadget(#String_5)\n SetActiveGadget(#String_6)\n SetActiveGadget(#String_7)\n SetActiveGadget(#String_8)\n SetActiveGadget(#String_9)\n EndIf\n \n EndIf\n \n EndIf\n \nUntil Event = #PB_Event_CloseWindow ; End of the event loop\n\nEndProcedure\n \n Open_Window_0()\n
CloseDirectory
(Humour !!!) 
(toujours Humour !!!) 
