unit uAbout;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExeInfo, ExtCtrls, StdCtrls,
pngimage, SkinCtrls, DynamicSkinForm, ComCtrls, SkinBoxCtrls;

type
TfrmAbout = class(TForm)
Image1: TImage;
spSkinSpeedButton1: TspSkinSpeedButton;
spDynamicSkinForm1: TspDynamicSkinForm;
GradientLabel1: TspSkinStdLabel;
GradientLabel3: TspSkinStdLabel;
GradientLabel2: TspSkinStdLabel;
spSkinMemo1: TspSkinMemo;
procedure FormCreate(Sender: TObject);
procedure spSkinSpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmAbout: TfrmAbout;

implementation

uses uMain, uSpecialUtils, uLng;

{$R *.dfm}

procedure TfrmAbout.FormCreate(Sender: TObject);

begin
GradientLabel1.Caption:= exeproductname + #13#10 + 'program by ' + execompanyname;
GradientLabel2.Caption:= exefullversion;
Caption:= txt_about;
GradientLabel3.Caption:= txt_version;

// fill about
{
Наилучшей благодарностью для меня будет если Вы немножко
пополните мой Web-Money кошелек для дальнейшего развития
программы и поддержки сайта www.p2ktools.net

R625025517391
Z904158741959

Спасибо следующим людям:
Vilko aka Fantom - за помощь в работе с протоколом P2K
dwAlx - за помощь в работе с протоколом P2K05
M.org - за помощь в дизайне программы.
www.yomoto.ru - стиль твоего МОТОмира
www.motofan.ru - самый лучший форум по телефонам Motorola
и Всем, кто помогал в тестировании программы!!!

}

end;

procedure TfrmAbout.spSkinSpeedButton1Click(Sender: TObject);
begin
close
end;

end.