From df595a0fcaddc1f5fb663246ec3b791bdfc8edf1 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 4 Sep 2024 16:13:23 +0000
Subject: [PATCH] FPSpreadsheet: Clean-up

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9425 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../fpschart/fpschartlink/chart_demo.lpi      |  1 -
 .../visual/fpschart/fpschartlink/main.pas     | 41 -------------------
 2 files changed, 42 deletions(-)

diff --git a/components/fpspreadsheet/examples/visual/fpschart/fpschartlink/chart_demo.lpi b/components/fpspreadsheet/examples/visual/fpschart/fpschartlink/chart_demo.lpi
index 8d6bdd549..f818939b4 100644
--- a/components/fpspreadsheet/examples/visual/fpschart/fpschartlink/chart_demo.lpi
+++ b/components/fpspreadsheet/examples/visual/fpschart/fpschartlink/chart_demo.lpi
@@ -15,7 +15,6 @@
       <XPManifest>
         <DpiAware Value="True"/>
       </XPManifest>
-      <Icon Value="0"/>
     </General>
     <BuildModes Count="1">
       <Item1 Name="Default" Default="True"/>
diff --git a/components/fpspreadsheet/examples/visual/fpschart/fpschartlink/main.pas b/components/fpspreadsheet/examples/visual/fpschart/fpschartlink/main.pas
index eab2228bb..c765751ef 100644
--- a/components/fpspreadsheet/examples/visual/fpschart/fpschartlink/main.pas
+++ b/components/fpspreadsheet/examples/visual/fpschart/fpschartlink/main.pas
@@ -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.