Sample code:
Code: Select all
If OpenWindow(0, 0, 0, 150, 100, "", #PB_Window_SystemMenu )
CreateGadgetList(WindowID(0))
varTextGadgetID = EditorGadget(#PB_Any, 3, 3, 140, 90, #PB_Editor_ReadOnly)
AddGadgetItem(varTextGadgetID, -1, "Test-CR" + #CR$ + "Test-LF" + #LF$ + "Test-CRLF" + #CRLF$ + "Test-CRCRLF" + #CR$ + #CRLF$ + "." + "No newline?")
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Code: Select all
Test-CR
Test-LF
Test-CRLF
Test-CRCRLF .No newline?
(I'm using PB4.00)
Thanks,
Geert