Нужна помощь!

[NetBuilding]

дайте плиз FAQ по lib_keys.

[Trazzy]

У меня только такое:

Lib_keys - Библиотека для определения одновременно нажатых клавиш
get_key_states; - с-но сама функция

[cherepets]

это всем и так известно. а как правильно узнавать потом из каких кодов результат состоит? я делаю так:

сравниваю результат с кодами в порядке убывания.
если результат больше - код в массив пишем, а от результата его отнимаем.
когда результат станет равен 0, то все коды будут у нас в массиве.

[cHeRsAnYa]

В яве это делается примерно так (цитата из доков):

      // Check user input and update positions if necessary
      int keyState = getKeyStates();
      if ((keyState & LEFT_PRESSED) != 0) {
          sprite.move(-1, 0);
      }
      else if ((keyState & RIGHT_PRESSED) != 0) {
          sprite.move(1, 0);
      }

Если в паскале есть битовые операции, то можно и в нём аналогично. Значения констант:

javax.microedition.lcdui.game.GameCanvas
public static final int	DOWN_PRESSED	64
public static final int	FIRE_PRESSED	256
public static final int	GAME_A_PRESSED	512
public static final int	GAME_B_PRESSED	1024
public static final int	GAME_C_PRESSED	2048
public static final int	GAME_D_PRESSED	4096
public static final int	LEFT_PRESSED	4
public static final int	RIGHT_PRESSED	32
public static final int	UP_PRESSED	2

[psih1]

Вот для тебя пример сделал

Program keys;

uses
   keys;
   
const
   UP_PRESSED = 2;
   DOWN_PRESSED = 64;
   LEFT_PRESSED = 4;
   RIGHT_PRESSED = 32;
   FIRE_PRESSED = 256;
   GAME_A_PRESSED = 512;
   GAME_B_PRESSED = 1024;
   GAME_C_PRESSED = 2048;
   GAME_D_PRESSED = 4096;
   
var
   img: image;
   key: integer;
   x,y: integer;

procedure cls;
begin
   setcolor(255,255,255);
   fillrect(0,0,getwidth,getheight);
end;

procedure init;
begin
   img:=loadimage('/icon.png');
   x:=20;
   y:=20;
   keys.init;
   keys.show;
end;

Begin
   init;
   repeat
      key:=keys.get_key_states;
      if keys.get_bit(key, LEFT_PRESSED)<>0 then
         x:=x-5;
      if keys.get_bit(key, RIGHT_PRESSED)<>0 then
         x:=x+5;
      if keys.get_bit(key, UP_PRESSED)<>0 then
         y:=y-5;
      if keys.get_bit(key, DOWN_PRESSED)<>0 then
         y:=y+5;
      cls;
      drawimage(img,x,y);
      keys.refresh;
      delay(50);
   until keys.get_bit(key, FIRE_PRESSED)<>0;
End. 


[NetBuilding]

чето у меня библа какя-то косячная чтоли, ошибки сыплются на примере от psih1
брал здесь: http://forum.boolean.name/showthread.php?t=7438

[psih1]

у меня все робит без проблем

[NetBuilding]

у меня ни одну функцию не признает
psih1 кинь плиз свою lib_keys

[psih1]

Вот либа и пример

[NetBuilding]

psih1 благодарю теперь рубит
только для моего проекта не катит, неприятные глюки от keys.refresh

[psih1]

как реализовать графическую форму при нажатии на которую вводится текс в обычной форме showTextBox и при нажатии ок выводится в канавасе
(drawText)

[cherepets]

алармы в КАНАВАСЕ наступают!
а в чем проблема то? если в переносах, то lib_text в помощь. если в коммандах, то хелп->туториал->работа с формами

[psih1]

мне теорию я сам сделаю хотябы переход между конвасом в форму и наоборот