anchor.diff:    else
       FPosition := AValue;
   
  -  if HasHandle then
  -    DrawSlider(False);
  -  Repaint;
  +  RePaint;
   end;
   
   procedure TfpgTrackBar.SetShowPosition(const AValue: boolean);
  
positive.code:   drawwidth: integer;
    i: integer;
  begin
    Canvas.BeginDraw;
  //  inherited HandlePaint;
    r.SetRect(0, 0, Width, Height);
    Canvas.Clear(FBackgroundColor);
  
negative.code:   if Orientation = orVertical then
    begin
      Canvas.DrawButtonFace(0, Width + FSliderPos, Width, FSliderLength, [btfIsEmbedded]);
    end
    else
    begin
  