|
|
@@ -6,7 +6,7 @@ interface
|
|
|
|
|
|
uses
|
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Fresnel.Controls,
|
|
|
- Fresnel.DOM, fresnel.events, fcl.events,Fresnel.Layouter, Fresnel.LCLControls;
|
|
|
+ Fresnel.DOM, fresnel.events, fcl.events, Fresnel.LCLControls;
|
|
|
|
|
|
type
|
|
|
|
|
|
@@ -37,11 +37,9 @@ var
|
|
|
Div1, Div2: TDiv;
|
|
|
Label1: TLabel;
|
|
|
ViewPort: TFresnelViewport;
|
|
|
- Layouter: TSimpleFresnelLayouter;
|
|
|
Fresnel1: TFresnelLCLControl;
|
|
|
Span1: TSpan;
|
|
|
begin
|
|
|
- TFresnelEventDispatcher.RegisterFresnelEvents;
|
|
|
Fresnel1:=TFresnelLCLControl.Create(Self);
|
|
|
with Fresnel1 do
|
|
|
begin
|
|
|
@@ -51,7 +49,6 @@ begin
|
|
|
Parent:=Self;
|
|
|
end;
|
|
|
ViewPort:=Fresnel1.Viewport;
|
|
|
- Layouter:=Fresnel1.Layouter;
|
|
|
|
|
|
Body1:=TBody.Create(Self);
|
|
|
with Body1 do begin
|
mattias