anchor.diff:      procedure   HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); override;
       procedure   HandlePaint; override;
       procedure   DrawSlider(recalc: boolean); virtual;
  -    procedure   PositionChange(d: integer);
     public
       constructor Create(AOwner: TComponent); override;
       destructor  Destroy; override;
  
positive.code:   
  type
    TTrackBarChange = procedure(Sender: TObject; APosition: integer) of object;
    
    
    TfpgTrackBarExtra = class(TfpgWidget)
    private
      FMax: integer;
      FMin: integer;
      FOnChange: TTrackBarChange;
      FOrientation: TOrientation;
      FPosition: integer;
      FSliderSize: integer;
      procedure   DoChange;
      procedure   SetMax(const AValue: integer);
      procedure   SetMin(const AValue: integer);
      procedure   SetTBPosition(const AValue: integer);
      procedure   SetSliderSize(const AValue: integer);
      procedure   FixMinMaxOrder;
      procedure   FixPositionLimits;
  
negative.code:     property    Align;
      property    BackgroundColor;
      property    Enabled;
      property    Hint;
      property    Max;
      property    Min;
      property    Orientation;
      property    ParentShowHint;
      property    Position;
      property    ScrollStep: integer read FScrollStep write FScrollStep default 1;
      property    ShowHint;
      property    ShowPosition: boolean read FShowPosition write SetShowPosition default False;
      property    TabOrder;
      property    TextColor;
      property    OnChange;
      property    OnEnter;
      property    OnExit;
      property    OnShowHint;
  