AnnShowLockedIcon Example for Delphi

Note:

This topic is for Document/Medical only.

var
//Global declarations
RasterAnn: LEADRasterAnnotation;
procedure TForm1.Button1Click(Sender: TObject);
begin
   RasterAnn:= CoLEADRasterAnnotation.Create ();
   RasterAnn.AnnParentRasterView := LEADRasterView1.Raster;
   LEADEventSink1.Connect (RasterAnn, _LEADRasterAnnotationEvents);
   RasterAnn.AnnUserMode:= ANN_USERMODE_DESIGN;
end;

//This example toggles the AnnShowLockedIcon property.
procedure TForm1.Button2Click(Sender: TObject);
begin

   RasterAnn.AnnShowLockedIcon:= Not RasterAnn.AnnShowLockedIcon;
   if (RasterAnn.AnnShowLockedIcon) then
      ShowMessage ('AnnShowLockedIcon: True')
   else
      ShowMessage ('AnnShowLockedIcon: False');
end;