Code cleanup, variable and component renaming

Demo now does not SIGSEGV no matter what button user pressed :-)
Ability to clear series in the demo 

Patch by Alexander Klenin
Fixes: http://bugs.freepascal.org/view.php?id=12589

git-svn-id: trunk@17290 -

components/tachart/demo/demo.lpi

@@ -1,12 +1,11 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="\"/>
+    <PathDelim Value="/"/>
     <Version Value="6"/>
     <General>
       <SessionStorage Value="InIDEConfig"/>
       <MainUnit Value="0"/>
-      <IconPath Value=".\"/>
       <TargetFileExt Value=""/>
     </General>
     <VersionInfo>
@@ -14,7 +13,6 @@
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
-      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
       <IgnoreBinaries Value="False"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@@ -22,7 +20,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="2">
@@ -44,17 +42,14 @@
         <Filename Value="unit1.pas"/>
         <ComponentName Value="Form1"/>
         <IsPartOfProject Value="True"/>
+        <ResourceBaseClass Value="Form"/>
         <ResourceFilename Value="unit1.lrs"/>
         <UnitName Value="unit1"/>
       </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="5"/>
+    <Version Value="8"/>
-    <PathDelim Value="\"/>
-    <CodeGeneration>
-      <Generate Value="Faster"/>
-    </CodeGeneration>
     <Linking>
       <Options>
         <Win32>

components/tachart/demo/unit1.lfm

@@ -3,208 +3,649 @@ object Form1: TForm1
   Height = 499
   Top = 114
   Width = 585
-  HorzScrollBar.Page = 584
+  HelpContext = 0
-  VertScrollBar.Page = 498
+  ActiveControl = Panel1
-  ActiveControl = Button1
+  Align = alNone
+  AllowDropFiles = False
+  AutoScroll = True
+  AutoSize = False
+  BorderIcons = [biSystemMenu, biMinimize, biMaximize]
+  BorderStyle = bsSizeable
   Caption = 'Form1'
+  ChildSizing.LeftRightSpacing = 0
+  ChildSizing.TopBottomSpacing = 0
+  ChildSizing.HorizontalSpacing = 0
+  ChildSizing.VerticalSpacing = 0
+  ChildSizing.ControlsPerLine = 0
   ClientHeight = 499
   ClientWidth = 585
+  DockSite = False
+  DragKind = dkDrag
+  DragMode = dmManual
+  Enabled = True
+  Font.Height = 0
+  Font.Style = []
+  FormStyle = fsNormal
+  ParentBiDiMode = True
+  ParentFont = False
+  Position = poScreenCenter
+  ShowInTaskBar = stDefault
+  UseDockManager = False
+  LCLVersion = '0.9.27'
+  WindowState = wsNormal
   object Chart1: TChart
-    Height = 430
+    Left = 0
+    Height = 424
+    Top = 0
     Width = 585
-    AutoUpdateXMin = True
+    HelpContext = 0
-    AutoUpdateXMax = True
+    MirrorX = False
-    AutoUpdateYMin = True
+    ShowVerticalReticule = False
-    AutoUpdateYMax = True
+    ShowReticule = False
+    Legend.Visible = False
     Legend.Alignment = laRight
     Legend.Font.Height = -11
     Legend.Font.Name = 'MS Sans Serif'
+    Legend.Font.Style = []
+    Legend.Frame.Visible = False
     Title.Visible = True
     Title.Brush.Color = clBtnFace
     Title.Font.Color = clBlue
     Title.Font.Height = -11
     Title.Font.Name = 'MS Sans Serif'
+    Title.Font.Style = []
+    Title.Frame.Visible = False
     Title.Alignment = taCenter
     Title.Text.Strings = (
       'Centered Chart Title'
     )
+    Foot.Visible = False
     Foot.Brush.Color = clBtnFace
     Foot.Font.Color = clRed
     Foot.Font.Height = -13
     Foot.Font.Name = 'MS Sans Serif'
     Foot.Font.Style = [fsBold]
+    Foot.Frame.Visible = False
+    Foot.Alignment = taLeftJustify
     Foot.Text.Strings = (
       'This a LeftAligned Footer'
     )
-    AllowZoom = True
     LeftAxis.Visible = True
+    LeftAxis.Inverted = False
     LeftAxis.Title.Angle = 90
     LeftAxis.Title.Font.Height = -11
     LeftAxis.Title.Font.Name = 'MS Sans Serif'
+    LeftAxis.Title.Font.Style = []
     LeftAxis.Grid.Color = clGray
     LeftAxis.Grid.Style = psDot
     LeftAxis.Grid.Visible = True
     BottomAxis.Visible = True
+    BottomAxis.Inverted = False
+    BottomAxis.Title.Angle = 0
     BottomAxis.Title.Font.Height = -11
     BottomAxis.Title.Font.Name = 'MS Sans Serif'
+    BottomAxis.Title.Font.Style = []
     BottomAxis.Grid.Color = clGray
     BottomAxis.Grid.Style = psDot
     BottomAxis.Grid.Visible = True
     Frame.Visible = True
     BackColor = clBtnFace
-    AxisVisible = True
     Align = alClient
     Color = clBtnFace
+    DragCursor = crDrag
+    DragMode = dmManual
+    Enabled = True
     ParentColor = False
+    ParentShowHint = True
+    Visible = True
   end
   object Panel1: TPanel
-    Height = 69
+    Left = 0
-    Top = 430
+    Height = 75
+    Top = 424
     Width = 585
+    HelpContext = 0
     Align = alBottom
-    ClientHeight = 69
+    Alignment = taCenter
+    AutoSize = False
+    BorderSpacing.Left = 0
+    BorderSpacing.Top = 0
+    BorderSpacing.Right = 0
+    BorderSpacing.Bottom = 0
+    BorderSpacing.Around = 0
+    BorderSpacing.CellAlignHorizontal = ccaFill
+    BorderSpacing.CellAlignVertical = ccaFill
+    BevelInner = bvNone
+    BevelOuter = bvRaised
+    BevelWidth = 1
+    BorderWidth = 0
+    BorderStyle = bsNone
+    ChildSizing.LeftRightSpacing = 0
+    ChildSizing.TopBottomSpacing = 0
+    ChildSizing.HorizontalSpacing = 0
+    ChildSizing.VerticalSpacing = 0
+    ChildSizing.ControlsPerLine = 0
+    ClientHeight = 75
     ClientWidth = 585
+    DockSite = False
+    DragCursor = crDrag
+    DragKind = dkDrag
+    DragMode = dmManual
+    Enabled = True
+    FullRepaint = True
+    ParentColor = True
+    ParentFont = True
+    ParentShowHint = True
     TabOrder = 0
