Сообщение от 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.
и сам файл.