Changeset 30 for trunk/Forms/UItemEdit.pas

Timestamp:

Nov 24, 2011, 8:35:25 AM (13 years ago)

Author:

chronos

Message:

• Added: TabControl in ItemEditForm for edit of OneToMany relations.

File:

• trunk/Forms/UItemEdit.pas (modified) (9 diffs)

trunk/Forms/UItemEdit.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit, USystem,
+  StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit, ComCtrls, USystem,
   SpecializedList, SpecializedDictionary;
 
@@ -15 +15 @@
 
   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
-    { private declarations }
+    SelectedItem: Integer;
+    SubListObject: TChronisObject;
+    TabObjectList: TListInteger;
+    TabDataTypeList: TListObject;
+    procedure LoadSubList;
   public
     Report: TReport;
@@ -37 +62 @@
 
 uses
-  UMainForm, UDataTypes, UCore;
+  UMainForm, UDataTypes, UCore, UItemAdd, UItemView;
 
 {$R *.lfm}
@@ -47 +72 @@
   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
+  if Assigned(ListView1.Selected) then
+    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];
+    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);
@@ -76 +144 @@
 end;
 
+procedure TItemEditForm.ButtonViewClick(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    ItemViewForm.Show;
+end;
+
 procedure TItemEditForm.FormClose(Sender: TObject; var CloseAction: TCloseAction
   );
@@ -84 +158 @@
 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;
 end;
 
 procedure TItemEditForm.FormDestroy(Sender: TObject);
 begin
+  SubListObject.Free;
   Report.Free;
+  TabObjectList.Free;
+  TabDataTypeList.Free;
 end;
 
@@ -97 +180 @@
   MainForm.PersistentForm.Load(Self);
   BuildControls;
+  LoadSubList;
 end;
 
@@ -106 +190 @@
   Column: Integer;
   DataType: TDataType;
-  NewControl: TWinControl;
-  NewLabel: TLabel;
+  NewControl: TControl;
+  NewWinControl: TWinControl;
 const
   ColumnCount = 2;
@@ -116 +200 @@
     IntToStr(MainForm.SelectedItem));
 
-  for I := Panel1.ControlCount - 1 downto 0 do
-    Panel1.Controls[I].Free;
-
+  // 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
-
-      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);
+      if DataType is TDataTypeRelationMany then begin
+        TabControl1.Tabs.Add(TReportColumn(Report.Columns[I]).Caption);
+        TabDataTypeList.Add(DataType);
+        TabObjectList.Add(MainForm.SelectedItem);
+      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(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;
+        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 + NewControl.Height + 4;
+        if Column = 0 then LastTop := LastTop + NewWinControl.Height + 4;
       end;
-   end;
-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
+  if Assigned(ListView1.Selected) then
+    SelectedItem := TReportLine(Report[ListView1.Selected.Index]).Id
+    else SelectedItem := 0;
+
+  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.