Changeset 29 for trunk/Forms/UFormRecord.pas

Timestamp:

Sep 10, 2022, 10:54:56 PM (2 years ago)

Author:

chronos

Message:

• Fixed: Load table fields in records list and record edit form.
• Fixed: Record add needs to insert new row into database.

File:

• trunk/Forms/UFormRecord.pas (modified) (4 diffs)

trunk/Forms/UFormRecord.pas

@@ -37 +37 @@
 
 uses
-  UDataTypes;
+  UDataTypes, UCore;
 
 {$R *.lfm}
@@ -86 +86 @@
 const
   LabelWidth = 300;
-begin
+var
+  LineHeight: Integer;
+begin
+  LineHeight := Core.ScaleDPI1.ScaleY(35, Core.ScaleDPI1.DesignDPI.Y);
+
   Row := DataRecord;
   Controls.Clear;
   Labels.Clear;
   for I := 0 to Table.Fields.Count - 1 do begin
-    CellRect := Rect(10, 10 + I * 35, Panel1.Width - 20, (I + 1) * 35);
+    CellRect := Rect(10, 10 + I * LineHeight, Panel1.Width - 20, (I + 1) * LineHeight);
     NewLabel := TLabel.Create(Panel1);
-    NewLabel.Caption := TField(Table.Fields[I]).TextBefore;
+    NewLabel.Caption := Table.Fields[I].TextBefore;
     NewLabel.Parent := Panel1;
     NewLabel.Left := CellRect.Left;
@@ -99 +103 @@
     NewLabel.Visible := True;
     Labels.Add(NewLabel);
-    case TField(Table.Fields[I]).DataType.FieldType of
+    case Table.Fields[I].DataType.FieldType of
       ftString: begin
         NewControl := TEdit.Create(Panel1);
@@ -183 +187 @@
 begin
   for I := 0 to Table.Fields.Count - 1 do begin
-    case TField(Table.Fields[I]).DataType.FieldType of
+    case Table.Fields[I].DataType.FieldType of
       ftString: TValueString(Row.Values[I]).Value := TEdit(Controls[I]).Text;
       ftInteger: TValueInteger(Row.Values[I]).Value := TSpinEdit(Controls[I]).Value;