anchor.diff:      Result := 0;
   end;
   
  +procedure TfpgTrackBar.SetSliderLength(AValue: integer);
  +begin
  +  if FSliderLength = AValue then
  +    Exit;
  +  FSliderLength := AValue;
  +  RePaint;
  +end;
  +
   procedure TfpgTrackBar.HandleLMouseDown(x, y: integer; shiftstate: TShiftState);
   var
     tw: TfpgCoord;
  
positive.code:     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;
  
negative.code:   private
      FScrollStep: integer;
      FShowPosition: boolean;
      FSliderLength: TfpgCoord;
      FSliderDragging: boolean;
      FSliderDragPos: TfpgCoord;
      FSliderDragStart: TfpgCoord;
      FMousePosition: TPoint;
      procedure   SetShowPosition(const AValue: boolean);
      function    GetTextWidth: TfpgCoord;
      procedure   SetSliderLength(AValue: integer);
    protected
      FFont: TfpgFont;
      FSliderPos: TfpgCoord;
      procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); override;
  