anchor.diff:  end;
   
   
  +function TKMScrollPanel.GetDrawRect: TKMRect;
  +begin
  +  Result := KMRect(AbsDrawLeft, AbsDrawTop, AbsDrawRight, AbsDrawBottom);
  +end;
  +
  +function TKMScrollPanel.GetAbsDrawLeft: Integer;
  +begin
  +  Result := Parent.AbsLeft + fClipRect.Left;
  +end;
  +
  +function TKMScrollPanel.GetAbsDrawTop: Integer;
  +begin
  +  Result := Parent.AbsTop + fClipRect.Top;
  +end;
  +
  +function TKMScrollPanel.GetAbsDrawRight: Integer;
  +begin
  +  Result := Parent.AbsLeft + fClipRect.Right + 20*Byte(AllowScrollV and not fScrollBarV.Visible);
  +end;
  +
  +function TKMScrollPanel.GetAbsDrawBottom: Integer;
  +begin
  +  Result := Parent.AbsTop + fClipRect.Bottom + 20*Byte(AllowScrollH and not fScrollBarH.Visible);
  +end;
  +
  +
   procedure TKMScrollPanel.PaintPanel(aPaintLayer: Integer);
   begin
  -  TKMRenderUI.SetupClipX(Parent.AbsLeft + fClipRect.Left, Parent.AbsLeft + fClipRect.Right + 20*Byte(AllowScrollV and not fScrollBarV.Visible));
  -  TKMRenderUI.SetupClipY(Parent.AbsTop + fClipRect.Top, Parent.AbsTop + fClipRect.Bottom + 20*Byte(AllowScrollH and not fScrollBarH.Visible));
  +  TKMRenderUI.SetupClipX(AbsDrawLeft, AbsDrawRight);
  +  TKMRenderUI.SetupClipY(AbsDrawTop, AbsDrawBottom);
   
     inherited;
   
  
positive.code:     procedure SetTop(aValue: Integer); virtual;
      procedure SetHeight(aValue: Integer); virtual;
      procedure SetWidth(aValue: Integer); virtual;
      procedure SetVisible(aValue: Boolean); virtual;
      procedure SetEnabled(aValue: Boolean); virtual;
      procedure SetAnchors(aValue: TKMAnchorsSet); virtual;
  
negative.code: end;
  //-------------------------------
  
  //AbsDrawCoordinates
  function TKMControl.GetAbsDrawLeft: Integer;
  begin
    Result := GetAbsLeft;
  end;
  
  function TKMControl.GetAbsDrawTop: Integer;
  begin
    Result := GetAbsTop;
  end;
  
  function TKMControl.GetAbsDrawRight: Integer;
  begin
    Result := GetAbsRight;
  end;
  
  function TKMControl.GetAbsDrawBottom: Integer;
  begin
    Result := GetAbsBottom;
  end;
  //-------------------------------
  
  function TKMControl.GetLeft: Integer;
  begin
    Result := Round(fLeft)
  