Changeset 346 for trunk/LocalPlayer/Select.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Optimized help water sign drawing.

File:

• trunk/LocalPlayer/Select.pas (modified) (3 diffs)

trunk/LocalPlayer/Select.pas

@@ -45 +45 @@
   private
     Kind: TListKind;
-    LineDistance, MaxLines, cixProject, pView, Sel, DispLines, Layer, nColumn,
-      TechNameSpace, ScienceNation: integer;
+    LineDistance: Integer;
+    MaxLines: Integer;
+    cixProject: Integer;
+    pView: Integer;
+    Sel: Integer;
+    DispLines: Integer;
+    Layer: Integer;
+    nColumn: Integer;
+    TechNameSpace: Integer;
+    ScienceNation: Integer;
     sb: TPVScrollbar;
     Lines, FirstShrinkedLine: array [0 .. MaxLayer - 1] of integer;
     code: array [0 .. MaxLayer - 1, 0 .. 4095] of integer;
     Column: array [0 .. nPl - 1] of integer;
-    Closable, MultiPage: boolean;
+    Closable: Boolean;
+    MultiPage: Boolean;
     ScienceNationDotBuffer: TBitmap;
     procedure ScrollBarUpdate(Sender: TObject);
@@ -58 +67 @@
     function RenameCity(cix: integer): boolean;
     function RenameModel(mix: integer): boolean;
-    procedure OnScroll(var m: TMessage); message WM_VSCROLL;
+    procedure OnScroll(var Msg: TMessage); message WM_VSCROLL;
     procedure OnMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
   public
@@ -133 +142 @@
 end;
 
-procedure TListDlg.OnScroll(var m: TMessage);
+procedure TListDlg.OnScroll(var Msg: TMessage);
 begin
   { TODO: Handled by MouseWheel event
-  if sb.Process(m) then  begin
+  if sb.Process(Msg) then  begin
     Sel := -2;
     SmartUpdateContent(true);