lazarus.fresnel/demo/ButtonGenerator/MainUnit.pas

unit MainUnit;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Fresnel.Forms, Fresnel.DOM, Fresnel.Controls,
  DemoButtonGenerator;

type

  { TFresnelForm1 }

  TFresnelForm1 = class(TFresnelForm)
    procedure FresnelForm1Create(Sender: TObject);
  private
  public
  end;

var
  FresnelForm1: TFresnelForm1;

implementation

{$R *.lfm}

{ TFresnelForm1 }

procedure TFresnelForm1.FresnelForm1Create(Sender: TObject);
var
  ButtonGenerator: TDemoButtonGenerator;
begin
  Stylesheet.Add(TDemoButtonGenerator.cStyle);

  ButtonGenerator:=TDemoButtonGenerator.Create(Self);
  with ButtonGenerator do begin
    Name:='ButtonGenerator';
    Parent:=Self;
  end;
end;

end.