Changeset 468 for trunk/Start.pas

Timestamp:

Dec 3, 2023, 11:28:08 AM (6 months ago)

Author:

chronos

Message:

• Added: High DPI support integrated into trunk branch. It can be enabled by adding DPI define to compiler parameters for main project and packages.

File:

• trunk/Start.pas (modified) (7 diffs)

trunk/Start.pas

@@ -6 +6 @@
 uses
   GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area, Types,
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
-  Menus, Registry, DrawDlg, Generics.Collections, Protocol, MiniMap, Brain,
-  Translator;
+  LCLIntf, LCLType, SysUtils, Classes, System.UITypes,
+  Registry, DrawDlg, Generics.Collections, Protocol, MiniMap, Brain, Translator,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.StdCtrls, Dpi.Menus{$ELSE}
+  Graphics, Controls, Forms, StdCtrls, Menus{$ENDIF};
 
 type
@@ -255 +256 @@
 
   Canvas.Font.Assign(UniFont[ftNormal]);
-  Canvas.Brush.Style := bsClear;
+  Canvas.Brush.Style := TBrushStyle.bsClear;
 
   QuitBtn.Hint := Phrases.Lookup('STARTCONTROLS', 0);
@@ -303 +304 @@
 
   EmptyPicture := TBitmap.Create;
-  EmptyPicture.PixelFormat := pf24bit;
+  EmptyPicture.PixelFormat := TPixelFormat.pf24bit;
   EmptyPicture.SetSize(64, 64);
   EmptyPicture.Canvas.FillRect(0, 0, EmptyPicture.Width, EmptyPicture.Height);
   LogoBuffer := TBitmap.Create;
-  LogoBuffer.PixelFormat := pf24bit;
+  LogoBuffer.PixelFormat := TPixelFormat.pf24bit;
   LogoBuffer.SetSize(wBuffer, 56);
   LogoBuffer.Canvas.FillRect(0, 0, LogoBuffer.Width, LogoBuffer.Height);
@@ -531 +532 @@
 begin
   Canvas.Font.Assign(UniFont[ftCaption]);
-  Canvas.Font.Style := Canvas.Font.Style + [fsUnderline];
+  Canvas.Font.Style := Canvas.Font.Style + [TFontStyle.fsUnderline];
   RisedTextOut(Canvas, xAction, Y - 3, Phrases2.Lookup(HeaderItem));
   Canvas.Font.Assign(UniFont[ftNormal]);
@@ -566 +567 @@
     FillRect(Rect(0, 1, ClientWidth, 3));
     FillRect(Rect(TabOffset + 4 * TabSize + 2, 0, ClientWidth, TabHeight));
-    Brush.Style := bsClear;
+    Brush.Style := TBrushStyle.bsClear;
   end;
   if Page in [pgStartRandom, pgStartMap] then
@@ -745 +746 @@
               FillRect(Rect(xBrain[I] - 5, yBrain[I] + 25, xBrain[I] - 2,
                 yBrain[I] + 27));
-              Brush.Style := bsClear;
+              Brush.Style := TBrushStyle.bsClear;
             end;
             if PlayerSlots[I].OfferMultiple then
@@ -911 +912 @@
 begin
   {$IFDEF UNIX}
-  ShowInTaskBar := stAlways;
+  ShowInTaskBar := TShowInTaskbar.stAlways;
   {$ENDIF}
   MainTexture.Age := -1;