@@ -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