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

Improves FPSpreadsheet examples

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1213 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2010-05-02 10:30:45 +00:00
parent 18e7e77a41
commit 7a69f33b79
8 changed files with 94 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
components/fpspreadsheet/examples/fpsvisual/fpsvisual.ico → components/fpspreadsheet/examples/fpsgrid/fpsgrid.ico
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 134 KiB

After

Width:  |  Height:  |  Size: 134 KiB

163
components/fpspreadsheet/examples/fpsvisual/fpsvisual.lpi → components/fpspreadsheet/examples/fpsgrid/fpsgrid.lpi
View File

@ -6,14 +6,15 @@
<General> <General>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<Icon Value="0"/> <Title Value="fpsgrid"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="3"/> <Icon Value="0"/>
<ActiveWindowIndexAtStart Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/> <Language Value=""/>
<CharSet Value=""/> <CharSet Value=""/>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
</VersionInfo> </VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
@ -24,7 +25,7 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
@ -35,12 +36,17 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="8"> <Units Count="9">
<Unit0> <Unit0>
<Filename Value="fpsvisual.lpr"/> <Filename Value="fpsgrid.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="fpsvisual"/> <UnitName Value="fpsgrid"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="16" Y="9"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
@ -48,187 +54,202 @@
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="mainform"/> <UnitName Value="mainform"/>
<CursorPos X="20" Y="38"/>
<TopLine Value="12"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="25"/>
<CursorPos X="20" Y="38"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<UnitName Value="fpspreadsheet"/> <UnitName Value="fpspreadsheet"/>
<CursorPos X="15" Y="92"/> <EditorIndex Value="2"/>
<TopLine Value="73"/> <WindowIndex Value="0"/>
<EditorIndex Value="1"/> <TopLine Value="108"/>
<CursorPos X="15" Y="120"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<UnitName Value="fpspreadsheetgrid"/> <UnitName Value="fpspreadsheetgrid"/>
<CursorPos X="14" Y="142"/> <EditorIndex Value="4"/>
<WindowIndex Value="0"/>
<TopLine Value="129"/> <TopLine Value="129"/>
<EditorIndex Value="3"/> <CursorPos X="14" Y="142"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\..\fpolestorage.pas"/> <Filename Value="..\..\fpolestorage.pas"/>
<UnitName Value="fpolestorage"/> <UnitName Value="fpolestorage"/>
<CursorPos X="4" Y="44"/> <EditorIndex Value="6"/>
<WindowIndex Value="0"/>
<TopLine Value="25"/> <TopLine Value="25"/>
<EditorIndex Value="5"/> <CursorPos X="4" Y="44"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\..\..\..\..\lazarus27\fpc\2.2.4\source\packages\winunits-base\src\activex.pp"/> <Filename Value="..\..\..\..\..\lazarus27\fpc\2.2.4\source\packages\winunits-base\src\activex.pp"/>
<UnitName Value="ActiveX"/> <UnitName Value="ActiveX"/>
<CursorPos X="10" Y="24"/> <WindowIndex Value="0"/>
<TopLine Value="49"/> <TopLine Value="49"/>
<EditorIndex Value="6"/> <CursorPos X="10" Y="24"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="..\..\..\..\..\lazarus27\fpc\2.2.4\source\packages\fcl-base\src\avl_tree.pp"/> <Filename Value="..\..\..\..\..\lazarus27\fpc\2.2.4\source\packages\fcl-base\src\avl_tree.pp"/>
<UnitName Value="AVL_Tree"/> <UnitName Value="AVL_Tree"/>
<CursorPos X="14" Y="83"/> <WindowIndex Value="0"/>
<TopLine Value="37"/> <TopLine Value="37"/>
<EditorIndex Value="2"/> <CursorPos X="14" Y="83"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="..\..\..\..\..\lazarus\lcl\grids.pas"/> <Filename Value="..\..\..\..\..\lazarus\lcl\grids.pas"/>
<UnitName Value="Grids"/> <UnitName Value="Grids"/>
<CursorPos X="28" Y="1534"/> <EditorIndex Value="5"/>
<WindowIndex Value="0"/>
<TopLine Value="1517"/> <TopLine Value="1517"/>
<EditorIndex Value="4"/> <CursorPos X="28" Y="1534"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8>
<Filename Value="..\..\..\..\..\lazarus\lcl\include\customform.inc"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="2021"/>
<CursorPos X="1" Y="2041"/>
<SyntaxHighlighter Value="FreePascal"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="Text"/>
</Unit8>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="486" Column="15" TopLine="461"/> <Caret Line="880" Column="21" TopLine="861"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="490" Column="17" TopLine="461"/> <Caret Line="883" Column="32" TopLine="861"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="492" Column="9" TopLine="461"/> <Caret Line="885" Column="75" TopLine="861"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="859" Column="42" TopLine="840"/> <Caret Line="889" Column="20" TopLine="861"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="880" Column="21" TopLine="861"/> <Caret Line="352" Column="14" TopLine="338"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="883" Column="32" TopLine="861"/> <Caret Line="101" Column="15" TopLine="82"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="885" Column="75" TopLine="861"/> <Caret Line="34" Column="21" TopLine="12"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="889" Column="20" TopLine="861"/> <Caret Line="99" Column="3" TopLine="83"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="352" Column="14" TopLine="338"/> <Caret Line="352" Column="23" TopLine="333"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="101" Column="15" TopLine="82"/> <Caret Line="37" Column="27" TopLine="12"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="..\..\..\..\..\lazarus27\fpc\2.2.4\source\packages\fcl-base\src\avl_tree.pp"/> <Filename Value="mainform.pas"/>
<Caret Line="83" Column="16" TopLine="59"/> <Caret Line="36" Column="1" TopLine="12"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="34" Column="21" TopLine="12"/> <Caret Line="37" Column="1" TopLine="12"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="99" Column="3" TopLine="83"/> <Caret Line="38" Column="1" TopLine="12"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="352" Column="23" TopLine="333"/> <Caret Line="39" Column="1" TopLine="12"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="mainform.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="37" Column="27" TopLine="12"/> <Caret Line="46" Column="1" TopLine="27"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="mainform.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="36" Column="1" TopLine="12"/> <Caret Line="48" Column="1" TopLine="29"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="37" Column="1" TopLine="12"/> <Caret Line="38" Column="3" TopLine="12"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="mainform.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="38" Column="1" TopLine="12"/> <Caret Line="48" Column="19" TopLine="35"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="mainform.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="39" Column="1" TopLine="12"/> <Caret Line="15" Column="41" TopLine="4"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="..\..\..\..\..\lazarus\lcl\grids.pas"/>
<Caret Line="46" Column="1" TopLine="27"/> <Caret Line="1444" Column="33" TopLine="1425"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="48" Column="1" TopLine="29"/> <Caret Line="25" Column="19" TopLine="4"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="mainform.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="38" Column="3" TopLine="12"/> <Caret Line="17" Column="41" TopLine="7"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="48" Column="19" TopLine="35"/> <Caret Line="38" Column="20" TopLine="12"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="15" Column="41" TopLine="4"/> <Caret Line="29" Column="17" TopLine="7"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="..\..\..\..\..\lazarus\lcl\grids.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="1444" Column="33" TopLine="1425"/> <Caret Line="199" Column="18" TopLine="173"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="fpsgrid.lpr"/>
<Caret Line="25" Column="19" TopLine="4"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="fpsgrid.lpr"/>
<Caret Line="17" Column="41" TopLine="7"/> <Caret Line="16" Column="4" TopLine="1"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="38" Column="20" TopLine="12"/> <Caret Line="34" Column="22" TopLine="25"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="29" Column="17" TopLine="7"/> <Caret Line="38" Column="20" TopLine="25"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="199" Column="18" TopLine="173"/> <Caret Line="120" Column="15" TopLine="108"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

