Changeset 612 for trunk

Timestamp:

Sep 13, 2024, 8:37:17 PM (2 months ago)

Author:

chronos

Message:

• Fixed: Scrollbars behave differently on Linux and Windows. Use conditional code to make it work correctly.

Location:

trunk/LocalPlayer

Files:

• PVSB.pas (modified) (1 diff)
• Term.pas (modified) (2 diffs)

trunk/LocalPlayer/PVSB.pas

@@ -55 +55 @@
   Self.Max := Max;
   ScrollBar.Position := 0;
+  {$IFDEF UNIX}
   ScrollBar.Visible := Max > ScrollBar.PageSize;
+  {$ELSE}
+  ScrollBar.Visible := Max >= ScrollBar.PageSize;
+  {$ENDIF}
 end;
 

trunk/LocalPlayer/Term.pas

@@ -6862 +6862 @@
   trixFocus, uix, uixDefender: Integer;
   Prio: Boolean;
+  RowsCount: Integer;
 begin
   TroopLoc := Loc;
@@ -6889 +6890 @@
   else
   begin
-    VerticalScrollBar.Init(Ceil(TrCnt / TrRow), 1);
+    {$IFDEF UNIX}
+    RowsCount := Ceil(TrCnt / TrRow);
+    {$ELSE}
+    RowsCount := (TrCnt + TrRow - 1) div TrRow - 1;
+    {$ENDIF}
+    VerticalScrollBar.Init(RowsCount, 1);
     if (VerticalScrollBar.Max >= VerticalScrollBar.PageSize) and (trixFocus >= 0) then
       VerticalScrollBar.Position := trixFocus div TrRow;