demo: radiobutton: fixed sizes

demo/RadioGroup/MainUnit.lfm

@@ -16,7 +16,6 @@ object MainForm: TMainForm
   object Body1: TBody
     Style = 'border: 2px solid blue;'#10
     object Div1: TDiv
-      Style = 'background-color: blue;'#10'border-color: black;'#10'min-height:50px;'
     end
   end
 end

demo/RadioGroup/MainUnit.pas

@@ -29,6 +29,7 @@ implementation
 
 {$R *.lfm}
 
+
 { TMainForm }
 
 procedure TMainForm.MainFormCreate(Sender: TObject);

demo/democomps/fresnel.demoradiobutton.pas

@@ -31,14 +31,15 @@ type
         +'.RadioButton {'+LineEnding
         +'}'+LineEnding
         +'.RadioButtonBox {'+LineEnding
-        +'  width: 0.9em;'+LineEnding
-        +'  height: 0.9em;'+LineEnding
+        +'  display: inline flow-root;'+LineEnding
+        +'  cursor: pointer;'+LineEnding
+        +'  width: 0.8em;'+LineEnding
+        +'  height: 0.8em;'+LineEnding
         +'  border-radius: 50%;'+LineEnding
         +'}'+LineEnding
         +'.RadioButtonLabel {'+LineEnding
         +'  cursor: pointer;'+LineEnding
-        +'  padding: 0.2em 0.3em;'+LineEnding
-        +'  margin-bottom: 0;'+LineEnding
+        +'  margin-left: .3em;'+LineEnding
         +'}'+LineEnding;
     cCheckedStyle = 'background: #68f; border: 2px solid #333;';
     cUncheckedStyle = 'background: white; border: 2px solid #333;';