6
components/fpspreadsheet/examples/fpsvisual/fpsvisual.lpr → components/fpspreadsheet/examples/fpsgrid/fpsgrid.lpr
View File

@ -3,17 +3,13 @@ program fpsvisual;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, mainform, LResources, laz_fpspreadsheet_visual Forms, mainform, LResources, laz_fpspreadsheet_visual
{ you can add units after this }; { you can add units after this };
{$IFDEF WINDOWS}{$R fpsvisual.rc}{$ENDIF} //{$IFDEF WINDOWS}{$R fpsvisual.rc}{$ENDIF}
begin begin
{$I fpsvisual.lrs}
Application.Initialize; Application.Initialize;
Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm1, Form1);
Application.Run; Application.Run;

0
components/fpspreadsheet/examples/fpsvisual/mainform.lfm → components/fpspreadsheet/examples/fpsgrid/mainform.lfm
View File

0
components/fpspreadsheet/examples/fpsvisual/mainform.lrs → components/fpspreadsheet/examples/fpsgrid/mainform.lrs
View File

2
components/fpspreadsheet/examples/fpsvisual/mainform.pas → components/fpspreadsheet/examples/fpsgrid/mainform.pas
View File

@ -35,7 +35,7 @@ var
begin begin
lWorksheet := TsWorksheet.Create; lWorksheet := TsWorksheet.Create;
try try
lWorksheet.GetCell(2, 2)^.UTF8StringValue := 'Algo'; lWorksheet.WriteUTF8Text(2, 2, 'Algo');
sWorksheetGrid1.LoadFromWorksheet(lWorksheet); sWorksheetGrid1.LoadFromWorksheet(lWorksheet);
finally finally
lWorksheet.Free; lWorksheet.Free;

17
components/fpspreadsheet/examples/fpsvisual/fpsvisual.manifest
View File

@ -1,17 +0,0 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="CompanyName.ProductName.YourApp" type="win32"/>
<description>Your application description here.</description>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/>
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

7
components/fpspreadsheet/examples/fpsvisual/fpsvisual.rc
View File

@ -1,7 +0,0 @@
#define RT_MANIFEST 24
#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "fpsvisual.manifest"
MAINICON ICON "fpsvisual.ico"