anchor.diff:      property    Align;
       property    BackgroundColor;
       property    Enabled;
  -    property    Position: integer read FPosition write SetTBPosition default 0;
  +    property    Hint;
  +    property    Max;
  +    property    Min;
  +    property    Orientation;
  +    property    ParentShowHint;
  +    property    Position;
       property    ScrollStep: integer read FScrollStep write FScrollStep default 1;
  -    property    Min: integer read FMin write SetMin default 0;
  -    property    Max: integer read FMax write SetMax default 100;
  -    property    ParentShowHint;
  -    property    Hint;
       property    ShowHint;
       property    ShowPosition: boolean read FShowPosition write SetShowPosition default False;
  -    property    Orientation: TOrientation read FOrientation write FOrientation default orHorizontal;
       property    TabOrder;
       property    TextColor;
  -    property    OnChange: TTrackBarChange read FOnChange write FOnChange;
  +    property    OnChange;
       property    OnEnter;
       property    OnExit;
       property    OnShowHint;
  
positive.code: constructor TfpgTrackBarExtra.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FFocusable    := True;
    FMin          := 0;
    FMax          := 10;
    FPosition     := 0;
    FSliderSize   := 11;
    FOrientation  := orHorizontal;
    FOnChange     := nil;
    FTextColor  := Parent.TextColor;
    FBackgroundColor := Parent.BackgroundColor;
  end;
  
  { TfpgTrackBar }
  
  procedure TfpgTrackBar.SetMax(const AValue: integer);
  begin
    if AValue = FMax then
      Exit;
    if AValue < FMin then
      FMax := FMin
    else
      FMax := AValue;
    if FPosition > FMax then
      SetTBPosition(FMax);
    Repaint;
  end;
  
  procedure TfpgTrackBar.SetMin(const AValue: integer);
  begin
    if AValue = FMin then
      Exit;
    if AValue > FMax then
      FMin := FMax
    else
      FMin := AValue;
    if FPosition < FMin then
      SetTBPosition(FMin);
    Repaint;
  end;
  
  procedure TfpgTrackBar.SetTBPosition(const AValue: integer);
  begin
    if AValue < FMin then
      FPosition := FMin
    else if AValue > FMax then
      FPosition := FMax
    else
      FPosition := AValue;
  
    RePaint;
  end;
  
  procedure TfpgTrackBar.SetShowPosition(const AValue: boolean);
  begin
  
negative.code:     procedure   HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); override;
      procedure   HandlePaint; override;
      procedure   DrawSlider(recalc: boolean); virtual;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
  