public frmList(clsSupport objSupport, clsTCBase objTCBase, Form objParent, string Caption, DataView DataSource, int Position, bool AllowUpdate, string KeyField) : base(objSupport, "frmList", objTCBase, objParent)
{
KeyUp += Form_KeyUp;
Closing += frmList_Closing;
Load += frmList_Load;
InitializeComponent();
if ((Caption != null))
{
this.Text = Caption;
}
mRegistryKey = string.Format("{0}\\{1} Settings\\List Settings", mTCBase.RegistryKey, mTCBase.ActiveForm.Name);
mKeyField = KeyField;
this.Icon = mTCBase.ActiveForm.Icon;
this.dgList.DataSource = DataSource;
this.Text = "Unfiltered";
if ((DataSource.RowFilter != null) && DataSource.RowFilter != bpeNullString)
{
this.Text = "RowFilter: " + DataSource.RowFilter;
}
this.Text += string.Format(" ({0:#,##0} Rows)", DataSource.Count);
this.dgList.ReadOnly = !AllowUpdate;
this.dgList.CurrentCell = this.dgList[0, Position];
this.dgList.CurrentRow.Selected = true;
mTCBase.ListChanged += tcDataView_ListChanged;
}
public frmReport(clsSupport objSupport, clsTCBase objTCBase, Form objParent = null, string Caption = null) : base(objSupport, "frmReport", objTCBase, objParent)
{
Closing += frmReport_Closing;
Activated += frmReport_Activated;
InitializeComponent();
if ((Caption != null))
{
this.Text = Caption;
}
mRegistryKey = string.Format("{0}\\{1} Settings\\Report Settings", mTCBase.RegistryKey, ((mTCBase.ActiveForm == null) ? "frmMain" : mTCBase.ActiveForm.Name));
}
public frmQuery(clsSupport objSupport, clsTCBase objTCBase, Form objParent = null, string Caption = null) : base(objSupport, "frmQuery", objTCBase, objParent)
{
InitializeComponent();
if ((Caption != null))
{
this.Text = Caption;
}
mSQLForm = (frmSQL)objParent;
var _with1 = tooltipQuery;
_with1.SetToolTip(this.txtName, "Query Name");
_with1.SetToolTip(this.txtDescription, "Description of Query");
this.Icon = objParent.Icon;
}
public frmError(clsTCBase objTCBase, Form objParent = null) : base(objTCBase.Support, "frmError", objParent)
{
Closing += Form_Closing;
Resize += Form_Resize;
mTCBase = objTCBase;
mSupport = objTCBase.Support;
if (TCBase.MyComputer.Screen.Bounds.Width > 640 && TCBase.MyComputer.Screen.Bounds.Height > 480)
{
this.MaximumSize = new Size(800, 600);
}
else
{
//Size the form to VGA Minimums...
this.MaximumSize = new Size(640, 480);
}
//This call is required by the Windows Form Designer.
InitializeComponent();
picIcon.Image = ImgIcons.Images[(int)ImagesEnum.vbExclamationImage];
//Use as default...
}
