HotXLS Delphi Excel Read Write Library / Component Developers Guide |
Workbook.Sheets[1].UsedRange.Select;
Workbook.Sheets[1].UsedRange.Font.Italic := True;
With Workbook.Sheets[1].UsedRange do begin for i := 1 to Rows.Count do if (i mod 2) = 0 then Rows[i].Font.Bold := True; end;
Copyright©2014 loslab.com |