Axolot Data

Hello Lars, I modified your Source from procedure TXLSRow.SetPixelHeight(const Value: integer); var F: TFont; begin F := TFont.Create; try FFormats.Fonts[0].CopyToTFont(F); FHeight := -Round((Value / (F.Height / F.Size)) * 20); finally F.Free; end; end; to procedure TXLSRow.SetPixelHeight(const Valu...

What is wrong in this code?
Please, can you give me an example?

procedure TForm1.Button2Click(Sender: TObject); var lXLSReadWriteII21: TXLSReadWriteII2; liCol: integer; liRow: integer; lsFilename: string; begin lsFilename := 'c:\temp\XLSTest.xls'; lXLSReadWriteII21 := TXLSReadWriteII2.Create(self); try lXLSReadWriteII21.Filename := lsFilename; for liRow := 0 to...

I'm using version 3.01.02 of XLSReadWriteII 3.0.

The code
lXLSReadWriteII21.Sheets[0].Rows[liRow].PixelHeight := 200;
don't have any effect. It doesn't work!


lXLSReadWriteII21.Sheets[0].Rows[liRow].Height := 400;
works...

Regards,

mrk

I know, how to place pictures, but I have to place quadratically pictures on a rectangulary cell with korrect aspect ratio!!!!.

In other words: how to place more than one picture on one cell?
And how to korrekt the aspect ratio of each one of the pictures?

Regards,

mrk

Is there a way to import an image to a cell with individual aspect ratio?
I have a rectangulary cell and have to place an quadratically image on it.

How to do this?

Regards,

mrk