Changeset 612 for trunk/LocalPlayer/Term.pas

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.

File:

• trunk/LocalPlayer/Term.pas (modified) (2 diffs)

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;