//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "DataShowMain.h"
#include "CommFun.h"
#include "Collection.h"
#include "Printers.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDataShowMain *FormDataShowMain;
//---------------------------------------------------------------------------
__fastcall TFormDataShowMain::TFormDataShowMain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::ActConnectionExecute(TObject *Sender)
{
if (!ActConnection->Checked)
  {  ActConnection->Checked=true;    FormCollection->Timer->Enabled=true; }
else
  {  ActConnection->Checked=false;   FormCollection->Timer->Enabled=false; }
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::ActFileOpenExecute(TObject *Sender)
{
OpenDialog->Execute();
if (OpenDialog->FileName.Trim()!="")
 {
 ShowMessage ("Open");
 }
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::ActFileSaveExecute(TObject *Sender)
{
if (SaveDialog->Execute())
 {
 ShowMessage ("Save");
 }

}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::ActFileSaveAsExecute(TObject *Sender)
{
if (SaveDialog->Execute())
 {
 ShowMessage ("Save");
 }
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::ActQuitExecute(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::ActPrintOptionExecute(TObject *Sender)
{
if (PrinterSetupDialog->Execute())
 {
 ShowMessage ("OPtion");
 }
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::ActPrintPrintExecute(TObject *Sender)
{
  if (PrintDialog->Execute())
  {
    // now, print the pages
    Printer()->BeginDoc();
////////////////////////////////
////////////////////////////////
////////////////////////////////
    Printer()->EndDoc();
  }
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::WinShowOrHide(TAction * pAction)
{
TFormDataShowChild **pForm=NULL;
char ctype;
if      (pAction==ActUp)            { pForm=&FormDataShowChildUp;      ctype='U';}
else if (pAction==ActDown)          { pForm=&FormDataShowChildDown;    ctype='D';}
else if (pAction==ActAverage)       { pForm=&FormDataShowChildAverage; ctype='A';}
else if (pAction==ActPress)         { pForm=&FormDataShowChildPress;   ctype='P';}
else                                return ;

if (!pAction->Checked)
  {  pAction->Checked=true;    FormDataShowChildInit(pForm ,ctype); }
else
  {  pAction->Checked=false;   FormDataShowChildDele(pForm); }
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::ActUpExecute(TObject *Sender)
{
WinShowOrHide(ActUp);
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::ActDownExecute(TObject *Sender)
{
WinShowOrHide(ActDown);
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::ActAverageExecute(TObject *Sender)
{
WinShowOrHide(ActAverage);
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::ActPressExecute(TObject *Sender)
{
WinShowOrHide(ActPress);
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::FormDataShowChildInit
              (TFormDataShowChild * * pForm,char ctype)
{
if (*pForm==NULL)
    *pForm   =new TFormDataShowChild(this,ctype);
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::FormDataShowChildDele
              (TFormDataShowChild * * pForm)
{
if (*pForm!=NULL)
   { (*pForm)->Close(); delete *pForm;  *pForm=NULL; }
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::FormShow(TObject *Sender)
{
FormDataShowChildInit(&FormDataShowChildUp     ,'U');
FormDataShowChildInit(&FormDataShowChildDown   ,'D');
FormDataShowChildInit(&FormDataShowChildAverage,'A');
FormDataShowChildInit(&FormDataShowChildPress  ,'P');
}
//---------------------------------------------------------------------------
void __fastcall TFormDataShowMain::FormClose(TObject *Sender,
      TCloseAction &Action)
{
FormDataShowChildDele(&FormDataShowChildUp);
FormDataShowChildDele(&FormDataShowChildDown);
FormDataShowChildDele(&FormDataShowChildAverage);
FormDataShowChildDele(&FormDataShowChildPress);
}
//---------------------------------------------------------------------------