lazarus.fresnel/demo/RadioGroup/MainUnit.pas

unit MainUnit;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Fresnel.Forms, Fresnel.Controls, Fresnel.Events,
  FCL.Events, Fresnel.DemoRadioButton;

type

  { TMainForm }

  TMainForm = class(TFresnelForm)
    Body1: TBody;
    Div1: TDiv;
    procedure MainFormCreate(Sender: TObject);
  private
  public
    RadioButton1: TDemoRadioButton;
    RadioButton2: TDemoRadioButton;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.lfm}

{ TMainForm }

procedure TMainForm.MainFormCreate(Sender: TObject);
begin
  Div1.Style:='min-width: 200px; min-height: 50px; font-size: 15px;';

  RadioButton1:=TDemoRadioButton.Create(Self);
  with RadioButton1 do begin
    Name:='RadioButton1';
    Caption:='First';
    Parent:=Div1;
  end;

  RadioButton2:=TDemoRadioButton.Create(Self);
  with RadioButton2 do begin
    Name:='RadioButton2';
    Caption:='Second';
    Parent:=Div1;
  end;
end;

end.