//Film List
//Copyright (C) 2003-2005 Tereschenko Victor aka ViRUS (sibvic@mail.ru)
//http://sibvic.h14.ru
(*
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*)
unit UAbout;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Umain;

type
  TfmAbout = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmAbout: TfmAbout;

implementation

{$R *.dfm}

procedure TfmAbout.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TfmAbout.FormCreate(Sender: TObject);
begin
  Caption := fmMain.GetLangValue('MainMenu', 'About');
  Memo1.Lines.Add('SibVic Film List');
  Memo1.Lines.Add('����� - ��������� ������');
  Memo1.Lines.Add('���� ��������� http://sibvic.h14.ru');
  Memo1.Lines.Add('WebMoney: R170837595215, Z277460738747, E331756808322');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('��� �����������/���������/��������� �� �����������������/������� ���������� ��������� ��������������.');
  Memo1.Lines.Add('sibvic@mail.ru');
  Memo1.Lines.Add('');
  Memo1.Lines.Add('������� �������������:');
  Memo1.Lines.Add('Arikosan');
  Memo1.Lines.Add('GoldenMouse');
  Memo1.Lines.Add('��������� ������');
  Memo1.Lines.Add('Alex Shors');
  Memo1.Lines.Add('Alexx');
  Memo1.Lines.Add('���� R7.org.ru');
  Memo1.Lines.Add('Sajan');  
  Memo1.Lines.Add('� ������ �� ���������� �����, ������������ � ����.');
end;

end.