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

fpspreadsheet: Read/write hidden state of worksheets for ods

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5774 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-03-01 18:21:21 +00:00
parent 3750e3717d
commit 59c6c664f9
1 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
components/fpspreadsheet/source/common/fpsopendocument.pas
View File

@ -360,6 +360,7 @@ type
public
Name: String;
BiDiMode: TsBiDiMode;
Hidden: boolean;
end;
{ Column style items stored in ColStyleList of the reader }
@ -1195,6 +1196,8 @@ begin
tableStyle := TTableStyleData(FTableStyleList[styleIndex]);
if (tableStyle.BiDiMode = bdRTL) or (tableStyle.BiDiMode = bdLTR) then
ASheet.BiDiMode := tableStyle.BiDiMode;
if tableStyle.Hidden then
ASheet.Options := ASheet.Options + [soHidden];
Result := true;
end;
@ -4294,6 +4297,7 @@ var
styleChildNode: TDOMNode;
bidi: String;
tablestyle: TTableStyleData;
display: String;
begin
// nodeName := GetAttrValue(AStyleNode, 'style:name');
stylename := GetAttrValue(AStyleNode, 'style:name');
@ -4306,17 +4310,18 @@ begin
begin
// stylename := GetAttrValue(styleChildNode, 'style:name');
bidi := GetAttrValue(styleChildNode, 'style:writing-mode');
display := GetAttrValue(styleChildNode, 'table:display');
end;
styleChildNode := styleChildNode.NextSibling;
end;
tablestyle := TTableStyleData.Create;
tablestyle.Name := styleName;
if bidi = 'rl-tb' then
begin
tablestyle := TTableStyleData.Create;
tablestyle.Name := styleName;
tablestyle.BiDiMode := bdRTL;
FTableStyleList.Add(tablestyle);
end;
tablestyle.BiDiMode := bdRTL else
tablestyle.BiDiMode := bdLTR;
tablestyle.Hidden := display = 'false';
FTableStyleList.Add(tablestyle);
end;
@ -6981,10 +6986,10 @@ begin
end;
AppendToStream(AStream, Format(
'<style:style style:name="ta%d" style:family="table" style:master-page-name="PageStyle_5f_%s">' +
'<style:table-properties table:display="true" %s/>' +
'<style:table-properties table:display="%s" %s/>' +
'</style:style>', [
i+1, UTF8TextToXMLText(sheetname),
bidi
FALSE_TRUE[not (soHidden in sheet.Options)], bidi
]));
if sheet.GetImageCount > 0 then
begin