unit AboutBox;
interface
uses
//----------------------------------------------------------------------------
//local
//----------------------------------------------------------------------------
GenDefs,OwnUtils,OptionClass,Utilities,language,MDIClass,
//----------------------------------------------------------------------------
//global
//----------------------------------------------------------------------------
Forms,Controls,ComCtrls,StdCtrls,ExtCtrls,Graphics,Classes,pngimage,jpeg;
type
TAboutBox=
class(TForm)
OKButton:TButton;
Label1:TLabel;
Bevel1:TBevel;
CopyRight:TLabel;
Label3:TLabel;
PhysMem:TLabel;
Label4:TLabel;
Label6:TLabel;
Label9:TLabel;
ProduktId:TLabel;
Label8:TLabel;
FreeRes:TLabel;
OccupiedMem:TLabel;
Edition:TLabel;
Label11:TLabel;
DllInfo:TLabel;
Quellkodierung:TLabel;
Bevel2:TBevel;
ColumboInfo:TLabel;
Bevel3:TBevel;
Label2:TLabel;
ListBox1:TListBox;
Username:TLabel;
Image1:TImage;
Image2: TImage;
procedure Label8Click(Sender:TObject);
procedure Label7Click(Sender:TObject);
procedure FormCreate(Sender:TObject);
procedure FormShow(Sender:TObject);
private
{
Private declarations }
public
{
Public declarations }
NowAvail:
longint;
DllVersion:JString;
end;
implementation
{
$R *.dfm}
uses
//----------------------------------------------------------------------------
//global
//----------------------------------------------------------------------------
Windows,ShellApi,Buttons,SysUtils,DateUtils;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
procedure TAboutBox.Label8Click(Sender:TObject);
begin
Browser(Handle,
'http://www.cococo.de');
end;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
procedure TAboutBox.FormCreate(Sender:TObject);
begin
Hide();
end;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
procedure TAboutBox.FormShow(Sender:TObject);
var
MS:TMemoryStatus;
Percent:
integer;
Fl:
real;
YY:
integer;
begin
Label1.Caption:=Application.Title+
' '+Version_IDE;
if Application.Title=Title_Elbe
then
Label9.Caption:=trans(lang,
153,
'Der Quellennavigator')
else
Label9.Caption:=trans(lang,
154,
'Der Quellendetektiv');
Username.Caption:=opt.R.Username;
DllInfo.Caption:=MDI.processor+
'Dll '+DllVersion;
ColumboInfo.Caption:=
'IDE '+Inttostr(Dayof(opt.R.Columbodate))+
'.'+Inttostr
(Monthof(opt.R.Columbodate))+
'.'+Inttostr(Yearof(opt.R.Columbodate))
+
' (inst)';
YY:=Yearof(now);
CopyRight.Caption:=
'© '+Inttostr(YY)+
' '+Company;
//with Quellkodierung do
//left:=width div 2-Width div 2;
//with produktid do
//left:=width div 2 - Width div 2;
GlobalMemoryStatus(MS);
NowAvail:=InitiallyAvail-
longint(MS.dwAvailPhys);
PhysMem.Caption:=FormatFloat(
'###0" MB"',MS.dwTotalPhys/(
1024*
1024));
if NowAvail>
0 then
OccupiedMem.Caption:=FormatFloat(
'###0" MB"',NowAvail/(
1024*
1024))
else
OccupiedMem.Caption:=
'';
Fl:=(MS.dwTotalPhys-MS.dwAvailPhys)/MS.dwTotalPhys;
Percent:=Round(
100*Fl);
if Percent>
0 then
FreeRes.Caption:=Format(
'%d %%',[Percent])
else
FreeRes.Caption:=
'';
if Application.Title=Title_Elbe
then begin
Image1.Visible:=false;
Image2.Visible:=true
end
else begin
Image1.Visible:=true;
Image2.Visible:=false
end;
end;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
procedure TAboutBox.Label7Click(Sender:TObject);
var
em_subject,em_body,em_mail:JString;
begin
em_subject:=
'Anfrage zu '+Application.Title;
em_body:=
'';
em_mail:=
'mailto:'+Application.Title+
'@cococo.de?subject='+em_subject+
'&body='+em_body;
Browser(Handle,em_mail);
end;
{ ------------------------------------------------------------------ }
{ - - }
{ - Ende dieser Quelle - }
{ - - }
{ ------------------------------------------------------------------ }
end.
