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

fpspreadsheet: Pass visibility of gridlines and sheet headers from TsWorksheetGrid to underlying Worksheet for saving.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3041 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-05-11 16:22:48 +00:00
parent 07824c46c1
commit 705a7956ce
2 changed files with 81 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

136
components/fpspreadsheet/examples/fpsgrid/fpsgrid.lpi
View File

@ -139,8 +139,8 @@
<UnitName Value="fpspreadsheet"/> <UnitName Value="fpspreadsheet"/>
<EditorIndex Value="8"/> <EditorIndex Value="8"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="2255"/> <TopLine Value="280"/>
<CursorPos X="19" Y="2262"/> <CursorPos X="17" Y="312"/>
<UsageCount Value="100"/> <UsageCount Value="100"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
@ -150,8 +150,8 @@
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="2007"/> <TopLine Value="2096"/>
<CursorPos X="1" Y="1983"/> <CursorPos X="1" Y="2120"/>
<UsageCount Value="100"/> <UsageCount Value="100"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="7" Y="1938" ID="1"/> <Item0 X="7" Y="1938" ID="1"/>
@ -585,123 +585,123 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="1360" Column="1" TopLine="1335"/> <Caret Line="1368" Column="1" TopLine="1336"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="1361" Column="1" TopLine="1335"/> <Caret Line="610" Column="1" TopLine="602"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="1362" Column="1" TopLine="1335"/> <Caret Line="613" Column="1" TopLine="602"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="1363" Column="1" TopLine="1335"/> <Caret Line="603" Column="19" TopLine="603"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="1368" Column="1" TopLine="1336"/> <Caret Line="310" Column="3" TopLine="310"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="610" Column="1" TopLine="602"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="613" Column="1" TopLine="602"/> <Caret Line="173" Column="29" TopLine="142"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="603" Column="19" TopLine="603"/> <Caret Line="556" Column="17" TopLine="524"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="mainform.pas"/>
<Caret Line="310" Column="3" TopLine="310"/>
</Position9>
<Position10>
<Filename Value="mainform.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position10>
<Position11>
<Filename Value="mainform.pas"/>
<Caret Line="173" Column="29" TopLine="142"/>
</Position11>
<Position12>
<Filename Value="mainform.pas"/>
<Caret Line="556" Column="17" TopLine="524"/>
</Position12>
<Position13>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="2038" Column="1" TopLine="2031"/> <Caret Line="2038" Column="1" TopLine="2031"/>
</Position13> </Position9>
<Position14> <Position10>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="2041" Column="1" TopLine="2031"/> <Caret Line="2041" Column="1" TopLine="2031"/>
</Position14> </Position10>
<Position15> <Position11>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="2044" Column="1" TopLine="2031"/> <Caret Line="2044" Column="1" TopLine="2031"/>
</Position11>
<Position12>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
<Caret Line="2483" Column="1" TopLine="2464"/>
</Position12>
<Position13>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
<Caret Line="2484" Column="1" TopLine="2464"/>
</Position13>
<Position14>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
<Caret Line="2485" Column="1" TopLine="2464"/>
</Position14>
<Position15>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
<Caret Line="2486" Column="1" TopLine="2464"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/> <Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
<Caret Line="2483" Column="1" TopLine="2464"/> <Caret Line="2490" Column="1" TopLine="2464"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/> <Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
<Caret Line="2484" Column="1" TopLine="2464"/> <Caret Line="2492" Column="1" TopLine="2464"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/> <Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
<Caret Line="2485" Column="1" TopLine="2464"/> <Caret Line="2494" Column="1" TopLine="2464"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/> <Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
<Caret Line="2486" Column="1" TopLine="2464"/> <Caret Line="2495" Column="1" TopLine="2464"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
<Caret Line="2490" Column="1" TopLine="2464"/>
</Position20>
<Position21>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
<Caret Line="2492" Column="1" TopLine="2464"/>
</Position21>
<Position22>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
<Caret Line="2494" Column="1" TopLine="2464"/>
</Position22>
<Position23>
<Filename Value="d:\lazarus-svn\lcl\grids.pas"/>
<Caret Line="2495" Column="1" TopLine="2464"/>
</Position23>
<Position24>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="2038" Column="1" TopLine="2031"/> <Caret Line="2038" Column="1" TopLine="2031"/>
</Position24> </Position20>
<Position25> <Position21>
<Filename Value="..\..\fpspreadsheetgrid.pas"/> <Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="1626" Column="1" TopLine="1607"/> <Caret Line="1626" Column="1" TopLine="1607"/>
</Position25> </Position21>
<Position26> <Position22>
<Filename Value="..\..\fpspreadsheet.pas"/> <Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="414" Column="14" TopLine="397"/> <Caret Line="414" Column="14" TopLine="397"/>
</Position26> </Position22>
<Position27> <Position23>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="564" Column="1" TopLine="557"/> <Caret Line="564" Column="1" TopLine="557"/>
</Position27> </Position23>
<Position28> <Position24>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="640" Column="31" TopLine="604"/> <Caret Line="640" Column="31" TopLine="604"/>
</Position28> </Position24>
<Position29> <Position25>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="641" Column="31" TopLine="605"/> <Caret Line="641" Column="31" TopLine="605"/>
</Position29> </Position25>
<Position30> <Position26>
<Filename Value="mainform.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="640" Column="31" TopLine="604"/> <Caret Line="640" Column="31" TopLine="604"/>
</Position26>
<Position27>
<Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="2024" Column="25" TopLine="2007"/>
</Position27>
<Position28>
<Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="2262" Column="19" TopLine="2255"/>
</Position28>
<Position29>
<Filename Value="..\..\fpspreadsheet.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position29>
<Position30>
<Filename Value="..\..\fpspreadsheetgrid.pas"/>
<Caret Line="2104" Column="68" TopLine="2087"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

13
components/fpspreadsheet/fpspreadsheetgrid.pas
View File

@ -2096,13 +2096,26 @@ begin
Options := Options + [goHorzLine, goVertLine] Options := Options + [goHorzLine, goVertLine]
else else
Options := Options - [goHorzLine, goVertLine]; Options := Options - [goHorzLine, goVertLine];
if FWorksheet <> nil then
if AValue then
FWorksheet.Options := FWorksheet.Options + [soShowGridLines]
else
FWorksheet.Options := FWorksheet.Options - [soShowGridLines];
end; end;
{ Shows / hides the worksheet's row and column headers. } { Shows / hides the worksheet's row and column headers. }
procedure TsCustomWorksheetGrid.SetShowHeaders(AValue: Boolean); procedure TsCustomWorksheetGrid.SetShowHeaders(AValue: Boolean);
begin begin
if AValue = GetShowHeaders then Exit; if AValue = GetShowHeaders then Exit;
FHeaderCount := ord(AValue); FHeaderCount := ord(AValue);
if FWorksheet <> nil then
if AValue then
FWorksheet.Options := FWorksheet.Options + [soShowHeaders]
else
FWorksheet.Options := FWorksheet.Options - [soShowHeaders];
Setup; Setup;
end; end;