Changeset 346 for trunk/LocalPlayer/PVSB.pas

Timestamp:

Apr 6, 2021, 7:19:02 PM (4 years ago)

Author:

chronos

Message:

• Modified: Optimized help water sign drawing.

File:

• trunk/LocalPlayer/PVSB.pas (modified) (4 diffs)

trunk/LocalPlayer/PVSB.pas

@@ -32 +32 @@
     procedure Init(Max, PageSize: Integer);
     procedure SetPos(Pos: Integer);
-    function Process(const m: TMessage): boolean;
+    function Process(const Msg: TMessage): boolean;
     function ProcessMouseWheel(Delta: Integer): Boolean;
     procedure Show(Visible: boolean);
@@ -65 +65 @@
 end;
 
-function TPVScrollBar.Process(const m: TMessage): boolean;
+function TPVScrollBar.Process(const Msg: TMessage): boolean;
 var
   NewPos: integer;
@@ -73 +73 @@
     else
     begin
-      if (m.wParam and $ffff) in [SB_THUMBPOSITION, SB_THUMBTRACK] then
+      if (Msg.wParam and $ffff) in [SB_THUMBPOSITION, SB_THUMBTRACK] then
       begin
-        result := ((m.wParam shr 16) and $ffff) <> ScrollBar.Position;
-        ScrollBar.Position := (m.wParam shr 16) and $ffff;
+        result := ((Msg.wParam shr 16) and $ffff) <> ScrollBar.Position;
+        ScrollBar.Position := (Msg.wParam shr 16) and $ffff;
       end else begin
-        case (m.wParam and $ffff) of
+        case (Msg.wParam and $ffff) of
           SB_LINEUP:
             NewPos := ScrollBar.Position - 1;
@@ -95 +95 @@
           NewPos := Max - ScrollBar.PageSize + 1;
         result := NewPos <> ScrollBar.Position;
-        if (NewPos <> ScrollBar.Position) or ((m.wParam and $ffff) = SB_ENDSCROLL) then
+        if (NewPos <> ScrollBar.Position) or ((Msg.wParam and $ffff) = SB_ENDSCROLL) then
         begin
           ScrollBar.Position := NewPos;