Imports EnvelopeGenerator.Common
Imports EnvelopeGenerator.Common.My
Imports EnvelopeGenerator.Common.Constants

Public Class frmEnvelopeMainData

    Public Property EnvelopeTitle As String
    Public Property EnvelopeContractType As ContractType = ContractType.Contract
    Public Property NewEnvelopeMode As Boolean = True

    Public Property State As State

    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub frmEnvelopeMainData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If NewEnvelopeMode = True Then
            Me.Text = Resources.Envelope.New_Envelope
        Else
            Me.Text = Resources.Envelope.Edit_Envelope
            cmbContractType.ReadOnly = True
        End If

        Dim contractTypeList = [Enum].GetValues(GetType(ContractType)) _
                                 .Cast(Of ContractType)().ToList()
        cmbContractType.Properties.Items.AddRange(contractTypeList)

        txtTitle.EditValue = EnvelopeTitle
        cmbContractType.EditValue = EnvelopeContractType
    End Sub

    Private Sub btOK_Click(sender As Object, e As EventArgs) Handles btOK.Click

        Dim Validator As Validator = New Validator(State.LogConfig, AdornerUIManager1)
        Dim oMissingParams = Validator.Validate(txtTitle)

        If oMissingParams = True Then
            Me.DialogResult = DialogResult.None
            txtTitle.Focus()
            Return
        End If

        EnvelopeTitle = txtTitle.EditValue
        EnvelopeContractType = cmbContractType.EditValue
    End Sub
End Class