Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Math
Imports acc.ARINCLASS
Imports System.IO
Imports CEpole.C_Epole

Public Class PrintForm
    '//±âº» Datatable Àε¥ »ç¿ëÇϱâ ÆíÇÏ°Ô Shadow ÇÑ´Ù.
    'Public Shadows srctable As ireaDataSet.Detail_tongsinDataTable

    '//Loadstyle ÈÄ¿¡ ÀϷùøÈ£¸¦ ºÎ¿©ÇÑ´Ù. (SetControlIndex)
    Dim IDX_ÀϷùøÈ£ As Short
    Dim IDX_ÀüÁÖ¹øÈ£1 As Short
    Dim IDX_ÀüÁÖ¹øÈ£2 As Short
    Dim IDX_±¸°£¸í1 As Short
    Dim IDX_±¸°£¸í2 As Short
    Dim IDX_½Ã°øÀÏ As Short
    Dim IDX_½Ã°øÀÚ As Short
    Dim IDX_±Ô°Ý As Short        '2008/07/10
    Dim IDX_¹®ÀÇÀüÈ­1 As Short '2008/07/10
    Dim IDX_¹®ÀÇÀüÈ­2 As Short '2008/07/10
    Dim IDX_¿î¿ë±â°ü As Short     '//20080810
    Dim IDX_Áß°è±â¸í As Short

    Dim IDX_°íÁ¤¹®ÀÚ1 As Short
    Dim IDX_°íÁ¤¹®ÀÚ2 As Short

    Dim IDX_QRÄÚµå As Short  '2012/07/25



#Region "New Function"
    Public Sub New()
        InitializeComponent()
    End Sub
    Public Sub New(ByRef Src As DataTable, ByVal vAdmin As Boolean, ByVal vDefStyleIndex As Short, Optional ByVal IRow As DataRowView = Nothing)
        InitializeComponent()
        SrcTable = Src  '//°¡Á®¿Â Å×À̺íÀ» ÀÓ½ÃÅ×ÀÌºí¿¡ ÀúÀåÀ» ÇØµÎ°í »ç¿ëÇÑ´Ù.
        Srcrow = IRow  '//ÀÌ°ÍÀº Ŭ¸¯µÈ ÇàÀÇ µ¥ÀÌÅÍÀÌ´Ù.
        Me.Admin = vAdmin
        Me.DefStyleIndex = vDefStyleIndex
    End Sub
