|
Вопрос # 826/ вопрос открыт / |
|
Здравствуйте, эксперты! Бывает, что нужно вывести большое количество информации, которое не помещается на экран, и поэтому отображается только то, что в конце вывода. Как сделать так, чтобы можно было прокручивать окно для просмотра?
 |
Вопрос задал: alone (статус: Посетитель)
Вопрос отправлен: 4 августа 2007, 01:33
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, Гадлевский Олег Вячеславович!
А вы случайно не в Memo выводите? тогда наверное вам поможет свойство ScrollBars. Выставляем его в ssBoth (Оба скрола) или ssVertical (только вертикальный).
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 5 августа 2007, 21:50
Оценка за ответ: 1
Комментарий к оценке: Почему на оба моих вопроса ответили так, как будто я задал их в разделе Delphi? Я же специально задавал вопрос в разделе Pascal...
|
Ответ #2. Отвечает эксперт: DNK
Здравствуйте, Гадлевский Олег Вячеславович!
Проблему можно решить как в предыдущем ответе. Turbo Vision + Фаронов
 |
Ответ отправил: DNK (статус: Студент)
Время отправки: 6 августа 2007, 20:29
Оценка за ответ: 5
Комментарий к оценке: А вы сами использовали библиотеку Turbo Vision?
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 6 августа 2007, 23:46; участников в обсуждении: 3.
|
Градов Ю.М. (статус: 8-ой класс), 5 августа 2007, 18:27 [#1]:
Информацию добавляете в массив строк, допустим:
Var List: array[1..1000] of string;
Пишите процедуру вывода, например по 20 строк:
str:=1; ClrScr;
for i:=first to first+20 do
begin
GotoXY(str,1);
Writeln(List[i]);
Inc(str);
end;
В цикле repeat - until читаете нажатую клавишу и если стрелка вверх то if first>20 then first:=first-20, вниз то.., Esc - выход (#27).
|
|
|
DNK (статус: Студент), 6 августа 2007, 23:46 [#3]:
Turbo Vision пробовал только на учебных примерах Фаронова. Серьезных вещей на нем написать не успел, виной тому прогресс (Celeron, Windows98 и Delphi5).
"Digital Networked Knight"
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
А за совет большое спасибо, был бы ответ, поставил бы "5" 