forum.boolean.name - не могу сделать

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - не могу сделать (http://forum.boolean.name/showthread.php?t=923)

Я недавно начал изучать MP, решил написать первое приложение, смысл- на экране картинка, нажимаешь 4 появляется другая, отпускаешь опять первая, так же и с 6 кой.что не так:

program NewProject;
begin
drawImage(loadImage('/kartinka1.png'), 0, 0);
repaint;

while getKeyClicked = KE_NONE do
begin end;
while getKeyPressed <> KE_KEY4 do
begin
drawImage(loadImage('/kartinka2.png'), 0, 0);
repaint;
while getKeyClicked = KE_NONE do
begin end;
end;
while getKeyPressed <> KE_KEY6 do
begin
drawImage(loadImage('/kartinka3.png'), 0, 0);
repaint;
while getKeyClicked = KE_NONE do
begin end;
end;
end.

Попробуй так:

Код:

program NewProject;

var

 *keyCode: integer; 



begin 



 *repeat 

 * *keyCode := GetKeyPressed;

 * *SetColor(255, 255, 255);

 * *FillRect(0, 0, GetWidth, GetHeight);



 * *if *keyCode = KE_NONE *then drawImage(loadImage('/kartinka1.png'), 0, 0); 

 * *if *keyCode = KE_KEY4 *then drawImage(loadImage('/kartinka2.png'), 0, 0); 

 * *if *keyCode = KE_KEY6 *then drawImage(loadImage('/kartinka3.png'), 0, 0);



 * 

 * *Repaint; 

 *until (keyCode = KE_KEY0) or (KeyToAction(keyCode) = GA_FIRE);

 

end.

спасибо, теперь работает.