Unwanted Border In Cell

[ykarapinar]

When I use the following code to send to excel, in the cell created there are borders inside cells (cross)
How to remove these borders?

Code: Select all

var
  XLSReadWriteII51: TXLSReadWriteII5;
begin
  XLSReadWriteII51:=TXLSReadWriteII5.Create(nil);
  try
    XLSReadWriteII51.FileName:='C:\Temp\x.xlsx';
    XLSReadWriteII51.Sheets[0].AsString[0, 0]:='0:0';
    XLSReadWriteII51.Sheets[0].AsString[1, 0]:='1:0';

    XLSReadWriteII51.CmdFormat.BeginEdit(XLSReadWriteII51[0]);
    XLSReadWriteII51.CmdFormat.Border.Style := cbsThin;
    XLSReadWriteII51.CmdFormat.Border.Preset(cbspOutlineAndInside);
    XLSReadWriteII51.CmdFormat.Apply(0, 0, 1, 0);
  finally
    XLSReadWriteII51.Write;
    XLSReadWriteII51.Destroy;
  end;
end;

[larsa]

Hello

This is fixed in update 6.00.30