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

FPSpreadsheet: Clean-up

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9425 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-09-04 16:13:23 +00:00
parent f1db311177
commit df595a0fca
2 changed files with 0 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpspreadsheet/examples/visual/fpschart/fpschartlink/chart_demo.lpi
View File

@ -15,7 +15,6 @@
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>

41
components/fpspreadsheet/examples/visual/fpschart/fpschartlink/main.pas
View File

@ -54,41 +54,6 @@ uses
TypInfo,
TAChartUtils, TAChartAxis, TAChartAxisUtils, TACustomSeries, TATransformations;
procedure PrintChartInfo(AChart: TChart);
var
i, j: Integer;
T: TAxisTransform;
ax: TChartAxis;
begin
for i := 0 to AChart.AxisList.Count-1 do
begin
ax := AChart.AxisList[i];
Writeln('Axis[',i, ']');
WriteLn(' Alignment: ', GetEnumName(TypeInfo(TChartAxisAlignment), integer(ax.Alignment)));
if ax.Marks.Source <> nil then
WriteLn(' Marks.Source.Count: ', ax.Marks.Source.Count, ' .Style: ', GetEnumName(TypeInfo(TSeriesMarksStyle), integer(ax.Marks.Style)));
WriteLn(' Transformations:');
if ax.Transformations <> nil then
begin
for T in ax.Transformations.List do
begin
WriteLn(' - ', T.ClassName, ' Enabled: ', T.Enabled);
end;
end else
WriteLn(' - none');
end;
for i := 0 to AChart.SeriesCount-1 do
begin
WriteLn('Series[',i,']: ', AChart.Series[i].ClassName);
WriteLn(' XAxisIndex: ', TChartSeries(AChart.Series[i]).AxisIndexX,
', YAxisIndex: ', TChartSeries(AChart.Series[i]).AxisIndexY);
WriteLn(' Source.Count: ', TChartSeries(AChart.Series[i]).Source.Count);
end;
end;
{ TForm1 }
@ -186,12 +151,6 @@ begin
sChartLink.Chart := Chart1;
sChartLink.WorkbookSource := sWorkbookSource1;
sChartLink.WorkbookChartIndex := 0;
{
// <<<<<<<<<<<<<<<<< to be removed again...
Chart1.Invalidate;
PrintChartInfo(Chart1);
}
end;
end.