Changeset 273

Timestamp:

Jul 2, 2020, 11:24:58 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Scrollbar position depend on title height.

File:

• branches/highdpi/LocalPlayer/Select.pas (modified) (2 diffs)

branches/highdpi/LocalPlayer/Select.pas

@@ -103 +103 @@
   Canvas.Font.Assign(UniFont[ftNormal]);
   sb := TPVScrollbar.Create(Self);
-  sb.SetBorderSpacing(56, 10, 10);
   sb.OnUpdate := ScrollBarUpdate;
   InitButtons();
@@ -1542 +1541 @@
     (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
+    TitleHeight := WideFrame + 20;
+    sb.SetBorderSpacing(56, 10, 10);
+  end else begin
     TitleHeight := WideFrame;
+    sb.SetBorderSpacing(36, 10, 34);
+  end;
 
   DispLines := Lines[0];