Пинг-понг

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  x, y, dx, dy, r, wp, hp: integer;
  rd, rx1, rx2, ry, rdx: integer;
  cBall, cBack: integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered:=True;
  r:= 5;
  x:= r;
  y:= 50;
  dx:= 1;
  dy:= 1;
  cBall:= RGB(217,217,25);
  cBack:= RGB(33,94,33);
  Form1.Color:= cBack;
  wp:= Form1.ClientWidth;
  hp:= Form1.ClientHeight;
  rd:= 0;
  rx1:= 100;
  rx2:= 125;
  ry:= Form1.ClientHeight - 20;
  rdx:= 20;
  Timer1.Interval:= 10;
  Timer1.Enabled:= True;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.Canvas.Pen.Color:= clRed;
Form1.Canvas.Rectangle(rx1, ry, rx2, ry+1);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Canvas.Pen.Color:= cBack;
Form1.Canvas.Ellipse(x, y, x+r, y+r);
 
if (dx > 0) then begin
if (x + dx + r > wp) then dx:= -dx;
end else
if (x + dx - r < 0) then dx:= -dx;
if (dy > 0) then begin
if ((x >= rx1)and(x<=rx2)and(y=ry-r-1)) then dy:=  -dy
else if (y + dy + r > Form1.ClientHeight) then dy:= -dy;
end else begin
if ((x >= rx1)and(x<=rx2)and(y>=ry - r)and(y<= ry + r)) then begin
Form1.Canvas.Pen.Color:=clRed;
Form1.Canvas.Rectangle(rx1, ry, rx2, ry + 1);
end;
if (y + dy - r < 0) then dy:= -dy;
end;
x:= x + dx;
y:= y + dy;
Form1.Canvas.Pen.Color:= cBall;
Form1.Canvas.Ellipse(x, y, x + r, y + r);
if (rd <> 0) then begin
if (rd = 1) then begin
if (rx2 < wp) then begin
Form1.Canvas.Pen.Color:= cBack;
Form1.Canvas.Rectangle(rx1, ry, rx1 + rdx, ry + 1);
Form1.Canvas.Pen.Color:=clRed;
Form1.Canvas.Rectangle(rx2, ry, rx2 + rdx, ry + 1);
rx1:= rx1 + rdx;
rx2:= rx2 + rdx;
end;
end else if (rx1 > 1) then begin
Form1.Canvas.Pen.Color:=cBack;
Form1.Canvas.Rectangle(rx2, ry, rx2 - rdx, ry + 1);
Form1.Canvas.Pen.Color:= clRed;
Form1.Canvas.Rectangle(rx1 - rdx, ry, rx1 + rdx, ry + 1);
rx1:= rx1 - rdx;
rx2:= rx2 - rdx;
end;
end;
 
 
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (rd <> 0) then Exit;
Case Key of
VK_Left:  rd:= 2;
VK_Right: rd:= 1;
end;
end;
 
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
rd:=0;
end;
 
end.