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

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FileListBox1DblClick(TObject *Sender)
{
  AnsiString str, data;
  int i, l, p;

  TIniFile *IniFile = new TIniFile(FileListBox1->FileName);
  i = 0;
  while (1) {
    str = IniFile->ReadString("Background", AnsiString(i), "");
    l = str.Length();
    if (l <= 0) break;
    p = str.Pos(",");
    if (p > 0) {
      data = str.SubString(0, p - 1);
      str = str.SubString(p + 1, l - p);
    } else {
      data = str;
    }
    if (data == "Line") AnalysisLine(str);
    else if (data == "Box") AnalysisBox(str);
    i++;
  }
  delete IniFile;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AnalysisLine(AnsiString str)
{
  int p, l = str.Length();
  AnsiString data;

    p = str.Pos(",");
    if (p > 0) {
      data = str.SubString(0, p - 1);
      str = str.SubString(p + 1, l - p);
      l -= p;
    } else {
      data = str;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AnalysisBox(AnsiString str)
{
  int p, l = str.Length();
  AnsiString data;

    p = str.Pos(",");
    if (p > 0) {
      data = str.SubString(0, p - 1);
      str = str.SubString(p + 1, l - p);
      l -= p;
    } else {
      data = str;
    }
}
//---------------------------------------------------------------------------