clean up

demo/StyleSheet/mainunit.pas

@@ -5,7 +5,7 @@ unit MainUnit;
 interface
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
+  Classes, SysUtils, TypInfo, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ExtCtrls, EditBtn, Fresnel.Controls, Fresnel.DOM, Fresnel.Events, fcl.Events,
   Fresnel.LCLControls;
 
@@ -25,10 +25,9 @@ type
     Img1 : TImage;
     Span1: TSpan;
     Fresnel1: TFresnelLCLControl;
-    label1 : Fresnel.controls.TLabel;
+    Label1: Fresnel.Controls.TLabel;
     procedure CreateControls(ViewPort: TFresnelViewport);
   public
-
   end;
 
 var
@@ -36,12 +35,10 @@ var
 
 implementation
 
-
+{$IFDEF USE_DEBUGMSG}
 uses
-  {$IFDEF USE_DEBUGMSG}
-  dbugintf,
-  {$ENDIF}
-  Fresnel.Classes, TypInfo;
+  dbugintf;
+{$ENDIF}
 
 {$R *.lfm}
 
@@ -81,7 +78,7 @@ begin
   Body1:=TBody(CreateControl(TBody,'Body1',ViewPort));
   Div1:=TDiv(CreateControl(TDiv,'Div1'));
   Span1:=TSpan(CreateControl(TSpan,'Span1'));
-  label1:=TLabel(CreateControl(TLabel,'Label1'));
+  Label1:=TLabel(CreateControl(TLabel,'Label1'));
   Label1.Caption:='Label1Caption';
   Div2:=TDiv(CreateControl(TDiv,'Div2'));
   Img1:=TImage(CreateControl(TImage,'Img1'));
@@ -104,8 +101,5 @@ begin
     end;
 end;
 
-
-
-
 end.