//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
#include "MessageDialogBox_F.h"
#include "Common.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMessageDialog *MessageDialog;
//---------------------------------------------------------------------------
__fastcall TMessageDialog::TMessageDialog(TComponent* Owner)
  : TForm(Owner)
{
//
}
//---------------------------------------------------------------------------

void __fastcall TMessageDialog::FormCreate(TObject *Sender)
{
  bFirst = true;
}
//---------------------------------------------------------------------------

void __fastcall TMessageDialog::FormDestroy(TObject *Sender)
{
  if (DialogButtons) {
    for (int i = 0; i < DialogButtons->Count; i++) {
      TBitBtn *TempBitBtn;
      TempBitBtn = (TBitBtn *)FindComponent(DialogButtons->Strings[i]);
      if (TempBitBtn) {
        delete TempBitBtn;
        TempBitBtn = NULL;
      }
    }

    DialogButtons->Clear();

    delete DialogButtons;
    DialogButtons = NULL;
  }
}
//---------------------------------------------------------------------------
void __fastcall TMessageDialog::FormActivate(TObject *Sender)
{
  if (bFirst) {
    TBitBtn *TempBitBtn;
    TempBitBtn = (TBitBtn *)FindComponent(DlgDefaultBtn);
    TempBitBtn->SetFocus();
    bFirst = false;
  }
}
//---------------------------------------------------------------------------

void __fastcall TMessageDialog::InitForm(String DlgMsg, String DlgCaption,
 String DlgButtons, String DlgDefaultBtn)
{
  // 버튼의 수가 많거나 메시지의 길이가 적어서, lbMessage 보다 버튼의 길이가 길때의 계산은 하지 않았다.
  // 나중에 보완해야할 것으로 보인다 - by monkman (2004.06.14)
  int nLeft = 0, nWidth = 0, MessageWidth = 0, ButtonMaxWidth = 0, ButtonWidth = 8;  // ButtonWidth = 10은 Gap
  int Cnt;
  bool Continued;
  String TempText;
  TBitBtn *TempBitBtn;
  TImage *imageTemp;        // Button 쓰여지는 Caption의 너비, 높이를 Pixel로 구하는데 사용한다

  DialogButtons = new TStringList;
  imageTemp = new TImage(this);

  if (!DlgMsg.IsEmpty()) {
    lbMessage->Caption = DlgMsg;
  } else {
    lbMessage->Caption = "";
  }

  if (!DlgCaption.IsEmpty()) {
    Caption = DlgCaption;
  } else {
    Caption = "Message Box Dialog";
  }

  // 레이블의 길이 구하기
  MessageWidth = lbMessage->Left + lbMessage->Width + 8;

  // 버튼 생성 (버튼의 Width = 63, Height = 23 으로 고정)
  Cnt = 1;
  Continued = true;
  if (!DlgButtons.IsEmpty()) {
    while (Continued) {
        TempText = StringTokenParse(&DlgButtons, &Continued);
      if (!TempText.IsEmpty()) {
        TempBitBtn = new TBitBtn(this);
        TempBitBtn->Caption = TempText;
        TempBitBtn->Top = lbMessage->Top + lbMessage->Height + 30;
        TempBitBtn->Left = 0;
        TempBitBtn->Width = imageTemp->Canvas->TextWidth(TempText) + 8;
        TempBitBtn->Height = 23;
        TempBitBtn->ModalResult = Cnt;
        TempBitBtn->Parent = this;
        TempBitBtn->Name = RemoveAmpersand(TempText);
        TempBitBtn->Tag = Cnt;
        TempBitBtn->OnClick = btClick;
        DialogButtons->Add(TempBitBtn->Name);
        ButtonMaxWidth = max(TempBitBtn->Width, ButtonMaxWidth);
        Cnt++;
      }
    }
  }

  // Button길이에 Gap 넣기
  ButtonWidth += ((ButtonMaxWidth+8)*DialogButtons->Count);

  // 버튼의 길이 구하기
  if (MessageWidth < ButtonWidth) {
    ClientWidth = ButtonWidth;
    nLeft = 8;
  } else {
    ClientWidth = MessageWidth;
    nLeft = 8 + (MessageWidth - ButtonWidth) / 2;
  }
  ClientHeight = TempBitBtn->Top + TempBitBtn->Height + 8;  // 마지막 버튼으로 계산

  // 버튼 간격 조절
  for (int i = 0; i < DialogButtons->Count; i++) {
    TempBitBtn = (TBitBtn *)FindComponent(DialogButtons->Strings[i]);
    TempBitBtn->Width = ButtonMaxWidth;
    TempBitBtn->Left = nLeft;
    nLeft += (ButtonMaxWidth + 8);
  }

  if (imageTemp) {
    delete imageTemp;
    imageTemp = NULL;
  }
}
//---------------------------------------------------------------------------

String __fastcall TMessageDialog::StringTokenParse(String *Text, bool *Continued)
{
  String TokenText;

  for (int i = 1; i < Text->Length(); i++) {
    if (Text->SubString(i, 1) == "|") {
      TokenText = Text->SubString(1, i-1);
      *Text = Text->SubString(i+1, Text->Length());
      break;
    }
    if (i == Text->Length()-1) {
      TokenText = Text->SubString(1, Text->Length());
      *Text = Text->SubString(1, Text->Length());
      *Continued = false;
    }
  }

  return TokenText;
}
//---------------------------------------------------------------------------
String __fastcall TMessageDialog::RemoveAmpersand(String Text)
{
  String TokenText;

  TokenText = Text;
  for (int i = 1; i < Text.Length(); i++) {
    if (Text.SubString(i, 1) == "&") {
      TokenText = Text.SubString(1, i-1) + Text.SubString(i+1, Text.Length());
      break;
    }
  }

  // 변수명으로 사용할 수 없는 문자들을 교체
  SubStrReplace(TokenText, " ", "_");
  SubStrReplace(TokenText, "\\", "_");
  SubStrReplace(TokenText, "/", "_");
  SubStrReplace(TokenText, ":", "_");
  SubStrReplace(TokenText, "*", "_");
  SubStrReplace(TokenText, "?", "_");
  SubStrReplace(TokenText, "<", "_");
  SubStrReplace(TokenText, ">", "_");

  return TokenText;
}
//---------------------------------------------------------------------------
void __fastcall TMessageDialog::btClick(TObject *Sender)
{
  TBitBtn *TempBitBtn;

  TempBitBtn = (TBitBtn *)Sender;

  TagNum = TempBitBtn->Tag;
}
//---------------------------------------------------------------------------
// 메시지박스다이얼로그 - by monkman (2004.06.08) - with celberus
int __fastcall MessageDialogFunc(String DlgMsg, String DlgCaption,
 String DlgButtons, String DlgDefaultBtn)
{
  int TagNum;
  TagNum = 0;
  MessageDialog = new TMessageDialog(Application);
  MessageDialog->InitForm(DlgMsg, DlgCaption, DlgButtons, DlgDefaultBtn);
  MessageDialog->DlgDefaultBtn = DlgDefaultBtn;
  MessageDialog->ShowModal();
  TagNum = MessageDialog->TagNum;  
  delete MessageDialog;

  return TagNum;
}
//---------------------------------------------------------------------------