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.

procedure TForm1.FormShow(Sender: TObject);
begin
   { Unlock DOCUMENT support. }
   { Note that these are sample keys, which will not work in your toolkit. }
   LEADAnn1.UnlockSupport (L_SUPPORT_DOCUMENT, 'TestKey');
   LEADAnn1.AnnUserMode:= ANNUSERMODE_NONE;
  { Set defaults for displaying the image. }
  { These are all persistent properties that can be set in the properties box. }
   LEADAnn1.BorderStyle := bsSingle;
   LEADAnn1.BackColor := RGB(255, 255, 125);
   LEADAnn1.PaintDither := pdDiffusion;
   LEADAnn1.PaintPalette := ppAuto;
   LEADAnn1.AutoRepaint := True;
   LEADAnn1.AutoSize := False;
   LEADAnn1.AutoSetRects := True;
   LEADAnn1.PaintSizeMode := smFit;
end;

procedure TForm1.LeadLoadClick (Sender: TObject);
begin
    LEADAnn1.Load ('D:\pictures\test.cmp', 0, 0, 1);
end;

procedure TForm1.AnnToggleClick (Sender: TObject);
begin
   //Use the button to toggle between design mode and run mode
   if ( AnnToggle.Caption = 'Start' ) then
   begin
      LEADAnn1.AnnUserMode:= ANNUSERMODE_DESIGN;
      LEADAnn1.AnnTool:= ANNTOOL_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
          LEADAnn1.AnnUserMode:= ANNUSERMODE_DESIGN;
          LEADAnn1.AnnTool:= ANNTOOL_BUTTON;
          //Make run mode the next thing.
          AnnToggle.Caption:= 'Run Mode';
      end
      else
      begin
         //The button takes us to run mode
          LEADAnn1.AnnUserMode:= ANNUSERMODE_RUN;
          ShowMessage ( 'Click on your new button' ) ;
          AnnToggle.Caption:= 'Design Mode';
      end;
   end;
end;

procedure TForm1.IOToggleClick(Sender: TObject);
var
   nRet: Integer;
   Msg: String;
begin
   //Disable errors so that we can trap our own.
   LEADAnn1.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 LEADAnn1.AnnContainer = 0 then
         Exit ;
      //Save the selected annotations.
nRet:= LEADAnn1.AnnSave ('D:\pictures\tmp.ann', ANNFMT_NATIVE, True, SAVE_OVERWRITE, 0);      nRet:= LEADAnn1.AnnSave ('D:\pictures\tmp.ann', ANNFMT_NATIVE, True);
      if (nRet = SUCCESS )then
      begin
          //Make loading the next thing.
          IOToggle.Caption:= 'Load';
          ShowMessage ( 'Use the right mouse button to delete any annotations, then click Load' ) ;
      end
      else
      begin
         Msg:= 'Error code: ' + IntToStr(nRet);
         ShowMessage ( Msg ) ;
      end;
   end
     else
   begin
      //We are loading annotations
      //Make sure we are in design mode
      LEADAnn1.AnnUserMode:= ANNUSERMODE_DESIGN;
      //Load the annotations.
      nRet:= LEADAnn1.AnnLoad ('D:\Pictures\tmp.ann', 1);
      if (nRet = SUCCESS) then
          IOToggle.Caption:= 'Save'
      else
          ShowMessage ( 'No annotations to load' ) ;
     end;
end;

procedure TForm1.ClipboardToggleClick(Sender: TObject);
var
   nRet: Integer;
   Msg: String;
begin
   //Disable errors so that we can trap our own.
   LEADAnn1.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 ( LEADAnn1.AnnContainer = 0 ) then
         Exit;
       //Copy the selected annotations to the clipboard.
       nRet:= LEADAnn1.AnnCopy(ANNFMT_NATIVE, True, True);
       if ( nRet = SUCCESS ) 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
      begin
         Msg:= 'Error code: ' + IntToStr(nRet);
         ShowMessage ( Msg );
      end;
   end
   else
   begin
      //We are pasting annotations
       //Make sure we are in design mode
       LEADAnn1.AnnUserMode:= ANNUSERMODE_DESIGN;
       //Paste the annotations
       if ( LEADAnn1.AnnPasteReady ) then
      begin
         LEADAnn1.AnnPaste ( ) ;
           ClipboardToggle.Caption:= 'Copy';
      end
       Else
         ShowMessage ( 'No annotations to paste' ) ;
   end;
end;

procedure TForm1.RealizeClick(Sender: TObject);
begin
   LEADAnn1.AnnRealize (False);
   LEADAnn1.ForceRepaint ();
   ShowMessage ('Annotations are now rendered to the bitmap');
End;

   NewTag: Integer;

procedure TForm1.LEADAnn1AnnCreate (hObject: L_HANDLE);
begin
   //Update the tag if we need one.
   if ((LEADAnn1.AnnGetType (hObject) = ANNOBJECT_BUTTON )Or
       (LEADAnn1.AnnGetType (hObject) = ANNOBJECT_HOTSPOT)) then
   begin
      NewTag:= NewTag + 1;
       LEADAnn1.AnnSetTag ( hObject, NewTag ) ;
   end;
end;

procedure TForm1.LEADAnn1AnnDrawn (hObject: L_HANDLE);
begin
   LEADAnn1.AnnTool:= ANNTOOL_SELECT;
   ShowMessage ( 'Use the right mouse button to modify this object; then click on Run Mode to test it.' ) ;
end;

procedure TForm1.LEADAnn1AnnClicked(hObject: L_HANDLE);
var
   Msg: String;
begin
   Msg:= 'This is what we do for the button tagged ' + IntToStr(LEADAnn1.AnnGetTag (hObject)) ;
   ShowMessage (Msg);
end;

procedure TForm1.LEADAnn1AnnDestroy(hObject: L_HANDLE);
var
   Msg: String;
begin
   Msg:= 'The object tagged ' + IntToStr (LEADAnn1.AnnGetTag (hObject)) + ' is deleted.';
   ShowMessage (Msg);
end;