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

#include "PrintingForm.h"
#include "HiddenPrintData_F.h"
#include "MetaData_F.h"
#include "YarnCompositionData.h"
#include "Main_F.h"
#include "Simulation_F.h"
#include "treatment.h"
#include "common.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "TPSpin"
#pragma link "RzButton"
#pragma link "RzPanel"
#pragma link "RzRadGrp"
#pragma link "RzRadChk"
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
#define IDS_TABLE           StringTable[0]
#define IDS_BAR             StringTable[1]
#define IDS_YARN_NAME       StringTable[2]
#define IDS_PERCENT         StringTable[3]
#define IDS_TOTAL           StringTable[4]
#define IDS_COLOR           StringTable[5]
#define IDS_WPI             StringTable[6]
#define IDS_CPC             StringTable[7]
#define IDS_WIDTH           StringTable[8]
#define IDS_G_PER_Y         StringTable[9]
#define IDS_START           StringTable[10]
#define IDS_DATA            StringTable[11]
#define IDS_S_DATA          StringTable[12]
#define IDS_P_DATA          StringTable[13]
#define IDS_METHOD          StringTable[14]
#define IDS_FONT            StringTable[15]
#define IDS_PREVIEW         StringTable[16]
#define IDS_NAME            StringTable[17]
#define IDS_COURSE          StringTable[18]
#define IDS_ZOOM            StringTable[19]
#define IDS_FUZZ            StringTable[20]
#define IDS_FRONT_BACK      StringTable[21]
#define IDS_FRONT           StringTable[22]
#define IDS_BACK            StringTable[23]
#define IDS_VERT_REPEAT     StringTable[24]
#define IDS_HORZ_REPEAT     StringTable[25]
#define IDS_TREAT           StringTable[26]
#define IDS_TREAT_NONE      StringTable[27]
#define IDS_TREAT_HAIR      StringTable[28]
#define IDS_TREAT_RAISE     StringTable[29]
#define IDS_STYLE           StringTable[30]
#define IDS_STANDARD        StringTable[31]
#define IDS_SIMPLE          StringTable[32]
#define IDS_SIMPLE_LANDSCAPE  StringTable[33]
#define IDS_DESIGN_DATA     StringTable[34]
#define IDS_YARN_DATA       StringTable[35]
#define IDS_CHAIN           StringTable[36]
#define IDS_2_STEP          StringTable[37]
#define IDS_3_STEP          StringTable[38]
#define IDS_COST            StringTable[39]
#define IDS_DESIGN_IMAGE    StringTable[40]
#define IDS_DESIGN_IMAGE_OPTION   StringTable[41]
#define IDS_DESIGN_WINDOW   StringTable[42]
#define IDS_ALL_LAYER       StringTable[43]
#define IDS_LAYER1          StringTable[44]
#define IDS_LAYER2          StringTable[45]
#define IDS_LAYER3          StringTable[46]
#define IDS_LAYER4          StringTable[47]
#define IDS_LAYER5          StringTable[48]
#define IDS_COURSEDATA      StringTable[49]
#define IDS_MMRACKDATA      StringTable[50]
#define IDS_NORMAL          StringTable[51]
#define IDS_OUTLINE         StringTable[52]
#define IDS_LAYER6          StringTable[53]
#define IDS_LAYER7          StringTable[54]
//---------------------------------------------------------------------------
TPrintForm *PrintForm;
//---------------------------------------------------------------------------
__fastcall TPrintForm::TPrintForm(TComponent* Owner)
  : TForm(Owner)
{
  StringTable.Create(BaseDir, Language, "Print");
  rgMode->Caption=IDS_STYLE;
  rgMode->Items->Clear();
  rgMode->Items->Add(IDS_SIMPLE);
  rgMode->Items->Add(IDS_SIMPLE_LANDSCAPE);//Pyung Won Textile Co.,Ltd(Æò¿ø¼¶À¯)
  rgMode->Items->Add(IDS_STANDARD);
  rgMode->ItemIndex=0;
  rgData->Caption=IDS_DATA;
  rgData->Items->Clear();
  rgData->Items->Add(IDS_S_DATA);
  rgData->Items->Add(IDS_DESIGN_DATA);
  rgData->Items->Add(IDS_DESIGN_IMAGE);
  rgData->Items->Add(IDS_YARN_DATA);
  if(IsVivien()){
    rgData->Items->Add(IDS_YARN_DATA+" (Vivien)");
  }
  rgData->Items->Add(IDS_COST);
  rgData->Items->Add(IDS_COURSEDATA);
  rgData->Items->Add(IDS_MMRACKDATA);
  rgData->ItemIndex=0;
  rgChain->Caption=IDS_CHAIN;
  rgChain->Items->Clear();
  rgChain->Items->Add(IDS_2_STEP);
  rgChain->Items->Add(IDS_3_STEP);
  rgChain->ItemIndex=0;

  gbOption->Caption=IDS_DESIGN_IMAGE_OPTION;
  rbOption1->Caption=IDS_DESIGN_WINDOW;
  rbOption2->Caption=IDS_ALL_LAYER;
  if (Main->LayerMode) {  //Bar
    rbOption3->Caption = "GB1";
    rbOption4->Caption = "GB2";
    rbOption5->Caption = "GB3";
    rbOption6->Caption = "GB4";
    rbOption7->Caption = "GB5";
    rbOption8->Caption = "GB6";
    rbOption9->Caption = "GB7";
  }
  else { //Layer
    rbOption3->Caption=IDS_LAYER1;
    rbOption4->Caption=IDS_LAYER2;
    rbOption5->Caption=IDS_LAYER3;
    rbOption6->Caption=IDS_LAYER4;
    rbOption7->Caption=IDS_LAYER5;
    rbOption8->Caption=IDS_LAYER6;
    rbOption9->Caption=IDS_LAYER7;
  }
  rbOption1->Checked=true;
  rbCoursePrint1->Caption = IDS_NORMAL;
  rbCoursePrint2->Caption = IDS_OUTLINE;

  //btFont->Caption=IDS_FONT;
  btPreview->Caption=IDS_PREVIEW;
  Caption = IDS_COMMON_PRINTSETUP;
  btSetup->Caption = IDS_COMMON_SETUP;
  btOk->Caption = IDS_COMMON_BUTTONOK;
  btCancel->Caption = IDS_COMMON_BUTTONCANCEL;

  if (Width>Screen->Width) Left = 100;
  else Left = (Screen->Width-Width)/2;
  if (Height>Screen->Height) Top = 100;
  else Top = (Screen->Height-Height)/2;
}
//---------------------------------------------------------------------------
void __fastcall TPrintForm::SetFont(){
  SetSmallFont(Font);
  SetSmallFont(lbPrinter->Font);
  SetSmallFont(rgMode->Font);
  SetSmallFont(rgData->Font);
  SetSmallFont(rgChain->Font);
}
//---------------------------------------------------------------------------
void __fastcall TPrintForm::FormCreate(TObject *Sender)
{
  int temp;
   TIniFile *IniFile = new TIniFile(BaseDir + "\\Environment.ini");
   if (IniFile) {
    rgMode->ItemIndex = IniFile->ReadInteger("Printer", "Style", 0);
    rgData->ItemIndex = IniFile->ReadInteger("Printer", "Data", 0);
    rgChain->ItemIndex = IniFile->ReadInteger("Printer", "Chain", 0);
    temp = IniFile->ReadInteger("Printer", "Option", 1);
    delete IniFile;
  }
  SetFont();

  if(temp == 1) rbOption1->Checked = true;
  else if(temp == 2) rbOption2->Checked = true;
  else if(temp == 3 && Main->maindata.bar >= 1) rbOption3->Checked = true;
  else if(temp == 4 && Main->maindata.bar >= 2) rbOption4->Checked = true;
  else if(temp == 5 && Main->maindata.bar >= 3) rbOption5->Checked = true;
  else if(temp == 6 && Main->maindata.bar >= 4) rbOption6->Checked = true;
  else if(temp == 7 && Main->maindata.bar >= 5) rbOption7->Checked = true;
  else if(temp == 8 && Main->maindata.bar >= 6) rbOption8->Checked = true;
  else if(temp == 9 && Main->maindata.bar >= 7) rbOption9->Checked = true;

  //ClientWidth=Bevel1->Left+Bevel1->Width+2;
  //ClientHeight=Bevel1->Top+Bevel1->Height+2;
}
//---------------------------------------------------------------------------
void __fastcall TPrintForm::btSetupClick(TObject *Sender)
{
  try{
    HDC dc=Printer()->Handle;
  } catch(...){
    return;
  }

  if(rgMode->ItemIndex==0){
    HiddenPrintDataForm->qrSimple->PrinterSetup();
    HiddenPrintDataForm->printer_qrSimple = Printer()->Printers->Strings[Printer()->PrinterIndex];
  }
  else if(rgMode->ItemIndex==1){
    HiddenPrintDataForm->qrSimpleLandscape->PrinterSetup();
    HiddenPrintDataForm->printer_qrSimpleLandscape = Printer()->Printers->Strings[Printer()->PrinterIndex];
  }
  else if(rgMode->ItemIndex==2){
    if(rgData->ItemIndex==0){
      HiddenPrintDataForm->qrStandardSimulation->PrinterSetup();
      HiddenPrintDataForm->printer_qrStandardSimulation = Printer()->Printers->Strings[Printer()->PrinterIndex];
    }
    else if(rgData->ItemIndex==1){
      HiddenPrintDataForm->qrStandardDesign->PrinterSetup();
      HiddenPrintDataForm->printer_qrStandardDesign = Printer()->Printers->Strings[Printer()->PrinterIndex];
    }
    else if(rgData->ItemIndex==2){
      HiddenPrintDataForm->qrStandardDesignImage->PrinterSetup();
      HiddenPrintDataForm->printer_qrStandardDesignImage = Printer()->Printers->Strings[Printer()->PrinterIndex];
    }
    else if(rgData->ItemIndex==3){
      HiddenPrintDataForm->qrStandardYarn->PrinterSetup();
      HiddenPrintDataForm->printer_qrStandardYarn = Printer()->Printers->Strings[Printer()->PrinterIndex];
    }
    else if(IsVivien()){
      if(rgData->ItemIndex==4){
        HiddenPrintDataForm->qrStandardYarnVivien->PrinterSetup();
        HiddenPrintDataForm->printer_qrStandardYarnVivien = Printer()->Printers->Strings[Printer()->PrinterIndex];
      }
      else if(rgData->ItemIndex==5){
        HiddenPrintDataForm->qrTotalCost->PrinterSetup();
        HiddenPrintDataForm->printer_qrTotalCost = Printer()->Printers->Strings[Printer()->PrinterIndex];
      }
    }else if(rgData->ItemIndex==4){
      HiddenPrintDataForm->qrTotalCost->PrinterSetup();
      HiddenPrintDataForm->printer_qrTotalCost = Printer()->Printers->Strings[Printer()->PrinterIndex];
    } else if (rgData->ItemIndex==5) {//gabriel
      PrinterSetupDialog->Execute();
    } else if (rgData->ItemIndex==6) {
      PrinterSetupDialog->Execute();
    }
  }

//  PrinterSetupDialog->Execute();
//  lbPrinter->Caption = IDS_COMMON_PRINTER + " : " + Printer()->Printers->Strings[Printer()->PrinterIndex];
  SetPrinterLabel();
}
//---------------------------------------------------------------------------

