Open Door - Reporting, Charts, Enquiry Drill-Downs

imports nbfSqlReporter
imports System.drawing
imports System.Windows.Forms
Public Class nbfEditRepGrid
    Inherits System.Windows.Forms.Form
    Public g as nbfSqlSource
    Public bc As nbfBrowseCtrl
    Public SI As nbfStyleInfo.AppStyle
    Friend WithEvents chkUnderlineRows As System.Windows.Forms.CheckBox
    Public bfi as nbfSqlReporter.nbfBrowseFormInfo
#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown
    Friend WithEvents NumericUpDown2 As System.Windows.Forms.NumericUpDown
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents txtTitle As System.Windows.Forms.TextBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents txtSubTitle As System.Windows.Forms.TextBox
    Friend WithEvents chkUseSubDes As System.Windows.Forms.CheckBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents txtTotDes As System.Windows.Forms.TextBox
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents txtSubDes As System.Windows.Forms.TextBox
    Friend WithEvents chkUseTotDes As System.Windows.Forms.CheckBox
    Friend WithEvents chkDisableTotals As System.Windows.Forms.CheckBox
    Friend WithEvents chkShowSubTot As System.Windows.Forms.CheckBox
    Friend WithEvents chkShowTot As System.Windows.Forms.CheckBox
    Friend WithEvents chkShowGrandTot As System.Windows.Forms.CheckBox
    Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog
    Friend WithEvents chkNewPageBreak1 As System.Windows.Forms.CheckBox
    Friend WithEvents chkNewPageBreak2 As System.Windows.Forms.CheckBox
    Friend WithEvents chkTopBorder As System.Windows.Forms.CheckBox
    Friend WithEvents chkBottomBorder As System.Windows.Forms.CheckBox
    Friend WithEvents chkLeftBorder As System.Windows.Forms.CheckBox
    Friend WithEvents chkRightBorder As System.Windows.Forms.CheckBox
    Friend WithEvents chkHeaderBorder As System.Windows.Forms.CheckBox
    Friend WithEvents chkUnderlineHeader As System.Windows.Forms.CheckBox
    Friend WithEvents btnHeadFont As System.Windows.Forms.Button
    Friend WithEvents chkColSep As System.Windows.Forms.CheckBox
    Friend WithEvents chkColsToTop As System.Windows.Forms.CheckBox
    Friend WithEvents btnSubHeadFont As System.Windows.Forms.Button
    Friend WithEvents btnStdFont As System.Windows.Forms.Button
    Friend WithEvents btnBreak1Font As System.Windows.Forms.Button
    Friend WithEvents btnColHeadFont As System.Windows.Forms.Button
    Friend WithEvents btnBreak2Font As System.Windows.Forms.Button
    Friend WithEvents btnOK As System.Windows.Forms.Button
    Friend WithEvents btnColInfo As System.Windows.Forms.Button
    Friend WithEvents ChkFlowThrough As System.Windows.Forms.CheckBox
    Friend WithEvents CheckCanGrow As System.Windows.Forms.CheckBox
    Friend WithEvents HelpProvider1 As System.Windows.Forms.HelpProvider
    Friend WithEvents btnDrillParameters As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(nbfEditRepGrid))
        Me.txtTitle = New System.Windows.Forms.TextBox
        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown
        Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.Label4 = New System.Windows.Forms.Label
        Me.txtSubTitle = New System.Windows.Forms.TextBox
        Me.chkUseSubDes = New System.Windows.Forms.CheckBox
        Me.Label5 = New System.Windows.Forms.Label
        Me.txtTotDes = New System.Windows.Forms.TextBox
        Me.Label6 = New System.Windows.Forms.Label
        Me.txtSubDes = New System.Windows.Forms.TextBox
        Me.chkUseTotDes = New System.Windows.Forms.CheckBox
        Me.chkDisableTotals = New System.Windows.Forms.CheckBox
        Me.chkShowSubTot = New System.Windows.Forms.CheckBox
        Me.chkShowTot = New System.Windows.Forms.CheckBox
        Me.chkShowGrandTot = New System.Windows.Forms.CheckBox
        Me.FontDialog1 = New System.Windows.Forms.FontDialog
        Me.btnHeadFont = New System.Windows.Forms.Button
        Me.chkNewPageBreak1 = New System.Windows.Forms.CheckBox
        Me.chkNewPageBreak2 = New System.Windows.Forms.CheckBox
        Me.chkTopBorder = New System.Windows.Forms.CheckBox
        Me.chkBottomBorder = New System.Windows.Forms.CheckBox
        Me.chkLeftBorder = New System.Windows.Forms.CheckBox
        Me.chkRightBorder = New System.Windows.Forms.CheckBox
        Me.chkHeaderBorder = New System.Windows.Forms.CheckBox
        Me.chkUnderlineHeader = New System.Windows.Forms.CheckBox
        Me.chkColSep = New System.Windows.Forms.CheckBox
        Me.chkColsToTop = New System.Windows.Forms.CheckBox
        Me.btnSubHeadFont = New System.Windows.Forms.Button
        Me.btnStdFont = New System.Windows.Forms.Button
        Me.btnBreak1Font = New System.Windows.Forms.Button
        Me.btnColHeadFont = New System.Windows.Forms.Button
        Me.btnBreak2Font = New System.Windows.Forms.Button
        Me.btnOK = New System.Windows.Forms.Button
        Me.btnColInfo = New System.Windows.Forms.Button
        Me.ChkFlowThrough = New System.Windows.Forms.CheckBox
        Me.CheckCanGrow = New System.Windows.Forms.CheckBox
        Me.HelpProvider1 = New System.Windows.Forms.HelpProvider
        Me.btnDrillParameters = New System.Windows.Forms.Button
        Me.chkUnderlineRows = New System.Windows.Forms.CheckBox
        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'txtTitle
        '
        Me.txtTitle.Location = New System.Drawing.Point(4, 24)
        Me.txtTitle.Name = "txtTitle"
        Me.txtTitle.Size = New System.Drawing.Size(160, 20)
        Me.txtTitle.TabIndex = 0
        '
        'NumericUpDown1
        '
        Me.NumericUpDown1.Location = New System.Drawing.Point(4, 68)
        Me.NumericUpDown1.Name = "NumericUpDown1"
        Me.NumericUpDown1.Size = New System.Drawing.Size(124, 20)
        Me.NumericUpDown1.TabIndex = 2
        '
        'NumericUpDown2
        '
        Me.NumericUpDown2.Location = New System.Drawing.Point(172, 68)
        Me.NumericUpDown2.Name = "NumericUpDown2"
        Me.NumericUpDown2.Size = New System.Drawing.Size(124, 20)
        Me.NumericUpDown2.TabIndex = 3
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(4, 52)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(124, 16)
        Me.Label1.TabIndex = 3
        Me.Label1.Text = "No. of Cols for Break 1"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(172, 52)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(124, 16)
        Me.Label2.TabIndex = 4
        Me.Label2.Text = "No. of Cols for Break 2"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(4, 8)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(148, 16)
        Me.Label3.TabIndex = 29
        Me.Label3.Text = "Title"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(172, 8)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(148, 16)
        Me.Label4.TabIndex = 7
        Me.Label4.Text = "Sub Title"
        '
        'txtSubTitle
        '
        Me.txtSubTitle.Location = New System.Drawing.Point(172, 24)
        Me.txtSubTitle.Name = "txtSubTitle"
        Me.txtSubTitle.Size = New System.Drawing.Size(160, 20)
        Me.txtSubTitle.TabIndex = 1
        '
        'chkUseSubDes
        '
        Me.chkUseSubDes.Location = New System.Drawing.Point(8, 180)
        Me.chkUseSubDes.Name = "chkUseSubDes"
        Me.chkUseSubDes.Size = New System.Drawing.Size(276, 20)
        Me.chkUseSubDes.TabIndex = 7
        Me.chkUseSubDes.Text = "Use Field Values for Sub Total Descriptions"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(176, 100)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(148, 16)
        Me.Label5.TabIndex = 12
        Me.Label5.Text = "Total Description"
        '
        'txtTotDes
        '
        Me.txtTotDes.Location = New System.Drawing.Point(176, 116)
        Me.txtTotDes.Name = "txtTotDes"
        Me.txtTotDes.Size = New System.Drawing.Size(160, 20)
        Me.txtTotDes.TabIndex = 5
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(8, 100)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(148, 16)
        Me.Label6.TabIndex = 11
        Me.Label6.Text = "Sub Total Description"
        '
        'txtSubDes
        '
        Me.txtSubDes.Location = New System.Drawing.Point(8, 116)
        Me.txtSubDes.Name = "txtSubDes"
        Me.txtSubDes.Size = New System.Drawing.Size(160, 20)
        Me.txtSubDes.TabIndex = 4
        '
        'chkUseTotDes
        '
        Me.chkUseTotDes.Location = New System.Drawing.Point(8, 204)
        Me.chkUseTotDes.Name = "chkUseTotDes"
        Me.chkUseTotDes.Size = New System.Drawing.Size(276, 20)
        Me.chkUseTotDes.TabIndex = 8
        Me.chkUseTotDes.Text = "Use Field Values for Total Descriptions"
        '
        'chkDisableTotals
        '
        Me.chkDisableTotals.Location = New System.Drawing.Point(8, 152)
        Me.chkDisableTotals.Name = "chkDisableTotals"
        Me.chkDisableTotals.Size = New System.Drawing.Size(132, 16)
        Me.chkDisableTotals.TabIndex = 6
        Me.chkDisableTotals.Text = "Disable All Totals"
        '
        'chkShowSubTot
        '
        Me.chkShowSubTot.Location = New System.Drawing.Point(8, 236)
        Me.chkShowSubTot.Name = "chkShowSubTot"
        Me.chkShowSubTot.Size = New System.Drawing.Size(276, 16)
        Me.chkShowSubTot.TabIndex = 9
        Me.chkShowSubTot.Text = "Show Sub Totals"
        '
        'chkShowTot
        '
        Me.chkShowTot.Location = New System.Drawing.Point(8, 256)
        Me.chkShowTot.Name = "chkShowTot"
        Me.chkShowTot.Size = New System.Drawing.Size(276, 16)
        Me.chkShowTot.TabIndex = 10
        Me.chkShowTot.Text = "Show Totals"
        '
        'chkShowGrandTot
        '
        Me.chkShowGrandTot.Location = New System.Drawing.Point(8, 276)
        Me.chkShowGrandTot.Name = "chkShowGrandTot"
        Me.chkShowGrandTot.Size = New System.Drawing.Size(276, 16)
        Me.chkShowGrandTot.TabIndex = 11
        Me.chkShowGrandTot.Text = "Show Grand Totals"
        '
        'btnHeadFont
        '
        Me.btnHeadFont.Location = New System.Drawing.Point(348, 108)
        Me.btnHeadFont.Name = "btnHeadFont"
        Me.btnHeadFont.Size = New System.Drawing.Size(148, 20)
        Me.btnHeadFont.TabIndex = 28
        Me.btnHeadFont.Text = "Header Font"
        '
        'chkNewPageBreak1
        '
        Me.chkNewPageBreak1.Location = New System.Drawing.Point(296, 180)
        Me.chkNewPageBreak1.Name = "chkNewPageBreak1"
        Me.chkNewPageBreak1.Size = New System.Drawing.Size(204, 16)
        Me.chkNewPageBreak1.TabIndex = 16
        Me.chkNewPageBreak1.Text = "New Page on Break 1"
        '
        'chkNewPageBreak2
        '
        Me.chkNewPageBreak2.Location = New System.Drawing.Point(296, 204)
        Me.chkNewPageBreak2.Name = "chkNewPageBreak2"
        Me.chkNewPageBreak2.Size = New System.Drawing.Size(204, 16)
        Me.chkNewPageBreak2.TabIndex = 17
        Me.chkNewPageBreak2.Text = "New Page on Break 2"
        '
        'chkTopBorder
        '
        Me.chkTopBorder.Location = New System.Drawing.Point(296, 232)
        Me.chkTopBorder.Name = "chkTopBorder"
        Me.chkTopBorder.Size = New System.Drawing.Size(204, 16)
        Me.chkTopBorder.TabIndex = 18
        Me.chkTopBorder.Text = "Draw Top Border Line"
        '
        'chkBottomBorder
        '
        Me.chkBottomBorder.Location = New System.Drawing.Point(296, 252)
        Me.chkBottomBorder.Name = "chkBottomBorder"
        Me.chkBottomBorder.Size = New System.Drawing.Size(204, 16)
        Me.chkBottomBorder.TabIndex = 19
        Me.chkBottomBorder.Text = "Draw Bottom Border Line"
        '
        'chkLeftBorder
        '
        Me.chkLeftBorder.Location = New System.Drawing.Point(296, 272)
        Me.chkLeftBorder.Name = "chkLeftBorder"
        Me.chkLeftBorder.Size = New System.Drawing.Size(204, 16)
        Me.chkLeftBorder.TabIndex = 20
        Me.chkLeftBorder.Text = "Draw Left Border Line"
        '
        'chkRightBorder
        '
        Me.chkRightBorder.Location = New System.Drawing.Point(296, 292)
        Me.chkRightBorder.Name = "chkRightBorder"
        Me.chkRightBorder.Size = New System.Drawing.Size(204, 16)
        Me.chkRightBorder.TabIndex = 21
        Me.chkRightBorder.Text = "Draw Right Border Line"
        '
        'chkHeaderBorder
        '
        Me.chkHeaderBorder.Location = New System.Drawing.Point(296, 312)
        Me.chkHeaderBorder.Name = "chkHeaderBorder"
        Me.chkHeaderBorder.Size = New System.Drawing.Size(204, 16)
        Me.chkHeaderBorder.TabIndex = 22
        Me.chkHeaderBorder.Text = "Draw Header Border Line"
        '
        'chkUnderlineHeader
        '
        Me.chkUnderlineHeader.Location = New System.Drawing.Point(296, 332)
        Me.chkUnderlineHeader.Name = "chkUnderlineHeader"
        Me.chkUnderlineHeader.Size = New System.Drawing.Size(204, 16)
        Me.chkUnderlineHeader.TabIndex = 23
        Me.chkUnderlineHeader.Text = "Underline Headers"
        '
        'chkColSep
        '
        Me.chkColSep.Location = New System.Drawing.Point(8, 300)
        Me.chkColSep.Name = "chkColSep"
        Me.chkColSep.Size = New System.Drawing.Size(276, 16)
        Me.chkColSep.TabIndex = 12
        Me.chkColSep.Text = "Draw Column Separtor Lines"
        '
        'chkColsToTop
        '
        Me.chkColsToTop.Location = New System.Drawing.Point(8, 320)
        Me.chkColsToTop.Name = "chkColsToTop"
        Me.chkColsToTop.Size = New System.Drawing.Size(276, 16)
        Me.chkColsToTop.TabIndex = 13
        Me.chkColsToTop.Text = "Take Column Separtors to Top of Grid"
        '
        'btnSubHeadFont
        '
        Me.btnSubHeadFont.Location = New System.Drawing.Point(348, 132)
        Me.btnSubHeadFont.Name = "btnSubHeadFont"
        Me.btnSubHeadFont.Size = New System.Drawing.Size(148, 20)
        Me.btnSubHeadFont.TabIndex = 29
        Me.btnSubHeadFont.Text = "Sub - Header Font"
        '
        'btnStdFont
        '
        Me.btnStdFont.Location = New System.Drawing.Point(348, 12)
        Me.btnStdFont.Name = "btnStdFont"
        Me.btnStdFont.Size = New System.Drawing.Size(148, 20)
        Me.btnStdFont.TabIndex = 24
        Me.btnStdFont.Text = "Standard Font"
        '
        'btnBreak1Font
        '
        Me.btnBreak1Font.Location = New System.Drawing.Point(348, 60)
        Me.btnBreak1Font.Name = "btnBreak1Font"
        Me.btnBreak1Font.Size = New System.Drawing.Size(148, 20)
        Me.btnBreak1Font.TabIndex = 26
        Me.btnBreak1Font.Text = "Break 1 Head Font"
        '
        'btnColHeadFont
        '
        Me.btnColHeadFont.Location = New System.Drawing.Point(348, 36)
        Me.btnColHeadFont.Name = "btnColHeadFont"
        Me.btnColHeadFont.Size = New System.Drawing.Size(148, 20)
        Me.btnColHeadFont.TabIndex = 25
        Me.btnColHeadFont.Text = "Column Header Font"
        '
        'btnBreak2Font
        '
        Me.btnBreak2Font.Location = New System.Drawing.Point(348, 84)
        Me.btnBreak2Font.Name = "btnBreak2Font"
        Me.btnBreak2Font.Size = New System.Drawing.Size(148, 20)
        Me.btnBreak2Font.TabIndex = 27
        Me.btnBreak2Font.Text = "Break 2 Head Font"
        '
        'btnOK
        '
        Me.btnOK.Location = New System.Drawing.Point(512, 12)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(112, 20)
        Me.btnOK.TabIndex = 30
        Me.btnOK.Text = "OK"
        '
        'btnColInfo
        '
        Me.btnColInfo.Location = New System.Drawing.Point(512, 60)
        Me.btnColInfo.Name = "btnColInfo"
        Me.btnColInfo.Size = New System.Drawing.Size(112, 20)
        Me.btnColInfo.TabIndex = 31
        Me.btnColInfo.Text = "Column Info"
        '
        'ChkFlowThrough
        '
        Me.ChkFlowThrough.Location = New System.Drawing.Point(8, 364)
        Me.ChkFlowThrough.Name = "ChkFlowThrough"
        Me.ChkFlowThrough.Size = New System.Drawing.Size(276, 16)
        Me.ChkFlowThrough.TabIndex = 15
        Me.ChkFlowThrough.Text = "Flow Through Further Pages"
        '
        'CheckCanGrow
        '
        Me.CheckCanGrow.Location = New System.Drawing.Point(8, 344)
        Me.CheckCanGrow.Name = "CheckCanGrow"
        Me.CheckCanGrow.Size = New System.Drawing.Size(276, 16)
        Me.CheckCanGrow.TabIndex = 14
        Me.CheckCanGrow.Text = "Can Grow"
        '
        'btnDrillParameters
        '
        Me.btnDrillParameters.Location = New System.Drawing.Point(512, 84)
        Me.btnDrillParameters.Name = "btnDrillParameters"
        Me.btnDrillParameters.Size = New System.Drawing.Size(112, 20)
        Me.btnDrillParameters.TabIndex = 32
        Me.btnDrillParameters.Text = "Drill Parameters"
        Me.btnDrillParameters.Visible = False
        '
        'chkUnderlineRows
        '
        Me.chkUnderlineRows.Location = New System.Drawing.Point(296, 352)
        Me.chkUnderlineRows.Name = "chkUnderlineRows"
        Me.chkUnderlineRows.Size = New System.Drawing.Size(204, 16)
        Me.chkUnderlineRows.TabIndex = 33
        Me.chkUnderlineRows.Text = "Underline Rows"
        '
        'nbfEditRepGrid
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(628, 389)
        Me.Controls.Add(Me.chkUnderlineRows)
        Me.Controls.Add(Me.btnDrillParameters)
        Me.Controls.Add(Me.CheckCanGrow)
        Me.Controls.Add(Me.ChkFlowThrough)
        Me.Controls.Add(Me.btnColInfo)
        Me.Controls.Add(Me.btnOK)
        Me.Controls.Add(Me.btnBreak2Font)
        Me.Controls.Add(Me.btnColHeadFont)
        Me.Controls.Add(Me.btnBreak1Font)
        Me.Controls.Add(Me.btnStdFont)
        Me.Controls.Add(Me.btnSubHeadFont)
        Me.Controls.Add(Me.chkColsToTop)
        Me.Controls.Add(Me.chkColSep)
        Me.Controls.Add(Me.chkUnderlineHeader)
        Me.Controls.Add(Me.chkHeaderBorder)
        Me.Controls.Add(Me.chkRightBorder)
        Me.Controls.Add(Me.chkLeftBorder)
        Me.Controls.Add(Me.chkBottomBorder)
        Me.Controls.Add(Me.chkTopBorder)
        Me.Controls.Add(Me.chkNewPageBreak2)
        Me.Controls.Add(Me.chkNewPageBreak1)
        Me.Controls.Add(Me.btnHeadFont)
        Me.Controls.Add(Me.chkShowGrandTot)
        Me.Controls.Add(Me.chkShowTot)
        Me.Controls.Add(Me.chkShowSubTot)
        Me.Controls.Add(Me.chkDisableTotals)
        Me.Controls.Add(Me.chkUseTotDes)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.txtTotDes)
        Me.Controls.Add(Me.txtSubDes)
        Me.Controls.Add(Me.txtSubTitle)
        Me.Controls.Add(Me.txtTitle)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.chkUseSubDes)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.NumericUpDown2)
        Me.Controls.Add(Me.NumericUpDown1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "nbfEditRepGrid"
        Me.Text = "List Properties"
        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

public Sub SetBinding()
txtTitle.DataBindings.Add("Text",g,"RepTitle")
txtSubTitle.DataBindings.Add("Text",g,"RepSubTitle")
NumericUpDown1.DataBindings.Add("Value",g,"RepBreak1Cols")
NumericUpDown2.DataBindings.Add("Value",g,"RepBreak2Cols")
txtSubDes.DataBindings.Add("Text",g,"RepSubDes")
txtTotDes.DataBindings.Add("Text",g,"RepTotDes")
chkDisableTotals.DataBindings.Add("Checked",g,"RepNoTotals")
chkUseSubDes.DataBindings.Add("Checked",g,"UseFieldSubValue")
chkUseTotDes.DataBindings.Add("Checked",g,"UseFieldTotValue")
chkShowSubTot.DataBindings.Add("Checked",g,"RepShowSubTotals")
chkShowTot.DataBindings.Add("Checked",g,"RepShowTotals")
chkShowGrandTot.DataBindings.Add("Checked",g,"RepShowGrandTotals")

chkNewPageBreak1.DataBindings.Add("Checked",g,"RepNewPageOnBreak1")
chkNewPageBreak2.DataBindings.Add("Checked",g,"RepNewPageOnBreak2")

chkTopBorder.DataBindings.Add("Checked",g,"TopBorderLine")
chkBottomBorder.DataBindings.Add("Checked",g,"BottomBorderLine")
chkRightBorder.DataBindings.Add("Checked",g,"RightBorderLine")
chkLeftBorder.DataBindings.Add("Checked",g,"LeftBorderLine")
chkHeaderBorder.DataBindings.Add("Checked",g,"HeaderBorderLine")
        chkUnderlineHeader.DataBindings.Add("Checked", g, "HeaderUnderline")
        chkUnderlineRows.DataBindings.Add("Checked", g, "RowLines")
'chkFlowThrough.DataBindings.Add("Checked",g,"")
chkColSep.DataBindings.Add("Checked",g,"ColumnLines")
chkColsToTop.DataBindings.Add("Checked",g,"VertLinesToTop")

chkFlowThrough.DataBindings.Add("Checked",bc,"FlowThrough")
checkCanGrow.DataBindings.Add("Checked",bc,"CanGrow")
End Sub
private pvRepMainHeadFont as new FontInfo
private pvRepSubHeadFont as new FontInfo
private pvRepColHeadFont as new FontInfo
private pvRepBreak1HeadFont as new FontInfo
private pvRepBreak2HeadFont as new FontInfo
private pvRepNormalFont as new FontInfo
    Private Sub btnStdFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStdFont.Click
        editFont(g.RepNormalFont)
    End Sub
    Sub EditFont(ByRef fi As RepFontInfo)
        FontDialog1.ShowColor = True
        FontDialog1.Font = GetRepFont(fi)
        FontDialog1.Color = fi.Colour
        If FontDialog1.ShowDialog() <> DialogResult.Cancel Then
            fi.FontName = FontDialog1.Font.Name
            fi.FontSize = FontDialog1.Font.Size
            fi.Bold = FontDialog1.Font.Bold
            fi.Italic = FontDialog1.Font.Italic
            fi.Underlined = FontDialog1.Font.Underline
            fi.Colour = FontDialog1.Color
        End If
    End Sub
    Function GetRepFont(ByVal fi As RepFontInfo) As Font
        Dim tf As Font
        tf = New System.Drawing.Font(fi.FontName, fi.FontSize)
        If fi.Bold Then
            tf = New System.Drawing.Font(tf, FontStyle.Bold)
        End If
        If fi.Italic Then
            tf = New System.Drawing.Font(tf, FontStyle.Italic)
        End If
        If fi.Underlined Then
            tf = New System.Drawing.Font(tf, FontStyle.Underline)
        End If
        Return tf
    End Function
    Private Sub btnColHeadFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnColHeadFont.Click
        editFont(g.RepColHeadFont)
    End Sub
    Private Sub btnBreak1Font_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBreak1Font.Click
        editFont(g.RepBreak1HeadFont)
    End Sub
    Private Sub btnBreak2Font_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBreak2Font.Click
        editFont(g.RepBreak2HeadFont)
    End Sub
    Private Sub btnHeadFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHeadFont.Click
        editFont(g.RepMainHeadFont)
    End Sub
    Private Sub btnSubHeadFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubHeadFont.Click
        editFont(g.RepSubHeadFont)
    End Sub
    Private Sub btnColInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnColInfo.Click
        EditRepCols(Si,g)
    End Sub
    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        me.close
    End Sub
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        Me.helpProvider1.HelpNamespace = "OpenDoor.chm"
        Me.helpProvider1.SetShowHelp(Me, True)
    End Sub
    Private Sub btnDrillParameters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrillParameters.Click
    Try
        dim adb as New AddDrillButton(bfi)
        nbfBrowseHost.SetStyles(adb,SI)   
        adb.DrillCtlSetUp(bc)
        adb.ShowDialog
    catch ex as Exception
        msgbox(ex.Message)
        exit sub
    end try
    End Sub
End Class