diff --git a/components/tachart/tachartaxisutils.pas b/components/tachart/tachartaxisutils.pas index b8593b660d..86e6322949 100644 --- a/components/tachart/tachartaxisutils.pas +++ b/components/tachart/tachartaxisutils.pas @@ -14,7 +14,7 @@ unit TAChartAxisUtils; interface uses - Classes, Graphics, + Classes, Graphics, Controls, TAChartUtils, TACustomSource, TADrawUtils, TAIntervalSources, TAStyles, TATypes, TATextElements; @@ -39,12 +39,12 @@ type TChartAxisTitle = class(TCustomChartAxisTitle) strict private - FCaption: String; + FCaption: TCaption; FPositionOnMarks: Boolean; FWordwrap: Boolean; function GetFont: TFont; - procedure SetCaption(AValue: String); + procedure SetCaption(AValue: TCaption); procedure SetFont(AValue: TFont); procedure SetPositionOnMarks(AValue: Boolean); procedure SetWordwrap(AValue: Boolean); @@ -54,7 +54,7 @@ type public procedure Assign(Source: TPersistent); override; published - property Caption: String read FCaption write SetCaption; + property Caption: TCaption read FCaption write SetCaption; property Distance default DEF_TITLE_DISTANCE; property Frame; property LabelBrush; @@ -282,10 +282,12 @@ type function GraphToImage(AGraph: Double): Integer; override; end; + procedure Register; + implementation uses - Math, SysUtils, LResources, + Math, SysUtils, LResources, PropEdits, TAGeometry, TAMath; { TChartMinorAxisMarks } @@ -587,7 +589,7 @@ begin Result := LabelFont; end; -procedure TChartAxisTitle.SetCaption(AValue: String); +procedure TChartAxisTitle.SetCaption(AValue: TCaption); begin if FCaption = AValue then exit; FCaption := AValue; @@ -828,7 +830,11 @@ begin RegisterPropertyToSkip(TChartAxisTitle, 'Font', FONT_NOTE, ''); end; -initialization +procedure Register; +begin + RegisterPropertyEditor( + TypeInfo(TCaption), TChartAxisTitle, '', TStringMultilinePropertyEditor); SkipObsoleteProperties; +end; end. diff --git a/components/tachart/tachartlazaruspkg.lpk b/components/tachart/tachartlazaruspkg.lpk index b9ef57508f..deeb8f0f9c 100644 --- a/components/tachart/tachartlazaruspkg.lpk +++ b/components/tachart/tachartlazaruspkg.lpk @@ -151,6 +151,7 @@ + diff --git a/components/tachart/tachartlazaruspkg.pas b/components/tachart/tachartlazaruspkg.pas index a7565b727b..aa5e0f6be2 100644 --- a/components/tachart/tachartlazaruspkg.pas +++ b/components/tachart/tachartlazaruspkg.pas @@ -35,6 +35,7 @@ begin RegisterUnit('TALegendPanel', @TALegendPanel.Register); RegisterUnit('TANavigation', @TANavigation.Register); RegisterUnit('TAIntervalSources', @TAIntervalSources.Register); + RegisterUnit('TAChartAxisUtils', @TAChartAxisUtils.Register); RegisterUnit('TAChartListbox', @TAChartListbox.Register); RegisterUnit('TAChartExtentLink', @TAChartExtentLink.Register); RegisterUnit('TAToolEditors', @TAToolEditors.Register);