diff --git a/components/fpspreadsheet/examples/excel5demo/excel5write.lpi b/components/fpspreadsheet/examples/excel5demo/excel5write.lpi index ee291b8a6..de70f87d8 100644 --- a/components/fpspreadsheet/examples/excel5demo/excel5write.lpi +++ b/components/fpspreadsheet/examples/excel5demo/excel5write.lpi @@ -1,22 +1,23 @@ - + + - - - <UseAppBundle Value="False"/> </General> <VersionInfo> - <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/> + <StringTable ProductVersion=""/> </VersionInfo> + <BuildModes Count="1"> + <Item1 Name="default" Default="True"/> + </BuildModes> <PublishOptions> <Version Value="2"/> <IgnoreBinaries Value="False"/> @@ -43,12 +44,17 @@ </Units> </ProjectOptions> <CompilerOptions> - <Version Value="8"/> + <Version Value="11"/> <PathDelim Value="\"/> <SearchPaths> - <OtherUnitFiles Value="..\"/> - <SrcPath Value="..\"/> + <OtherUnitFiles Value=".."/> + <SrcPath Value=".."/> </SearchPaths> + <Parsing> + <SyntaxOptions> + <UseAnsiStrings Value="False"/> + </SyntaxOptions> + </Parsing> <Other> <CompilerPath Value="$(CompPath)"/> </Other> diff --git a/components/fpspreadsheet/examples/excel5demo/excel5write.lpr b/components/fpspreadsheet/examples/excel5demo/excel5write.lpr index e259271d0..4c78d3c12 100644 --- a/components/fpspreadsheet/examples/excel5demo/excel5write.lpr +++ b/components/fpspreadsheet/examples/excel5demo/excel5write.lpr @@ -33,16 +33,41 @@ begin MyWorkbook := TsWorkbook.Create; MyWorksheet := MyWorkbook.AddWorksheet(Str_Worksheet1); + MyWorkbook.AddFont('Calibri', 20, [], scRed); + // Write some cells MyWorksheet.WriteNumber(0, 0, 1.0);// A1 + MyWorksheet.WriteUsedFormatting(0, 0, [uffBold]); + MyWorksheet.WriteBackgroundColor(0, 0, scRed); + MyWorksheet.WriteNumber(0, 1, 2.0);// B1 MyWorksheet.WriteNumber(0, 2, 3.0);// C1 MyWorksheet.WriteNumber(0, 3, 4.0);// D1 + MyWorksheet.WriteUTF8Text(4, 2, Str_Total);// C5 + MyWorksheet.WriteBorders(4, 2, [cbEast, cbNorth, cbWest, cbSouth]); + myWorksheet.WriteFontColor(4, 2, scRed); + MyWorksheet.WriteBackgroundColor(4, 2, scSilver); + MyWorksheet.WriteVertAlignment(4, 2, vaTop); + MyWorksheet.WriteNumber(4, 3, 10); // D5 + MyWorksheet.WriteUTF8Text(4, 4, 'This is a long wrapped text.'); + MyWorksheet.WriteUsedFormatting(4, 4, [uffWordWrap]); + MyWorksheet.WriteHorAlignment(4, 4, haCenter); + + MyWorksheet.WriteUTF8Text(4, 5, 'Stacked text'); + MyWorksheet.WriteTextRotation(4, 5, rtStacked); + + MyWorksheet.WriteUTF8Text(4, 5, 'Rotated text'); + MyWorksheet.WriteTextRotation(4, 5, rt90DegreeClockwiseRotation); + + MyWorksheet.WriteUTF8Text(4, 6, 'Rotated text'); + MyWorksheet.WriteTextRotation(4, 5, rt90DegreeCounterClockwiseRotation); + // Write current date/time MyWorksheet.WriteDateTime(5, 0, now); + MyWorksheet.WriteFont(5, 0, 'Courier New', 20, [fssBold, fssItalic, fssUnderline], scBlue); { Uncomment this to test large XLS files for i := 2 to 20 do @@ -84,6 +109,14 @@ begin MyWorksheet.WriteUTF8Text(0, 2, Str_Third); MyWorksheet.WriteUTF8Text(0, 3, Str_Fourth); + // Creates a new worksheet + MyWorksheet := MyWorkbook.AddWorksheet('Colors'); + for i:=0 to MyWorkbook.GetPaletteSize-1 do begin + MyWorksheet.WriteBlank(i, 0); + Myworksheet.WriteBackgroundColor(i, 0, TsColor(i)); + MyWorksheet.WriteUTF8Text(i, 1, MyWorkbook.GetColorName(i)); + end; + // Save the spreadsheet to a file MyWorkbook.WriteToFile(MyDir + 'test.xls', sfExcel5, true); MyWorkbook.Free; diff --git a/components/fpspreadsheet/examples/fpsgrid/fpsgrid.lpi b/components/fpspreadsheet/examples/fpsgrid/fpsgrid.lpi index f5566ac64..19a93fc3c 100644 --- a/components/fpspreadsheet/examples/fpsgrid/fpsgrid.lpi +++ b/components/fpspreadsheet/examples/fpsgrid/fpsgrid.lpi @@ -113,10 +113,11 @@ <Filename Value="fpsgrid.lpr"/> <IsPartOfProject Value="True"/> <UnitName Value="fpsgrid"/> + <IsVisibleTab Value="True"/> <EditorIndex Value="0"/> <WindowIndex Value="0"/> <TopLine Value="1"/> - <CursorPos X="3" Y="2"/> + <CursorPos X="16" Y="7"/> <UsageCount Value="120"/> <Loaded Value="True"/> </Unit0> @@ -138,7 +139,7 @@ <Unit2> <Filename Value="..\..\fpspreadsheet.pas"/> <UnitName Value="fpspreadsheet"/> - <EditorIndex Value="5"/> + <EditorIndex Value="4"/> <WindowIndex Value="0"/> <TopLine Value="2720"/> <CursorPos X="49" Y="2742"/> @@ -151,11 +152,10 @@ <Unit3> <Filename Value="..\..\fpspreadsheetgrid.pas"/> <UnitName Value="fpspreadsheetgrid"/> - <IsVisibleTab Value="True"/> - <EditorIndex Value="4"/> + <EditorIndex Value="3"/> <WindowIndex Value="0"/> <TopLine Value="257"/> - <CursorPos X="36" Y="273"/> + <CursorPos X="34" Y="260"/> <UsageCount Value="60"/> <Loaded Value="True"/> </Unit3> @@ -217,12 +217,10 @@ <Unit11> <Filename Value="..\..\fpsopendocument.pas"/> <UnitName Value="fpsopendocument"/> - <EditorIndex Value="6"/> <WindowIndex Value="0"/> <TopLine Value="1"/> <CursorPos X="1" Y="1"/> <UsageCount Value="15"/> - <Loaded Value="True"/> </Unit11> <Unit12> <Filename Value="d:\lazarus-svn\lcl\grids.pas"/> @@ -235,7 +233,7 @@ <Unit13> <Filename Value="..\..\fpsutils.pas"/> <UnitName Value="fpsutils"/> - <EditorIndex Value="3"/> + <EditorIndex Value="2"/> <WindowIndex Value="0"/> <TopLine Value="35"/> <CursorPos X="1" Y="62"/> @@ -252,26 +250,22 @@ <Unit15> <Filename Value="d:\lazarus-svn\lcl\graphics.pp"/> <UnitName Value="Graphics"/> - <EditorIndex Value="2"/> <WindowIndex Value="0"/> <TopLine Value="34"/> <CursorPos X="1" Y="64"/> <UsageCount Value="27"/> - <Loaded Value="True"/> </Unit15> <Unit16> <Filename Value="d:\lazarus-svn\fpc\2.6.2\source\rtl\objpas\classes\classesh.inc"/> - <EditorIndex Value="7"/> <WindowIndex Value="0"/> <TopLine Value="248"/> <CursorPos X="22" Y="263"/> <UsageCount Value="19"/> - <Loaded Value="True"/> </Unit16> <Unit17> <Filename Value="..\..\xlsbiff8.pas"/> <UnitName Value="xlsbiff8"/> - <EditorIndex Value="10"/> + <EditorIndex Value="6"/> <WindowIndex Value="0"/> <TopLine Value="185"/> <CursorPos X="1" Y="203"/> @@ -296,7 +290,7 @@ <Unit20> <Filename Value="..\..\xlscommon.pas"/> <UnitName Value="xlscommon"/> - <EditorIndex Value="9"/> + <EditorIndex Value="5"/> <WindowIndex Value="0"/> <TopLine Value="493"/> <CursorPos X="16" Y="514"/> @@ -306,7 +300,7 @@ <Unit21> <Filename Value="..\..\xlsbiff5.pas"/> <UnitName Value="xlsbiff5"/> - <EditorIndex Value="11"/> + <EditorIndex Value="7"/> <WindowIndex Value="0"/> <TopLine Value="124"/> <CursorPos X="38" Y="143"/> @@ -316,7 +310,7 @@ <Unit22> <Filename Value="..\..\xlsbiff2.pas"/> <UnitName Value="xlsbiff2"/> - <EditorIndex Value="12"/> + <EditorIndex Value="8"/> <WindowIndex Value="0"/> <TopLine Value="82"/> <CursorPos X="38" Y="101"/> @@ -349,12 +343,10 @@ </Unit25> <Unit26> <Filename Value="d:\lazarus-svn\fpc\2.6.2\source\rtl\objpas\classes\lists.inc"/> - <EditorIndex Value="8"/> <WindowIndex Value="0"/> <TopLine Value="141"/> <CursorPos X="3" Y="143"/> <UsageCount Value="17"/> - <Loaded Value="True"/> </Unit26> </Units> <JumpHistory Count="30" HistoryIndex="29">