AnnOptions example for Delphi

// This example demonstrates how to enable/disable the new
//'side handle' annotation feature in version 14.5.  To see how this works,
// paste this example into the main annotation demo, draw a rectangle,
// and select it before calling this function.  The example toggles the feature.
Procedure TForm1.ExampleAnnOptions();
var
  strMsg: String;
  uOptions: Integer;
begin
  uOptions:= LEADAnn1.AnnOptions;
  if((uOptions AND OPTIONS_NEW_SIDE_HANDLES) = OPTIONS_NEW_SIDE_HANDLES)then
  begin
     uOptions:= uOptions AND Not OPTIONS_NEW_SIDE_HANDLES;
     strMsg:= 'Draw a rectangular object and select it.  Note there are no side handles.  Run this example again to enable the side handles.';
  end
  else
  begin
     uOptions:= uOptions OR OPTIONS_NEW_SIDE_HANDLES;
     strMsg:= 'Draw a rectangular object and select it.  Note the side handles.  Run this example again to disable the side handles.';
  end;
  LEADAnn1.AnnOptions:= uOptions;
  ShowMessage(strMsg);
end;