Changeset 585 for DpiControls/DpiControls.pas

Timestamp:

Jan 13, 2026, 4:12:03 PM (18 hours ago)

Author:

chronos

Message:

• Modified: Updated DpiControls package.

File:

• DpiControls/DpiControls.pas (modified) (1 diff)

DpiControls/DpiControls.pas

@@ -1 @@
-{ This file was automatically created by Lazarus. Do not edit!
-  This source is only used to compile and install the package.
- }
-
 unit DpiControls;
 
-{$warn 5023 off : no warning about unused units}
 interface
 
 uses
-  UDpiControls, LazarusPackageIntf;
+  {$IFDEF WINDOWS}Windows, {$ENDIF}Classes, SysUtils, LCLProc, LResources, Forms,
+  Generics.Collections, FormEditingIntf, ProjectIntf, Controls, StdCtrls, Graphics,
+  ComCtrls, ExtCtrls, LCLType, GraphType, Types, CustApp, LMessages, LCLIntf,
+  Menus, Math, Dpi.PixelPointer, Grids, Spin, Dpi.Forms, Dpi.Controls, Dpi.Graphics;
+
+type
+
+  { TDpiFormFileDesc }
+
+  TDpiFormFileDesc = class(TFileDescPascalUnitWithResource)
+  public
+    constructor Create; override;
+    function GetInterfaceUsesSection: string; override;
+    function GetLocalizedName: string; override;
+    function GetLocalizedDescription: string; override;
+  end;
+
+var
+  DpiFormFileDesc: TDpiFormFileDesc;
+
+procedure Register;
+
 
 implementation
 
+uses
+  LCLStrConsts, Dpi.Common;
+
+resourcestring
+  SDpiFormTitle = 'DpiForm form';
+  SDpiFormDescription = 'DPI aware form';
+
 procedure Register;
 begin
-  RegisterUnit('UDpiControls', @UDpiControls.Register);
+  FormEditingHook.RegisterDesignerBaseClass(TForm);
+  DpiFormFileDesc := TDpiFormFileDesc.Create;
+  RegisterProjectFileDescriptor(DpiFormFileDesc);
+end;
+
+{ TDpiFormFileDesc }
+
+constructor TDpiFormFileDesc.Create;
+begin
+  inherited Create;
+  Name := 'DpiForm form';
+  ResourceClass := TForm;
+  UseCreateFormStatements := False;
+end;
+
+function TDpiFormFileDesc.GetInterfaceUsesSection: string;
+begin
+  Result := inherited GetInterfaceUsesSection;
+  Result := Result + ', UDpiForm';
+end;
+
+function TDpiFormFileDesc.GetLocalizedName: string;
+begin
+  Result := SDpiFormTitle;
+end;
+
+function TDpiFormFileDesc.GetLocalizedDescription: string;
+begin
+  Result := SDpiFormDescription;
 end;
 
 initialization
-  RegisterPackage('DpiControls', @Register);
+
+
 end.
+