Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Math
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_OLT¹øÈ£ As Short
    Dim IDX_±¹Ã༱¹ø As Short
    Dim IDX_±¸°£¸í As Short
    Dim IDX_½Ã¼³±¸ºÐ As Short
    Dim IDX_ÄÉÀ̺íÀ¯Çü As Short
    Dim IDX_ÄÉÀ̺íÁ¾º° As Short        '2008/07/10
    Dim IDX_ÄÉÀ̺í¸í As Short   '2008/07/10
    Dim IDX_¸ðºÐ±âÄÉÀ̺í¸í As Short '2008/07/10
    Dim IDX_Á¢¼ÓÁ¡¸í As Short '2008/07/10
    Dim IDX_Á¦Á¶È¸»ç As Short
    Dim IDX_¼³Ä¡³â¿ù As Short
    Dim IDX_½Ã°øȸ»ç As Short
    Dim IDX_°¨¸®¿ø As Short
    Dim IDX_°ü¸®±â°ü As Short
    Dim IDX_ºñ°í As Short
    'Dim IDX_QRCODe As Short

    'Dim IDX_°íÁ¤¹®ÀÚ1 As Short
    'Dim IDX_°íÁ¤¹®ÀÚ2 As Short
    'Dim IDX_°íÁ¤¹®ÀÚ3 As Short
    'Dim IDX_°íÁ¤¹®ÀÚ4 As Short
    'Dim IDX_°íÁ¤¹®ÀÚ5 As Short
    'Dim IDX_°íÁ¤¹®ÀÚ6 As Short
    'Dim IDX_°íÁ¤¹®ÀÚ7 As Short


