Pohyb procedury Ellipse – Delphi – Fórum – Programujte.com

Dobrý den,

vykreslila jsem kruhový tvar v proceduře Ellipse. Teď bych měla tento tvar rozpohybovat. Mohl by mi někdo prosím napovědět, co mám zapsat do závorek za Ellipse() při volání procedury, aby se kruhový tvar pohyboval směrem doprava.

implementation
uses ZelvaUnit;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var z: TZelva;

 procedure Ellipse;
 var x,y,i: Integer;
 begin
  x:=280;
  y:=280;
  for i:=15 downto 0 do
  begin
  Image1.Canvas.Pen.Color:=clBlue;
  Image1.Canvas.Ellipse(x-i,y-i,x+i,y+i);
 end;

 var l: Integer;  //volání procedury
  begin
    z:=TZelva.Create; z.Smaz;
     for l:=1 to 80 do
      begin
        Ellipse();
        Cekej(10);
     end;

 end.

procedure Ellipse(x,y: Integer);
var i: Integer;
begin
...

for l:=1 to 80 do
begin
    Ellipse(280+l, 280);
...

#2 zlz
takhle jsem to už zkoušela, ale nehýbe se to.

#1 Dane
Vždyť tam ale nikde nemáš žádnou změnu souřadnic, těch 16 elips je vždy na pozici 280,280.

Bude to chtít ještě měnit pozici...

Skuste pozriet tento priklad.

http://www.uloz.to/…A/winapp-zip

Je tam toho dost popisaneho ale hadam sa v tom aspon trosku bude dat vyznat

To Dane - > Ten tvoj program vyzera byt napisany dost spatne. Preco ten pohyb riesis prave takto ? Ake je presne zadanie ? Skus to niekde upnut na net a trosku to rozpisat ze co chces. Skusime to spravit

#6 Jimi
no s programováním teprve začínám a je to pro mě jako činština. Mým úkolem je vytvořit program, v němž se bude vykreslovat lineární ADT fronta. To znamená nejprve musím vložit pozadí a nakreslit pohybující se obrázek (v mém případě to je Ellipsa). V dalším tlačítku musím vytvořit proceduru Append pro vkládání těch Ellips do fronty a v posledním tlačítku je třeba procedura Serve pro postupné uvolňování Ellips z fronty.