Автор | Сообщение |
|
| |
Пост N: 22
Зарегистрирован: 06.12.14
|
|
Отправлено: 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. подозреваю, что можно сделать более изящно и подходяще под мои цели.
|
|
|
Ответов - 1
[только новые]
|
|
|
| |
Пост N: 1243
Зарегистрирован: 20.02.11
|
|
Отправлено: 14.05.18 08:56. Заголовок: finder пишет: подоз..
finder пишет: цитата: | подозреваю для этого лучше RICHEDITBOX. |
| Я бы делал через TSBROWSE по массиву, сложнее в реализации, но более строго. Добавил строку в массив, скипнул в бровсе. Ну и крась в любой цвет, как хочется. Плюс структура строки выдерживается легко, Поиск по логам тоже реализовать легко.
|
|
|