-    OnClick = Panel1Click
+    TabStop = False
-    object Button1: TButton
+    Visible = True
-      Left = 16
+    object lblAdd: TLabel
+      Left = 13
+      Height = 18
+      Top = 10
+      Width = 30
+      HelpContext = 0
+      Align = alNone
+      Alignment = taLeftJustify
+      AutoSize = True
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
+      BorderSpacing.CellAlignHorizontal = ccaFill
+      BorderSpacing.CellAlignVertical = ccaFill
+      Caption = 'Add:'
+      DragCursor = crDrag
+      DragMode = dmManual
+      Enabled = True
+      Layout = tlTop
+      ParentBidiMode = True
+      ParentColor = False
+      ParentFont = True
+      ParentShowHint = True
+      ShowAccelChar = True
+      Transparent = True
+      Visible = True
+      WordWrap = False
+      OptimalFill = False
+    end
+    object lblAdd1: TLabel
+      Left = 13
+      Height = 18
+      Top = 42
+      Width = 38
+      HelpContext = 0
+      Align = alNone
+      Alignment = taLeftJustify
+      AutoSize = True
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
+      BorderSpacing.CellAlignHorizontal = ccaFill
+      BorderSpacing.CellAlignVertical = ccaFill
+      Caption = 'Clear:'
+      DragCursor = crDrag
+      DragMode = dmManual
+      Enabled = True
+      Layout = tlTop
+      ParentBidiMode = True
+      ParentColor = False
+      ParentFont = True
+      ParentShowHint = True
+      ShowAccelChar = True
+      Transparent = True
+      Visible = True
+      WordWrap = False
+      OptimalFill = False
+    end
+    object btnAddPie: TButton
+      Left = 64
       Height = 25
       Top = 8
-      Width = 75
+      Width = 52
+      HelpContext = 0
+      Align = alNone
+      AutoSize = False
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
       BorderSpacing.InnerBorder = 4
-      Caption = 'create pie'
+      BorderSpacing.CellAlignHorizontal = ccaFill
-      OnClick = Button1Click
+      BorderSpacing.CellAlignVertical = ccaFill
+      Cancel = False
+      Caption = 'Pie'
+      Default = False
+      DragCursor = crDrag
+      DragMode = dmManual
+      Enabled = True
+      ParentBidiMode = True
+      ModalResult = 0
+      OnClick = btnAddPieClick
+      ParentFont = True
+      ParentShowHint = True
       TabOrder = 0
+      TabStop = True
+      Visible = True
     end
-    object Button2: TButton
+    object btnAddLine: TButton
-      Left = 96
+      Left = 232
       Height = 25
       Top = 8
-      Width = 75
+      Width = 52
+      HelpContext = 0
+      Align = alNone
+      AutoSize = False
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
       BorderSpacing.InnerBorder = 4
-      Caption = 'create area'
+      BorderSpacing.CellAlignHorizontal = ccaFill
-      OnClick = Button2Click
+      BorderSpacing.CellAlignVertical = ccaFill
+      Cancel = False
+      Caption = 'Line'
+      Default = False
+      DragCursor = crDrag
+      DragMode = dmManual
+      Enabled = True
+      ParentBidiMode = True
+      ModalResult = 0
+      OnClick = btnAddLineClick
+      ParentFont = True
+      ParentShowHint = True
       TabOrder = 1
+      TabStop = True
+      Visible = True
     end
-    object Button3: TButton
+    object btnAddArea: TButton
-      Left = 96
+      Left = 120
       Height = 25
-      Top = 40
+      Top = 8
-      Width = 75
+      Width = 52
+      HelpContext = 0
+      Align = alNone
+      AutoSize = False
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
       BorderSpacing.InnerBorder = 4
-      Caption = 'create line'
+      BorderSpacing.CellAlignHorizontal = ccaFill
-      OnClick = Button3Click
+      BorderSpacing.CellAlignVertical = ccaFill
+      Cancel = False
+      Caption = 'Area'
+      Default = False
+      DragCursor = crDrag
+      DragMode = dmManual
+      Enabled = True
+      ParentBidiMode = True
+      ModalResult = 0
+      OnClick = btnAddAreaClick
+      ParentFont = True
+      ParentShowHint = True
       TabOrder = 2
+      TabStop = True
+      Visible = True
     end
-    object Button5: TButton
+    object btnAddBar: TButton
-      Left = 208
+      Left = 176
       Height = 25
       Top = 8
-      Width = 75
+      Width = 52
+      HelpContext = 0
+      Align = alNone
+      AutoSize = False
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
       BorderSpacing.InnerBorder = 4
-      Caption = 'add pie'
+      BorderSpacing.CellAlignHorizontal = ccaFill
-      OnClick = Button5Click
+      BorderSpacing.CellAlignVertical = ccaFill
+      Cancel = False
+      Caption = 'Bar'
+      Default = False
+      DragCursor = crDrag
+      DragMode = dmManual
+      Enabled = True
+      ParentBidiMode = True
+      ModalResult = 0
+      OnClick = btnAddBarClick
+      ParentFont = True
+      ParentShowHint = True
       TabOrder = 3
+      TabStop = True
+      Visible = True
     end
-    object Button7: TButton
+    object cbLegend: TCheckBox
-      Left = 288
-      Height = 25
-      Top = 40
-      Width = 75
-      BorderSpacing.InnerBorder = 4
-      Caption = 'add line'
-      OnClick = Button7Click
-      TabOrder = 4
-    end
-    object Button8: TButton
-      Left = 288
-      Height = 25
-      Top = 8
-      Width = 75
-      BorderSpacing.InnerBorder = 4
-      Caption = 'add area'
-      OnClick = Button8Click
-      TabOrder = 5
-    end
-    object Button9: TButton
-      Left = 16
-      Height = 25
-      Top = 40
-      Width = 75
-      BorderSpacing.InnerBorder = 4
-      Caption = 'create bar'
-      OnClick = Button9Click
-      TabOrder = 6
-    end
-    object Button10: TButton
-      Left = 208
-      Height = 25
-      Top = 40
-      Width = 75
-      BorderSpacing.InnerBorder = 4
-      Caption = 'add bar'
-      OnClick = Button10Click
-      TabOrder = 7
-    end
-    object Legend: TCheckBox
       Left = 408
-      Height = 21
+      Height = 22
       Top = 8
-      Width = 64
+      Width = 71
+      HelpContext = 0
+      Align = alNone
+      AllowGrayed = False
+      AutoSize = True
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
+      BorderSpacing.CellAlignHorizontal = ccaFill
+      BorderSpacing.CellAlignVertical = ccaFill
       Caption = 'Legend'
-      OnChange = LegendChange
+      Checked = False
-      TabOrder = 8
+      DragCursor = crDrag
+      DragKind = dkDrag
+      DragMode = dmManual
+      Enabled = True
+      OnChange = cbLegendChange
+      ParentColor = True
+      ParentFont = True
+      ParentShowHint = True
+      ParentBidiMode = True
+      State = cbUnchecked
+      TabOrder = 4
+      TabStop = True
+      UseOnChange = False
+      Visible = True
     end
-    object CheckBox1: TCheckBox
+    object cbBottomAxis: TCheckBox
       Left = 408
-      Height = 21
+      Height = 22
       Top = 24
-      Width = 90
+      Width = 102
+      HelpContext = 0
+      Align = alNone
+      AllowGrayed = False
+      AutoSize = True
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
+      BorderSpacing.CellAlignHorizontal = ccaFill
+      BorderSpacing.CellAlignVertical = ccaFill
       Caption = 'Bottom Axis'
       Checked = True
-      OnChange = CheckBox1Change
+      DragCursor = crDrag
+      DragKind = dkDrag
+      DragMode = dmManual
+      Enabled = True
+      OnChange = cbBottomAxisChange
+      ParentColor = True
+      ParentFont = True
+      ParentShowHint = True
+      ParentBidiMode = True
       State = cbChecked
