/*[]=====================================================================[]*/
/*[]     LeadTools C++ Class Library - Version 1.0                       []*/
/*[]                                                                     []*/
/*[]                                                                     []*/
/*[]     Copyright (c) 1991-2000 LEAD Technologies, Inc.                 []*/
/*[]     All Rights Reserved.                                            []*/
/*[]=====================================================================[]*/

//include files
#include "AnnBmp.h"

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
#include "ChildWin.h"

#include "RangeDlg.h"
#include "PassDlg.h"

#pragma resource "*.dfm"
//---------------------------------------------------------------------
__fastcall TMDIChild::TMDIChild(TComponent *Owner,AnsiString sCaption)
	: TForm(Owner)
{
   m_bAnnToolbarVisible=TRUE;
   Caption=sCaption;
}
//---------------------------------------------------------------------
void __fastcall TMDIChild::FormClose(TObject *Sender, TCloseAction &Action)
{
	Action = caFree;
}
//---------------------------------------------------------------------
void __fastcall TMDIChild::FormCreate(TObject *Sender)
{
   FILEINFO fInfo;
   char     szAnnFile[260];

   AnnBtmp.CreateWnd(Handle);
   AnnBtmp.FitToParent();

   if(Caption=="Clipboard Image")
   {
      AnnBtmp.CopyFromClipboard(MainForm->Handle);
      AnnBtmp.SetFileName("Clipboard Image");
   }
   else
   {
      AnnBtmp.SetFileName(Caption.c_str());

      LOADFILEOPTION LoadFileOption;
      LBaseFile::GetDefaultLoadFileOption(&LoadFileOption,sizeof(LoadFileOption));

      if(MainForm->m_FOParm.pFileData!=0)
		{
	      LoadFileOption.PageNumber = MainForm->m_FOParm.pFileData[0].nPageNumber;
			LoadFileOption.Flags     |=  (MainForm->m_FOParm.pFileData[0].bLoadRotated) * ELO_ROTATED;
		}

      AnnBtmp.File()->GetInfo(&fInfo,sizeof(fInfo), 0, &LoadFileOption);

      if(AnnBtmp.Load(  fInfo.BitsPerPixel,
                        ORDER_BGRORGRAY,
                        &LoadFileOption)==SUCCESS)
      {
         AnnBtmp.GetAnnFile(szAnnFile,Caption.c_str(),1,-1);
         AnnBtmp.AnnLoad(szAnnFile, &LoadFileOption);
      }
      else
         Close();
   }
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::FormResize(TObject *Sender)
{
   AnnBtmp.FitToParent();
   AnnBtmp.Repaint();
}
//---------------------------------------------------------------------------
bool __fastcall TMDIChild::PaletteChanged(bool Foreground)
{
   HWND hWnd=0;

   if(MainForm->ActiveMDIChild)
      hWnd=((TMDIChild*)(MainForm->ActiveMDIChild))->AnnBtmp.GetBitmapWnd();

   if(Foreground)
   {
      if(AnnBtmp.HandlePalette(WM_QUERYNEWPALETTE,0,0)==FALSE)
         AnnBtmp.Repaint();
   }
   else
      if(AnnBtmp.HandlePalette(WM_PALETTECHANGED,(WPARAM)hWnd,0)==FALSE)
         AnnBtmp.Repaint();

   return TRUE;
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::FormActivate(TObject *Sender)
{
   if(m_bAnnToolbarVisible&&(AnnBtmp.GetContainerObject().GetUserMode()==ANNUSER_DESIGN))
   {
      if(!AnnBtmp.GetToolBar().IsCreated())
         AnnBtmp.GetToolBar().Create(MainForm->Handle,NULL,ANNTOOLALIGN_RIGHT|ANNTOOLALIGN_TOP,TRUE);
   }
   else
      if(AnnBtmp.GetToolBar().IsCreated())
         AnnBtmp.GetToolBar().Destroy();

   if(AnnBtmp.GetToolBar().IsCreated())
      AnnBtmp.GetToolBar().SetToolChecked(AnnBtmp.GetAutomationObject().GetTool());

   ::SetFocus(AnnBtmp.GetBitmapWnd());
}
//---------------------------------------------------------------------
void __fastcall TMDIChild::WndProc(Messages::TMessage &Message)
{
   pPANWINDOWDATA pPanWndData;
   TMDIChild*     pActiveChild;

   switch(Message.Msg)
   {
   case LBW_ZOOM:
      MainForm->ShowHint(0);
      return;

   case LBW_PANWINDOW:
      pPanWndData=(pPANWINDOWDATA)Message.LParam;
      pActiveChild=(MainForm->ActiveMDIChild)? (TMDIChild*)MainForm->ActiveMDIChild:this;

      if(pPanWndData->uFlag==PANWIN_DESTROYED)
         if(pActiveChild->AnnBtmp.HandlePalette(WM_QUERYNEWPALETTE,0,0)==FALSE)
            pActiveChild->AnnBtmp.Repaint();

      return;

   case WM_SETFOCUS:
      MainForm->ShowHint(0);
      ::SetFocus(AnnBtmp.GetBitmapWnd());
   }

   TForm::WndProc(Message);
}
//---------------------------------------------------------------------------
//-----------Main Menu Handlers----------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_OpenClick(TObject *Sender)
{
   MainForm->FileOpenItemClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_CloseClick(TObject *Sender)
{
   Close();
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_SaveClick(TObject *Sender)
{
   int            nRet;
   SAVEDLGPARAMS  FSParm;
   SAVEFILEOPTION SaveFileOption;
   OPENFILENAME  OpenFileName ;

   HCURSOR        hCursor;
   char           szAnnFile[260];
   char           szFileName[260];

   memset ( &FSParm, 0, sizeof ( SAVEDLGPARAMS ) ) ;

   OpenFileName.lStructSize     = sizeof ( OPENFILENAME ) ;
   OpenFileName.lpstrInitialDir = NULL;
   OpenFileName.lpstrTitle      = "Save a File";
   OpenFileName.nFilterIndex    = 0 ;

   FSParm.uStructSize       = sizeof ( SAVEDLGPARAMS) ;
   FSParm.nQFactor          = 2 ;
   FSParm.nPageNumber       = 1 ;
   FSParm.nStampBits        = 24;
   FSParm.nStampWidth       = 120;
   FSParm.nStampHeight      = 120;
   FSParm.nBitsPerPixel     = AnnBtmp.GetBitsPerPixel();
   FSParm.nFormat           = FILE_BMP;
   FSParm.uSaveMulti        = MULTIPAGE_OPERATION_REPLACE ;
   FSParm.uDlgFlags         = DLG_SAVE_SHOW_FILEOPTIONS_PROGRESSIVE     |
                              DLG_SAVE_SHOW_FILEOPTIONS_MULTIPAGE       |
                          		DLG_SAVE_SHOW_FILEOPTIONS_STAMP           |
                          		DLG_SAVE_SHOW_FILEOPTIONS_QFACTOR         |
                          		DLG_SAVE_SHOW_FILEOPTIONS_J2KOPTIONS      |
                          		DLG_SAVE_SHOW_FILEOPTIONS_BASICJ2KOPTIONS ;

   AnnBtmp.DialogFile()->EnableAutoProcess(false);

   AnnBtmp.DialogFile()->SetSaveParams(&FSParm);

   if(AnnBtmp.DialogFile()->DoModalSave(Handle)==SUCCESS_DLG_OK)
   {
      AnnBtmp.DialogFile()->GetFileName(szFileName, sizeof(szFileName));

      hCursor=::SetCursor(::LoadCursor(NULL,IDC_WAIT));

      AnnBtmp.DialogFile()->GetSaveParams(&FSParm,sizeof(FSParm));

      switch(FSParm.uSaveMulti)
      {
      case MULTIPAGE_OPERATION_OVERWRITE:
         SaveFileOption.PageNumber = 1;
         break;
      case MULTIPAGE_OPERATION_APPEND:
         //Do Nothing
         break;
      case MULTIPAGE_OPERATION_REPLACE:
         SaveFileOption.PageNumber = FSParm.nPageNumber;
         SaveFileOption.Flags |= ESO_REPLACEPAGE;
         break;
      case MULTIPAGE_OPERATION_INSERT:
         SaveFileOption.PageNumber = FSParm.nPageNumber;
         SaveFileOption.Flags |= ESO_INSERTPAGE;
         break;
      }

      AnnBtmp.GetAnnFile(szAnnFile,szFileName,1,FSParm.nFormat);
      if(!lstrcmp(szAnnFile,szFileName)) /* same file, save as Wang annotation */
      {
         nRet=AnnBtmp.GetContainerObject().SaveTag((MainForm->m_bWangcompatibilitymode?ANNFMT_WANGTAG:ANNFMT_TIFFTAG));
         if(nRet!=SUCCESS)
            if(Application->MessageBox("Error creating annotation data.\n"
                          "The file will be saved without annotations.\n\n"
                          "Do you still want to continue?",
                          "Annotation Error",
                          MB_ICONSTOP|MB_YESNO)!=IDYES
              )
               {
                  ::SetCursor(hCursor);
                  return;
               }
      }

      nRet=AnnBtmp.Save(
                        szFileName,
                        FSParm.nFormat,
                        FSParm.nBitsPerPixel,
                        FSParm.nQFactor,
                        FSParm.uSaveMulti,
                        &SaveFileOption);

      if(nRet==SUCCESS)
      {
         Caption=szFileName;

         if(lstrcmp(szAnnFile,szFileName)) /* different file, save as Lead annotation */
            AnnBtmp.AnnSave(szAnnFile,ANNFMT_XML,FALSE);
      }

      ::SetCursor(hCursor);
   }
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_PrintClick(TObject *Sender)
{
   AnnBtmp.PrintImage();
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_ExitClick(TObject *Sender)
{
   MainForm->FileExitItemClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_EditClick(TObject *Sender)
{
   Menu2_Paste->Enabled=(L_CLIPBOARDREADY()==SUCCESS);
   Menu2_ShowLockedObjects->Checked=AnnBtmp.IsLockedVisible();
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_CopyClick(TObject *Sender)
{
   AnnBtmp.CopyToClipboard(Handle);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_PasteClick(TObject *Sender)
{
   MainForm->PasteItemClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_UserModeClick(TObject *Sender)
{
   Menu2_Design->Checked=(AnnBtmp.GetContainerObject().GetUserMode()==ANNUSER_DESIGN);
   Menu2_Run->Checked=(AnnBtmp.GetContainerObject().GetUserMode()==ANNUSER_RUN);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_DesignClick(TObject *Sender)
{
   AnnBtmp.GetContainerObject().SetUserMode(ANNUSER_DESIGN);

	if(!AnnBtmp.GetToolBar().IsCreated())
   {
      AnnBtmp.GetToolBar().Create(MainForm->Handle,NULL,ANNTOOLALIGN_RIGHT|ANNTOOLALIGN_TOP,TRUE);
      m_bAnnToolbarVisible=TRUE;
   }

   AnnBtmp.ToolChecked(ANNTOOL_SELECT);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_RunClick(TObject *Sender)
{
	if(AnnBtmp.GetToolBar().IsCreated())
      AnnBtmp.GetToolBar().Destroy();

   m_bAnnToolbarVisible=FALSE;
   AnnBtmp.GetContainerObject().SetUserMode(ANNUSER_RUN);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_LockAnnotationsClick(TObject *Sender)
{
   if(PasswordDlg->ShowModal()==mrOk)
      AnnBtmp.GetContainerObject().Lock(PasswordDlg->Password->Text.c_str(),ANNFLAG_SELECTED|ANNFLAG_RECURSE);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_UnlockAnnotationsClick(TObject *Sender)
{
   if(PasswordDlg->ShowModal()==mrOk)
      AnnBtmp.GetContainerObject().Unlock(PasswordDlg->Password->Text.c_str(),ANNFLAG_RECURSE);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_ShowLockedObjectsClick(TObject *Sender)
{
   AnnBtmp.ShowLocked(!AnnBtmp.IsLockedVisible());
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_RealizeRedactObjectsClick(TObject *Sender)
{
   AnnBtmp.Realize();
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_RestoreRedactObjectsClick(TObject *Sender)
{
   AnnBtmp.Unrealize();
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_WangcompatibilitymodeClick(
      TObject *Sender)
{
   MainForm->Wangcompatibilitymode1Click(Sender);
   Menu2_Wangcompatibilitymode->Checked=MainForm->Wangcompatibilitymode1->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_FitClick(TObject *Sender)
{
   Menu2_Normal->Checked=(AnnBtmp.GetZoomMode()==ZOOM_NORMAL);
   Menu2_Zoom->Checked=(AnnBtmp.GetZoomMode()==ZOOM_FACTOR);
   Menu2_FitToWindow->Checked=(AnnBtmp.GetZoomMode()==ZOOM_FIT);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_NormalClick(TObject *Sender)
{
   AnnBtmp.SetZoomMode(ZOOM_NORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_ZoomClick(TObject *Sender)
{
   RangeDlg->ScrollBarRange->Position=AnnBtmp.GetZoomPercent();
   if(RangeDlg->ShowModal()==mrOk)
      AnnBtmp.SetZoomPercent(RangeDlg->ScrollBarRange->Position);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_FitToWindowClick(TObject *Sender)
{
   AnnBtmp.SetZoomMode(ZOOM_FIT);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_CenterImageClick(TObject *Sender)
{
   AnnBtmp.EnableCenterOnZoom(!AnnBtmp.IsCenterOnZoomEnabled());
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_AnnotationToolbarClick(TObject *Sender)
{
   m_bAnnToolbarVisible=!m_bAnnToolbarVisible;

   if(m_bAnnToolbarVisible)
      AnnBtmp.GetToolBar().Create(MainForm->Handle,NULL,ANNTOOLALIGN_RIGHT|ANNTOOLALIGN_TOP,TRUE);
   else
      if(AnnBtmp.GetToolBar().IsCreated())
         AnnBtmp.GetToolBar().Destroy();
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_PanWindowClick(TObject *Sender)
{
   if(!AnnBtmp.IsPanWndCreated())
   {
	   AnnBtmp.CreatePanWnd(DISPLAYMODE_SCALETOGRAY|DISPLAYMODE_FIXEDPALETTE,0,0,150,150,"PAN_WIN",NULL,NULL,TRUE);
      AnnBtmp.UpdatePanWnd(0,RGB(0,0,255),"Pan Window");
   }
   else
      AnnBtmp.DestroyPanWnd();
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_ToolbarClick(TObject *Sender)
{
   MainForm->Toolbar1Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_StatusbarClick(TObject *Sender)
{
   MainForm->Statusbar1Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_TileClick(TObject *Sender)
{
   MainForm->Tile();
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_CascadeClick(TObject *Sender)
{
   MainForm->Cascade();
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_ArrangeAllClick(TObject *Sender)
{
	MainForm->ArrangeIcons();
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_AboutClick(TObject *Sender)
{
   MainForm->HelpAboutItemClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_ViewClick(TObject *Sender)
{
   Menu2_Toolbar->Checked=MainForm->SpeedPanel->Visible;
   Menu2_Statusbar->Checked=MainForm->StatusBar->Visible;
   Menu2_PanWindow->Checked=AnnBtmp.IsPanWndCreated();
   Menu2_CenterImage->Checked=AnnBtmp.IsCenterOnZoomEnabled();
   Menu2_AnnotationToolbar->Checked=AnnBtmp.GetToolBar().IsCreated();
   Menu2_AnnotationToolbar->Enabled=(AnnBtmp.GetContainerObject().GetUserMode()==ANNUSER_DESIGN);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_SelectClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_SELECT);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_AudioClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_AUDIO);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_ButtonClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_BUTTON);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_EllipseClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_ELLIPSE);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_FreehandClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_FREEHAND);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_HilightClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_HILITE);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_HotSpotClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_HOTSPOT);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_LineClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_LINE);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_NoteClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_NOTE);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_PointerClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_POINTER);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_PolygonClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_POLYGON);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_RectClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_RECT);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_RedactClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_REDACT);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_StampClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_STAMP);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_TextClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_TEXT);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_RulerClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_RULER);
}
//---------------------------------------------------------------------------
void __fastcall TMDIChild::Menu2_ToolClick(TObject *Sender)
{
   Menu2_Select->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_SELECT);
   Menu2_Audio->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_AUDIO);
   Menu2_Button->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_BUTTON);
   Menu2_Ellipse->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_ELLIPSE);
   Menu2_Freehand->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_FREEHAND);
   Menu2_Hilight->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_HILITE);
   Menu2_HotSpot->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_HOTSPOT);
   Menu2_Line->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_LINE);
   Menu2_Note->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_NOTE);
   Menu2_Pointer->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_POINTER);
   Menu2_Polygon->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_POLYGON);
   Menu2_Polyline->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_POLYLINE);
   Menu2_Rect->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_RECT);
   Menu2_Redact->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_REDACT);
   Menu2_Stamp->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP);
   Menu2_Text->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_TEXT);
   Menu2_Ruler->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_RULER);
   Menu2_CrossProduct->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_CROSSPRODUCT);
   Menu2_Point->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_POINT);
   Menu2_Protractor->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_PROTRACTOR);
   Menu2_Video->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_VIDEO);
   Menu2_PushPin->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_PUSHPIN);
   Menu2_FreehandHotSpot->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_FREEHANDHOTSPOT);
   Menu2_Approved->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_APPROVED);
   Menu2_Assigned->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_ASSIGNED);
   Menu2_Checked->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_CHECKED);
   Menu2_Clatprv->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_CLATPRV);
   Menu2_CopyStamp->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_COPY);
   Menu2_Draft->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_DRAFT);
   Menu2_Extended->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_EXTENDED);
   Menu2_Fax->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_FAX);
   Menu2_Faxed->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_FAXED);
   Menu2_Important->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_IMPORTANT);
   Menu2_Invoice->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_INVOICE);
   Menu2_Notice->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_NOTICE);
   Menu2_Official->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_OFFICIAL);
   Menu2_Onfile->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_ONFILE);
   Menu2_Paid->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_PAID);
   Menu2_Passed->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_PASSED);
   Menu2_Pending->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_PENDING);
   Menu2_Processed->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_PROCESSED);
   Menu2_Received->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_RECEIVED);
   Menu2_Rejected->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_REJECTED);
   Menu2_Release->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_RELEASE);
   Menu2_Sent->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_SENT);
   Menu2_Shipped->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_SHIPPED);
   Menu2_TopSecret->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_TOPSECRET);
   Menu2_Urgent->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_URGENT);
   Menu2_Void->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_STAMP_VOID);


   Menu2_Void->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_TEXTPOINTER);
   Menu2_Void->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_ENCRYPT);

   Menu2_Void->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_POLYRULER);
   Menu2_Void->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_RTF);

   Menu2_Void->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_CURVECLOSED);
   Menu2_Void->Checked=(AnnBtmp.GetAutomationObject().SetTool()==ANNTOOL_CURVE);
}
//---------------------------------------------------------------------------



