Показать сообщение отдельно
Старый 06.01.2009, 00:43   #12
Chehovich-Igor
AnyKey`щик
 
Регистрация: 25.12.2008
Сообщений: 4
Написано одно полезное сообщение
Ответ: Lib_text: вывод текста в окно с переносом и стилями

Сообщение от Rosetau Посмотреть сообщение
привет всем, пожалуйста, объясните как правильно прокручивать текст?

если он по умолчанию это делает, то ни на джойстик ни на 2-8 не реагирует. код беру из примера
Я взял и добавил в пример прокрутку текста.

Вот программа:
Program MultLine;

uses text;

Var key: integer;

Begin

text.init;
text.set_text_par(10, 10, getWidth-10, getHeight-10, 1, 16, 2, 64,'Просто проверка работы этого класса при использовании мобильного паскаля и других фишек. Это просто смешно и прикольно. Просто проверка работы этого класса при использовании мобильного паскаля и других фишек. Это просто смешно и прикольно.');

repeat
setColor(128,255,0);
fillRect(0,0,GetWidth,GetHeight);
setColor(0,128,64);
text.draw_mult_str;
Repaint; Delay(100);
key:=KeyToAction(GetKeyPressed);
if key=GA_UP then text.Mode_Up;
if key=GA_DOWN then text.Mode_Down;
if key=GA_LEFT then text.Page_Up;
if key=GA_RIGHT then text.Page_Down;
until false;

End.

и сам файл.
Вложения
Тип файла: zip MultLine1.zip (12.5 Кб, 842 просмотров)
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Richik (19.05.2009)