Changeset 178 for branches/highdpi/GameServer.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/GameServer.pas (modified) (4 diffs)

branches/highdpi/GameServer.pas

@@ -7 +7 @@
 
 uses
-  Protocol, Database, dynlibs, Platform, dateutils, fgl, FileUtil, Graphics;
+  Protocol, Database, dynlibs, Platform, dateutils, fgl, FileUtil, Graphics,
+  UDpiControls;
 
 const
@@ -71 +72 @@
     Initialized: Boolean;
     Kind: TBrainType;
-    Picture: TBitmap;
+    Picture: TDpiBitmap;
     procedure LoadFromFile(AIFileName: string);
     constructor Create;
@@ -556 +557 @@
   s: string[255];
 begin
-  MapFile := TFileStream.Create(GetMapsDir + DirectorySeparator + FileName,
+  MapFile := TFileStream.Create(DataDir + 'Maps' + DirectorySeparator + FileName,
     fmCreate or fmShareExclusive);
   MapFile.Position := 0;
@@ -579 +580 @@
   MapFile := nil;
   try
-    MapFile := TFileStream.Create(GetMapsDir + DirectorySeparator + FileName,
+    MapFile := TFileStream.Create(DataDir + 'Maps' + DirectorySeparator + FileName,
       fmOpenRead or fmShareExclusive);
     MapFile.Position := 0;