Форум » GUI » Подскажите гуевому новичку ) » Ответить
Подскажите гуевому новичку )
finder: Возникла необходимость в окошках, раньше обходился. Общие принципы понятны, но всегда хочется чего то странного, примеры пересмотрел внятного не нашел. Как сделать добавление в едитбокс сообщений из функции. Надо формировать, что-то типа отчета последовательно выполняемых операций, т.е. каждая следующая строка результат выполнения какого то действия, желательно чтобы можно было красить цветом, подозреваю для этого лучше 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
Haz: finder пишет: подозреваю для этого лучше RICHEDITBOX. Я бы делал через TSBROWSE по массиву, сложнее в реализации, но более строго. Добавил строку в массив, скипнул в бровсе. Ну и крась в любой цвет, как хочется. Плюс структура строки выдерживается легко, Поиск по логам тоже реализовать легко.
полная версия страницы