-      TabOrder = 9
+      TabOrder = 5
+      TabStop = True
+      UseOnChange = False
+      Visible = True
     end
-    object CheckBox2: TCheckBox
+    object cbLeftAxis: TCheckBox
       Left = 408
-      Height = 21
+      Height = 22
       Top = 40
-      Width = 70
+      Width = 78
+      HelpContext = 0
+      Align = alNone
+      AllowGrayed = False
+      AutoSize = True
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
+      BorderSpacing.CellAlignHorizontal = ccaFill
+      BorderSpacing.CellAlignVertical = ccaFill
       Caption = 'Left Axis'
       Checked = True
-      OnChange = CheckBox2Change
+      DragCursor = crDrag
+      DragKind = dkDrag
+      DragMode = dmManual
+      Enabled = True
+      OnChange = cbLeftAxisChange
+      ParentColor = True
+      ParentFont = True
+      ParentShowHint = True
+      ParentBidiMode = True
       State = cbChecked
-      TabOrder = 10
+      TabOrder = 6
+      TabStop = True
+      UseOnChange = False
+      Visible = True
     end
-    object CheckBox3: TCheckBox
+    object cbTitle: TCheckBox
       Left = 496
-      Height = 21
+      Height = 22
       Top = 8
-      Width = 44
+      Width = 50
-      Caption = 'title'
+      HelpContext = 0
+      Align = alNone
+      AllowGrayed = False
+      AutoSize = True
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
+      BorderSpacing.CellAlignHorizontal = ccaFill
+      BorderSpacing.CellAlignVertical = ccaFill
+      Caption = 'Title'
       Checked = True
-      OnChange = CheckBox3Change
+      DragCursor = crDrag
+      DragKind = dkDrag
+      DragMode = dmManual
+      Enabled = True
+      OnChange = cbTitleChange
+      ParentColor = True
+      ParentFont = True
+      ParentShowHint = True
+      ParentBidiMode = True
       State = cbChecked
-      TabOrder = 11
+      TabOrder = 7
+      TabStop = True
+      UseOnChange = False
+      Visible = True
     end
-    object CheckBox4: TCheckBox
+    object cbFooter: TCheckBox
       Left = 496
-      Height = 21
+      Height = 22
       Top = 24
-      Width = 59
+      Width = 65
+      HelpContext = 0
+      Align = alNone
+      AllowGrayed = False
+      AutoSize = True
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
+      BorderSpacing.CellAlignHorizontal = ccaFill
+      BorderSpacing.CellAlignVertical = ccaFill
       Caption = 'Footer'
-      OnChange = CheckBox4Change
+      Checked = False
-      TabOrder = 12
+      DragCursor = crDrag
+      DragKind = dkDrag
+      DragMode = dmManual
+      Enabled = True
+      OnChange = cbFooterChange
+      ParentColor = True
+      ParentFont = True
+      ParentShowHint = True
+      ParentBidiMode = True
+      State = cbUnchecked
+      TabOrder = 8
+      TabStop = True
+      UseOnChange = False
+      Visible = True
     end
-    object CheckBox5: TCheckBox
+    object cbInverted: TCheckBox
       Left = 496
-      Height = 21
+      Height = 22
       Top = 40
-      Width = 69
+      Width = 76
+      HelpContext = 0
+      Align = alNone
+      AllowGrayed = False
+      AutoSize = True
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
+      BorderSpacing.CellAlignHorizontal = ccaFill
+      BorderSpacing.CellAlignVertical = ccaFill
       Caption = 'Inverted'
-      OnChange = CheckBox5Change
+      Checked = False
+      DragCursor = crDrag
+      DragKind = dkDrag
+      DragMode = dmManual
+      Enabled = True
+      OnChange = cbInvertedChange
+      ParentColor = True
+      ParentFont = True
+      ParentShowHint = True
+      ParentBidiMode = True
+      State = cbUnchecked
+      TabOrder = 9
+      TabStop = True
+      UseOnChange = False
+      Visible = True
+    end
+    object btnClearBar: TButton
+      Left = 176
+      Height = 25
+      Top = 40
+      Width = 52
+      HelpContext = 0
+      Align = alNone
+      AutoSize = False
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
+      BorderSpacing.InnerBorder = 4
+      BorderSpacing.CellAlignHorizontal = ccaFill
+      BorderSpacing.CellAlignVertical = ccaFill
+      Cancel = False
+      Caption = 'Bar'
+      Default = False
+      DragCursor = crDrag
+      DragMode = dmManual
+      Enabled = True
+      ParentBidiMode = True
+      ModalResult = 0
+      OnClick = btnClearBarClick
+      ParentFont = True
+      ParentShowHint = True
+      TabOrder = 10
+      TabStop = True
+      Visible = True
+    end
+    object btnClearArea: TButton
+      Left = 120
+      Height = 25
+      Top = 40
+      Width = 52
+      HelpContext = 0
+      Align = alNone
+      AutoSize = False
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
+      BorderSpacing.InnerBorder = 4
+      BorderSpacing.CellAlignHorizontal = ccaFill
+      BorderSpacing.CellAlignVertical = ccaFill
+      Cancel = False
+      Caption = 'Area'
+      Default = False
+      DragCursor = crDrag
+      DragMode = dmManual
+      Enabled = True
+      ParentBidiMode = True
+      ModalResult = 0
+      OnClick = btnClearAreaClick
+      ParentFont = True
+      ParentShowHint = True
+      TabOrder = 11
+      TabStop = True
+      Visible = True
+    end
+    object btnClearLine: TButton
+      Left = 232
+      Height = 25
+      Top = 40
+      Width = 52
+      HelpContext = 0
+      Align = alNone
+      AutoSize = False
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
+      BorderSpacing.InnerBorder = 4
+      BorderSpacing.CellAlignHorizontal = ccaFill
+      BorderSpacing.CellAlignVertical = ccaFill
+      Cancel = False
+      Caption = 'Line'
+      Default = False
+      DragCursor = crDrag
+      DragMode = dmManual
+      Enabled = True
+      ParentBidiMode = True
+      ModalResult = 0
+      OnClick = btnClearLineClick
+      ParentFont = True
+      ParentShowHint = True
+      TabOrder = 12
+      TabStop = True
+      Visible = True
+    end
+    object btnClearPie: TButton
+      Left = 64
+      Height = 25
+      Top = 40
+      Width = 52
+      HelpContext = 0
+      Align = alNone
+      AutoSize = False
+      BorderSpacing.Left = 0
+      BorderSpacing.Top = 0
+      BorderSpacing.Right = 0
+      BorderSpacing.Bottom = 0
+      BorderSpacing.Around = 0
+      BorderSpacing.InnerBorder = 4
+      BorderSpacing.CellAlignHorizontal = ccaFill
+      BorderSpacing.CellAlignVertical = ccaFill
+      Cancel = False
+      Caption = 'Pie'
+      Default = False
+      DragCursor = crDrag
+      DragMode = dmManual
+      Enabled = True
+      ParentBidiMode = True
+      ModalResult = 0
+      OnClick = btnClearPieClick
+      ParentFont = True
+      ParentShowHint = True
       TabOrder = 13
+      TabStop = True
+      Visible = True
     end
   end
 end

components/tachart/demo/unit1.lrs

