Hello, tell me how to resize comments
my code
Code: Select all
XLS[nlist].Comments.Add(col, row,'', TXlsLine(xlsFile[i]).Дата+' '+TXlsLine(xlsFile[i]).Поставщик+':'+TXlsLine(xlsFile[i]).Примечание+#13#10 );
Code: Select all
XLS[nlist].Comments.Add(col, row,'', TXlsLine(xlsFile[i]).Дата+' '+TXlsLine(xlsFile[i]).Поставщик+':'+TXlsLine(xlsFile[i]).Примечание+#13#10 );
larsa wrote: I couldn't find any problems regarding the other issue, but I'm not sure I got you right.
Code: Select all
XLS.Font.FontName := 'Arial';
Code: Select all
xls[0].Range[0,0,31,55].FontName:='Roboto';
xls.Sheets[0].Range[0,0,10,10].FontName:='Roboto';
XLS[0].AsString[0,2] := 'test';
XLS[0].Cell[0,2].FontName:='Ubuntu';
Code: Select all
xls[0].Clear;
xls[0].AsString[10,0]:='caption';
xls[0].Cell[0,1].BorderTopStyle:=cbsThin;
XLS.Filename := ExtractFilePath(Application.ExeName)+'out.xlsx';
XLS.Write;