Changeset 360

Timestamp:

Apr 9, 2021, 10:21:16 AM (4 years ago)

Author:

chronos

Message:

• Fixed: Vertical position of scroll bar in unit list.

File:

• trunk/LocalPlayer/Select.pas (modified) (1 diff)

trunk/LocalPlayer/Select.pas

@@ -1551 +1551 @@
     (Kind in [kProject, kAdvance, kFarAdvance]);
   if (Kind = kAdvance) and (MyData.FarTech <> adNone) or (Kind = kModels) or
-    (Kind = kEModels) then
-    TitleHeight := WideFrame + 20
-  else
+    (Kind = kEModels) then begin
+    sb.SetBorderSpacing(56, 10, 10);
+    TitleHeight := WideFrame + 20;
+  end else begin
+    sb.SetBorderSpacing(36, 10, 34);
     TitleHeight := WideFrame;
+  end;
 
   DispLines := Lines[0];