source: branches/test1/Client/Forms/UFormItemAdd.pas

unit UFormItemAdd;

{$mode Delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, Spin, EditBtn, MaskEdit, USqlDatabase, USystem,
  SpecializedDictionary, SpecializedList, UPDClient;

type

  { TItemAddForm }

  TItemAddForm = class(TForm)
    ButtonCancel: TButton;
    ButtonSave: TButton;
    Panel1: TPanel;
    procedure ButtonCancelClick(Sender: TObject);
    procedure ButtonSaveClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: char);
    procedure FormShow(Sender: TObject);
  private
    procedure BuildControls;
    { private declarations }
  public
    SelectedObject: TChronisObject;
    SelectedItemId: Integer;
    Report: TReport;
  end;

var
  ItemAddForm: TItemAddForm;

implementation

uses
  UFormMain, UDataTypes, UCore;

{$R *.lfm}

{ TItemAddForm }

procedure TItemAddForm.ButtonCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TItemAddForm.ButtonSaveClick(Sender: TObject);
var
  Data: TDictionaryStringString;
  NewProxy: TObjectProxy;
  I: Integer;
  DataType: TDataType;
begin
  with Core.System do
  try
    Data := TDictionaryStringString.Create;
    NewProxy := TObjectProxy.Create;
    NewProxy.Client := Client;
    NewProxy.ObjectName := SelectedObject.Table;
    NewProxy.Path := SelectedObject.Schema;
    for I := 0 to Report.Columns.Count - 1 do
    if not (TReportColumn(Report.Columns[I]).CustomType is TDataTypeRelationMany) then
    if TReportColumn(Report.Columns[I]).ColumnName <> SelectedObject.PrimaryKey then begin
      DataType := TReportColumn(Report.Columns[I]).CustomType;
      NewProxy.Properties.Add(TReportColumn(Report.Columns[I]).ColumnName,
        DataType.GetControlValue(TWinControl(TReportColumn(Report.Columns[I]).Control)));
    end;
    NewProxy.Save;
  finally
    Data.Free;
    NewProxy.Free;
  end;
  //MainForm.LoadItemList;
  Close;
end;

procedure TItemAddForm.FormClose(Sender: TObject; var CloseAction: TCloseAction
  );
begin
  MainForm.PersistentForm.Save(Self);
end;

procedure TItemAddForm.FormCreate(Sender: TObject);
begin
  Report := TReport.Create;
  Report.Base := Core.System;
  SelectedObject := TChronisObject.Create;
  SelectedObject.Base := Core.System;
end;

procedure TItemAddForm.FormDestroy(Sender: TObject);
begin
  Report.Free;
  SelectedObject.Free;
end;

procedure TItemAddForm.FormKeyPress(Sender: TObject; var Key: char);
begin
  if Key = #27 then Close;
end;

procedure TItemAddForm.FormShow(Sender: TObject);
begin
  MainForm.PersistentForm.Load(Self);
  BuildControls;
end;

procedure TItemAddForm.BuildControls;
var
  NewControl: TWinControl;
  LastTop: Integer;
  I: Integer;
  Column: Integer;
  ValueType: Integer;
  NewLabel: TLabel;
  DataType: TDataType;
const
  ColumnCount = 2;
begin
  LastTop := 8;
  Column := 0;

  for I := Panel1.ControlCount - 1 downto 0 do
    Panel1.Controls[I].Free;

  Report.Load(SelectedObject, SelectedObject.PrimaryKey + ' = ' +
    IntToStr(SelectedItemId));

  // Load column names
    for I := 0 to Report.Columns.Count - 1 do
    if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
      NewLabel := TLabel.Create(Panel1);
      NewLabel.Parent := Panel1;
      NewLabel.Top := LastTop;
      NewLabel.Left := Column * Width div ColumnCount + 10;
      NewLabel.Caption := TReportColumn(Report.Columns[I]).Caption + ':';

      DataType := TReportColumn(Report.Columns[I]).CustomType;
      DataType.LoadDef(TReportColumn(Report.Columns[I]).CustomType.CustomType);
      if not (DataType is TDataTypeRelationMany) then begin
        NewControl := DataType.CreateControl(Panel1);
        DataType.SetDefault;
        DataType.SetupControl(NewControl);
        NewControl.Parent := Panel1;
        NewControl.Top := LastTop;
        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
        NewControl.Width := (Width div ColumnCount) div 2 - 20;
        TReportColumn(Report.Columns[I]).Control := NewControl;

        Column := (Column + 1) mod 2;
        if Column = 0 then LastTop := LastTop + NewControl.Height + 4;
      end;
    end;
end;


end.