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

#include "WinInterface.h"
#include <VCLCommon.h>
#include <Windows.hpp>
#include <Consts.hpp>
#include <HistoryComboBox.hpp>
#include <PasTools.hpp>
#include <PasswordEdit.hpp>
#include <Custom.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
class TInputDialog : public TCustomDialog
{
public:
  __fastcall TInputDialog(
    const UnicodeString & ACaption, const UnicodeString & Prompt, const UnicodeString & HelpKeyword,
    TStrings * History, bool PathInput, TInputDialogInitialize OnInitialize, bool Echo);

  bool __fastcall Execute(UnicodeString & Value);

protected:
  DYNAMIC void __fastcall DoShow();

private:
  bool FPathInput;
  TInputDialogInitialize FOnInitialize;
  TStrings * FHistory;
  TCustomEdit * Edit;
  THistoryComboBox * HistoryCombo;
};
//---------------------------------------------------------------------------
__fastcall TInputDialog::TInputDialog(
  const UnicodeString & ACaption, const UnicodeString & Prompt, const UnicodeString & HelpKeyword,
  TStrings * History, bool PathInput, TInputDialogInitialize OnInitialize, bool Echo) :
  TCustomDialog(HelpKeyword)
{
  Caption = ACaption;
  FPathInput = PathInput;
  FOnInitialize = OnInitialize;
  FHistory = History;

  ClientWidth = ScaleByTextHeight(this, 275);

  TLabel * Label = CreateLabel(Prompt);
  if (History == NULL)
  {
    if (Echo)
    {
      Edit = new TEdit(this);
    }
    else
    {
      Edit = new TPasswordEdit(this);
    }
    HistoryCombo = NULL;
    AddEditLikeControl(Edit, Label);
    reinterpret_cast<TEdit *>(Edit)->MaxLength = 255;
  }
  else
  {
    DebugAssert(Echo);
    HistoryCombo = new THistoryComboBox(this);
    AddEditLikeControl(HistoryCombo, Label);
    HistoryCombo->MaxLength = 255;
    HistoryCombo->AutoComplete = false;
    Edit = NULL;
  }
}
//---------------------------------------------------------------------------
void __fastcall TInputDialog::DoShow()
{
  TCustomDialog::DoShow();

  if (FOnInitialize != NULL)
  {
    TInputDialogData Data;
    Data.Edit = Edit;
    FOnInitialize(this, &Data);
  }

  if (FPathInput)
  {
    if (FHistory == NULL)
    {
      InstallPathWordBreakProc(Edit);
    }
    else
    {
      InstallPathWordBreakProc(HistoryCombo);
    }
  }
}
//---------------------------------------------------------------------------
bool __fastcall TInputDialog::Execute(UnicodeString & Value)
{
  if (FHistory == NULL)
  {
    Edit->Text = Value;
    Edit->SelectAll();
  }
  else
  {
    HistoryCombo->Items = FHistory;
    HistoryCombo->Text = Value;
    HistoryCombo->SelectAll();
  }

  bool Result = TCustomDialog::Execute();

  if (Result)
  {
    if (FHistory != NULL)
    {
      HistoryCombo->SaveToHistory();
      FHistory->Assign(HistoryCombo->Items);
      Value = HistoryCombo->Text;
    }
    else
    {
      Value = Edit->Text;
    }
  }

  return Result;
}
//---------------------------------------------------------------------------
bool __fastcall InputDialog(const UnicodeString ACaption,
  const UnicodeString APrompt, UnicodeString & Value, UnicodeString HelpKeyword,
  TStrings * History, bool PathInput, TInputDialogInitialize OnInitialize, bool Echo)
{
  std::unique_ptr<TInputDialog> Dialog(new TInputDialog(ACaption, APrompt, HelpKeyword, History, PathInput, OnInitialize, Echo));
  return Dialog->Execute(Value);
}
//---------------------------------------------------------------------------