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

#include "common.h"
#include "ColorLibrary_F.h"
#include "PalFileManager.h"
//#include "MainImage.h"
#include "Palette.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DIB256s"
#pragma link "RzEdit"
#pragma link "RzPanel"
#pragma link "RzButton"
#pragma link "RzFilSys"
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
#define IDS_PALFILEMANAGER    StringTable[0]
#define IDS_DIRECTORY         StringTable[1]
#define IDS_FILENAME          StringTable[2]
#define IDS_IFREAD            StringTable[3]
#define IDS_IFMERGE           StringTable[4]
#define IDS_IFSAVE            StringTable[5]
#define IDS_IFSAVEAS          StringTable[6]
#define IDS_IFDELETE          StringTable[7]
#define IDS_IFRENAME          StringTable[8]
#define IDS_INPUTFILENAME     StringTable[9]

//---------------------------------------------------------------------------
__fastcall TPFMForm::TPFMForm(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::SetFont(){
  SetSmallFont(Font);
  SetSmallFont(Label1->Font);
  SetSmallFont(Label2->Font);
  SetSmallFont(Label3->Font);
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::FormCreate(TObject *Sender)
{

  SetFont();
  StringTable.Create(BaseDir, Language, "PalFileManager");
  Caption           = IDS_PALFILEMANAGER;
  SbRead->Caption   = IDS_COMMON_READ;
  SbMerge->Caption  = IDS_COMMON_MERGE;
  SbSave->Caption   = IDS_COMMON_SAVE;
  SbSaveAs->Caption = IDS_COMMON_SAVEAS;
  SbRename->Caption = IDS_COMMON_RENAME;
  SbDelete->Caption = IDS_COMMON_DELETE;
  //sbExit->Caption   = IDS_COMMON_EXIT;
  Label1->Caption   = IDS_COMMON_DRIVE;
  Label2->Caption   = IDS_DIRECTORY;
  Label3->Caption   = IDS_FILENAME;
  sbSv_as->Caption  = IDS_COMMON_SAVE;

  PFMDirectoryListBox->Directory = BaseDir+"\\color";
  Palette = new TPalette;
  for (int i=0; i<256; i++)
    Palette->ColorData[i]->Copy(PaletteForm->Palette->ColorData[i]);
  Palette->UseColor = PaletteForm->Palette->UseColor;
  ReviewPalette->SetPalette(Palette);//invisible»óÅ¿¡¼­ setpaletteÀ» ½ÇÇàÇÏ¸é ½ºÅ©·Ñ¹Ù°¡ ¿òÁ÷ÀÌÁö ¾Ê´Â´Ù//pascalÄÚµå¼ÓÀÇ UpdateScrollBar(True)ÀÌ ½ÇÇàµÉ¶§ visible stateÀ̾î¾ßÇÑ´Ù.
  Item = 0;
  StatusBar1->Panels->Items[2]->Text = IDS_IFREAD;
  ReviewPalette->Repaint();
  sbSv_as->Enabled = false;

}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::FormClose(TObject *Sender, TCloseAction &Action)
{
  delete Palette;
}
//---------------------------------------------------------------------------

void __fastcall TPFMForm::SbReadClick(TObject *Sender)
{
  Item = 0;
  StatusBar1->Panels->Items[2]->Text = IDS_IFREAD;
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::SbMergeClick(TObject *Sender)
{
  Item = 1;
  StatusBar1->Panels->Items[2]->Text = IDS_IFMERGE;
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::SbSaveClick(TObject *Sender)
{
  Item = 2;
  StatusBar1->Panels->Items[2]->Text = IDS_IFSAVE;
}
//---------------------------------------------------------------------------

void __fastcall TPFMForm::SbSaveAsClick(TObject *Sender)
{
  Item = 3;
  FileEdit->Clear();
  FileEdit->SetFocus();
  StatusBar1->Panels->Items[2]->Text = IDS_IFSAVEAS;
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::SbDeleteClick(TObject *Sender)
{
  Item = 5;
  StatusBar1->Panels->Items[2]->Text = IDS_IFDELETE;
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::SbRenameClick(TObject *Sender)
{
  Item = 4;
  StatusBar1->Panels->Items[2]->Text = IDS_IFRENAME;
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::sbExitClick(TObject *Sender)
{
  ModalResult = mrOk;
}
//---------------------------------------------------------------------------

void __fastcall TPFMForm::PFMFileListBoxDblClick(TObject *Sender)
{
  PChar s;
  AnsiString Name;
  switch (Item) {
    case 0:   //read
      if (PFMFileListBox->FileName=="")  return;
      PaletteForm->DIB256Palette->LoadFromFile(PFMFileListBox->FileName.c_str());
      PaletteForm->InitForm(PaletteForm->Palette);
      ColorLibraryForm->View();
      break;
    case 1:   //Merge
      MergeMethod();
      SbRead->Down = true;
      Item = 0;
      break;
    case 2:   //Save
      SaveMethod(FileEdit->Text);
      SbRead->Down = true;
      Item = 0;
      break;
    case 4:   //Rename
      Name = "";
      if (InputQuery(IDS_COMMON_RENAME, IDS_COMMON_INPUTNAME, Name)) {
        s = AnsiStrScan((PChar)Name.c_str(), '.');
        if (s==NULL) Name = Name+".fcr";
        RenameFile(PFMFileListBox->FileName, Name);
        PFMFileListBox->Update();
      }
      SbRead->Down = true;
      Item = 0;
      break;
    case 5:  //Delete
      if (PFMFileListBox->FileName=="") return;
      Delete_File(PFMFileListBox->FileName);
      PFMFileListBox->Update();
      SbRead->Down = true;
      Item = 0;
      break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::sbSv_asClick(TObject *Sender)
{
  PChar s;

  if (Item==3) {
    if (FileEdit->Text!="") {
      s = AnsiStrScan((PChar)FileEdit->Text.c_str(), '.');
      if (s==NULL) FileEdit->Text = FileEdit->Text+".fcr";
      PaletteForm->DIB256Palette->SaveToFile(FileEdit->Text.c_str());
    } else {
      Sysutils::Beep();
      MessageDlg(IDS_MESSAGE_INPUTFILE, mtWarning, TMsgDlgButtons()<<mbOK<<mbCancel, 0);
    }
    PFMFileListBox->Update();
  }
  sbSv_as->Enabled = false;
  SbRead->Down = true;
  Item = 0;            //k3dogs 1->0
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::FileEditChange(TObject *Sender)
{
  if (Item==3) {
    if (strlen(PChar(FileEdit->Text.c_str()))>0) sbSv_as->Enabled = true;
    else sbSv_as->Enabled = false;
  }
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::MergeMethod()
{
  int i, s, n;
  TPalette *Userpal;

  if (PFMFileListBox->FileName=="") return;
  Userpal = new TPalette;
  Userpal->LoadFromFile(PFMFileListBox->FileName.c_str());
  s = PaletteForm->DIB256Palette->Palette->UseColor;
  n = 251-PaletteForm->DIB256Palette->Palette->UseColor;
  for (i=1; i<n; i++)
    PaletteForm->DIB256Palette->Palette->ColorData[s+i] = Userpal->ColorData[i+1];
    PaletteForm->InitForm(PaletteForm->Palette);
     ColorLibraryForm->View();
  delete Userpal;
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::SaveMethod(AnsiString Name)
{
  PChar s;
  if (PFMFileListBox->FileName=="") return;
  if (Name!="") {
    s = AnsiStrScan((PChar)Name.c_str(), '.');
    if (s==NULL) Name = Name+".fcr";
    PaletteForm->DIB256Palette->SaveToFile(Name.c_str());
  } else {
    Sysutils::Beep();
    MessageDlg(IDS_MESSAGE_INPUTFILE, mtWarning, TMsgDlgButtons()<<mbOK<<mbCancel, 0);
  }
  PFMFileListBox->Update();
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::FileEditKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if (Key == VK_RETURN) sbSv_asClick(sbSv_as);
}
//---------------------------------------------------------------------------

void __fastcall TPFMForm::PFMFileListBoxClick(TObject *Sender)
{
  if (PFMFileListBox->ItemIndex != -1)
    ReviewPalette->LoadFromFile(PFMFileListBox->FileName.c_str());
  ReviewPalette->Repaint();
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::ReviewPaletteMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  int i = ReviewPalette->CursorIndex;
  StatusBar1->Panels->Items[0]->Text = i-1;
  StatusBar1->Panels->Items[1]->Text
    = Format("%d - %d - %d", OPENARRAY(TVarRec, (255-Palette->ColorData[i]->RGB.rgbRed,
      255-Palette->ColorData[i]->RGB.rgbGreen, 255-Palette->ColorData[i]->RGB.rgbBlue)));
}
//---------------------------------------------------------------------------
void __fastcall TPFMForm::Delete_File(AnsiString FileName)
{
  SHFILEOPSTRUCT shfile;
  char *ucFrom = NULL;

  memset(&shfile, 0, sizeof(SHFILEOPSTRUCT));
  shfile.hwnd = Handle;
  shfile.wFunc = FO_DELETE;
  if ((ucFrom = (char *)HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, FileName.Length()+2)) == NULL) goto fail;
  strcpy(ucFrom, FileName.c_str());
  shfile.pFrom = ucFrom;
  shfile.fFlags = FOF_ALLOWUNDO ;
  SHFileOperation(&shfile);
  HeapFree(GetProcessHeap(), 0, ucFrom);
  return;

fail:
  ShowMessage("Unknown Error in "+this->Name);
}
//---------------------------------------------------------------------------