paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 11:30:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix default values and remove warnings in chart titles

Browse Source 
git-svn-id: trunk@31758 -
This commit is contained in:
ask 2011-07-20 09:32:02 +00:00
parent 99862bc8dc
commit 69b894a323
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tatypes.pas
View File

@ -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);