diff --git a/components/tachart/tachartutils.pas b/components/tachart/tachartutils.pas index e2ba1a1e92..a9d78c7f44 100644 --- a/components/tachart/tachartutils.pas +++ b/components/tachart/tachartutils.pas @@ -71,6 +71,9 @@ type TChartUnits = (cuPercent, cuAxis, cuGraph, cuPixel); + TOverrideColor = (ocBrush, ocPen); + TOverrideColors = set of TOverrideColor; + TSeriesMarksStyle = ( smsCustom, { user-defined } smsNone, { no labels } diff --git a/components/tachart/tatypes.pas b/components/tachart/tatypes.pas index 51af3ec86e..126ba07553 100644 --- a/components/tachart/tatypes.pas +++ b/components/tachart/tatypes.pas @@ -311,8 +311,10 @@ begin if Source is TSeriesPointer then with TSeriesPointer(Source) do begin Self.FBrush.Assign(Brush); + Self.FHorizSize := HorizSize; Self.FPen.Assign(Pen); Self.FStyle := Style; + Self.FVertSize := VertSize; end; inherited Assign(Source); end;