paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Fix xlsx chart reader sometimes ignoring colors.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9203 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-02-03 10:17:21 +00:00
parent 9137a34697
commit 289d74c7bb
2 changed files with 57 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/examples/other/chart/write_demos.lpg
View File

@ -2,6 +2,11 @@
<CONFIG>
<ProjectGroup FileVersion="2">
<Targets>
<Target FileName="areachart_write_demo.lpi">
<BuildModes>
<Mode Name="Default"/>
</BuildModes>
</Target>
<Target FileName="barchart_write_demo.lpi">
<BuildModes>
<Mode Name="Default"/>

99
components/fpspreadsheet/source/common/xlsxooxmlchart.pas
View File

@ -211,7 +211,7 @@ function HTMLColorStr(AValue: TsColor): string;
var
rgb: TRGBA absolute AValue;
begin
Result := Lowercase(Format('%.2x%.2x%.2x', [rgb.r, rgb.g, rgb.b]));
Result := Format('%.2x%.2x%.2x', [rgb.r, rgb.g, rgb.b]);
end;
@ -587,62 +587,63 @@ var
n: Integer;
child: TDOMNode;
begin
if ANode = nil then
exit;
nodeName := ANode.NodeName;
case nodeName of
'a:schemeClr':
begin
s := GetAttrValue(ANode, 'val');
if (s <> '') then
while Assigned(ANode) do
begin
nodeName := ANode.NodeName;
case nodeName of
'a:schemeClr':
begin
idx := FColors.IndexOf(ColorAlias(s));
if idx > -1 then
s := GetAttrValue(ANode, 'val');
if (s <> '') then
begin
AColor := FColors.Data[idx];
child := ANode.FirstChild;
while Assigned(child) do
idx := FColors.IndexOf(ColorAlias(s));
if idx > -1 then
begin
nodeName := child.NodeName;
s := GetAttrValue(child, 'val');
case nodeName of
'a:tint':
if TryStrToInt(s, n) then
AColor := TintedColor(AColor, n/FACTOR_MULTIPLIER);
'a:lumMod': // luminance modulated
if TryStrToInt(s, n) then
AColor := LumModColor(AColor, n/FACTOR_MULTIPLIER);
'a:lumOff':
if TryStrToInt(s, n) then
AColor := LumOffsetColor(AColor, n/FACTOR_MULTIPLIER);
'a:alpha':
if TryStrToInt(s, n) then
Alpha := n / 100000;
AColor := FColors.Data[idx];
child := ANode.FirstChild;
while Assigned(child) do
begin
nodeName := child.NodeName;
s := GetAttrValue(child, 'val');
case nodeName of
'a:tint':
if TryStrToInt(s, n) then
AColor := TintedColor(AColor, n/FACTOR_MULTIPLIER);
'a:lumMod': // luminance modulated
if TryStrToInt(s, n) then
AColor := LumModColor(AColor, n/FACTOR_MULTIPLIER);
'a:lumOff':
if TryStrToInt(s, n) then
AColor := LumOffsetColor(AColor, n/FACTOR_MULTIPLIER);
'a:alpha':
if TryStrToInt(s, n) then
Alpha := n / 100000;
end;
child := child.NextSibling;
end;
child := child.NextSibling;
end;
end;
end;
end;
'a:srgbClr':
begin
s := GetAttrValue(ANode, 'val');
if s <> '' then
AColor := HTMLColorStrToColor(s);
child := ANode.FirstChild;
while Assigned(child) do
'a:srgbClr':
begin
nodeName := child.NodeName;
s := GetAttrValue(child, 'val');
case nodeName of
'a:alpha':
if TryStrToInt(s, n) then
Alpha := n / FACTOR_MULTIPLIER;
s := GetAttrValue(ANode, 'val');
if s <> '' then
AColor := HTMLColorStrToColor(s);
child := ANode.FirstChild;
while Assigned(child) do
begin
nodeName := child.NodeName;
s := GetAttrValue(child, 'val');
case nodeName of
'a:alpha':
if TryStrToInt(s, n) then
Alpha := n / FACTOR_MULTIPLIER;
end;
child := child.NextSibling;
end;
child := child.NextSibling;
end;
end;
end;
ANode := ANode.NextSibling;
end;
end;
@ -3235,12 +3236,16 @@ begin
Result := Format(
indent + '<%0:s sz="%d" spc="-1" %s%s%s%s>' + LE +
indent + ' <a:solidFill>' + LE +
indent + ' <a:srgbClr val="%s"/>' + LE +
indent + ' </a:solidFill>' + LE +
indent + ' <a:latin typeface="%s"/>' + LE +
indent + '</%0:s>',
[
ANodeName,
round(AFont.Size * 100),
bold, italic, strike, underline,
HTMLColorStr(AFont.Color),
fontName
]
);