private void TPartnerFindScreen_Load(System.Object sender, System.EventArgs e) { FPetraUtilsObject.TFrmPetra_Load(sender, e); this.Cursor = Cursors.WaitCursor; #if TODO // Set up Splitter distances ucoPartnerFindCriteria.RestoreSplitterSetting(); RestoreSplitterSettings(); #endif FRunAsModalForm = this.Modal; FCurrentlySelectedTab.RunnningInsideModalForm = FRunAsModalForm; SetupGridContextMenu(); SetupFileMenu(); SetupMaintainMenu(); if (!FRunAsModalForm) { pnlModalButtons.Visible = false; // grdResult.Height = grdResult.Height + 24; // pnlBlankSearchResult.Height = pnlBlankSearchResult.Height + 24; } else { this.mnuMain.Visible = false; // Modal Dialogs don't have menus this.CancelButton = btnCancel; pnlModalButtons.Visible = true; pnlModalButtons.SendToBack(); pnlModalButtons.AutoScroll = false; // Modify auto-generated appearance of Panels pnlModalButtons.Height = 33; pnlAcceptCancelButtons.Location = new System.Drawing.Point(this.Width - pnlAcceptCancelButtons.Width - 10, 0); // Modify auto-generated appearance of Buttons btnHelp.Location = new System.Drawing.Point(btnHelp.Location.X, 5); btnAccept.Location = new System.Drawing.Point(btnAccept.Location.X, 5); btnCancel.Location = new System.Drawing.Point(btnCancel.Location.X, 5); btnHelp.Height = 23; btnAccept.Height = 23; btnCancel.Height = 23; // Modify automatic TabIndexes so that the Help Button comes last btnHelp.TabIndex = 1; pnlAcceptCancelButtons.TabIndex = 0; } #if TODO // Menu temporarily shown so we can test implemented 4GL calls from menus // TODO 1 oChristianK cModal : Menu needs to be hidden as soon 4GL can make nonmodal calls to this Form! // self.Menu:=nil; tbbEditPartner.Enabled = false; tabFindBankDetails.Enabled = false; #endif FPartnerFindObject = TRemote.MPartner.Partner.UIConnectors.PartnerFind(); ucoFindByPartnerDetails.PartnerFindObject = FPartnerFindObject; ucoFindByBankDetails.PartnerFindObject = FPartnerFindObject; // We're done! FFormSetupFinished = true; this.Cursor = Cursors.Default; if (TClientSettings.AutoTestParameters.Contains("run_randomfind")) { ucoFindByPartnerDetails.SetupRandomTestSearchCriteriaAndRunSearch(); } }
private void ReleaseServerObject() { FPartnerFindObject = null; }