http://www.purebasic.com
https://www.purebasic.fr/english/
Ok . But it's still not working. Unless I am doing something wrong,
Code: Select all
Enumeration Window
#Window_0
EndEnumeration
Enumeration Gadgets
#Edit_1
EndEnumeration
Global AppQuit,t$
t$+"{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1033{\fonttbl{\f0\fnil\fcharset0 Arial Black;}{\f1\fnil\fcharset0 Calibri;}}"
t$+"{\colortbl ;\red155\green0\blue211;\red255\green255\blue0;\red255\green0\blue0;}"
t$+"{\*\generator Riched20 10.0.15063}\viewkind4\uc1"
t$+"\pard\sa200\sl276\slmult1\b\f0\fs24\lang9 Not \cf1\ul Working \cf2\ulnone On\cf1 \cf3 Beta4\b0\f1\fs22\par"
t$+"}"
Declare Open_Window_0(X = 0, Y = 0, Width = 460, Height = 110)
Procedure Open_Window_0(X = 0, Y = 0, Width = 460, Height = 110)
If OpenWindow(#Window_0, X, Y, Width, Height, "RTF Test",#PB_Window_SystemMenu| #PB_Window_ScreenCentered)
EditorGadget(#Edit_1, 10, 10, 440, 90)
EndIf
EndProcedure
Open_Window_0()
SetGadgetText(#Edit_1,t$)
SendMessage_(GadgetID(#Edit_1), #EM_SETTEXTMODE, #TM_RICHTEXT, 0)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
AppQuit = #True
EndSelect
Until AppQuit
Code: Select all
Enumeration Window
#Window_0
EndEnumeration
Enumeration Gadgets
#Edit_1
EndEnumeration
Global AppQuit,t$
t$+"{\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1033{\fonttbl{\f0\fnil\fcharset0 Arial Black;}{\f1\fnil\fcharset0 Calibri;}}"
t$+"{\colortbl ;\red155\green0\blue211;\red255\green255\blue0;\red255\green0\blue0;}"
t$+"{\*\generator Riched20 10.0.15063}\viewkind4\uc1"
t$+"\pard\sa200\sl276\slmult1\b\f0\fs24\lang9 Not \cf1\ul Working \cf2\ulnone On\cf1 \cf3 Beta4\b0\f1\fs22\par"
t$+"}"
Declare Open_Window_0(X = 0, Y = 0, Width = 460, Height = 110)
Procedure Open_Window_0(X = 0, Y = 0, Width = 460, Height = 110)
If OpenWindow(#Window_0, X, Y, Width, Height, "RTF Test",#PB_Window_SystemMenu| #PB_Window_ScreenCentered)
EditorGadget(#Edit_1, 10, 10, 440, 90)
EndIf
EndProcedure
Open_Window_0()
SendMessage_(GadgetID(#Edit_1), #EM_SETTEXTMODE, #TM_RICHTEXT, 0) ; first command
SetGadgetText(#Edit_1,t$) ; second
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
AppQuit = #True
EndSelect
Until AppQuit
Code: Select all
; ...
If OpenWindow(#Window_0, X, Y, Width, Height, "RTF Test",#PB_Window_SystemMenu| #PB_Window_ScreenCentered)
if EditorGadget(#Edit_1, 10, 10, 440, 90)
SendMessage_(GadgetID(#Edit_1), #EM_SETTEXTMODE, #TM_RICHTEXT, 0)
EndIf
EndIf
; ...
Ok. Thank you.