Changeset 14 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormField.pas (modified) (1 diff)
• UFormFields.pas (modified) (1 diff)
• UFormMain.lfm (modified) (1 diff)
• UFormRecord.pas (modified) (8 diffs)

trunk/Forms/UFormField.pas

@@ -94 +94 @@
       ComboBoxType.Items.Add('');
     for I := 0 to Count - 1 do begin
-      ComboBoxType.Items.Strings[I] := TDataType(Items[I]).Name;
+      ComboBoxType.Items.Strings[I] := TDataType(Items[I]).Title;
       ComboBoxType.Items.Objects[I] := Items[I];
     end;

trunk/Forms/UFormFields.pas

@@ -131 +131 @@
   with TField(Fields[Item.Index]) do begin
     Item.Caption := Name;
-    Item.SubItems.Add(DataType.Name);
+    Item.SubItems.Add(DataType.Title);
     Item.SubItems.Add(BoolToStr(Required));
     Item.SubItems.Add(TextBefore);

trunk/Forms/UFormMain.lfm

@@ -12 +12 @@
   OnShow = FormShow
   LCLVersion = '1.5'
+  WindowState = wsMaximized
   object StatusBar1: TStatusBar
     Left = 0

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;