Changeset 15 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormEdit.lfm (modified) (3 diffs)
• UFormEdit.pas (modified) (4 diffs)

trunk/Forms/UFormEdit.lfm

@@ -1 +1 @@
 object FormEdit: TFormEdit
-  Left = 383
+  Left = 368
   Height = 341
   Top = 172
-  Width = 538
+  Width = 553
   Caption = 'Edit item'
   ClientHeight = 341
-  ClientWidth = 538
+  ClientWidth = 553
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   LCLVersion = '1.1'
   object ButtonOk: TButton
-    Left = 456
+    Left = 471
     Height = 25
     Top = 305
@@ -21 +21 @@
   end
   object ButtonCancel: TButton
-    Left = 368
+    Left = 383
     Height = 25
     Top = 305
@@ -34 +34 @@
     Height = 2
     Top = 297
-    Width = 523
+    Width = 538
     Anchors = [akLeft, akRight, akBottom]
   end
   object PanelControls: TPanel
-    Left = 4
-    Height = 473
-    Top = 4
-    Width = 530
+    Left = 0
+    Height = 290
+    Top = 0
+    Width = 553
     Align = alTop
     Anchors = [akTop, akLeft, akRight, akBottom]
-    BorderSpacing.Around = 4
     BevelOuter = bvNone
     TabOrder = 2

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;