ImageEn, unit iemview

TImageEnMView.AnnotationsVisible

TImageEnMView.AnnotationsVisible


Declaration


property AnnotationsVisible: Boolean;


Description


When enabled, Wang annotations and ImageEn annotations of the image are shown on the thumbnail.

Default: False

Notes:
- This property has no effect if StoreType is ietThumb. It is only supported by ietNormal and ietFastThumb.
- This will slow performance so is only recommended for annotation-specific applications.


Example


// Test application with a TImageEnMView that loads and saves a multiple page TIFF file, and TImageEnVect that allows annotation editing

// Show annotations of selected frame
procedure TForm1.ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
begin
  // Clear TImageEnVect
  ImageEnVect1.RemoveAllObjects;
  ImageEnVect1.Clear;

  // Get selected image
  ImageEnMView1.CopyToIEBitmap( idx, ImageEnVect1.IEBitmap );

  // Get ImageEn annotations
  if ImageEnMView1.MIO.Params[ idx ].ImageEnAnnot.IsEmpty = False then
    ImageEnMView1.MIO.Params[ idx ].ImageEnAnnot.CopyToTImageEnVect( ImageEnVect1 );

  // Refresh the TImageEnVect
  ImageEnVect1.Update();
end;

// Save the annotations
procedure TForm1.btnSaveAnnotClick(Sender: TObject);
begin
  if ImageEnMView1.SelectedImage > -1 then
  begin
    ImageEnMView1.MIO.Params[ ImageEnMView1.SelectedImage ].ImageEnAnnot.CopyFromTImageEnVect( ImageEnVect1 );
    ImageEnMView1.UpdateImage( ImageEnMView1.SelectedImage );
  end;
end;