#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Left = 100
        Me.Initialize(Me.SrcTable, "StyleSK", My.Application.Info.DirectoryPath & "\epole.ini", DefStyleIndex)
    End Sub

    Public Overrides Sub SetControls()   '//¿À¹ö¶óÀ̵åµÌÀ¸¸ç ¶óº§µéÀ» »ý¼ºÃʱâÈ­ÇÑ´Ù.
        AddLog("-> SetControls")
        Dim CtlCnt As Short = 0

        If Me.AllLabels Is Nothing Then ReDim Me.AllLabels(0) '//À̰Ƕ󺧵éÀÇ ¹è¿­À̸ç
        If Me.AllFullLabels Is Nothing Then ReDim Me.AllFullLabels(0) '//À̰Ƕ󺧵éÀÇ ±×·ì¹è¿­ÀÌ´Ù. (ÂÉ°³ÁöÁö¾ÊÀº 1°³ÀÇ ¾ÆÀÌÅÛÀ» °¡Áö°íÀÖ´Ù.)

        '//initial...
        Dim FirstIndex As Short = 0
        Dim A_Firstindex As Short = 0

        InitControl(IDX_ÀϷùøÈ£, A_Firstindex, FirstIndex, 1, 20, Me.cb_seq, "ÀϷùøÈ£", "U", "SEQPATTERN", )
        InitControl(IDX_±¸°£¸í1, A_Firstindex, FirstIndex, 10, 10, Me.chk1, "±¸°£¸í1", "A", "G1PATTERN")
        InitControl(IDX_±¸°£¸í2, A_Firstindex, FirstIndex, 10, 10, Me.chk2, "±¸°£¸í2", "B", "G2PATTERN")
        InitControl(IDX_ÀüÁÖ¹øÈ£1, A_Firstindex, FirstIndex, 10, 20, Me.chk4, "ÀüÁÖ¹øÈ£1", "D", "N1PATTERN")
        InitControl(IDX_ÀüÁÖ¹øÈ£2, A_Firstindex, FirstIndex, 10, 20, Me.chk5, "ÀüÁÖ¹øÈ£2", "E", "N2PATTERN")
        InitControl(IDX_½Ã°øÀÏ, A_Firstindex, FirstIndex, 1, 20, Me.chk6, "½Ã°øÀÏ", "G", "DAYPATTERN")
        InitControl(IDX_½Ã°øÀÚ, A_Firstindex, FirstIndex, 1, 20, Me.chk7, "½Ã°øÀÚ", "H", "MANPATTERN")
        InitControl(IDX_±Ô°Ý, A_Firstindex, FirstIndex, 1, 20, Me.chk9, "±Ô°Ý", "J", "SCALEPATTERN")
        InitControl(IDX_¹®ÀÇÀüÈ­1, A_Firstindex, FirstIndex, 1, 10, Me.chk10, "¹®ÀÇÀüÈ­1", "K", "TEL1PATTERN")
        InitControl(IDX_¹®ÀÇÀüÈ­2, A_Firstindex, FirstIndex, 1, 10, Me.chk11, "¹®ÀÇÀüÈ­2", "L", "TEL2PATTERN")
        InitControl(IDX_¿î¿ë±â°ü, A_Firstindex, FirstIndex, 1, 10, Me.chk12, "¿î¿ë±â°ü", "M", "COMPATTERN")
        InitControl(IDX_Áß°è±â¸í, A_Firstindex, FirstIndex, 1, 10, Me.chk13, "Áß°è±â¸í", "N", "JKPATTERN")
        InitControl(IDX_°íÁ¤¹®ÀÚ1, A_Firstindex, FirstIndex, 1, 10, Me.chk20, "°íÁ¤¹®ÀÚ1", "V", "STATIC1PATTERN", True)
        InitControl(IDX_°íÁ¤¹®ÀÚ2, A_Firstindex, FirstIndex, 1, 10, Me.chk21, "°íÁ¤¹®ÀÚ2", "W", "STATIC2PATTERN", True)
    End Sub

    Public Overrides Sub SetControlIndex() '//±×·ìÀÇ À妽º¸¦ °¡Áö°íÀÖ´Â // ³ªÁß¿¡ ÆíÇÏ°Ô »ç¿ëÇÏ·Á°í
        AddLog("-> SetControlIndex")
        Me.IDX_ÀϷùøÈ£ = lbl("ÀϷùøÈ£")
        Me.IDX_±¸°£¸í1 = lbl("±¸°£¸í1")
        Me.IDX_±¸°£¸í2 = lbl("±¸°£¸í2")
        Me.IDX_ÀüÁÖ¹øÈ£1 = lbl("ÀüÁÖ¹øÈ£1")
        Me.IDX_ÀüÁÖ¹øÈ£2 = lbl("ÀüÁÖ¹øÈ£2")
        Me.IDX_½Ã°øÀÏ = lbl("½Ã°øÀÏ")
        Me.IDX_½Ã°øÀÚ = lbl("½Ã°øÀÚ")
        Me.IDX_±Ô°Ý = lbl("±Ô°Ý")
        Me.IDX_¹®ÀÇÀüÈ­1 = lbl("¹®ÀÇÀüÈ­1")
        Me.IDX_¹®ÀÇÀüÈ­2 = lbl("¹®ÀÇÀüÈ­2")
        Me.IDX_¿î¿ë±â°ü = lbl("¿î¿ë±â°ü")
        Me.IDX_Áß°è±â¸í = lbl("Áß°è±â¸í")

        Me.IDX_°íÁ¤¹®ÀÚ1 = lbl("°íÁ¤¹®ÀÚ1")
        Me.IDX_°íÁ¤¹®ÀÚ2 = lbl("°íÁ¤¹®ÀÚ2")


    End Sub

    '//¸ÞÀÎÇÔ¼ö´Ù(¿À¹ö¶óÀ̵å) °ªÀ» ºÐ¼®ÇÏ°í Ç¥½ÃÇÏ´Â ÃÑ°ýÀ» ´ã´çÇÑ´Ù.
    Public Overrides Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ¹øÈ£ÆÐÅÏ°Ë»ç As Integer = -1)
        Dim ÀüÁÖ¹øÈ£, ±¸°£¸í1, ±¸°£¸í2 As String
        Dim ÀϷùøÈ£ As String

        AddLog(">> ¿À¹ö¶óÀ̵åµÈ ÇÔ¼ö GetTviewData ÁøÀÔ")

        If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then
            AddLog(">> µ¥ÀÌÅÍÀ妽º°¡ ¾ø°Å³ª ¹®Á¦°¡ À־ GettviewData¸¦ ¸®ÅÏÇÕ´Ï´Ù")
            Return '//À߸øµÈ À妽º´Â ¸®ÅÏ
        End If

        '//DataRow_Value -> Group Label
        ÀϷùøÈ£ = GetSpread(index, "¹øÈ£")
        Me.AllFullLabels(Me.IDX_ÀϷùøÈ£).text = ÀϷùøÈ£

        ÀüÁÖ¹øÈ£ = GetSpread(index, "ÀüÁÖ¹øÈ£1") & GetSpread(index, "ÀüÁÖ¹øÈ£2") & GetSpread(index, "ÀüÁÖ¹øÈ£3")
        Me.AllFullLabels(Me.IDX_ÀüÁÖ¹øÈ£1).text = GetSpread(index, "ÀüÁÖ¹øÈ£1")
        Me.AllFullLabels(Me.IDX_ÀüÁÖ¹øÈ£2).text = GetSpread(index, "ÀüÁÖ¹øÈ£2")

        ±¸°£¸í1 = GetSpread(index, "±¸°£¸í1")
        ±¸°£¸í2 = GetSpread(index, "±¸°£¸í2")
        Me.AllFullLabels(Me.IDX_±¸°£¸í1).text = ±¸°£¸í1
        Me.AllFullLabels(Me.IDX_±¸°£¸í2).text = ±¸°£¸í2

        Me.AllFullLabels(Me.IDX_½Ã°øÀÏ).text = GetSpread(index, "½Ã°øÀÏ")
        Me.AllFullLabels(Me.IDX_½Ã°øÀÚ).text = GetSpread(index, "½Ã°øÀÚ")
        Me.AllFullLabels(Me.IDX_±Ô°Ý).text = GetSpread(index, "±Ô°Ý")

        Me.AllFullLabels(Me.IDX_¹®ÀÇÀüÈ­1).text = GetSpread(index, "¿¬¶ôó1")
        Me.AllFullLabels(Me.IDX_¹®ÀÇÀüÈ­2).text = GetSpread(index, "¿¬¶ôó2")

        Me.AllFullLabels(Me.IDX_¿î¿ë±â°ü).text = GetSpread(index, "¿î¿ë±â°ü")
        Me.AllFullLabels(Me.IDX_Áß°è±â¸í).text = GetSpread(index, "Áß°è±â¸í")

        Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ1).text = Me.AllLabels(Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ1).Si).Text
        Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ2).text = Me.AllLabels(Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ2).Si).Text

        AddLog(">> DataRow_Value -> Group Label_text")

        '//Show WindowTitle
        Me.Text = "Ãâ·ÂÀÛ¾÷(¹øÈ£:" & ÀϷùøÈ£ & Space(1) & "ÀüÁÖ:" & ÀüÁÖ¹øÈ£ & Space(1) & "±¸°£:" & ±¸°£¸í1 & ±¸°£¸í2 & ")"
        '=====================================================================
        Me.Parse_LineBatch(New Short() { _
        Me.IDX_ÀϷùøÈ£, _
        Me.IDX_±¸°£¸í1, _
        Me.IDX_±¸°£¸í2, _
        Me.IDX_ÀüÁÖ¹øÈ£1, _
        Me.IDX_ÀüÁÖ¹øÈ£2, _
        Me.IDX_½Ã°øÀÏ, _
        Me.IDX_½Ã°øÀÚ, _
        Me.IDX_±Ô°Ý, _
        Me.IDX_¹®ÀÇÀüÈ­1, _
        Me.IDX_¹®ÀÇÀüÈ­2, _
        Me.IDX_¿î¿ë±â°ü, _
        Me.IDX_Áß°è±â¸í, _
        Me.IDX_°íÁ¤¹®ÀÚ1, _
        Me.IDX_°íÁ¤¹®ÀÚ2})
        '======================== ±âŸ =================================================
        If previewWindow Then Me.preview_window() '//ÀÌ°Ç ±âº»Æû¿¡ Á¤ÀǵǾîÀÖ´Ù.
        'ÈÞ ³¡³µ´Ù.......................................................
    End Sub

