[ GyG@ @ 18.08.2005. 20:36 ] @
Nedavno sam poceo da koristim delphix komponentu i pokusavam da napravim neki objekat(sprite)koji ce se kretati po ekranu i pomerati ruke i noge(covek).sve je to lepo islo dok nisam odlucio da ga programiram tako da kada dodje do ivice promeni smer i nastavi kretanje.sve sam pokusao i nece,pa nece.ako neko ima iskustva sa ovim problemom neka salje.

P.S.imam i jedno offtopic pitanje(izvinite):gde mogu da nadjem kodove za tipke na tastaturi(npr.ESC=27)

Pozdrav!!!
[ Bojan Kopanja @ 18.08.2005. 21:24 ] @
Jbg ja ne radim sa DelphiX-om jer mi je malo ne praktican , vec sa GLScene-om, tako da ti oko prvog dela pitanja ne mogu pomoci, ali ti mogu pomoci oko drugog dela pitanja ...

Potrazi u helpu wirtual keys pa ces dobiti popis svega sto ti treba i koji example...
[ Celebmegil @ 19.08.2005. 01:11 ] @
U krajnjem slucaju mozes da saznas potrebene kodove ovom procedurom

Code:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
 self.Label1.Caption:=inttostr(key);
end;


jedino sto moras da stavis da ti je jos

Code:

form1.KeyPreview:=true;

[ GyG@ @ 19.08.2005. 10:04 ] @
Hvala obojici za odgovor!!a ovo prvo pitanje niko ne zna?
[ Celebmegil @ 20.08.2005. 00:56 ] @
Na koji nacin kontrolises kretanje tog coveka?
Ako mozes stavi deo koda.
[ GyG@ @ 21.08.2005. 10:02 ] @

Code:
procedure Tcikica.DoMove(MoveCount: Integer);

begin

inherited;

 cikica.Y:=cikica.Y-1             ;

end;


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=27 then close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

 cikica := Tcikica.Create(DXSpriteEngine1.Engine);
 cikica.Image := Form1.DXImageList1.Items.Find('cikica');
 cikica.X := 150;
 cikica.Y := 500;
 cikica.Height := cikica.Image.Height;
 cikica.AnimCount := 2; 
 cikica.AnimStart := 2;
 cikica.AnimLooped := True;
 cikica.AnimSpeed := 150/900;

end;
.
.
.
[ Bojan Kopanja @ 21.08.2005. 12:22 ] @
Pa samo proveravaj recimo:

Code:
if cikica.y < 5 then cikica.y:=cikica.y+1


i sada moras da proveravas za sve smerove i da ukljucujes potrebne smerove kretanja...
[ Toyo @ 21.08.2005. 14:09 ] @
Na pocetku FormCreate stavi:

Pravac:=-1;

i deklarisi Pravac, a u DoMove umesto te jedne linije stavi:

Code:

cikica.y:=cikica.y+pravac;
if cikica.y<5 then
  begin
   cikica.y:=5;
   pravac := - pravac;
  end
else if cikica.y>700 then
 begin
  cikica.y:=700;
  pravac := -pravac;
end;

[ GyG@ @ 21.08.2005. 19:15 ] @
Nece!!!napisem ja sve to,i cikica ide do ivice ali se zapuca u nju i nece nazad!