PureBasic

Depuis que j'ai reinstallé mon Disque Dur, j'ai remis :
- 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
;
;}

D'avance merci

C'est bien du code PB 3.92 !

Essaie de voir dans les préférences de PureForm !

Merci, effectivement, j'avais pas coché "générer code compatible PB4"

Merci

PureBasic

[Resolu] PureForm me génère un code éroné (ou ancien..)

[Resolu] PureForm me génère un code éroné (ou ancien..)