Can't modify image coordinates

[coheris]

Hi !
I'm using XLSReadWriteII 6.29 (trial version)

I have several images that I first insert at a default position (0,0,0,0) :

Code: Select all

picture := XLS[curSheet].Drawing.InsertImage(Filename, 0, 0, 0, 0);

Then I want to update later their placing using the following properties :

Code: Select all

picture.Col1 := _col;
picture.Row1 := _row;
picture.Col2 := Col2;
picture.Col2Offs := Col2Offset;
picture.Row2 := Row2;
picture.Row2Offs := Row2Offset;

But the images are still stuck at the top left.

Best regards !

[larsa]

Hello

I cant reproduce this. Please note however that you must calculate the coordinates correct when changing position. It's much easier to insert the picture at the correct position at the first time.

[coheris]

Hello,

The real issue is ours, then.
Thank you !

Best regards.

[coheris]

Hi !

I've run my code with XLSReadWriteII 4.65, and I can say that the coordinates are corrects. Pictures are well-placed.
Modifications due to XLSRWII 6 compatibility aside, the algorithm to calculate coordinates is the same.
This is why I think there could be an issue in XLSRWII 6.

Maybe you are not able to reproduce if you insert 1 single image and then update its coordinates.
In my case, I can have 10 images, and process like this (the coordinates are updated once all images have been inserted) :

Code: Select all

insert image 0 at (0, 0, 0, 0)
insert image 1 at (0, 0, 0, 0)
...
insert image 9 at (0, 0, 0, 0)
update image X coordinates (0 <= X < 10)

Image X placing is not updated in XLSRWII 6.

This works with XLSRWII 4 but instead of inserting in file we just add it at no particular place :

Code: Select all

P := XLS.MSOPictures.Add();

Best regards.

[coheris]

Hi !

Have you been able to reproduce this ?

Best regards.

[larsa]

Hello

No, I can't reproduce this. Here is the code I used:

Code: Select all

var
  DI1,DI2,DI3: TXLSDrawingImage;
begin
  DI1 := FXSS.XLS[0].Drawing.InsertImage('Image1.jpg',0,0,0,0);
  DI2 := FXSS.XLS[0].Drawing.InsertImage('Image2.jpg',0,0,0,0);
  DI3 := FXSS.XLS[0].Drawing.InsertImage('Image3.jpg',0,0,0,0);

  DI1.Col1 := 1;
  DI1.Col2 := 3;

  DI2.Col1 := 5;
  DI3.Col2 := 7;

  DI3.Col1 := 10;
  DI3.Col2 := 12;
end;

[coheris]

Hello,

Thank you

So it may comes from the way I retrieve the image, as the image insertion and the coordinates update are done in different functions.
Here is how I update the coordinates :

Code: Select all

var
XLS: TXLSReadWriteII5;
picture: TXLSDrawingImage;
Col2, Row2: integer;
Col2Offset, Row2Offset: double;
begin         
  XLS := TXLSReadWriteII5(_xls.xlsHandle);
  picture := XLS[0].Drawing.Images[_picIdx];

  GetPictCol2Row2(_xls, _col, _row, _cx, _cy, _zoom, @Col2, @Row2, @Col2Offset, @Row2Offset);  // OK : same result as with XLSRWII 4

  picture.Col1 := _col;                    // 12
  picture.Row1 := _row;                  // 0
  picture.Col2 := Col2;                     // 14
  picture.Col2Offs := Col2Offset;       // 0,736842105263158
  picture.Row2 := Row2;                  // 11
  picture.Row2Offs := Row2Offset;    // 0,0113636363636364

end;

I've also tried by using :

Code: Select all

picture := XLS[0].Drawing.Images.Items[_picIdx];

Best regards.

[coheris]

Hi !

I've fixed my issue by stopping to do it in two times.

Best regards.