Page 1 sur 1
Stringgadget et "#PB_String_ReadOnly"
Publié : lun. 09/févr./2004 15:57
par 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
Publié : lun. 09/févr./2004 16:52
par 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
Publié : lun. 09/févr./2004 17:13
par Chris
Salut
Et si les deux gadgets manquent de place...
Tu peux toujours agrandir la fenêtre...
Chris
Publié : lun. 09/févr./2004 21:06
par Invité
merci pour vos reponses,
tjrs qqun pour repondre sur ce Forum...
encore mersi
