//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "property.h"
#include "file.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tprofrm *profrm;
extern UFD *selfile;
extern MFD *mpos;
//---------------------------------------------------------------------------
__fastcall Tprofrm::Tprofrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tprofrm::Button1Click(TObject *Sender)
{
        int i,j,k;
        MFD *r;
        UFD *f;
        TListItem *ListItem;
        if(RadioButton1->Checked==true) i=100;
        else                            i=0;
        if(RadioButton3->Checked==true) j=10;
        else                            j=0;
        if(RadioButton5->Checked==true) k=1;
        else                            k=0;
        selfile->filename=EditName->Text;
        selfile->pt=i+j+k;

        mainfrm->ListView->Clear();
       if(mpos==NULL)   return;
       for(r=mpos->folder;r!=NULL;r=r->next)
       {
        if(r==NULL)  break;
        ListItem=mainfrm->ListView->Items->Add();
        ListItem->Caption=r->name;
        ListItem->ImageIndex=0;
       }
       for(f=mpos->file;f!=NULL;f=f->next)
       {
        if(f==NULL)  break;
        ListItem=mainfrm->ListView->Items->Add();
        ListItem->Caption=f->filename;
        ListItem->ImageIndex=1;
       }
       this->Hide();
}
//---------------------------------------------------------------------------
void __fastcall Tprofrm::Button2Click(TObject *Sender)
{
        this->Hide();        
}
//---------------------------------------------------------------------------
void __fastcall Tprofrm::EditNameChange(TObject *Sender)
{
        Button3->Enabled=true;        
}
//---------------------------------------------------------------------------
void __fastcall Tprofrm::RadioButton1Click(TObject *Sender)
{
        Button3->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall Tprofrm::RadioButton3Click(TObject *Sender)
{
        Button3->Enabled=true;        
}
//---------------------------------------------------------------------------
void __fastcall Tprofrm::RadioButton5Click(TObject *Sender)
{
        Button3->Enabled=true;        
}
//---------------------------------------------------------------------------
void __fastcall Tprofrm::Button3Click(TObject *Sender)
{
        Button3->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall Tprofrm::RadioButton2Click(TObject *Sender)
{
        Button3->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall Tprofrm::RadioButton4Click(TObject *Sender)
{
        Button3->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall Tprofrm::RadioButton6Click(TObject *Sender)
{
        Button3->Enabled=true;
}
//---------------------------------------------------------------------------