SetGadgetText(1, "')

EnableExplicit

#Edit = 1

Define i, v, hEdit, RTFString$
Define Dim pp$(2)

; Может пригодится функция экранирования, если текст надо вставить как есть
Procedure.s EscapeRTF(text$)
	text$ = ReplaceString(text$, "\", "\\", #PB_String_CaseSensitive)
	text$ = ReplaceString(text$, "{", "\{", #PB_String_CaseSensitive)
	text$ = ReplaceString(text$, "}", "\}", #PB_String_CaseSensitive)
	text$ = ReplaceString(text$, #CR$, "\par ", #PB_String_CaseSensitive)
	text$ = ReplaceString(text$, #TAB$, "\tab ", #PB_String_CaseSensitive)
	ProcedureReturn text$
EndProcedure

; здесь пример, как текст с помощью флагов i и b становится курсивом и жирным, определяется вложенностью скобок
pp$(0)="{\i Сменяемый текст, {\b\cf2 жми пробел}, чтобы увидеть следующий текст}"
; здесь пример, как текст только для внутри фигурных скобок выделяется цветом 2, т.е. синим. И экранирование
pp$(1)="цвет {\cf2 определяется} внутри фигурных скобок, но разметку можно экранировать, \{\\cf2 вот\}"
; здесь \cf2 включает цвет шрифта 2 т.е. синий, а потом \cf1, т.е. цвет 1 - красный
pp$(2)="Пример переключения \cf2цвета\cf1, до конца или до следующей смены цвета. {\cf3\b\i Жми пробел}"

OpenWindow(0, 0, 0, 900, 400, "RTF как TextGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SetWindowColor(0, 0)
; шапка RTF, собственно начальные настройки (кодировка, шрифт, размер шрифта, таблица цветов \cfN)
RTFString$ + "{\rtf\ansi\ansicpg1251\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Arial;}}{\colortbl;"
; Таблица цветов, их можно задать сколько угодно и использовать тег \cf1 или \cf22, где 1 и 22 номер цвета в таблице.
; Цвета определяются содержанием красного зелёного и синего от 0 до 255
RTFString$ + "\red255\green150\blue150;" ; красный
RTFString$ + "\red0\green150\blue255;"	 ; синий
RTFString$ + "\red99\green99\blue99;"	 ; серый
; Текст {\*\generator Msftedit 5.41.21.2510;} можно убрать, это определяет версию, в которой создан файл и при открытии файла определяет что в ней поддерживается.
RTFString$ + "}{\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\f0\fs22"
RTFString$ + "\cf1 " ; это сразу с начала текста включает цвет шрифта 1, то есть красный

EditorGadget(#Edit, 10, 210, WindowWidth(0)-20, 50, #PB_Editor_ReadOnly) ; Создаёт гаджет только для чтения
hEdit = GadgetID(#Edit)                    	 ; получить дескриптор
SetWindowTheme_(hEdit, @"", @"")        	 ; отключает рамку
SetWindowLongPtr_(hEdit, #GWL_EXSTYLE, 0)	 ; расширенный стиль = 0
SendMessage_(hEdit, #EM_SHOWSCROLLBAR, #SB_HORZ, #False) ; отключает горизонтальную прокрутку
SendMessage_(hEdit, #EM_SHOWSCROLLBAR, #SB_VERT, #False)	 ; отключает вертикальную прокрутку
SetWindowPos_(hEdit, 0, 0, 0, 0, 0, #SWP_NOMOVE | #SWP_NOSIZE | #SWP_FRAMECHANGED) ; перерисовывает окно не изменяя размеров и позиции
SetGadgetColor(#Edit, #PB_Gadget_FrontColor, #White)             ; задаёт цвет шрифта
SetGadgetColor(#Edit, #PB_Gadget_BackColor, #Black)             ; задаёт цвет фона

v = 2
i = -1
Repeat
	If v > 1 And v <> 32768
    i + 1
    If i > 2
    	i = 0
    EndIf
    SetGadgetText(#Edit, RTFString$ + pp$(i))
;     SetGadgetText(#Edit, RTFString$ + EscapeRTF(pp$(i))) ; экранируем текст, т. е. выводим как есть
	EndIf
	v=GetAsyncKeyState_(32) ; для смены предложения нажимаем ПРОБЕЛ
Until WaitWindowEvent() = #PB_Event_CloseWindow

EnableExplicit
Define i, event

Procedure DrawString(x,y,s$)
	Protected z, tmp
    FreeGadget(#PB_All)
    For z = 1 To Len(s$)
    	tmp=TextGadget(#PB_Any,  x+(z)*8, y, 8, 25, Mid(s$,z,1))
    	SetGadgetColor(tmp, #PB_Gadget_FrontColor, Random($FFFFFF, $000000))
;     	SetGadgetColor(tmp, #PB_Gadget_FrontColor, #White)
    	SetGadgetColor(tmp, #PB_Gadget_BackColor, #Black)
    Next
EndProcedure

OpenWindow(0, 0, 0, 900, 400, "Мельтешение разве не имитация стиля хакера?", #PB_Window_ScreenCentered |#PB_Window_SystemMenu)
SetWindowColor(0, 0)

CreateStatusBar(5, WindowID(0))
AddStatusBarField(200): StatusBarText(5, 0, "ESC - завершить программу")
AddStatusBarField(400): StatusBarText(5, 1, "Space (Пробел) - показать следующую строку")

AddKeyboardShortcut(0, #PB_Shortcut_Space, 15) 
AddKeyboardShortcut(0, #PB_Shortcut_Escape, 10)

Define Dim pp$(2)
pp$(0)="Кто не учится тот потом работает дворником, того обманывают, да и жизнь становится не интересной."
pp$(1)="брклмн опреста и т.д. и т.п. йцукен фывап"
pp$(2)="Тут был текст, но теперь его нет, жми пробел и смотри что будет"

i = 0
DrawString(20,200,pp$(i))
Repeat
	event=WaitWindowEvent()
	Select Event
    Case #PB_Event_CloseWindow
    	Break ; выйти из цикла Repeate
    Case #PB_Event_Menu
    	Select EventMenu()
        Case 10 ;#PB_Shortcut_Escape
        	Break ; выйти из цикла Repeate
        Case 15 ;#PB_Shortcut_Space
        	i + 1
        	If i > 2: i = 0: EndIf
        	DrawString(20,200+i*20,pp$(i))
    	EndSelect
	EndSelect
ForEver

s.s = "Привет мир!!!!"
OpenWindow(0, 0, 0, 200, 50, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SetWindowColor(0, RGB(236, 236, 236))
CanvasGadget(0, 8, 10, 180, 36)
SetGadgetColor(0, #PB_Gadget_BackColor, RGB(236, 236, 236))

LoadFont(0, "Arial", 20)

If StartDrawing(CanvasOutput(0))
  DrawingMode(#PB_2DDrawing_Transparent)
  DrawingFont(FontID(0))
  Pos = 0
  l = Len(s)
  For i = 1 To l
    Pos = DrawText(Pos, 0, Mid(s, i, 1), RGB(Random(255), Random(255), Random(255)))
  Next i
  StopDrawing()
EndIf

Repeat
  Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow