Changeset 17 for trunk/Forms/UFormEdit.pas

Timestamp:

Nov 15, 2012, 2:56:05 PM (12 years ago)

Author:

chronos

Message:

• Opraveno: Editace časových údajů.
• Opraveno: Generování ovládacích prvků v okně editace.

File:

• trunk/Forms/UFormEdit.pas (modified) (3 diffs)

trunk/Forms/UFormEdit.pas

@@ -139 +139 @@
   W := 130;
   H := 24;
+  for I := PanelControls.ControlCount - 1 downto 0 do
+    PanelControls.Controls[I].Free;
   for I := 0 to View.Items.Count - 1 do
   with TFormItem(View.Items[I]) do begin
@@ -232 +234 @@
       NewControl := TDateEdit.Create(Self);
       NewControl.Parent := PanelControls;
-      TDateEdit(NewControl).Date := SQLToDateTime(Values.Values[Name]);
+      TDateEdit(NewControl).Date := SQLToDate(Values.Values[Name]);
       NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
        (Rect.Right - Rect.Left) * W - TEditButton(NewControl).Button.Width, (Rect.Bottom - Rect.Top) * H);
@@ -269 +271 @@
   with TFormItem(View.Items[I]) do begin
     case ControlType of
-      ctSpinEdit, ctDate, ctTime, ctDateTime, ctReference: Values.Add(Name, '0');
+      ctCheckBox, ctSpinEdit, ctReference: Values.Add(Name, '0');
+      ctDateTime: Values.Add(Name, '0000-00-00 00:00:00');
+      ctDate: Values.Add(Name, '0000-00-00');
+      ctTime: Values.Add(Name, '00:00:00');
       else Values.Add(Name, '');
     end;