EditorGadget ReadOnly

Aranoth · Message par **Aranoth** » dim. 01/août/2004 22:27

Bonsoir,

j'ai un petit problemo (encore ?

)
Cette fois ci avec EditorGadget, j'aimerais faire qu'on ne puisse rien écrire dedans sans SetGadgetText.

J'ai essayé de le remplacer par StringGadget avec Multiline et ReadOnly, mais Chr(10) faisait un carré noir et pas un saut de ligne

Si vous savez comment empecher l'écriture dans un EditorGadget je suis preneur

Merci

Oliv · Message par **Oliv** » dim. 01/août/2004 22:49

http://www.serveurperso.com/~cederavic/ ... bf2d8da384

Aranoth · Message par **Aranoth** » dim. 01/août/2004 23:01

merci beaucoup

mais...avec la lib ToolTip du Soldat Inconnu (pour skinner les boutons) ca plante

je verrais mieux demain, encore merci de ton aide !

Oliv · Message par **Oliv** » dim. 01/août/2004 23:22

de rien, sinon si le fait d'avoir un éditorgadget tout gris ne te dérange pas,fait une recherche sur le musée.

Heis Spiter · Message par **Heis Spiter** » lun. 02/août/2004 7:58

Vite fait avant mon départ

:

Code : Tout sélectionner

SendMessage_(GadgetID(#txtrec), #EM_SETREADONLY, #TRUE, 0)

Pour plus d'infos, voir les sources de Bird Chat : ClientInclude.pb

Aranoth · Message par **Aranoth** » lun. 02/août/2004 12:28

Aah ! le code de Heis fonctionne parfaitement avec la lib ToolTip, merci à vous deux

Flype · Message par **Flype** » mer. 04/août/2004 20:08

sinon ya ca aussi :

Code : Tout sélectionner

OpenWindow(0,0,0,320,240,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"EditorGadget()") 
CreateGadgetList(WindowID()) 
Frame3DGadget(0,10,10,300,190,"En lecture seule") 
EditorGadget(1,20,30,280,160) 
ButtonGadget(2,190,208,120,24,"Fermer",#PB_Button_Default) 
For i=0 To 50 : AddGadgetItem(1,i,"ligne de test "+Str(i)) : Next 

; Méthode (1)
SendMessage_(GadgetID(1),#EM_SETOPTIONS,#ECOOP_OR,#ECO_READONLY) 
SendMessage_(GadgetID(1),#EM_SETOPTIONS,#ECOOP_OR,1)

; Méthode (2)
;SendMessage_(GadgetID(1),#EM_SETREADONLY,#TRUE,0)

Repeat 
  Select WaitWindowEvent() 
    Case #PB_EventCloseWindow : Break
    Case #PB_EventGadget 
      Select EventGadgetID() 
        Case 2 : Break 
      EndSelect
  EndSelect
ForEver