remove RecomputeCurrentFling

jokershigh · Sep 25, 2023 · 803bc14 · 803bc14
1 parent acb92db
commit 803bc14
Show file tree

Hide file tree

Showing 3 changed files with 89 additions and 162 deletions.
diff --git a/Source/Alcinoe.FMX.Layouts.pas b/Source/Alcinoe.FMX.Layouts.pas
@@ -818,7 +818,7 @@ procedure TALCustomScrollBox.internalMouseDown(Button: TMouseButton; Shift: TShi
   {$IFDEF DEBUG}
   //ALLog(
   //  'TALCustomScrollBox.MouseDown',
-  //  'Position:' + ALFloatToStrW(x, ALDefaultFormatSettingsW) + ',' + ALFloatToStrW(y, ALDefaultFormatSettingsW),
+  //  'Position:' + ALFormatFloatW('0.##', x, ALDefaultFormatSettingsW) + ',' + ALFormatFloatW('0.##', y, ALDefaultFormatSettingsW),
   //  TalLogType.verbose);
   {$ENDIF}
   FMouseEvents := true;
@@ -835,7 +835,7 @@ procedure TALCustomScrollBox.internalMouseMove(Shift: TShiftState; X, Y: Single)
   {$IFDEF DEBUG}
   //ALLog(
   //  'TALCustomScrollBox.internalMouseMove',
-  //  'Position:' + ALFloatToStrW(x, ALDefaultFormatSettingsW) + ',' + ALFloatToStrW(y, ALDefaultFormatSettingsW),
+  //  'Position:' + ALFormatFloatW('0.##', x, ALDefaultFormatSettingsW) + ',' + ALFormatFloatW('0.##', y, ALDefaultFormatSettingsW),
   //  TalLogType.verbose);
   {$ENDIF}
   if FMouseEvents then begin
@@ -856,7 +856,7 @@ procedure TALCustomScrollBox.internalMouseUp(Button: TMouseButton; Shift: TShift
   {$IFDEF DEBUG}
   //ALLog(
   //  'TALCustomScrollBox.internalMouseUp',
-  //  'Position:' + ALFloatToStrW(x, ALDefaultFormatSettingsW) + ',' + ALFloatToStrW(y, ALDefaultFormatSettingsW),
+  //  'Position:' + ALFormatFloatW('0.##', x, ALDefaultFormatSettingsW) + ',' + ALFormatFloatW('0.##', y, ALDefaultFormatSettingsW),
   //  TalLogType.verbose);
   {$ENDIF}
   if FMouseEvents and (Button = TMouseButton.mbLeft) then begin