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

Timestamp:

Jun 19, 2024, 11:15:44 PM (4 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

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;