view/CopalPro/OpenDir.cpp

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

#include "OpenDir.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFOpenDir *FOpenDir;
//---------------------------------------------------------------------------
__fastcall TFOpenDir::TFOpenDir(TComponent* Owner)
    : TForm(Owner) {}
//---------------------------------------------------------------------------
bool TFOpenDir::Execute(void) {
  AnsiString DirOld = GetCurrentDir();
  DirectoryListBox->Directory = DirOld;

  int mr = ShowModal();
  Dir = DirectoryListBox->Directory;

  if(mr == mrOk) {
    return true;
  } else {
    SetCurrentDir(DirOld);
    return false;
  }
}
//---------------------------------------------------------------------------

void __fastcall TFOpenDir::FormKeyPress(TObject *Sender, char &Key) {
  switch(Key) {
  case VK_ESCAPE:
    ModalResult = mrCancel;
    break;
  }
}
//---------------------------------------------------------------------------
