Changeset 32 for trunk/Forms/FormRecord.pas

Timestamp:

Jun 29, 2024, 7:58:36 AM (3 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from units names.
• Modified: Use TFormEx for all forms.

File:

• trunk/Forms/FormRecord.pas (moved) (moved from trunk/Forms/UFormRecord.pas ) (5 diffs)

trunk/Forms/FormRecord.pas

@@ -1 @@
-unit UFormRecord;
+unit FormRecord;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  ComCtrls, ActnList, StdCtrls, EditBtn, UDatabase, Spin, Generics.Collections;
+  ComCtrls, ActnList, StdCtrls, EditBtn, DbEngine, Spin, Generics.Collections,
+  FormEx;
 
 type
@@ -11 +12 @@
   { TFormRecord }
 
-  TFormRecord = class(TForm)
+  TFormRecord = class(TFormEx)
     ASave: TAction;
     ACancel: TAction;
@@ -37 +38 @@
 
 uses
-  UDataTypes, UCore;
+  DataTypes;
 
 {$R *.lfm}
@@ -89 +90 @@
   LineHeight: Integer;
 begin
-  LineHeight := Core.ScaleDPI1.ScaleY(35, Core.ScaleDPI1.DesignDPI.Y);
+  LineHeight := TFormEx.ScaleDPI.ScaleY(35, TFormEx.ScaleDPI.DesignDPI.Y);
 
   Row := DataRecord;