From 2a081968587338586252128c9f5bf71294ca1d49 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Wed, 22 Aug 2012 09:24:36 +0000
Subject: [PATCH] TAChart: Add psHorBar and psVertBar to TSeriesPointerStyle
 enumeration. Update line demo.

git-svn-id: trunk@38328 -
---
 components/tachart/demo/line/Main.lfm | 27 ++++++++++++++-------------
 components/tachart/tatypes.pas        |  6 +++---
 2 files changed, 17 insertions(+), 16 deletions(-)

diff --git a/components/tachart/demo/line/Main.lfm b/components/tachart/demo/line/Main.lfm
index bf4bb72d74..2f2a8ab8b6 100644
--- a/components/tachart/demo/line/Main.lfm
+++ b/components/tachart/demo/line/Main.lfm
@@ -1,17 +1,17 @@
 object Form1: TForm1
   Left = 605
-  Height = 479
+  Height = 494
   Top = 364
   Width = 691
   Caption = 'Form1'
-  ClientHeight = 479
+  ClientHeight = 494
   ClientWidth = 691
   OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   object PageControl1: TPageControl
     Left = 0
-    Height = 479
+    Height = 494
     Top = 0
     Width = 691
     ActivePage = tsFast
@@ -21,11 +21,11 @@ object Form1: TForm1
     OnChange = PageControl1Change
     object tsFast: TTabSheet
       Caption = 'Fast drawing'
-      ClientHeight = 453
+      ClientHeight = 468
       ClientWidth = 683
       object chFast: TChart
         Left = 0
-        Height = 415
+        Height = 430
         Top = 38
         Width = 683
         AxisList = <        
@@ -153,11 +153,11 @@ object Form1: TForm1
     end
     object tsPointers: TTabSheet
       Caption = 'Pointers'
-      ClientHeight = 453
+      ClientHeight = 468
       ClientWidth = 683
       object chPointers: TChart
         Left = 0
-        Height = 453
+        Height = 468
         Top = 0
         Width = 513
         AxisList = <        
@@ -170,9 +170,10 @@ object Form1: TForm1
             Minors = <>
           end>
         AxisVisible = False
-        ExpandPercentage = 5
         Foot.Brush.Color = clBtnFace
         Foot.Font.Color = clBlue
+        Margins.Left = 20
+        Margins.Right = 20
         Title.Brush.Color = clBtnFace
         Title.Font.Color = clBlue
         Title.Text.Strings = (
@@ -183,11 +184,11 @@ object Form1: TForm1
       end
       object pnlPointers: TPanel
         Left = 513
-        Height = 453
+        Height = 468
         Top = 0
         Width = 170
         Align = alRight
-        ClientHeight = 453
+        ClientHeight = 468
         ClientWidth = 170
         TabOrder = 1
         object sePointerSize: TSpinEdit
@@ -201,9 +202,9 @@ object Form1: TForm1
         end
         object lblPointerSize: TLabel
           Left = 9
-          Height = 14
+          Height = 13
           Top = 10
-          Width = 20
+          Width = 19
           Caption = 'Size'
           ParentColor = False
         end
diff --git a/components/tachart/tatypes.pas b/components/tachart/tatypes.pas
index 949de9d65a..c5afbcfc05 100644
--- a/components/tachart/tatypes.pas
+++ b/components/tachart/tatypes.pas
@@ -270,7 +270,7 @@ type
   TSeriesPointerStyle = (
     psNone, psRectangle, psCircle, psCross, psDiagCross, psStar,
     psLowBracket, psHighBracket, psLeftBracket, psRightBracket, psDiamond,
-    psTriangle, psLeftTriangle, psRightTriangle);
+    psTriangle, psLeftTriangle, psRightTriangle, psVertBar, psHorBar);
 
   { TSeriesPointer }
 
@@ -986,10 +986,10 @@ const
   DRAW_STRINGS: array [TSeriesPointerStyle] of String = (
     // psNone, psRectangle, psCircle, psCross, psDiagCross, psStar,
     // psLowBracket, psHighBracket, psLeftBracket, psRightBracket, psDiamond,
-    // psTriangle, psLeftTriangle, psRightTriangle
+    // psTriangle, psLeftTriangle, psRightTriangle, psVertBar, psHorBar
     '', '17931', '', '28 46', '19 73', '28 46 19 73',
     '41236', '47896', '87412', '89632', '84268',
-    '183', '842', '862');
+    '183', '842', '862', '82', '46');
 begin
   ADrawer.Brush := Brush;
   if AColor <> clTAColor then