Quelle  AboutBox.pas   Sprache: unbekannt

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.