Unwanted Border In Cell
Posted: Tue Feb 20, 2018 10:48 am
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?
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;