delphix problem!!!

delphix problem!!! 18.08.2005. u 21:36 · pre 258 meseci #1

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

Re: delphix problem!!! 18.08.2005. u 22:24 · pre 258 meseci #2

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

Potpis

ex Strog

http://www.zeussoftware.rs

Re: delphix problem!!! 19.08.2005. u 02:11 · pre 258 meseci #3

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;

Re: delphix problem!!! 19.08.2005. u 11:04 · pre 258 meseci #4

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

Re: delphix problem!!! 20.08.2005. u 01:56 · pre 258 meseci #5

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

Re: delphix problem!!! 21.08.2005. u 11:02 · pre 258 meseci #6

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

Re: delphix problem!!! 21.08.2005. u 13:22 · pre 258 meseci #7

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

Potpis

ex Strog

http://www.zeussoftware.rs

Re: delphix problem!!! 21.08.2005. u 15:09 · pre 258 meseci #8

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;

Re: delphix problem!!! 21.08.2005. u 20:15 · pre 258 meseci #9

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

Forum kao aplikacija na telefonu

Srodne teme