Le plus simple ca reste un EditorGadget() avec l'option ReadOnly et tu le rafraichit complètement à chaque nouveau message ajouté.SPH a écrit : Et je sais que j'etais confronté a un autre probleme : afficher les 10 derniers messages du tchat. Pour cela, il fallait aligner vers le bas le string. Est-ce possible ?
Code : Tout sélectionner
;{- Enumerations / DataSections
;{ Windows
Enumeration
#Window_0
#EDITOR : #message : #go
EndEnumeration
If OpenWindow(#Window_0, 450, 300, 280, 150, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
EditorGadget(#EDITOR, 5, 10, 270, 70,#PB_Editor_ReadOnly)
SetGadgetText(#EDITOR,"Le fonctionnement d'un tchat ressemble à ça non ?")
SendMessage_(GadgetID(#EDITOR), #EM_SETTARGETDEVICE, #Null, 0) ; retour auto
StringGadget(#message,5,90,250,20,"Tape ton textre ici puis clic sur le bouton",#PB_String_BorderLess)
ButtonGadget(#go,5,120,50,20,"envoyer")
; Gadget Colors
SetGadgetColor(#EDITOR, #PB_Gadget_BackColor, $0)
SetGadgetColor(#EDITOR, #PB_Gadget_FrontColor, #green)
;{- Event loop
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case #go
Message$=Space(5)+GetGadgetText(#message)
EditorMessage$=Space(5)+GetGadgetText(#EDITOR)
MessageTotal$=Chr(10)+Message$+Chr(10)+EditorMessage$
SetGadgetText(#EDITOR,MessageTotal$)
SetGadgetText(#message,"")
EndSelect
Case #PB_Event_CloseWindow
Select EventWindow()
Case #Window_0
CloseWindow(#Window_0)
Break
EndSelect
EndSelect
ForEver
EndIf