Сообщение от odd
Держи работающий вариант. Ничего там сложного нет.
|
Пример работает, а картинки так и не вставились... и при нажатии на джойстик желательно делать задержку иначе строки скачют на не определенное количество пикселей.
begin
if key = GA_RIGHT then
begin
MoveDown(hi-16); Cls; DrawTextWindow; DrawVScroll(0, text_height, GetPosition, hi); Repaint;Delay(250);
end;
if key = GA_DOWN then
begin
MoveDown(16); Cls; DrawTextWindow; DrawVScroll(0, text_height, GetPosition, hi); Repaint;Delay(250);
end;
if key = GA_LEFT then
begin
MoveUp(hi-16); Cls; DrawTextWindow; DrawVScroll(0, text_height, GetPosition, hi); Repaint;Delay(250);
end;
if key = GA_UP then
begin
MoveUp(16); Cls; DrawTextWindow; DrawVScroll(0, text_height, GetPosition, hi); Repaint;Delay(250);
end;
end;