Changeset 15 for trunk/Forms/UFormEdit.pas

Timestamp:

Nov 15, 2012, 12:34:33 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Doplněno zobrazení formuláře pro úpravu všech tabulek docházky.

File:

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

trunk/Forms/UFormEdit.pas

@@ -48 +48 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CalcEdit1: TCalcEdit;
     PanelControls: TPanel;
     procedure FormCreate(Sender: TObject);
@@ -244 +245 @@
       NewControl := TDateEdit.Create(Self);
       NewControl.Parent := PanelControls;
-      TDateEdit(NewControl).Date := MySQLStrToFloat(Values.Values[Name]);
-      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
-       (Rect.Right - Rect.Left) * W - 28, (Rect.Bottom - Rect.Top) * H);
+      TDateEdit(NewControl).Date := SQLToDateTime(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);
       NewControl.Show;
     end else
@@ -252 +253 @@
       NewControl := TEdit.Create(Self);
       NewControl.Parent := PanelControls;
-      TEdit(NewControl).Text := TimeToStr(MySQLStrToFloat(Values.Values[Name]));
+      TEdit(NewControl).Text := TimeToStr(SQLToTime(Values.Values[Name]));
       NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
        (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
@@ -258 +259 @@
     end else
     if ControlType = ctReference then begin
-      NewControl := TEdit.Create(Self);
-      NewControl.Parent := PanelControls;
-      TEdit(NewControl).Text := Values.Values[Name];
-      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
-       (Rect.Right - Rect.Left) * W - 28, (Rect.Bottom - Rect.Top) * H);
-      NewControl.Show;
-      NewControl := TBitBtn.Create(Self);
-      NewControl.Parent := PanelControls;
-      TBitBtn(NewControl).Caption := '';
-      NewControl.SetBounds(Rect.Right * W - 28, Rect.Top * H, 24, 24);
-      FormMain.ImageList1.GetBitmap(4, TBitBtn(NewControl).Glyph);
+      NewControl := TEditButton.Create(Self);
+      NewControl.Parent := PanelControls;
+      TEditButton(NewControl).Text := Values.Values[Name];
+      FormMain.ImageList1.GetBitmap(4, TEditButton(NewControl).Glyph);
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W - TEditButton(NewControl).Button.Width,
+       (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;
     end;