Отправлено: 13.05.18 14:16. Заголовок: Подскажите гуевому новичку )

Возникла необходимость в окошках, раньше обходился.
Общие принципы понятны, но всегда хочется чего то странного, примеры пересмотрел внятного не нашел.
Как сделать добавление в едитбокс сообщений из функции.
Надо формировать, что-то типа отчета последовательно выполняемых операций, т.е. каждая следующая строка результат выполнения какого то действия, желательно чтобы можно было красить цветом, подозреваю для этого лучше RICHEDITBOX.
Накидал такой тест:

#include "hmg.ch"
//####################
Function Main
DEFINE WINDOW winMain AT 30, 100 HEIGHT 400 WIDTH 500 TITLE "test" NOSIZE MAIN
@ 10, 10 RICHEDITBOX reb HEIGHT 150 WIDTH 480 VALUE "11111"+chr(13)+chr(10) NOHSCROLL
@ 180, 10 EDITBOX eb HEIGHT 150 WIDTH 480 VALUE "11111"+chr(13)+chr(10) NOHSCROLL
@ 340,180 BUTTON butt CAPTION " test " WIDTH 100 HEIGHT 30 ON CLICK {|| test() }
END WINDOW
CENTER WINDOW winMain
winMain.Activate()
Return .T.
Function test( )
local aa
aa:=winMain.reb.value
aa += time()+": message..."+CRLF
winMain.reb.value := aa
aa:=winMain.eb.value
aa += time()+": message..."+CRLF
winMain.eb.value := aa
Return .T.

подозреваю, что можно сделать более изящно и подходяще под мои цели.

 Отправлено: 14.05.18 08:56. Заголовок: finder пишет: подоз..

finder пишет:

цитата:

подозреваю для этого лучше RICHEDITBOX.

Я бы делал через TSBROWSE по массиву, сложнее в реализации, но более строго.
Добавил строку в массив, скипнул в бровсе.
Ну и крась в любой цвет, как хочется. Плюс структура строки выдерживается легко,
Поиск по логам тоже реализовать легко.