Ромб со второго РК (Документ Microsoft Word)

Посмотреть архив целиком

Form1.Color:=ClWhite;

end;


procedure TForm1.Timer1Timer(Sender: TObject);

var xm, ym: integer;

begin

Form1.Timer1.Interval:=120;

Form1.Canvas.Pen.Color:=ClWhite;

romb;

dviz;

mas;

povorot;

Form1.Canvas.Pen.Color:=ClRed;

romb;

end;


procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Timer1.Enabled:=true;

end;


procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.Timer1.Enabled:=false;

end;


procedure TForm1.Button4Click(Sender: TObject);

begin

close;

end;


end.


Случайные файлы

Файл
181768.rtf
10931-1.rtf
143506.rtf
177142.rtf
9479-1.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.