Разработка приложения «Сапер» в интегрированной среде программирования Delphi/Lazarus

        if (Z_M_Na = Z_M) and (Flags = Z_M) then

          begin

          status := 2;  {игра закончена}

          ShowPole(Form1.Canvas, status);

          timer2.Enabled:=false;{останавливаем такймер}

          if Z_S=True then

            begin

            path_:=path_proga +  'sound\cat.wav';

            PlaySound(PChar(path_), 0, SND_FILENAME); {Кэт поздравляет победителя. Звук обеспечивается Uses MMsystem}

            end; {диско кончилось}

          end

           else Kletka(Form1.Canvas, R, C, status);

        end;

end;{end MOUSEUP}

{Генерация случайных стартовых значений для графики}

procedure Gen_Graphy();

begin

Randomize;

TY:=Random(Form1.ClientHeight-40);

TX:=Random(Form1.ClientWidth-40);

jY:=Random(Form1.ClientHeight-40);

jX:=Random(Form1.ClientWidth-40);

kY:=Random(Form1.ClientHeight-40);

kX:=Random(Form1.ClientWidth-40);

w:=0;

w77:=1;

w44:=3;

Form1.Timer3.Enabled:=true;

end;

procedure TForm1.Timer3Timer(Sender: TObject);

Var

  x,y,m,k,f,aa:integer;

begin

Canvas.Brush.Color := ClBtnFace;

Canvas.FillRect(Canvas.ClipRect);

Canvas.Brush.Color:=clBlue;

Canvas.Pen.Color:=clBlue;

Canvas.Ellipse(tx,ty,tx+15,ty+15);

If w44=0 then

begin

ty:=ty+2;

tx:=tx+2;

if ty>Form1.Clientheight-33 then w44:=1;

if tx>Form1.ClientWidth-15 then w44:=3;

end;

If w44=1 then

begin

ty:=ty-2;

tx:=tx+2;

if (tx>Form1.Clientwidth-15) then w44:=2;

if (ty<10) then w44:=0;

end;

If w44=2 then

begin

ty:=ty-2;

tx:=tx-2;

if ty<10 then w44:=3;

if tx<15 then w44:=1;

end;

If w44=3 then

begin

ty:=ty+2;

tx:=tx-2;

if tx<10 then w44:=0;

if (ty> Form1.ClientHeight-33) then w44:=2;

end;

Canvas.Brush.Color:=clREd;

Canvas.Pen.Color:=clRed;

Canvas.Ellipse(jx,jy,jx+15,jy+15);

If w77=0 then

begin

jy:=jy+2;

jx:=jx+2;

if jy>Form1.Clientheight-33 then w77:=1;

if jx>Form1.ClientWidth-15 then w77:=3;

end;

If w77=1 then

begin

jy:=jy-2;

jx:=jx+2;

if (jx>Form1.Clientwidth-15) then w77:=2;

if (jy<10) then w77:=0;

end;

If w77=2 then

begin

jy:=jy-2;

jx:=jx-2;

if jy<10 then w77:=3;

if jx<15 then w77:=1;

end;

If w77=3 then

begin

jy:=jy+2;

jx:=jx-2;

if jx<10 then w77:=0;

if (jy> Form1.ClientHeight-33) then w77:=2;

end;

Canvas.Brush.Color:=clGreen;

Canvas.Pen.Color:=clGreen;

Canvas.Ellipse(kx,ky,kx+15,ky+15);

If w=0 then

begin

ky:=ky+2;

kx:=kx+2;

if ky>Form1.Clientheight-33 then w:=1;

if kx>Form1.ClientWidth-15 then w:=3;

end;

If w=1 then

begin

ky:=ky-2;

kx:=kx+2;

if (kx>Form1.Clientwidth-15) then w:=2;

if (ky<10) then w:=0;

end;

If w=2 then

begin

ky:=ky-2;

kx:=kx-2;

if ky<10 then w:=3;

if kx<15 then w:=1;

end;

If w=3 then

begin

ky:=ky+2;

kx:=kx-2;

if kx<10 then w:=0;

if (ky> Form1.ClientHeight-33) then w:=2;

end;

end;

end.

unit Sapper_About;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls,

  ShellAPI;  {добавляем для обработки ссылок}

type

  TForm2 = class(TForm)

    Image2: TImage;

    Label1: TLabel;

    Image3: TImage;

    Label5: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    procedure Image3Click(Sender: TObject);

    procedure Image2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Image3Click(Sender: TObject);

begin

form2.Close;

end;

procedure TForm2.Image2Click(Sender: TObject);

begin

messagedlg('Автор программы желает Вам приятного времяпрепровождения! ;)',mtinformation,[mbOK],0);

end;

end.

6