Hi,
I'm not sure if this is the correct way to handle vectorial objects in a multi-page TIFF file display.
I save objects on ImageEnVect1 to the ImageEnAnnot property of the page in ImageEnMView during the SelectionChange event. And recall/display them in ImageSelect event.
When EnableMultiSelect is enabled and multiple pages are moved using
ImageEnMView1.MoveSelectedImagesTo(n);
the vectorial objects within Params[idx].ImageEnAnnot do not seem to synchronize or follow the new index.
Anything I'm missing or doing wrong here?
Any help is greatly appreciated. Thanks.
procedure TForm1.ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
begin
ImageEnVect1.RemoveAllObjects;
ImageEnVect1.Clear;
ImageEnVect1.IEBitmap.Assign(ImageEnMView1.GetTIEBitmap(idx));
if ImageEnMView1.MIO.Params[idx].ImageEnAnnot.IsEmpty = False then
begin
ImageEnMView1.MIO.Params[idx].ImageEnAnnot.CopyToTImageEnVect(ImageEnVect1);
ImageEnVect1.Update;
end;
ImageEnMView1.ReleaseBitmap(idx);
ImageEnVect1.Fit;
end;
procedure TForm1.ImageEnMView1SelectionChanging(Sender: TObject;
var bAllow: Boolean);
begin
if ImageEnMView1.SelectedImage > -1 then
begin
ImageEnMView1.MIO.Params[ImageEnMView1.SelectedImage].ImageEnAnnot.Clear;
if ImageEnVect1.ObjectsCount > 0 then
begin
ImageEnMView1.MIO.Params[ImageEnMView1.SelectedImage].ImageEnAnnot.CopyFromTImageEnVect(ImageEnVect1);
end;
end;
end;
Search
