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

branches/highdpi/Start.pas

@@ -7 +7 @@
   GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area, Math,
   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
-  Menus, Registry, DrawDlg, fgl, Protocol;
+  Menus, Registry, DrawDlg, fgl, Protocol, UDpiControls;
 
 const
@@ -56 +56 @@
     Down1Btn: TButtonC;
     Up1Btn: TButtonC;
-    List: TListBox;
+    List: TDpiListBox;
     RenameBtn: TButtonB;
     DeleteBtn: TButtonB;
@@ -72 +72 @@
     procedure FormShow(Sender: TObject);
     procedure FormHide(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure BrainClick(Sender: TObject);
-    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; x, y: integer);
-    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; x, y: integer);
-    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; x, y: integer);
     procedure Up1BtnClick(Sender: TObject);
     procedure Down1BtnClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure ListClick(Sender: TObject);
     procedure RenameBtnClick(Sender: TObject);
@@ -92 +88 @@
     procedure Down2BtnClick(Sender: TObject);
     procedure QuitBtnClick(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure CustomizeBtnClick(Sender: TObject);
     procedure AutoDiffUpBtnClick(Sender: TObject);
     procedure AutoDiffDownBtnClick(Sender: TObject);
+    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; x, y: integer);
+    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; x, y: integer);
     procedure AutoEnemyUpBtnClick(Sender: TObject);
     procedure AutoEnemyDownBtnClick(Sender: TObject);
     procedure ReplayBtnClick(Sender: TObject);
   public
-    EmptyPicture: TBitmap;
+    EmptyPicture: TDpiBitmap;
     procedure UpdateFormerGames;
     procedure UpdateMaps;
@@ -127 +127 @@
     MapFileName: string;
     FormerGames, Maps: TStringList;
-    LogoBuffer, Mini: TBitmap; { game world sample preview }
+    LogoBuffer, Mini: TDpiBitmap; { game world sample preview }
     MiniColors: array [0 .. 11, 0 .. 1] of TColor;
     // BookDate: string;
@@ -155 +155 @@
 
 uses
-  Directories, Direct, ScreenTools, Inp, Back, Locale, PixelPointer;
+  Directories, Direct, ScreenTools, Inp, Back, Locale;
 
 {$R *.lfm}
@@ -290 +290 @@
   PlayerSlots.Count := nPlOffered;
   for i := 0 to PlayerSlots.Count - 1 do
-  with PlayerSlots[i] do begin
+  with TPlayerSlot(PlayerSlots[i]) do begin
     DiffUpBtn := TButtonC.Create(self);
     DiffUpBtn.Graphic := GrExt[HGrSystem].Data;
@@ -324 +324 @@
     CustomizeBtn.ButtonIndex := 2;
 
-  Brains[0].Picture := TBitmap.Create;
+  Brains[0].Picture := TDpiBitmap.Create;
   Brains[0].Picture.SetSize(64, 64);
   BitBlt(Brains[0].Picture.Canvas.Handle, 0, 0, 64, 64,
     GrExt[HGrSystem2].Data.Canvas.Handle, 1, 111, SRCCOPY);
-  Brains[1].Picture := TBitmap.Create;
+  Brains[1].Picture := TDpiBitmap.Create;
   Brains[1].Picture.SetSize(64, 64);
   BitBlt(Brains[1].Picture.Canvas.Handle, 0, 0, 64, 64,
     GrExt[HGrSystem2].Data.Canvas.Handle, 66, 111, SRCCOPY);
-  Brains[2].Picture := TBitmap.Create;
+  Brains[2].Picture := TDpiBitmap.Create;
   Brains[2].Picture.SetSize(64, 64);
   BitBlt(Brains[2].Picture.Canvas.Handle, 0, 0, 64, 64,
     GrExt[HGrSystem2].Data.Canvas.Handle, 131, 111, SRCCOPY);
