TScaleProps = class (TPersistent)  // published properties of scales
              private
                ...(removed for brevity)
              public
                constructor Create;
                destructor Destroy;
                procedure Changed;
                property ScaleType: TScaleType read FScaleType write SetScaleType;
              published
                property Caption: string read FCaption write SetCaption;
                property CaptionPosX: integer read FCaptionPosX write SetCaptionPosX;
                property CaptionPosY: integer read FCaptionPosY write SetCaptionPosY;
                property CaptionAlignment: TAlignment read FCaptAlign write SetCaptAlign;
                property CaptionAnchor: TScaleUnitAnchor read FCaptAnchor write SetCaptAnchor;
                property ColorScale: TColor read FColorScale write SetColorScale;
                property DateFormat: TDTLabel read FDTFormat write SetDTFormat;
                property DecPlaces: integer read FDecPlaces write SetDecPlaces;
                property Font: TFont read FFont write SetScaleFont;
                property Logarithmic: boolean read FLogAx write SetLogAx;
                property LabelType: TFigType read FLabelType write SetLabelType;
                property MinTicks: integer read FMinTicks write SetMinTicks;
                property MinRange: double read FMinRngDiff write SetMinRngDiff;
                property RangeLow: double read FRangeLow write SetRangeLow;
                property RangeHigh: double read FRangeHigh write SetRangeHigh;
                property ShortTicks: boolean read FShortTicks write SetShortTicks;
                property ScaleInscript: string read FScaleInscript write SetScaleInscript;
                property ScalePos: integer read GetScalePos write SetScalePos;
                property UserTickText: string read FUserTickText write SetUserTickText;
                property Visible: boolean read FVisible write SetVisible;
                property OnChange: TNotifyEvent read FOnChange write FOnChange;
              end;