Changeset 3 for trunk/Forms/UFormRecord.pas

Timestamp:

Jan 18, 2015, 5:25:37 PM (10 years ago)

Author:

chronos

Message:

• Added: Support for editing String and DateTime value types in record edit form.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormRecord.pas (modified) (3 diffs)

trunk

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml

trunk/Forms/UFormRecord.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, UDatabase;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
+  ComCtrls, ActnList, StdCtrls, EditBtn, UDatabase, Contnrs;
 
 type
+
+  { TFormRecord }
+
   TFormRecord = class(TForm)
+    ASave: TAction;
+    ACancel: TAction;
+    ActionList1: TActionList;
+    ButtonOk: TButton;
+    ButtonCancel: TButton;
+    Panel1: TPanel;
+    procedure ACancelExecute(Sender: TObject);
+    procedure ASaveExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
@@ -15 +30 @@
     Table: TTable;
     Row: TRecord;
+    Controls: TObjectList; // TListObject<TControl>
+    Labels: TObjectList; // TListObject<TControl>
+    procedure ReloadControls;
+    procedure Load(DataRecord: TRecord);
+    procedure Save(DataRecord: TRecord);
   end;
 
@@ -24 +44 @@
 {$R *.lfm}
 
+{ TFormRecord }
+
+procedure TFormRecord.FormShow(Sender: TObject);
+begin
+  ReloadControls;
+end;
+
+procedure TFormRecord.ACancelExecute(Sender: TObject);
+begin
+  ModalResult := mrCancel;
+  Close;
+end;
+
+procedure TFormRecord.ASaveExecute(Sender: TObject);
+begin
+  ModalResult := mrOk;
+  Close;
+end;
+
+procedure TFormRecord.FormCreate(Sender: TObject);
+begin
+  Controls := TObjectList.Create;
+  Labels := TObjectList.Create;
+end;
+
+procedure TFormRecord.FormDestroy(Sender: TObject);
+begin
+  Labels.Free;
+  Controls.Free;
+end;
+
+procedure TFormRecord.ReloadControls;
+begin
+end;
+
+procedure TFormRecord.Load(DataRecord: TRecord);
+var
+  I: Integer;
+  NewLabel: TLabel;
+  NewControl: TControl;
+  CellRect: TRect;
+begin
+  Row := DataRecord;
+  Controls.Clear;
+  Labels.Clear;
+  for I := 0 to Table.Fields.Count - 1 do begin
+    CellRect := Rect(10, 10 + I * 70, Panel1.Width - 20, (I + 1) * 70);
+    NewLabel := TLabel.Create(Panel1);
+    NewLabel.Caption := TField(Table.Fields[I]).TextBefore;
+    NewLabel.Parent := Panel1;
+    NewLabel.Left := CellRect.Left;
+    NewLabel.Top := CellRect.Top;
+    NewLabel.Visible := True;
+    Labels.Add(NewLabel);
+    case TField(Table.Fields[I]).FieldType of
+      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.Visible := True;
+        TEdit(NewControl).Text := TValueString(Row.Values[I]).Value;
+        Controls.Add(NewControl);
+      end;
+      ftDateTime: begin
+        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.Visible := True;
+        TDateEdit(NewControl).Date := TValueDateTime(Row.Values[I]).Value;
+        Controls.Add(NewControl);
+      end;
+    end;
+  end;
+end;
+
+procedure TFormRecord.Save(DataRecord: TRecord);
+var
+  I: Integer;
+begin
+  for I := 0 to Table.Fields.Count - 1 do begin
+    case TField(Table.Fields[I]).FieldType of
+      ftString: TValueString(Row.Values[I]).Value := TEdit(Controls[I]).Text;
+      ftDateTime: TValueDateTime(Row.Values[I]).Value := TDateEdit(Controls[I]).Date;
+    end;
+  end;
+end;
+
 end.
 

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml