toolset.cpp

用于开发Atmel的AVR系列单片机的GCC集成开发环境

/**************************************************************************
Project: WinAVRIDE        Class: Tool Settings Sub-Dialog
Copyright (C) 2005  Philipp Schober

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

History
19.Feb 2005 - First Release (V1.0)
****************************************************************************/

#include <vcl.h>
#pragma hdrstop

#include "ToolSet.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TToolSettings *ToolSettings;
//---------------------------------------------------------------------------
__fastcall TToolSettings::TToolSettings(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TToolSettings::OkButtonClick(TObject *Sender)
{
 FToolName = ToolName->Text;
 FFileName = FileName->Text;
 FParams = Parameters->Text;
 FWorkDir = WorkDir->Text;
 ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TToolSettings::CancelClick(TObject *Sender)
{
 ModalResult = mrCancel;        
}
//---------------------------------------------------------------------------
void __fastcall TToolSettings::ShowWindow (void)
{
 ToolName->Text = FToolName;
 FileName->Text = FFileName;
 Parameters->Text = FParams;
 WorkDir->Text = FWorkDir;
 Position = poScreenCenter;
 ShowModal ();
}
//---------------------------------------------------------------------------
void __fastcall TToolSettings::FileButtonClick(TObject *Sender)
{
 OpenDialog1->Filter = "Executables (*.exe)|*.exe";
 OpenDialog1->DefaultExt = "exe";
 if (OpenDialog1->Execute ())
 {
  if (!FileExists (OpenDialog1->FileName))
  {
   Application->MessageBox ("File doesn't exist", "Error", MB_OK | MB_ICONERROR);
  }
  else
  {
   FileName->Text = OpenDialog1->FileName;
   if (WorkDir->Text == "") WorkDir->Text = ExtractFilePath (OpenDialog1->FileName);
  }
 }
}
//---------------------------------------------------------------------------