Changeset 32 for trunk/Forms/UMainForm.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/UMainForm.pas (modified) (2 diffs)

trunk/Forms/UMainForm.pas

@@ -326 +326 @@
   if Assigned(TreeView1.Selected) then begin
     NewItemListForm := TItemListForm.Create(Self);
-    NewItemListForm.SelectedObject.Id := Integer(TreeView1.Selected.Data);
+    NewItemListForm.SelectedObject.Load(Integer(TreeView1.Selected.Data));
+    NewItemListForm.Caption := NewItemListForm.Caption + ' ' + NewItemListForm.SelectedObject.Name;
     AddTabForm(NewItemListForm);
   end;
@@ -384 +385 @@
   NewTabSheet.UseDockManager := True;
   NewTabSheet.Caption := Form.Caption;
+  PageControl1.TabIndex := PageControl1.PageCount - 1;
   Form.DragKind := dkDock;
   Form.DragMode := dmAutomatic;
+  Form.ManualDock(NewTabSheet);
   Form.Show;
-  Form.ManualDock(NewTabSheet);
-  PageControl1.TabIndex := PageControl1.PageCount - 1;
+
+  // Workaround for not showing content of first tab after docking
+  NewTabSheet.Visible := False;
+  NewTabSheet.Visible := True;
 end;