[es] - delphix problem!!!

GyG@
Srbija

Član broj: 44714
Poruke: 50
*.103.eunet.yu.

Profil

^{18.08.2005. u 20:36 - pre 227 meseci}

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!!!

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: delphix problem!!!

^{18.08.2005. u 21:24 - pre 227 meseci}

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...

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

Celebmegil
Nedic Aleksandar

Član broj: 64720
Poruke: 12
*.blueisp.co.yu.

Profil

Re: delphix problem!!!

^{19.08.2005. u 01:11 - pre 227 meseci}

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;

Odgovor na temu

GyG@
Srbija

Član broj: 44714
Poruke: 50
*.249.EUnet.yu.

Profil

Re: delphix problem!!!

^{19.08.2005. u 10:04 - pre 227 meseci}

Hvala obojici za odgovor!!a ovo prvo pitanje niko ne zna?

Odgovor na temu

Celebmegil
Nedic Aleksandar

Član broj: 64720
Poruke: 12
*.blueisp.co.yu.

Profil

Re: delphix problem!!!

^{20.08.2005. u 00:56 - pre 227 meseci}

Na koji nacin kontrolises kretanje tog coveka?
Ako mozes stavi deo koda.

Odgovor na temu

GyG@
Srbija

Član broj: 44714
Poruke: 50
*.165.eunet.yu.

Profil

Re: delphix problem!!!

^{21.08.2005. u 10:02 - pre 227 meseci}

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;
.
.
.

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
80.93.238.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

Re: delphix problem!!!

^{21.08.2005. u 12:22 - pre 227 meseci}

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...

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

+1 Profil

Re: delphix problem!!!

^{21.08.2005. u 14:09 - pre 227 meseci}

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;

Odgovor na temu

GyG@
Srbija

Član broj: 44714
Poruke: 50
*.84.eunet.yu.

Profil

Re: delphix problem!!!

^{21.08.2005. u 19:15 - pre 227 meseci}

Nece!!!napisem ja sve to,i cikica ide do ivice ali se zapuca u nju i nece nazad!

Odgovor na temu