Merci. Je viens juste de télécharger la beta 11, et je ne sais pas ce qui s'est passé sur le fichier d'aide fourni avec cette beta mais la page des outils externes est encore plus ancienne que celle que tu avais validée (la traduction en format docmaker que j'avais faite, celle juste avant l'ajout de 'visualisateur').
Finalement, est-ce que LeCyb suit ce fil de discussion en ce qui concerne les changements à apporter & valider à la trad de l'editor.catalog qu'il a posté ?
J'avais commencé gadget.txt mais je me demande si je dois conserver les noms anglais des gadgets ou si je dois les traduire pour mieux expliquer le fonctionnement (mettre "case à cocher cochée" ou "checkbox cochée" en gros). Pour l'instant j'ai commencé comme ça, merci de me dire si je continue de la même manière ou non :
Code : Tout sélectionner
;---------------------------------------------------------------------------------------
@Function AddGadgetColumn(#Gadget, Position, Titre$, Largeur)
If OpenWindow(0, 0, 0, 400, 150, "Liste avec icônes - Ajouter des colonnes", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
ListIconGadget(0, 10, 10, 380, 100, "Colonne Standard", 150, #PB_ListIcon_GridLines)
ButtonGadget(1, 10, 120, 150, 20, "Ajouter une nouvelle colonne")
index = 1 ; La "colonne Standard" a déjà l'index 0
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
If EventGadget() = 1
AddGadgetColumn(0, index, "Colonne "+Str(index), 80)
index + 1
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
;---------------------------------------------------------------------------------------
@Function Resultat = AddGadgetItem(#Gadget, Position, Texte$ [, ImageID])
;---------------------------------------------------------------------------------------
@Function Resultat = ButtonImageGadget(#Gadget, x, y, Largeur, Hauteur, ImageID)
If OpenWindow(0, 0, 0, 160, 100, "Bouton avec image", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
If LoadImage(0, "map.bmp") ; changer le 2ème paramètre en indiquant le chemin/fichier contenant votre image
ButtonImageGadget(0, 10, 10, 100, 83, ImageID(0))
EndIf
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
;---------------------------------------------------------------------------------------
@Function Resultat = ButtonGadget(#Gadget, x, y, Largeur, Hauteur, Texte$ [, Options])
; Montre les différentes options de boutons possibles
;
If OpenWindow(0, 0, 0, 222, 200, "Les options de boutons", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
ButtonGadget(0, 10, 10, 200, 20, "Bouton Standard")
ButtonGadget(1, 10, 40, 200, 20, "Texte aligné à gauche", #PB_Button_Left)
ButtonGadget(2, 10, 70, 200, 20, "Texte aligné à droite", #PB_Button_Right)
ButtonGadget(3, 10,100, 200, 60, "Texte sur plusieurs lignes (les textes longs retournent automatiquement à la ligne)", #PB_Button_MultiLine)
ButtonGadget(4, 10,170, 200, 20, "Bouton à (dés)enclancher", #PB_Button_Toggle)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
;---------------------------------------------------------------------------------------
@Function Resultat = CalendarGadget(#Gadget, x, y, Largeur, Hauteur [, Date [, Options]])
If OpenWindow(0, 0, 0, 220, 200, "Gadget calendrier", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(0))
CalendarGadget(0, 10, 10, 200, 180)
Repeat: Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
EndIf
;---------------------------------------------------------------------------------------
@Function ChangeListIconGadgetDisplay(#Gadget, Mode)
;---------------------------------------------------------------------------------------
@Function Resultat = CheckBoxGadget(#Gadget, x, y, Largeur, Hauteur, Texte$ [, Options])
If OpenWindow(0, 0, 0, 270, 130, "Gadget case à cocher", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
CheckBoxGadget(0, 10, 10, 250, 20, "Case à cocher standard")
CheckBoxGadget(1, 10, 40, 250, 20, "Case à cocher (cochée)") : SetGadgetState(1,1)
CheckBoxGadget(2, 10, 70, 250, 20, "Case à cocher (texte aligné à droite)", #PB_CheckBox_Right)
CheckBoxGadget(3, 10, 100, 250, 20, "Case à cocher (texte centré)", #PB_CheckBox_Center)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf@
;---------------------------------------------------------------------------------------
) est