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

tachart: fixed compilation with fpc 2.5.1

Browse Source 
git-svn-id: trunk@21318 -
This commit is contained in:
vincents 2009-08-19 14:53:47 +00:00
parent 16437b15d9
commit 86638f7ba8
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/tachart/tatypes.pas
View File

@ -488,8 +488,8 @@ begin
FAlignment := laRight; FAlignment := laRight;
FVisible := false; FVisible := false;
InitHelper(FFont, TFont); InitHelper(TFPCanvasHelper(FFont), TFont);
InitHelper(FFrame, TChartPen); InitHelper(TFPCanvasHelper(FFrame), TChartPen);
end; end;
destructor TChartLegend.Destroy; destructor TChartLegend.Destroy;
@ -540,11 +540,11 @@ begin
inherited Create(AOwner); inherited Create(AOwner);
FAlignment := taCenter; FAlignment := taCenter;
InitHelper(FBrush, TBrush); InitHelper(TFPCanvasHelper(FBrush), TBrush);
FBrush.Color := FOwner.Color; FBrush.Color := FOwner.Color;
InitHelper(FFont, TFont); InitHelper(TFPCanvasHelper(FFont), TFont);
FFont.Color := clBlue; FFont.Color := clBlue;
InitHelper(FFrame, TChartPen); InitHelper(TFPCanvasHelper(FFrame), TChartPen);
FText := TStringList.Create; FText := TStringList.Create;
end; end;
@ -605,7 +605,7 @@ constructor TChartAxisTitle.Create(AOwner: TCustomChart);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FDistance := DEF_TITLE_DISTANCE; FDistance := DEF_TITLE_DISTANCE;
InitHelper(FFont, TFont); InitHelper(TFPCanvasHelper(FFont), TFont);
end; end;
destructor TChartAxisTitle.Destroy; destructor TChartAxisTitle.Destroy;
@ -966,11 +966,11 @@ constructor TChartMarks.Create(AOwner: TCustomChart);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FDistance := DEF_MARKS_DISTANCE; FDistance := DEF_MARKS_DISTANCE;
InitHelper(FFrame, TChartPen); InitHelper(TFPCanvasHelper(FFrame), TChartPen);
InitHelper(FLabelBrush, TChartLabelBrush); InitHelper(TFPCanvasHelper(FLabelBrush), TChartLabelBrush);
FLabelBrush.Color := clYellow; FLabelBrush.Color := clYellow;
InitHelper(FLabelFont, TFont); InitHelper(TFPCanvasHelper(FLabelFont), TFont);
InitHelper(FLinkPen, TChartLinkPen); InitHelper(TFPCanvasHelper(FLinkPen), TChartLinkPen);
FLinkPen.Color := clWhite; FLinkPen.Color := clWhite;
FStyle := smsNone; FStyle := smsNone;
FVisible := true; FVisible := true;
@ -1072,8 +1072,8 @@ constructor TSeriesPointer.Create(AOwner: TCustomChart);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
InitHelper(FBrush, TBrush); InitHelper(TFPCanvasHelper(FBrush), TBrush);
InitHelper(FPen, TChartPen); InitHelper(TFPCanvasHelper(FPen), TChartPen);
FHorizSize := DEF_POINTER_SIZE; FHorizSize := DEF_POINTER_SIZE;
FStyle := psRectangle; FStyle := psRectangle;