- PB 4.02
- JaPBe 3.7.6.647
- Pure Form 1.85 b203
- et la version de taillebite http://freenet-homepage.de/gnozal/TailBite.zip
Le problème est que maintenant, pure form me génère un code qui ne passe pas en 4.xx
Je pense que c'est du code 3.xx
Pouvez vous me le confirmer et savez vous d'ou vient le probleme ??
Voilà un exemple de codé généré par PureForm
Code : Tout sélectionner
;{- Enumerations / DataSections
;{ Windows
Enumeration
#Fenetre
EndEnumeration
;}
;{ Gadgets
Enumeration
#Text_titre
#Text_1
#Affiche
#BT1
#BT2
#BT3
#Text_2
EndEnumeration
;}
;{ Fonts
Enumeration
#Font_Text_titre
EndEnumeration
;}
;}
Procedure OpenWindow_Fenetre()
If OpenWindow(#Fenetre, 450, 200, 338, 306, #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar, "Au Revoir - Anti 'Bonjour' Spyware Tool")
If CreateGadgetList(WindowID(#Fenetre))
TextGadget(#Text_titre, 73, 0, 200, 40, "titre", #PB_Text_Center)
TextGadget(#Text_1, 4, 40, 330, 20, "sous-titre", #PB_Text_Center)
EditorGadget(#Affiche, 6, 60, 325, 120)
SetGadgetText(#Affiche, "Explications :")
ButtonGadget(#BT1, 10, 192, 320, 25, "Etape 1 : Desinstallation de xxx")
ButtonGadget(#BT2, 10, 224, 320, 25, "Etape 2 : Renommage de xxx")
ButtonGadget(#BT3, 11, 255, 320, 25, "Etape 3 : Suppression du repertoire xxx")
TextGadget(#Text_2, 80, 285, 170, 20, "blablabla", #PB_Text_Center)
; Gadget Fonts
SetGadgetFont(#Text_titre, LoadFont(#Font_Text_titre, "Arial", 24, 256))
EndIf
EndIf
EndProcedure
OpenWindow_Fenetre()
;{- Event loop
Repeat
Event = WaitWindowEvent()
Select Event
; ///////////////////
Case #PB_Event_Gadget
EventGadget = EventGadgetID()
EventType = EventType()
If EventGadget = #Text_titre
ElseIf EventGadget = #Text_1
ElseIf EventGadget = #Affiche
ElseIf EventGadget = #BT1
ElseIf EventGadget = #BT2
ElseIf EventGadget = #BT3
ElseIf EventGadget = #Text_2
EndIf
; ////////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindowID()
If EventWindow = #Fenetre
CloseWindow(#Fenetre)
Break
EndIf
EndSelect
ForEver
;
;}
