aboutdialog.cpp

Last change: 2008-02-03 This is the source code of KCeasy。

/*
This file is part of KCeasy (http://www.kceasy.com)
Copyright (C) 2002-2004 Markus Kern <[e-mail]>

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.
*/
//---------------------------------------------------------------------
#include <vcl.h>
#include <KCeasy.h>
#pragma hdrstop

#include "AboutDialog.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TAboutForm *AboutForm;
//---------------------------------------------------------------------
__fastcall TAboutForm::TAboutForm(TComponent* AOwner)
	: TForm(AOwner)
{
    TranslateComponent(this);
    Caption = Brand->ReplaceAppName(Caption);
    NameLbl->Caption = Brand->ReplaceAppName(NameLbl->Caption);
    VersionLbl->Caption = AnsiString::Format(VersionLbl->Caption,
                          ARRAYOFCONST((Brand->GetVersionString())));
    UrlLbl->Caption = Brand->GetAppWebsite();
    EmailLbl->Caption = Brand->GetSupportEmail();
    LischkeLbl->Caption = Brand->ReplaceAppName(LischkeLbl->Caption);
    AppLogoImage->Picture = Brand->GetLogo48Gray();
}
//---------------------------------------------------------------------------

void __fastcall TAboutForm::UrlLblMouseEnter(TObject *Sender)
{
    UrlLbl->Font->Style = TFontStyles() << fsUnderline;
}

void __fastcall TAboutForm::UrlLblMouseLeave(TObject *Sender)
{
    UrlLbl->Font->Style = TFontStyles();
}

void __fastcall TAboutForm::UrlLblClick(TObject *Sender)
{
    ShellExecute(0,"open",UrlLbl->Caption.c_str(),NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

void __fastcall TAboutForm::EmailLblMouseEnter(TObject *Sender)
{
    EmailLbl->Font->Style = TFontStyles() << fsUnderline;
}

void __fastcall TAboutForm::EmailLblMouseLeave(TObject *Sender)
{
    EmailLbl->Font->Style = TFontStyles();
}

void __fastcall TAboutForm::EmailLblClick(TObject *Sender)
{
    AnsiString Url("mailto:");
    Url += EmailLbl->Caption;
    ShellExecute(0,"open",Url.c_str(),NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------