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

unit UFormItemEdit;

{$mode Delphi}{$H+}

interface

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

type

  { TItemEditForm }

  TItemEditForm = class(TForm)
    ButtonAdd: TButton;
    ButtonDelete: TButton;
    ButtonEdit: TButton;
    ButtonSave: TButton;
    ButtonCancel: TButton;
    ButtonView: TButton;
    ListView1: TListView;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    PanelControls: TPanel;
    Splitter1: TSplitter;
    TabControl1: TTabControl;
    procedure ButtonAddClick(Sender: TObject);
    procedure ButtonCancelClick(Sender: TObject);
    procedure ButtonDeleteClick(Sender: TObject);
    procedure ButtonEditClick(Sender: TObject);
    procedure ButtonSaveClick(Sender: TObject);
    procedure ButtonViewClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1KeyPress(Sender: TObject; var Key: char);
    procedure ListView1Resize(Sender: TObject);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure TabControl1Change(Sender: TObject);
  private
    SubListObject: TChronisObject;
    TabObjectList: TListInteger;
    TabDataTypeList: TListObject;
    procedure LoadSubList;
  public
    SelectedObject: TChronisObject;
    SelectedItemId: Integer;
    Report: TReport;
    procedure BuildControls;
  end; 

var
  ItemEditForm: TItemEditForm;

implementation

uses
  UFormMain, UDataTypes, UCore, UFormItemAdd, UFormItemView, UFormMenu;

{$R *.lfm}

{ TItemEditForm }

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

procedure TItemEditForm.ButtonDeleteClick(Sender: TObject);
begin
  if MessageDlg(SItemDeletion, SReallyWantToDelete, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin

  end;
end;

procedure TItemEditForm.ButtonEditClick(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
    ItemEditForm.Show;
end;

procedure TItemEditForm.ButtonAddClick(Sender: TObject);
begin
  ItemAddForm.Show;
end;

procedure TItemEditForm.ListView1Data(Sender: TObject; Item: TListItem);
var
  I: Integer;
begin
  if Item.Index < Report.Count then
  with TReportLine(Report[Item.Index]) do begin
    Item.Caption := Items[0];
    Item.Data := Pointer(Id);
    for I := 1 to Items.Count - 1 do
    if not TReportColumn(Report.Columns[I]).VirtualItem then
      Item.SubItems.Add(Items[I]);
  end;
end;

procedure TItemEditForm.ListView1DblClick(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then ButtonView.Click;
end;

procedure TItemEditForm.ListView1KeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then ButtonView.Click;
end;


procedure TItemEditForm.ButtonSaveClick(Sender: TObject);
var
  Proxy: TObjectProxy;
  I: Integer;
  DataType: TDataType;
begin
  with Core.System do
  try
    Proxy := TObjectProxy.Create;
    Proxy.Client := Client;
    Proxy.ObjectName := SelectedObject.Table;
    Proxy.Path := SelectedObject.Schema;
    Proxy.Id := SelectedItemId;
    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;
      Proxy.Properties.Add(TReportColumn(Report.Columns[I]).ColumnName,
        DataType.GetControlValue(TWinControl(TReportColumn(Report.Columns[I]).Control)));
    end;
    Proxy.Save;
  finally
    Proxy.Free;
  end;
  if (SelectedObject.Table = SystemMenuTable) or
  (SelectedObject.Table = SystemObjectTable) then
    FormMenu.LoadTree;
  //MainForm.LoadItemList;
  Close;
end;

procedure TItemEditForm.ButtonViewClick(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
    ItemViewForm.Show;
end;

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

procedure TItemEditForm.FormCreate(Sender: TObject);
begin
  SubListObject := TChronisObject.Create;
  SubListObject.Base := Core.System;
  Report := TReport.Create;
  Report.Base := Core.System;
  TabObjectList := TListInteger.Create;
  TabDataTypeList := TListObject.Create;
  TabDataTypeList.OwnsObjects := False;
  TabControl1.Tabs.Clear;
  SelectedObject := TChronisObject.Create;
  SelectedObject.Base := Core.System;
end;

procedure TItemEditForm.FormDestroy(Sender: TObject);
begin
  SubListObject.Free;
  Report.Free;
  TabObjectList.Free;
  TabDataTypeList.Free;
  SelectedObject.Free;
end;

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

procedure TItemEditForm.BuildControls;
var
  Values: TDbRows;
  LastTop: Integer;
  I: Integer;
  Column: Integer;
  DataType: TDataType;
  NewControl: TControl;
  NewWinControl: TWinControl;
const
  ColumnCount = 2;
begin
  LastTop := 8;
  Column := 0;
  Report.Load(SelectedObject, SelectedObject.PrimaryKey + ' = ' +
    IntToStr(SelectedItemId));

  // Clear previous controls on panel
  for I := PanelControls.ControlCount - 1 downto 0 do
    PanelControls.Controls[I].Free;

  TabControl1.Tabs.Clear;
  TabObjectList.Clear;
  TabDataTypeList.Clear;
  if Report.Count = 1 then
    for I := 0 to Report.Columns.Count - 1 do
    if (TReportColumn(Report.Columns[I]).ColumnName <> 'Id') then begin
      DataType := TReportColumn(Report.Columns[I]).CustomType;
      DataType.LoadDef(TReportColumn(Report.Columns[I]).CustomType.CustomType);
      if DataType is TDataTypeRelationMany then begin
        TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
        TabDataTypeList.Add(DataType);
        TabObjectList.Add(SelectedItemId);
      end else begin
        NewControl := TLabel.Create(Panel1);
        NewControl.Parent := PanelControls;
        NewControl.Top := LastTop;
        NewControl.Left := Column * Width div ColumnCount + 10;
        TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';

        NewWinControl := DataType.CreateControl(Panel1);
        DataType.Load(TReportLine(Report[0]).Items[I]);
        DataType.SetupControl(NewWinControl);
        NewWinControl.Parent := Panel1;
        NewWinControl.Top := LastTop;
        NewWinControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
        NewWinControl.Width := (Width div ColumnCount) div 2 - 20;
        TReportColumn(Report.Columns[I]).Control := NewWinControl;

        Column := (Column + 1) mod 2;
        if Column = 0 then LastTop := LastTop + NewWinControl.Height + 4;
      end;
  end;
  // Panel1;
  // ListView1;
  // TabControl1;
  Panel2.Visible := TabControl1.Tabs.Count > 0;
end;

procedure TItemEditForm.LoadSubList;
begin
  //SelectedObjectId := 0;
  if (TabControl1.TabIndex >= 0) and (TabControl1.TabIndex < TabControl1.Tabs.Count) then
  with ListView1 do
  with TDataTypeRelationMany(TabDataTypeList[TabControl1.TabIndex]) do begin
    Visible := True;
    SubListObject.Load(ObjectId);
    Report.Load(SubListObject, '`' + PropertyName + '`=' + IntToStr(TabObjectList[TabControl1.TabIndex]));

    Report.FillListColumns(Columns);
    Items.Count := Report.Count;
    Refresh;
  end;
  ListView1Resize(Self);
end;

procedure TItemEditForm.ListView1Resize(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ListView1.Columns.Count - 1 do
    ListView1.Columns[I].Width := ListView1.Width div ListView1.Columns.Count;
end;

procedure TItemEditForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  ButtonDelete.Enabled := Assigned(ListView1.Selected);
  ButtonView.Enabled := Assigned(ListView1.Selected);
  ButtonEdit.Enabled := Assigned(ListView1.Selected);
end;

procedure TItemEditForm.TabControl1Change(Sender: TObject);
begin
  LoadSubList;
end;


end.