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

#include <vcl.h>
#pragma hdrstop

#include "ImageManager.h"
#include "GraphicObject.h"
#include "common.h"
#include "capture.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
#define IDS_IMAGE_MANAGER           StringTable[0]
#define IDS_IMAGE_MANAGER_TYPE      StringTable[1]
#define IDS_IMAGE_MANAGER_POSITION  StringTable[2]
#define IDS_IMAGE_MANAGER_LENGTH    StringTable[3]
#define IDS_IMAGE_MANAGER_UNDO      StringTable[4]
//---------------------------------------------------------------------------
TImageManagerForm *ImageManagerForm;
//---------------------------------------------------------------------------
__fastcall TImageManagerForm::TImageManagerForm(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TImageManagerForm::sbUndoClick(TObject *Sender)
{
  CaptureForm->DeleteLastObject(CaptureForm->Image->Picture->Bitmap->Canvas);
  UpdateLabel();  
}
//---------------------------------------------------------------------------

void __fastcall TImageManagerForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  if(CaptureForm->Image->Cursor==crCross) CaptureForm->Image->Cursor = crDefault;
}
//---------------------------------------------------------------------------

void __fastcall TImageManagerForm::FormCreate(TObject *Sender)
{
  SetFont();
  StringTable.Create(BaseDir, Language, "ImageManager");
  Caption=IDS_IMAGE_MANAGER;
  rgObjectType->Caption=IDS_IMAGE_MANAGER_TYPE;

  rgObjectType->Items->Clear();
  rgObjectType->Items->Add(IDS_IMAGE_MANAGER_POSITION);
  rgObjectType->Items->Add(IDS_IMAGE_MANAGER_LENGTH);
  rgObjectType->ItemIndex=0;
  sbUndo->Caption = IDS_IMAGE_MANAGER_UNDO;
}
//---------------------------------------------------------------------------
void __fastcall TImageManagerForm::SetFont(){
  SetSmallFont(Font);
  Font->Size=10;
}
//---------------------------------------------------------------------------
void __fastcall TImageManagerForm::UpdateLabel(){

  graphicobject *go;
  int count=0;
  for(int i=0;i<CaptureForm->ImageGraphicObjectList->Count;i++){
    go = (graphicobject *)CaptureForm->ImageGraphicObjectList->Items[i];
    if(go->got==POINTTYPE) count++;
  }
  lbPosition->Caption = count;
}
//---------------------------------------------------------------------------