Карточная игра 'Верю не верю' - Delphi - Ответ 11257917

nit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
  private
    { Private declarations }
    Karta, Play1, Play2: array [0..36] of String;
    Path: String;
    Img: array[0..36] of TImage;
    function FindFile(Name: String): TStrings;
     procedure ADragOver(Sender, Source: TObject; X, Y: Integer;
                       State: TDragState; var Accept: Boolean);
    procedure ADragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure AMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure MouseDown(Sender: TObject; Button: TMouseButton;
              Shift: TShiftState; X, Y: Integer);
 
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TForm1.FindFile(Name: String): TStrings;
var
  SearchRec:TSearchRec;
begin
  Result := TStringList.Create;
  if FindFirst(Name, faAnyFile, SearchRec) = 0 then
    repeat
      if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') and
         (Length(SearchRec.Name) > 5) then
        Result.Add(SearchRec.name)
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  S: TStrings;
  i: Integer;
  j: integer;
a: String;
n: integer;
begin
  GetDir(0, Path);
  if Path[Length(Path)] <> '\' then
    Path := Path + '\';
  S := TStringList.Create;
  S.AddStrings(FindFile(Path + 'img\*.bmp'));
  Karta[0] := Path + 'img\0.bmp';
  if S.Count = 36 then
    for i := 0 to 35 do
      Karta[i + 1] := Path + 'img\' + S[i];
Randomize;
for i := High(Karta)-1 downto 1 do
 begin
 j := Random(i)+1;
 a := Karta[j];
 Karta[j] := Karta[i];
 Karta[i] := a;
end;
for i:=1 to 36 do
  if i mod 2 = 0 then
    Play1[i div 2+1] := Karta[i]
  else
    Play2[i div 2+1] := Karta[i];
//
  for i := 1 to 36 do
  begin
    Img[i] := TImage.Create(Self);
    Img[i].Parent := Form1;
    Img[i].Width := 150;
    Img[i].Height := 200;
    Img[i].Left := i*20+5;
      Img[i].OnDragOver := ADragOver;
      Img[i].OnDragDrop := ADragDrop;
      Img[i].OnMouseDown:=MouseDown;
  if i mod 2 = 0 then
  begin
    Img[i].Top :=  500;
    Img[i].Picture.LoadFromFile(Play1[i div 2 +1]);
  end
    else
    begin
    Img[i].Picture.LoadFromFile(Karta[0]);
    Img[i].Top :=5;
    end;
    Img[i].Stretch := true;
    Img[i].Visible := True;
  end;
end;
procedure TForm1.ADragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if (Source.ClassName = 'TForm') then
    Accept := True
  else
    Accept := False;
end;
 
procedure TForm1.ADragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  TPanel(Source).Left := (Sender as TImage).Left + (Sender as TImage).Parent.Left;
  TPanel(Source).Top := (Sender as TImage).Top + (Sender as TImage).Parent.Top;
  TPanel(Source).Tag := (Sender as TImage).Tag;
  TPanel(Source).Caption := IntToStr(TImage(Source).Tag);
  TPanel(Source).BringToFront;
end;
 
procedure TForm1.AMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
  A: Integer;
begin
  if (Button = mbRight) and
     (((Sender as TPanel).Width < (Sender as TPanel).Height) and
     ((Sender as TPanel).Tag div 10 < 9)) or
     (((Sender as TPanel).Width > (Sender as TPanel).Height) and
     ((Sender as TPanel).Tag mod 10 < 9))
   then
  begin
    A := (Sender as TPanel).Width;
    (Sender as TPanel).Width := (Sender as TPanel).Height;
    (Sender as TPanel).Height := a;
  end;
end;
 
 
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
TPanel(Source).Left := X;
TPanel(Source).Top := Y;
end;
 
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
if Source.ClassName = 'TImage' then
   Accept := True
else
   Accept := False;
end;
 
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TControl(Sender).BeginDrag(false);
end;
 
end.