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

Timestamp:

Jun 23, 2019, 3:15:29 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use DpiControls package for High DPI support.

File:

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

branches/highdpi/LocalPlayer/Select.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ClientTools, Term, ScreenTools, IsoEngine, PVSB, BaseWin,
-
+  Protocol, ClientTools, Term, ScreenTools, IsoEngine, PVSB, BaseWin, UDpiControls,
   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms,
   ExtCtrls, ButtonB, ButtonBase, Menus, Types;
@@ -53 +52 @@
     Column: array [0 .. nPl - 1] of integer;
     Closable, MultiPage: boolean;
-    ScienceNationDot: TBitmap;
+    ScienceNationDot: TDpiBitmap;
     procedure ScrollBarUpdate(Sender: TObject);
     procedure InitLines;
-    procedure line(ca: TCanvas; l: integer; NonText, lit: boolean);
+    procedure line(ca: TDpiCanvas; l: integer; NonText, lit: boolean);
     function RenameCity(cix: integer): boolean;
     function RenameModel(mix: integer): boolean;
@@ -110 +109 @@
   Layer1Btn.Hint := Phrases.Lookup('BTN_WONDERS');
   Layer2Btn.Hint := Phrases.Lookup('BTN_CLASSES');
-  ScienceNationDot := TBitmap.Create;
+  ScienceNationDot := TDpiBitmap.Create;
   ScienceNationDot.PixelFormat := pf24bit;
   ScienceNationDot.SetSize(17, 17);
@@ -181 +180 @@
 end;
 
-procedure TListDlg.line(ca: TCanvas; l: integer; NonText, lit: boolean);
+procedure TListDlg.line(ca: TDpiCanvas; l: integer; NonText, lit: boolean);
 // paint a line