{
  A Fresnel form inside an LCL application.
  It requires the project (lpr) to use unit Fresnel from package FresnelLCL
  in order to initialize the Fresnel-LCL widgetset.
}
unit FreLabelFragsForm;

{$mode ObjFPC}{$H+}

interface

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

type

  { TLabelFragmentsTestForm }

  TLabelFragmentsTestForm = class(TFresnelForm)
    Body1: TBody;
    Div1: TDiv;
    Label1: TLabel;
    procedure Label1Click(Event: TAbstractEvent);
    procedure Label1MouseDown(Event: TFresnelMouseEvent);
    procedure Label1MouseMove(Event: TFresnelMouseEvent);
    procedure Label1MouseUp(Event: TFresnelMouseEvent);
  public
  end;

var
  LabelFragmentsTestForm: TLabelFragmentsTestForm;

implementation

{$R *.lfm}

{ TLabelFragmentsTestForm }

procedure TLabelFragmentsTestForm.Label1Click(Event: TAbstractEvent);
begin
  DebugLn(['TFresnelButtonForm.Label1Click ',Event.EventID]);
end;

procedure TLabelFragmentsTestForm.Label1MouseDown(Event: TFresnelMouseEvent);
begin
  debugln(['TFresnelButtonForm.Label1MouseDown ',Event.ClientX,',',Event.ClientY]);
end;

procedure TLabelFragmentsTestForm.Label1MouseMove(Event: TFresnelMouseEvent);
begin
  debugln(['TFresnelButtonForm.Label1MouseMove ',Event.ClientX,',',Event.ClientY]);
end;

procedure TLabelFragmentsTestForm.Label1MouseUp(Event: TFresnelMouseEvent);
begin
  debugln(['TFresnelButtonForm.Label1MouseUp ',Event.ClientX,',',Event.ClientY]);
end;

end.