Changeset 40 for trunk/Forms/UItemList.pas

Timestamp:

Mar 9, 2012, 8:11:13 AM (13 years ago)

Author:

chronos

Message:

• Added: Remember last password in login dialog.
• Fixed: Some Add, Edit, View, Select dialog display.

File:

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

trunk/Forms/UItemList.pas

@@ -117 +117 @@
   NewItemEditForm: TItemEditForm;
 begin
-  if Assigned(ListView1.Selected) then begin
+  if Assigned(ListView1.Selected) then
+  try
     NewItemEditForm := TItemEditForm.Create(nil);
     NewItemEditForm.SelectedObject.Assign(SelectedObject);
     NewItemEditForm.SelectedItemId := Integer(ListView1.Selected.Data);
     NewItemEditForm.Caption := NewItemEditForm.Caption + ' ' + SelectedObject.Name;
-    MainForm.SetMainPanelForm(NewItemEditForm);
+    NewItemEditForm.ShowModal;
+  finally
+    NewItemEditForm.Free;
   end;
 end;
@@ -130 +133 @@
   NewItemAddForm: TItemAddForm;
 begin
-  NewItemAddForm := TItemAddForm.Create(nil);
-  NewItemAddForm.SelectedObject.Assign(SelectedObject);
-  NewItemAddForm.SelectedItemId := Integer(ListView1.Selected.Data);
-  NewItemAddForm.Caption := NewItemAddForm.Caption + ' ' + SelectedObject.Name;
-  MainForm.SetMainPanelForm(NewItemAddForm);
+  try
+    NewItemAddForm := TItemAddForm.Create(nil);
+    NewItemAddForm.SelectedObject.Assign(SelectedObject);
+    //NewItemAddForm.SelectedItemId := Integer(ListView1.Selected.Data);
+    NewItemAddForm.Caption := NewItemAddForm.Caption + ' ' + SelectedObject.Name;
+    NewItemAddForm.ShowModal;
+  finally
+    NewItemAddForm.Free;
+  end;
 end;