Changeset 39 for trunk

Timestamp:

Mar 8, 2012, 4:03:59 PM (13 years ago)

Author:

chronos

Message:

 

Location:

trunk/Forms

Files:

• UItemList.pas (modified) (1 diff)
• UMainForm.lfm (modified) (1 diff)
• UMainForm.pas (modified) (1 diff)

trunk/Forms/UItemList.pas

@@ -87 +87 @@
     NewItemViewForm.SelectedItemId := Integer(ListView1.Selected.Data);
     NewItemViewForm.Caption := NewItemViewForm.Caption + ' ' + SelectedObject.Name;
-    MainForm.SetMainPanelForm(NewItemViewForm);
+    NewItemViewForm.ShowModal;
+    //MainForm.SetMainPanelForm(NewItemViewForm);
+    NewItemViewForm.Free;
   end;
 end;

trunk/Forms/UMainForm.lfm

@@ -206 +206 @@
     Panels = <    
       item
-        Width = 150
+        Width = 300
       end    
       item

trunk/Forms/UMainForm.pas

@@ -271 +271 @@
       Core.System.LoadTypes;
       LoadTree;
+      UpdateInterface;
     except
       on E: Exception do ShowMessage(E.Message);