Нуждающийся
Регистрация: 05.08.2011
Сообщений: 85
Написано 16 полезных сообщений (для 16 пользователей)
|
Ответ: Help
Program LiveRPG;
var
key, pos, lang: integer;
mn, pro, nv, pri, sd, op, root, fname : string;
begin
mn :='Меню';
pro :='Пофиль';
nv :='Навыки';
pri :='Привычки';
sd :='Список_дел';
op :='Настройки';
pos :=1;
SetColor(255,255,255);
FillRect(0,0,getWidth,getHeight);
DrawText(mn,(getWidth-getStringWidth(mn))/2,15);
DrawText(pro,30,(getHeight-getStringHeight(pro))/2);
DrawText(nv,20,(getHeight-getStringHeight(nv))/2+25);
DrawText(pri,10,(getHeight-getStringHeight(pri))/2+50);
repaint;
key := keyToAction(getKeyClicked);
if key = GA_UP then if pos>1 then
pos := pos-1;
if key = GA_DOWN then if pos<5 then pos := pos+1;
if pos = 1 then
begin
DrawText(mn,(getWidth-getStringWidth(mn))/2,15);
DrawText(pro,30,(getHeight-getStringHeight(pro))/2);
DrawText(nv,20,(getHeight-getStringHeight(nv))/2+25);
DrawText(pri,10,(getHeight-getStringHeight(pri))/2+50);
repaint;
end;
if pos = 2 then
begin
DrawText(mn,(getWidth-getStringWidth(mn))/2,15);
DrawText(pro,20,(getHeight-getStringHeight(pro))/2-25);
DrawText(nv,30,(getHeight-getStringHeight(nv))/2);
DrawText(pri,20,(getHeight-getStringHeight(pri))/2+25);
DrawText(sd,10,(getHeight-getStringHeight(sd))/2+50);
repaint;
end;
if pos = 3 then
begin
DrawText(mn,(getWidth-getStringWidth(mn))/2,15);
DrawText(pro,10,(getHeight-getStringHeight(pro))/2-50);
DrawText(nv,20,(getHeight-getStringHeight(nv))/2-25);
DrawText(pri,30,(getHeight-getStringHeight(pri))/2);
DrawText(sd,20,(getHeight-getStringHeight(sd))/2+25);
DrawText(op,10,(getHeight-getStringHeight(op))/2+50);
repaint;
end;
if pos = 4 then
begin
DrawText(mn,(getWidth-getStringWidth(mn))/2,15);
DrawText(nv,10,(getHeight-getStringHeight(nv))/2-50);
DrawText(pri,20,(getHeight-getStringHeight(pri))/2-25);
DrawText(sd,30,(getHeight-getStringHeight(sd))/2);
DrawText(op,20,(getHeight-getStringHeight(op))/2+25);
repaint;
end;
if pos = 5 then
begin
DrawText(mn,(getWidth-getStringWidth(mn))/2,15);
DrawText(pri,10,(getHeight-getStringHeight(pri))/2-50);
DrawText(sd,20,(getHeight-getStringHeight(sd))/2-25);
DrawText(op,30,(getHeight-getStringHeight(op))/2);
repaint;
end;
if key = GA_FIRE then
....
Вот исправил ошибки, т.к ты дал кусок кода, работаспособность не гарантирую. Но этот кусочек я исправил, и он компилируется ))
|