Skip to content

Commit 803bc14

Browse files
committed
remove RecomputeCurrentFling
1 parent acb92db commit 803bc14

File tree

3 files changed

+89
-162
lines changed

3 files changed

+89
-162
lines changed

Source/Alcinoe.FMX.Layouts.pas

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -818,7 +818,7 @@ procedure TALCustomScrollBox.internalMouseDown(Button: TMouseButton; Shift: TShi
818818
{$IFDEF DEBUG}
819819
//ALLog(
820820
// 'TALCustomScrollBox.MouseDown',
821-
// 'Position:' + ALFloatToStrW(x, ALDefaultFormatSettingsW) + ',' + ALFloatToStrW(y, ALDefaultFormatSettingsW),
821+
// 'Position:' + ALFormatFloatW('0.##', x, ALDefaultFormatSettingsW) + ',' + ALFormatFloatW('0.##', y, ALDefaultFormatSettingsW),
822822
// TalLogType.verbose);
823823
{$ENDIF}
824824
FMouseEvents := true;
@@ -835,7 +835,7 @@ procedure TALCustomScrollBox.internalMouseMove(Shift: TShiftState; X, Y: Single)
835835
{$IFDEF DEBUG}
836836
//ALLog(
837837
// 'TALCustomScrollBox.internalMouseMove',
838-
// 'Position:' + ALFloatToStrW(x, ALDefaultFormatSettingsW) + ',' + ALFloatToStrW(y, ALDefaultFormatSettingsW),
838+
// 'Position:' + ALFormatFloatW('0.##', x, ALDefaultFormatSettingsW) + ',' + ALFormatFloatW('0.##', y, ALDefaultFormatSettingsW),
839839
// TalLogType.verbose);
840840
{$ENDIF}
841841
if FMouseEvents then begin
@@ -856,7 +856,7 @@ procedure TALCustomScrollBox.internalMouseUp(Button: TMouseButton; Shift: TShift
856856
{$IFDEF DEBUG}
857857
//ALLog(
858858
// 'TALCustomScrollBox.internalMouseUp',
859-
// 'Position:' + ALFloatToStrW(x, ALDefaultFormatSettingsW) + ',' + ALFloatToStrW(y, ALDefaultFormatSettingsW),
859+
// 'Position:' + ALFormatFloatW('0.##', x, ALDefaultFormatSettingsW) + ',' + ALFormatFloatW('0.##', y, ALDefaultFormatSettingsW),
860860
// TalLogType.verbose);
861861
{$ENDIF}
862862
if FMouseEvents and (Button = TMouseButton.mbLeft) then begin

0 commit comments

Comments
 (0)