-  Brains[3].Picture := TBitmap.Create;
+  Brains[3].Picture := TDpiBitmap.Create;
   Brains[3].Picture.SetSize(64, 64);
   BitBlt(Brains[3].Picture.Canvas.Handle, 0, 0, 64, 64,
@@ -346 +346 @@
   with AIBrains[I] do
   begin
-    AIBrains[i].Picture := TBitmap.Create;
+    AIBrains[i].Picture := TDpiBitmap.Create;
     if not LoadGraphicFile(AIBrains[i].Picture, HomeDir + 'AI' + DirectorySeparator +
       FileName + DirectorySeparator + FileName + '.png', gfNoError) then begin
@@ -363 +363 @@
   AIBrains.Free;
 
-  EmptyPicture := TBitmap.Create;
+  EmptyPicture := TDpiBitmap.Create;
   EmptyPicture.PixelFormat := pf24bit;
   EmptyPicture.SetSize(64, 64);
   EmptyPicture.Canvas.FillRect(0, 0, EmptyPicture.Width, EmptyPicture.Height);
-  LogoBuffer := TBitmap.Create;
+  LogoBuffer := TDpiBitmap.Create;
   LogoBuffer.PixelFormat := pf24bit;
   LogoBuffer.SetSize(wBuffer, 56);
   LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
 
-  Mini := TBitmap.Create;
+  Mini := TDpiBitmap.Create;
   for x := 0 to 11 do
     for y := 0 to 1 do
@@ -926 +926 @@
       begin // load
         FileName := List.Items[List.ItemIndex];
-        if LoadGame(GetSavedDir + DirectorySeparator, FileName + CevoExt, LoadTurn, false)
+        if LoadGame(DataDir + 'Saved' + DirectorySeparator, FileName + CevoExt, LoadTurn, false)
         then
           UnlistBackupFile(FileName)
@@ -1010 +1010 @@
         end;
 
-        StartNewGame(GetSavedDir + DirectorySeparator, FileName + CevoExt, MapFileName,
+        StartNewGame(DataDir + 'Saved' + DirectorySeparator, FileName + CevoExt, MapFileName,
           lxpre[WorldSize], lypre[WorldSize], StartLandMass, MaxTurn);
         UnlistBackupFile(FileName);
@@ -1145 +1145 @@
     pgLoad:
       begin
-        AssignFile(LogFile, GetSavedDir + DirectorySeparator + List.Items[List.ItemIndex]
+        AssignFile(LogFile, DataDir + 'Saved' + DirectorySeparator + List.Items[List.ItemIndex]
           + CevoExt);
         try
@@ -1198 +1198 @@
         if Page = pgEditMap then
           MapFileName := List.Items[List.ItemIndex] + CevoMapExt;
-        if LoadGraphicFile(Mini, GetMapsDir + DirectorySeparator + Copy(MapFileName, 1,
+        if LoadGraphicFile(Mini, DataDir + 'Maps' + DirectorySeparator + Copy(MapFileName, 1,
           Length(MapFileName) - 9) + '.png', gfNoError) then
         begin
@@ -1215 +1215 @@
         end;
 
-        AssignFile(MapFile, GetMapsDir + DirectorySeparator + MapFileName);
+        AssignFile(MapFile, DataDir + 'Maps' + DirectorySeparator + MapFileName);
         try
           Reset(MapFile, 4);
@@ -1395 +1395 @@
 begin
   FormerGames.Clear;
-  if FindFirst(GetSavedDir + DirectorySeparator + '*' + CevoExt, $21, F) = 0 then
+  if FindFirst(DataDir + 'Saved' + DirectorySeparator + '*' + CevoExt, $21, F) = 0 then
     repeat
       I := FormerGames.Count;
@@ -1415 +1415 @@
 begin
   Maps.Clear;
-  if FindFirst(GetMapsDir + DirectorySeparator + '*' + CevoMapExt, $21, f) = 0 then
+  if FindFirst(DataDir + 'Maps' + DirectorySeparator + '*' + CevoMapExt, $21, f) = 0 then
     repeat
       Maps.Add(Copy(f.Name, 1, Length(f.Name) - 9));
@@ -1790 +1790 @@
         end;
       if Page = pgLoad then
-        AssignFile(f, GetSavedDir + DirectorySeparator + List.Items[List.ItemIndex] + CevoExt)
+        AssignFile(f, DataDir + 'Saved' + DirectorySeparator + List.Items[List.ItemIndex] + CevoExt)
       else
-        AssignFile(f, GetMapsDir + DirectorySeparator + List.Items[List.ItemIndex] +
+        AssignFile(f, DataDir + 'Maps'+ DirectorySeparator + List.Items[List.ItemIndex] +
           CevoMapExt);
       ok := true;
       try
         if Page = pgLoad then
-          Rename(f, GetSavedDir + DirectorySeparator + NewName + CevoExt)
+          Rename(f, DataDir + 'Saved'+ DirectorySeparator + NewName + CevoExt)
         else
-          Rename(f, GetMapsDir + DirectorySeparator + NewName + CevoMapExt);
+          Rename(f, DataDir + 'Maps'+ DirectorySeparator + NewName + CevoMapExt);
       except
         // Play('INVALID');
@@ -1806 +1806 @@
       if Page <> pgLoad then
         try // rename map picture
-          AssignFile(f, GetMapsDir + DirectorySeparator + List.Items[List.ItemIndex]
+          AssignFile(f, DataDir + 'Maps'+ DirectorySeparator + List.Items[List.ItemIndex]
             + '.png');
-          Rename(f, GetMapsDir + DirectorySeparator + NewName + '.png');
+          Rename(f, DataDir + 'Maps'+ DirectorySeparator + NewName + '.png');
         except
         end;
@@ -1842 +1842 @@
     begin
       if Page = pgLoad then
-        AssignFile(f, GetSavedDir + DirectorySeparator + List.Items[List.ItemIndex] + CevoExt)
+        AssignFile(f, DataDir + 'Saved' + DirectorySeparator + List.Items[List.ItemIndex] + CevoExt)
       else
-        AssignFile(f, GetMapsDir + DirectorySeparator + List.Items[List.ItemIndex] +
+        AssignFile(f, DataDir + 'Maps' + DirectorySeparator + List.Items[List.ItemIndex] +
           CevoMapExt);
       Erase(f);
@@ -2036 +2036 @@
 procedure TStartDlg.ReplayBtnClick(Sender: TObject);
 begin
-  LoadGame(GetSavedDir + DirectorySeparator, List.Items[List.ItemIndex] + CevoExt,
+  LoadGame(DataDir + 'Saved' + DirectorySeparator, List.Items[List.ItemIndex] + CevoExt,
     LastTurn, True);
   SlotAvailable := -1;