@@ -1,60 +1,200 @@
+{ This is an automatically generated lazarus resource file }
+
 LazarusResources.Add('TForm1','FORMDATA',[
   'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'Y'#1#6'Height'#3#243#1#3'Top'#2'r'#5'Widt'
-  +'h'#3'I'#2#18'HorzScrollBar.Page'#3'H'#2#18'VertScrollBar.Page'#3#242#1#13'A'
+  +'h'#3'I'#2#11'HelpContext'#2#0#13'ActiveControl'#7#6'Panel1'#5'Align'#7#6'al'
-  +'ctiveControl'#7#7'Button1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3#243#1#11
+  +'None'#14'AllowDropFiles'#8#10'AutoScroll'#9#8'AutoSize'#8#11'BorderIcons'#11
-  +'ClientWidth'#3'I'#2#0#6'TChart'#6'Chart1'#6'Height'#3#174#1#5'Width'#3'I'#2
+  +#12'biSystemMenu'#10'biMinimize'#10'biMaximize'#0#11'BorderStyle'#7#10'bsSiz'
-  +#14'AutoUpdateXMin'#9#14'AutoUpdateXMax'#9#14'AutoUpdateYMin'#9#14'AutoUpdat'
+  +'eable'#7'Caption'#6#5'Form1'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildS'
-  +'eYMax'#9#16'Legend.Alignment'#7#7'laRight'#18'Legend.Font.Height'#2#245#16
+  +'izing.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildS'
-  +'Legend.Font.Name'#6#13'MS Sans Serif'#13'Title.Visible'#9#17'Title.Brush.Co'
+  +'izing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHei'
-  +'lor'#7#9'clBtnFace'#16'Title.Font.Color'#7#6'clBlue'#17'Title.Font.Height'#2
+  +'ght'#3#243#1#11'ClientWidth'#3'I'#2#8'DockSite'#8#8'DragKind'#7#6'dkDrag'#8
-  +#245#15'Title.Font.Name'#6#13'MS Sans Serif'#15'Title.Alignment'#7#8'taCente'
+  +'DragMode'#7#8'dmManual'#7'Enabled'#9#11'Font.Height'#2#0#10'Font.Style'#11#0
-  +'r'#18'Title.Text.Strings'#1#6#20'Centered Chart Title'#0#16'Foot.Brush.Colo'
+  +#9'FormStyle'#7#8'fsNormal'#14'ParentBiDiMode'#9#10'ParentFont'#8#8'Position'
-  +'r'#7#9'clBtnFace'#15'Foot.Font.Color'#7#5'clRed'#16'Foot.Font.Height'#2#243
+  +#7#14'poScreenCenter'#13'ShowInTaskBar'#7#9'stDefault'#14'UseDockManager'#8
-  +#14'Foot.Font.Name'#6#13'MS Sans Serif'#15'Foot.Font.Style'#11#6'fsBold'#0#17
+  +#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsNormal'#0#6'TChart'#6'Char'
-  +'Foot.Text.Strings'#1#6#25'This a LeftAligned Footer'#0#9'AllowZoom'#9#16'Le'
+  +'t1'#4'Left'#2#0#6'Height'#3#168#1#3'Top'#2#0#5'Width'#3'I'#2#11'HelpContext'
-  +'ftAxis.Visible'#9#20'LeftAxis.Title.Angle'#2'Z'#26'LeftAxis.Title.Font.Heig'
+  +#2#0#7'MirrorX'#8#20'ShowVerticalReticule'#8#12'ShowReticule'#8#14'Legend.Vi'
-  +'ht'#2#245#24'LeftAxis.Title.Font.Name'#6#13'MS Sans Serif'#19'LeftAxis.Grid'
+  +'sible'#8#16'Legend.Alignment'#7#7'laRight'#18'Legend.Font.Height'#2#245#16
-  +'.Color'#7#6'clGray'#19'LeftAxis.Grid.Style'#7#5'psDot'#21'LeftAxis.Grid.Vis'
+  +'Legend.Font.Name'#6#13'MS Sans Serif'#17'Legend.Font.Style'#11#0#20'Legend.'
-  +'ible'#9#18'BottomAxis.Visible'#9#28'BottomAxis.Title.Font.Height'#2#245#26
+  +'Frame.Visible'#8#13'Title.Visible'#9#17'Title.Brush.Color'#7#9'clBtnFace'#16
-  +'BottomAxis.Title.Font.Name'#6#13'MS Sans Serif'#21'BottomAxis.Grid.Color'#7
+  +'Title.Font.Color'#7#6'clBlue'#17'Title.Font.Height'#2#245#15'Title.Font.Nam'
-  +#6'clGray'#21'BottomAxis.Grid.Style'#7#5'psDot'#23'BottomAxis.Grid.Visible'#9
+  +'e'#6#13'MS Sans Serif'#16'Title.Font.Style'#11#0#19'Title.Frame.Visible'#8
-  +#13'Frame.Visible'#9#9'BackColor'#7#9'clBtnFace'#11'AxisVisible'#9#5'Align'#7
+  +#15'Title.Alignment'#7#8'taCenter'#18'Title.Text.Strings'#1#6#20'Centered Ch'
-  +#8'alClient'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#0#0#6'TPanel'#6'Panel'
+  +'art Title'#0#12'Foot.Visible'#8#16'Foot.Brush.Color'#7#9'clBtnFace'#15'Foot'
-  +'1'#6'Height'#2'E'#3'Top'#3#174#1#5'Width'#3'I'#2#5'Align'#7#8'alBottom'#12
+  +'.Font.Color'#7#5'clRed'#16'Foot.Font.Height'#2#243#14'Foot.Font.Name'#6#13
-  +'ClientHeight'#2'E'#11'ClientWidth'#3'I'#2#8'TabOrder'#2#0#7'OnClick'#7#11'P'
+  +'MS Sans Serif'#15'Foot.Font.Style'#11#6'fsBold'#0#18'Foot.Frame.Visible'#8
-  +'anel1Click'#0#7'TButton'#7'Button1'#4'Left'#2#16#6'Height'#2#25#3'Top'#2#8#5
+  +#14'Foot.Alignment'#7#13'taLeftJustify'#17'Foot.Text.Strings'#1#6#25'This a '
-  +'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'create pie'#7
+  +'LeftAligned Footer'#0#16'LeftAxis.Visible'#9#17'LeftAxis.Inverted'#8#20'Lef'
-  +'OnClick'#7#12'Button1Click'#8'TabOrder'#2#0#0#0#7'TButton'#7'Button2'#4'Lef'
+  +'tAxis.Title.Angle'#2'Z'#26'LeftAxis.Title.Font.Height'#2#245#24'LeftAxis.Ti'
-  +'t'#2'`'#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#25'BorderSpacing.InnerBorde'
+  +'tle.Font.Name'#6#13'MS Sans Serif'#25'LeftAxis.Title.Font.Style'#11#0#19'Le'
-  +'r'#2#4#7'Caption'#6#11'create area'#7'OnClick'#7#12'Button2Click'#8'TabOrde'
+  +'ftAxis.Grid.Color'#7#6'clGray'#19'LeftAxis.Grid.Style'#7#5'psDot'#21'LeftAx'
-  +'r'#2#1#0#0#7'TButton'#7'Button3'#4'Left'#2'`'#6'Height'#2#25#3'Top'#2'('#5
+  +'is.Grid.Visible'#9#18'BottomAxis.Visible'#9#19'BottomAxis.Inverted'#8#22'Bo'
-  +'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'create line'#7
+  +'ttomAxis.Title.Angle'#2#0#28'BottomAxis.Title.Font.Height'#2#245#26'BottomA'
-  +'OnClick'#7#12'Button3Click'#8'TabOrder'#2#2#0#0#7'TButton'#7'Button5'#4'Lef'
+  +'xis.Title.Font.Name'#6#13'MS Sans Serif'#27'BottomAxis.Title.Font.Style'#11
-  +'t'#3#208#0#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#25'BorderSpacing.InnerBo'
+  +#0#21'BottomAxis.Grid.Color'#7#6'clGray'#21'BottomAxis.Grid.Style'#7#5'psDot'
-  +'rder'#2#4#7'Caption'#6#7'add pie'#7'OnClick'#7#12'Button5Click'#8'TabOrder'
+  +#23'BottomAxis.Grid.Visible'#9#13'Frame.Visible'#9#9'BackColor'#7#9'clBtnFac'
-  +#2#3#0#0#7'TButton'#7'Button7'#4'Left'#3' '#1#6'Height'#2#25#3'Top'#2'('#5'W'
+  +'e'#5'Align'#7#8'alClient'#5'Color'#7#9'clBtnFace'#10'DragCursor'#7#6'crDrag'
-  +'idth'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#8'add line'#7'OnC'
+  +#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'ParentColor'#8#14'ParentShowHint'
-  +'lick'#7#12'Button7Click'#8'TabOrder'#2#4#0#0#7'TButton'#7'Button8'#4'Left'#3
+  +#9#7'Visible'#9#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2'K'#3'Top'#3
-  +' '#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2
+  +#168#1#5'Width'#3'I'#2#11'HelpContext'#2#0#5'Align'#7#8'alBottom'#9'Alignmen'
-  +#4#7'Caption'#6#8'add area'#7'OnClick'#7#12'Button8Click'#8'TabOrder'#2#5#0#0
+  +'t'#7#8'taCenter'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.'
-  +#7'TButton'#7'Button9'#4'Left'#2#16#6'Height'#2#25#3'Top'#2'('#5'Width'#2'K'
+  +'Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'Border'
-  +#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'create bar'#7'OnClick'#7
+  +'Spacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Bor'
-  +#12'Button9Click'#8'TabOrder'#2#6#0#0#7'TButton'#8'Button10'#4'Left'#3#208#0
+  +'derSpacing.CellAlignVertical'#7#7'ccaFill'#10'BevelInner'#7#6'bvNone'#10'Be'
-  +#6'Height'#2#25#3'Top'#2'('#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#4#7
+  +'velOuter'#7#8'bvRaised'#10'BevelWidth'#2#1#11'BorderWidth'#2#0#11'BorderSty'
-  +'Caption'#6#7'add bar'#7'OnClick'#7#13'Button10Click'#8'TabOrder'#2#7#0#0#9
+  +'le'#7#6'bsNone'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBott'
-  +'TCheckBox'#6'Legend'#4'Left'#3#152#1#6'Height'#2#21#3'Top'#2#8#5'Width'#2'@'
+  +'omSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.Vertica'
-  +#7'Caption'#6#6'Legend'#8'OnChange'#7#12'LegendChange'#8'TabOrder'#2#8#0#0#9
+  +'lSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#2'K'#11
-  +'TCheckBox'#9'CheckBox1'#4'Left'#3#152#1#6'Height'#2#21#3'Top'#2#24#5'Width'
+  +'ClientWidth'#3'I'#2#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6
-  +#2'Z'#7'Caption'#6#11'Bottom Axis'#7'Checked'#9#8'OnChange'#7#15'CheckBox1Ch'
+  +'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#11'FullRepaint'#9#11'ParentC'
-  +'ange'#5'State'#7#9'cbChecked'#8'TabOrder'#2#9#0#0#9'TCheckBox'#9'CheckBox2'
+  +'olor'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#0#7'TabStop'#8#7
-  +#4'Left'#3#152#1#6'Height'#2#21#3'Top'#2'('#5'Width'#2'F'#7'Caption'#6#9'Lef'
+  +'Visible'#9#0#6'TLabel'#6'lblAdd'#4'Left'#2#13#6'Height'#2#18#3'Top'#2#10#5
-  +'t Axis'#7'Checked'#9#8'OnChange'#7#15'CheckBox2Change'#5'State'#7#9'cbCheck'
+  +'Width'#2#30#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLe'
-  +'ed'#8'TabOrder'#2#10#0#0#9'TCheckBox'#9'CheckBox3'#4'Left'#3#240#1#6'Height'
+  +'ftJustify'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2
-  +#2#21#3'Top'#2#8#5'Width'#2','#7'Caption'#6#5'title'#7'Checked'#9#8'OnChange'
+  +#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing'
-  +#7#15'CheckBox3Change'#5'State'#7#9'cbChecked'#8'TabOrder'#2#11#0#0#9'TCheck'
+  +'.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpac'
-  +'Box'#9'CheckBox4'#4'Left'#3#240#1#6'Height'#2#21#3'Top'#2#24#5'Width'#2';'#7
+  +'ing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#4'Add:'#10'DragCursor'#7#6
-  +'Caption'#6#6'Footer'#8'OnChange'#7#15'CheckBox4Change'#8'TabOrder'#2#12#0#0
+  +'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'Pare'
-  +#9'TCheckBox'#9'CheckBox5'#4'Left'#3#240#1#6'Height'#2#21#3'Top'#2'('#5'Widt'
+  +'ntBidiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'Sh'
-  +'h'#2'E'#7'Caption'#6#8'Inverted'#8'OnChange'#7#15'CheckBox5Change'#8'TabOrd'
+  +'owAccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'
-  +'er'#2#13#0#0#0#0
+  +#8#0#0#6'TLabel'#7'lblAdd1'#4'Left'#2#13#6'Height'#2#18#3'Top'#2'*'#5'Width'
+  +#2'&'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Alignment'#7#13'taLeftJusti'
+  +'fy'#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'B'
+  +'orderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Aroun'
+  +'d'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.Ce'
+  +'llAlignVertical'#7#7'ccaFill'#7'Caption'#6#6'Clear:'#10'DragCursor'#7#6'crD'
+  +'rag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6'Layout'#7#5'tlTop'#14'ParentB'
+  ,'idiMode'#9#11'ParentColor'#8#10'ParentFont'#9#14'ParentShowHint'#9#13'ShowA'
+  +'ccelChar'#9#11'Transparent'#9#7'Visible'#9#8'WordWrap'#8#11'OptimalFill'#8#0
+  +#0#7'TButton'#9'btnAddPie'#4'Left'#2'@'#6'Height'#2#25#3'Top'#2#8#5'Width'#2
+  +'4'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'AutoSize'#8#18'BorderSpacing.'
+  +'Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSp'
+  +'acing.Bottom'#2#0#20'BorderSpacing.Around'#2#0#25'BorderSpacing.InnerBorder'
+  +#2#4'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellA'
+  +'lignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#3'Pie'#7'Default'#8#10
+  +'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBid'
+  +'iMode'#9#11'ModalResult'#2#0#7'OnClick'#7#14'btnAddPieClick'#10'ParentFont'
+  +#9#14'ParentShowHint'#9#8'TabOrder'#2#0#7'TabStop'#9#7'Visible'#9#0#0#7'TBut'
+  +'ton'#10'btnAddLine'#4'Left'#3#232#0#6'Height'#2#25#3'Top'#2#8#5'Width'#2'4'
+  +#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'AutoSize'#8#18'BorderSpacing.Lef'
+  +'t'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpaci'
+  +'ng.Bottom'#2#0#20'BorderSpacing.Around'#2#0#25'BorderSpacing.InnerBorder'#2
+  +#4'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAli'
+  +'gnVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#4'Line'#7'Default'#8#10'D'
+  +'ragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidi'
+  +'Mode'#9#11'ModalResult'#2#0#7'OnClick'#7#15'btnAddLineClick'#10'ParentFont'
+  +#9#14'ParentShowHint'#9#8'TabOrder'#2#1#7'TabStop'#9#7'Visible'#9#0#0#7'TBut'
+  +'ton'#10'btnAddArea'#4'Left'#2'x'#6'Height'#2#25#3'Top'#2#8#5'Width'#2'4'#11
+  +'HelpContext'#2#0#5'Align'#7#6'alNone'#8'AutoSize'#8#18'BorderSpacing.Left'#2
+  +#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bo'
+  +'ttom'#2#0#20'BorderSpacing.Around'#2#0#25'BorderSpacing.InnerBorder'#2#4'!B'
+  +'orderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVe'
+  +'rtical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#4'Area'#7'Default'#8#10'DragC'
+  +'ursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'
+  +#9#11'ModalResult'#2#0#7'OnClick'#7#15'btnAddAreaClick'#10'ParentFont'#9#14
+  +'ParentShowHint'#9#8'TabOrder'#2#2#7'TabStop'#9#7'Visible'#9#0#0#7'TButton'#9
+  +'btnAddBar'#4'Left'#3#176#0#6'Height'#2#25#3'Top'#2#8#5'Width'#2'4'#11'HelpC'
+  +'ontext'#2#0#5'Align'#7#6'alNone'#8'AutoSize'#8#18'BorderSpacing.Left'#2#0#17
+  +'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'
+  +#2#0#20'BorderSpacing.Around'#2#0#25'BorderSpacing.InnerBorder'#2#4'!BorderS'
+  +'pacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'
+  +#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#3'Bar'#7'Default'#8#10'DragCursor'#7#6
+  +'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'ParentBidiMode'#9#11'Moda'
+  +'lResult'#2#0#7'OnClick'#7#14'btnAddBarClick'#10'ParentFont'#9#14'ParentShow'
+  +'Hint'#9#8'TabOrder'#2#3#7'TabStop'#9#7'Visible'#9#0#0#9'TCheckBox'#8'cbLege'
+  +'nd'#4'Left'#3#152#1#6'Height'#2#22#3'Top'#2#8#5'Width'#2'G'#11'HelpContext'
+  +#2#0#5'Align'#7#6'alNone'#11'AllowGrayed'#8#8'AutoSize'#9#18'BorderSpacing.L'
+  +'eft'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpa'
+  +'cing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHoriz'
+  +'ontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Capt'
+  +'ion'#6#6'Legend'#7'Checked'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dk'
+  +'Drag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#8'OnChange'#7#14'cbLegendChang'
+  +'e'#11'ParentColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#14'ParentBidiMod'
+  +'e'#9#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#4#7'TabStop'#9#11'UseOnChange'
+  +#8#7'Visible'#9#0#0#9'TCheckBox'#12'cbBottomAxis'#4'Left'#3#152#1#6'Height'#2
+  +#22#3'Top'#2#24#5'Width'#2'f'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'Al'
+  +'lowGrayed'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'
+  +#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpaci'
+  +'ng.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSp'
+  +'acing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#11'Bottom Axis'#7'Checke'
+  +'d'#9#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmM'
+  +'anual'#7'Enabled'#9#8'OnChange'#7#18'cbBottomAxisChange'#11'ParentColor'#9
+  +#10'ParentFont'#9#14'ParentShowHint'#9#14'ParentBidiMode'#9#5'State'#7#9'cbC'
+  +'hecked'#8'TabOrder'#2#5#7'TabStop'#9#11'UseOnChange'#8#7'Visible'#9#0#0#9'T'
+  +'CheckBox'#10'cbLeftAxis'#4'Left'#3#152#1#6'Height'#2#22#3'Top'#2'('#5'Width'
+  +#2'N'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'AllowGrayed'#8#8'AutoSize'
+  +#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Rig'
+  +'ht'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSp'
+  +'acing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'
+  +#7#7'ccaFill'#7'Caption'#6#9'Left Axis'#7'Checked'#9#10'DragCursor'#7#6'crDr'
+  +'ag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#8'OnChan'
+  ,'ge'#7#16'cbLeftAxisChange'#11'ParentColor'#9#10'ParentFont'#9#14'ParentShow'
+  +'Hint'#9#14'ParentBidiMode'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#6#7'TabS'
+  +'top'#9#11'UseOnChange'#8#7'Visible'#9#0#0#9'TCheckBox'#7'cbTitle'#4'Left'#3
+  +#240#1#6'Height'#2#22#3'Top'#2#8#5'Width'#2'2'#11'HelpContext'#2#0#5'Align'#7
+  +#6'alNone'#11'AllowGrayed'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'Bor'
+  +'derSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0
+  +#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFil'
+  +'l'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#5'Title'#7
+  +'Checked'#9#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7
+  +#8'dmManual'#7'Enabled'#9#8'OnChange'#7#13'cbTitleChange'#11'ParentColor'#9
+  +#10'ParentFont'#9#14'ParentShowHint'#9#14'ParentBidiMode'#9#5'State'#7#9'cbC'
+  +'hecked'#8'TabOrder'#2#7#7'TabStop'#9#11'UseOnChange'#8#7'Visible'#9#0#0#9'T'
+  +'CheckBox'#8'cbFooter'#4'Left'#3#240#1#6'Height'#2#22#3'Top'#2#24#5'Width'#2
+  +'A'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'AllowGrayed'#8#8'AutoSize'#9
+  +#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'
+  +#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacin'
+  +'g.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7
+  +'ccaFill'#7'Caption'#6#6'Footer'#7'Checked'#8#10'DragCursor'#7#6'crDrag'#8'D'
+  +'ragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#8'OnChange'#7#14
+  +'cbFooterChange'#11'ParentColor'#9#10'ParentFont'#9#14'ParentShowHint'#9#14
+  +'ParentBidiMode'#9#5'State'#7#11'cbUnchecked'#8'TabOrder'#2#8#7'TabStop'#9#11
+  +'UseOnChange'#8#7'Visible'#9#0#0#9'TCheckBox'#10'cbInverted'#4'Left'#3#240#1
+  +#6'Height'#2#22#3'Top'#2'('#5'Width'#2'L'#11'HelpContext'#2#0#5'Align'#7#6'a'
+  +'lNone'#11'AllowGrayed'#8#8'AutoSize'#9#18'BorderSpacing.Left'#2#0#17'Border'
+  +'Spacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20
+  +'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'
+  +#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Caption'#6#8'Inverted'#7
+  +'Checked'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7
+  +#8'dmManual'#7'Enabled'#9#8'OnChange'#7#16'cbInvertedChange'#11'ParentColor'
+  +#9#10'ParentFont'#9#14'ParentShowHint'#9#14'ParentBidiMode'#9#5'State'#7#11
+  +'cbUnchecked'#8'TabOrder'#2#9#7'TabStop'#9#11'UseOnChange'#8#7'Visible'#9#0#0
+  +#7'TButton'#11'btnClearBar'#4'Left'#3#176#0#6'Height'#2#25#3'Top'#2'('#5'Wid'
+  +'th'#2'4'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'AutoSize'#8#18'BorderSp'
+  +'acing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'Bo'
+  +'rderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0#25'BorderSpacing.Inner'
+  +'Border'#2#4'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpaci'
+  +'ng.CellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#3'Bar'#7'Defaul'
+  +'t'#8#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14'P'
+  +'arentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#16'btnClearBarClick'#10'P'
+  +'arentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#10#7'TabStop'#9#7'Visible'#9
+  +#0#0#7'TButton'#12'btnClearArea'#4'Left'#2'x'#6'Height'#2#25#3'Top'#2'('#5'W'
+  +'idth'#2'4'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'AutoSize'#8#18'Border'
+  +'Spacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20
+  +'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0#25'BorderSpacing.Inn'
+  +'erBorder'#2#4'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpa'
+  +'cing.CellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#4'Area'#7'Def'
+  +'ault'#8#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#14
+  +'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#17'btnClearAreaClick'#10
+  +'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#11#7'TabStop'#9#7'Visible'
+  +#9#0#0#7'TButton'#12'btnClearLine'#4'Left'#3#232#0#6'Height'#2#25#3'Top'#2'('
+  +#5'Width'#2'4'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'AutoSize'#8#18'Bor'
+  +'derSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0
+  +#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0#25'BorderSpacing.'
+  +'InnerBorder'#2#4'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Border'
+  +'Spacing.CellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#4'Line'#7
+  +'Default'#8#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9
+  +#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#17'btnClearLineClick'
+  +#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#12#7'TabStop'#9#7'Visib'
+  +'le'#9#0#0#7'TButton'#11'btnClearPie'#4'Left'#2'@'#6'Height'#2#25#3'Top'#2'('
+  +#5'Width'#2'4'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'AutoSize'#8#18'Bor'
+  +'derSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0
+  +#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0#25'BorderSpacing.'
+  +'InnerBorder'#2#4'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'Border'
+  +'Spacing.CellAlignVertical'#7#7'ccaFill'#6'Cancel'#8#7'Caption'#6#3'Pie'#7'D'
+  ,'efault'#8#10'DragCursor'#7#6'crDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9
+  +#14'ParentBidiMode'#9#11'ModalResult'#2#0#7'OnClick'#7#16'btnClearPieClick'
+  +#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#13#7'TabStop'#9#7'Visib'
+  +'le'#9#0#0#0#0
 ]);

