david
08e42642b8
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@21 05c56307-c608-d34a-929d-697000501d7a
56 lines
1.9 KiB
C++
56 lines
1.9 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "NavBarUtils.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma resource "*.dfm"
|
|
TdmCommonData *dmCommonData;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TdmCommonData::TdmCommonData(TComponent* Owner)
|
|
: TDataModule(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TdmCommonData::actExitExecute(TObject *Sender)
|
|
{
|
|
Application->MainForm->Close();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TdmCommonData::actDownloadsExecute(TObject *Sender)
|
|
{
|
|
Browse(spDownloads);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TdmCommonData::actSupportExecute(TObject *Sender)
|
|
{
|
|
Browse(spSupport);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TdmCommonData::actDXOnTheWebExecute(TObject *Sender)
|
|
{
|
|
Browse(spStart);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TdmCommonData::actProductsExecute(TObject *Sender)
|
|
{
|
|
Browse(spProducts);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void Browse(dxSitePage ASitePage)
|
|
{
|
|
PCHAR AURL;
|
|
switch (ASitePage)
|
|
{
|
|
case spDownloads: AURL = dxDownloadURL; break;
|
|
case spSupport: AURL = dxSupportURL; break;
|
|
case spStart: AURL = dxStartURL; break;
|
|
case spProducts: AURL = dxProductsURL; break;
|
|
case spMyDX: AURL = dxMyDXURL; break;
|
|
}
|
|
ShellExecute(0, "OPEN", AURL, NULL, NULL, SW_SHOWMAXIMIZED);
|
|
}
|
|
//---------------------------------------------------------------------------
|