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

fpspreadsheet: Fix chart dash patterns in ods writer.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8981 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-10-26 11:07:05 +00:00
parent 5c5efb6720
commit 16944df46e
3 changed files with 330 additions and 283 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/examples/other/chart/write_chart_demo.lpr
View File

@ -145,6 +145,8 @@ begin
b.Free; b.Free;
end; end;
WriteLn;
Write('Press ENTER to close...');
ReadLn; ReadLn;
end. end.

266
components/fpspreadsheet/source/common/fpschartstyles.pas
View File

@ -122,79 +122,74 @@ type
TsChartStyle = class TsChartStyle = class
private private
FName: String;
FElement: TsChartStyleElement; FElement: TsChartStyleElement;
public public
constructor Create(AElement: TsChartStyleElement); virtual; constructor Create(AElement: TsChartStyleElement); virtual;
procedure ApplyToChart(AChart: TsChart; AIndex: Integer); virtual; abstract; procedure ApplyToChart(AChart: TsChart; AIndex: Integer); virtual; abstract;
function EqualTo(OtherStyle: TsChartStyle): Boolean; virtual; abstract;
procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); virtual; abstract; procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); virtual; abstract;
property Element: TsChartStyleElement read FElement; property Element: TsChartStyleElement read FElement;
property Name: String read FName;
end; end;
TsChartStyleClass = class of TsChartStyle; TsChartStyleClass = class of TsChartStyle;
TsChartBackgroundStyle = class(TsChartStyle) TsChartStyle_Background = class(TsChartStyle)
private private
FBackground: TsChartFillRec; FBackground: TsChartFillRec;
FBorder: TsChartLineRec; FBorder: TsChartLineRec;
public public
procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override; procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override;
function EqualTo(OtherStyle: TsChartStyle): Boolean; override;
procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override; procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override;
property Background: TsChartFillRec read FBackground; property Background: TsChartFillRec read FBackground;
property Border: TsChartLineRec read FBorder; property Border: TsChartLineRec read FBorder;
end; end;
TsChartLineStyle = class(TsChartStyle) TsChartStyle_Line = class(TsChartStyle)
private private
FLine: TsChartLineRec; FLine: TsChartLineRec;
public public
procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override; procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override;
function EqualTo(OtherStyle: TsChartStyle): Boolean; override;
procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override; procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override;
property Line: TsChartLineRec read FLine; property Line: TsChartLineRec read FLine;
end; end;
TsChartAxisStyle = class(TsChartStyle) TsChartStyle_Axis = class(TsChartStyle)
private private
FAxis: TsChartAxisRec; FAxis: TsChartAxisRec;
public public
procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override; procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override;
function EqualTo(OtherStyle: TsChartStyle): Boolean; override;
procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override; procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override;
property Axis: TsChartAxisRec read FAxis write FAxis; property Axis: TsChartAxisRec read FAxis write FAxis;
end; end;
TsChartCaptionStyle = class(TsChartStyle) TsChartStyle_Caption = class(TsChartStyle)
private private
FCaption: TsChartTextRec; FCaption: TsChartTextRec;
public public
procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override; procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override;
function EqualTo(OtherStyle: TsChartStyle): Boolean; override;
procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override; procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override;
property Caption: TsChartTextRec read FCaption write FCaption; property Caption: TsChartTextRec read FCaption write FCaption;
end; end;
TsChartLegendStyle = class(TsChartStyle) TsChartStyle_Legend = class(TsChartStyle)
private private
FLegend: TsChartLegendRec; FLegend: TsChartLegendRec;
public public
procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override; procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override;
function EqualTo(OtherStyle: TsChartStyle): Boolean; override;
procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override; procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override;
property Legend: TsChartLegendRec read FLegend write FLegend; property Legend: TsChartLegendRec read FLegend write FLegend;
end; end;
TsChartPlotAreaStyle = class(TsChartStyle) TsChartStyle_PlotArea = class(TsChartStyle)
private private
FPlotArea: TsChartPlotAreaRec; FPlotArea: TsChartPlotAreaRec;
public public
procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override; procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override;
function EqualTo(OtherStyle: TsChartStyle): Boolean; override;
procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override; procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override;
end; end;
TsChartSeriesStyle = class(TsChartStyle) TsChartStyle_Series = class(TsChartStyle)
private private
// for all series types // for all series types
FLine: TsChartLineRec; FLine: TsChartLineRec;
@ -207,7 +202,6 @@ type
FShowSymbols: Boolean; FShowSymbols: Boolean;
public public
procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override; procedure ApplyToChart(AChart: TsChart; AIndex: Integer); override;
function EqualTo(OtherStyle: TsChartStyle): Boolean; override;
procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override; procedure ExtractFromChart(AChart: TsChart; AIndex: Integer); override;
property Line: TsChartLineRec read FLine write FLine; // lineseries lines property Line: TsChartLineRec read FLine write FLine; // lineseries lines
property Fill: TsChartFillRec read FFill write FFill; // symbol fill, bar fill, area border property Fill: TsChartFillRec read FFill write FFill; // symbol fill, bar fill, area border
@ -226,12 +220,16 @@ type
public public
destructor Destroy; override; destructor Destroy; override;
function AddChartStyle(AChart: TsChart; AStyleClass: TsChartStyleClass; function AddChartStyle(AName: String; AChart: TsChart;
AElement: TsChartStyleElement; AIndex: Integer = -1): Integer; AStyleClass: TsChartStyleClass; AElement: TsChartStyleElement;
AIndex: Integer = -1): Integer;
procedure Clear; procedure Clear;
procedure Delete(AIndex: Integer); procedure Delete(AIndex: Integer);
function FindStyleIndexByName(const AName: String): Integer;
{
function FindChartStyle(AChart: TsChart; AStyleClass: TsChartStyleClass; function FindChartStyle(AChart: TsChart; AStyleClass: TsChartStyleClass;
AElement: TsChartStyleElement; AIndex: Integer = -1): Integer; AElement: TsChartStyleElement; AIndex: Integer = -1): Integer;
}
end; end;
implementation implementation
@ -671,39 +669,30 @@ begin
FElement := AElement; FElement := AElement;
end; end;
{ TsChartBackgroundstyle } { TsChartStyle_Background }
procedure TsChartBackgroundStyle.ApplyToChart(AChart: TsChart; AIndex: Integer); procedure TsChartStyle_Background.ApplyToChart(AChart: TsChart; AIndex: Integer);
begin begin
if (FElement in [ceBackground, ceWall, ceFloor]) then if (FElement in [ceBackground, ceWall, ceFloor]) then
begin begin
FBackground.ToChart(AChart, FElement, AIndex); FBackground.ToChart(AChart, FElement, AIndex);
FBorder.ToChart(AChart, FElement, AIndex); FBorder.ToChart(AChart, FElement, AIndex);
end else end else
raise Exception.Create('[TsChartBackgroundStyle.ApplyToChart] Unknown background style.'); raise Exception.Create('[TsChartStyle_Background.ApplyToChart] Unknown background style.');
end; end;
function TsChartBackgroundStyle.EqualTo(OtherStyle: TsChartStyle): Boolean; procedure TsChartStyle_Background.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin
Result := false;
if not (OtherStyle is TsChartBackgroundStyle) then
exit;
Result := (FBackground = TsChartBackgroundStyle(OtherStyle).Background) and
(FBorder = TsChartBackgroundStyle(OtherStyle).Border);
end;
procedure TsChartBackgroundStyle.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin begin
if (FElement in [ceBackground, ceWall, ceFloor]) then if (FElement in [ceBackground, ceWall, ceFloor]) then
begin begin
FBackground.FromChart(AChart, FElement, AIndex); FBackground.FromChart(AChart, FElement, AIndex);
FBorder.FromChart(AChart, FElement, AIndex); FBorder.FromChart(AChart, FElement, AIndex);
end else end else
raise Exception.Create('[TsChartBackgroundStyle.ExtractFromChart] Unknown background style.'); raise Exception.Create('[TsChartStyle_Background.ExtractFromChart] Unknown background style.');
end; end;
{ TsChartLineStyle } { TsChartStyle_Line }
const const
ALLOWED_LS = [ ALLOWED_LS = [
@ -711,158 +700,93 @@ const
ceYAxisMajorGrid, ceYAxisMinorGrid, ceY2AxisMajorGrid, ceY2AxisMinorGrid ceYAxisMajorGrid, ceYAxisMinorGrid, ceY2AxisMajorGrid, ceY2AxisMinorGrid
]; ];
procedure TsChartLineStyle.ApplyToChart(AChart: TsChart; AIndex: Integer); procedure TsChartStyle_Line.ApplyToChart(AChart: TsChart; AIndex: Integer);
begin begin
if (FElement in ALLOWED_LS) then if (FElement in ALLOWED_LS) then
Line.ToChart(AChart, FElement, AIndex) Line.ToChart(AChart, FElement, AIndex)
else else
raise Exception.Create('[TsChartLineStyle.ApplytoGrid] Unknown line'); raise Exception.Create('[TsChartStyle_Line.ApplytoGrid] Unknown line');
end; end;
function TsChartLineStyle.EqualTo(OtherStyle: TsChartStyle): Boolean; procedure TsChartStyle_Line.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin
Result := (OtherStyle is TsChartLineStyle) and (Line = TsChartLineStyle(OtherStyle).Line);
end;
procedure TsChartLineStyle.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin begin
if (FElement in ALLOWED_LS) then if (FElement in ALLOWED_LS) then
Line.FromChart(AChart, FElement, AIndex) Line.FromChart(AChart, FElement, AIndex)
else else
raise Exception.Create('[TsChartLineStyle.ExtractFromChart] Unknown line'); raise Exception.Create('[TsChartStyle_Line.ExtractFromChart] Unknown line');
end; end;
{ TsChartAxisStyle } { TsChartStyle_Axis }
procedure TsChartAxisStyle.ApplyToChart(AChart: TsChart; AIndex: Integer); procedure TsChartStyle_Axis.ApplyToChart(AChart: TsChart; AIndex: Integer);
begin begin
case FElement of Axis.ToChart(AChart, FElement);
ceXAxis: Axis.AxisLine.ToChart(AChart, FElement, -1);
begin Axis.LabelFont.ToChart(AChart, FElement);
Axis.ToChart(AChart, ceXAxis);
Axis.AxisLine.ToChart(AChart, ceXAxis, AIndex);
end;
ceYAxis:
begin
Axis.ToChart(AChart, ceYAxis);
Axis.AxisLine.ToChart(AChart, ceYAxis, AIndex);
end;
ceX2Axis:
begin
Axis.ToChart(AChart, ceX2Axis);
Axis.AxisLine.ToChart(AChart, ceX2Axis, AIndex);
end;
ceY2Axis:
begin
Axis.ToChart(AChart, ceY2Axis);
Axis.AxisLine.ToChart(AChart, ceY2Axis, AIndex);
end;
end;
end; end;
function TsChartAxisStyle.EqualTo(OtherStyle: TsChartStyle): Boolean; procedure TsChartStyle_Axis.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin begin
Result := (OtherStyle is TsChartAxisStyle) and (Axis = TsChartAxisStyle(OtherStyle).Axis); Axis.FromChart(AChart, FElement);
end; Axis.AxisLine.FromChart(AChart, FElement, -1);
Axis.LabelFont.FromChart(AChart, FElement);
procedure TsChartAxisStyle.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin
begin
case FElement of
ceXAxis:
begin
Axis.FromChart(AChart, ceXAxis);
Axis.AxisLine.FromChart(AChart, ceXAxis, AIndex);
end;
ceYAxis:
begin
Axis.FromChart(AChart, ceYAxis);
Axis.AxisLine.FromChart(AChart, ceYAxis, AIndex);
end;
ceX2Axis:
begin
Axis.FromChart(AChart, ceX2Axis);
Axis.AxisLine.FromChart(AChart, ceX2Axis, AIndex);
end;
ceY2Axis:
begin
Axis.FromChart(AChart, ceY2Axis);
Axis.AxisLine.FromChart(AChart, ceY2Axis, AIndex);
end;
end;
end;
end; end;
{ TsChartCaptionStyle } { TsChartStyle_Caption }
const const
ALLOWED_CAPTIONS = [ceXAxisCaption, ceX2AxisCaption, ceYAxisCaption, ceY2AxisCaption, ceTitle, ceSubTitle]; ALLOWED_CAPTIONS = [ceXAxisCaption, ceX2AxisCaption, ceYAxisCaption, ceY2AxisCaption, ceTitle, ceSubTitle];
procedure TsChartCaptionStyle.ApplyToChart(AChart: TsChart; AIndex: Integer); procedure TsChartStyle_Caption.ApplyToChart(AChart: TsChart; AIndex: Integer);
begin begin
if (FElement in ALLOWED_CAPTIONS) then if (FElement in ALLOWED_CAPTIONS) then
Caption.ToChart(AChart, FElement) Caption.ToChart(AChart, FElement)
else else
raise Exception.Create('[TsChartCaptionStyle.ApplyToChart] Unknown caption'); raise Exception.Create('[TsChartstyle_Caption.ApplyToChart] Unknown caption');
end; end;
function TsChartCaptionStyle.EqualTo(OtherStyle: TsChartStyle): Boolean; procedure TsChartStyle_Caption.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin
Result := (OtherStyle is TsChartCaptionStyle) and (Caption = TsChartCaptionStyle(OtherStyle).Caption);
end;
procedure TsChartCaptionStyle.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin begin
if (FElement in ALLOWED_CAPTIONS) then if (FElement in ALLOWED_CAPTIONS) then
Caption.FromChart(AChart, FElement) Caption.FromChart(AChart, FElement)
else else
raise Exception.Create('[TsChartCaptionStyle.ExtractFromChart] Unknown caption'); raise Exception.Create('[TsChartStyle_Caption.ExtractFromChart] Unknown caption');
end; end;
{ TsChartLegendStyle } { TsChartStyle_Legend }
procedure TsChartLegendStyle.ApplyToChart(AChart: TsChart; AIndex: Integer); procedure TsChartStyle_Legend.ApplyToChart(AChart: TsChart; AIndex: Integer);
begin begin
FLegend.ToChart(AChart, ceLegend); FLegend.ToChart(AChart, ceLegend);
end; end;
function TsChartLegendStyle.EqualTo(OtherStyle: TsChartStyle): Boolean; procedure TsChartStyle_Legend.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin
Result := (OtherStyle is TsChartLegendStyle) and (Legend = TsChartLegendStyle(OtherStyle).Legend);
end;
procedure TsChartLegendStyle.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin begin
FLegend.FromChart(AChart, ceLegend); FLegend.FromChart(AChart, ceLegend);
end; end;
{ TsChartPlotAreaStyle } { TsChartStyle_PlotArea }
{ For the moment, this is a dummy style because I don't know how the plotarea { For the moment, this is a dummy style because I don't know how the plotarea
parameters are changed in ODS. } parameters are changed in ODS. }
procedure TsChartPlotAreaStyle.ApplyToChart(AChart: TsChart; AIndex: Integer); procedure TsChartStyle_PlotArea.ApplyToChart(AChart: TsChart; AIndex: Integer);
begin begin
FPlotArea.ToChart(AChart, cePlotArea); FPlotArea.ToChart(AChart, cePlotArea);
end; end;
function TsChartPlotAreaStyle.EqualTo(OtherStyle: TsChartStyle): Boolean; procedure TsChartStyle_PlotArea.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin
Result := (OtherStyle is TsChartPlotAreaStyle) and (FPlotArea = TsChartPlotAreaStyle(OtherStyle).FPlotArea);
end;
procedure TsChartplotAreaStyle.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin begin
FPlotArea.FromChart(AChart, cePlotArea); FPlotArea.FromChart(AChart, cePlotArea);
end; end;
{ TsChartSeriesStyle } { TsChartStyle_Series }
procedure TsChartSeriesStyle.ApplyToChart(AChart: TsChart; AIndex: Integer); procedure TsChartStyle_Series.ApplyToChart(AChart: TsChart; AIndex: Integer);
begin begin
Line.ToChart(AChart, ceSeriesLine, AIndex); Line.ToChart(AChart, ceSeriesLine, AIndex);
Fill.ToChart(AChart, ceSeriesFill, AIndex); Fill.ToChart(AChart, ceSeriesFill, AIndex);
@ -877,24 +801,7 @@ begin
end; end;
end; end;
function TsChartSeriesStyle.EqualTo(OtherStyle: TsChartStyle): Boolean; procedure TsChartStyle_Series.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin
Result :=
(OtherStyle is TsChartSeriesStyle) and
(Line = TsChartSeriesStyle(OtherStyle).Line) and
(Fill = TsChartSeriesStyle(OtherStyle).Fill) and
(Border = TsChartSeriesStyle(OtherStyle).Border);
if Result and FShowSymbols then
Result :=
(ShowSymbols = TsChartSeriesStyle(OtherStyle).ShowSymbols) and
(Symbol = TsChartSeriesStyle(OtherStyle).Symbol) and
(SymbolHeight = TsChartSeriesStyle(OtherStyle).SymbolHeight) and
(SymbolWidth = TsChartSeriesStyle(OtherStyle).SymbolWidth);
end;
procedure TsChartSeriesStyle.ExtractFromChart(AChart: TsChart; AIndex: Integer);
begin begin
Line.FromChart(AChart, ceSeriesLine, AIndex); Line.FromChart(AChart, ceSeriesLine, AIndex);
Fill.FromChart(AChart, ceSeriesFill, AIndex); Fill.FromChart(AChart, ceSeriesFill, AIndex);
@ -920,46 +827,23 @@ begin
Clear; Clear;
inherited; inherited;
end; end;
(*
{ Adds the style of the specified axis type in the given chart as new style to { Adds a new style to the style list. The style is created as the given style
the style list. But only if the same style does not yet exist. } class. Which piece of chart formatting is included in the style, is determined
procedure TsChartStyleList.AddChartAxisStyle(AChart: TsChart; by the AElement parameter. In case of series styles, the index of the series
AType: TsChartAxisType); must be provided as parameter AIndex. }
function TsChartStyleList.AddChartStyle(AName: String; AChart: TsChart;
AStyleClass: TsChartStyleClass; AElement: TsChartStyleElement;
AIndex: Integer = -1): Integer;
var
newStyle: TsChartStyle;
begin begin
FindChartAxisStyle(AChart, AType); newStyle := AStyleClass.Create(AElement);
newStyle.ExtractFromChart(AChart, AIndex);
newStyle.FName := AName;
Result := Add(newStyle);
end; end;
{ Adds the style of the specified type in the given chart as new style to the
style list. But only if the same style does not yet exist. }
procedure TsChartStyleList.AddChartBackgroundStyle(AChart: TsChart;
AType: TsChartBackgroundType);
begin
FindChartBackgroundStyle(AChart, AType);
end;
{ Adds the style of the specified caption in the given chart as new style to
the style list. But only if the same style does not yet exist. }
procedure TsChartStyleList.AddChartCaptionStyle(AChart: TsChart;
AType: TsChartCaptionType);
begin
FindChartCaptionStyle(AChart, AType);
end;
{ Adds the style of the legend of the given chart chart as new style to
the style list. But only if the same style does not yet exist. }
procedure TsChartStyleList.AddChartLegendStyle(AChart: TsChart);
begin
FindChartLegendStyle(AChart);
end;
{ Adds the style of the specified line as new style to the style list.
But only when the same style does not yet exist. }
procedure TsChartStyleList.AddChartLineStyle(AChart: TsChart);
// AType: TsChartLineType);
begin
FindChartLineStyle(AChart); //, AType);
end;
*)
{ Clears the chart style list. Destroys the individual items. } { Clears the chart style list. Destroys the individual items. }
procedure TsChartStyleList.Clear; procedure TsChartStyleList.Clear;
var var
@ -976,6 +860,21 @@ begin
inherited; inherited;
end; end;
function TsChartStyleList.FindStyleIndexByName(const AName: String): Integer;
var
i: Integer;
begin
for i := 0 to Count-1 do
begin
if TsChartStyle(Items[i]).Name = AName then
begin
Result := i;
exit;
end;
end;
Result := -1;
end;
(*
{ Adds a new style to the style list. The style is created as the given style { Adds a new style to the style list. The style is created as the given style
class. Which piece of chart formattting is included in the style, is determined class. Which piece of chart formattting is included in the style, is determined
by the AElement parameter. In case of series styles, the index of the series by the AElement parameter. In case of series styles, the index of the series
@ -987,10 +886,13 @@ var
newStyle, style: TsChartStyle; newStyle, style: TsChartStyle;
i: Integer; i: Integer;
begin begin
Result := -1; // Result := -1;
newStyle := AStyleClass.Create(AElement); newStyle := AStyleClass.Create(AElement);
newStyle.ExtractFromChart(AChart, AIndex); newStyle.ExtractFromChart(AChart, AIndex);
Result := Add(newStyle);
newStyle.FStyleID := Result;
{
for i := 0 to Count-1 do for i := 0 to Count-1 do
begin begin
if (TsChartStyle(Items[i]) is AStyleClass) then if (TsChartStyle(Items[i]) is AStyleClass) then
@ -1008,8 +910,10 @@ begin
Result := Add(newStyle) Result := Add(newStyle)
else else
newStyle.Free; newStyle.Free;
}
end; end;
*)
(*
{ Finds the index of the style matching the formatting of the given { Finds the index of the style matching the formatting of the given
chart element (AElement); in case of series styles the series index must be chart element (AElement); in case of series styles the series index must be
provided as AIndex. provided as AIndex.
@ -1043,7 +947,7 @@ begin
newStyle.Free; newStyle.Free;
end; end;
end; end;
*)
(* (*
{ Searches whether the style of the specified axis is already in the { Searches whether the style of the specified axis is already in the
list. If not, a new style is created and added. list. If not, a new style is created and added.

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

@ -294,7 +294,7 @@ type
function GetChartBackgroundStyleAsXML(AChart: TsChart; AStyleIndex, AIndent: Integer): String; function GetChartBackgroundStyleAsXML(AChart: TsChart; AStyleIndex, AIndent: Integer): String;
function GetChartCaptionStyleAsXML(AChart: TsChart; AStyleIndex, AIndent: Integer): String; function GetChartCaptionStyleAsXML(AChart: TsChart; AStyleIndex, AIndent: Integer): String;
function GetChartLegendStyleAsXML(AChart: TsChart; AStyleIndex, AIndent: Integer): String; function GetChartLegendStyleAsXML(AChart: TsChart; AStyleIndex, AIndent: Integer): String;
function GetChartLineStyleAsXML(ALine: TsChartLine; AStyleIndex, AIndent: Integer): String; function GetChartLineStyleAsXML(AChart: TsChart; ALine: TsChartLine; AStyleIndex, AIndent: Integer): String;
function GetChartPlotAreaStyleAsXML(AChart: TsChart; AStyleIndex, AIndent: Integer): String; function GetChartPlotAreaStyleAsXML(AChart: TsChart; AStyleIndex, AIndent: Integer): String;
function GetChartSeriesStyleAsXML(AChart: TsChart; AStyleIndex, ASeriesIndex, AIndent: Integer): String; function GetChartSeriesStyleAsXML(AChart: TsChart; AStyleIndex, ASeriesIndex, AIndent: Integer): String;
function GetChartTitleStyleAsXML(AChart: TsChart; AStyleIndex, AIndent: Integer): String; function GetChartTitleStyleAsXML(AChart: TsChart; AStyleIndex, AIndent: Integer): String;
@ -311,6 +311,8 @@ type
procedure WriteChartTable(AStream: TStream; AChart: TsChart; AIndent: Integer); procedure WriteChartTable(AStream: TStream; AChart: TsChart; AIndent: Integer);
procedure WriteChartTitle(AStream: TStream; AChart: TsChart; IsSubtitle: Boolean; AIndent: Integer); procedure WriteChartTitle(AStream: TStream; AChart: TsChart; IsSubtitle: Boolean; AIndent: Integer);
procedure WriteObjectStyles(AStream: TStream; AChart: TsChart);
protected protected
FPointSeparatorSettings: TFormatSettings; FPointSeparatorSettings: TFormatSettings;
@ -318,6 +320,7 @@ type
FSMeta, FSSettings, FSStyles, FSContent: TStream; FSMeta, FSSettings, FSStyles, FSContent: TStream;
FSMimeType, FSMetaInfManifest: TStream; FSMimeType, FSMetaInfManifest: TStream;
FSCharts: array of TStream; FSCharts: array of TStream;
FSObjectStyles: array of TStream;
{ Helpers } { Helpers }
procedure AddBuiltinNumFormats; override; procedure AddBuiltinNumFormats; override;
@ -346,6 +349,7 @@ type
procedure WriteMetaInfManifest; procedure WriteMetaInfManifest;
procedure WriteMeta; procedure WriteMeta;
procedure WriteMimetype; procedure WriteMimetype;
procedure WriteObjectStyles;
procedure WriteSettings; procedure WriteSettings;
procedure WriteStyles; procedure WriteStyles;
procedure WriteWorksheet(AStream: TStream; ASheetIndex: Integer); procedure WriteWorksheet(AStream: TStream; ASheetIndex: Integer);
@ -407,6 +411,7 @@ const
{%H-}OPENDOC_PATH_METAINF = 'META-INF/'; {%H-}OPENDOC_PATH_METAINF = 'META-INF/';
OPENDOC_PATH_METAINF_MANIFEST = 'META-INF/manifest.xml'; OPENDOC_PATH_METAINF_MANIFEST = 'META-INF/manifest.xml';
OPENDOC_PATH_CHART_CONTENT = 'Object %d/content.xml'; OPENDOC_PATH_CHART_CONTENT = 'Object %d/content.xml';
OPENDOC_PATH_CHART_STYLES = 'Object %d/styles.xml';
{ OpenDocument schemas constants } { OpenDocument schemas constants }
SCHEMAS_XMLNS_OFFICE = 'urn:oasis:names:tc:opendocument:xmlns:office:1.0'; SCHEMAS_XMLNS_OFFICE = 'urn:oasis:names:tc:opendocument:xmlns:office:1.0';
@ -574,6 +579,18 @@ begin
Result := vkNone; Result := vkNone;
end; end;
function ASCIIName(AName: String): String;
var
i: Integer;
begin
Result := '';
for i := 1 to Length(AName) do
if AName[i] in ['a'..'z', 'A'..'Z', '0'..'9'] then
Result := Result + AName[i]
else
Result := Result + Format('_%.2x_', [ord(AName[i])]);
end;
type type
{ Table style items stored in TableStyleList of the reader } { Table style items stored in TableStyleList of the reader }
@ -5732,8 +5749,12 @@ begin
n := TsWorkbook(FWorkbook).GetChartCount; n := TsWorkbook(FWorkbook).GetChartCount;
SetLength(FSCharts, n); SetLength(FSCharts, n);
SetLength(FSObjectStyles, n);
for i := 0 to n - 1 do for i := 0 to n - 1 do
begin
FSCharts[i] := CreateTempStream(FWorkbook, 'fpsCh'); FSCharts[i] := CreateTempStream(FWorkbook, 'fpsCh');
FSObjectStyles[i] := CreateTempStream(FWorkbook, 'fpsOS');
end;
// FSSheets will be created when needed. // FSSheets will be created when needed.
end; end;
@ -5750,8 +5771,12 @@ begin
DestroyTempStream(FSMimeType); DestroyTempStream(FSMimeType);
DestroyTempStream(FSMetaInfManifest); DestroyTempStream(FSMetaInfManifest);
for i := 0 to High(FSCharts) do for i := 0 to High(FSCharts) do
begin
DestroyTempStream(FSCharts[i]); DestroyTempStream(FSCharts[i]);
DestroyTempStream(FSObjectStyles[i]);
end;
Setlength(FSCharts, 0); Setlength(FSCharts, 0);
SetLength(FSObjectStyles, 0);
end; end;
procedure TsSpreadOpenDocWriter.GetHeaderFooterImageName( procedure TsSpreadOpenDocWriter.GetHeaderFooterImageName(
@ -5851,6 +5876,7 @@ begin
WriteSettings(); WriteSettings();
WriteStyles(); WriteStyles();
WriteContent; WriteContent;
WriteObjectStyles;
WriteCharts; WriteCharts;
{ Now compress the files } { Now compress the files }
@ -5865,8 +5891,12 @@ begin
FZip.Entries.AddFileEntry(FSMetaInfManifest, OPENDOC_PATH_METAINF_MANIFEST); FZip.Entries.AddFileEntry(FSMetaInfManifest, OPENDOC_PATH_METAINF_MANIFEST);
ZipPictures(FZip); ZipPictures(FZip);
for i := 0 to TsWorkbook(FWorkbook).GetChartCount-1 do for i := 0 to TsWorkbook(FWorkbook).GetChartCount-1 do
begin
FZip.Entries.AddFileEntry( FZip.Entries.AddFileEntry(
FSCharts[i], Format(OPENDOC_PATH_CHART_CONTENT, [i+1])); FSCharts[i], Format(OPENDOC_PATH_CHART_CONTENT, [i+1]));
FZip.Entries.AddFileEntry(
FSObjectStyles[i], Format(OPENDOC_PATH_CHART_STYLES, [i+1]));
end;
ResetStreams; ResetStreams;
@ -6066,7 +6096,10 @@ begin
FSMimeType.Position := 0; FSMimeType.Position := 0;
FSMetaInfManifest.Position := 0; FSMetaInfManifest.Position := 0;
for i := 0 to High(FSCharts) do for i := 0 to High(FSCharts) do
begin
FSCharts[i].Position := 0; FSCharts[i].Position := 0;
FSObjectStyles[i].Position := 0;
end;
end; end;
{ Writes the node "office:automatic-styles". Although this node occurs in both { Writes the node "office:automatic-styles". Although this node occurs in both
@ -6146,6 +6179,7 @@ var
begin begin
AppendToStream(FSMetaInfManifest, AppendToStream(FSMetaInfManifest,
XML_HEADER); XML_HEADER);
AppendToStream(FSMetaInfManifest, AppendToStream(FSMetaInfManifest,
'<manifest:manifest xmlns:manifest="' + SCHEMAS_XMLNS_MANIFEST + '">' + LE); '<manifest:manifest xmlns:manifest="' + SCHEMAS_XMLNS_MANIFEST + '">' + LE);
AppendToStream(FSMetaInfManifest, AppendToStream(FSMetaInfManifest,
@ -6158,6 +6192,7 @@ begin
' <manifest:file-entry manifest:media-type="text/xml" manifest:full-path="meta.xml" />' + LE); ' <manifest:file-entry manifest:media-type="text/xml" manifest:full-path="meta.xml" />' + LE);
AppendToStream(FSMetaInfManifest, AppendToStream(FSMetaInfManifest,
' <manifest:file-entry manifest:media-type="text/xml" manifest:full-path="settings.xml" />' + LE); ' <manifest:file-entry manifest:media-type="text/xml" manifest:full-path="settings.xml" />' + LE);
for i:=0 to (FWorkbook as TsWorkbook).GetEmbeddedObjCount-1 do for i:=0 to (FWorkbook as TsWorkbook).GetEmbeddedObjCount-1 do
begin begin
embObj := TsWorkbook(FWorkbook).GetEmbeddedObj(i); embObj := TsWorkbook(FWorkbook).GetEmbeddedObj(i);
@ -6171,6 +6206,7 @@ begin
[mime, i+1, ext] [mime, i+1, ext]
)); ));
end; end;
for i:=0 to (FWorkbook as TsWorkbook).GetChartCount-1 do for i:=0 to (FWorkbook as TsWorkbook).GetChartCount-1 do
begin begin
AppendToStream(FSMetaInfManifest, Format( AppendToStream(FSMetaInfManifest, Format(
@ -6181,8 +6217,13 @@ begin
' <manifest:file-entry manifest:media-type="text/xml" manifest:full-path="Object %d/content.xml" />' + LE, ' <manifest:file-entry manifest:media-type="text/xml" manifest:full-path="Object %d/content.xml" />' + LE,
[i+1] [i+1]
)); ));
// Object X/styles.xml, Object X/meta.xml and ObjectReplacement/Object X not needed necessarily AppendToStream(FSMetaInfManifest, Format(
' <manifest:file-entry manifest:media-type="text/xml" manifest:full-path="Object %d/styles.xml" />' + LE,
[i+1]
));
// Object X/meta.xml and ObjectReplacement/Object X not needed necessarily
end; end;
AppendToStream(FSMetaInfManifest, AppendToStream(FSMetaInfManifest,
'</manifest:manifest>'); '</manifest:manifest>');
end; end;
@ -6461,6 +6502,20 @@ begin
end; end;
end; end;
{ Writes the Object X/styles.xml stream which is needed for chart support
(sometimes) and contains the dash pattern definitions. }
procedure TsSpreadOpenDocWriter.WriteObjectStyles;
var
i: Integer;
chart: TsChart;
begin
for i := 0 to TsWorkbook(FWorkbook).GetChartCount - 1 do
begin
chart := TsWorkbook(FWorkbook).GetChartByIndex(i);
WriteObjectStyles(FSObjectStyles[i], chart);
end;
end;
procedure TsSpreadOpenDocWriter.WriteContent; procedure TsSpreadOpenDocWriter.WriteContent;
var var
i: Integer; i: Integer;
@ -6811,6 +6866,8 @@ var
refStr: String; refStr: String;
styleIdx, titleStyleIdx, majorGridStyleIdx, minorGridStyleIdx: Integer; styleIdx, titleStyleIdx, majorGridStyleIdx, minorGridStyleIdx: Integer;
r1, c1, r2, c2: Cardinal; r1, c1, r2, c2: Cardinal;
axisStyle: TsChartStyle_Axis;
titleStyle: TsChartStyle_Caption;
begin begin
ind := DupeString(' ', AIndent); ind := DupeString(' ', AIndent);
sheet := TsWorkbook(FWorkbook).GetWorksheetByIndex(AChart.SheetIndex); sheet := TsWorkbook(FWorkbook).GetWorksheetByIndex(AChart.SheetIndex);
@ -6822,18 +6879,18 @@ begin
begin begin
axis := AChart.XAxis; axis := AChart.XAxis;
if not axis.Visible then exit; if not axis.Visible then exit;
styleIdx := styles.AddChartStyle(AChart, TsChartAxisStyle, ceXAxis); styleIdx := styles.AddChartStyle('xAxis', AChart, TsChartStyle_Axis, ceXAxis);
titleStyleIdx := styles.AddChartStyle(AChart, TsChartCaptionStyle, ceXAxisCaption); titleStyleIdx := styles.AddChartStyle('xAxisTitle', AChart, TsChartStyle_Caption, ceXAxisCaption);
majorGridStyleIdx := styles.AddChartStyle(AChart, TsChartLineStyle, ceXAxisMajorGrid); majorGridStyleIdx := styles.AddChartStyle('xAxisMajGrid', AChart, TsChartStyle_Line, ceXAxisMajorGrid);
minorGridStyleIdx := styles.AddChartStyle(AChart, TsChartLineStyle, ceXAxisMinorGrid); minorGridStyleIdx := styles.AddChartStyle('xAxisMinGrid', AChart, TsChartStyle_Line, ceXAxisMinorGrid);
end else end else
begin begin
axis := AChart.X2Axis; axis := AChart.X2Axis;
if not axis.Visible then exit; if not axis.Visible then exit;
styleIdx := styles.AddChartStyle(AChart, TsChartAxisStyle, ceX2Axis); styleIdx := styles.AddChartStyle('x2Axis', AChart, TsChartStyle_Axis, ceX2Axis);
titleStyleIdx := styles.AddChartStyle(AChart, TsChartCaptionStyle, ceX2AxisCaption); titleStyleIdx := styles.AddChartStyle('x2AxisTitle', AChart, TsChartStyle_Caption, ceX2AxisCaption);
majorGridStyleIdx := styles.AddChartStyle(AChart, TsChartLineStyle, ceX2AxisMajorGrid); majorGridStyleIdx := styles.AddChartStyle('x2AxisMajGrid', AChart, TsChartStyle_Line, ceX2AxisMajorGrid);
minorGridStyleIdx := styles.AddChartStyle(AChart, TsChartLineStyle, ceX2AxisMinorGrid); minorGridStyleIdx := styles.AddChartStyle('x2AxisMinGrid', AChart, TsChartStyle_Line, ceX2AxisMinorGrid);
end; end;
end else end else
begin begin
@ -6841,26 +6898,30 @@ begin
begin begin
axis := AChart.YAxis; axis := AChart.YAxis;
if not axis.Visible then exit; if not axis.Visible then exit;
styleIdx := styles.AddChartStyle(AChart, TsChartAxisStyle, ceYAxis); styleIdx := styles.AddChartStyle('yAxis', AChart, TsChartStyle_Axis, ceYAxis);
titleStyleIdx := styles.AddChartStyle(AChart, TsChartCaptionStyle, ceYAxisCaption); titleStyleIdx := styles.AddChartStyle('yAxisTitle', AChart, TsChartStyle_Caption, ceYAxisCaption);
majorGridStyleIdx := styles.AddChartStyle(AChart, TsChartLineStyle, ceYAxisMajorGrid); majorGridStyleIdx := styles.AddChartStyle('yAxisMajGrid', AChart, TsChartStyle_Line, ceYAxisMajorGrid);
minorGridStyleIdx := styles.AddChartStyle(AChart, TsChartLineStyle, ceYAxisMinorGrid); minorGridStyleIdx := styles.AddChartStyle('yAxisMinGrid', AChart, TsChartStyle_Line, ceYAxisMinorGrid);
end else end else
begin begin
axis := AChart.Y2Axis; axis := AChart.Y2Axis;
if not axis.Visible then exit; if not axis.Visible then exit;
styleIdx := styles.AddChartStyle(AChart, TsChartAxisStyle, ceY2Axis); styleIdx := styles.AddChartStyle('y2Axis', AChart, TsChartStyle_Axis, ceY2Axis);
titleStyleIdx := styles.AddChartStyle(AChart, TsChartCaptionStyle, ceY2AxisCaption); titleStyleIdx := styles.AddChartStyle('y2AxisTitle', AChart, TsChartStyle_Caption, ceY2AxisCaption);
majorGridStyleIdx := styles.AddChartStyle(AChart, TsChartLineStyle, ceY2AxisMajorGrid); majorGridStyleIdx := styles.AddChartStyle('y2AxisMajGrid', AChart, TsChartStyle_Line, ceY2AxisMajorGrid);
minorGridStyleIdx := styles.AddChartStyle(AChart, TsChartLineStyle, ceY2AxisMinorGrid); minorGridStyleIdx := styles.AddChartStyle('y2AxisMinGrid', AChart, TsChartStyle_Line, ceY2AxisMinorGrid);
end; end;
end; end;
{$ifdef DEBUG_CHART_STYLES} {$ifdef DEBUG_CHART_STYLES}
DebugLn([PadRight('[WriteChartAxis] ' + IfThen(IsX, 'x','y') + IfThen(IsPrimary, '', '2') + ' axis: Axis style', 50), 'ch', styleIdx + 1]); axisStyle := TsChartStyle_Axis(styles[styleIdx]);
DebugLn([PadRight('[WriteChartAxis] ' + IfThen(IsX, 'x','y') + IfThen(IsPrimary, '', '2') + ' axis: Caption style', 50), 'ch', titleStyleIdx + 1]); titleStyle := TsChartStyle_Caption(styles[titleStyleIdx]);
DebugLn([PadRight('[WriteChartAxis] ' + IfThen(IsX, 'x','y') + IfThen(IsPrimary, '', '2') + ' axis: Major grid style', 50), 'ch', majorGridStyleIdx + 1]); DebugLn([PadRight('[WriteChartAxis] ' + IfThen(IsX, 'x','y') + IfThen(IsPrimary, '', '2') + ' axis: Axis style', 45), 'ch', styleIdx + 1,
DebugLn([PadRight('[WriteChartAxis] ' + IfThen(IsX, 'x','y') + IfThen(IsPrimary, '', '2') + ' axis: Minor grid style', 50), 'ch', minorGridStyleIdx + 1]); ' LabelFont:"', axisStyle.Axis.LabelFont.FontName, '" Size:', axisstyle.Axis.LabelFont.Size, ' Color:', IntToHex(axisstyle.Axis.LabelFont.Color, 6), ' Axis.Visible:', axisStyle.Axis.Visible]);
DebugLn([PadRight('[WriteChartAxis] ' + IfThen(IsX, 'x','y') + IfThen(IsPrimary, '', '2') + ' axis: Caption style', 45), 'ch', titleStyleIdx + 1,
' Font:"', titlestyle.Caption.Font.FontName, '" Size:', titlestyle.Caption.Font.Size, ' Color:', IntToHex(titlestyle.Caption.Font.Color, 6), ' Visible:', titleStyle.Caption.Visible]);
DebugLn([PadRight('[WriteChartAxis] ' + IfThen(IsX, 'x','y') + IfThen(IsPrimary, '', '2') + ' axis: Major grid style', 45), 'ch', majorGridStyleIdx + 1]);
DebugLn([PadRight('[WriteChartAxis] ' + IfThen(IsX, 'x','y') + IfThen(IsPrimary, '', '2') + ' axis: Minor grid style', 45), 'ch', minorGridStyleIdx + 1]);
{$endif} {$endif}
AppendToStream(AStream, Format( AppendToStream(AStream, Format(
@ -6922,7 +6983,7 @@ begin
if chartClass <> '' then if chartClass <> '' then
chartClass := 'chart:class="chart:' + chartClass + '"'; chartClass := 'chart:class="chart:' + chartClass + '"';
idx := styles.AddChartStyle(AChart, TsChartBackgroundStyle, ceBackground); idx := styles.AddChartStyle('Background', AChart, TsChartStyle_Background, ceBackground);
AppendToStream(AStream, Format( AppendToStream(AStream, Format(
' <chart:chart svg:width="%.3fmm" svg:height="%.3fmm" xlink:href=".." ' + ' <chart:chart svg:width="%.3fmm" svg:height="%.3fmm" xlink:href=".." ' +
'xlink:type="simple" %s chart:style-name="ch%d">' + LE, 'xlink:type="simple" %s chart:style-name="ch%d">' + LE,
@ -6934,7 +6995,7 @@ begin
)); ));
{$ifdef DEBUG_CHART_STYLES} {$ifdef DEBUG_CHART_STYLES}
DebugLn([PadRight('[WriteChartBackground] Background style', 50), 'ch', idx + 1]); DebugLn([PadRight('[WriteChartBackground] Background style', 45), 'ch', idx + 1]);
{$endif} {$endif}
end; end;
@ -6950,7 +7011,7 @@ begin
exit; exit;
styles := TsChartStyleList(FChartStyleList); styles := TsChartStyleList(FChartStyleList);
idx := styles.AddChartStyle(AChart, TsChartLegendStyle, ceLegend); idx := styles.AddChartStyle('Legend', AChart, TsChartstyle_Legend, ceLegend);
ind := DupeString(' ', AIndent); ind := DupeString(' ', AIndent);
AppendToStream(AStream, Format( AppendToStream(AStream, Format(
@ -6959,7 +7020,7 @@ begin
)); ));
{$ifdef DEBUG_CHART_STYLES} {$ifdef DEBUG_CHART_STYLES}
DebugLn([PadRight('[WriteChartLegend] Legend style', 50), 'ch', idx + 1]); DebugLn([PadRight('[WriteChartLegend] Legend style', 45), 'ch', idx + 1]);
{$endif} {$endif}
end; end;
@ -6975,9 +7036,9 @@ begin
ind := DupeString(' ', AIndent); ind := DupeString(' ', AIndent);
// Plot area // Plot area
idx := styles.AddChartStyle(AChart, TsChartPlotAreaStyle, cePlotArea); idx := styles.AddChartStyle('PlotArea', AChart, TsChartStyle_PlotArea, cePlotArea);
{$ifdef DEBUG_CHART_STYLES} {$ifdef DEBUG_CHART_STYLES}
DebugLn([PadRight('[WriteChartPlotArea] PlotArea style', 50), 'ch', idx+1]); DebugLn([PadRight('[WriteChartPlotArea] PlotArea style', 45), 'ch', idx+1]);
{$endif} {$endif}
AppendToStream(AStream, Format( AppendToStream(AStream, Format(
ind + '<chart:plot-area chart:style-name="ch%d" chart:data-source-has-labels="both">' + LE, ind + '<chart:plot-area chart:style-name="ch%d" chart:data-source-has-labels="both">' + LE,
@ -6986,9 +7047,9 @@ begin
// ods has a table:cell-range-address here but it is reconstructed by Calc // ods has a table:cell-range-address here but it is reconstructed by Calc
// wall // wall
idx := styles.AddChartStyle(AChart, TsChartBackgroundStyle, ceWall); idx := styles.AddChartStyle('Wall', AChart, TsChartStyle_Background, ceWall);
{$ifdef DEBUG_CHART_STYLES} {$ifdef DEBUG_CHART_STYLES}
DebugLn([PadRight('[WriteChartPlotArea] Wall style', 50), 'ch', idx+1]); DebugLn([PadRight('[WriteChartPlotArea] Wall style', 45), 'ch', idx+1]);
{$endif} {$endif}
AppendToStream(AStream, Format( AppendToStream(AStream, Format(
ind + ' <chart:wall chart:style-name="ch%d"/>' + LE, ind + ' <chart:wall chart:style-name="ch%d"/>' + LE,
@ -6996,9 +7057,9 @@ begin
)); ));
// floor // floor
idx := styles.AddChartStyle(AChart, TsChartBackgroundStyle, ceFloor); idx := styles.AddChartStyle('Floor', AChart, TsChartStyle_Background, ceFloor);
{$ifdef DEBUG_CHART_STYLES} {$ifdef DEBUG_CHART_STYLES}
DebugLn([PadRight('[WriteChartPlotArea] Floor style', 50), 'ch', idx+1]); DebugLn([PadRight('[WriteChartPlotArea] Floor style', 45), 'ch', idx+1]);
{$endif} {$endif}
AppendToStream(AStream, Format( AppendToStream(AStream, Format(
ind + ' <chart:floor chart:style-name="ch%d"/>' + LE, ind + ' <chart:floor chart:style-name="ch%d"/>' + LE,
@ -7058,9 +7119,11 @@ begin
rfAllRel, false); rfAllRel, false);
count := series.YRange.Row2 - series.YRange.Row1 + 1; count := series.YRange.Row2 - series.YRange.Row1 + 1;
seriesStyleIdx := styles.AddChartStyle(AChart, TsChartSeriesStyle, ceSeries, ASeriesIndex); seriesStyleIdx := styles.AddChartStyle('Series' + IntToStr(ASeriesIndex), AChart, TsChartStyle_Series, ceSeries, ASeriesIndex);
{$ifdef DEBUG_CHART_STYLES} {$ifdef DEBUG_CHART_STYLES}
DebugLn([PadRight('[WriteChartSeries] Series ' + IntToStr(ASeriesIndex) + ' style', 50), 'ch', seriesStyleIdx+1]); DebugLn([PadRight('[WriteChartSeries] Series ' + IntToStr(ASeriesIndex) + ' style', 45), 'ch', seriesStyleIdx+1,
' Line.Color:', IntToHex(series.Line.Color, 6), ' .Style:', series.Line.Style, ' .Width:', FormatFloat('0.00', series.Line.Width, FPointSeparatorSettings),
' Fill.Color:', IntToHex(series.Fill.FgColor, 6) ]);
{$endif} {$endif}
AppendToStream(AStream, Format( AppendToStream(AStream, Format(
@ -7083,7 +7146,7 @@ function TsSpreadOpenDocWriter.GetChartAxisStyleAsXML(
AChart: TsChart; AStyleIndex, AIndent: Integer): String; AChart: TsChart; AStyleIndex, AIndent: Integer): String;
var var
ind: String; ind: String;
style: TsChartAxisStyle; style: TsChartStyle_Axis;
font: TsFont; font: TsFont;
textProps: String = ''; textProps: String = '';
graphProps: String = ''; graphProps: String = '';
@ -7095,7 +7158,7 @@ begin
exit; exit;
end; end;
style := TsChartAxisStyle(FChartStyleList[AStyleIndex]); style := TsChartStyle_Axis(FChartStyleList[AStyleIndex]);
if not style.Axis.Visible then if not style.Axis.Visible then
exit; exit;
@ -7137,7 +7200,7 @@ function TsSpreadOpenDocWriter.GetChartBackgroundStyleAsXML(
AChart: TsChart; AStyleIndex, AIndent: Integer): String; AChart: TsChart; AStyleIndex, AIndent: Integer): String;
var var
ind: String; ind: String;
style: TsChartBackgroundStyle; style: TsChartStyle_Background;
s, drawStroke, strokeColor, drawFill, drawFillColor: String; s, drawStroke, strokeColor, drawFill, drawFillColor: String;
begin begin
Result := ''; Result := '';
@ -7145,10 +7208,10 @@ begin
if AStyleIndex = -1 then if AStyleIndex = -1 then
exit; exit;
if not (TsChartStyle(FChartStyleList[AStyleIndex]) is TsChartBackgroundStyle) then if not (TsChartStyle(FChartStyleList[AStyleIndex]) is TsChartStyle_Background) then
raise Exception.Create('[GetChartBackgroundStyleAsXML] StyleIndex does not point to a TsChartBackgroundStyle.'); raise Exception.Create('[GetChartBackgroundStyleAsXML] StyleIndex does not point to a TsChartBackgroundStyle.');
style := TsChartBackgroundStyle(FChartStyleList[AStyleIndex]); style := TsChartStyle_Background(FChartStyleList[AStyleIndex]);
case style.Border.Style of case style.Border.Style of
clsNoLine: s := 'none'; clsNoLine: s := 'none';
@ -7183,16 +7246,14 @@ begin
); );
end; end;
{ { <style:style style:name="ch7" style:family="chart">
<style:style style:name="ch7" style:family="chart">
<style:chart-properties chart:auto-position="true" style:rotation-angle="0"/> <style:chart-properties chart:auto-position="true" style:rotation-angle="0"/>
<style:text-properties fo:font-size="9pt" style:font-size-asian="9pt" style:font-size-complex="9pt"/> <style:text-properties fo:font-size="9pt" style:font-size-asian="9pt" style:font-size-complex="9pt"/>
</style:style> </style:style> }
}
function TsSpreadOpenDocWriter.GetChartCaptionStyleAsXML(AChart: TsChart; function TsSpreadOpenDocWriter.GetChartCaptionStyleAsXML(AChart: TsChart;
AStyleIndex, AIndent: Integer): String; AStyleIndex, AIndent: Integer): String;
var var
style: TsChartCaptionStyle; style: TsChartStyle_Caption;
ind: String; ind: String;
font: TsFont; font: TsFont;
chartProps: String = ''; chartProps: String = '';
@ -7203,9 +7264,9 @@ begin
if AStyleIndex = -1 then if AStyleIndex = -1 then
exit; exit;
if not (TsChartStyle(FChartStyleList[AStyleIndex]) is TsChartCaptionStyle) then if not (TsChartStyle(FChartStyleList[AStyleIndex]) is TsChartStyle_Caption) then
raise Exception.Create('[GetChartCaptionStyle] StyleIndex does not point to a TsChartCaptionStyle.'); raise Exception.Create('[GetChartCaptionStyleAsXML] StyleIndex does not point to a TsChartCaptionStyle.');
style := TsChartCaptionStyle(FChartStyleList[AStyleIndex]); style := TsChartStyle_Caption(FChartStyleList[AStyleIndex]);
if not style.Caption.Visible then if not style.Caption.Visible then
exit; exit;
@ -7246,7 +7307,7 @@ function TsSpreadOpenDocWriter.GetChartLegendStyleAsXML(AChart: TsChart;
AStyleIndex, AIndent: Integer): String; AStyleIndex, AIndent: Integer): String;
var var
ind: String; ind: String;
style: TsChartLegendStyle; style: TsChartStyle_Legend;
font: TsFont; font: TsFont;
textProps: String = ''; textProps: String = '';
graphProps: String = ''; graphProps: String = '';
@ -7256,7 +7317,7 @@ begin
if AStyleIndex = -1 then if AStyleIndex = -1 then
exit; exit;
style := TsChartLegendStyle(FChartStyleList[AStyleIndex]); style := TsChartStyle_Legend(FChartStyleList[AStyleIndex]);
if not style.Legend.Visible then if not style.Legend.Visible then
exit; exit;
@ -7303,11 +7364,12 @@ end;
<style:graphic-properties draw:stroke="dash" draw:stroke-dash="Dot" <style:graphic-properties draw:stroke="dash" draw:stroke-dash="Dot"
svg:stroke-color="#ff0000"/> svg:stroke-color="#ff0000"/>
</style:style> } </style:style> }
function TsSpreadOpenDocWriter.GetChartLineStyleAsXML(ALine: TsChartLine; function TsSpreadOpenDocWriter.GetChartLineStyleAsXML(AChart: TsChart;
AStyleIndex, AIndent: Integer): String; ALine: TsChartLine; AStyleIndex, AIndent: Integer): String;
var var
ind: String; ind: String;
style: TsChartLineStyle; style: TsChartStyle_Line;
linestyle: TsChartLineStyle;
graphProps: String = ''; graphProps: String = '';
s: String = ''; s: String = '';
begin begin
@ -7316,7 +7378,7 @@ begin
if AStyleIndex = -1 then if AStyleIndex = -1 then
exit; exit;
style := TsChartLineStyle(FChartStyleList[AStyleIndex]); style := TsChartStyle_Line(FChartStyleList[AStyleIndex]);
if style.Line.Style = clsNoLine then if style.Line.Style = clsNoLine then
exit; exit;
@ -7325,20 +7387,14 @@ begin
graphProps := 'draw:stroke="solid"' graphProps := 'draw:stroke="solid"'
else else
begin begin
if style.Line.Style = clsFineDot then s := 'Dot' linestyle := AChart.GetLineStyle(style.Line.style);
else if style.Line.Style = clsDot then s := 'Long_20_Dot' if linestyle <> nil then
else if style.Line.Style = clsDash then s := 'Long_20_Dash' graphProps := Format('draw:stroke="dash" draw:stroke-dash="%s"', [ASCIIName(linestyle.Name)])
else if style.Line.Style = clsDashDot then s := 'Long_20_Dash_20_Dot'
else if style.Line.Style = clsLongDash then s := 'Double_20_Dash'
else if style.Line.Style = clsLongDashDot then s := 'Double_20_Dash_20_Dot'
else if style.Line.Style = clsLongDashDotDot then s := 'Double_20_Dash_20_Dot_20_Dot';
if s <> '' then
graphProps := 'draw:stroke="dash" draw:stroke-dash=" ' + s + '" '
else else
graphProps := 'draw:stroke="solid"'; graphProps := 'draw:stroke="solid"';
end; end;
graphProps := Format('%s svg:stroke-width="%.2fcm" svg:stroke-color="%s" ', graphProps := Format('%s svg:stroke-width="%.1fmm" svg:stroke-color="%s" ',
[ graphProps, style.Line.Width*0.1, ColorToHTMLColorStr(style.Line.Color) ], [ graphProps, style.Line.Width, ColorToHTMLColorStr(style.Line.Color) ],
FPointSeparatorSettings FPointSeparatorSettings
); );
@ -7391,7 +7447,7 @@ var
series: TsChartSeries; series: TsChartSeries;
lineser: TsLineSeries; lineser: TsLineSeries;
ind: String; ind: String;
style: TsChartSeriesStyle; style: TsChartStyle_Series;
chartProps: String = ''; chartProps: String = '';
graphProps: String = ''; graphProps: String = '';
textProps: String = ''; textProps: String = '';
@ -7404,7 +7460,7 @@ begin
exit; exit;
ind := DupeString(' ', AIndent); ind := DupeString(' ', AIndent);
style := TsChartSeriesStyle(FChartStyleList[AStyleIndex]); style := TsChartStyle_Series(FChartStyleList[AStyleIndex]);
series := AChart.Series[ASeriesIndex]; series := AChart.Series[ASeriesIndex];
chartProps := 'chart:symbol-type="none" '; chartProps := 'chart:symbol-type="none" ';
@ -7495,131 +7551,131 @@ begin
); );
// Style for <chart:chart> element // Style for <chart:chart> element
idx := styles.FindChartStyle(AChart, TsChartBackgroundStyle, ceBackground); idx := styles.FindStyleIndexByName('Background');
AppendToStream(AStream, AppendToStream(AStream,
GetChartBackgroundStyleAsXML(AChart, idx, AIndent + 2) GetChartBackgroundStyleAsXML(AChart, idx, AIndent + 2)
); );
// Style for <chart:title> element // Style for <chart:title> element
idx := styles.FindChartStyle(AChart, TsChartCaptionStyle, ceTitle); idx := styles.FindStyleIndexByName('Title');
AppendToStream(AStream, AppendToStream(AStream,
GetChartCaptionStyleAsXML(AChart, idx, AIndent + 2) // was: GetChartTextStyle GetChartCaptionStyleAsXML(AChart, idx, AIndent + 2) // was: GetChartTextStyle
); );
// Style for <chart:subtitle element // Style for <chart:subtitle element
idx := styles.FindChartStyle(AChart, TsChartCaptionStyle, ceSubtitle); idx := styles.FindStyleIndexByName('SubTitle');
AppendToStream(AStream, AppendToStream(AStream,
GetChartTitleStyleAsXML(AChart, idx, AIndent + 2) GetChartTitleStyleAsXML(AChart, idx, AIndent + 2)
); );
// Style for <chart:legend> element // Style for <chart:legend> element
idx := styles.FindChartStyle(AChart, TsChartLegendStyle, ceLegend); idx := styles.FindStyleIndexByName('Legend');
AppendToStream(AStream, AppendToStream(AStream,
GetChartLegendStyleAsXML(AChart, idx, AIndent + 2) GetChartLegendStyleAsXML(AChart, idx, AIndent + 2)
); );
// Styles for wall and floor // Styles for wall and floor
idx := styles.FindChartStyle(AChart, TsChartBackgroundStyle, ceWall); idx := styles.FindStyleIndexByName('Wall');
AppendToStream(AStream, AppendToStream(AStream,
GetChartBackgroundStyleAsXML(AChart, idx, AIndent + 2) GetChartBackgroundStyleAsXML(AChart, idx, AIndent + 2)
); );
idx := styles.FindChartStyle(AChart, TsChartBackgroundStyle, ceFloor); idx := styles.FindStyleIndexByName('Floor');
AppendToStream(AStream, AppendToStream(AStream,
GetChartBackgroundStyleAsXML(AChart, idx, AIndent + 2) GetChartBackgroundStyleAsXML(AChart, idx, AIndent + 2)
); );
// Styles for primary x axis // Styles for primary x axis
// - axis // - axis
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceXAxis); idx := styles.FindStyleIndexByName('xAxis');
AppendToStream(AStream, AppendToStream(AStream,
GetChartAxisStyleAsXML(AChart, idx, AIndent + 2) GetChartAxisStyleAsXML(AChart, idx, AIndent + 2)
); );
// - axis title // - axis title
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceXAxisCaption); idx := styles.FindStyleIndexByName('xAxisTitle');
AppendToStream(AStream, AppendToStream(AStream,
GetChartCaptionStyleAsXML(AChart, idx, AIndent + 2) GetChartCaptionStyleAsXML(AChart, idx, AIndent + 2)
); );
// - axis major grid // - axis major grid
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceXAxisMajorGrid); idx := styles.FindStyleIndexByName('xAxisMajGrid');
AppendToStream(AStream, AppendToStream(AStream,
GetChartLineStyleAsXML(AChart.XAxis.MajorGridLines, idx, AIndent + 2) GetChartLineStyleAsXML(AChart, AChart.XAxis.MajorGridLines, idx, AIndent + 2)
); );
// - axis minor grid // - axis minor grid
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceXAxisMinorGrid); idx := styles.FindStyleIndexByName('xAxisMinGrid');
AppendToStream(AStream, AppendToStream(AStream,
GetChartLineStyleAsXML(AChart.XAxis.MinorGridLines, idx, AIndent + 2) GetChartLineStyleAsXML(AChart, AChart.XAxis.MinorGridLines, idx, AIndent + 2)
); );
// Styles for secondary x axis // Styles for secondary x axis
// - axis // - axis
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceX2Axis); idx := styles.FindStyleIndexByName('x2Axis');
AppendToStream(AStream, AppendToStream(AStream,
GetChartAxisStyleAsXML(AChart, idx, AIndent + 2) GetChartAxisStyleAsXML(AChart, idx, AIndent + 2)
); );
// - axis title // - axis title
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceX2AxisCaption); idx := styles.FindStyleIndexByName('x2AxisTitle');
AppendToStream(AStream, AppendToStream(AStream,
GetChartCaptionStyleAsXML(AChart, idx, AIndent + 2) GetChartCaptionStyleAsXML(AChart, idx, AIndent + 2)
); );
// - axis major grid // - axis major grid
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceX2AxisMajorGrid); idx := styles.FindStyleIndexByName('x2AxisMajGrid');
AppendToStream(AStream, AppendToStream(AStream,
GetChartLineStyleAsXML(AChart.X2Axis.MajorGridLines, idx, AIndent + 2) GetChartLineStyleAsXML(AChart, AChart.X2Axis.MajorGridLines, idx, AIndent + 2)
); );
// - axis minor grid // - axis minor grid
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceX2AxisMinorGrid); idx := styles.FindStyleIndexByName('x2AxisMinGrid');
AppendToStream(AStream, AppendToStream(AStream,
GetChartLineStyleAsXML(AChart.X2Axis.MinorGridLines, idx, AIndent + 2) GetChartLineStyleAsXML(AChart, AChart.X2Axis.MinorGridLines, idx, AIndent + 2)
); );
// Styles for primary y axis // Styles for primary y axis
// - axis // - axis
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceYAxis); idx := styles.FindStyleIndexByName('yAxis');
AppendToStream(AStream, AppendToStream(AStream,
GetChartAxisStyleAsXML(AChart, idx, AIndent + 2) GetChartAxisStyleAsXML(AChart, idx, AIndent + 2)
); );
// - axis title // - axis title
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceYAxisCaption); idx := styles.FindStyleIndexByName('yAxisTitle');
AppendToStream(AStream, AppendToStream(AStream,
GetChartCaptionStyleAsXML(AChart, idx, AIndent + 2) GetChartCaptionStyleAsXML(AChart, idx, AIndent + 2)
); );
// - axis major grid // - axis major grid
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceYAxisMajorGrid); idx := styles.FindStyleIndexByName('yAxisMajGrid');
AppendToStream(AStream, AppendToStream(AStream,
GetChartLineStyleAsXML(AChart.YAxis.MajorGridLines, idx, AIndent + 2) GetChartLineStyleAsXML(AChart, AChart.YAxis.MajorGridLines, idx, AIndent + 2)
); );
// - axis minor grid // - axis minor grid
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceYAxisMinorGrid); idx := styles.FindStyleIndexByName('yAxisMinGrid');
AppendToStream(AStream, AppendToStream(AStream,
GetChartLineStyleAsXML(AChart.YAxis.MinorGridLines, idx, AIndent + 2) GetChartLineStyleAsXML(AChart, AChart.YAxis.MinorGridLines, idx, AIndent + 2)
); );
// Styles for seconary y axis // Styles for seconary y axis
// - axis // - axis
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceY2Axis); idx := styles.FindStyleIndexByName('y2Axis');
AppendToStream(AStream, AppendToStream(AStream,
GetChartAxisStyleAsXML(AChart, idx, AIndent + 2) GetChartAxisStyleAsXML(AChart, idx, AIndent + 2)
); );
// - axis title // - axis title
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceY2AxisCaption); idx := styles.FindStyleIndexByName('y2AxisTitle');
AppendToStream(AStream, AppendToStream(AStream,
GetChartCaptionStyleAsXML(AChart, idx, AIndent + 2) GetChartCaptionStyleAsXML(AChart, idx, AIndent + 2)
); );
// - axis major grid // - axis major grid
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceY2AxisMajorGrid); idx := styles.FindStyleIndexByName('y2AxisMajGrid');
AppendToStream(AStream, AppendToStream(AStream,
GetChartLineStyleAsXML(AChart.Y2Axis.MajorGridLines, idx, AIndent + 2) GetChartLineStyleAsXML(AChart, AChart.Y2Axis.MajorGridLines, idx, AIndent + 2)
); );
// - axis minor grid // - axis minor grid
idx := styles.FindChartStyle(AChart, TsChartAxisStyle, ceY2AxisMinorGrid); idx := styles.FindStyleIndexByName('y2AxisMinGrid');
AppendToStream(AStream, AppendToStream(AStream,
GetChartLineStyleAsXML(AChart.Y2Axis.MinorGridLines, idx, AIndent + 2) GetChartLineStyleAsXML(AChart, AChart.Y2Axis.MinorGridLines, idx, AIndent + 2)
); );
// Styles for all series // Styles for all series
for i := 0 to AChart.Series.Count-1 do for i := 0 to AChart.Series.Count-1 do
begin begin
idx := styles.FindChartStyle(AChart, TsChartSeriesStyle, ceSeries, i); idx := styles.FindStyleIndexByName('Series' + IntToStr(i));
AppendToStream(AStream, AppendToStream(AStream,
GetChartSeriesStyleAsXML(AChart, idx, i, AIndent + 2) GetChartSeriesStyleAsXML(AChart, idx, i, AIndent + 2)
); );
@ -8026,6 +8082,7 @@ procedure TsSpreadOpenDocWriter.WriteChartTitle(AStream: TStream; AChart: TsChar
var var
ind: String; ind: String;
styles: TsChartStyleList; styles: TsChartStyleList;
style: TsChartStyle_Caption;
elementName: String; elementName: String;
idx: Integer; idx: Integer;
cap: String; cap: String;
@ -8039,17 +8096,19 @@ begin
if IsSubTitle then if IsSubTitle then
begin begin
elementName := 'subtitle'; elementName := 'subtitle';
idx := styles.AddChartStyle(AChart, TsChartCaptionStyle, ceSubTitle); idx := styles.AddChartStyle('SubTitle', AChart, TsChartStyle_Caption, ceSubTitle);
cap := AChart.SubTitle.Caption; cap := AChart.SubTitle.Caption;
end else end else
begin begin
elementName := 'title'; elementName := 'title';
idx := styles.AddChartStyle(AChart, TsChartCaptionStyle, ceTitle); idx := styles.AddChartStyle('Title', AChart, TsChartStyle_Caption, ceTitle);
cap := AChart.Title.Caption; cap := AChart.Title.Caption;
end; end;
{$ifdef DEBUG_CHART_STYLES} {$ifdef DEBUG_CHART_STYLES}
DebugLn([PadRight('[WriteChartTitle] ' + UpCase(elementName[1]) + Copy(elementName, 2, MaxInt) + ' style', 50), 'ch', idx + 1]); style := TsChartStyle_Caption(styles[idx]);
DebugLn([PadRight('[WriteChartTitle] ' + UpCase(elementName[1]) + Copy(elementName, 2, MaxInt) + ' style', 45), 'ch', idx + 1,
' Font:"', style.Caption.Font.FontName, '" Size:', style.Caption.Font.Size, ' Color:', IntToHex(style.Caption.Font.Color, 6), ' Visible:', style.Caption.Visible]);
{$endif} {$endif}
AppendToStream(AStream, Format( AppendToStream(AStream, Format(
@ -8061,6 +8120,88 @@ begin
)); ));
end; end;
procedure TsSpreadOpenDocWriter.WriteObjectStyles(AStream: TStream; AChart: TsChart);
const
LENGTH_UNIT: array[boolean] of string = ('mm', '%'); // relative to line width
DECS: array[boolean] of Integer = (1, 0); // relative to line width
var
i: Integer;
linestyle: TsChartLineStyle;
seg1, seg2: String;
begin
AppendToStream(AStream,
XML_HEADER + LE);
AppendToStream(AStream,
'<office:document-styles ' + LE +
' xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0"' + LE +
' xmlns:ooo="http://openoffice.org/2004/office"' + LE +
' xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0"' + LE +
' xmlns:xlink="http://www.w3.org/1999/xlink"' + LE +
' xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0"' + LE +
' xmlns:dc="http://purl.org/dc/elements/1.1/"' + LE +
' xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0"' + LE +
' xmlns:rpt="http://openoffice.org/2005/report"' + LE +
' xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0"' + LE +
' xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0"' + LE +
' xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0"' + LE +
' xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0"' + LE +
' xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0"' + LE +
' xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0"' + LE +
' xmlns:ooow="http://openoffice.org/2004/writer"' + LE +
' xmlns:oooc="http://openoffice.org/2004/calc"' + LE +
' xmlns:css3t="http://www.w3.org/TR/css3-text/"' + LE +
' xmlns:of="urn:oasis:names:tc:opendocument:xmlns:of:1.2"' + LE +
' xmlns:tableooo="http://openoffice.org/2009/table"' + LE +
' xmlns:calcext="urn:org:documentfoundation:names:experimental:calc:xmlns:calcext:1.0"' + LE +
' xmlns:drawooo="http://openoffice.org/2010/draw"' + LE +
' xmlns:xhtml="http://www.w3.org/1999/xhtml"' + LE +
' xmlns:loext="urn:org:documentfoundation:names:experimental:office:xmlns:loext:1.0"' + LE +
' xmlns:grddl="http://www.w3.org/2003/g/data-view#"' + LE +
' xmlns:field="urn:openoffice:names:experimental:ooo-ms-interop:xmlns:field:1.0"' + LE +
' xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0"' + LE +
' xmlns:dom="http://www.w3.org/2001/xml-events"' + LE +
' xmlns:chartooo="http://openoffice.org/2010/chart" office:version="1.3">' + LE
);
AppendToStream(AStream,
' <office:styles>' + LE
);
for i := 0 to AChart.NumLineStyles-1 do
begin
lineStyle := AChart.GetLineStyle(i);
if linestyle.Segment1.Count > 0 then
seg1 := Format('draw:dots1="%d" draw:dots1-length="%.*f%s" ', [
lineStyle.Segment1.Count,
DECS[linestyle.RelativeToLineWidth], linestyle.Segment1.Length, LENGTH_UNIT[linestyle.RelativeToLineWidth]
], FPointSeparatorSettings
)
else
seg1 := '';
if linestyle.Segment2.Count > 0 then
seg2 := Format('draw:dots2="%d" draw:dots2-length="%.*f%s" ', [
lineStyle.Segment2.Count,
DECS[linestyle.RelativeToLineWidth], linestyle.Segment2.Length, LENGTH_UNIT[linestyle.RelativeToLineWidth]
], FPointSeparatorSettings
)
else
seg2 := '';
if (seg1 <> '') or (seg2 <> '') then
AppendToStream(AStream, Format(
' <draw:stroke-dash draw:name="%s" draw:display-name="%s" draw:style="round" draw:distance="%.*f%s" %s%s/>' + LE, [
ASCIIName(linestyle.Name), linestyle.Name,
DECS[linestyle.RelativeToLineWidth], linestyle.Distance, LENGTH_UNIT[linestyle.RelativeToLineWidth],
seg1, seg2
]));
end;
AppendToStream(AStream,
' </office:styles>' + LE +
'</office:document-styles>'
);
end;
{ Writes the "office:automatic" > "style:style" node for table-column style family { Writes the "office:automatic" > "style:style" node for table-column style family
in content.xml for all column records. } in content.xml for all column records. }
procedure TsSpreadOpenDocWriter.WriteColStyles(AStream: TStream); procedure TsSpreadOpenDocWriter.WriteColStyles(AStream: TStream);