#Region "ÀÚÁÖ ¹Ù²ÜÀϾø´Â ºÎºÐ"

    Private Sub BindingNavigatorPositionItem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BindingNavigatorPositionItem.KeyUp
        '//ÇöÀçÀ§Ä¡¿¡¼­ ¿£ÅÍÄÖÀ»°æ¿ì µ¥ÀÌÅͺ£À̽º À§Ä¡°ªÀ» º¯°æÇÑ´Ù.(position)
        If e.KeyCode = Keys.Enter Then
            If IsNumeric(Me.BindingNavigatorPositionItem.Text) Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True)
        End If
    End Sub

    Private Sub BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter
        Me.BindingNavigatorPositionItem.Focus()
        Me.BindingNavigatorPositionItem.SelectAll()
    End Sub

#End Region
#Region "ÀÚÁ־ȰíÄ¡´Â°Í"

    ''' <summary>
    ''' µ¥ÀÌÅÍÇ¥½ÃÇ׸ñ¾Æ·¡ÀÇ ¸ðµç ¾ÆÀÌÅÛÀÇ Å¬¸¯À̺¥Æ®¿¡  ÁöÁ¤µÈ ÇÁ·Î½ÃÁ®¸¦ ÇÒ´çÇÑ´Ù.
    ''' </summary>
    ''' <remarks></remarks>
    Public Overrides Sub SetEventHandler()
        For Each MI As ToolStripMenuItem In Me.m_viewdata.DropDownItems
            AddHandler MI.Click, AddressOf ViewCheck_Click
        Next
    End Sub

    ''' <summary>
    ''' °³Ã¼°¡ ¼±ÅõǾúÀ»¶§ ÀÇ À̺¥Æ®
    ''' </summary>
    ''' <param name="obj"></param>
    ''' <remarks></remarks>
    Private Sub PrintForm_tongsin_SelectedControl(ByVal obj As CEpole.C_label) Handles Me.SelectedControl
        '//ƯÁ¤°³Ã¼°¡ ¼±ÅõǾúÀ»¶§ (ºÎ¸ð±×·ì¿¡¼­ ÆÐÅÏÀû¿ë¿©ºÎ¸¦ ã¾ÆÇ¥½ÃÇÑ´Ù.)
        AddLog("##´ÙÀ½°³Ã¼°¡ ¼±ÅõǾú½À´Ï´Ù(" & obj.Desc & " ű×=" & obj.Tag & ")")
        Me.lb_selcon.Text = "[" & obj.Desc & "]"
    End Sub

    Private Sub ToolStripButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_close.Click
        Me.Close()
    End Sub
    Private Sub m_shortkey_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m_shortkey.Click
        Me.Show_ShortKey()
    End Sub

#End Region


End Class