Use the ImageEnMView1.MIO.Params[idx].FileName property instead of the ImageFileName[idx]) then in the ImageEnMView2DragDrop event copy theImageEnMView1.MIO.Params[idx].filename to
ImageEnMView2.MIO.Params[im].FileName;
procedure TForm1.ImageEnMView2DragDrop(Sender, Source: TObject; X,
Y: Integer);
var
i: integer;
idx, im: integer;
tmpbmp: TBitmap;
begin
im := ImageEnMView2.InsertingPoint(X, Y);
for i := 0 to ImageEnMView1.MultiSelectedImagesCount - 1 do
begin
idx := ImageEnMView1.MultiSelectedImages[i];
tmpbmp := ImageEnMView1.GetBitmap(idx);
ImageEnMView2.InsertImage(im);
ImageEnMView2.SetImage(im, tmpbmp);
ImageEnMView2.MIO.Params[im].FileName := ImageEnMView1.MIO.Params[idx].FileName;
inc(im);
ImageEnMView1.ReleaseBitmap(idx);
end;
end;
After the drop the ImageEnMView1.MIO.Params[idx].FileName and the ImageEnMView2.MIO.Params[idx].FileName will be the same for each.
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development
Search
