view/CopalPro/OpenFile.cpp

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

#include "OpenFile.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFOpenFile *FOpenFile;
//---------------------------------------------------------------------------
__fastcall TFOpenFile::TFOpenFile(TComponent* Owner)
    : TForm(Owner) {}
//---------------------------------------------------------------------------
bool
TFOpenFile::Execute(void) {
  EdText->Text = FMain->GetCopalConfig()->SaveResultFile;
  int mr = ShowModal();

  if(mr == mrOk) {
    FileName = EdText->Text;
    return true;
  } else {
    return false;
  }
}
//---------------------------------------------------------------------------
void __fastcall
TFOpenFile::BtBrouseClick(TObject *Sender) {
  AnsiString Temp = GetCurrentDir();
  if(!OpenDialog->Execute()) {
    return;
  }
  EdText->Text = OpenDialog->FileName;
  EdText->SetFocus();
  SetCurrentDir(Temp);
}
//---------------------------------------------------------------------------
