//---------------------------------------------------------------------
#include <vcl.h>
#include <sysinit.hpp>
#pragma hdrstop

#include "About.h"
#include "define.h"
#include "common.h"
//---------------------------------------------------------------------
#pragma link "RzButton"
#pragma link "RzPanel"
#pragma resource "*.dfm"
//---------------------------------------------------------------------
TAboutBox *AboutBox;
//---------------------------------------------------------------------
__fastcall TAboutBox::TAboutBox(TComponent *Owner)
  : TForm(Owner)
{
  if(IsVivien()){
    #ifdef NETHASP
      #ifdef NO_SIM_VERSION
      lbSystem->Caption = "Net" + PROGRAM_NAME + " " + VERSION + MINOR_VERSION + " (Vivien)";
      //lbSystem->Caption = PROGRAM_NAME + " " + VERSION + MINOR_VERSION + " (Vivien) - Restricted Version";
      #else
      lbSystem->Caption = "Net" + PROGRAM_NAME + " " + VERSION + MINOR_VERSION + " (Vivien)";
      #endif
    #else
      #ifdef NO_SIM_VERSION
      lblSystem->Caption = PROGRAM_NAME + " " + VERSION + MINOR_VERSION + " (Vivien)";
      //lbSystem->Caption = PROGRAM_NAME + " " + VERSION + MINOR_VERSION + " (Vivien) - Restricted Version";
      #else
      lblSystem->Caption = PROGRAM_NAME + " " + VERSION + MINOR_VERSION + " (Vivien)";
      #endif
    #endif
  } else {
    #ifdef NETHASP
      #ifdef NO_SIM_VERSION
      lblSystem->Caption = "Net" + PROGRAM_NAME + " " + VERSION + MINOR_VERSION;
      //lbSystem->Caption = PROGRAM_NAME + " " + VERSION + MINOR_VERSION + " - Restricted Version";
      #else
      lblSystem->Caption = "Net" + PROGRAM_NAME + " " + VERSION + MINOR_VERSION;
      #endif
    #else
      #ifdef NO_SIM_VERSION
      lblSystem->Caption = PROGRAM_NAME + " " + VERSION + MINOR_VERSION;
      //lbSystem->Caption = PROGRAM_NAME + " " + VERSION + MINOR_VERSION + " - Restricted Version";
      #else
      lblSystem->Caption = PROGRAM_NAME + " " + VERSION + MINOR_VERSION;
      #endif
    #endif
  }
}
//---------------------------------------------------------------------

void __fastcall TAboutBox::FormCreate(TObject *Sender)
{
  SetFont();
  lblHttp->Font->Color=clBlue;
  lblHttp->Font->Style = TFontStyles()<<fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TAboutBox::SetFont(){
  SetSmallFont(Font);
}
//---------------------------------------------------------------------------
void __fastcall TAboutBox::lblHttpClick(TObject *Sender)
{
  char win[MAX_PATH];
  GetWindowsDirectory(win,MAX_PATH);

  SHELLEXECUTEINFO screeninfo;
  memset(&screeninfo,0,sizeof(screeninfo));
  screeninfo.cbSize = sizeof(screeninfo);
  screeninfo.lpVerb = "open";
  screeninfo.lpDirectory = win;

  screeninfo.lpFile = "explorer.exe";
  screeninfo.lpParameters = "http://www.texclub.com/";
  screeninfo.fMask = SEE_MASK_NOCLOSEPROCESS;
  screeninfo.nShow = SW_SHOWDEFAULT;
  if(!ShellExecuteEx(&screeninfo)) {
    ShowMessage("Unknown Error in "+this->Name);
  }
  
}
//---------------------------------------------------------------------------