|
Вопрос # 419/ вопрос открыт / |
|
Здравствуйте! Как можно в AppConsole оформить меню, чтобы оно находилось в центре экрана, и как сделать очистку экрана
 |
Вопрос задал: Федянин Николай Петрович (статус: Посетитель)
Вопрос отправлен: 21 марта 2007, 11:51
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Вот здесь http://delphiworld.narod.ru/base/console_colored_text_out.html есть модуль, который вам поможет. Он очень подобен паскалевскому Crt.
Очистка экрана будет делаться в одну строку ClrScr;
Также там есть функции позиционирования курсора и устаноки цвета шрифта.
Этого предостаточно для вывода чего угодно. Я конечно слабо представляю, как вы хотите видеть меню, но могу предположить, что следующий код вам будет интересен.
procedure DrawMenu;
const m[1..5] of string = ('1 punkt','2 punkt punkt','3 punkt','4 punkt','5 punkt');
var i:integer;
begin
ClrScr;
for i:=1 to 5 do
begin
if i=currentpunkt then
SetAttr($1E)
else
SetAttr($10);
GotoXY(32,12+i);
Write(m;
end;
end;
А в коде, который обрабатывает нажатие кнопок переводить currentpunkt на пункт вверх(ну к примеру стрелка вверх) или вниз (стрелка вниз).
В целом интересная задача
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 21 марта 2007, 14:09
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 21 марта 2007, 14:11; участников в обсуждении: 1.
|
|
Вадим К (статус: Академик), 21 марта 2007, 14:11 [#1]:
строку
Write(m;
нужно читать как
Write(m[і]);
Просто стработало форматирование и поползло курсивом....
Галочка "подтверждения прочтения" - вселенское зло.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
