Changeset 14 for trunk/Forms/UFormRecord.pas

Timestamp:

Mar 22, 2018, 7:59:13 PM (6 years ago)

Author:

chronos

Message:

• Added: Support for item references.
• Added: Data and Time value types.

File:

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

trunk/Forms/UFormRecord.pas

@@ -87 +87 @@
   NewControl: TControl;
   CellRect: TRect;
+const
+  LabelWidth = 300;
 begin
   Row := DataRecord;
@@ -92 +94 @@
   Labels.Clear;
   for I := 0 to Table.Fields.Count - 1 do begin
-    CellRect := Rect(10, 10 + I * 70, Panel1.Width - 20, (I + 1) * 70);
+    CellRect := Rect(10, 10 + I * 35, Panel1.Width - 20, (I + 1) * 35);
     NewLabel := TLabel.Create(Panel1);
     NewLabel.Caption := TField(Table.Fields[I]).TextBefore;
@@ -103 +105 @@
       ftString: begin
         NewControl := TEdit.Create(Panel1);
-        NewControl.Parent := Panel1;
-        NewControl.Left := CellRect.Left;
-        NewControl.Top := CellRect.Top + NewLabel.Height + 6;
-        NewControl.Width := CellRect.Right - CellRect.Left;
+        NewControl.Anchors := [akLeft, akTop, akRight];
+        NewControl.Parent := Panel1;
+        NewControl.Left := CellRect.Left + LabelWidth;
+        NewControl.Top := CellRect.Top;
+        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
         NewControl.Visible := True;
         TEdit(NewControl).Text := TValueString(Row.Values[I]).Value;
@@ -114 +117 @@
         NewControl := TSpinEdit.Create(Panel1);
         NewControl.Parent := Panel1;
-        NewControl.Left := CellRect.Left;
-        NewControl.Top := CellRect.Top + NewLabel.Height + 6;
-        NewControl.Width := CellRect.Right - CellRect.Left;
+        NewControl.Left := CellRect.Left + LabelWidth;
+        NewControl.Top := CellRect.Top;
+        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
         NewControl.Visible := True;
         TSpinEdit(NewControl).Value := TValueInteger(Row.Values[I]).Value;
@@ -124 +127 @@
         NewControl := TDateEdit.Create(Panel1);
         NewControl.Parent := Panel1;
-        NewControl.Left := CellRect.Left;
-        NewControl.Top := CellRect.Top + NewLabel.Height + 6;
-        NewControl.Width := CellRect.Right - CellRect.Left;
+        NewControl.Left := CellRect.Left + LabelWidth;
+        NewControl.Top := CellRect.Top;
+        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
         NewControl.Visible := True;
         TDateEdit(NewControl).Date := TValueDateTime(Row.Values[I]).Value;
@@ -134 +137 @@
         NewControl := TCheckBox.Create(Panel1);
         NewControl.Parent := Panel1;
-        NewControl.Left := CellRect.Left;
-        NewControl.Top := CellRect.Top + NewLabel.Height + 6;
-        NewControl.Width := CellRect.Right - CellRect.Left;
+        NewControl.Left := CellRect.Left + LabelWidth;
+        NewControl.Top := CellRect.Top;
+        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
         NewControl.Visible := True;
         TCheckBox(NewControl).Checked := TValueBoolean(Row.Values[I]).Value;
@@ -144 +147 @@
         NewControl := TFloatSpinEdit.Create(Panel1);
         NewControl.Parent := Panel1;
-        NewControl.Left := CellRect.Left;
-        NewControl.Top := CellRect.Top + NewLabel.Height + 6;
-        NewControl.Width := CellRect.Right - CellRect.Left;
+        NewControl.Left := CellRect.Left + LabelWidth;
+        NewControl.Top := CellRect.Top;
+        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
         NewControl.Visible := True;
         TFloatSpinEdit(NewControl).Value := TValueFloat(Row.Values[I]).Value;
+        Controls.Add(NewControl);
+      end;
+      ftImage: begin
+        NewControl := TImage.Create(Panel1);
+        NewControl.Parent := Panel1;
+        NewControl.Left := CellRect.Left + LabelWidth;
+        NewControl.Top := CellRect.Top;
+        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
+        NewControl.Height := NewLabel.Height;
+        NewControl.Visible := True;
+        //TImage(NewControl).Value := TValueFloat(Row.Values[I]).Value;
+        Controls.Add(NewControl);
+      end;
+      ftReference: begin
+        NewControl := TComboBox.Create(Panel1);
+        NewControl.Parent := Panel1;
+        NewControl.Left := CellRect.Left + LabelWidth;
+        NewControl.Top := CellRect.Top;
+        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
+        NewControl.Height := NewLabel.Height;
+        NewControl.Visible := True;
+
+        TComboBox(NewControl).Items.Add(IntToStr(TValueReference(Row.Values[I]).Value));
         Controls.Add(NewControl);
       end;
@@ -166 +192 @@
       ftBoolean: TValueBoolean(Row.Values[I]).Value := TCheckBox(Controls[I]).Checked;
       ftFloat: TValueFloat(Row.Values[I]).Value := TFloatSpinEdit(Controls[I]).Value;
+      //ftImage: TValueFloat(Row.Values[I]).Value := TFloatSpinEdit(Controls[I]).Value;
     end;
   end;