Browse Source

test: simplify

mattias 3 months ago
parent
commit
617f9b8b25
2 changed files with 5 additions and 5 deletions
  1. 1 1
      src/base/fresnel.layouter.pas
  2. 4 4
      tests/exploration/scroll/ScrollWheelTest1.lpr

+ 1 - 1
src/base/fresnel.layouter.pas

@@ -307,7 +307,7 @@ begin
       AvailHeight:=AvailHeight-Node.ScrollGutterTop-Node.ScrollGutterBottom;
       AvailHeight:=AvailHeight-Node.ScrollGutterTop-Node.ScrollGutterBottom;
 
 
     {$IFDEF VerboseFresnelScrolling}
     {$IFDEF VerboseFresnelScrolling}
-    writeln('TFLNodeLayouter.Apply "',Node.Element.Name,'" CanScrollX=',Node.CanScrollX,' CanScrollY=',Node.CanScrollY,' MaxSize=',FloatToCSSStr(MaxWidth),'x',FloatToCSSStr(MaxHeight),' Available=',FloatToCSSStr(aClientWidth),'x',FloatToCSSStr(aClientHeight));
+    writeln('TFLNodeLayouter.Apply "',Node.Element.Name,'" CanScrollX=',Node.CanScrollX,' CanScrollY=',Node.CanScrollY,' MaxSize=',FloatToCSSStr(MaxWidth),'x',FloatToCSSStr(MaxHeight),' Available=',FloatToCSSStr(AvailWidth),'x',FloatToCSSStr(AvailHeight));
     {$ENDIF}
     {$ENDIF}
     Size:=ComputeLayoutContent(flmMax,AvailWidth,AvailHeight,true);
     Size:=ComputeLayoutContent(flmMax,AvailWidth,AvailHeight,true);
     {$IFDEF VerboseFresnelScrolling}
     {$IFDEF VerboseFresnelScrolling}

+ 4 - 4
tests/exploration/scroll/ScrollWheelTest1.lpr

@@ -65,9 +65,9 @@ end;
 var
 var
   MainForm: TMainForm;
   MainForm: TMainForm;
 begin
 begin
-  FresnelApplication.HookFresnelLog:=true;
-  FresnelApplication.Initialize;
-  FresnelApplication.CreateForm(TMainForm,MainForm);
-  FresnelApplication.Run;
+  Application.HookFresnelLog:=true;
+  Application.Initialize;
+  Application.CreateForm(TMainForm,MainForm);
+  Application.Run;
 end.
 end.