Всем ночи доброй. Тут еще один вопрос назрел.
Есть форма, в ней некий объект "окно дос". В него с большой скоростью должна выводиться текстовая информация. Прекрасно работает TMemo.Text := TMemo.Text + 'NewText'; Однако для моей скорости очень много перерисовок и мерцаний. При той же скорости вывода если выводить в окно DOS в полноэкранном режиме (ну, переписать на Pascal'e под DOS) получается, понятное дело, все красивенько и т.п. Может, есть готовые решения для такой задачи? Уж больно неохота в DirectDraw лезть...

А consol appliaction не подойдет?

К сожалению, нет. Это должно выводиться в рамках большого проекта на отдельно взятой форме.

Если дело в мерцаниях, попробуй Memo1.DoubleBuffered := True

1. Можно сделать консольное апп и просто воткнуть его поверх своей формы в нужную позицию и нужного размера.
2. Рисовать на канве и скролить блоками вверх.
3. Если такая огромная скорость, то зачем вообще такое окно? Может хватит просто Tlabel?
4. Можно воткнуть , дать ему цвет белый-на-черном и разрешить wrap текста. Написать отдельную функцию, которая будет изменять содержимое этого лабела в зависимости от кол-ва строк в тексте на экран. Только не забыть убрать автосайз. В данном случае никакого скрола, а как раз имитация DOS окна. Только шрифт поставить консольный или хотя бы курьер. Никакого скрола - дискретная перерисовка.

Ibragim
Хм.....офтоп конечно, но зачем выводить на экран то что все равно никто не успивает читать ?

Ibragim тебя спасет... Windows.SetParent (или SetPatent )

1)Распакуй архив с сохранением дирректорий
2)Скомпилируй прогу в дирректории Console (PrConsole.dpr)
3)Скомпилируй(Project1.dpr) и запусти

PS: Если тебе надо будет досовскую программу запустить вместо PrConsole то... замени PChar(PrConsole) на имя(с полным путем) твоей Dos проги...

Это сообщение отредактировал(а) Girder - 21.10.2004, 14:24

Присоединённый файл ( Кол-во скачиваний: 10 )
 spConsole.zip

спасибо за кучу вариантов... пробуем! Что-то получится - напишу.

2Fox: там выводятся псевдографикой блочки разных оттенков, типа графика, причем представление информации должно быть именно таким (граафик и т.п не подходит).

2Girder: К сожалению, не спасает... Данные для вывода формируются уж очень сложно, зависят от четырех разных потоков - никак в консоль не завернуть.... К тому же они отображаются еще и в другом представлении.


Это сообщение отредактировал(а) Ibragim - 22.10.2004, 18:38

2 pOsOl спасибо, ваш вариант самый простой и удачный. Осталась одна проблема - убирать тот текст что уходит вверх, чтобы была имитация окна как в досе. То есть скрол не нужен, нужно чтобы просто текст уходящий вверх "исчезал".
Ничего не насоветуете?

PS Спасибо всем откликнувшимся!

Как я понял, речь о Memo...

Код

if Memo.Lines.Count =  MaxCount  then   Memo1.Lines.Delete(0); Memo1.Lines.Add('some text');

Вроде так...