//by siuaa 080417 modify
//preview buttonÀ» µÎ ¹øÀÌ»ó ´©¸¦ °æ¿ì ¸Þ¸ð¸®¸¦ freeÇØÁÖÁö ¾Ê´Â ¹®Á¦°¡ »ý±è
//µû¶ó¼­ Preview()¸¦ PreviewModal()·Î ¹Ù²Þ
void __fastcall TPrintForm::btPreviewClick(TObject *Sender)
{
  PrintForm->Visible = false;
  this->Enabled = false;

  if(rgMode->ItemIndex==0){
    HiddenPrintDataForm->SetqrSimple();
    //HiddenPrintDataForm->qrSimple->PreviewModal();
    try
    {
      //HiddenPrintDataForm->QRCompositeRep->Preview();
      CmpReportShowModal(HiddenPrintDataForm->QRCompositeRep);
    }catch(...)
    {
    }
    HiddenPrintDataForm->Endqr();
  }
  else if(rgMode->ItemIndex==1){
    HiddenPrintDataForm->SetqrSimpleLandscape();
    try
    {
      HiddenPrintDataForm->qrSimpleLandscape->PreviewModal();
    }catch(...)
    {
    }
    HiddenPrintDataForm->Endqr();
  }
  else if(rgMode->ItemIndex==2){
    if(rgData->ItemIndex==0){
      HiddenPrintDataForm->SetqrStandardSimulation();
      try
      {
        HiddenPrintDataForm->qrStandardSimulation->PreviewModal();
      }catch(...)
      {
      }
      HiddenPrintDataForm->Endqr();
    } else if(rgData->ItemIndex==1){
      HiddenPrintDataForm->SetqrStandardDesign();
      //HiddenPrintDataForm->qrStandardDesign->PreviewModal();
      try
      {
        //HiddenPrintDataForm->QRCompositeRep->Preview();
        CmpReportShowModal(HiddenPrintDataForm->QRCompositeRep);
      }catch(...)
      {
      }
      HiddenPrintDataForm->Endqr();
    }
    else if(rgData->ItemIndex==2){
      if(rbOption1->Checked){
        HiddenPrintDataForm->SetqrStandardDesignImage(0);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->PreviewModal();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption2->Checked || (rbOption3->Checked && Main->maindata.bar >= 1)){
        HiddenPrintDataForm->SetqrStandardDesignImage(1);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->PreviewModal();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption4->Checked && Main->maindata.bar >= 2){
        HiddenPrintDataForm->SetqrStandardDesignImage(2);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->PreviewModal();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption5->Checked && Main->maindata.bar >= 3){
        HiddenPrintDataForm->SetqrStandardDesignImage(3);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->PreviewModal();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption6->Checked && Main->maindata.bar >= 4){
        HiddenPrintDataForm->SetqrStandardDesignImage(4);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->PreviewModal();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption7->Checked && Main->maindata.bar >= 5){
        HiddenPrintDataForm->SetqrStandardDesignImage(5);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->PreviewModal();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption8->Checked && Main->maindata.bar >= 6){
        HiddenPrintDataForm->SetqrStandardDesignImage(6);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->PreviewModal();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption9->Checked && Main->maindata.bar >= 7){
        HiddenPrintDataForm->SetqrStandardDesignImage(7);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->PreviewModal();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else ShowMessage(IDS_MESSAGE_EXIST_LAYER);
    }
    else if(rgData->ItemIndex==3){
      HiddenPrintDataForm->SetqrStandardYarn();
      //HiddenPrintDataForm->qrStandardYarn->PreviewModal();
      try
      {
        //HiddenPrintDataForm->QRCompositeRep->Preview();
        CmpReportShowModal(HiddenPrintDataForm->QRCompositeRep);
      }catch(...)
      {
      }
      HiddenPrintDataForm->Endqr();
    }
    else if(IsVivien()){
      if(rgData->ItemIndex==4){     
        HiddenPrintDataForm->SetqrStandardYarnVivien();
        try
        {
          HiddenPrintDataForm->qrStandardYarnVivien->PreviewModal();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      } else if(rgData->ItemIndex==5){
        HiddenPrintDataForm->SetqrTotalCost();
        try
        {
          HiddenPrintDataForm->qrTotalCost->PreviewModal();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }
    }
    else {
      if(rgData->ItemIndex==4){
        HiddenPrintDataForm->SetqrTotalCost();
        try
        {
          HiddenPrintDataForm->qrTotalCost->PreviewModal();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }
      else if (rgData->ItemIndex==5) {//gabriel
        HiddenPrintDataForm->SetAnyQuickRep(0);
        //HiddenPrintDataForm->AnyQuickRep->PreviewModal();
        try
        {
          //HiddenPrintDataForm->QRCompositeRep->Preview();
          CmpReportShowModal(HiddenPrintDataForm->QRCompositeRep);
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }
      else if (rgData->ItemIndex==6) {
        HiddenPrintDataForm->SetAnyQuickRep(1);      
        //HiddenPrintDataForm->AnyQuickRep->PreviewModal();
        try
        {
          //HiddenPrintDataForm->QRCompositeRep->Preview();
          CmpReportShowModal(HiddenPrintDataForm->QRCompositeRep);
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }
    }
  }
  PrintForm->Visible = true;
  this->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TPrintForm::btOkClick(TObject *Sender)
{
  try{
    HDC dc=Printer()->Handle;
  } catch(...){
    return;
  }
  if(rgMode->ItemIndex==0){
      HiddenPrintDataForm->SetqrSimple();
      //HiddenPrintDataForm->qrSimple->Print();
      try
      {
        HiddenPrintDataForm->QRCompositeRep->Print();
      }catch(...)
      {
      }
      HiddenPrintDataForm->Endqr();
  } else if(rgMode->ItemIndex==1){
    HiddenPrintDataForm->SetqrSimpleLandscape();
    try
    {
      HiddenPrintDataForm->qrSimpleLandscape->Print();
    }catch(...)
    {
    }
    HiddenPrintDataForm->Endqr();
  } else if(rgMode->ItemIndex==2){
    if(rgData->ItemIndex==0){
      HiddenPrintDataForm->SetqrStandardSimulation();
      try
      {
        HiddenPrintDataForm->qrStandardSimulation->Print();
      }catch(...)
      {
      }
      HiddenPrintDataForm->Endqr();
    } else if(rgData->ItemIndex==1){
      HiddenPrintDataForm->SetqrStandardDesign();
      //HiddenPrintDataForm->qrStandardDesign->Print();
      try
      {
        HiddenPrintDataForm->QRCompositeRep->Print();
      }catch(...)
      {
      }
      HiddenPrintDataForm->Endqr();
    } else if(rgData->ItemIndex==2){
      if(rbOption1->Checked){
        HiddenPrintDataForm->SetqrStandardDesignImage(0);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->Print();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption2->Checked){
        for(int i=1;i<=Main->maindata.bar;i++){
          HiddenPrintDataForm->SetqrStandardDesignImage(i);
          try
          {
            HiddenPrintDataForm->qrStandardDesignImage->Print();
          }catch(...)
          {
          }
          HiddenPrintDataForm->Endqr();
        }
      }else if(rbOption3->Checked && Main->maindata.bar >= 1){
        HiddenPrintDataForm->SetqrStandardDesignImage(1);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->Print();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption4->Checked && Main->maindata.bar >= 2){
        HiddenPrintDataForm->SetqrStandardDesignImage(2);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->Print();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption5->Checked && Main->maindata.bar >= 3){
        HiddenPrintDataForm->SetqrStandardDesignImage(3);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->Print();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption6->Checked && Main->maindata.bar >= 4){
        HiddenPrintDataForm->SetqrStandardDesignImage(4);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->Print();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption7->Checked && Main->maindata.bar >= 5){
        HiddenPrintDataForm->SetqrStandardDesignImage(5);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->Print();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption8->Checked && Main->maindata.bar >= 6){
        HiddenPrintDataForm->SetqrStandardDesignImage(6);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->Print();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }else if(rbOption9->Checked && Main->maindata.bar >= 7){
        HiddenPrintDataForm->SetqrStandardDesignImage(7);
        try
        {
          HiddenPrintDataForm->qrStandardDesignImage->Print();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }
      /*else{
        if(Main->maindata.bar >= rgOption->ItemIndex-1){
          HiddenPrintDataForm->SetqrStandardDesignImage(rgOption->ItemIndex-1);
          HiddenPrintDataForm->qrStandardDesignImage->Print();
          HiddenPrintDataForm->Endqr();
        }
        else ShowMessage(IDS_MESSAGE_EXIST_LAYER);
      }*/
    } else if(rgData->ItemIndex==3){
      HiddenPrintDataForm->SetqrStandardYarn();
      //HiddenPrintDataForm->qrStandardYarn->Print();
      try
      {
        HiddenPrintDataForm->QRCompositeRep->Print();
      }catch(...)
      {
      }
      HiddenPrintDataForm->Endqr();
    } else if(IsVivien()){
      if(rgData->ItemIndex==4){
        HiddenPrintDataForm->SetqrStandardYarnVivien();
        try
        {
          HiddenPrintDataForm->qrStandardYarnVivien->Print();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      } else if(rgData->ItemIndex==5){
        HiddenPrintDataForm->SetqrTotalCost();
        try
        {
          HiddenPrintDataForm->qrTotalCost->Print();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      }
    } else {
      if(rgData->ItemIndex==4){
        HiddenPrintDataForm->SetqrTotalCost();
        try
        {
          HiddenPrintDataForm->qrTotalCost->Print();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
      } else if (rgData->ItemIndex==5) {//gabriel
        HiddenPrintDataForm->PrintCourseData();
      } else if (rgData->ItemIndex==6) {
        HiddenPrintDataForm->SetAnyQuickRep(1);
        try
        {
          HiddenPrintDataForm->QRCompositeRep->Print();
        }catch(...)
        {
        }
        HiddenPrintDataForm->Endqr();
        //HiddenPrintDataForm->PrintmmRackData(0);
      }
    }
  }
}
//---------------------------------------------------------------------------

void __fastcall TPrintForm::btCancelClick(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TPrintForm::rgModeClick(TObject *Sender)
{
  if(rgMode->ItemIndex==0||rgMode->ItemIndex==1) {
    rgData->Enabled=false;
    gbOption->Enabled=false;
    rbOption1->Enabled = false;
    rbOption2->Enabled = false;
    rbOption3->Enabled = false;
    rbOption4->Enabled = false;
    rbOption5->Enabled = false;
    rbOption6->Enabled = false;
    rbOption7->Enabled = false;
    rbOption8->Enabled = false;
    rbOption9->Enabled = false;
  } else {
    rgData->Enabled=true;
    if(rgData->ItemIndex == 2){
      gbOption->Enabled=true;

      rbOption1->Enabled = true;
      rbOption2->Enabled = true;
      if(Main->maindata.bar >= 1)
        rbOption3->Enabled = true;
      else
        rbOption3->Enabled = false;

      if(Main->maindata.bar >= 2)
        rbOption4->Enabled = true;
      else
        rbOption4->Enabled = false;

      if(Main->maindata.bar >= 3)
        rbOption5->Enabled = true;
      else
        rbOption5->Enabled = false;

      if(Main->maindata.bar >= 4)
        rbOption6->Enabled = true;
      else
        rbOption6->Enabled = false;

      if(Main->maindata.bar >= 5)
        rbOption7->Enabled = true;
      else
        rbOption7->Enabled = false;

      if(Main->maindata.bar >= 6)
        rbOption8->Enabled = true;
      else
        rbOption8->Enabled = false;

      if(Main->maindata.bar >= 7)
        rbOption9->Enabled = true;
      else
        rbOption9->Enabled = false;
    }
    else{
      gbOption->Enabled=false;
      rbOption1->Enabled = false;
      rbOption2->Enabled = false;
      rbOption3->Enabled = false;
      rbOption4->Enabled = false;
      rbOption5->Enabled = false;
      rbOption6->Enabled = false;
      rbOption7->Enabled = false;
      rbOption8->Enabled = false;
      rbOption9->Enabled = false;
    }
  }
  SetPrinterLabel();
}
//---------------------------------------------------------------------------

void __fastcall TPrintForm::FormShow(TObject *Sender)
{

  try{
    HDC dc=Printer()->Handle;
  } catch(...){
    return;
  }

//  lbPrinter->Caption = IDS_COMMON_PRINTER + " : " + Printer()->Printers->Strings[Printer()->PrinterIndex];
  SetPrinterLabel();
}
//---------------------------------------------------------------------------

void __fastcall TPrintForm::FormDestroy(TObject *Sender)
{
   TIniFile *IniFile = new TIniFile(BaseDir + "\\Environment.ini");
   if (IniFile) {
    IniFile->WriteInteger("Printer", "Style", rgMode->ItemIndex);
    IniFile->WriteInteger("Printer", "Data", rgData->ItemIndex);
    IniFile->WriteInteger("Printer", "Chain", rgChain->ItemIndex);
    if(rbOption1->Checked)
      IniFile->WriteInteger("Printer", "Option", 1);
    else if(rbOption2->Checked)
      IniFile->WriteInteger("Printer", "Option", 2);
    else if(rbOption3->Checked)
      IniFile->WriteInteger("Printer", "Option", 3);
    else if(rbOption4->Checked)
      IniFile->WriteInteger("Printer", "Option", 4);
    else if(rbOption5->Checked)
      IniFile->WriteInteger("Printer", "Option", 5);
    else if(rbOption6->Checked)
      IniFile->WriteInteger("Printer", "Option", 6);
    else if(rbOption7->Checked)
      IniFile->WriteInteger("Printer", "Option", 7);
    else if(rbOption8->Checked)
      IniFile->WriteInteger("Printer", "Option", 8);
    else if(rbOption9->Checked)
      IniFile->WriteInteger("Printer", "Option", 9);

    delete IniFile;
  }

}
//---------------------------------------------------------------------------
void __fastcall TPrintForm::rgDataClick(TObject *Sender)
{
  int barCount = Main->maindata.bar;

  if(rgData->ItemIndex==2 && rgData->Enabled) {
    gbOption->Enabled=true;
    rbOption1->Enabled = true;
    rbOption2->Enabled = true;

    if (Main->LayerMode) {  //Bar
      if(barCount-1 >= 0)
        rbOption3->Enabled = true;
      else
        rbOption3->Enabled = false;

      if(barCount-2 >= 0)
        rbOption4->Enabled = true;
      else
        rbOption4->Enabled = false;

      if(barCount-3 >= 0)
        rbOption5->Enabled = true;
      else
        rbOption5->Enabled = false;

      if(barCount-4 >= 0)
        rbOption6->Enabled = true;
      else
        rbOption6->Enabled = false;

      if(barCount-5 >= 0)
        rbOption7->Enabled = true;
      else
        rbOption7->Enabled = false;

      if(barCount-6 >= 0)
        rbOption8->Enabled = true;
      else
        rbOption8->Enabled = false;

      if(barCount-7 >= 0)
        rbOption9->Enabled = true;
      else
        rbOption9->Enabled = false;
    }
    else {//Layer
      if(Main->maindata.bar >= 1)
        rbOption3->Enabled = true;
      else
        rbOption3->Enabled = false;

      if(Main->maindata.bar >= 2)
        rbOption4->Enabled = true;
      else
        rbOption4->Enabled = false;

      if(Main->maindata.bar >= 3)
        rbOption5->Enabled = true;
      else
        rbOption5->Enabled = false;

      if(Main->maindata.bar >= 4)
        rbOption6->Enabled = true;
      else
        rbOption6->Enabled = false;

      if(Main->maindata.bar >= 5)
        rbOption7->Enabled = true;
      else
        rbOption7->Enabled = false;

      if(Main->maindata.bar >= 6)
        rbOption8->Enabled = true;
      else
        rbOption8->Enabled = false;

      if(Main->maindata.bar >= 7)
        rbOption9->Enabled = true;
      else
        rbOption9->Enabled = false;
    }
  } else {
    gbOption->Enabled=false;
    rbOption1->Enabled = false;
    rbOption2->Enabled = false;
    rbOption3->Enabled = false;
    rbOption4->Enabled = false;
    rbOption5->Enabled = false;
    rbOption6->Enabled = false;
    rbOption7->Enabled = false;
    rbOption8->Enabled = false;
    rbOption9->Enabled = false;
  }


  SetPrinterLabel();
}
//---------------------------------------------------------------------------

void __fastcall TPrintForm::SetPrinterLabel(){
  if(rgMode->ItemIndex==0){
    lbPrinter->Caption = IDS_COMMON_PRINTER + " : " + HiddenPrintDataForm->printer_qrSimple;
  }
  else if(rgMode->ItemIndex==1){
    lbPrinter->Caption = IDS_COMMON_PRINTER + " : " + HiddenPrintDataForm->printer_qrSimpleLandscape;
  }
  else if(rgMode->ItemIndex==2){
    if(rgData->ItemIndex==0){
      lbPrinter->Caption = IDS_COMMON_PRINTER + " : " + HiddenPrintDataForm->printer_qrStandardSimulation;
    }
    else if(rgData->ItemIndex==1){
      lbPrinter->Caption = IDS_COMMON_PRINTER + " : " + HiddenPrintDataForm->printer_qrStandardDesign;
    }
    else if(rgData->ItemIndex==2){
      lbPrinter->Caption = IDS_COMMON_PRINTER + " : " + HiddenPrintDataForm->printer_qrStandardDesignImage;
    }
    else if(rgData->ItemIndex==3){
      lbPrinter->Caption = IDS_COMMON_PRINTER + " : " + HiddenPrintDataForm->printer_qrStandardYarn;
    }
    else if(IsVivien()){
      if(rgData->ItemIndex==4){
        lbPrinter->Caption = IDS_COMMON_PRINTER + " : " + HiddenPrintDataForm->printer_qrStandardYarnVivien;
      }
      else if(rgData->ItemIndex==5){
        lbPrinter->Caption = IDS_COMMON_PRINTER + " : " + HiddenPrintDataForm->printer_qrTotalCost;
      }
    }else if(rgData->ItemIndex==4){
      lbPrinter->Caption = IDS_COMMON_PRINTER + " : " + HiddenPrintDataForm->printer_qrTotalCost;
    }
  }
  Repaint();
}
//---------------------------------------------------------------------------

void __fastcall TPrintForm::rbCoursePrint1Click(TObject *Sender)
{
rbCoursePrint2->Checked = !rbCoursePrint1->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TPrintForm::rbCoursePrint2Click(TObject *Sender)
{
rbCoursePrint1->Checked = !rbCoursePrint2->Checked;
}
//---------------------------------------------------------------------------


//CompositeReport¿¡´Â PreviewModal Method°¡ ¾ø¾î¼­ ¿­·Á ÀÖ´Â FormÀÌ ¾ÕÀ¸·Î ¶ß´Â Çö»óÀÌ ¹ß»ýÇß´Ù.
//µû¶ó¼­ È°¼ºÈ­µÇ¾îÀÖ´Â Window¸¦ ã¾Æ¼­ ²¨ÁÖ°í PrintFormÀÌ ´ÝÈ÷¸é ´Ù½Ã È°¼ºÈ­½ÃÄÑÁØ´Ù - kisub
bool CALLBACK DoDisableWindow(HWND hWnd, LPARAM Data)
{
    TList *Lst;
    Lst=(TList *)Data;
    HWND TaskActiveWindow;

    if( (hWnd!=TaskActiveWindow) && IsWindowVisible(hWnd) && IsWindowEnabled(hWnd) )
    {
        Lst->Add(hWnd);
        EnableWindow(hWnd, false);
    }
    return true;
}
//-------------------------------------------------------------------------
void __fastcall TPrintForm::DisableTaskWindows(HWND ActiveHwnd , TList *lst)
{
    try
    {
        TaskActiveWindow=ActiveHwnd;
        EnumThreadWindows(GetCurrentThreadId(), (WNDENUMPROC)DoDisableWindow, (LPARAM)lst);
    }
    catch(...)
    {
        EnableTaskWindows(lst);
    }
}
//-------------------------------------------------------------------------
void __fastcall TPrintForm::EnableTaskWindows(TList *lst)
{
    for(int i=0;i<lst->Count;i++)
    {
        EnableWindow(lst->Items[i], true);
    }
}
//-------------------------------------------------------------------------
void __fastcall TPrintForm::CmpReportShowModal(TQRCompositeReport *QRRep_Pages)
{
    if(QRRep_Pages==NULL)return;

    TList *Lst=new TList;
    DisableTaskWindows(NULL,Lst);
    QRRep_Pages->Preview();
    EnableTaskWindows(Lst);
    delete Lst;
 
}
//-------------------------------------------------------------------------