pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: optimize workbook font infrastructure to avoid that missing font 4 dictated by Excel. Remove UsedFormattingField uffBold (obsolete since supporting fonts).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4015 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-03-11 22:28:07 +00:00
parent 24b49277c1
commit c7c8d73179
21 changed files with 185 additions and 329 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
components/fpspreadsheet/examples/other/demo_expression_parser.pas
View File

@@ -28,21 +28,19 @@ begin
worksheet.WriteNumber(0, 0, 1); // A1
worksheet.WriteNumber(0, 1, 2.5); // B1
{
worksheet.WriteUTF8Text(0, 0, 'Hallo'); // A1
worksheet.WriteUTF8Text(0, 1, 'World'); // B1
}
//cell := worksheet.WriteFormula(1, 0, '=4+5'); // A2
//cell := worksheet.WriteFormula(1, 0, 'AND(TRUE(), TRUE(), TRUE())');
//cell := worksheet.WriteFormula(1, 0, 'SIN(A1+B1)');
//cell := worksheet.WriteFormula(1, 0, '=TRUE()');
//cell := worksheet.WriteFormula(1, 0, '=1-(4/2)^2*2-1'); // A2
//cell := Worksheet.WriteFormula(1, 0, 'datedif(today(),Date(2014,1,1),"D")');
//cell := Worksheet.WriteFormula(1, 0, 'Day(Date(2014, 1, 12))');
//cell := Worksheet.WriteFormula(1, 0, 'SUM(1,2,3)');
//cell := Worksheet.WriteFormula(1, 0, 'CELL("address",A1)');
// cell := Worksheet.WriteFormula(1, 0, 'REPT("Hallo", 3)');
cell := Worksheet.WriteFormula(1, 0, '#REF!');
cell := worksheet.WriteFormula(1, 0, '=4+5'); // A2
cell := worksheet.WriteFormula(2, 0, 'AND(TRUE(), TRUE(), TRUE())');
cell := worksheet.WriteFormula(3, 0, 'SIN(A1+B1)');
cell := worksheet.WriteFormula(4, 0, '=TRUE()');
cell := worksheet.WriteFormula(5, 0, '=1-(4/2)^2*2-1'); // A2
cell := Worksheet.WriteFormula(6, 0, 'datedif(today(),Date(2014,1,1),"D")');
cell := Worksheet.WriteFormula(7, 0, 'Day(Date(2014, 1, 12))');
cell := Worksheet.WriteFormula(8, 0, 'SUM(1,2,3)');
cell := Worksheet.WriteFormula(9, 0, 'CELL("address",A1)');
cell := Worksheet.WriteFormula(10, 0, 'REPT("Hallo", 3)');
cell := Worksheet.WriteFormula(11, 0, '#REF!');
WriteLn('A1: ', worksheet.ReadAsUTF8Text(0, 0));
WriteLn('B1: ', worksheet.ReadAsUTF8Text(0, 1));