anchor.diff:  
     if Assigned(fOnSizeSet) then
       fOnSizeSet(Self);
  +end;
  +
  +
  +function TKMControl.GetDrawRect: TKMRect;
  +begin
  +  if fParent <> nil then
  +  begin
  +    Result := fParent.GetDrawRect;
  +    Result := KMClipRect(Result, AbsDrawLeft, AbsDrawTop, AbsDrawRight, AbsDrawBottom);
  +  end else
  +    Result := KMRect(AbsDrawLeft, AbsDrawTop, AbsDrawRight, AbsDrawBottom);
   end;
   
   
  
positive.code:     procedure SetTop(aValue: Integer); override;
      procedure SetHeight(aValue: Integer); override;
      procedure SetWidth(aValue: Integer); override;
    public
      constructor Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; aScrollAxisSet: TKMScrollAxisSet;
                         aStyle: TKMButtonStyle; aScrollStyle: TKMScrollStyle);
  
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)
  