Stringgadget et "#PB_String_ReadOnly"

[Nadrak]

bonjour,

voila j'ai string qui ont la constantes "#PB_String_ReadOnly" car ils sont sur une fiche en consultation, mais pour la modification ou l'ajout de nouvelles entrées j'ai besoin d'annuler "#PB_String_ReadOnly"de ces strings.

Est ce possible ou suis je obligé de passer par la creation de nouveaux stringgadget.

Merci

[Anonyme2]

Salut,

il y a une autre solution que de recréer un gadget. Il faut envoyer le message suivant

SendMessage_(GadgetID(#Gadget), #EM_SETREADONLY, 0, 0)

avec #EM_SETREADONLY = 207

le 3ème paramètre doit valoir 0 pour retirer l'option en lecture seule et doit être différent de 0 pour remettre cette option

Voici un petit bout de code qui montre comment faire

Code : Tout sélectionner

#EM_SETREADONLY = 207

If OpenWindow(0, 0, 0, 400, 560, #PB_Window_ScreenCentered | #PB_Window_SystemMenu, "ReadOnly ?") 
   CreateGadgetList(WindowID())

   ButtonGadget(1000, 10, 380, 350, 50, "")
   StringGadget(1, 10, 10, 200, 40, "Read" , #PB_String_ReadOnly)

   Repeat
      Select WaitWindowEvent()
         Case #PB_EventGadget
            Select EventGadgetID()
               Case 1000
                 SendMessage_(GadgetID(1), #EM_SETREADONLY, 0, 0)

            EndSelect
            
         Case #PB_EventCloseWindow
            Quit + 1
            
      EndSelect
      
   Until Quit

EndIf
End

[Chris]

Salut

Et si les deux gadgets manquent de place... Tu peux toujours agrandir la fenêtre...

Chris

[Invité]

merci pour vos reponses,

tjrs qqun pour repondre sur ce Forum...


encore mersi