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;
}