components/tachart/demo/unit1.pas

@@ -6,56 +6,55 @@ interface
 
 uses
   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  TAGraph, TASeries, Buttons, StdCtrls, TAEngine;
+  TAGraph, TASeries, Buttons, StdCtrls;
 
 type
-
   { TForm1 }
 
   TForm1 = class(TForm)
-    Button1: TButton;
+    btnClearArea: TButton;
-    Button10: TButton;
+    btnClearBar: TButton;
-    Button2: TButton;
+    btnClearLine: TButton;
-    Button3: TButton;
+    btnClearPie: TButton;
-    Button5: TButton;
+    btnAddBar: TButton;
-    Button7: TButton;
+    btnAddPie: TButton;
-    Button8: TButton;
+    btnAddLine: TButton;
-    Button9: TButton;
+    btnAddArea: TButton;
     Chart1: TChart;
-    CheckBox1: TCheckBox;
+    cbBottomAxis: TCheckBox;
-    CheckBox2: TCheckBox;
+    cbLeftAxis: TCheckBox;
-    CheckBox3: TCheckBox;
+    cbTitle: TCheckBox;
-    CheckBox4: TCheckBox;
+    cbFooter: TCheckBox;
-    CheckBox5: TCheckBox;
+    cbInverted: TCheckBox;
-    Legend: TCheckBox;
+    cbLegend: TCheckBox;
+    lblAdd: TLabel;
+    lblAdd1: TLabel;
     Panel1: TPanel;
