About.pas

unit About;

interface

uses
  Windows, Forms, Buttons, param, shellapi,
  Controls, Classes, StdCtrls, ExtCtrls, jpeg;

type
  TAbt = class(TForm)
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    GroupBox3: TGroupBox;
    Memo1: TMemo;
    Label1: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    GroupBox4: TGroupBox;
    Memo2: TMemo;
    SpeedButton3: TSpeedButton;
    procedure Button1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Label7Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Abt: TAbt;

implementation

uses Main;

{$R *.dfm}

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

procedure TAbt.Label1Click(Sender: TObject);
begin
 ShellExecute(Handle,nil,'http://www.RPprogs.narod.ru',nil,nil,handle);
end;

procedure TAbt.Label3Click(Sender: TObject);
begin
 ShellExecute(Handle,nil,'mailto:RPsoft@mail.ru',nil,nil,handle);
end;

procedure TAbt.FormActivate(Sender: TObject);
begin
	Label9.Caption := MainForm.Label45.Caption;
	MainForm.Timer1.Enabled := false;
end;

procedure TAbt.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 MainForm.Timer1.Enabled:=true;
end;

procedure TAbt.Label7Click(Sender: TObject);
begin
 ShellExecute(Handle,nil,'mailto:RPsoft@mail.ru',nil,nil,handle);
end;

procedure TAbt.SpeedButton1Click(Sender: TObject);
begin
 Close;
end;

procedure TAbt.SpeedButton2Click(Sender: TObject);
begin
 If SpeedButton2.Caption='Î ïðîãðàììå...' then begin
  SpeedButton2.Caption:='Áàçà äàííûõ';
  GroupBox3.Visible:=false;
  GroupBox4.Visible:=false;
  GroupBox3.SendToBack;
  GroupBox3.SendToBack;
 end
 else
  If SpeedButton2.Caption='Áàçà äàííûõ' then begin
   SpeedButton2.Caption:='Ïîæåðòâîâàíèå';
   GroupBox3.Visible:=true;
   GroupBox3.BringToFront;
   GroupBox4.SendToBack;
   GroupBox4.Visible:=false;
  end
  else
   If SpeedButton2.Caption='Ïîæåðòâîâàíèå' then begin
    SpeedButton2.Caption:='Î ïðîãðàììå...';
    GroupBox3.Visible:=false;
    GroupBox3.SendToBack;
    GroupBox4.BringToFront;
    GroupBox4.Visible:=true;
   end
end;

procedure TAbt.SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
 If SpeedButton2.Caption='Î ïðîãðàììå...' then
  SpeedButton2.Hint:='Ïîñìîòðåòü èíôîðìàöèþ îá àâòîðå ïðîãðàììû.';
 If SpeedButton2.Caption='Áàçà äàííûõ' then
  SpeedButton2.Hint:='Ïðîñìîòðåòü ñâåäåíèÿ î áàçå äàííûõ ïî êîìïëåêòóþùèì â èãðå.';
 If SpeedButton2.Caption='Ïîæåðòâîâàíèå' then
  SpeedButton2.Hint:='Ìíå òàê íðàâèòñÿ ýòà èãðà, ÷òî ÿ õî÷ó ïîæåðòâîâàòü àâòîðó íåêîòîðóþ ñóììó.';
end;

procedure TAbt.SpeedButton3Click(Sender: TObject);
begin
 Application.MessageBox('×òîáû ïîæåðòâîâàòü ìíå íåêîòîðóþ ñóììó ÷åðåç ñåðâèñ WebMoney ïðîñòî ïåðå÷èñëèòå ìíå äåíüãè íà îäèí èç êîøåëüêîâ:'+#13+#13+'Äëÿ ïåðå÷èñëåíèé â äîëëàðàõ - Z209458620841'+#13+'Äëÿ ïåðå÷èñëåíèé â ðóáëÿõ - R447039166666'+#13+'Äëÿ ïåðå÷èñëåíèé â åâðî - E038304727957'+#13+'Äëÿ ïåðå÷èñëåíèé â ãðèâíÿõ - U212312166639','Ïîìîùü!',MB_ICONINFORMATION);
end;

procedure TAbt.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 If (key=VK_ESCAPE) then
  SpeedButton1.OnClick(self);
end;

end.