Creating and Using Annotations (Delphi 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.

   RasterAnn: LEADRasterAnnotation;
   RasAnnToolbar: LEADRasterAnnToolBar;
   NewTag: Integer;

      RasterAnn:= CoLEADRasterAnnotation.Create();
     RasAnnToolbar:= CoLEADRasterAnnToolBar.Create();
   LEADEventSink1.Connect (RasterAnn, _LEADRasterAnnotationEvents);
     //Unlock annotation support
     LEADRasterView1.Raster.UnlockSupport (L_SUPPORT_DOCUMENT, WideString('TestKey'));

     //Connect the raster annotation object to the RasterView control
     RasterAnn.AnnParentRasterView:= LEADRasterView1.Raster;

     //Enable left button drawing of annotations
     RasterAnn.AnnAutoDrawEnable:= True;

     //Enable right-click to display annotation menus
     RasterAnn.AnnAutoMenuEnable:= True;

Uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, LTANNLib_TLB;

procedure TForm1.AnnToggleClick(Sender: TObject);
begin
   //Use the button to toggle between design mode and run mode
   if (AnnToggle.Caption = 'Start') then
   begin
       RasterAnn.AnnUserMode:= ANN_USERMODE_DESIGN;
       RasterAnn.AnnTool:= ANN_TOOL_BUTTON;
       //Make run mode the next thing.
       AnnToggle.Caption:= 'Run Mode';
       ShowMessage ('In design mode now. Draw a button object.');
   end
   else
   begin
      if (AnnToggle.Caption = 'Design Mode') then
      begin
          RasterAnn.AnnUserMode:= ANN_USERMODE_DESIGN;
          RasterAnn.AnnTool:= ANN_TOOL_BUTTON;
          //Make run mode the next thing.
          AnnToggle.Caption:= 'Run Mode';
      end
      else //The button takes us to run mode
      begin
          RasterAnn.AnnUserMode:= ANN_USERMODE_RUN;
          ShowMessage ('Click on your new button');
          AnnToggle.Caption:= 'Design Mode';
      end;
   end;
end;

procedure TForm1.IOToggleClick(Sender: TObject);
var
   nRet: Integer;
begin
   //Disable errors so that we can trap our own.
   RasterAnn.EnableMethodErrors := False;
   //Use the button to toggle between saving and loading annotations
     if (IOToggle.Caption = 'Save') then
   begin
      //Do nothing if there are no annotations.
      If (RasterAnn.AnnContainer = 0) then
         Exit;
      //Save the all annotations.
      nRet := RasterAnn.AnnSave ('c:\temp\tmp.ann', ANN_FMT_NATIVE, False, SAVE_OVERWRITE, 1);

      if (nRet = 0) then
      begin
         IOToggle.Caption := 'Load';
         ShowMessage ('Use the right mouse button to delete any annotations, then click Load');
      end
      else
         ShowMessage ('Error code: ' + IntToStr(nRet));
   end
   else
   begin
      //We are loading annotations
      //Make sure we are in design mode
      RasterAnn.AnnUserMode := ANN_USERMODE_DESIGN;
      //Load the annotations.
        nRet := RasterAnn.AnnLoad ('c:\temp\tmp.ann', 1);
      if (nRet = 0) then
         IOToggle.Caption := 'Save'
      else
         ShowMessage ('No annotations to load');
   end;
end;

procedure TForm1.ClipboardToggleClick(Sender: TObject);
var
   nRet: Integer;
begin
   //Disable errors so that we can trap our own.
   RasterAnn.EnableMethodErrors := False;
   //Use the button to toggle between copying and pasting annotations
   if (ClipboardToggle.Caption = 'Copy') then
   begin
      //Do nothing if there are no annotations.
       If (RasterAnn.AnnContainer = 0) then
         Exit;
       //Copy all annotations to the clipboard.
       nRet := RasterAnn.AnnCopy (ANN_FMT_NATIVE, False, True);
       if (nRet = 0) then
      begin
         //Make pasting the next thing.
           ClipboardToggle.Caption := 'Paste';
           ShowMessage ('Use the right mouse button to delete any annotations, then click Paste');
      end
      else
         ShowMessage ('Error code: ' + IntToStr(nRet));
   end
   else //We are pasting annotations
   begin
      //Make sure we are in design mode
       RasterAnn.AnnUserMode := ANN_USERMODE_DESIGN;
       //Paste the annotations
       if RasterAnn.AnnPasteReady then
      begin
         RasterAnn.AnnPaste;
           ClipboardToggle.Caption := 'Copy';
      end
       else
         ShowMessage ('No annotations to paste');
   end;
end;

procedure TForm1.RealizeClick(Sender: TObject);
var
   sRet: Smallint;
begin
   RasterAnn.AnnRealize (False);
   LEADRasterView1.ForceRepaint (sRet);
   ShowMessage ('Annotations are now rendered to the bitmap');
end;

procedure TForm1.LEADEventSink1Invoke(Sender: TObject; DispID: Integer;
  const IID: TGUID; LocaleID: Integer; Flags: Word; Params: tagDISPPARAMS;
  varResult, ExcepInfo, ArgErr: Pointer);
var
   lTag: Longint;
   hObject: Integer;
   ObjectType: AnnObjectType;
begin
   hObject:= OleVariant(Params.rgvarg^[0]);
   case (DispID) of
      LEADRASTERANNOTATIONEVENTS_ANNCREATE: 
      begin
         //Update the tag if we need one.
         RasterAnn.AnnGetType (hObject);
         ObjectType:= RasterAnn.AnnType;
         if ((ObjectType = ANN_OBJECT_BUTTON) Or (ObjectType = ANN_OBJECT_HOTSPOT)) then
         begin
            NewTag:= NewTag + 1;
            RasterAnn.AnnSetTag (hObject, NewTag);
         end;
      end;
      LEADRASTERANNOTATIONEVENTS_ANNDESTROY: 
      begin
         RasterAnn.AnnGetTag (hObject);
      lTag:= RasterAnn.AnnTag;
         ShowMessage ('The object tagged ' + IntToStr(lTag) + ' is deleted.');
      end;


      LEADRASTERANNOTATIONEVENTS_ANNCLICKED:
      begin
         RasterAnn.AnnGetTag (hObject);
      lTag:= RasterAnn.AnnTag;
         ShowMessage ('This is what we do for the button tagged ' + IntToStr(lTag));
      end;

      LEADRASTERANNOTATIONEVENTS_ANNDRAWN:
      begin
         RasterAnn.AnnTool := ANNTOOL_SELECT;
         ShowMessage ('Use the right mouse button to modify this object; then click on Run Mode to test it.');
      end;
   end;
end;