#Region "New Function"
    Public Sub New()
        InitializeComponent()
    End Sub
    Public Sub New(ByRef Src As DataTable, vdev As Boolean, ByVal vDefStyleIndex As Short, Optional ByVal IRow As DataRowView = Nothing, Optional DisWaterMK As Boolean = False)
        InitializeComponent()
        SrcTable = Src  '//°¡Á®¿Â Å×À̺íÀ» ÀÓ½ÃÅ×ÀÌºí¿¡ ÀúÀåÀ» ÇØµÎ°í »ç¿ëÇÑ´Ù.
        Srcrow = IRow  '//ÀÌ°ÍÀº Ŭ¸¯µÈ ÇàÀÇ µ¥ÀÌÅÍÀÌ´Ù.
        Me.Admin = vdev
        Me.DefStyleIndex = vDefStyleIndex
        DisableWaterMark = DisWaterMK '//190208
    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, "StyleLCable", 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(Me.IDX_ÀϷùøÈ£, A_Firstindex, FirstIndex, 1, 20, Me.cb_seq, "ÀϷùøÈ£", "SQ")
        InitControl(Me.IDX_OLT¹øÈ£, A_Firstindex, FirstIndex, 10, 10, Me.chk1, "OLT¹øÈ£", "AA", )
        InitControl(Me.IDX_±¹Ã༱¹ø, A_Firstindex, FirstIndex, 10, 10, Me.chk2, "±¹Ã༱¹ø", "AB")
        InitControl(Me.IDX_±¸°£¸í, A_Firstindex, FirstIndex, 10, 20, Me.chk3, "±¸°£¸í", "AC")
        InitControl(Me.IDX_½Ã¼³±¸ºÐ, A_Firstindex, FirstIndex, 10, 20, Me.chk4, "½Ã¼³±¸ºÐ", "AD")
        InitControl(Me.IDX_ÄÉÀ̺íÀ¯Çü, A_Firstindex, FirstIndex, 10, 20, Me.chk5, "ÄÉÀ̺íÀ¯Çü", "AE")
        InitControl(Me.IDX_ÄÉÀ̺íÁ¾º°, A_Firstindex, FirstIndex, 10, 20, Me.chk6, "ÄÉÀ̺íÁ¾º°", "AF")
        InitControl(Me.IDX_ÄÉÀ̺í¸í, A_Firstindex, FirstIndex, 10, 20, Me.chk7, "ÄÉÀ̺í¸í", "AG")
        InitControl(Me.IDX_¸ðºÐ±âÄÉÀ̺í¸í, A_Firstindex, FirstIndex, 10, 20, Me.chk8, "¸ðºÐ±âÄÉÀ̺í¸í", "AH")
        InitControl(Me.IDX_Á¢¼ÓÁ¡¸í, A_Firstindex, FirstIndex, 10, 20, Me.chk9, "Á¢¼ÓÁ¡¸í", "AI")
        InitControl(Me.IDX_Á¦Á¶È¸»ç, A_Firstindex, FirstIndex, 10, 10, Me.chk10, "Á¦Á¶È¸»ç", "AJ")
        InitControl(Me.IDX_¼³Ä¡³â¿ù, A_Firstindex, FirstIndex, 10, 10, Me.chk11, "¼³Ä¡³â¿ù", "AK")
        InitControl(Me.IDX_½Ã°øȸ»ç, A_Firstindex, FirstIndex, 10, 10, Me.chk12, "½Ã°øȸ»ç", "AL")
        InitControl(Me.IDX_°¨¸®¿ø, A_Firstindex, FirstIndex, 20, 10, Me.chk13, "°¨¸®¿ø", "AM")
        InitControl(Me.IDX_°ü¸®±â°ü, A_Firstindex, FirstIndex, 20, 10, Me.chk14, "°ü¸®±â°ü", "AN")
        InitControl(Me.IDX_ºñ°í, A_Firstindex, FirstIndex, 15, 10, Me.chk15, "ºñ°í", "AO")

        'InitControl(A_Firstindex, FirstIndex, 1, 10, Me.chkf1, "°íÁ¤1", "S1", "", True)
        'InitControl(A_Firstindex, FirstIndex, 1, 10, Me.chkf2, "°íÁ¤2", "S2", "", True)
        'InitControl(A_Firstindex, FirstIndex, 1, 10, Me.chkf3, "°íÁ¤3", "S3", "", True)
        'InitControl(A_Firstindex, FirstIndex, 1, 10, Me.chkf4, "°íÁ¤4", "S4", "", True)
        'InitControl(A_Firstindex, FirstIndex, 1, 10, Me.chkf5, "°íÁ¤5", "S5", "", True)
        'InitControl(A_Firstindex, FirstIndex, 1, 10, Me.chkf6, "°íÁ¤6", "S6", "", True)
        'InitControl(A_Firstindex, FirstIndex, 1, 10, Me.chkf7, "°íÁ¤7", "S7", "", True)

    End Sub

    Public Overrides Sub SetControlIndex() '//±×·ìÀÇ À妽º¸¦ °¡Áö°íÀÖ´Â // ³ªÁß¿¡ ÆíÇÏ°Ô »ç¿ëÇÏ·Á°í
        AddLog("-> »ç¿ëÇÏÁö¾ÊÀ½ :: SetControlIndex")


        'Me.IDX_ÀϷùøÈ£ = lbl("ÀϷùøÈ£")
        'Me.IDX_OLT¹øÈ£ = lbl("OLT¹øÈ£")
        'Me.IDX_±¹Ã༱¹ø = lbl("±¹Ã༱¹ø")
        'Me.IDX_±¸°£¸í = lbl("±¸°£¸í")
        'Me.IDX_½Ã¼³±¸ºÐ = lbl("½Ã¼³±¸ºÐ")
        'Me.IDX_ÄÉÀ̺íÀ¯Çü = lbl("ÄÉÀ̺íÀ¯Çü")
        'Me.IDX_ÄÉÀ̺íÁ¾º° = lbl("ÄÉÀ̺íÁ¾º°")
        'Me.IDX_ÄÉÀ̺í¸í = lbl("ÄÉÀ̺í¸í")
        'Me.IDX_¸ðºÐ±âÄÉÀ̺í¸í = lbl("¸ðºÐ±âÄÉÀ̺í¸í")
        'Me.IDX_Á¢¼ÓÁ¡¸í = lbl("Á¢¼ÓÁ¡¸í")
        'Me.IDX_Á¦Á¶È¸»ç = lbl("Á¦Á¶È¸»ç")
        'Me.IDX_¼³Ä¡³â¿ù = lbl("¼³Ä¡³â¿ù")
        'Me.IDX_½Ã°øȸ»ç = lbl("½Ã°øȸ»ç")
        'Me.IDX_°¨¸®¿ø = lbl("°¨¸®¿ø")
        'Me.IDX_°ü¸®±â°ü = lbl("°ü¸®±â°ü")
        'Me.IDX_ºñ°í = lbl("ºñ°í")
    
    End Sub



    '//¸ÞÀÎÇÔ¼ö´Ù(¿À¹ö¶óÀ̵å) °ªÀ» ºÐ¼®ÇÏ°í Ç¥½ÃÇÏ´Â ÃÑ°ýÀ» ´ã´çÇÑ´Ù.
    Public Overrides Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ¹øÈ£ÆÐÅÏ°Ë»ç As Integer = -1)
        Dim OLT¹øÈ£, ±¹Ã༱¹ø, ±¸°£¸í, ½Ã¼³±¸ºÐ, ÄÉÀ̺íÀ¯Çü, ÄÉÀ̺íÁ¾º°, ÄÉÀ̺í¸í, ¸ðºÐ±âÄÉÀ̺í¸í, Á¢¼ÓÁ¡¸í, Á¦Á¶È¸»ç, _
        ¼³Ä¡³â¿ù, ½Ã°øȸ»ç, °¨¸®¿ø, °ü¸®±â°ü, ºñ°í 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
        OLT¹øÈ£ = GetSpread(index, "OLT¹øÈ£")
        ±¹Ã༱¹ø = GetSpread(index, "±¹Ã༱¹ø")
        ±¸°£¸í = GetSpread(index, "±¸°£¸í")
        ½Ã¼³±¸ºÐ = GetSpread(index, "½Ã¼³±¸ºÐ")
        ÄÉÀ̺íÀ¯Çü = GetSpread(index, "ÄÉÀ̺íÀ¯Çü")
        ÄÉÀ̺íÁ¾º° = GetSpread(index, "ÄÉÀ̺íÁ¾º°")
        ÄÉÀ̺í¸í = GetSpread(index, "ÄÉÀ̺í¸í")
        ¸ðºÐ±âÄÉÀ̺í¸í = GetSpread(index, "¸ðºÐ±âÄÉÀ̺í¸í")
        Á¢¼ÓÁ¡¸í = GetSpread(index, "Á¢¼ÓÁ¡¸í")
        Á¦Á¶È¸»ç = GetSpread(index, "Á¦Á¶È¸»ç")
        ¼³Ä¡³â¿ù = GetSpread(index, "¼³Ä¡³â¿ù")
        ½Ã°øȸ»ç = GetSpread(index, "½Ã°øȸ»ç")
        °¨¸®¿ø = GetSpread(index, "°¨¸®¿ø")
        °ü¸®±â°ü = GetSpread(index, "°ü¸®±â°ü")
        ºñ°í = GetSpread(index, "ºñ°í")
        ÀϷùøÈ£ = GetSpread(index, "¹øÈ£")

        QRCODE1 = GetSpread(index, "QRCODE")
        QRCODE2 = GetSpread(index, "QRCODE2")
        QRCODE3 = GetSpread(index, "QRCODE3")
        QRCODE4 = GetSpread(index, "QRCODE4")

        Me.AllFullLabels(Me.IDX_ÀϷùøÈ£).text = ÀϷùøÈ£
        Me.AllFullLabels(Me.IDX_OLT¹øÈ£).text = OLT¹øÈ£
        Me.AllFullLabels(Me.IDX_±¹Ã༱¹ø).text = ±¹Ã༱¹ø
        Me.AllFullLabels(Me.IDX_±¸°£¸í).text = ±¸°£¸í
        Me.AllFullLabels(Me.IDX_½Ã¼³±¸ºÐ).text = ½Ã¼³±¸ºÐ
        Me.AllFullLabels(Me.IDX_ÄÉÀ̺íÀ¯Çü).text = ÄÉÀ̺íÀ¯Çü
        Me.AllFullLabels(Me.IDX_ÄÉÀ̺íÁ¾º°).text = ÄÉÀ̺íÁ¾º°
        Me.AllFullLabels(Me.IDX_ÄÉÀ̺í¸í).text = ÄÉÀ̺í¸í
        Me.AllFullLabels(Me.IDX_¸ðºÐ±âÄÉÀ̺í¸í).text = ¸ðºÐ±âÄÉÀ̺í¸í
        Me.AllFullLabels(Me.IDX_Á¢¼ÓÁ¡¸í).text = Á¢¼ÓÁ¡¸í
        Me.AllFullLabels(Me.IDX_Á¦Á¶È¸»ç).text = Á¦Á¶È¸»ç
        Me.AllFullLabels(Me.IDX_¼³Ä¡³â¿ù).text = ¼³Ä¡³â¿ù
        Me.AllFullLabels(Me.IDX_½Ã°øȸ»ç).text = ½Ã°øȸ»ç
        Me.AllFullLabels(Me.IDX_°¨¸®¿ø).text = °¨¸®¿ø
        Me.AllFullLabels(Me.IDX_°ü¸®±â°ü).text = °ü¸®±â°ü
        Me.AllFullLabels(Me.IDX_ºñ°í).text = ºñ°í
     
        'Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ1).text = Me.Fixed(0)
        'Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ2).text = Me.Fixed(1)
        'Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ3).text = Me.Fixed(2)
        'Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ4).text = Me.Fixed(3)
        'Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ5).text = Me.Fixed(4)
        'Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ6).text = Me.Fixed(5)
        'Me.AllFullLabels(Me.IDX_°íÁ¤¹®ÀÚ7).text = Me.Fixed(6)


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

        '//Show WindowTitle
        Me.Text = "Ãâ·ÂÀÛ¾÷(OLT:" & OLT¹øÈ£ & Space(1) & " ±¹Ã༱¹ø:" & ±¹Ã༱¹ø & ")"


        '=====================================================================
        Me.Parse_LineBatch(New Short() { _
        Me.IDX_ÀϷùøÈ£, _
        Me.IDX_OLT¹øÈ£, _
        Me.IDX_±¹Ã༱¹ø, _
        Me.IDX_±¸°£¸í, _
        Me.IDX_½Ã¼³±¸ºÐ, _
        Me.IDX_ÄÉÀ̺íÀ¯Çü, _
        Me.IDX_ÄÉÀ̺íÁ¾º°, _
        Me.IDX_ÄÉÀ̺í¸í, _
        Me.IDX_¸ðºÐ±âÄÉÀ̺í¸í, _
        Me.IDX_Á¢¼ÓÁ¡¸í, _
        Me.IDX_Á¦Á¶È¸»ç, _
        Me.IDX_¼³Ä¡³â¿ù, _
        Me.IDX_½Ã°øȸ»ç, _
        Me.IDX_°¨¸®¿ø, _
        Me.IDX_°ü¸®±â°ü, _
        Me.IDX_ºñ°í})
        '======================== ±âŸ =================================================
        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

    Private Sub PrintForm_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles Me.Scroll

    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
  
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.QSave_PatternIII()
    End Sub

   
    Private Sub bt_savelen_Click(sender As System.Object, e As System.EventArgs) Handles bt_savepattern.Click

    End Sub
End Class