-    procedure CheckBox5Change(Sender: TObject);
+    procedure btnClearAreaClick(Sender: TObject);
-    procedure Panel1Click(Sender: TObject);
+    procedure btnClearBarClick(Sender: TObject);
-    procedure Button9Click(Sender: TObject);
+    procedure btnClearLineClick(Sender: TObject);
-    procedure Button1Click(Sender: TObject);
+    procedure btnClearPieClick(Sender: TObject);
-    procedure Button3Click(Sender: TObject);
+    procedure cbInvertedChange(Sender: TObject);
-    procedure Button2Click(Sender: TObject);
+    procedure btnAddAreaClick(Sender: TObject);
-    procedure Button8Click(Sender: TObject);
+    procedure btnAddBarClick(Sender: TObject);
-    procedure Button10Click(Sender: TObject);
+    procedure btnAddLineClick(Sender: TObject);
-    procedure Button7Click(Sender: TObject);
+    procedure btnAddPieClick(Sender: TObject);
-    procedure Button5Click(Sender: TObject);
+    procedure cbBottomAxisChange(Sender: TObject);
-    procedure CheckBox1Change(Sender: TObject);
+    procedure cbLeftAxisChange(Sender: TObject);
-    procedure CheckBox2Change(Sender: TObject);
+    procedure cbTitleChange(Sender: TObject);
-    procedure CheckBox3Change(Sender: TObject);
+    procedure cbFooterChange(Sender: TObject);
-    procedure CheckBox4Change(Sender: TObject);
+    procedure cbLegendChange(Sender: TObject);
-    procedure LegendChange(Sender: TObject);
-
   private
