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

TAChart: Use SetPropDefaults to set default properties of TLineSeries

Browse Source 
git-svn-id: trunk@36919 -
This commit is contained in:
ask 2012-04-20 06:46:08 +00:00
parent ef97d50f64
commit 8bfa6da5ec
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/taseries.pas
View File

@ -358,9 +358,8 @@ begin
FLinePen := TPen.Create; FLinePen := TPen.Create;
FLinePen.OnChange := @StyleChanged; FLinePen.OnChange := @StyleChanged;
FLineType := ltFromPrevious;
FPointer := TSeriesPointer.Create(FChart); FPointer := TSeriesPointer.Create(FChart);
FUseReticule := true; SetPropDefaults(Self, ['LineType', 'ShowPoints', 'UseReticule']);
end; end;
destructor TLineSeries.Destroy; destructor TLineSeries.Destroy;