Changeset 471 for trunk/Packages/CevoComponents/DrawDlg.pas

Timestamp:

Dec 4, 2023, 12:08:50 AM (6 months ago)

Author:

chronos

Message:

• Fixed: More units uses items corrected for high DPI support.

File:

• trunk/Packages/CevoComponents/DrawDlg.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -4 +4 @@
 
 uses
-  {$IFDEF DPI}Dpi.Forms, Dpi.Common,{$ELSE}
-  Forms,{$ENDIF}
   Classes, SysUtils, LCLIntf, LCLType, {$IFDEF UNIX}LMessages,{$ENDIF}
-  Messages, Graphics, Controls, ButtonBase, ButtonA, ButtonB, Area, ScreenTools
-  {$IFDEF LCLGTK2}, Gtk2Globals{$ENDIF};
+  Messages, ButtonBase, ButtonA, ButtonB, Area, ScreenTools
+  {$IFDEF LCLGTK2}, Gtk2Globals{$ENDIF},
+  {$IFDEF DPI}Dpi.Forms, Dpi.Common, Dpi.Graphics, Dpi.Controls{$ELSE}
+  Forms, Graphics, Controls{$ENDIF};
 
 type
@@ -98 +98 @@
   Pos: TPoint;
 begin
-  if BorderStyle <> bsNone then
+  if BorderStyle <> TBorderStyle.bsNone then
     inherited
   else
@@ -252 +252 @@
   Left := (Screen.Width - Width) div 2;
   Canvas.Font.Assign(UniFont[ftNormal]);
-  Canvas.Brush.Style := bsClear;
+  Canvas.Brush.Style := TBrushStyle.bsClear;
   MessgText := '';
   TopSpace := 0;