AnnAutoMenuEnable Example for Delphi

Note:

This topic is for Document/Medical only.

This example toggles the AnnAutoMenuEnable property.

var
//Global declarations
RasterAnn: LEADRasterAnnotation;
RasterAnnToolbar: LEADRasterAnnToolBar;

procedure TForm1.Button1Click(Sender: TObject);
begin
   RasterAnn:= CoLEADRasterAnnotation.Create ();
   RasterAnnToolbar:= CoLEADRasterAnnToolBar.Create ();
   RasterAnn.AnnParentRasterView := LEADRasterView1.Raster;
   LEADEventSink1.Connect (RasterAnn, _LEADRasterAnnotationEvents);
   RasterAnn.AnnUserMode := ANN_USERMODE_DESIGN   ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   if (RasterAnn.AnnAutoMenuEnable) then
      RasterAnn.AnnAutoMenuEnable:= False
   else
      RasterAnn.AnnAutoMenuEnable:= True;
end;