Axolot Data

Code: Select all

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 10 do
    begin
      lXLSReadWriteII21.Sheets[0].Rows.AddIfNone(liRow);
      lXLSReadWriteII21.Sheets[0].Rows[liRow].PixelHeight := 200;               // don't work!
//      lXLSReadWriteII21.Sheets[0].Rows[liRow].Height := 200;                  - works
//      lXLSReadWriteII21.Sheets[0].Rows.SetRowHeight(liRow, liRow, 200);       - works
      for liCol := 0 to 10 do
      begin
        lXLSReadWriteII21.Sheets[0].Columns.AddIfNone(liCol, 1);
        lXLSReadWriteII21.Sheets[0].Columns[liCol].PixelWidth := 200;           // works
        lXLSReadWriteII21.Sheets[0].AsWideString[liCol, liRow] := IntToStr(liCol) + '/' + IntToStr(liRow);
      end;
    end;

    lXLSReadWriteII21.Write;
 finally
    FreeAndNil(lXLSReadWriteII21);
  end;
end;

Code: Select all

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;

Code: Select all

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);

    SetHeight(FHeight);        //new!!!
  finally
    F.Free;
  end;
end;