From 4d9f1110beb9f250262aebe88ff41493c2d4c309 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Thu, 23 Aug 2012 03:24:53 +0000
Subject: [PATCH] TAChart: Update radial demo to show TPolarSeries.CloseCircle
 property

git-svn-id: trunk@38341 -
---
 components/tachart/demo/radial/main.lfm | 40 ++++++++++++++++++-------
 components/tachart/demo/radial/main.pas |  9 ++++++
 2 files changed, 39 insertions(+), 10 deletions(-)

diff --git a/components/tachart/demo/radial/main.lfm b/components/tachart/demo/radial/main.lfm
index 4b36e9f7ea..5275eeb307 100644
--- a/components/tachart/demo/radial/main.lfm
+++ b/components/tachart/demo/radial/main.lfm
@@ -1,13 +1,13 @@
 object Form1: TForm1
-  Left = 477
+  Left = 459
   Height = 433
-  Top = 164
+  Top = 346
   Width = 566
   Caption = 'Form1'
   ClientHeight = 433
   ClientWidth = 566
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   object PageControl1: TPageControl
     Left = 0
     Height = 433
@@ -78,10 +78,10 @@ object Form1: TForm1
           TabOrder = 0
         end
         object lblWords: TLabel
-          Left = 424
-          Height = 14
+          Left = 425
+          Height = 13
           Top = 10
-          Width = 58
+          Width = 57
           Anchors = [akTop, akRight]
           Caption = 'Label words'
           ParentColor = False
@@ -99,10 +99,10 @@ object Form1: TForm1
           TabOrder = 1
         end
         object lblLabelAngle: TLabel
-          Left = 296
-          Height = 14
+          Left = 297
+          Height = 13
           Top = 10
-          Width = 55
+          Width = 54
           Anchors = [akTop, akRight]
           Caption = 'Label angle'
           ParentColor = False
@@ -144,7 +144,7 @@ object Form1: TForm1
         Left = 0
         Height = 407
         Top = 0
-        Width = 558
+        Width = 448
         AxisList = <        
           item
             Minors = <>
@@ -164,6 +164,7 @@ object Form1: TForm1
         Align = alClient
         ParentColor = False
         object ChartPolarSeries1: TPolarSeries
+          CloseCircle = True
           OriginX = -5
           Source = RandomChartSource1
         end
@@ -173,6 +174,25 @@ object Form1: TForm1
           Source = RandomChartSource1
         end
       end
+      object pnlPolar: TPanel
+        Left = 448
+        Height = 407
+        Top = 0
+        Width = 110
+        Align = alRight
+        ClientHeight = 407
+        ClientWidth = 110
+        TabOrder = 1
+        object cbCloseCircle: TCheckBox
+          Left = 14
+          Height = 17
+          Top = 12
+          Width = 52
+          Caption = 'Closed'
+          OnChange = cbCloseCircleChange
+          TabOrder = 0
+        end
+      end
     end
   end
   object ListChartSource1: TListChartSource
diff --git a/components/tachart/demo/radial/main.pas b/components/tachart/demo/radial/main.pas
index 6066f4881c..5f9e66fb90 100644
--- a/components/tachart/demo/radial/main.pas
+++ b/components/tachart/demo/radial/main.pas
@@ -22,16 +22,19 @@ type
     ChartToolset1: TChartToolset;
     cbRotate: TCheckBox;
     cbMarkPositions: TComboBox;
+    cbCloseCircle: TCheckBox;
     lblWords: TLabel;
     lblLabelAngle: TLabel;
     ListChartSource1: TListChartSource;
     PageControl1: TPageControl;
     Panel1: TPanel;
+    pnlPolar: TPanel;
     RandomChartSource1: TRandomChartSource;
     seWords: TSpinEdit;
     seLabelAngle: TSpinEdit;
     tsPolar: TTabSheet;
     tsPie: TTabSheet;
+    procedure cbCloseCircleChange(Sender: TObject);
     procedure cbMarkPositionsChange(Sender: TObject);
     procedure cbRotateChange(Sender: TObject);
     procedure ChartPieMouseDown(Sender: TObject; Button: TMouseButton;
@@ -49,6 +52,12 @@ implementation
 
 { TForm1 }
 
+procedure TForm1.cbCloseCircleChange(Sender: TObject);
+begin
+  ChartPolarSeries1.CloseCircle := cbCloseCircle.Checked;
+  ChartPolarSeries2.CloseCircle := cbCloseCircle.Checked;
+end;
+
 procedure TForm1.cbMarkPositionsChange(Sender: TObject);
 begin
   ChartPiePieSeries1.MarkPositions :=