Changeset 468 for trunk/Packages/CevoComponents/BaseWin.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/Packages/CevoComponents/BaseWin.pas (modified) (5 diffs)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -4 +4 @@
 
 uses
-  ScreenTools, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
-  DrawDlg;
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms,{$ELSE}
+  Graphics, Controls, Forms,{$ENDIF}
+  ScreenTools, LCLIntf, LCLType, SysUtils, Classes, DrawDlg, System.UITypes;
 
 type
@@ -133 +134 @@
 begin
   if Key = VK_ESCAPE then begin
-    if fsModal in FormState then
+    if TFormStateType.fsModal in FormState then
       ModalResult := mrCancel;
   end else
   if Key = VK_RETURN then begin
-    if fsModal in FormState then
+    if TFormStateType.fsModal in FormState then
       ModalResult := mrOK;
   end else
@@ -245 +246 @@
   TexOverride := False;
   ModalIndication := True;
-  Canvas.Brush.Style := bsClear;
+  Canvas.Brush.Style := TBrushStyle.bsClear;
   InnerWidth := Width - 2 * SideFrame;
   InnerHeight := Height - TitleHeight - NarrowFrame;
@@ -479 +480 @@
     Exit;
   Offscreen := TBitmap.Create;
-  Offscreen.PixelFormat := pf24bit;
+  Offscreen.PixelFormat := TPixelFormat.pf24bit;
   if Screen.Height - yUnused < 480 then
     Offscreen.SetSize(Screen.Width, 480)
@@ -485 +486 @@
     Offscreen.SetSize(Screen.Width, Screen.Height - yUnused);
   Offscreen.Canvas.FillRect(0, 0, Offscreen.Width, OffScreen.Height);
-  Offscreen.Canvas.Brush.Style := bsClear;
+  Offscreen.Canvas.Brush.Style := TBrushStyle.bsClear;
 end;