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

TAChart: Copy HorizSize and VertSize in TSeriesPointer.Assign

Browse Source 
git-svn-id: trunk@39703 -
This commit is contained in:
ask 2013-01-01 02:56:54 +00:00
parent 4052e0366d
commit e5249dd553
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tachartutils.pas
View File

@ -71,6 +71,9 @@ type
TChartUnits = (cuPercent, cuAxis, cuGraph, cuPixel); TChartUnits = (cuPercent, cuAxis, cuGraph, cuPixel);
TOverrideColor = (ocBrush, ocPen);
TOverrideColors = set of TOverrideColor;
TSeriesMarksStyle = ( TSeriesMarksStyle = (
smsCustom, { user-defined } smsCustom, { user-defined }
smsNone, { no labels } smsNone, { no labels }

2
components/tachart/tatypes.pas
View File

@ -311,8 +311,10 @@ begin
if Source is TSeriesPointer then if Source is TSeriesPointer then
with TSeriesPointer(Source) do begin with TSeriesPointer(Source) do begin
Self.FBrush.Assign(Brush); Self.FBrush.Assign(Brush);
Self.FHorizSize := HorizSize;
Self.FPen.Assign(Pen); Self.FPen.Assign(Pen);
Self.FStyle := Style; Self.FStyle := Style;
Self.FVertSize := VertSize;
end; end;
inherited Assign(Source); inherited Assign(Source);
end; end;