takze robim projekt na informatiku projekt podla ulohy co nam zadala informatica
takze jedna sa o to:
1. dve auticka ktorich farbu si zvolime cez ColorBox sa budu pohybovat o nahodnu dlzku napriec Image - om ktore sa ako prve dotkne kraja bude vytazne
2. vypisat ktore auticko vyhralo do boxu Label
3. resetovat auticka na zaciatok
ja uz mam daco stvorene, az na to ze vzdy mi vypise ze vyhralo auticko 2, a nedokaze menit farbu pomocou colorboxu
prikladam program do kodu
Kód: Vybrať všetko
implementation
{$R *.dfm}
var ax,ay,bx,by:integer;
Procedure auto(x,y:integer); {(C)iwo1222}
begin
form1.image1.canvas.rectangle(x,y,x+70,y+30);
form1.image1.canvas.ellipse(x+10,y+15,x+30,y+40);
form1.image1.canvas.ellipse(x+40,y+15,x+60,y+40);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=(' ');
ax:=20;
ay:=100;
bx:=20;
by:=300;
auto(ax,ay);
auto(bx,by);
timer1.enabled:=true
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Canvas.Pen.color:=clwhite ; {(C)iwo1222}
auto(ax,ay) ;
auto(bx,by);
inc(ax,random(5));
inc(bx,random(5));
image1.Canvas.Pen.color:= <<<<------- tu sa ma doplnit farba z colorbox1
auto( ax,ay) ;
image1.Canvas.Pen.color:= <<<<<-----tu sa ma doplnit farba z colorbox2
auto( bx,by) ;
if ax+70>image1.width then
timer1.enabled:=false;
label1.Caption:=('hrac 1 vyhral');
if bx+70>image1.width then
timer1.enabled:=false;
label1.Caption:=('hrac 2 vyhral')
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
doublebuffered:=true;
end;
end.budem velmi rad ked mi s tim poradite
.exe app prikladam v .rar do prilohy