void __fastcall TMDIChild::Menu2_CrossProductClick(TObject *Sender)
{
    AnnBtmp.ToolChecked(ANNTOOL_CROSSPRODUCT);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_PointClick(TObject *Sender)
{
    AnnBtmp.ToolChecked(ANNTOOL_POINT);    
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_ProtractorClick(TObject *Sender)
{
    AnnBtmp.ToolChecked(ANNTOOL_PROTRACTOR);    
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_VideoClick(TObject *Sender)
{
    AnnBtmp.ToolChecked(ANNTOOL_VIDEO);    
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_PushPinClick(TObject *Sender)
{
    AnnBtmp.ToolChecked(ANNTOOL_PUSHPIN);    
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_FreehandHotSpotClick(TObject *Sender)
{
    AnnBtmp.ToolChecked(ANNTOOL_FREEHANDHOTSPOT);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_ApprovedClick(TObject *Sender)
{
    AnnBtmp.ToolChecked(ANNTOOL_STAMP_APPROVED);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_AssignedClick(TObject *Sender)
{
    AnnBtmp.ToolChecked(ANNTOOL_STAMP_ASSIGNED);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_CheckedClick(TObject *Sender)
{
    AnnBtmp.ToolChecked(ANNTOOL_STAMP_CHECKED);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_ClatprvClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_CLATPRV);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_CopyStampClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_COPY);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_DraftClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_DRAFT);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_ExtendedClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_EXTENDED);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_FaxClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_FAX);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_FaxedClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_FAXED);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_ImportantClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_IMPORTANT);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_InvoiceClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_INVOICE);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_NoticeClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_NOTICE);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_OfficialClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_OFFICIAL);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_OnfileClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_ONFILE);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_PaidClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_PAID);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_PassedClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_PASSED);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_PendingClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_PENDING);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_ProcessedClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_PROCESSED);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_ReceivedClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_RECEIVED);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_RejectedClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_REJECTED);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_ReleaseClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_RELEASE);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_SentClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_SENT);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_ShippedClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_SHIPPED);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_TopSecretClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_TOPSECRET);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_UrgentClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_URGENT);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_VoidClick(TObject *Sender)
{
 AnnBtmp.ToolChecked(ANNTOOL_STAMP_VOID);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_PolylineClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_POLYLINE);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_CurveClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_CURVE);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_ClosedCurveClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_CURVECLOSED);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_RichTextClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_RTF);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_TextPointerClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_TEXTPOINTER);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_PolyrulerClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_POLYRULER);
}
//---------------------------------------------------------------------------

void __fastcall TMDIChild::Menu2_EncryptClick(TObject *Sender)
{
	AnnBtmp.ToolChecked(ANNTOOL_ENCRYPT);
}
//---------------------------------------------------------------------------