lazarus.fresnel/demo/Inspector/InspDemoForm1.pas

unit InspDemoForm1;

{$mode objfpc}{$H+}

interface

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

type

  { TDemoForm1 }

  TDemoForm1 = class(TFresnelForm)
    Body1: TBody;
    Div1: TDiv;
    Label1: TLabel;
    procedure DemoForm1Create(Sender: TObject);
  private
  public
  end;

var
  DemoForm1: TDemoForm1;

implementation

{$R *.lfm}

{ TDemoForm1 }

procedure TDemoForm1.DemoForm1Create(Sender: TObject);
begin

end;

end.