Игра Кости

end; 

procedure TAboutBox2.OKButtonMouseMove(Sender: TObject; Shift: TShiftState;

  X, Y: Integer);

  // При движении  указателя на кнопке "OK" для  красоты меняем внешний вид

  // окна.

begin

    // Прячем  ненужные компоненты.

    lab2.Visible:=false;

    image.Visible:=false;

    // Показываем нужные.

    lab1.Visible:=true;

    lab3.Visible:=true;

    lab4.Visible:=true;

    image1.Visible:=true;

    // Создаём  битовый образ второй картинки.

    baks:=tbitmap.Create;

    // Загружаем  вторую картинку из файла ресурсов.

    baks.LoadFromResourceName(hinstance,'baks');

    // Выводим вторую картинку.

    image1.Canvas.Draw(0,0,baks);

    // Меняем цвет компонентов.

    panel1.Color:=clinactivecaption;

    aboutbox2.Color:=clinactivecaptiontext;

end; 

procedure TAboutBox2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

  // При движении указателя на форме меняем внешний вид окна на первоначальный.

  // Для чего  вызываем процедуру активации  формы.

begin

   formactivate(sender);

end; 

end. 

unit abbox3; 

interface 

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

  Buttons, ExtCtrls, MPlayer, FileCtrl; 

type

  TAboutBox3 = class(TForm)

    Panel1: TPanel;

    Edit1: TEdit;

    Edit2: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label4: TLabel;

    Button1: TButton;

    Button2: TButton;

    file1: TFileListBox;

   dir1: TDirectoryListBox;

    disk1: TDriveComboBox;

    disk2: TDriveComboBox;

    dir2: TDirectoryListBox;

    file2: TFileListBox;

    Panel5: TPanel;

    Med1: TMediaPlayer;

    Med2: TMediaPlayer;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure disk1Change(Sender: TObject);

    procedure dir1Change(Sender: TObject);

    procedure disk2Change(Sender: TObject);

    procedure dir2Change(Sender: TObject);

    procedure file1Click(Sender: TObject);

    procedure file2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  AboutBox3: TAboutBox3; 

implementation

    // Подключаем  модули основной формы и Aboutbox-а  сообщающего об ошибке.

uses Cursproj,abbox4; 

{$R *.DFM} 

procedure TAboutBox3.Button1Click(Sender: TObject);

    // Обработка события Onclick кнопки 'Ok'.

begin

   // Присваеваем  свойствам "FileName" медиаплейеров  свойства Text Edit-ов.

   med1.FileName:=edit1.Text;

   med2.FileName:=edit2.Text; 

// Следующий  блок программы - защита от  неверного пути к AVI-файлам.

   // Пытаемся  открыть медиаплейеры. Если возникнет ошибка (исключение)

   // будут  выполнены операторы после служебного  слова 'Except'.

   try

     med1.Open;

     med2.Open;

   except

     // Вызываем окно сообщающее об  ошибке.

     aboutbox4.ShowModal;

     // Выходим из процедуры, т.о. даем  пользователю возможность повторить

     // ввод пути.

     exit;

   end;

   // Если  ошибки не произошло.

   // Закрываем  медиаплейеры этого "Aboutbox-а". Это необходимо,

   // что  бы AVI-файлы были доступны медиаплейерам  основной формы

   med1.Close;

   med2.Close;

   // Вызываем  основную форму (поле игры).

   form1.show;

   // Свойствам  'FileName' медиаплейеров основной формы  присваеваем

   // теперь  точно верные пути к AVI-файлам.

   form1.mp1.FileName:=aboutbox3.Edit1.Text;

   form1.mp2.FileName:=aboutbox3.Edit2.Text;

   // "Прячем" окно ввода путей к AVI-файлам.

   aboutbox3.Hide;

end; 

procedure TAboutBox3.Button2Click(Sender: TObject);

  // Клик на кнопке 'Выход'

begin

  // Закрываем  форму.

  Close;

end;

// Следующие  процедуры обрабатывают события  OnChange компонентов //FileListBox,

// DirectoryListBox, DriveListBox. Обрабатывают таким образом, что  бы //связать

// их между  собой, т.е. при смене диска  менялись папки, при смене папки

// менялись файлы,  а при выборе файла путь  к нему прописывался в Edit-ах.

procedure TAboutBox3.disk1Change(Sender: TObject);

begin

   dir1.Drive:=disk1.Drive;

end; 

procedure TAboutBox3.dir1Change(Sender: TObject);

begin

  file1.Directory:=dir1.Directory;

end; 

procedure TAboutBox3.disk2Change(Sender: TObject);

begin

   dir2.Drive:=disk2.Drive;

end; 

procedure TAboutBox3.dir2Change(Sender: TObject);

begin

   file2.Directory:=dir2.Directory;

end; 

// При выборе файла, путь к нему прописывается в Edit1

procedure TAboutBox3.file1Click(Sender: TObject);

begin

   edit1.Text:=file1.FileName;

end; 

// При выборе файла, путь к нему прописывается в Edit2 

procedure TAboutBox3.file2Click(Sender: TObject);

begin

edit2.Text:=file2.FileName;

end; 

end. 

unit abbox4;

// Модуль окна, которое информирует об ошибке  ввода пути к AVI-файлам.

// Не описано ни одной процедуры. Все надписи внесены при установке

// свойств компонентов.

interface 

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

  Buttons, ExtCtrls; 

type

  TAboutBox4 = class(TForm)

    OKButton: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  AboutBox4: TAboutBox4; 

implementation 

{$R *.DFM} 

end. 

unit Cursproj;

//Указываем файл  ресурсов.

{$r k.res}

interface 

uses

  //Стандартные  модули.

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

  Menus, StdCtrls, ExtCtrls, MPlayer;

  //Компоненты  и процедуры использующиеся в  программе.

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Label1: TLabel;

    Button4: TButton;

    Label2: TLabel;

    Label3: TLabel;

    l4: TLabel;

    Image1: TImage;

    Image2: TImage;

    Label4: TLabel;

    l5: TLabel;

    Panel1: TPanel;

    Panel2: TPanel;

    mp1: TMediaPlayer;

    mp2: TMediaPlayer;

    Panel3: TPanel;

    Panel4: TPanel;

    Panel5: TPanel;

    Panel6: TPanel;

    Panel7: TPanel;

    Panel8: TPanel;

    Panel9: TPanel;

    procedure N8Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

    procedure Button1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Button3Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button3MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button4MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1;

 //Переменные, в которые будут загружены картинки.

  r1,r2,baks:tbitmap;

implementation

  //Подключение модулей "ABOUTBOX-ов".

uses Abbox1, abbox2, abbox3; 

{$R *.DFM} 

procedure TForm1.N8Click(Sender: TObject);

begin

   //Вызов окна о программе

   aboutbox1.showmodal;

end; 

procedure TForm1.N7Click(Sender: TObject);

begin

   //Вызов окна правила игры

   aboutbox2.showmodal;

end; 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);