-    s: TBarSeries;
+    FArea: TAreaSeries;
-    d: TSerie;
+    FBar: TBarSeries;
-    p: TPieSeries;
+    FLine: TSerie;
-    a: TAreaSeries;
+    FPie: TPieSeries;
-    x,y,x1,y1, x3,y3: double;
+    x, y, x1, y1, x3, y3: Double;
-
+    procedure InitBar;
-    { private declarations }
+    procedure InitLine;
-  public
+    procedure InitPie;
-    { public declarations }
+    procedure InitArea;
-  end; 
+  end;
 
 var
   Form1: TForm1; 
@@ -64,123 +63,135 @@ implementation
 
 { TForm1 }
 
-
+procedure TForm1.btnAddAreaClick(Sender: TObject);
-procedure TForm1.Panel1Click(Sender: TObject);
 begin
+  if FArea = nil then InitArea;
 
+  X3 := X3 + 1;
+  if random(2) >= 0.7 then Y3 := Y3 + random(5)
+  else if random(2) >= 0.7 then Y3 := 0
+  else Y3 := Y3 - random(5);
+  FArea.AddXY(x3, y3, '', clTAColor);
 end;
 
-procedure TForm1.CheckBox5Change(Sender: TObject);
+procedure TForm1.btnAddBarClick(Sender: TObject);
 begin
