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

#include "MakeTitle.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "TPStretchImage"
#pragma link "cdiroutl"
#pragma resource "*.dfm"
TMakeTitleForm *MakeTitleForm;
//---------------------------------------------------------------------------
__fastcall TMakeTitleForm::TMakeTitleForm(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TMakeTitleForm::FormCreate(TObject *Sender)
{
  BMP = new TTexpiaBitmap;
  if (!(BMP->Create(SImage->Width, SImage->Height, 24))) goto fail;
  BMP->FillRect(Rect(0, 0, SImage->Width, SImage->Height), clWhite);
  SImage->Bitmap = BMP;
  return;

fail:
  ShowMessage("Can't create Bmp");
}
//---------------------------------------------------------------------------

void __fastcall TMakeTitleForm::FormDestroy(TObject *Sender)
{
  if (BMP) {delete BMP; BMP = NULL;}
}
//---------------------------------------------------------------------------

void __fastcall TMakeTitleForm::DriveComboBox1Change(TObject *Sender)
{
  FileListBox1->Drive = DriveComboBox1->Drive;
  DirectoryListBox1->Drive = FileListBox1->Drive;
  FileListBox1->Directory = DirectoryListBox1->Directory;
}
//---------------------------------------------------------------------------

void __fastcall TMakeTitleForm::FileListBox1DblClick(TObject *Sender)
{
  int cnt, i;

  cnt = FileListBox1->Items->Count;
  for (i=0; i<cnt; i++) {
    if (FileListBox1->Selected[i]) {
      if (FileExists(FileListBox1->Items->Strings[i])) {
        if (BMP) {delete BMP; BMP = NULL;}
        BMP = new TTexpiaBitmap;
//        BMP->LoadFromFile(FileListBox1->FileName);
        MainForm->LoadImage(FileListBox1->FileName, BMP);
        DirLabel->Caption = FileListBox1->FileName;
        SImage->Width = BMP->Width;
        SImage->Height = BMP->Height;
        SImage->Bitmap = BMP;
        SImage->Repaint();
        ReadTitle();
        Edit1->SetFocus();
        return;
      } else {
        ShowMessage("File doesn't exist!");
        return;
      }
    }
  }
}
//---------------------------------------------------------------------------

void __fastcall TMakeTitleForm::Splitter1Moved(TObject *Sender)
{
  DriveComboBox1->Width = Panel1->Width - 4;
  DirectoryListBox1->Width = Panel1->Width - 4;
  FileListBox1->Width = Panel1->Width - 4;

  Panel1->Repaint();
  DriveComboBox1->Repaint();
  DirectoryListBox1->Repaint();
  FileListBox1->Repaint();
}
//---------------------------------------------------------------------------

void __fastcall TMakeTitleForm::sbOKClick(TObject *Sender)
{
  AnsiString dir, fn, lfn, title;
  TIniFile *TitleIni;

  title = Edit1->Text;
  dir = DirectoryListBox1->Directory;
  lfn = FileListBox1->FileName;

  fn = lfn.SubString(dir.Length() + 2, lfn.Length() - dir.Length()-1);
	TitleIni = new TIniFile(dir + "\\Title.ini");
  TitleIni->WriteString("Image Title", fn, title);
  delete TitleIni;

}
//---------------------------------------------------------------------------
void __fastcall TMakeTitleForm::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if (Key == VK_RETURN) {
    sbOKClick(NULL);
  }
}
//---------------------------------------------------------------------------
void __fastcall TMakeTitleForm::ReadTitle()
{
  AnsiString dir, fn, lfn;
  TIniFile *TitleIni;

  dir = DirectoryListBox1->Directory;
  lfn = FileListBox1->FileName;
  fn = lfn.SubString(dir.Length() + 2, lfn.Length() - dir.Length()-1);

	TitleIni = new TIniFile(dir + "\\Title.ini");
  Edit1->Text = TitleIni->ReadString("Image Title", fn, "");
  delete TitleIni;
}
//---------------------------------------------------------------------------
void __fastcall TMakeTitleForm::sbExitClick(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------