Changeset 252 for branches/highdpi/LocalPlayer/Select.pas

Timestamp:

May 23, 2020, 12:45:14 AM (4 years ago)

Author:

chronos

Message:

• Fixed: Scrolling under HighDPI. ScrollDC needs to be scaled as well.

File:

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

branches/highdpi/LocalPlayer/Select.pas

@@ -59 +59 @@
     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 +133 @@
 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);