Petite question pour les pros du forum ...

[jbernard13]

Bonsoir
je voudrais savoir si c'est possible de faire ça :

j'ai l'option sauver de mon menu Fichier qui est grisée , je voudrais la debloquée quand on tape du texte dans l'editeurgadget.
est ce que c'est possible en PB?

Code : Tout sélectionner

 ;***MiniNote 2009 ***
; écris par Jbernard 

;***Les  Constantes ***
; Fenetre 
Enumeration
  #Main
EndEnumeration
; Menu
Enumeration
 #New
 #Save
 
EndEnumeration
; Gadgets
Enumeration
  #Feuille
  
EndEnumeration


;***Les procédures ****
;
;procedure de creation d'un nouvelle feuille 
Procedure Nouvelle_Feuille()
  ClearGadgetItems(#Feuille)
  DisableMenuItem(0,#save,1)
  MessageRequester("Information","Nouvelle feuille",#PB_MessageRequester_Ok)
EndProcedure 

;Procedure de creation de la fenetre, des gadgets
Procedure Editeur()
  If OpenWindow(#Main,0,0,480,300," My Notepad 2009 ",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
    EditorGadget(#Feuille,20,20,440,240)
    If CreateMenu(0,WindowID(#Main)) ; creation du menu
      MenuTitle("Fichier")
      MenuItem(#New,"Nouveau")
      MenuItem(#Save,"Sauver")
     DisableMenuItem(0,#save,1)
    EndIf 
       EndIf
EndProcedure


;*** Boucle du programme  ***
 
Editeur()

Repeat 
  Select WaitWindowEvent () 
        Case #PB_Event_Menu ;
         Select EventMenu()
          Case #New:Nouvelle_Feuille()
          
          EndSelect 
         
    Case #PB_Event_CloseWindow
      Quitter = #True
      
  EndSelect
Until Quitter 
End

[venom]

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- MenuBar Constants
Enumeration
  #MenuBar_0
EndEnumeration

Enumeration
  #MENU_1
  #MENU_2
EndEnumeration

;- Gadget Constants
Enumeration
  #String_0
EndEnumeration

  If OpenWindow(#Window_0, 216, 0, 410, 250, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateMenu(#MenuBar_0, WindowID(#Window_0))
      MenuTitle("fichier")
      MenuItem(#MENU_1, "nouveau")
      MenuItem(#MENU_2, "sauvegarder")
      DisableMenuItem(#MenuBar_0, #MENU_2, 1)
      EndIf
       
        EditorGadget(#String_0, 10, 10, 390, 210)
        
    EndIf

  Repeat
   EventID = WaitWindowEvent()
    
    If EventID = #PB_Event_Menu 
      Select EventMenu()

       Case #MENU_1
        ClearGadgetItems(#String_0)
         DisableMenuItem(0,#MENU_2,1)
          MessageRequester("Information","Nouvelle feuille",#PB_MessageRequester_Ok) 
      
      EndSelect
    EndIf
    
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
       Case #String_0
        resultat = CountGadgetItems(#MenuBar_0)
        If resultat = 0
         DisableMenuItem(#MenuBar_0, #MENU_2, 1)
        ElseIf resultat = 1
         DisableMenuItem(#MenuBar_0, #MENU_2, 0)
        EndIf
        
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow

@++

[jbernard13]

merci venom
tu aime pas les procedures a ce que je vois

[venom]

lol si mais j'ai toujours du mal de reprendre un code qui n'est pas codé comme moi je fait sa parait bête mais c'est comme sa.

dans tout les cas tu regarde la façon que j'ai employer et tu copie / colle pour le tiens .




@++

[jbernard13]

merci venom