-  Chart1.BottomAxis.Inverted := CheckBox5.Checked;
+  if FBar = nil then InitBar;
-  Chart1.LeftAxis.Inverted := CheckBox5.Checked;
+
+  FBar.AddXY(x, y, '', clRed);
+  X := X + 1;
+  if random(2) >= 0.7 then Y := Y + random(5)
+  else if random(2) >= 0.7 then Y := 0
+  else Y := Y - random(5);
 end;
 
-procedure TForm1.Button9Click(Sender: TObject);
+procedure TForm1.btnAddLineClick(Sender: TObject);
 begin
-      s := TBarSeries.Create(Chart1);
+  if FLine = nil then InitLine;
-      Chart1.AddSerie(s);
-      s.title := 'barras';
-      s.SeriesColor := clRed;
 
-end;
+  FLine.AddXY(x1, y1, '', clGreen);
-
+  X1 := X1 + 1.5;
-procedure TForm1.Button1Click(Sender: TObject);
+  if random(2) >= 0.5 then Y1 := Y1 + random(10)
-begin
-      p := TPieSeries.Create(Chart1);
-      Chart1.AddSerie(p);
-      p.title := 'pie';
-      p.SeriesColor := clRed;
-      p.MarksStyle := taengine.smsLabelPercent;
-
-end;
-
-procedure TForm1.Button3Click(Sender: TObject);
-begin
-     d:= TSerie.Create(Chart1);
-     d.ShowLines := true;
-     d.ShowPoints := true;
-     d.Pointer.Style := psRectangle;
-     d.title := 'line';
-     d.SeriesColor := clRed;
-     Chart1.AddSerie(d);
-
-end;
-
-procedure TForm1.Button2Click(Sender: TObject);
-begin
-     a := TAreaSeries.Create(Chart1);
-     Chart1.AddSerie(a);
-     a.SeriesColor := clred;
-     a.Stairs := true;
-     a.InvertedStairs := false;
-end;
-
-procedure TForm1.Button8Click(Sender: TObject);
-begin
-    X3 := X3 +1;
-    if (random(2) >= 0.7) then Y3 := Y3 + random(5)
-    else if (random(2) >= 0.7) then
-         Y3 := 0
-    else Y3 := Y3 - random(5);
-
-    a.AddXY(x3, y3, '', clTAColor);
-end;
-
-procedure TForm1.Button10Click(Sender: TObject);
-begin
-     s.AddXY(x,y, '', clred);
-
-     X := X +1;
-     if (random(2) >= 0.7) then Y := Y + random(5)
-     else if (random(2) >= 0.7) then
-          Y := 0
-     else Y := Y - random(5);
-
-end;
-
-procedure TForm1.Button7Click(Sender: TObject);
-begin
-  d.AddXY(x1,y1, '', clgreen);
-
-  X1 := X1 +1.5;
-  if (random(2) >= 0.5) then Y1 := Y1 + random(10)
   else Y1 := Y1 - random(5);
 end;
 
-procedure TForm1.Button5Click(Sender: TObject);
+procedure TForm1.btnAddPieClick(Sender: TObject);
 begin
-p.AddPie(3.4234235235, 'sde21312', clTAColor);
+  if FPie = nil then InitPie;
-p.AddPie(0.2323, 'adassssssdddddd', clTAColor);
+
-p.AddPie(30, 'filipe romao', clTAColor);
+  FPie.AddPie(3.4234235235, 'sde21312', clTAColor);
-p.AddPie(40, '234eds sa', clTAColor);
+  FPie.AddPie(0.2323, 'adassssssdddddd', clTAColor);
+  FPie.AddPie(30, 'filipe romao', clTAColor);
+  FPie.AddPie(40, '234eds sa', clTAColor);
 end;
 
-procedure TForm1.CheckBox1Change(Sender: TObject);
+procedure TForm1.btnClearAreaClick(Sender: TObject);
 begin
-          Chart1.BottomAxis.Visible := CheckBox1.Checked;
+  FreeAndNil(FArea);
 end;
 
-procedure TForm1.CheckBox2Change(Sender: TObject);
+procedure TForm1.btnClearBarClick(Sender: TObject);
 begin
-       Chart1.LeftAxis.Visible := CheckBox2.Checked;
+  FreeAndNil(FBar);
 end;
 
-procedure TForm1.CheckBox3Change(Sender: TObject);
+procedure TForm1.btnClearLineClick(Sender: TObject);
 begin
-         Chart1.Title.Visible := CheckBox3.Checked;
+  FreeAndNil(FLine);
 end;
 
-procedure TForm1.CheckBox4Change(Sender: TObject);
+procedure TForm1.btnClearPieClick(Sender: TObject);
 begin
-     Chart1.Foot.Visible := CheckBox4.Checked;
+  FreeAndNil(FPie);
 end;
 
-procedure TForm1.LegendChange(Sender: TObject);
+procedure TForm1.cbBottomAxisChange(Sender: TObject);
 begin
-chart1.Legend.Visible := Legend.Checked;
+  Chart1.BottomAxis.Visible := cbBottomAxis.Checked;
 end;
 
+procedure TForm1.cbFooterChange(Sender: TObject);
+begin
+  Chart1.Foot.Visible := cbFooter.Checked;
+end;
+
+procedure TForm1.cbInvertedChange(Sender: TObject);
+begin
+  Chart1.BottomAxis.Inverted := cbInverted.Checked;
+  Chart1.LeftAxis.Inverted := cbInverted.Checked;
+end;
+
+procedure TForm1.cbLegendChange(Sender: TObject);
+begin
+  Chart1.Legend.Visible := cbLegend.Checked;
+end;
+
+procedure TForm1.cbLeftAxisChange(Sender: TObject);
+begin
+  Chart1.LeftAxis.Visible := cbLeftAxis.Checked;
+end;
+
+procedure TForm1.cbTitleChange(Sender: TObject);
+begin
+  Chart1.Title.Visible := cbTitle.Checked;
+end;
+
+procedure TForm1.InitArea;
+begin
+  FArea := TAreaSeries.Create(Chart1);
+  Chart1.AddSerie(FArea);
+  FArea.SeriesColor := clred;
+  FArea.Stairs := true;
+  FArea.InvertedStairs := false;
+end;
+
+procedure TForm1.InitBar;
+begin
+  FBar := TBarSeries.Create(Chart1);
+  Chart1.AddSerie(FBar);
+  FBar.Title := 'bars';
+  FBar.SeriesColor := clRed;
+end;
+
+procedure TForm1.InitLine;
+begin
+  FLine := TSerie.Create(Chart1);
+  FLine.ShowLines := true;
+  FLine.ShowPoints := true;
+  FLine.Pointer.Style := psRectangle;
+  FLine.Title := 'line';
+  FLine.SeriesColor := clRed;
+  Chart1.AddSerie(FLine);
+end;
+
+procedure TForm1.InitPie;
+begin
+  FPie := TPieSeries.Create(Chart1);
+  Chart1.AddSerie(FPie);
+  FPie.Title := 'pie';
+  FPie.SeriesColor := clRed;
+  FPie.MarksStyle := smsLabelPercent;
+end;
 
 initialization
   {$I unit1.lrs}