source: trunk/Forms/FormRecord.pas

unit FormRecord;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  ComCtrls, ActnList, StdCtrls, EditBtn, DbEngine, Spin, Generics.Collections,
  FormEx;

type

  { TFormRecord }

  TFormRecord = class(TFormEx)
    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);
  public
    Table: TTable;
    Row: TRecord;
    Controls: TObjectList<TControl>;
    Labels: TObjectList<TControl>;
    procedure ReloadControls;
    procedure Load(DataRecord: TRecord);
    procedure Save(DataRecord: TRecord);
  end;


implementation

uses
  DataTypes;

{$R *.lfm}

resourcestring
  STableRecordEdit = 'Table record edit';

{ TFormRecord }

procedure TFormRecord.FormShow(Sender: TObject);
begin
  Caption := STableRecordEdit + ' - ' + Table.Caption;
  ReloadControls;
end;

procedure TFormRecord.ACancelExecute(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TFormRecord.ASaveExecute(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TFormRecord.FormCreate(Sender: TObject);
begin
  Controls := TObjectList<TControl>.Create;
  Labels := TObjectList<TControl>.Create;
end;

procedure TFormRecord.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Labels);
  FreeAndNil(Controls);
end;

procedure TFormRecord.ReloadControls;
begin
end;

procedure TFormRecord.Load(DataRecord: TRecord);
var
  I: Integer;
  NewLabel: TLabel;
  NewControl: TControl;
  CellRect: TRect;
const
  LabelWidth = 300;
var
  LineHeight: Integer;
begin
  LineHeight := TFormEx.ScaleDPI.ScaleY(35, TFormEx.ScaleDPI.DesignDPI.Y);

  Row := DataRecord;
  Controls.Clear;
  Labels.Clear;
  for I := 0 to Table.Fields.Count - 1 do begin
    CellRect := Rect(10, 10 + I * LineHeight, Panel1.Width - 20, (I + 1) * LineHeight);
    NewLabel := TLabel.Create(Panel1);
    NewLabel.Caption := Table.Fields[I].TextBefore;
    NewLabel.Parent := Panel1;
    NewLabel.Left := CellRect.Left;
    NewLabel.Top := CellRect.Top;
    NewLabel.Visible := True;
    Labels.Add(NewLabel);
    case Table.Fields[I].DataType.FieldType of
      ftString: begin
        NewControl := TEdit.Create(Panel1);
        NewControl.Anchors := [akLeft, akTop, akRight];
        NewControl.Parent := Panel1;
        NewControl.Left := CellRect.Left + LabelWidth;
        NewControl.Top := CellRect.Top;
        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
        NewControl.Visible := True;
        TEdit(NewControl).Text := TValueString(Row.Values[I]).Value;
        Controls.Add(NewControl);
      end;
      ftInteger: begin
        NewControl := TSpinEdit.Create(Panel1);
        NewControl.Parent := Panel1;
        NewControl.Left := CellRect.Left + LabelWidth;
        NewControl.Top := CellRect.Top;
        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
        NewControl.Visible := True;
        TSpinEdit(NewControl).Value := TValueInteger(Row.Values[I]).Value;
        Controls.Add(NewControl);
      end;
      ftDateTime: begin
        NewControl := TDateEdit.Create(Panel1);
        NewControl.Parent := Panel1;
        NewControl.Left := CellRect.Left + LabelWidth;
        NewControl.Top := CellRect.Top;
        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
        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 + LabelWidth;
        NewControl.Top := CellRect.Top;
        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
        NewControl.Visible := True;
        TCheckBox(NewControl).Checked := TValueBoolean(Row.Values[I]).Value;
        Controls.Add(NewControl);
      end;
      ftFloat: begin
        NewControl := TFloatSpinEdit.Create(Panel1);
        NewControl.Parent := Panel1;
        NewControl.Left := CellRect.Left + LabelWidth;
        NewControl.Top := CellRect.Top;
        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
        NewControl.Visible := True;
        TFloatSpinEdit(NewControl).Value := TValueFloat(Row.Values[I]).Value;
        Controls.Add(NewControl);
      end;
      ftImage: begin
        NewControl := TImage.Create(Panel1);
        NewControl.Parent := Panel1;
        NewControl.Left := CellRect.Left + LabelWidth;
        NewControl.Top := CellRect.Top;
        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
        NewControl.Height := NewLabel.Height;
        NewControl.Visible := True;
        //TImage(NewControl).Value := TValueFloat(Row.Values[I]).Value;
        Controls.Add(NewControl);
      end;
      ftReference: begin
        NewControl := TComboBox.Create(Panel1);
        NewControl.Parent := Panel1;
        NewControl.Left := CellRect.Left + LabelWidth;
        NewControl.Top := CellRect.Top;
        NewControl.Width := CellRect.Right - CellRect.Left - LabelWidth;
        NewControl.Height := NewLabel.Height;
        NewControl.Visible := True;

        TComboBox(NewControl).Items.Add(IntToStr(TValueReference(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 Table.Fields[I].DataType.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;
      ftFloat: TValueFloat(Row.Values[I]).Value := TFloatSpinEdit(Controls[I]).Value;
      //ftImage: TValueFloat(Row.Values[I]).Value := TFloatSpinEdit(Controls[I]).Value;
    end;
  end;
end;

end.