AnnAutomation Property example for Delphi

This example shows how you can use the AnnAutomation property to access the automation object through DLL functions.

Var
IsBold: L_BOOL; // Is the object's text bold
hAnnObject: Integer;
begin
   hAnnObject:= LEADAnn1.AnnAutomation;
//Set the default font to bold, unless it already isL_AnnGetFontBold ( hAnnObject, @IsBold ) ;
if (IsBold <> 0 )then
      ShowMessage ( 'Already bold' )
else
       L_AnnSetFontBold ( hAnnObject, 1, 0 ) ;