Changeset 32 for trunk/Forms/UItemList.pas

Timestamp:

Nov 24, 2011, 10:31:04 AM (13 years ago)

Author:

chronos

Message:

• Modified: Better form addition to tab list. Better tab titles.

File:

• trunk/Forms/UItemList.pas (modified) (4 diffs)

trunk/Forms/UItemList.pas

@@ -67 +67 @@
   with ListView1 do begin
     Visible := True;
-    SelectedObject.Load(SelectedObject.Id);
+    //SelectedObject.Load(SelectedObject.Id);
     Report.Load(SelectedObject);
 
@@ -86 +86 @@
     NewItemViewForm.SelectedObject.Assign(SelectedObject);
     NewItemViewForm.SelectedItemId := Integer(ListView1.Selected.Data);
+    NewItemViewForm.Caption := NewItemViewForm.Caption + ' ' + SelectedObject.Name;
     MainForm.AddTabForm(NewItemViewForm);
   end;
@@ -118 +119 @@
     NewItemEditForm.SelectedObject.Assign(SelectedObject);
     NewItemEditForm.SelectedItemId := Integer(ListView1.Selected.Data);
+    NewItemEditForm.Caption := NewItemEditForm.Caption + ' ' + SelectedObject.Name;
     MainForm.AddTabForm(NewItemEditForm);
   end;
@@ -129 +131 @@
   NewItemAddForm.SelectedObject.Assign(SelectedObject);
   NewItemAddForm.SelectedItemId := Integer(ListView1.Selected.Data);
+  NewItemAddForm.Caption := NewItemAddForm.Caption + ' ' + SelectedObject.Name;
   MainForm.AddTabForm(NewItemAddForm);
 end;