//---------------------------------------------------------------------------
#ifdef WORKSHEET
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "ExportDXF_F.h"
#include "WorkSheet_F.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzButton"
#pragma link "RzPanel"
#pragma link "RzShellCtrls"
#pragma link "RzTreeVw"
#pragma link "RzGrids"
#pragma resource "*.dfm"

#define IDS_CAPTION                    StringTable[0]
#define IDS_MAKEFOLDER                 StringTable[1]
#define IDS_CLOSE                      StringTable[2]
#define IDS_FILENAME                   StringTable[3]
#define IDS_MESSAGE0                   StringTable[4]
//---------------------------------------------------------------------------
TExportDXFForm *ExportDXFForm;
//---------------------------------------------------------------------------
__fastcall TExportDXFForm::TExportDXFForm(TComponent* Owner)
  : TForm(Owner)
{
  StringTable.Create(DirectoryItem, Language, "ExportDXFForm");

  DirectoryListBox->Align = alClient;

  PathStringList = new TStringList;
  PathStringList->Clear();

  Caption = IDS_CAPTION;
  btnMakeFolder->Caption = IDS_MAKEFOLDER;
  btnExpDxf->Caption = IDS_CAPTION;
  btnClose->Caption = IDS_CLOSE;
}
//---------------------------------------------------------------------------
__fastcall TExportDXFForm::~TExportDXFForm()
{
  if (PathStringList) delete PathStringList;
  PathStringList = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TExportDXFForm::btnExpDxfClick(TObject *Sender)
{
	WorkSheetForm->ExportDXFFile(DirectoryListBox->SelectedPathName);
	MessageDlg(IDS_MESSAGE0, mtInformation, TMsgDlgButtons() << mbOK, 0);
}
//---------------------------------------------------------------------------

void __fastcall TExportDXFForm::btnMakeFolderClick(TObject *Sender)
{
  String strDirectory;
  int nNumber = 1;

  if (strID.IsEmpty() == true) {
    DirectoryListBox->CreateNewFolder(true);
  }
  else {
    strDirectory = DirectoryListBox->SelectedPathName + "\\" + strID;
    if (DirectoryExists(strDirectory) == false) {
      CreateDirectory(strDirectory.c_str(), NULL);
    }
    DirectoryListBox->SelectedFolder->PathName = strDirectory;
  }
}
//---------------------------------------------------------------------------
void __fastcall TExportDXFForm::AddPath(String path)
{
  PathStringList->Add(path);
}
//---------------------------------------------------------------------------
void __fastcall TExportDXFForm::Init(String strAID)
{
  strID = strAID;

  RzStringGrid->RowCount = PathStringList->Count + 1;
  RzStringGrid->ClientHeight = (RzStringGrid->DefaultRowHeight * RzStringGrid->RowCount) + RzStringGrid->RowCount + 1;

  TIniFile *ExpPathINI;
	ExpPathINI = new TIniFile(AppDataItem+"\\Style.ini");
  if (ExpPathINI) {
    DirectoryListBox->SelectedPathName = ExpPathINI->ReadString("ExportDXFForm", "ExpDxfPath", "c:\\");
    delete ExpPathINI; ExpPathINI = NULL;
  }
}
//---------------------------------------------------------------------------

void __fastcall TExportDXFForm::RzStringGridDrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
  UINT uFormat;
  tagSIZE size;
  TRect CellRect;
  TRzStringGrid* StringGrid = static_cast<TRzStringGrid*>(Sender);
  TCanvas* ACanvas = StringGrid->Canvas;
  String CellText;
  ACanvas->Brush->Color = clWhite;
  ACanvas->Pen->Color = clBtnShadow;
  ACanvas->Font->Color = clBlack;

  if (ARow == 0) {
    ACanvas->Brush->Color = clBtnFace;
    ACanvas->Pen->Color = clWhite;
    ACanvas->Font->Color = clWindowText;
    CellText = IDS_FILENAME;
  }
  else {
    if (ARow-1 >= 0 && PathStringList->Count > ARow-1) { //ARow = 1ºÎÅÍ ½ÃÀ۵DZ⠶§¹®¿¡
      CellText = PathStringList->Strings[ARow-1];
    }
  }
  ACanvas->FillRect(Rect);

  //ÀÌ°÷Àº µ¦½ºÆ®ÀÛ¾÷ ¿µ¿ª
  GetTextExtentPoint32(GetDC(StringGrid->Handle), CellText.c_str(), _tcslen(CellText.c_str()), &size);
  if (size.cx > Rect.Width()) uFormat = DT_CENTER	| DT_WORDBREAK;
	else uFormat = DT_CENTER	| DT_VCENTER | DT_SINGLELINE;
  if (!CellText.IsEmpty()) {
    DrawText( ACanvas->Handle, CellText.c_str(), CellText.Length(), &Rect, uFormat);
  }
}
//---------------------------------------------------------------------------

void __fastcall TExportDXFForm::btnCloseClick(TObject *Sender)
{
  TIniFile *ExpPathINI;
  ExpPathINI = new TIniFile(AppDataItem+"\\Style.ini");
  if (ExpPathINI) {
    ExpPathINI->WriteString("ExportDXFForm", "ExpDxfPath", DirectoryListBox->SelectedPathName);
    delete ExpPathINI; ExpPathINI = NULL;
  }
  Close();
}
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------