clean up

demo/Combobox/MainUnit.lfm

@@ -8,14 +8,9 @@ object MainForm: TMainForm
   object Body1: TBody
     Style = 'border: 2px solid blue;'#10
     object Div1: TDiv
-      OnMouseDown = Div1MouseDown
-      OnMouseMove = Div1MouseMove
       object Label1: TLabel
         Style = 'color: red;'
         OnClick = Label1Click
-        OnMouseDown = Label1MouseDown
-        OnMouseMove = Label1MouseMove
-        OnMouseUp = Label1MouseUp
         Caption = 'Label1'
       end
     end

demo/Combobox/MainUnit.pas

@@ -16,12 +16,6 @@ type
     Body1: TBody;
     Div1: TDiv;
     Label1: TLabel;
-    procedure Div1MouseDown(Event: TFresnelMouseEvent);
-    procedure Div1MouseMove(Event: TFresnelMouseEvent);
-    procedure Label1Click(Event: TAbstractEvent);
-    procedure Label1MouseDown(Event: TFresnelMouseEvent);
-    procedure Label1MouseMove(Event: TFresnelMouseEvent);
-    procedure Label1MouseUp(Event: TFresnelMouseEvent);
     procedure MainFormCreate(Sender: TObject);
   private
   public
@@ -37,36 +31,6 @@ implementation
 
 { TMainForm }
 
-procedure TMainForm.Label1Click(Event: TAbstractEvent);
-begin
-  writeln('TMainForm.Label1Click ',Event.EventID);
-end;
-
-procedure TMainForm.Div1MouseDown(Event: TFresnelMouseEvent);
-begin
-  writeln('TMainForm.Div1MouseDown ',Event.ControlX,',',Event.ControlY);
-end;
-
-procedure TMainForm.Div1MouseMove(Event: TFresnelMouseEvent);
-begin
-  writeln('TMainForm.Div1MouseMove ',Event.ControlX,',',Event.ControlY);
-end;
-
-procedure TMainForm.Label1MouseDown(Event: TFresnelMouseEvent);
-begin
-  writeln('TMainForm.Label1MouseDown ',Event.ControlX,',',Event.ControlY);
-end;
-
-procedure TMainForm.Label1MouseMove(Event: TFresnelMouseEvent);
-begin
-  writeln('TMainForm.Label1MouseMove ',Event.ControlX,',',Event.ControlY);
-end;
-
-procedure TMainForm.Label1MouseUp(Event: TFresnelMouseEvent);
-begin
-  writeln('TMainForm.Label1MouseUp ',Event.ControlX,',',Event.ControlY);
-end;
-
 procedure TMainForm.MainFormCreate(Sender: TObject);
 begin
   Stylesheet.Add(''

design/fresnel.register.pas

@@ -17,8 +17,8 @@ interface
 uses
   LCLProc, LCLType, Classes, SysUtils, FormEditingIntf, PropEdits, LazIDEIntf,
   ComponentEditors, LCLIntf, Graphics, Controls, Forms, ProjectIntf,
-  PackageIntf, LazLoggerBase, CodeToolManager, CodeCache, CodeTree,
-  SourceChanger, StdCodeTools, Fresnel.DOM, Fresnel.Controls, Fresnel.Forms,
+  PackageIntf, LazLoggerBase, CodeToolManager, CodeCache,
+  StdCodeTools, Fresnel.DOM, Fresnel.Controls, Fresnel.Forms,
   Fresnel.Renderer, Fresnel.Classes, Fresnel.LCLApp, Fresnel.LCL,
   Fresnel.DsgnStrConsts, Fresnel.StylePropEdit;
 

src/lcl/fresnel.lclcontrols.pas

@@ -62,9 +62,6 @@ end;
 
 procedure TFresnelLCLControl.OnQueuedLayout(Data: PtrInt);
 begin
-  ViewPort.ApplyCSS;
-  //Layouter.WriteLayoutTree;
-  Layouter.Apply(ViewPort);
   Invalidate;
 end;