Creating and Using Annotations (C++ Builder 4.0)

Take the following steps to add code that demonstrates the creation and deletion, saving and loading, and copying and pasting of annotation objects. This code also demonstrates the related events. Message boxes prompt for user actions that trigger events.

#include "LTANNLib_TLB.h"

 private:
 void *__IDispatch; /* IDispatch */

public:
 operator IDispatch*(void) { return (IDispatch*)&__IDispatch; }
 operator IUnknown*(void) { return (IUnknown*)&__IDispatch; }
 and save the file.

LEADRasterAnnotation * pRasterAnn;
LEADRasterAnnToolBar * pRasAnnToolbar;
int NewTag; 

 LEADRasterView1->Raster ->UnlockSupport (L_SUPPORT_DOCUMENT, AnsiToOLESTR("TestKey"));

 CoCreateInstance(CLSID_LEADRasterAnnotation, NULL, CLSCTX_ALL, IID_ILEADRasterAnnotation, (void**)&pRasterAnn);
CoCreateInstance(CLSID_LEADRasterAnnToolBar, NULL, CLSCTX_ALL, IID_ILEADRasterAnnToolBar, (void**)&pRasAnnToolbar);
 //Connect the raster annotation object to the RasterView control
 pRasterAnn->AnnParentRasterView = LEADRasterView1->Raster;


 //Enable left button drawing of annotations
 pRasterAnn->AnnAutoDrawEnable = True;

 //Enable right-click to display annotation menus
 pRasterAnn->AnnAutoMenuEnable = True;
pRasterAnn->AnnUserMode = ANN_USERMODE_DESIGN;
LEADEventSink1->Connect (pRasterAnn, DIID__LEADRasterAnnotationEvents);

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 if (pRasterAnn)
 pRasterAnn->Release ();
if (pRasAnnToolbar)
 pRasAnnToolbar-> Release();
}

void __fastcall TForm1::AnnToggleClick(TObject *Sender)
{
 //Use the button to toggle between design mode and run mode
 if (AnnToggle->Caption == "Start")
{
 pRasterAnn->AnnUserMode = ANN_USERMODE_DESIGN;
 pRasterAnn->AnnTool = ANN_TOOL_BUTTON;
 //Make run mode the next thing.
 AnnToggle->Caption= "Run Mode";
 ShowMessage ("In design mode now. Draw a button object.");
}
else
{
 if (AnnToggle->Caption == "Design Mode")
{
  pRasterAnn->AnnUserMode= ANN_USERMODE_DESIGN;
  pRasterAnn->AnnTool= ANN_TOOL_BUTTON;
  //Make run mode the next thing.
  AnnToggle->Caption= "Run Mode";
}
else //The button takes us to run mode
{
  pRasterAnn->AnnUserMode = ANN_USERMODE_RUN;
  ShowMessage ("Click on your new button");
  AnnToggle->Caption= "Design Mode";
  }
}
}

void __fastcall TForm1::IOToggleClick(TObject *Sender)
{
 int nRet;

 //Disable errors so that we can trap our own.
 pRasterAnn->EnableMethodErrors = False;
 //Use the button to toggle between saving and loading annotations
 if (IOToggle->Caption == "Save")
 {
 //Do nothing if there are no annotations.
if (pRasterAnn->AnnContainer == 0)
 return;
//Save the all annotations.
nRet = pRasterAnn->AnnSave (AnsiToOLESTR("c:\\temp\\tmp.ann"), ANN_FMT_NATIVE, False, SAVE_OVERWRITE, 1);
if (nRet == 0)
{
 IOToggle->Caption = "Load";
ShowMessage ("Use the right mouse button to delete any annotations, then click Load");
}
else
 ShowMessage ("Error code: " + IntToStr(nRet));
}
 else
{
 //We are loading annotations
 //Make sure we are in design mode
 pRasterAnn->AnnUserMode = ANN_USERMODE_DESIGN;
//Load the annotations.
 nRet = pRasterAnn->AnnLoad (AnsiToOLESTR("c:\\temp\\tmp.ann"), 1);
if (nRet == 0)
 IOToggle->Caption = "Save";
else
 ShowMessage ("No annotations to load");
}
}

void __fastcall TForm1::ClipboardToggleClick(TObject *Sender)
{
 int nRet;

 //Disable errors so that we can trap our own.
 pRasterAnn->EnableMethodErrors = False;
 //Use the button to toggle between copying and pasting annotations
 if (ClipboardToggle->Caption == "Copy")
{
 //Do nothing if there are no annotations.
 if (pRasterAnn->AnnContainer == 0)
 return;
 //Copy all annotations to the clipboard.
 nRet = pRasterAnn->AnnCopy (ANN_FMT_NATIVE, False, True);
 if (nRet == 0)
{
 //Make pasting the next thing.
 ClipboardToggle->Caption = "Paste";
 ShowMessage ("Use the right mouse button to delete any annotations, then click Paste");
}
 else
 ShowMessage ("Error code: " + IntToStr(nRet));
}
 else //We are pasting annotations
{
 //Make sure we are in design mode
 pRasterAnn->AnnUserMode = ANN_USERMODE_DESIGN;
 //Paste the annotations
 if (pRasterAnn->AnnPasteReady)
{
 pRasterAnn->AnnPaste ();
 ClipboardToggle->Caption = "Copy";
}
 else
 ShowMessage ("No annotations to paste");
 }
}

void __fastcall TForm1::RealizeClick(TObject *Sender)
{
 pRasterAnn->AnnRealize (false);
 LEADRasterView1->ForceRepaint ();
 ShowMessage ("Annotations are now rendered to the bitmap");
}

void __fastcall TForm1::LEADEventSink1Invoke (TObject *Sender, int DispID,
const TGUID &IID, int LocaleID, WORD Flags, tagDISPPARAMS &Params,
Pointer varResult, Pointer ExcepInfo, Pointer ArgErr)
{
 long lTag;
 int hObject;
 AnnObjectType ObjectType;

 switch (DispID)
{

 case LEADRASTERANNOTATIONEVENTS_ANNCREATE:
{
 hObject= (OleVariant)(Params.rgvarg[0]);
   //Update the tag if we need one.
   pRasterAnn->AnnGetType (hObject);
   ObjectType= pRasterAnn-> get_AnnType_( );
   if ((ObjectType == ANN_OBJECT_BUTTON) || (ObjectType == ANN_OBJECT_HOTSPOT))
{
 NewTag++;
    pRasterAnn->AnnSetTag (hObject, NewTag);
}
}
break;

case LEADRASTERANNOTATIONEVENTS_ANNDESTROY:
{
 hObject= (OleVariant)(Params.rgvarg[0]);
 pRasterAnn->AnnGetTag (hObject);
  lTag= pRasterAnn->get_AnnTag ( );
  ShowMessage ("The object tagged " + IntToStr((int)lTag) + " is deleted.");
}
break;

case LEADRASTERANNOTATIONEVENTS_ANNCLICKED:
{
 hObject= (OleVariant)(Params.rgvarg[0]);
 pRasterAnn->AnnGetTag (hObject);
  lTag= pRasterAnn->get_AnnTag ( );
  ShowMessage ("This is what we do for the button tagged " + IntToStr((int)lTag));
}
break;

 case LEADRASTERANNOTATIONEVENTS_ANNDRAWN:
{
 pRasterAnn->AnnTool = ANN_TOOL_SELECT;
ShowMessage ("Use the right mouse button to modify this object; then click on Run Mode to test it");
  }
}
}