diff --git a/lcl/controls.pp b/lcl/controls.pp
index 71662ec03e..3fd016d3de 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -192,7 +192,7 @@ type
     csQuadClicks,            // control understands mouse quad clicks
     csFixedWidth,
     csFixedHeight,           // control cannot change it height (for example combobox)
-    csNoDesignVisible,
+    csNoDesignVisible,       // control is invisible in the designer
     csReplicatable,
     csNoStdEvents,
     csDisplayDragImage,      // display images from dragimagelist during drag operation over control
diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp
index 1383a6eaa1..09b7734a2d 100644
--- a/lcl/extctrls.pp
+++ b/lcl/extctrls.pp
@@ -696,7 +696,7 @@ type
     FColumns: integer;
     FCreatingWnd: boolean;
     FHiddenButton: TRadioButton;
-    fIgnoreClicks: boolean;
+    FIgnoreClicks: boolean;
     FItemIndex: integer;
     FItems: TStrings;
     FLastClickedItemIndex: integer;
diff --git a/lcl/include/radiogroup.inc b/lcl/include/radiogroup.inc
index daf96ddcfa..092f2c3e9e 100644
--- a/lcl/include/radiogroup.inc
+++ b/lcl/include/radiogroup.inc
@@ -170,7 +170,7 @@ begin
       begin
         Name := 'HiddenRadioButton';
         Visible := False;
-        ControlStyle := ControlStyle + [csNoDesignSelectable];
+        ControlStyle := ControlStyle + [csNoDesignSelectable, csNoDesignVisible];
       end;
     end;
 
@@ -351,8 +351,8 @@ begin
       // Therefore there is a hidden button
       OldItemIndex:=FItemIndex;
       FItemIndex:=Value;
-      OldIgnoreClicks:=fIgnoreClicks;
-      fIgnoreClicks:=true;
+      OldIgnoreClicks:=FIgnoreClicks;
+      FIgnoreClicks:=true;
       try
         if (FItemIndex <> -1) then
           TRadioButton(FButtonList[FItemIndex]).Checked := true
@@ -365,7 +365,7 @@ begin
         end else
           FHiddenButton.Checked:=false;
       finally
-        fIgnoreClicks:=OldIgnoreClicks;
+        FIgnoreClicks:=OldIgnoreClicks;
       end;
       // this has automatically unset the old button. But they do not recognize
       // it. Update the states.
@@ -442,7 +442,7 @@ end;
  ------------------------------------------------------------------------------}
 procedure TCustomRadioGroup.Clicked(Sender : TObject);
 Begin
-  if fIgnoreClicks then exit;
+  if FIgnoreClicks then exit;
   CheckItemIndexChanged;
 end;