clean up

design/fresnel.register.pas

@@ -37,18 +37,18 @@ type
     class function FormClass: TComponentClass; override;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
-    procedure GetBounds(AComponent: TComponent; out CurBounds: TRect); override;
-    procedure SetBounds(AComponent: TComponent; NewBounds: TRect); override;
-    procedure GetClientArea(AComponent: TComponent; out
-                      CurClientArea: TRect; out ScrollOffset: TPoint); override;
-    function GetComponentOriginOnForm(AComponent: TComponent): TPoint; override;
-    procedure Paint; override;
-    function ComponentIsIcon(AComponent: TComponent): boolean; override;
-    function ComponentIsVisible(AComponent: TComponent): Boolean; override;
     function ComponentAtPos(p: TPoint; MinClass: TComponentClass;
                                 Flags: TDMCompAtPosFlags): TComponent; override;
+    function ComponentIsIcon(AComponent: TComponent): boolean; override;
+    function ComponentIsVisible(AComponent: TComponent): Boolean; override;
+    function GetComponentOriginOnForm(AComponent: TComponent): TPoint; override;
     function ParentAcceptsChild(Parent: TComponent;
                                 ChildClass: TComponentClass): boolean; override;
+    procedure GetBounds(AComponent: TComponent; out CurBounds: TRect); override;
+    procedure GetClientArea(AComponent: TComponent; out
+                      CurClientArea: TRect; out ScrollOffset: TPoint); override;
+    procedure Paint; override;
+    procedure SetBounds(AComponent: TComponent; NewBounds: TRect); override;
   public
     // needed by Fresnel
     procedure InvalidateRect(Sender: TObject; ARect: TRect; Erase: boolean);