root/trunk/Forms/frm_main.pas
Download diff| 448 | 463 | ||
|---|---|---|---|
6404 | 6404 | ||
6405 | frmBases := TfrmBases.Create(Application); | 6405 | frmBases := TfrmBases.Create(Application); |
6406 | try | 6406 | try |
6407 | frmBases.TabSheet2.TabVisible := isOnline; | 6407 | frmBases.tsConnectionInfo.TabVisible := isOnline; |
6408 | if frmBases.ShowModal = mrOk then | 6408 | if frmBases.ShowModal = mrOk then |
6409 | begin | 6409 | begin |
6410 | Assert(Settings.ActiveCollection = DMUser.ActiveCollection.ID); | 6410 | Assert(Settings.ActiveCollection = DMUser.ActiveCollection.ID); |