Jelajahi Sumber

test: simplify

mattias 3 bulan lalu
induk
melakukan
617f9b8b25

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

@@ -307,7 +307,7 @@ begin
       AvailHeight:=AvailHeight-Node.ScrollGutterTop-Node.ScrollGutterBottom;
 
     {$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}
     Size:=ComputeLayoutContent(flmMax,AvailWidth,AvailHeight,true);
     {$IFDEF VerboseFresnelScrolling}

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

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