Changeset 4 for trunk/Forms/UFormRecord.pas

Timestamp:

Jan 18, 2015, 11:29:26 PM (10 years ago)

Author:

chronos

Message:

• Moved: Field and value data type declaration moved to separate unit.
• Modified: Fields edit form is now modal and made need changes need to be accepted.
• Added: 32x32 icons to actions.
• Fixed: If fileds count or type changed then table values are updated.

File:

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

trunk/Forms/UFormRecord.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  ComCtrls, ActnList, StdCtrls, EditBtn, UDatabase, Contnrs;
+  ComCtrls, ActnList, StdCtrls, EditBtn, UDatabase, Contnrs, Spin;
 
 type
@@ -42 +42 @@
 implementation
 
+uses
+  UDataTypes;
+
 {$R *.lfm}
 
@@ -48 +51 @@
 procedure TFormRecord.FormShow(Sender: TObject);
 begin
+  Caption := 'Table record edit - ' + Table.Caption;
   ReloadControls;
 end;
@@ -54 +58 @@
 begin
   ModalResult := mrCancel;
-  Close;
 end;
 
@@ -60 +63 @@
 begin
   ModalResult := mrOk;
-  Close;
 end;
 
@@ -109 +111 @@
         Controls.Add(NewControl);
       end;
+      ftInteger: begin
+        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.Visible := True;
+        TSpinEdit(NewControl).Value := TValueInteger(Row.Values[I]).Value;
+        Controls.Add(NewControl);
+      end;
       ftDateTime: begin
         NewControl := TDateEdit.Create(Panel1);
@@ -117 +129 @@
         NewControl.Visible := True;
         TDateEdit(NewControl).Date := TValueDateTime(Row.Values[I]).Value;
+        Controls.Add(NewControl);
+      end;
+      ftBoolean: begin
+        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.Visible := True;
+        TCheckBox(NewControl).Checked := TValueBoolean(Row.Values[I]).Value;
         Controls.Add(NewControl);
       end;
@@ -130 +152 @@
     case TField(Table.Fields[I]).FieldType of
       ftString: TValueString(Row.Values[I]).Value := TEdit(Controls[I]).Text;
+      ftInteger: TValueInteger(Row.Values[I]).Value := TSpinEdit(Controls[I]).Value;
       ftDateTime: TValueDateTime(Row.Values[I]).Value := TDateEdit(Controls[I]).Date;
+      ftBoolean: TValueBoolean(Row.Values[I]).Value := TCheckBox(Controls[I]).Checked;
     end;
   end;