clean up

src/fresnellclcontrols.pas

@@ -82,10 +82,8 @@ type
     FRenderer: TFresnelLCLRenderer;
     FViewport: TFresnelViewport;
     procedure OnDomChanged(Sender: TObject);
-    procedure OnQueuedLayout(Data: PtrInt);
-    procedure SetLayouter(const AValue: TSimpleFresnelLayouter);
+    procedure OnQueuedLayout({%H-}Data: PtrInt);
     procedure SetLayoutQueued(const AValue: boolean);
-    procedure SetViewport(const AValue: TFresnelViewport);
   protected
     procedure Notification(AComponent: TComponent; Operation: TOperation);
       override;
@@ -93,8 +91,8 @@ type
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
-    property Viewport: TFresnelViewport read FViewport write SetViewport;
-    property Layouter: TSimpleFresnelLayouter read FLayouter write SetLayouter;
+    property Viewport: TFresnelViewport read FViewport;
+    property Layouter: TSimpleFresnelLayouter read FLayouter;
     property FontEngine: TFresnelLCLFontEngine read FFontEngine;
     property Renderer: TFresnelLCLRenderer read FRenderer;
     property LayoutQueued: boolean read FLayoutQueued write SetLayoutQueued;
@@ -112,7 +110,7 @@ type
     FClearing: boolean;
     function GetStylesheet: TStrings;
     procedure OnDomChanged(Sender: TObject);
-    procedure OnQueuedLayout(Data: PtrInt);
+    procedure OnQueuedLayout({%H-}Data: PtrInt);
     procedure SetLayoutQueued(const AValue: boolean);
     procedure SetStylesheet(const AValue: TStrings);
   protected
@@ -354,20 +352,6 @@ end;
 
 { TFresnelLCLControl }
 
-procedure TFresnelLCLControl.SetViewport(const AValue: TFresnelViewport);
-begin
-  if FViewport=AValue then Exit;
-  FViewport:=AValue;
-end;
-
-procedure TFresnelLCLControl.SetLayouter(const AValue: TSimpleFresnelLayouter);
-begin
-  if FLayouter=AValue then Exit;
-  FLayouter:=AValue;
-  if FViewport<>nil then
-    FViewport.Layouter:=FLayouter;
-end;
-
 procedure TFresnelLCLControl.SetLayoutQueued(const AValue: boolean);
 begin
   if FLayoutQueued=AValue then Exit;