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:   end;
  end;
  
  procedure TfpgTrackBar.PositionChange(d: integer);
  begin
    FPosition := FPosition + d;
    if FPosition < FMin then
      FPosition := FMin;
    if FPosition > FMax then
      FPosition := FMax;
  
    if Visible then
      RePaint;
  
    if Assigned(FOnChange) then
      FOnChange(self, FPosition);
  end;
  
  constructor TfpgTrackBar.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FFocusable    := True;
    Height        := 30;
    Width         := 100;
    FOrientation  := orHorizontal;
    FMin          := 0;
    FMax          := 100;
    FPosition     := 0;
    FSliderPos    := 0;
    FSliderDragging := False;
    FSliderLength := 11;
    FScrollStep   := 1;
    FShowPosition := False;
    FFont         := fpgGetFont('#Grid');
    FTextColor    := Parent.TextColor;
    FBackgroundColor := Parent.BackgroundColor;
    FOnChange     := nil;
  end;
  
  destructor TfpgTrackBar.Destroy;
  begin
    FOnChange := nil;
    FFont.Free;
    inherited Destroy;
  end;
  
negative.code: constructor TfpgTrackBarExtra.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FMax          := 10;
    FSliderSize   := 11;
  end;
  
  { TfpgTrackBar }
  
  procedure TfpgTrackBar.SetShowPosition(const AValue: boolean);
  begin
  