From 69b894a3239b6e9e7ffb292766f802d57d75aada Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Wed, 20 Jul 2011 09:32:02 +0000
Subject: [PATCH] TAChart: Fix default values and remove warnings in chart
 titles

git-svn-id: trunk@31758 -
---
 components/tachart/tatypes.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/tachart/tatypes.pas b/components/tachart/tatypes.pas
index 152e30b2d7..526c6bd7fe 100644
--- a/components/tachart/tatypes.pas
+++ b/components/tachart/tatypes.pas
@@ -224,6 +224,7 @@ type
     property Style: TSeriesMarksStyle read FStyle write SetStyle;
     property YIndex: Integer read FYIndex write SetYIndex default 0;
   published
+    property Alignment default taLeftJustify;
     property Attachment: TChartMarkAttachment
       read FAttachment write SetAttachment default maDefault;
     // Distance between labelled object and label.
@@ -605,7 +606,7 @@ begin
   FBrush.Color := FOwner.Color;
   InitHelper(FFont, TFont);
   FFont.Color := clBlue;
-  InitHelper(FFrame, TChartPen);
+  InitHelper(FFrame, TChartTitleFramePen);
   FFrame.Visible := false;
   FMargin := DEF_MARGIN;
   FText := TStringList.Create;
@@ -626,8 +627,7 @@ procedure TChartTitle.Draw(
   ADrawer: IChartDrawer; ADir, AX: Integer; var AY: Integer);
 var
   p, ptSize: TPoint;
-  w: Integer;
-  dummy: TPointArray;
+  dummy: TPointArray = nil;
 begin
   if not Visible or (Text.Count = 0) then exit;
   ptSize := MeasureLabel(ADrawer, Text.Text);