Changeset 508

Timestamp:

Dec 25, 2023, 12:08:11 PM (11 months ago)

Author:

chronos

Message:

• Fixed: ScrollBar todo.

Location:

trunk/LocalPlayer

Files:

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

trunk/LocalPlayer/PVSB.pas

@@ -17 +17 @@
   private
     FOnUpdate: TNotifyEvent;
-    ScrollBar: TScrollBar;
     FMax: Integer;
     function GetMax: Integer;
@@ -27 +26 @@
     procedure SetPosition(AValue: Integer);
   public
+    ScrollBar: TScrollBar;
     constructor Create(Parent: TWinControl);
     destructor Destroy; override;

trunk/LocalPlayer/Select.pas

@@ -1624 +1624 @@
   CaptionLeft := ToggleBtn.Left + ToggleBtn.Width;
   CaptionRight := CloseBtn.Left;
-  { TODO:
   SetWindowPos(ScrollBar.ScrollBar.Handle, 0, SideFrame + InnerWidth - GetSystemMetrics(SM_CXVSCROLL),
     TitleHeight, GetSystemMetrics(SM_CXVSCROLL), LineDistance * DispLines + 48,
     SWP_NOZORDER or SWP_NOREDRAW);
-  }
 
   if WindowMode = wmModal then

trunk/LocalPlayer/Term.pas

@@ -4247 +4247 @@
   EOT.Left := Width - 62;
   sb.SetBorderSpacing(Height - yTroop - 24, Width - xRightPanel + 8, 8);
-  {TODO:
   SetWindowPos(sb.ScrollBar.Handle, 0, xRightPanel + 10 - 14 - GetSystemMetrics(SM_CXVSCROLL),
     Height - MidPanelHeight + 8, 0, 0, SWP_NOSIZE or SWP_NOZORDER);
-    }
   MapBtn0.Left := xMini + G.lx - 44;
   MapBtn0.Top := Height - 15;