Screen width more than 255 fix for Statuses unit.

packages/fv/src/statuses.pas

@@ -748,7 +748,7 @@ const Arrows : array[0..1] of AnsiChar = '<>';
 var
   B : TDrawBuffer;
   C : Word;
-  Len : Byte;
+  Len : Sw_Integer;
 begin
   C := GetColor(1);
   Len := Round(Size.X * Current/(Max - Min));