depform.cpp

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

/**************************************************************************
Project: WinAVRIDE        Class: Dependency Form
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 "DepForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ShowWindow (TStringList *list, TStringList *clist)
{
 int i;

 List = list;
 ListBox1->Items->Clear ();
 ComboBox1->Items->Clear ();
 for (i = 0;i < list->Count;i++)
 {
  ListBox1->Items->Add (list->Strings[i]);
 }
 for (i = 0;i < clist->Count;i++)
 {
  ComboBox1->Items->Add (clist->Strings[i]);
 }
 ShowModal ();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::CancelClick(TObject *Sender)
{
 ModalResult = mrCancel;
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button4Click(TObject *Sender)
{
 AnsiString temp;
 int i;

 if (ComboBox1->ItemIndex == -1) return;
 temp = ComboBox1->Items->Strings[ComboBox1->ItemIndex];
 for (i = 0;i < ListBox1->Items->Count;i++)
 {
  if (ListBox1->Items->Strings[i] == temp) return; // Allready in List
 }
 ListBox1->Items->Add (temp);
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button3Click(TObject *Sender)
{
 int i;

 while (ListBox1->SelCount)
 {
  for (i = 0;i < ListBox1->Items->Count;i++)
  {
   if (ListBox1->Selected[i]) ListBox1->Items->Delete (i);
  }
 }
}
//---------------------------------------------------------------------------

void __fastcall TForm2::OkButtonClick(TObject *Sender)
{
 int i;

 List->Clear ();
 for (i = 0;i < ListBox1->Items->Count;i++)
 {
  List->Add (ListBox1->Items->Strings[i]);
 }
 ModalResult = mrOk;
}
//---------------------------------------------------------------------------