toolsdlg.cpp

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

/**************************************************************************
Project: WinAVRIDE        Class: Tool Settings 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 "ToolsDlg.h"
#include "ToolSet.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TToolDlg *ToolDlg;
//---------------------------------------------------------------------------
__fastcall TToolDlg::TToolDlg(TComponent* Owner)
        : TForm(Owner)
{
 Tools = new TStringList;
 ToolFiles = new TStringList;
 Params = new TStringList;
 WorkingDir = new TStringList;
}
//---------------------------------------------------------------------------
__fastcall TToolDlg::~TToolDlg(void)
{
 delete Tools;
 delete ToolFiles;
 delete Params;
 delete WorkingDir;
}
//---------------------------------------------------------------------------
void __fastcall TToolDlg::CancelClick(TObject *Sender)
{
 ModalResult = mrCancel;        
}
//---------------------------------------------------------------------------
void __fastcall TToolDlg::OkButtonClick(TObject *Sender)
{
 Tools->Assign (ToolTemp);
 ToolFiles->Assign (FileTemp);
 Params->Assign (ParTemp);
 WorkingDir->Assign (WDTemp);
 ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TToolDlg::ShowWindow (void)
{
 ToolTemp = new TStringList;
 FileTemp = new TStringList;
 ParTemp = new TStringList;
 WDTemp = new TStringList;
 ToolTemp->Assign (Tools);
 FileTemp->Assign (ToolFiles);
 ParTemp->Assign (Params);
 WDTemp->Assign (WorkingDir);
 ToolList->Clear ();
 ToolList->Items->Assign (ToolTemp);
 Position = poScreenCenter;
 ShowModal ();
 delete ToolTemp;
 delete FileTemp;
 delete ParTemp;
 delete WDTemp;
}
//---------------------------------------------------------------------------
void __fastcall TToolDlg::AddButtonClick(TObject *Sender)
{
 ToolSettings->FFileName = "";
 ToolSettings->FToolName = "Tool " + AnsiString ((int)ToolList->Items->Count);
 ToolSettings->FParams = "";
 ToolSettings->FWorkDir = "";
 ToolSettings->ShowWindow ();
 if (ToolSettings->ModalResult == mrOk)
 {
  if (ToolSettings->FToolName == "") ToolSettings->FToolName = "Tool " +
                              AnsiString ((int)ToolList->Items->Count);
  ToolTemp->Add (ToolSettings->FToolName);
  FileTemp->Add (ToolSettings->FFileName);
  ParTemp->Add (ToolSettings->FParams);
  WDTemp->Add (ToolSettings->FWorkDir);
  ToolList->Clear ();
  ToolList->Items->Assign (ToolTemp);
 }
}
//---------------------------------------------------------------------------

void __fastcall TToolDlg::DelButtonClick(TObject *Sender)
{
 int i;

 i = ToolList->ItemIndex;
 if (i == -1) return;
 ToolList->Items->Delete (i);
 ToolTemp->Delete (i);
 FileTemp->Delete (i);
 ParTemp->Delete (i);
 WDTemp->Delete (i);
 if (i < ToolList->Items->Count) ToolList->ItemIndex = i;
 else if (ToolList->Items->Count > 0) ToolList->ItemIndex = ToolList->Items->Count - 1;
}
//---------------------------------------------------------------------------

void __fastcall TToolDlg::EdButtonClick(TObject *Sender)
{
 int i;

 i = ToolList->ItemIndex;
 if (i < 0) return;
 ToolSettings->FFileName = FileTemp->Strings[i];
 ToolSettings->FToolName = ToolTemp->Strings[i];
 ToolSettings->FParams = ParTemp->Strings[i];
 ToolSettings->FWorkDir = WDTemp->Strings[i];
 ToolSettings->ShowWindow ();
 if (ToolSettings->ModalResult == mrOk)
 {
  if (ToolSettings->FToolName == "") ToolSettings->FToolName = "Tool " +
                              AnsiString ((int)ToolList->Items->Count);
  ToolTemp->Delete (i);
  ToolTemp->Insert (i, ToolSettings->FToolName);
  FileTemp->Delete (i);
  FileTemp->Insert (i, ToolSettings->FFileName);
  ParTemp->Delete (i);
  ParTemp->Insert (i, ToolSettings->FParams);
  WDTemp->Delete (i);
  WDTemp->Insert (i, ToolSettings->FWorkDir);
  ToolList->Clear ();
  ToolList->Items->Assign (ToolTemp);
 }
}
//---------------------------------------------------------------------------
void __fastcall TToolDlg::LoadSettings (TIniFile *settings)
{
 int i, d, c;
 AnsiString temp, t;

 d = settings->ReadInteger ("Tools", "Count", 0);
 for (i = 0;i < d;i++)
 {
  temp = "ToolName" + AnsiString ((int)i);
  t = settings->ReadString ("Tools", temp, NULL);
  Tools->Add (t);
  temp = "ToolFile" + AnsiString ((int)i);
  t = settings->ReadString ("Tools", temp, NULL);
  for (c = 1;c <= t.Length ();c++) // TInifile can't deal with quotation marks
  {                                // therefore they are replaced with ^
   if (t[c] == '^') t[c] = '\"';
  }
  ToolFiles->Add (t);
  temp = "ToolPara" + AnsiString ((int)i);
  t = settings->ReadString ("Tools", temp, NULL);
  for (c = 1;c <= t.Length ();c++)
  {
   if (t[c] == '^') t[c] = '\"';
  }
  Params->Add (t);
  temp = "WorkDir" + AnsiString ((int)i);
  t = settings->ReadString ("Tools", temp, NULL);
  for (c = 1;c <= t.Length ();c++)
  {
   if (t[c] == '^') t[c] = '\"';
  }
  WorkingDir->Add (t);
 }
}
//---------------------------------------------------------------------------
void __fastcall TToolDlg::SaveSettings (TIniFile *settings)
{
 int i, d, c;
 AnsiString temp, t;

 d = Tools->Count;
 settings->WriteInteger ("Tools", "Count", d);
 for (i = 0;i < d;i++)
 {
  temp = "ToolName" + AnsiString ((int)i);
  settings->WriteString ("Tools", temp, Tools->Strings[i]);
  temp = "ToolFile" + AnsiString ((int)i);
  t = ToolFiles->Strings[i];
  for (c = 1;c <= t.Length ();c++) // TInifile can't deal with quotation marks
  {                                // therefore we replace them with ^
   if (t[c] == '\"') t[c] = '^';
  }
  settings->WriteString ("Tools", temp, t);
  temp = "ToolPara" + AnsiString ((int)i);
  t = Params->Strings[i];
  for (c = 1;c <= t.Length ();c++)
  {
   if (t[c] == '\"') t[c] = '^';
  }
  settings->WriteString ("Tools", temp, t);
  temp = "WorkDir" + AnsiString ((int)i);
  t = WorkingDir->Strings[i];
  for (c = 1;c <= t.Length ();c++)
  {
   if (t[c] == '\"') t[c] = '^';
  }
  settings->WriteString ("Tools", temp, t);
 }
}
//---------------------------------------------------------------------------