anchor.diff:  end;
   
   
  +function TKMRadioGroup.GetLineHeight: Single;
  +begin
  +  Result := IfThen(VisibleCount > 0, fHeight / VisibleCount, fHeight);
  +end;
  +
  +
   procedure TKMRadioGroup.SetItemEnabled(aIndex: Integer; aEnabled: Boolean);
   begin
     Assert(aIndex < fCount, 'Can''t SetItemEnabled for index ' + IntToStr(aIndex));
  
positive.code:     property Item[aIndex: Integer]: TKMRadioGroupItem read GetItem;
      procedure SetItemEnabled(aIndex: Integer; aEnabled: Boolean);
      procedure SetItemVisible(aIndex: Integer; aEnabled: Boolean);
      procedure MouseUp(X,Y: Integer; Shift: TShiftState; Button: TMouseButton); override;
      procedure MouseMove(X,Y: Integer; Shift: TShiftState); override;
      procedure Paint; override;
  
negative.code:     procedure UpdateMouseOverPositions(X,Y: Integer);
      function GetItem(aIndex: Integer): TKMRadioGroupItem;
      function GetVisibleCount: Integer;
      function GetLineHeight: Single;
    protected
      function GetHint: UnicodeString; override;
    public
  