anchor.diff:    begin
       Position := newp;
       RePaint;
  -    if Assigned(FOnChange) then
  -      FOnChange(self, FPosition);
  +    DoChange;
     end;
   end;
   
  
positive.code:     property    Align;
      property    BackgroundColor;
      property    Enabled;
      property    Position: integer read FPosition write SetTBPosition default 0;
      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    OnEnter;
      property    OnExit;
      property    OnShowHint;
  
negative.code: constructor TfpgTrackBarExtra.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FMax          := 10;
    FSliderSize   := 11;
  end;
  
  { TfpgTrackBar }
  
  procedure TfpgTrackBar.SetShowPosition(const AValue: boolean);
  begin
  