Changeset 219 for trunk/Packages/Common/ScaleDPI.pas

Timestamp:

Jan 17, 2025, 9:05:54 PM (4 days ago)

Author:

chronos

Message:

• Modified: Updated Common package.
• Modified: Remove U prefix from unit names.
• Modified: Use Gneeric.Collections instead of fgl.
• Modified: Do not use global form variables.

File:

• trunk/Packages/Common/ScaleDPI.pas (moved) (moved from trunk/Packages/Common/UScaleDPI.pas ) (2 diffs)

trunk/Packages/Common/ScaleDPI.pas

@@ -1 @@
-unit UScaleDPI;
+unit ScaleDPI;
 
 { See: http://wiki.lazarus.freepascal.org/High_DPI }
 
-{$mode delphi}{$H+}
-
 interface
 
 uses
-  Classes, Forms, Graphics, Controls, ComCtrls, LCLType, SysUtils, fgl;
+  Classes, Forms, Graphics, Controls, ComCtrls, LCLType, SysUtils,
+  Generics.Collections;
 
 type
@@ -28 +27 @@
   end;
 
-  TControlDimensions = class(TFPGObjectList<TControlDimension>)
+  TControlDimensions = class(TObjectList<TControlDimension>)
   end;