Changeset 5 for trunk/Forms/UFormRecord.pas

Timestamp:

Jan 18, 2015, 11:41:05 PM (10 years ago)

Author:

chronos

Message:

• Added: Support for float type.

File:

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

trunk/Forms/UFormRecord.pas

@@ -141 +141 @@
         Controls.Add(NewControl);
       end;
+      ftFloat: begin
+        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.Visible := True;
+        TFloatSpinEdit(NewControl).Value := TValueFloat(Row.Values[I]).Value;
+        Controls.Add(NewControl);
+      end;
     end;
   end;
@@ -155 +165 @@
       ftDateTime: TValueDateTime(Row.Values[I]).Value := TDateEdit(Controls[I]).Date;
       ftBoolean: TValueBoolean(Row.Values[I]).Value := TCheckBox(Controls[I]).Checked;
+      ftFloat: TValueFloat(Row.Values[I]).Value := TFloatSpinEdit(Controls[I]).Value;
     end;
   end;