Реферат: Программа Клон

uses Unit2, Unit3, Unit4, Unit5;

{$R *.DFM}

procedure TForm1.formmouseup(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var

i,j:byte;

ai,aj,a2i,a2j:integer;

kol,m,n:integer;

begin

blue:=0;

red:=0;

kol:=0;

i:=x div (image1.height);

j:=y div (image1.height);

//-------------------------------------------------------------------------------

//При нажатии активная синяя фишка (левой клавишей)

if hod=true then

BEGIN

if (a[i,j]=1) then

begin

if button=mbLeft then

begin

image2.Canvas.StretchDraw(b[i,j],image4.picture.bitmap);

Vi:=i;

Vj:=j;

end

else

begin

image2.Canvas.StretchDraw(b[i,j],image1.picture.bitmap);