--- packages/fv/src/views.pas.orig	2012-07-12 12:15:20.000000000 +0300
+++ packages/fv/src/views.pas	2019-02-26 06:05:42.828352709 +0200
@@ -824,6 +824,13 @@
   staticVar2 : TstatVar2;
 
 
+    FUNCTION AntiZero_1(Z: int64): int64;
+    BEGIN
+    if Z=0 then Z:=1;
+    AntiZero_1:=Z;
+    END;
+
+
 {***************************************************************************}
 {                          PRIVATE INTERNAL ROUTINES                        }
 {***************************************************************************}
@@ -1899,7 +1906,7 @@
    PROCEDURE GrowI (Var I: Sw_Integer);
    BEGIN
      If (GrowMode AND gfGrowRel = 0) Then Inc(I, D)
-       Else I := (I * S + (S - D) SHR 1) DIV (S - D); { Calc grow value }
+       Else I := (I * S + (S - D) SHR 1) DIV AntiZero_1(S - D); { Calc grow value }
    END;
 
 BEGIN
@@ -3251,13 +3258,13 @@
              End Else I := GetPos;                    { Get position }
              If (I <> P) Then Begin
                SetValue(LongInt((LongInt(I)*(Max-Min))
-                 +(S SHR 1)) DIV S + Min);            { Set new value }
+                 +(S SHR 1)) DIV AntiZero_1(S) + Min);{ Set new value }
                P := I;                                { Hold new position }
              End;
            Until NOT MouseEvent(Event, evMouseMove);  { Until not moving }
            If Tracking AND (S > 0) Then               { Tracking mouse }
              SetValue(LongInt((LongInt(P)*(Max-Min))+
-               (S SHR 1)) DIV S + Min);               { Set new value }
+               (S SHR 1)) DIV AntiZero_1(S) + Min);   { Set new value }
            If (Iv <> Value) Then Clicked;             { Scroll has moved }
          End;
          ClearEvent(Event);                           { Clear the event }
@@ -3470,7 +3477,7 @@
      AVScrollBar^.SetStep(PgStep, ArStep);            { Set scroll values }
    End;
    If (AHScrollBar <> Nil) Then
-     AHScrollBar^.SetStep(Size.X DIV NumCols, 1);     { Set step size }
+     AHScrollBar^.SetStep(Size.X DIV AntiZero_1(NumCols), 1);{ Set step size }
    HScrollBar := AHScrollBar;                         { Horz scrollbar held }
    VScrollBar := AVScrollBar;                         { Vert scrollbar held }
 END;
@@ -3524,7 +3531,7 @@
      Color: Word; SCOff: Byte;
      Text: String; B: TDrawBuffer;
 BEGIN
-   ColWidth := Size.X DIV NumCols + 1;                { Calc column width }
+   ColWidth := Size.X DIV AntiZero_1(NumCols) + 1;    { Calc column width }
    If (HScrollBar = Nil) Then Indent := 0 Else        { Set indent to zero }
      Indent := HScrollBar^.Value;                     { Fetch any indent }
    For I := 0 To Size.Y - 1 Do Begin                  { For each line }
@@ -3575,10 +3582,10 @@
      VScrollBar^.SetValue(Item);                      { Scrollbar to value }
    If (Item < TopItem) Then                           { Item above top item }
      If (NumCols = 1) Then TopItem := Item            { Set top item }
-       Else TopItem := Item - Item MOD Size.Y         { Set top item }
+       Else TopItem := Item - Item MOD AntiZero_1(Size.Y)  { Set top item }
    Else If (Item >= TopItem + (Size.Y*NumCols)) Then  { Item below bottom }
      If (NumCols = 1) Then TopItem := Item-Size.Y+1   { Set new top item }
-     Else TopItem := Item - Item MOD Size.Y -
+     Else TopItem := Item - Item MOD AntiZero_1(Size.Y) -
        (Size.Y*(NumCols-1));                          { Set new top item }
 END;
 
@@ -3703,7 +3710,7 @@
          End;
      End;
      evMouseDown: Begin                               { Mouse down event }
-       Cw := Size.X DIV NumCols + 1;                  { Column width }
+       Cw := Size.X DIV AntiZero_1(NumCols) + 1;      { Column width }
        Oi := Focused;                                 { Hold focused item }
        MakeLocal(Event.Where, Mouse);                 { Localize mouse }
        If MouseInView(Event.Where) Then Ni := Mouse.Y
@@ -3730,10 +3737,10 @@
                If (Mouse.X >= Size.X) Then            { Mouse x above width }
                  Ni := Focused+Size.Y;                { Move up 1 column }
                If (Mouse.Y < 0) Then                  { Mouse y below zero }
-                 Ni := Focused-Focused MOD Size.Y;    { Move up one item }
+                 Ni := Focused-Focused MOD AntiZero_1(Size.Y);    { Move up one item }
                If (Mouse.Y > Size.Y) Then             { Mouse y above height }
                  Ni := Focused-Focused MOD
-                   Size.Y+Size.Y-1;                   { Move down one item }
+                   AntiZero_1(Size.Y)+Size.Y-1;       { Move down one item }
              End;
            End;
          End Else Ni := Mouse.Y + (Size.Y*(Mouse.X
@@ -3755,7 +3762,7 @@
 BEGIN
    Inherited ChangeBounds(Bounds);                    { Call ancestor }
    If (HScrollBar <> Nil) Then                        { Valid horz scrollbar }
-     HScrollBar^.SetStep(Size.X DIV NumCols,
+     HScrollBar^.SetStep(Size.X DIV AntiZero_1(NumCols),
        HScrollBar^.ArStep);                           { Update horz bar }
    If (VScrollBar <> Nil) Then                        { Valid vert scrollbar }
      VScrollBar^.SetStep(Size.Y * NumCols,