diff --git a/CasparMediaPlayback/UcPlaylistScheduler.designer.vb b/CasparMediaPlayback/UcPlaylistScheduler.designer.vb new file mode 100644 index 0000000..4708d88 --- /dev/null +++ b/CasparMediaPlayback/UcPlaylistScheduler.designer.vb @@ -0,0 +1,296 @@ + +Partial Class UcPlaylistScheduler + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(UcPlaylistScheduler)) + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.lblscheduleList = New System.Windows.Forms.Label() + Me.deleteschedule = New System.Windows.Forms.Button() + Me.addschedule = New System.Windows.Forms.Button() + Me.cmdStopSchedule = New System.Windows.Forms.Button() + Me.cmdStartSchedule = New System.Windows.Forms.Button() + Me.lbltestshedulerecording = New System.Windows.Forms.Label() + Me.dgvscheduler = New System.Windows.Forms.DataGridView() + Me.Label127 = New System.Windows.Forms.Label() + Me.tmrcommandschedulestart = New System.Windows.Forms.Timer(Me.components) + Me.cmdmanualPlaycmdPlayNow = New System.Windows.Forms.Button() + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.cmdmoveup = New System.Windows.Forms.Button() + Me.cmdmovedown = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmdmanualPlaycmdCueNow = New System.Windows.Forms.Button() + CType(Me.dgvscheduler, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MenuStrip1.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'lblscheduleList + ' + Me.lblscheduleList.AutoSize = True + Me.lblscheduleList.Location = New System.Drawing.Point(288, 9) + Me.lblscheduleList.Name = "lblscheduleList" + Me.lblscheduleList.Size = New System.Drawing.Size(73, 13) + Me.lblscheduleList.TabIndex = 627 + Me.lblscheduleList.Text = "Scheduled list" + ' + 'deleteschedule + ' + Me.deleteschedule.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.deleteschedule.Image = Global.caspar_media_playback.My.Resources.Resources.minus + Me.deleteschedule.Location = New System.Drawing.Point(232, 64) + Me.deleteschedule.Name = "deleteschedule" + Me.deleteschedule.Size = New System.Drawing.Size(35, 20) + Me.deleteschedule.TabIndex = 625 + Me.deleteschedule.UseVisualStyleBackColor = True + ' + 'addschedule + ' + Me.addschedule.Image = CType(resources.GetObject("addschedule.Image"), System.Drawing.Image) + Me.addschedule.Location = New System.Drawing.Point(273, 63) + Me.addschedule.Name = "addschedule" + Me.addschedule.Size = New System.Drawing.Size(41, 23) + Me.addschedule.TabIndex = 624 + Me.addschedule.UseVisualStyleBackColor = True + ' + 'cmdStopSchedule + ' + Me.cmdStopSchedule.Location = New System.Drawing.Point(240, 30) + Me.cmdStopSchedule.Name = "cmdStopSchedule" + Me.cmdStopSchedule.Size = New System.Drawing.Size(64, 23) + Me.cmdStopSchedule.TabIndex = 623 + Me.cmdStopSchedule.Text = "Stop" + Me.cmdStopSchedule.UseVisualStyleBackColor = True + ' + 'cmdStartSchedule + ' + Me.cmdStartSchedule.Location = New System.Drawing.Point(6, 33) + Me.cmdStartSchedule.Name = "cmdStartSchedule" + Me.cmdStartSchedule.Size = New System.Drawing.Size(75, 23) + Me.cmdStartSchedule.TabIndex = 622 + Me.cmdStartSchedule.Text = "Start" + Me.cmdStartSchedule.UseVisualStyleBackColor = True + ' + 'lbltestshedulerecording + ' + Me.lbltestshedulerecording.AutoSize = True + Me.lbltestshedulerecording.BackColor = System.Drawing.Color.Red + Me.lbltestshedulerecording.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltestshedulerecording.Location = New System.Drawing.Point(87, 33) + Me.lbltestshedulerecording.Name = "lbltestshedulerecording" + Me.lbltestshedulerecording.Size = New System.Drawing.Size(147, 20) + Me.lbltestshedulerecording.TabIndex = 621 + Me.lbltestshedulerecording.Text = "Schedule Stoped" + ' + 'dgvscheduler + ' + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvscheduler.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvscheduler.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.Color.Black + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvscheduler.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvscheduler.Location = New System.Drawing.Point(6, 87) + Me.dgvscheduler.Name = "dgvscheduler" + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvscheduler.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvscheduler.Size = New System.Drawing.Size(601, 204) + Me.dgvscheduler.TabIndex = 620 + ' + 'Label127 + ' + Me.Label127.AutoSize = True + Me.Label127.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label127.Location = New System.Drawing.Point(32, 2) + Me.Label127.Name = "Label127" + Me.Label127.Size = New System.Drawing.Size(176, 24) + Me.Label127.TabIndex = 619 + Me.Label127.Text = "Playlist Scheduler" + ' + 'tmrcommandschedulestart + ' + ' + 'cmdmanualPlaycmdPlayNow + ' + Me.cmdmanualPlaycmdPlayNow.Location = New System.Drawing.Point(608, 164) + Me.cmdmanualPlaycmdPlayNow.Name = "cmdmanualPlaycmdPlayNow" + Me.cmdmanualPlaycmdPlayNow.Size = New System.Drawing.Size(50, 68) + Me.cmdmanualPlaycmdPlayNow.TabIndex = 1178 + Me.cmdmanualPlaycmdPlayNow.Text = "Load and Play Now " + Me.cmdmanualPlaycmdPlayNow.UseVisualStyleBackColor = True + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(6, 63) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(45, 24) + Me.MenuStrip1.TabIndex = 1213 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'FileToolStripMenuItem + ' + Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.SaveToolStripMenuItem}) + Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" + Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20) + Me.FileToolStripMenuItem.Text = "File" + ' + 'NewToolStripMenuItem + ' + Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" + Me.NewToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.NewToolStripMenuItem.Text = "New" + ' + 'OpenToolStripMenuItem + ' + Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" + Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.OpenToolStripMenuItem.Text = "Open" + ' + 'SaveToolStripMenuItem + ' + Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" + Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.SaveToolStripMenuItem.Text = "Save" + ' + 'cmdmoveup + ' + Me.cmdmoveup.Image = Global.caspar_media_playback.My.Resources.Resources.UP + Me.cmdmoveup.Location = New System.Drawing.Point(323, 61) + Me.cmdmoveup.Name = "cmdmoveup" + Me.cmdmoveup.Size = New System.Drawing.Size(49, 23) + Me.cmdmoveup.TabIndex = 1214 + Me.cmdmoveup.UseVisualStyleBackColor = True + ' + 'cmdmovedown + ' + Me.cmdmovedown.Image = Global.caspar_media_playback.My.Resources.Resources.Down + Me.cmdmovedown.Location = New System.Drawing.Point(372, 61) + Me.cmdmovedown.Name = "cmdmovedown" + Me.cmdmovedown.Size = New System.Drawing.Size(50, 23) + Me.cmdmovedown.TabIndex = 1215 + Me.cmdmovedown.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(320, 35) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(257, 13) + Me.Label1.TabIndex = 1216 + Me.Label1.Text = "Double click in Playlist_file column to open playlist file" + ' + 'GroupBox1 + ' + Me.GroupBox1.BackColor = System.Drawing.Color.LightSteelBlue + Me.GroupBox1.Controls.Add(Me.cmdmanualPlaycmdCueNow) + Me.GroupBox1.Controls.Add(Me.cmdmanualPlaycmdPlayNow) + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(Me.Label127) + Me.GroupBox1.Controls.Add(Me.cmdmoveup) + Me.GroupBox1.Controls.Add(Me.dgvscheduler) + Me.GroupBox1.Controls.Add(Me.cmdmovedown) + Me.GroupBox1.Controls.Add(Me.lbltestshedulerecording) + Me.GroupBox1.Controls.Add(Me.MenuStrip1) + Me.GroupBox1.Controls.Add(Me.cmdStartSchedule) + Me.GroupBox1.Controls.Add(Me.cmdStopSchedule) + Me.GroupBox1.Controls.Add(Me.addschedule) + Me.GroupBox1.Controls.Add(Me.lblscheduleList) + Me.GroupBox1.Controls.Add(Me.deleteschedule) + Me.GroupBox1.Location = New System.Drawing.Point(3, 3) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(660, 299) + Me.GroupBox1.TabIndex = 1217 + Me.GroupBox1.TabStop = False + ' + 'cmdmanualPlaycmdCueNow + ' + Me.cmdmanualPlaycmdCueNow.Location = New System.Drawing.Point(610, 90) + Me.cmdmanualPlaycmdCueNow.Name = "cmdmanualPlaycmdCueNow" + Me.cmdmanualPlaycmdCueNow.Size = New System.Drawing.Size(50, 68) + Me.cmdmanualPlaycmdCueNow.TabIndex = 1217 + Me.cmdmanualPlaycmdCueNow.Text = "Load and Cue Now " + Me.cmdmanualPlaycmdCueNow.UseVisualStyleBackColor = True + ' + 'UcPlaylistScheduler + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.Controls.Add(Me.GroupBox1) + Me.Name = "UcPlaylistScheduler" + Me.Size = New System.Drawing.Size(666, 307) + CType(Me.dgvscheduler, System.ComponentModel.ISupportInitialize).EndInit() + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents lblscheduleList As System.Windows.Forms.Label + Friend WithEvents deleteschedule As System.Windows.Forms.Button + Friend WithEvents addschedule As System.Windows.Forms.Button + Friend WithEvents cmdStopSchedule As System.Windows.Forms.Button + Friend WithEvents cmdStartSchedule As System.Windows.Forms.Button + Friend WithEvents lbltestshedulerecording As System.Windows.Forms.Label + Friend WithEvents dgvscheduler As System.Windows.Forms.DataGridView + Friend WithEvents Label127 As System.Windows.Forms.Label + Friend WithEvents tmrcommandschedulestart As System.Windows.Forms.Timer + Friend WithEvents cmdmanualPlaycmdPlayNow As Button + Friend WithEvents MenuStrip1 As MenuStrip + Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem + Friend WithEvents NewToolStripMenuItem As ToolStripMenuItem + Friend WithEvents OpenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SaveToolStripMenuItem As ToolStripMenuItem + Friend WithEvents cmdmoveup As Button + Friend WithEvents cmdmovedown As Button + Friend WithEvents Label1 As Label + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents cmdmanualPlaycmdCueNow As Button +End Class diff --git a/CasparMediaPlayback/UcPlaylistScheduler.resx b/CasparMediaPlayback/UcPlaylistScheduler.resx new file mode 100644 index 0000000..134883b --- /dev/null +++ b/CasparMediaPlayback/UcPlaylistScheduler.resx @@ -0,0 +1,148 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgFBgcGBQgHBgcJCAgJDBMMDAsLDBgREg4THBgdHRsYGxof + IywlHyEqIRobJjQnKi4vMTIxHiU2OjYwOiwwMTD/2wBDAQgJCQwKDBcMDBcwIBsgMDAwMDAwMDAwMDAw + MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDD/wAARCAARABEDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD17W9fgsopZJp4o0RWZFeQKZCozgZ61m+E/GEOtafDdI0cMzls + 23mhmABxnHX9KyPHvh2y1HdBqUJaSFZDaP5hQbmHHTryBWB8OPCyaZHbTXUAbXTvRmjlLrtJ446dO9dy + px5Dlc5cx67/AGlB6miqP9iP/wA9RRXPaHc2vMj8a/8AII/4FWb8P+s30ooraP8Au7MpfxUdhRRRXGdJ + /9k= + + + + 137, 19 + + + 362, 8 + + + 97 + + \ No newline at end of file diff --git a/CasparMediaPlayback/UcPlaylistScheduler.vb b/CasparMediaPlayback/UcPlaylistScheduler.vb new file mode 100644 index 0000000..fde2a6e --- /dev/null +++ b/CasparMediaPlayback/UcPlaylistScheduler.vb @@ -0,0 +1,250 @@ +Imports System.IO + +Public Class UcPlaylistScheduler + + 'Dim g_int_ChannelNumber As Integer = 1 + Dim ofd2 As New OpenFileDialog + Dim osd2 As New SaveFileDialog + Public Function IntervalTill(ByVal d As DateTime) As Integer + On Error Resume Next + Dim TodayTickTime As DateTime = Today.Add(d.Subtract(#12:00:00 AM#)) + Dim TomorrowTickTime As DateTime = TodayTickTime.AddHours(24) + Dim Difference As TimeSpan + If DateTime.op_LessThan(Now, TodayTickTime) Then + Difference = TodayTickTime.Subtract(Now) + Else + Difference = TomorrowTickTime.Subtract(Now) + End If + Return Difference.TotalMilliseconds + End Function + Dim startingtimeofrecordingoal As DateTime + + Sub sortschedule() + On Error Resume Next + With dgvscheduler + For iticktime = 0 To .Rows.Count - 1 + .Rows(iticktime).Cells(1).Value = IntervalTill(CType(.Rows(iticktime).Cells(0).Value, Date).TimeOfDay.ToString) + Next + .Sort(.Columns(1), System.ComponentModel.ListSortDirection.Ascending) + .CurrentCell = .Rows(0).Cells(0) + End With + End Sub + Private Sub UcCommandScheduler_Load(sender As Object, e As EventArgs) Handles MyBase.Load + initialisedataforscheduler() + + End Sub + Sub initialisedataforscheduler() + On Error Resume Next + Dim col1 As New CalendarColumn() + + Dim col3 As New DataGridViewTextBoxColumn + Dim col4 As New DataGridViewTextBoxColumn + + col1.HeaderText = "Start Time" + + col3.HeaderText = "Tick Time (ms)" + + col4.HeaderText = "Playlist_Location" + + col1.Width = 75 + col4.Width = 500 + + With dgvscheduler + .Columns.Add(col1) + + .Columns.Add(col3) + .Columns.Add(col4) + col3.Frozen = True + col3.ReadOnly = True + col3.Width = 0 + .Rows.Add(2) + .Rows(0).Cells(0).Value = Now.AddSeconds(10) + '.Rows(0).Cells(2).Value = "play 1-1 amb loop,,mixer 1-2 fill .5 .2 .3 .6,, play 1-2 red,, mixer 1-2 opacity 0.5" + .Rows(0).Cells(2).Value = "C:\casparcg\mydata\playlist\Playlist_with_sample_files.txt" + + .Rows(1).Cells(0).Value = Now.AddSeconds(30) + .Rows(1).Cells(2).Value = "C:\casparcg\mydata\playlist\Playlist_with_different_logo_with_every_file.txt" + + + End With + + End Sub + + Private Sub cmdStartSchedule_Click(sender As Object, e As EventArgs) Handles cmdStartSchedule.Click + On Error Resume Next + sortschedule() + tmrcommandschedulestart.Interval = IntervalTill(CType(dgvscheduler.Rows(0).Cells(0).Value, Date).TimeOfDay.ToString) + tmrcommandschedulestart.Enabled = True + lbltestshedulerecording.Text = "Sheduled Started" + lbltestshedulerecording.BackColor = Color.Green + End Sub + + Private Sub tmrcommandschedulestart_Tick(sender As Object, e As EventArgs) Handles tmrcommandschedulestart.Tick + On Error Resume Next + + If dgvscheduler.CurrentRow.Cells(2).Value <> "" Then + ucPlaylist.openfile(dgvscheduler.Rows(0).Cells(2).Value) + ucPlaylist.cmdstartplaylist.PerformClick() + End If + startingtimeofrecordingoal = Now + sortschedule() + tmrcommandschedulestart.Interval = IntervalTill(CType(dgvscheduler.Rows(0).Cells(0).Value, Date).TimeOfDay.ToString) + + End Sub + + Private Sub cmdStopSchedule_Click(sender As Object, e As EventArgs) Handles cmdStopSchedule.Click + tmrcommandschedulestart.Enabled = False + lbltestshedulerecording.Text = "Schedule Stoped" + lbltestshedulerecording.BackColor = Color.Red + End Sub + + Private Sub newtsschedule_Click(sender As Object, e As EventArgs) + On Error Resume Next + dgvscheduler.Rows.Clear() + 'dgvshedulerecording.Rows.Add(7) + Me.lblscheduleList.Text = "Sheduler= " & "new" + End Sub + + Private Sub opentsschedule_Click(sender As Object, e As EventArgs) + On Error Resume Next + ofd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + ofd2.InitialDirectory = "c:\casparcg\mydata\scheduler\" + If (ofd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sr As StreamReader = New StreamReader(ofd2.FileName) + 'clear list + dgvscheduler.Rows.Clear() + 'Loop through and add list to the file. + Dim g As Integer = 0 + Dim li As String + Do Until sr.EndOfStream = True + li = sr.ReadLine() + dgvscheduler.Rows.Add() + Dim xyz As Array = Split(li, Chr(2)) + dgvscheduler.Rows(g).Cells(0).Value = xyz(0) + + dgvscheduler.Rows(g).Cells(2).Value = xyz(1) + g = g + 1 + Loop + sr.Close() + End Using + Me.lblscheduleList.Text = "Shedule= " & ofd2.FileName + End If + End Sub + + Private Sub savetsschedule_Click(sender As Object, e As EventArgs) + + End Sub + + Private Sub addschedule_Click(sender As Object, e As EventArgs) Handles addschedule.Click + On Error Resume Next + With dgvscheduler + .Rows.Insert(.CurrentRow.Index) + .Rows(.CurrentRow.Index - 1).Cells(0).Value = Now + + End With + End Sub + + Private Sub deleteschedule_Click(sender As Object, e As EventArgs) Handles deleteschedule.Click + On Error Resume Next + With dgvscheduler + .Rows.RemoveAt(.CurrentRow.Index) + End With + End Sub + + Private Sub cmdhideCommandSheduler_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub + + Private Sub cmdmanualPlaycmdPlayNow_Click(sender As Object, e As EventArgs) Handles cmdmanualPlaycmdPlayNow.Click + On Error Resume Next + ucPlaylist.openfile(dgvscheduler.CurrentRow.Cells(2).Value) + ucPlaylist.cmdstartplaylist.PerformClick() + + End Sub + + Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click + On Error Resume Next + dgvscheduler.Rows.Clear() + 'dgvshedulerecording.Rows.Add(7) + Me.lblscheduleList.Text = "Sheduler= " & "new" + End Sub + + Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click + On Error Resume Next + ofd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + ofd2.InitialDirectory = "c:\casparcg\mydata\scheduler\" + If (ofd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sr As StreamReader = New StreamReader(ofd2.FileName) + 'clear list + dgvscheduler.Rows.Clear() + 'Loop through and add list to the file. + Dim g As Integer = 0 + Dim li As String + Do Until sr.EndOfStream = True + li = sr.ReadLine() + dgvscheduler.Rows.Add() + Dim xyz As Array = Split(li, Chr(2)) + dgvscheduler.Rows(g).Cells(0).Value = xyz(0) + + dgvscheduler.Rows(g).Cells(2).Value = xyz(1) + g = g + 1 + Loop + sr.Close() + End Using + Me.lblscheduleList.Text = "Shedule= " & ofd2.FileName + End If + End Sub + Private Sub MenuStrip1_MouseHover(sender As Object, e As EventArgs) Handles MenuStrip1.MouseHover + MakeMenuDropDownWhenParrented(sender) + End Sub + Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click + On Error Resume Next + osd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + osd2.InitialDirectory = "c:\casparcg\mydata\scheduler\" + osd2.FileName = "" + If (osd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sw As StreamWriter = New StreamWriter(osd2.FileName) + If dgvscheduler.Rows.Count = 0 Then + sw.Write("") + Else + 'Loop through and add list to the file. + Dim f As Integer = 0 + Do Until f = dgvscheduler.Rows.Count + sw.WriteLine(Format(CType(dgvscheduler.Rows(f).Cells(0).Value, DateTime), "H:mm:ss") & Chr(2) & dgvscheduler.Rows(f).Cells(2).Value) + f = f + 1 + Loop + End If + sw.Close() + End Using + Me.lblscheduleList.Text = "Shedule= " & osd2.FileName + End If + End Sub + + Private Sub Dgvscheduler_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvscheduler.CellContentClick + + End Sub + + Private Sub dgvscheduler_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvscheduler.CellDoubleClick + If sender.columns(e.ColumnIndex).headercell.value = "Playlist_Location" Then + Dim aa As New OpenFileDialog + aa.InitialDirectory = "c:\casparcg\mydata\playlist\" + If aa.ShowDialog = DialogResult.OK Then + dgvscheduler.CurrentCell.Value = aa.FileName + End If + End If + End Sub + + Private Sub Cmdmoveup_Click(sender As Object, e As EventArgs) Handles cmdmoveup.Click + up(dgvscheduler) + End Sub + + Private Sub Cmdmovedown_Click(sender As Object, e As EventArgs) Handles cmdmovedown.Click + down(dgvscheduler) + End Sub + + Private Sub cmdmanualPlaycmdCueNow_Click(sender As Object, e As EventArgs) Handles cmdmanualPlaycmdCueNow.Click + On Error Resume Next + ucPlaylist.openfile(dgvscheduler.CurrentRow.Cells(2).Value) + frmmediaplayer.ucCasparcgWindow1.cmdcueclip.PerformClick() + End Sub +End Class diff --git a/CasparMediaPlayback/ucImageScroll.resx b/CasparMediaPlayback/ucImageScroll.resx new file mode 100644 index 0000000..339fb0e --- /dev/null +++ b/CasparMediaPlayback/ucImageScroll.resx @@ -0,0 +1,174 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + The idea is to use this for credit rolls. Create a long list in Photoshop; style it anyway you'd like, turn off the background layer and save the file as a PNG in media folder . + If you need to make any edits, just open the original PSD file and then save as a new PNG +Adobe Flash also can export a png file. File export - export image -- type-- png include --full document size-- save in media folder. +If Screen resolution is 720x576 then for horizontal scroll image must be of height =576 and width>720. And for vertical scroll width=720 and height>576 + + + Wiki +Image Scroll Can be used with the LOADBG, LOAD and PLAY commands. + MY_FILE SPEED [speed:int] BLUR [blur:int] PREMULTIPLY PROGRESSIVE +The Image Scroll displays bitmap images with and without alpha channel in the same manner as the Image Producer but also scrolls the image if it is larger than the consumer resolution. This feature was released in CasparCG Server 2.0.3. +AMCP Parameters +SPEED +SPEED [speed:int] +Specifies the speed in pixels per frame/field, negative numbering will reverse the scroll direction. +Example: If the Caspar consumer, is set to an output format of 1920 x 1080 and we have an image with a resolution of 1920 x 4000 in our media folder called test_scroll, the image can be made to scroll vertically from bottom to top on channel 1 layer 2 at 5 pixels per frame speed by entering: +PLAY 1-2 test_scroll SPEED 5 +If we wish to scroll the image from top to bottom, we can do this by putting a negative speed entry in, the command below does exactly the same as the one above but will scroll the image down the screen instead of up at 5 pixels per frame speed. +PLAY 1-2 test_scroll SPEED -5 +BLUR +BLUR [blur:int] +Specifies how much motion blur should be applied to the image. Make sure that you give CasparCG Server enough time to process the image; we recommend you use this with LOADBG. +Example: +PLAY 1-2 test_scroll SPEED 5 BLUR 50 +PREMULTIPLY +PREMULTIPLY +Premultiplies images with straight alpha channel against black. Example: +PLAY 1-2 test_scroll PREMULTIPLY +PROGRESSIVE +PROGRESSIVE +When using an interlaced video format, Caspar will use field rate motion based on the speed value, if progressive frame based motion is desirable then Caspar's default behaviour can be adjusted by adding this argument onto the command. +Example: +PLAY 1-2 test_scroll SPEED 5 PROGRESSIVE +Recommendations for smooth scrolling + For interlaced video formats always use an even speed value (2, 4, 8, 10 etc). The reason for this is that otherwise the image will loose half of its vertical resolution while scrolling. This is only important when scrolling vertically though (credit rolls for example.) + For interlaced video scrolling vertically, avoid thin horisontal and sharp details, because it will flicker during scrolling. + Apply a slight motion blur in the direction where the image is supposed to be scrolled, this will reduce the flickering effect but loose some detail. This can be done by CasparCG Server on loading the image via the BLUR parameter but it will add to the load time (filtering speed is related to the number of pixels to blur.) Another way of doing it is to apply a directional blur into the image itself, for example the "Motion Blur" filter in Photoshop. + Images are sometimes stored with straight alpha by image editors. If so the PREMULTIPLY parameter must be given in order for CasparCG Server to perform as expected when rendering. + For progressive video formats the speed value can have uneven values or even values without a problem with vertical resolution. + Don't use decimal speed values unless 1 pixel per frame/field is too fast, because the brightness of details in the image might appear to change when the image is placed with subpixel accuracy between two pixels. +Examples of scrolling commands +If you are using the video format 1080i5000 and have created a bitmap image with the exact width of 1920 pixels (and a height more than 1080 pixels) called cred_1080.tga you can write: +PLAY 1 cred_1080 SPEED 6 +...or if the TGA image is not stored with premultiplied alpha: +PLAY 1 cred_1080 SPEED 6 PREMULTIPLY +If you get too much interline jitter during scrolling of sharp details you can add a BLUR value of, for example, 4 pixels: +PLAY 1 cred_1080 SPEED 6 PREMULTIPLY BLUR 4 +If you want a film-like, choppy motion, but keep the same total scrolling duration (since the movement now occurs onlyfpstimes per second instead of 50 times per second) the speed is doubled to appear to scroll in the same speed: +PLAY 1 cred_1080 SPEED 12 PREMULTIPLY BLUR 4 PROGRESSIVE +If the performance overhead of the motion blur is to high to be able to start the credits on time, consider doing a LOADBG in good time before and then just PLAY when the time comes: +LOADBG 1 cred_1080 SPEED 12 PREMULTIPLY BLUR 4 PROGRESSIVE +PLAY 1 +For horizontal crawler/ticker, the same techniques applies, but the image file needs to be exactly 1080 pixels high instead of 1920 pixels wide. + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucImageScroll.vb b/CasparMediaPlayback/ucImageScroll.vb new file mode 100644 index 0000000..1883c38 --- /dev/null +++ b/CasparMediaPlayback/ucImageScroll.vb @@ -0,0 +1,104 @@ +Public Class ucImageScroll + Dim ipauseresume As Integer = 0 + Private Sub cmdimagescrollplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdimagescrollplay.Click + On Error Resume Next + Dim xxx As String = "" + Dim yyy As String = "" + If chkPREMULTIPLY.Checked = True Then xxx = "PREMULTIPLY" + If chkPROGRESSIVE.Checked = True Then yyy = "PROGRESSIVE" + CasparDevice.SendString("clear " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text) + CasparDevice.SendString("loadbg " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text & " " & """" & cmbimageforimagescroll.Text & """" & " speed " & cmbimagescrollspeed.Text & " blur " & cmbimagescrollblur.Text & " " & xxx & " " & yyy) + Threading.Thread.Sleep(1000) + CasparDevice.SendString("Play " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text) + + ipauseresume = 0 + End Sub + + Sub mediafilesforimagescroll() + On Error Resume Next + cmbimageforimagescroll.Items.Clear() + + CasparDevice.RefreshMediafiles() + Threading.Thread.Sleep(250) + For Each File In CasparDevice.Mediafiles + If File.Type = Svt.Caspar.MediaType.STILL Then + cmbimageforimagescroll.Items.Add(Replace(File.ToString, "\", "/")) + End If + Next + End Sub + Private Sub cmdrefreshimagefilesforimagescroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrefreshimagefilesforimagescroll.Click + On Error Resume Next + mediafilesforimagescroll() + End Sub + + Private Sub chkPREMULTIPLY_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkPREMULTIPLY.CheckedChanged + On Error Resume Next + If chkPREMULTIPLY.Checked = True Then + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text & " PREMULTIPLY 1") + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text & " PREMULTIPLY 0") + + End If + + End Sub + + Private Sub chkPROGRESSIVE_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkPROGRESSIVE.CheckedChanged + On Error Resume Next + If chkPROGRESSIVE.Checked = True Then + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text & " PROGRESSIVE 1") + + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text & " PROGRESSIVE 0") + + End If + End Sub + + Private Sub cmbimagescrollblur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbimagescrollblur.SelectedIndexChanged + On Error Resume Next + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text & " blur " & cmbimagescrollblur.Text) + + End Sub + + Private Sub cmbimagescrollspeed_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbimagescrollspeed.SelectedIndexChanged + On Error Resume Next + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text & " speed " & cmbimagescrollspeed.Text) + + End Sub + Private Sub cmdimagestop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdimagestop.Click + On Error Resume Next + CasparDevice.SendString("stop " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text) + ipauseresume = 0 + End Sub + + + Private Sub cmdhidegbimagescroll_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub + + Private Sub cmdPauseResume_Click(sender As Object, e As EventArgs) Handles cmdPauseResume.Click + + If Mid(frmmediaplayer.lblserverversion.Text, 1, 3) = "2.1" Then + If ipauseresume = 0 Then + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text & " speed 0") + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text & " speed " & cmbimagescrollspeed.Text) + End If + Else + If ipauseresume = 0 Then + CasparDevice.SendString("pause " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text) + Else + CasparDevice.SendString("resume " & g_int_ChannelNumber & "-" & cmblayervideoforimage.Text) + End If + End If + + ipauseresume = ipauseresume + 1 + If ipauseresume > 1 Then ipauseresume = 0 + End Sub + Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + On Error Resume Next + Process.Start("https://drive.google.com/open?id=1DlMkTGOlqAMhw0eRReyPwv85ow6FVTBn") + End Sub + Private Sub ucImageScroll_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + End Sub +End Class diff --git a/CasparMediaPlayback/ucLogo.Designer.vb b/CasparMediaPlayback/ucLogo.Designer.vb new file mode 100644 index 0000000..e943da4 --- /dev/null +++ b/CasparMediaPlayback/ucLogo.Designer.vb @@ -0,0 +1,476 @@ + _ +Partial Class ucLogo + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucLogo)) + Me.gblogo = New System.Windows.Forms.GroupBox() + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Label1 = New System.Windows.Forms.Label() + Me.nopacitylogo = New System.Windows.Forms.NumericUpDown() + Me.txtvideoloopaslogostop = New System.Windows.Forms.TextBox() + Me.Label261 = New System.Windows.Forms.Label() + Me.stopvideoloopaslogo = New System.Windows.Forms.Button() + Me.cmdvideoloopaslogo = New System.Windows.Forms.Button() + Me.txtvideoloopaslogo = New System.Windows.Forms.TextBox() + Me.cmdhidegblogo = New System.Windows.Forms.Button() + Me.txtlogolocation = New System.Windows.Forms.TextBox() + Me.lbllogofilename = New System.Windows.Forms.Label() + Me.Label122 = New System.Windows.Forms.Label() + Me.cmdresetlogo = New System.Windows.Forms.Button() + Me.cmbflashlayerforlogo = New System.Windows.Forms.ComboBox() + Me.Label95 = New System.Windows.Forms.Label() + Me.cmdlogoopen = New System.Windows.Forms.Button() + Me.Label70 = New System.Windows.Forms.Label() + Me.Label69 = New System.Windows.Forms.Label() + Me.Label68 = New System.Windows.Forms.Label() + Me.Label67 = New System.Windows.Forms.Label() + Me.nlogoheight = New System.Windows.Forms.NumericUpDown() + Me.nlogowidth = New System.Windows.Forms.NumericUpDown() + Me.nlogoy = New System.Windows.Forms.NumericUpDown() + Me.nlogox = New System.Windows.Forms.NumericUpDown() + Me.cmdstoplogo = New System.Windows.Forms.Button() + Me.piclogo = New AxShockwaveFlashObjects.AxShockwaveFlash() + Me.cmdplaylogo = New System.Windows.Forms.Button() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.gblogo.SuspendLayout() + Me.MenuStrip1.SuspendLayout() + CType(Me.nopacitylogo, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nlogoheight, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nlogowidth, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nlogoy, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nlogox, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.piclogo, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.SuspendLayout() + ' + 'gblogo + ' + Me.gblogo.BackColor = System.Drawing.Color.LightSeaGreen + Me.gblogo.Controls.Add(Me.GroupBox2) + Me.gblogo.Controls.Add(Me.GroupBox1) + Me.gblogo.Controls.Add(Me.cmdhidegblogo) + Me.gblogo.Location = New System.Drawing.Point(3, 2) + Me.gblogo.Name = "gblogo" + Me.gblogo.Size = New System.Drawing.Size(650, 296) + Me.gblogo.TabIndex = 443 + Me.gblogo.TabStop = False + Me.gblogo.Text = "Logo" + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(7, 65) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(45, 24) + Me.MenuStrip1.TabIndex = 1177 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'FileToolStripMenuItem + ' + Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OpenToolStripMenuItem, Me.SaveToolStripMenuItem}) + Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" + Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20) + Me.FileToolStripMenuItem.Text = "File" + ' + 'OpenToolStripMenuItem + ' + Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" + Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.OpenToolStripMenuItem.Text = "Open" + ' + 'SaveToolStripMenuItem + ' + Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" + Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.SaveToolStripMenuItem.Text = "Save" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(123, 83) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(43, 13) + Me.Label1.TabIndex = 724 + Me.Label1.Text = "Opacity" + ' + 'nopacitylogo + ' + Me.nopacitylogo.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.caspar_media_playback.My.MySettings.Default, "nopacitylogo", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.nopacitylogo.DecimalPlaces = 1 + Me.nopacitylogo.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nopacitylogo.Location = New System.Drawing.Point(179, 80) + Me.nopacitylogo.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nopacitylogo.Name = "nopacitylogo" + Me.nopacitylogo.Size = New System.Drawing.Size(46, 20) + Me.nopacitylogo.TabIndex = 723 + Me.nopacitylogo.Value = Global.caspar_media_playback.My.MySettings.Default.nopacitylogo + ' + 'txtvideoloopaslogostop + ' + Me.txtvideoloopaslogostop.Location = New System.Drawing.Point(6, 88) + Me.txtvideoloopaslogostop.Multiline = True + Me.txtvideoloopaslogostop.Name = "txtvideoloopaslogostop" + Me.txtvideoloopaslogostop.Size = New System.Drawing.Size(194, 46) + Me.txtvideoloopaslogostop.TabIndex = 722 + Me.txtvideoloopaslogostop.Text = "stop 1-20000" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "mixer 1-20000 fill 0 0 1 1" + ' + 'Label261 + ' + Me.Label261.AutoSize = True + Me.Label261.Location = New System.Drawing.Point(5, 4) + Me.Label261.Name = "Label261" + Me.Label261.Size = New System.Drawing.Size(347, 13) + Me.Label261.TabIndex = 721 + Me.Label261.Text = "Video loop as logo ---video from media folder only--amb is video file name" + ' + 'stopvideoloopaslogo + ' + Me.stopvideoloopaslogo.BackColor = System.Drawing.Color.Red + Me.stopvideoloopaslogo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.stopvideoloopaslogo.ForeColor = System.Drawing.Color.White + Me.stopvideoloopaslogo.Location = New System.Drawing.Point(241, 88) + Me.stopvideoloopaslogo.Name = "stopvideoloopaslogo" + Me.stopvideoloopaslogo.Size = New System.Drawing.Size(49, 48) + Me.stopvideoloopaslogo.TabIndex = 720 + Me.stopvideoloopaslogo.Text = "Stop" + Me.stopvideoloopaslogo.UseVisualStyleBackColor = False + ' + 'cmdvideoloopaslogo + ' + Me.cmdvideoloopaslogo.BackColor = System.Drawing.Color.Green + Me.cmdvideoloopaslogo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdvideoloopaslogo.ForeColor = System.Drawing.Color.White + Me.cmdvideoloopaslogo.Location = New System.Drawing.Point(241, 29) + Me.cmdvideoloopaslogo.Name = "cmdvideoloopaslogo" + Me.cmdvideoloopaslogo.Size = New System.Drawing.Size(47, 48) + Me.cmdvideoloopaslogo.TabIndex = 719 + Me.cmdvideoloopaslogo.Text = "Play" + Me.cmdvideoloopaslogo.UseVisualStyleBackColor = False + ' + 'txtvideoloopaslogo + ' + Me.txtvideoloopaslogo.Location = New System.Drawing.Point(8, 29) + Me.txtvideoloopaslogo.Multiline = True + Me.txtvideoloopaslogo.Name = "txtvideoloopaslogo" + Me.txtvideoloopaslogo.Size = New System.Drawing.Size(194, 46) + Me.txtvideoloopaslogo.TabIndex = 718 + Me.txtvideoloopaslogo.Text = "play 1-20000 amb loop" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "mixer 1-20000 fill 0.75 0.05 0.20 0.20" + ' + 'cmdhidegblogo + ' + Me.cmdhidegblogo.Image = CType(resources.GetObject("cmdhidegblogo.Image"), System.Drawing.Image) + Me.cmdhidegblogo.Location = New System.Drawing.Point(615, 3) + Me.cmdhidegblogo.Name = "cmdhidegblogo" + Me.cmdhidegblogo.Size = New System.Drawing.Size(28, 27) + Me.cmdhidegblogo.TabIndex = 717 + Me.cmdhidegblogo.UseVisualStyleBackColor = True + ' + 'txtlogolocation + ' + Me.txtlogolocation.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtlogolocation", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtlogolocation.Location = New System.Drawing.Point(19, 208) + Me.txtlogolocation.Name = "txtlogolocation" + Me.txtlogolocation.Size = New System.Drawing.Size(245, 20) + Me.txtlogolocation.TabIndex = 601 + Me.txtlogolocation.Text = Global.caspar_media_playback.My.MySettings.Default.txtlogolocation + ' + 'lbllogofilename + ' + Me.lbllogofilename.AutoSize = True + Me.lbllogofilename.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "lbllogofilename", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.lbllogofilename.Location = New System.Drawing.Point(149, 53) + Me.lbllogofilename.MaximumSize = New System.Drawing.Size(200, 0) + Me.lbllogofilename.Name = "lbllogofilename" + Me.lbllogofilename.Size = New System.Drawing.Size(57, 13) + Me.lbllogofilename.TabIndex = 600 + Me.lbllogofilename.Text = Global.caspar_media_playback.My.MySettings.Default.lbllogofilename + ' + 'Label122 + ' + Me.Label122.AutoSize = True + Me.Label122.Location = New System.Drawing.Point(91, 52) + Me.Label122.Name = "Label122" + Me.Label122.Size = New System.Drawing.Size(58, 13) + Me.Label122.TabIndex = 599 + Me.Label122.Text = "File name:-" + ' + 'cmdresetlogo + ' + Me.cmdresetlogo.Location = New System.Drawing.Point(229, 80) + Me.cmdresetlogo.Name = "cmdresetlogo" + Me.cmdresetlogo.Size = New System.Drawing.Size(35, 126) + Me.cmdresetlogo.TabIndex = 452 + Me.cmdresetlogo.Text = "R" + Me.cmdresetlogo.UseVisualStyleBackColor = True + ' + 'cmbflashlayerforlogo + ' + Me.cmbflashlayerforlogo.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmbflashlayerforlogo", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmbflashlayerforlogo.FormattingEnabled = True + Me.cmbflashlayerforlogo.Items.AddRange(New Object() {"41", "42", "43", "44", "45"}) + Me.cmbflashlayerforlogo.Location = New System.Drawing.Point(210, 30) + Me.cmbflashlayerforlogo.Name = "cmbflashlayerforlogo" + Me.cmbflashlayerforlogo.Size = New System.Drawing.Size(40, 21) + Me.cmbflashlayerforlogo.TabIndex = 321 + Me.cmbflashlayerforlogo.Text = "41" + ' + 'Label95 + ' + Me.Label95.AutoSize = True + Me.Label95.Location = New System.Drawing.Point(96, 33) + Me.Label95.Name = "Label95" + Me.Label95.Size = New System.Drawing.Size(108, 13) + Me.Label95.TabIndex = 451 + Me.Label95.Text = "video layer-flash layer" + ' + 'cmdlogoopen + ' + Me.cmdlogoopen.Location = New System.Drawing.Point(15, 238) + Me.cmdlogoopen.Name = "cmdlogoopen" + Me.cmdlogoopen.Size = New System.Drawing.Size(48, 23) + Me.cmdlogoopen.TabIndex = 450 + Me.cmdlogoopen.Text = "Open" + Me.cmdlogoopen.UseVisualStyleBackColor = True + ' + 'Label70 + ' + Me.Label70.AutoSize = True + Me.Label70.Location = New System.Drawing.Point(130, 188) + Me.Label70.Name = "Label70" + Me.Label70.Size = New System.Drawing.Size(38, 13) + Me.Label70.TabIndex = 449 + Me.Label70.Text = "Height" + ' + 'Label69 + ' + Me.Label69.AutoSize = True + Me.Label69.Location = New System.Drawing.Point(130, 161) + Me.Label69.Name = "Label69" + Me.Label69.Size = New System.Drawing.Size(35, 13) + Me.Label69.TabIndex = 448 + Me.Label69.Text = "Width" + ' + 'Label68 + ' + Me.Label68.AutoSize = True + Me.Label68.Location = New System.Drawing.Point(151, 137) + Me.Label68.Name = "Label68" + Me.Label68.Size = New System.Drawing.Size(14, 13) + Me.Label68.TabIndex = 447 + Me.Label68.Text = "Y" + ' + 'Label67 + ' + Me.Label67.AutoSize = True + Me.Label67.Location = New System.Drawing.Point(151, 112) + Me.Label67.Name = "Label67" + Me.Label67.Size = New System.Drawing.Size(14, 13) + Me.Label67.TabIndex = 446 + Me.Label67.Text = "X" + ' + 'nlogoheight + ' + Me.nlogoheight.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.caspar_media_playback.My.MySettings.Default, "nlogoheight", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.nlogoheight.Location = New System.Drawing.Point(172, 185) + Me.nlogoheight.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) + Me.nlogoheight.Name = "nlogoheight" + Me.nlogoheight.Size = New System.Drawing.Size(55, 20) + Me.nlogoheight.TabIndex = 444 + Me.nlogoheight.Value = New Decimal(New Integer() {120, 0, 0, 0}) + ' + 'nlogowidth + ' + Me.nlogowidth.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.caspar_media_playback.My.MySettings.Default, "nlogowidth", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.nlogowidth.Location = New System.Drawing.Point(172, 159) + Me.nlogowidth.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) + Me.nlogowidth.Name = "nlogowidth" + Me.nlogowidth.Size = New System.Drawing.Size(55, 20) + Me.nlogowidth.TabIndex = 443 + Me.nlogowidth.Value = New Decimal(New Integer() {160, 0, 0, 0}) + ' + 'nlogoy + ' + Me.nlogoy.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.caspar_media_playback.My.MySettings.Default, "nlogoy", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.nlogoy.Location = New System.Drawing.Point(172, 133) + Me.nlogoy.Maximum = New Decimal(New Integer() {576, 0, 0, 0}) + Me.nlogoy.Minimum = New Decimal(New Integer() {576, 0, 0, -2147483648}) + Me.nlogoy.Name = "nlogoy" + Me.nlogoy.Size = New System.Drawing.Size(55, 20) + Me.nlogoy.TabIndex = 442 + Me.nlogoy.Value = New Decimal(New Integer() {6, 0, 0, 0}) + ' + 'nlogox + ' + Me.nlogox.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.caspar_media_playback.My.MySettings.Default, "nlogox", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.nlogox.Location = New System.Drawing.Point(172, 107) + Me.nlogox.Maximum = New Decimal(New Integer() {768, 0, 0, 0}) + Me.nlogox.Minimum = New Decimal(New Integer() {768, 0, 0, -2147483648}) + Me.nlogox.Name = "nlogox" + Me.nlogox.Size = New System.Drawing.Size(55, 20) + Me.nlogox.TabIndex = 441 + Me.nlogox.Value = New Decimal(New Integer() {592, 0, 0, 0}) + ' + 'cmdstoplogo + ' + Me.cmdstoplogo.BackColor = System.Drawing.Color.Red + Me.cmdstoplogo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdstoplogo.ForeColor = System.Drawing.Color.White + Me.cmdstoplogo.Location = New System.Drawing.Point(116, 238) + Me.cmdstoplogo.Name = "cmdstoplogo" + Me.cmdstoplogo.Size = New System.Drawing.Size(49, 23) + Me.cmdstoplogo.TabIndex = 440 + Me.cmdstoplogo.Text = "Stop" + Me.cmdstoplogo.UseVisualStyleBackColor = False + ' + 'piclogo + ' + Me.piclogo.Enabled = True + Me.piclogo.Location = New System.Drawing.Point(7, 110) + Me.piclogo.MaximumSize = New System.Drawing.Size(400, 300) + Me.piclogo.MinimumSize = New System.Drawing.Size(62, 33) + Me.piclogo.Name = "piclogo" + Me.piclogo.OcxState = CType(resources.GetObject("piclogo.OcxState"), System.Windows.Forms.AxHost.State) + Me.piclogo.Size = New System.Drawing.Size(117, 85) + Me.piclogo.TabIndex = 358 + ' + 'cmdplaylogo + ' + Me.cmdplaylogo.BackColor = System.Drawing.Color.Green + Me.cmdplaylogo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdplaylogo.ForeColor = System.Drawing.Color.White + Me.cmdplaylogo.Location = New System.Drawing.Point(63, 238) + Me.cmdplaylogo.Name = "cmdplaylogo" + Me.cmdplaylogo.Size = New System.Drawing.Size(47, 23) + Me.cmdplaylogo.TabIndex = 439 + Me.cmdplaylogo.Text = "Play" + Me.cmdplaylogo.UseVisualStyleBackColor = False + ' + 'GroupBox1 + ' + Me.GroupBox1.BackColor = System.Drawing.Color.GreenYellow + Me.GroupBox1.Controls.Add(Me.txtvideoloopaslogostop) + Me.GroupBox1.Controls.Add(Me.Label261) + Me.GroupBox1.Controls.Add(Me.stopvideoloopaslogo) + Me.GroupBox1.Controls.Add(Me.cmdvideoloopaslogo) + Me.GroupBox1.Controls.Add(Me.txtvideoloopaslogo) + Me.GroupBox1.Location = New System.Drawing.Point(283, 40) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(359, 143) + Me.GroupBox1.TabIndex = 1178 + Me.GroupBox1.TabStop = False + ' + 'GroupBox2 + ' + Me.GroupBox2.BackColor = System.Drawing.Color.MediumAquamarine + Me.GroupBox2.Controls.Add(Me.MenuStrip1) + Me.GroupBox2.Controls.Add(Me.Label1) + Me.GroupBox2.Controls.Add(Me.nopacitylogo) + Me.GroupBox2.Controls.Add(Me.txtlogolocation) + Me.GroupBox2.Controls.Add(Me.lbllogofilename) + Me.GroupBox2.Controls.Add(Me.Label122) + Me.GroupBox2.Controls.Add(Me.cmdresetlogo) + Me.GroupBox2.Controls.Add(Me.cmbflashlayerforlogo) + Me.GroupBox2.Controls.Add(Me.Label95) + Me.GroupBox2.Controls.Add(Me.cmdlogoopen) + Me.GroupBox2.Controls.Add(Me.Label70) + Me.GroupBox2.Controls.Add(Me.Label69) + Me.GroupBox2.Controls.Add(Me.Label68) + Me.GroupBox2.Controls.Add(Me.Label67) + Me.GroupBox2.Controls.Add(Me.nlogoheight) + Me.GroupBox2.Controls.Add(Me.nlogowidth) + Me.GroupBox2.Controls.Add(Me.nlogoy) + Me.GroupBox2.Controls.Add(Me.nlogox) + Me.GroupBox2.Controls.Add(Me.cmdstoplogo) + Me.GroupBox2.Controls.Add(Me.piclogo) + Me.GroupBox2.Controls.Add(Me.cmdplaylogo) + Me.GroupBox2.Location = New System.Drawing.Point(6, 19) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(268, 270) + Me.GroupBox2.TabIndex = 1179 + Me.GroupBox2.TabStop = False + ' + 'ucLogo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Controls.Add(Me.gblogo) + Me.Name = "ucLogo" + Me.Size = New System.Drawing.Size(656, 299) + Me.gblogo.ResumeLayout(False) + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + CType(Me.nopacitylogo, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nlogoheight, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nlogowidth, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nlogoy, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nlogox, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.piclogo, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gblogo As System.Windows.Forms.GroupBox + Friend WithEvents txtvideoloopaslogostop As System.Windows.Forms.TextBox + Friend WithEvents Label261 As System.Windows.Forms.Label + Friend WithEvents stopvideoloopaslogo As System.Windows.Forms.Button + Friend WithEvents cmdvideoloopaslogo As System.Windows.Forms.Button + Friend WithEvents txtvideoloopaslogo As System.Windows.Forms.TextBox + Friend WithEvents cmdhidegblogo As System.Windows.Forms.Button + Friend WithEvents txtlogolocation As System.Windows.Forms.TextBox + Friend WithEvents lbllogofilename As System.Windows.Forms.Label + Friend WithEvents Label122 As System.Windows.Forms.Label + Friend WithEvents cmdresetlogo As System.Windows.Forms.Button + Friend WithEvents cmbflashlayerforlogo As System.Windows.Forms.ComboBox + Friend WithEvents Label95 As System.Windows.Forms.Label + Friend WithEvents cmdlogoopen As System.Windows.Forms.Button + Friend WithEvents Label70 As System.Windows.Forms.Label + Friend WithEvents Label69 As System.Windows.Forms.Label + Friend WithEvents Label68 As System.Windows.Forms.Label + Friend WithEvents Label67 As System.Windows.Forms.Label + Friend WithEvents nlogoheight As System.Windows.Forms.NumericUpDown + Friend WithEvents nlogowidth As System.Windows.Forms.NumericUpDown + Friend WithEvents nlogoy As System.Windows.Forms.NumericUpDown + Friend WithEvents nlogox As System.Windows.Forms.NumericUpDown + Friend WithEvents cmdstoplogo As System.Windows.Forms.Button + Friend WithEvents piclogo As AxShockwaveFlashObjects.AxShockwaveFlash + Friend WithEvents cmdplaylogo As System.Windows.Forms.Button + Friend WithEvents Label1 As Label + Friend WithEvents nopacitylogo As NumericUpDown + Friend WithEvents MenuStrip1 As MenuStrip + Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem + Friend WithEvents OpenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SaveToolStripMenuItem As ToolStripMenuItem + Friend WithEvents GroupBox2 As GroupBox + Friend WithEvents GroupBox1 As GroupBox +End Class diff --git a/CasparMediaPlayback/ucLogo.resx b/CasparMediaPlayback/ucLogo.resx new file mode 100644 index 0000000..d9fc27c --- /dev/null +++ b/CasparMediaPlayback/ucLogo.resx @@ -0,0 +1,161 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 847, 154 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAA6wEAAAIB + AAAAAQAAAAAAAAAAAAAAANYBAABnVWZVAA4AABgMAADJCAAACAACAAAAAAAIAEIAAABDADoAXABDAGEA + cwBwAGEAcgBjAGcAXABtAHkAZABhAHQAYQBcAGwAbwBnAG8AXAB0AGkAbQBlAC4AcABuAGcAAAAIAEIA + AABDADoAXABDAGEAcwBwAGEAcgBjAGcAXABtAHkAZABhAHQAYQBcAGwAbwBnAG8AXAB0AGkAbQBlAC4A + cABuAGcAAAAIAA4AAABXAGkAbgBkAG8AdwAAAAgABgAAAC0AMQAAAAgABgAAAC0AMQAAAAgACgAAAEgA + aQBnAGgAAAAIAAIAAAAAAAgABgAAAC0AMQAAAAgAAAAAAAgAAgAAAAAACAAQAAAAUwBoAG8AdwBBAGwA + bAAAAAgABAAAADAAAAAIAAQAAAAwAAAACAACAAAAAAAIAAAAAAAIAAIAAAAAAA0AAAAAAAAAAAAAAAAA + AAAAAAgABAAAADEAAAAIAAQAAAAwAAAACAAAAAAACAAEAAAAMAAAAAgACAAAAGEAbABsAAAACAAMAAAA + ZgBhAGwAcwBlAAAACAAMAAAAZgBhAGwAcwBlAAAACAAEAAAAMAAAAAgADAAAAHMAYwBhAGwAZQAAAAgA + BgAAAC0AMQAAAAs= + + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAkGBggGBQkIBwgKCQkKDRYODQwMDRoTFBAWHxwhIB8cHh4j + JzIqIyUvJR4eKzssLzM1ODg4ISo9QTw2QTI3ODX/2wBDAQkKCg0LDRkODhk1JB4kNTU1NTU1NTU1NTU1 + NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTX/wAARCAASABIDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDupNTmvNduLKKZhNGW2oJCoIHp71Dc6hc2dgt3cvPCjvsUSSkM + fw9K5HVL+y074kXlzqSXDRQyGREiOCzgArn2qr4m8WweJ7GGaeGSDUYnK4RsxGP8e9cbqb66n0kcJJ8r + jH3bK7sux6fFqdyYUIkyCowTRVCzDfYoMo3+rXt7UVXMzh+rwLGu20EmolnhjZiOpUE1Ris7fzlPkRZy + P4BRRUP4jqofwV6HYIi7F+UdPSiiiug8F7n/2Q== + + + + 41 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucLogo.vb b/CasparMediaPlayback/ucLogo.vb new file mode 100644 index 0000000..08c4a6b --- /dev/null +++ b/CasparMediaPlayback/ucLogo.vb @@ -0,0 +1,123 @@ +Public Class ucLogo + Private Sub cmdhidegblogo_Click(sender As Object, e As EventArgs) Handles cmdhidegblogo.Click + Me.Hide() + End Sub + Private Sub cmdplaylogo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplaylogo.Click + playlogo() + End Sub + Sub playlogo() + On Error Resume Next + CasparCGDataCollection.Clear() 'cgData.Clear() + + CasparCGDataCollection.SetData("logofilename", Replace(piclogo.Movie, "\", "/")) + CasparCGDataCollection.SetData("logowidth", nlogowidth.Value) + CasparCGDataCollection.SetData("logoheight", nlogoheight.Value) + CasparCGDataCollection.SetData("logox", nlogox.Value) + CasparCGDataCollection.SetData("logoy", nlogoy.Value) + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbflashlayerforlogo.Text & " opacity " & Replace(nopacitylogo.Value, ",", ".")) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmbflashlayerforlogo.Text), Int(cmbflashlayerforlogo.Text), "CMP/logo/logo", True, CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + Private Sub cmdresetlogo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresetlogo.Click + On Error Resume Next + nlogox.Value = 592 + nlogoy.Value = 6 + nlogowidth.Value = 160 + nlogoheight.Value = 120 + nopacitylogo.Value = 1.0 + End Sub + Private Sub nlogox_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nlogox.ValueChanged, nlogoy.ValueChanged, nlogowidth.ValueChanged, nlogoheight.ValueChanged, nopacitylogo.ValueChanged + On Error Resume Next + CasparCGDataCollection.SetData("logofilename", Replace(piclogo.Movie, "\", "/")) + CasparCGDataCollection.SetData("logowidth", nlogowidth.Value) + CasparCGDataCollection.SetData("logoheight", nlogoheight.Value) + CasparCGDataCollection.SetData("logox", nlogox.Value) + CasparCGDataCollection.SetData("logoy", nlogoy.Value) + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbflashlayerforlogo.Text & " opacity " & Replace(nopacitylogo.Value, ",", ".")) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmbflashlayerforlogo.Text), Int(cmbflashlayerforlogo.Text), CasparCGDataCollection) + + End Sub + + Private Sub cmdstoplogo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstoplogo.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(Int(cmbflashlayerforlogo.Text), Int(cmbflashlayerforlogo.Text)) + + End Sub + Private Sub cmdlogoopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlogoopen.Click, piclogo.Enter + On Error Resume Next + picofd.InitialDirectory = "c:\casparcg\mydata\logo" + If (picofd.ShowDialog() = Windows.Forms.DialogResult.OK) Then + piclogo.Movie = picofd.FileName + txtlogolocation.Text = picofd.FileName + End If + End Sub + Private Sub opentslogo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + End Sub + Sub readfileforlogo(ByVal str As String) + On Error Resume Next + Dim i As Integer + Dim a As Array + + a = Split(My.Computer.FileSystem.ReadAllText(str), Chr(2) + "=") + Dim b As Array + + For i = 0 To Me.gblogo.Controls.Count - 1 + b = Split(a(i + 1), Chr(3) + Chr(3)) + Me.gblogo.Controls(i).Text = b(0) + Next + End Sub + + Private Sub savetslogo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + Private Sub txtlogolocation_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtlogolocation.TextChanged + On Error Resume Next + piclogo.Movie = txtlogolocation.Text + End Sub + + Private Sub cmdvideoloopaslogo_Click(sender As Object, e As EventArgs) Handles cmdvideoloopaslogo.Click + On Error Resume Next + CasparDevice.SendString(txtvideoloopaslogo.Text) + End Sub + Private Sub stopvideoloopaslogo_Click(sender As Object, e As EventArgs) Handles stopvideoloopaslogo.Click + On Error Resume Next + CasparDevice.SendString(txtvideoloopaslogostop.Text) + End Sub + + Private Sub ucLogo_Load(sender As Object, e As EventArgs) Handles MyBase.Load + On Error Resume Next + piclogo.Movie = txtlogolocation.Text + End Sub + + Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click + On Error Resume Next + ofd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + ofd2.InitialDirectory = "c:\casparcg\mydata\logo\logo_list\" + If (ofd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + readfileforlogo(ofd2.FileName) + lbllogofilename.Text = ofd2.FileName + End If + End Sub + + Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click + On Error Resume Next + osd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + osd2.InitialDirectory = "c:\casparcg\mydata\logo\logo_list\" + osd2.FileName = "" + If (osd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Dim i As Integer + Dim a As String = "" + For i = 0 To Me.gblogo.Controls.Count - 1 + a = a + Me.gblogo.Controls(i).Name + Chr(2) + "=" + Me.gblogo.Controls(i).Text + Chr(3) + Chr(3) + Next + a = a + Chr(2) + "= " + My.Computer.FileSystem.WriteAllText(osd2.FileName, a, False) + lbllogofilename.Text = osd2.FileName + End If + End Sub + + Private Sub MenuStrip1_MouseHover(sender As Object, e As EventArgs) Handles MenuStrip1.MouseHover + MakeMenuDropDownWhenParrented(sender) + End Sub +End Class diff --git a/CasparMediaPlayback/ucMAM.designer.vb b/CasparMediaPlayback/ucMAM.designer.vb new file mode 100644 index 0000000..ebb261e --- /dev/null +++ b/CasparMediaPlayback/ucMAM.designer.vb @@ -0,0 +1,1885 @@ + _ +Partial Class ucMAM + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucMAM)) + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.lstSourceDirectory = New System.Windows.Forms.ListBox() + Me.lstDestinationDirectory = New System.Windows.Forms.ListBox() + Me.cmdCopy = New System.Windows.Forms.Button() + Me.cmdMove = New System.Windows.Forms.Button() + Me.cmdshowfilesinSourcelistbox = New System.Windows.Forms.Button() + Me.cmdshowfilesinDestinationlistbox = New System.Windows.Forms.Button() + Me.txtSourceDirectory = New System.Windows.Forms.TextBox() + Me.txtDestinationDirectory = New System.Windows.Forms.TextBox() + Me.cmdmakeproxy = New System.Windows.Forms.Button() + Me.txtDestinationDirectoryProxy = New System.Windows.Forms.TextBox() + Me.cmdshowfilesinDestinationlistboxproxy = New System.Windows.Forms.Button() + Me.lstDestinationDirectoryProxy = New System.Windows.Forms.ListBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.cmdopensourcedirectory = New System.Windows.Forms.Button() + Me.cmdopendestinationdirectory = New System.Windows.Forms.Button() + Me.cmdopendestinationdirectoryproxy = New System.Windows.Forms.Button() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.FFMPEG = New System.Windows.Forms.TabPage() + Me.cmdFFMpeg = New System.Windows.Forms.Button() + Me.txtFFMpeg = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.txtffplay = New System.Windows.Forms.TextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.cmdFfmbcTargetTranscoding = New System.Windows.Forms.Button() + Me.txtFfmbcTargetTranscoding = New System.Windows.Forms.TextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.cmdvideohd = New System.Windows.Forms.Button() + Me.Label29 = New System.Windows.Forms.Label() + Me.Label30 = New System.Windows.Forms.Label() + Me.Label31 = New System.Windows.Forms.Label() + Me.Label32 = New System.Windows.Forms.Label() + Me.txtsourcefileforalphavideosd = New System.Windows.Forms.TextBox() + Me.txtdestinationfolderforhd = New System.Windows.Forms.TextBox() + Me.txtfilenameforhd = New System.Windows.Forms.TextBox() + Me.cmddestinationfolderforhd = New System.Windows.Forms.Button() + Me.cmdvideosd = New System.Windows.Forms.Button() + Me.Label28 = New System.Windows.Forms.Label() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.Label25 = New System.Windows.Forms.Label() + Me.txtsourcefileforalphavideo = New System.Windows.Forms.TextBox() + Me.txtdestinationfolderforalphaimage = New System.Windows.Forms.TextBox() + Me.txtfilenameforimage = New System.Windows.Forms.TextBox() + Me.cmddestinationfolderforalphaimage = New System.Windows.Forms.Button() + Me.cmdvideoforimage = New System.Windows.Forms.Button() + Me.cmbcodecforalpha = New System.Windows.Forms.ComboBox() + Me.cmdaudioinsinglestream = New System.Windows.Forms.Button() + Me.txtaudioinsinglestream = New System.Windows.Forms.TextBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.cmdaddingaudiotracktovideomam = New System.Windows.Forms.Button() + Me.txtaddingaudiotracktovideomam = New System.Windows.Forms.TextBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.cmdvideotosequencemam = New System.Windows.Forms.Button() + Me.Label21 = New System.Windows.Forms.Label() + Me.cmdsequencetovideomam = New System.Windows.Forms.Button() + Me.txtsequencetovideomam = New System.Windows.Forms.TextBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.EbuCoreMetadata = New System.Windows.Forms.TabPage() + Me.gbmetadata = New System.Windows.Forms.GroupBox() + Me.cmbebu2mxfoption = New System.Windows.Forms.ComboBox() + Me.cmddefaultmetadata = New System.Windows.Forms.Button() + Me.cmdebu2mxf = New System.Windows.Forms.Button() + Me.cmbanalyzeroption = New System.Windows.Forms.ComboBox() + Me.lblfilenamemetadata = New System.Windows.Forms.Label() + Me.cmdanalyse = New System.Windows.Forms.Button() + Me.Label238 = New System.Windows.Forms.Label() + Me.cmdclearfieldmetadata = New System.Windows.Forms.Button() + Me.cmdwritemetadata = New System.Windows.Forms.Button() + Me.cmdreadmetadata = New System.Windows.Forms.Button() + Me.dgvmetadata = New System.Windows.Forms.DataGridView() + Me.CopyandProxyProgram = New System.Windows.Forms.TabPage() + Me.BatchTranscoder = New System.Windows.Forms.TabPage() + Me.txtffmpegoutput = New System.Windows.Forms.TextBox() + Me.cmdsearchdatagridbt = New System.Windows.Forms.Button() + Me.txtsearchdatagridbt = New System.Windows.Forms.TextBox() + Me.cmdDeSelectAllfromcurrentposition = New System.Windows.Forms.Button() + Me.cmdDeSelectAll = New System.Windows.Forms.Button() + Me.cmdSelectAll = New System.Windows.Forms.Button() + Me.lbltrandingfilename = New System.Windows.Forms.Label() + Me.cmdselectsourcefolderfortranscoding = New System.Windows.Forms.Button() + Me.cmdselectdestinationfolderfortranscoding = New System.Windows.Forms.Button() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.lblexportclipinfobt = New System.Windows.Forms.Label() + Me.dgvtranscoder = New System.Windows.Forms.DataGridView() + Me.Column2 = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.cmdstoptranscoding = New System.Windows.Forms.Button() + Me.txtdestinationdirectorybt = New System.Windows.Forms.TextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.txtsourcedirectorybt = New System.Windows.Forms.TextBox() + Me.cmdstarttranscoding = New System.Windows.Forms.Button() + Me.cmdfilldatgridbt = New System.Windows.Forms.Button() + Me.WatchFolder = New System.Windows.Forms.TabPage() + Me.cmdSelectDirectoryForAutoCopy = New System.Windows.Forms.Button() + Me.gbdatatablesetting = New System.Windows.Forms.GroupBox() + Me.cmdstopwatching = New System.Windows.Forms.Button() + Me.cmdSelectDirectoryforSymlinked2Mediawatchfolder = New System.Windows.Forms.Button() + Me.cmdSelectDirectoryformainMediawatchfolder = New System.Windows.Forms.Button() + Me.cmdSelectDirectoryforSymlinked1Mediawatchfolder = New System.Windows.Forms.Button() + Me.chkwithduration = New System.Windows.Forms.CheckBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.pbsearchprogress = New System.Windows.Forms.ProgressBar() + Me.chksymlinkedalis2 = New System.Windows.Forms.CheckBox() + Me.chksymlinkedalis1 = New System.Windows.Forms.CheckBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.Label15 = New System.Windows.Forms.Label() + Me.txtsymlinked2mediafolder = New System.Windows.Forms.TextBox() + Me.txtsymlinkedalis2 = New System.Windows.Forms.TextBox() + Me.txtsymlinkedalis1 = New System.Windows.Forms.TextBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.txtsymlinked1mediafolder = New System.Windows.Forms.TextBox() + Me.txtmainmediafolder = New System.Windows.Forms.TextBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.cmdcreatdatatable = New System.Windows.Forms.Button() + Me.txtfilechanged = New System.Windows.Forms.TextBox() + Me.chktranscode = New System.Windows.Forms.CheckBox() + Me.txttranscodedirectory = New System.Windows.Forms.TextBox() + Me.chkmediabackup = New System.Windows.Forms.CheckBox() + Me.txtmediabackupfplder = New System.Windows.Forms.TextBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.cmdSelectDirectoryForAutoTranscode = New System.Windows.Forms.Button() + Me.cmdsearchdatatable = New System.Windows.Forms.Button() + Me.labelclips = New System.Windows.Forms.Label() + Me.txtsearchclip = New System.Windows.Forms.TextBox() + Me.dgvclips = New System.Windows.Forms.DataGridView() + Me.bwforexportclipbt = New System.ComponentModel.BackgroundWorker() + Me.fswalias2 = New System.IO.FileSystemWatcher() + Me.fsw = New System.IO.FileSystemWatcher() + Me.fswalias1 = New System.IO.FileSystemWatcher() + Me.cmdplayinvlc = New System.Windows.Forms.Button() + Me.lblplayinvlc = New System.Windows.Forms.Label() + Me.cmdshowfileinformation = New System.Windows.Forms.Button() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmdrecord = New System.Windows.Forms.Button() + Me.txtrecord = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.cmdOutputToDecklink = New System.Windows.Forms.Button() + Me.Label10 = New System.Windows.Forms.Label() + Me.txtOutputToDecklink = New System.Windows.Forms.TextBox() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn13 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn14 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.UcTranscodingProfile1 = New caspar_media_playback.ucTranscodingProfile() + Me.TabControl1.SuspendLayout() + Me.FFMPEG.SuspendLayout() + Me.EbuCoreMetadata.SuspendLayout() + Me.gbmetadata.SuspendLayout() + CType(Me.dgvmetadata, System.ComponentModel.ISupportInitialize).BeginInit() + Me.CopyandProxyProgram.SuspendLayout() + Me.BatchTranscoder.SuspendLayout() + CType(Me.dgvtranscoder, System.ComponentModel.ISupportInitialize).BeginInit() + Me.WatchFolder.SuspendLayout() + Me.gbdatatablesetting.SuspendLayout() + CType(Me.dgvclips, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.fswalias2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.fsw, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.fswalias1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(18, 17) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(86, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Source Directory" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(405, 47) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(147, 13) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Destination Directory for Copy" + ' + 'lstSourceDirectory + ' + Me.lstSourceDirectory.FormattingEnabled = True + Me.lstSourceDirectory.Location = New System.Drawing.Point(10, 63) + Me.lstSourceDirectory.Name = "lstSourceDirectory" + Me.lstSourceDirectory.Size = New System.Drawing.Size(298, 524) + Me.lstSourceDirectory.TabIndex = 2 + ' + 'lstDestinationDirectory + ' + Me.lstDestinationDirectory.FormattingEnabled = True + Me.lstDestinationDirectory.Location = New System.Drawing.Point(399, 88) + Me.lstDestinationDirectory.Name = "lstDestinationDirectory" + Me.lstDestinationDirectory.Size = New System.Drawing.Size(309, 316) + Me.lstDestinationDirectory.TabIndex = 3 + ' + 'cmdCopy + ' + Me.cmdCopy.Location = New System.Drawing.Point(314, 147) + Me.cmdCopy.Name = "cmdCopy" + Me.cmdCopy.Size = New System.Drawing.Size(75, 23) + Me.cmdCopy.TabIndex = 4 + Me.cmdCopy.Text = ">>Copy>>" + Me.cmdCopy.UseVisualStyleBackColor = True + ' + 'cmdMove + ' + Me.cmdMove.Location = New System.Drawing.Point(314, 176) + Me.cmdMove.Name = "cmdMove" + Me.cmdMove.Size = New System.Drawing.Size(75, 23) + Me.cmdMove.TabIndex = 5 + Me.cmdMove.Text = ">>Move >>" + Me.cmdMove.UseVisualStyleBackColor = True + ' + 'cmdshowfilesinSourcelistbox + ' + Me.cmdshowfilesinSourcelistbox.Location = New System.Drawing.Point(205, 12) + Me.cmdshowfilesinSourcelistbox.Name = "cmdshowfilesinSourcelistbox" + Me.cmdshowfilesinSourcelistbox.Size = New System.Drawing.Size(75, 23) + Me.cmdshowfilesinSourcelistbox.TabIndex = 6 + Me.cmdshowfilesinSourcelistbox.Text = "Show Files" + Me.cmdshowfilesinSourcelistbox.UseVisualStyleBackColor = True + ' + 'cmdshowfilesinDestinationlistbox + ' + Me.cmdshowfilesinDestinationlistbox.Location = New System.Drawing.Point(603, 37) + Me.cmdshowfilesinDestinationlistbox.Name = "cmdshowfilesinDestinationlistbox" + Me.cmdshowfilesinDestinationlistbox.Size = New System.Drawing.Size(75, 23) + Me.cmdshowfilesinDestinationlistbox.TabIndex = 7 + Me.cmdshowfilesinDestinationlistbox.Text = "Show Files" + Me.cmdshowfilesinDestinationlistbox.UseVisualStyleBackColor = True + ' + 'txtSourceDirectory + ' + Me.txtSourceDirectory.Location = New System.Drawing.Point(10, 40) + Me.txtSourceDirectory.Name = "txtSourceDirectory" + Me.txtSourceDirectory.Size = New System.Drawing.Size(270, 20) + Me.txtSourceDirectory.TabIndex = 10 + Me.txtSourceDirectory.Text = "c:/casparcg/_media/" + ' + 'txtDestinationDirectory + ' + Me.txtDestinationDirectory.Location = New System.Drawing.Point(399, 63) + Me.txtDestinationDirectory.Name = "txtDestinationDirectory" + Me.txtDestinationDirectory.Size = New System.Drawing.Size(279, 20) + Me.txtDestinationDirectory.TabIndex = 11 + Me.txtDestinationDirectory.Text = "c:/casparcg/_media/" + ' + 'cmdmakeproxy + ' + Me.cmdmakeproxy.Location = New System.Drawing.Point(314, 453) + Me.cmdmakeproxy.Name = "cmdmakeproxy" + Me.cmdmakeproxy.Size = New System.Drawing.Size(67, 50) + Me.cmdmakeproxy.TabIndex = 482 + Me.cmdmakeproxy.Text = ">>Make Proxy>>" + Me.cmdmakeproxy.UseVisualStyleBackColor = True + ' + 'txtDestinationDirectoryProxy + ' + Me.txtDestinationDirectoryProxy.Location = New System.Drawing.Point(399, 445) + Me.txtDestinationDirectoryProxy.Name = "txtDestinationDirectoryProxy" + Me.txtDestinationDirectoryProxy.Size = New System.Drawing.Size(279, 20) + Me.txtDestinationDirectoryProxy.TabIndex = 486 + Me.txtDestinationDirectoryProxy.Text = "c:/casparcg/_media/" + ' + 'cmdshowfilesinDestinationlistboxproxy + ' + Me.cmdshowfilesinDestinationlistboxproxy.Location = New System.Drawing.Point(603, 419) + Me.cmdshowfilesinDestinationlistboxproxy.Name = "cmdshowfilesinDestinationlistboxproxy" + Me.cmdshowfilesinDestinationlistboxproxy.Size = New System.Drawing.Size(75, 23) + Me.cmdshowfilesinDestinationlistboxproxy.TabIndex = 485 + Me.cmdshowfilesinDestinationlistboxproxy.Text = "Show Files" + Me.cmdshowfilesinDestinationlistboxproxy.UseVisualStyleBackColor = True + ' + 'lstDestinationDirectoryProxy + ' + Me.lstDestinationDirectoryProxy.FormattingEnabled = True + Me.lstDestinationDirectoryProxy.Location = New System.Drawing.Point(399, 470) + Me.lstDestinationDirectoryProxy.Name = "lstDestinationDirectoryProxy" + Me.lstDestinationDirectoryProxy.Size = New System.Drawing.Size(309, 121) + Me.lstDestinationDirectoryProxy.TabIndex = 484 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(405, 429) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(149, 13) + Me.Label4.TabIndex = 483 + Me.Label4.Text = "Destination Directory for Proxy" + ' + 'cmdopensourcedirectory + ' + Me.cmdopensourcedirectory.Location = New System.Drawing.Point(284, 38) + Me.cmdopensourcedirectory.Name = "cmdopensourcedirectory" + Me.cmdopensourcedirectory.Size = New System.Drawing.Size(24, 23) + Me.cmdopensourcedirectory.TabIndex = 487 + Me.cmdopensourcedirectory.Text = ".." + Me.cmdopensourcedirectory.UseVisualStyleBackColor = True + ' + 'cmdopendestinationdirectory + ' + Me.cmdopendestinationdirectory.Location = New System.Drawing.Point(684, 63) + Me.cmdopendestinationdirectory.Name = "cmdopendestinationdirectory" + Me.cmdopendestinationdirectory.Size = New System.Drawing.Size(24, 23) + Me.cmdopendestinationdirectory.TabIndex = 488 + Me.cmdopendestinationdirectory.Text = ".." + Me.cmdopendestinationdirectory.UseVisualStyleBackColor = True + ' + 'cmdopendestinationdirectoryproxy + ' + Me.cmdopendestinationdirectoryproxy.Location = New System.Drawing.Point(684, 445) + Me.cmdopendestinationdirectoryproxy.Name = "cmdopendestinationdirectoryproxy" + Me.cmdopendestinationdirectoryproxy.Size = New System.Drawing.Size(24, 23) + Me.cmdopendestinationdirectoryproxy.TabIndex = 489 + Me.cmdopendestinationdirectoryproxy.Text = ".." + Me.cmdopendestinationdirectoryproxy.UseVisualStyleBackColor = True + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.FFMPEG) + Me.TabControl1.Controls.Add(Me.EbuCoreMetadata) + Me.TabControl1.Controls.Add(Me.CopyandProxyProgram) + Me.TabControl1.Controls.Add(Me.BatchTranscoder) + Me.TabControl1.Controls.Add(Me.WatchFolder) + Me.TabControl1.Location = New System.Drawing.Point(6, 19) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(820, 926) + Me.TabControl1.TabIndex = 490 + ' + 'FFMPEG + ' + Me.FFMPEG.Controls.Add(Me.txtOutputToDecklink) + Me.FFMPEG.Controls.Add(Me.cmdOutputToDecklink) + Me.FFMPEG.Controls.Add(Me.Label10) + Me.FFMPEG.Controls.Add(Me.cmdrecord) + Me.FFMPEG.Controls.Add(Me.txtrecord) + Me.FFMPEG.Controls.Add(Me.Label9) + Me.FFMPEG.Controls.Add(Me.cmdFFMpeg) + Me.FFMPEG.Controls.Add(Me.txtFFMpeg) + Me.FFMPEG.Controls.Add(Me.Label8) + Me.FFMPEG.Controls.Add(Me.Button1) + Me.FFMPEG.Controls.Add(Me.txtffplay) + Me.FFMPEG.Controls.Add(Me.Label5) + Me.FFMPEG.Controls.Add(Me.Label3) + Me.FFMPEG.Controls.Add(Me.cmdFfmbcTargetTranscoding) + Me.FFMPEG.Controls.Add(Me.txtFfmbcTargetTranscoding) + Me.FFMPEG.Controls.Add(Me.Label6) + Me.FFMPEG.Controls.Add(Me.cmdvideohd) + Me.FFMPEG.Controls.Add(Me.Label29) + Me.FFMPEG.Controls.Add(Me.Label30) + Me.FFMPEG.Controls.Add(Me.Label31) + Me.FFMPEG.Controls.Add(Me.Label32) + Me.FFMPEG.Controls.Add(Me.txtsourcefileforalphavideosd) + Me.FFMPEG.Controls.Add(Me.txtdestinationfolderforhd) + Me.FFMPEG.Controls.Add(Me.txtfilenameforhd) + Me.FFMPEG.Controls.Add(Me.cmddestinationfolderforhd) + Me.FFMPEG.Controls.Add(Me.cmdvideosd) + Me.FFMPEG.Controls.Add(Me.Label28) + Me.FFMPEG.Controls.Add(Me.Label27) + Me.FFMPEG.Controls.Add(Me.Label26) + Me.FFMPEG.Controls.Add(Me.Label25) + Me.FFMPEG.Controls.Add(Me.txtsourcefileforalphavideo) + Me.FFMPEG.Controls.Add(Me.txtdestinationfolderforalphaimage) + Me.FFMPEG.Controls.Add(Me.txtfilenameforimage) + Me.FFMPEG.Controls.Add(Me.cmddestinationfolderforalphaimage) + Me.FFMPEG.Controls.Add(Me.cmdvideoforimage) + Me.FFMPEG.Controls.Add(Me.cmbcodecforalpha) + Me.FFMPEG.Controls.Add(Me.cmdaudioinsinglestream) + Me.FFMPEG.Controls.Add(Me.txtaudioinsinglestream) + Me.FFMPEG.Controls.Add(Me.Label23) + Me.FFMPEG.Controls.Add(Me.cmdaddingaudiotracktovideomam) + Me.FFMPEG.Controls.Add(Me.txtaddingaudiotracktovideomam) + Me.FFMPEG.Controls.Add(Me.Label22) + Me.FFMPEG.Controls.Add(Me.cmdvideotosequencemam) + Me.FFMPEG.Controls.Add(Me.Label21) + Me.FFMPEG.Controls.Add(Me.cmdsequencetovideomam) + Me.FFMPEG.Controls.Add(Me.txtsequencetovideomam) + Me.FFMPEG.Controls.Add(Me.Label20) + Me.FFMPEG.Location = New System.Drawing.Point(4, 22) + Me.FFMPEG.Name = "FFMPEG" + Me.FFMPEG.Padding = New System.Windows.Forms.Padding(3) + Me.FFMPEG.Size = New System.Drawing.Size(812, 900) + Me.FFMPEG.TabIndex = 3 + Me.FFMPEG.Text = "FFMPEG" + Me.FFMPEG.UseVisualStyleBackColor = True + ' + 'cmdFFMpeg + ' + Me.cmdFFMpeg.Location = New System.Drawing.Point(742, 234) + Me.cmdFFMpeg.Name = "cmdFFMpeg" + Me.cmdFFMpeg.Size = New System.Drawing.Size(64, 124) + Me.cmdFFMpeg.TabIndex = 841 + Me.cmdFFMpeg.Text = "Convert" + Me.cmdFFMpeg.UseVisualStyleBackColor = True + ' + 'txtFFMpeg + ' + Me.txtFFMpeg.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFFMpeg.Location = New System.Drawing.Point(6, 234) + Me.txtFFMpeg.Multiline = True + Me.txtFFMpeg.Name = "txtFFMpeg" + Me.txtFFMpeg.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtFFMpeg.Size = New System.Drawing.Size(702, 124) + Me.txtFFMpeg.TabIndex = 840 + Me.txtFFMpeg.Text = resources.GetString("txtFFMpeg.Text") + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(5, 218) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(52, 13) + Me.Label8.TabIndex = 839 + Me.Label8.Text = "FFMpeg" + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(742, 382) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(64, 48) + Me.Button1.TabIndex = 838 + Me.Button1.Text = "Convert" + Me.Button1.UseVisualStyleBackColor = True + ' + 'txtffplay + ' + Me.txtffplay.Location = New System.Drawing.Point(5, 382) + Me.txtffplay.Multiline = True + Me.txtffplay.Name = "txtffplay" + Me.txtffplay.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtffplay.Size = New System.Drawing.Size(702, 48) + Me.txtffplay.TabIndex = 837 + Me.txtffplay.Text = "c:/casparcg/mydata/ffmpeg/ffplay.exe udp://238.1.1.3:2000?pkt_size=1316 -ast 0" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(12, 366) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(44, 13) + Me.Label5.TabIndex = 836 + Me.Label5.Text = "FFplay" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(162, 150) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(144, 13) + Me.Label3.TabIndex = 835 + Me.Label3.Text = "File Name like test00001.png" + ' + 'cmdFfmbcTargetTranscoding + ' + Me.cmdFfmbcTargetTranscoding.Location = New System.Drawing.Point(742, 795) + Me.cmdFfmbcTargetTranscoding.Name = "cmdFfmbcTargetTranscoding" + Me.cmdFfmbcTargetTranscoding.Size = New System.Drawing.Size(64, 40) + Me.cmdFfmbcTargetTranscoding.TabIndex = 834 + Me.cmdFfmbcTargetTranscoding.Text = "Convert" + Me.cmdFfmbcTargetTranscoding.UseVisualStyleBackColor = True + ' + 'txtFfmbcTargetTranscoding + ' + Me.txtFfmbcTargetTranscoding.Location = New System.Drawing.Point(5, 792) + Me.txtFfmbcTargetTranscoding.Multiline = True + Me.txtFfmbcTargetTranscoding.Name = "txtFfmbcTargetTranscoding" + Me.txtFfmbcTargetTranscoding.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtFfmbcTargetTranscoding.Size = New System.Drawing.Size(702, 55) + Me.txtFfmbcTargetTranscoding.TabIndex = 833 + Me.txtFfmbcTargetTranscoding.Text = "c:/casparcg/mydata/ffmbc/ffmbc-0.7.4-x64.exe -y -i c:/casparcg/_media/kabhi_kabhi" & + ".mp4 -tff -target dvcpro50 c:/casparcg/_media/kabhi_kabhi_dvcpro50.mov" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(12, 766) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(154, 13) + Me.Label6.TabIndex = 832 + Me.Label6.Text = "FFMBC target transcoding" + ' + 'cmdvideohd + ' + Me.cmdvideohd.Location = New System.Drawing.Point(742, 25) + Me.cmdvideohd.Name = "cmdvideohd" + Me.cmdvideohd.Size = New System.Drawing.Size(64, 54) + Me.cmdvideohd.TabIndex = 831 + Me.cmdvideohd.Text = "Convert" + Me.cmdvideohd.UseVisualStyleBackColor = True + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label29.Location = New System.Drawing.Point(12, 3) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(116, 15) + Me.Label29.TabIndex = 830 + Me.Label29.Text = "SD to HD scaling" + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Location = New System.Drawing.Point(523, 30) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(52, 13) + Me.Label30.TabIndex = 829 + Me.Label30.Text = "File name" + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.Location = New System.Drawing.Point(308, 25) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(92, 13) + Me.Label31.TabIndex = 828 + Me.Label31.Text = "Destination Folder" + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Location = New System.Drawing.Point(12, 25) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(60, 13) + Me.Label32.TabIndex = 827 + Me.Label32.Text = "Source File" + ' + 'txtsourcefileforalphavideosd + ' + Me.txtsourcefileforalphavideosd.Location = New System.Drawing.Point(5, 43) + Me.txtsourcefileforalphavideosd.Name = "txtsourcefileforalphavideosd" + Me.txtsourcefileforalphavideosd.Size = New System.Drawing.Size(234, 20) + Me.txtsourcefileforalphavideosd.TabIndex = 825 + Me.txtsourcefileforalphavideosd.Text = "c:/casparcg/_media/kabhi_kabhi.mp4 " + ' + 'txtdestinationfolderforhd + ' + Me.txtdestinationfolderforhd.Location = New System.Drawing.Point(299, 46) + Me.txtdestinationfolderforhd.Name = "txtdestinationfolderforhd" + Me.txtdestinationfolderforhd.Size = New System.Drawing.Size(166, 20) + Me.txtdestinationfolderforhd.TabIndex = 826 + Me.txtdestinationfolderforhd.Text = "c:/casparcg/mydata/png/" + ' + 'txtfilenameforhd + ' + Me.txtfilenameforhd.Location = New System.Drawing.Point(526, 46) + Me.txtfilenameforhd.Name = "txtfilenameforhd" + Me.txtfilenameforhd.Size = New System.Drawing.Size(145, 20) + Me.txtfilenameforhd.TabIndex = 824 + Me.txtfilenameforhd.Text = "test" + ' + 'cmddestinationfolderforhd + ' + Me.cmddestinationfolderforhd.Location = New System.Drawing.Point(471, 46) + Me.cmddestinationfolderforhd.Name = "cmddestinationfolderforhd" + Me.cmddestinationfolderforhd.Size = New System.Drawing.Size(47, 25) + Me.cmddestinationfolderforhd.TabIndex = 823 + Me.cmddestinationfolderforhd.Text = "Open destination Directory" + Me.cmddestinationfolderforhd.UseVisualStyleBackColor = True + ' + 'cmdvideosd + ' + Me.cmdvideosd.Location = New System.Drawing.Point(245, 43) + Me.cmdvideosd.Name = "cmdvideosd" + Me.cmdvideosd.Size = New System.Drawing.Size(48, 25) + Me.cmdvideosd.TabIndex = 822 + Me.cmdvideosd.Text = "Open Souerce File" + Me.cmdvideosd.UseVisualStyleBackColor = True + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Location = New System.Drawing.Point(523, 100) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(52, 13) + Me.Label28.TabIndex = 820 + Me.Label28.Text = "File name" + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Location = New System.Drawing.Point(669, 100) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(71, 13) + Me.Label27.TabIndex = 819 + Me.Label27.Text = "Image Format" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(326, 91) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(92, 13) + Me.Label26.TabIndex = 818 + Me.Label26.Text = "Destination Folder" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(12, 91) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(60, 13) + Me.Label25.TabIndex = 817 + Me.Label25.Text = "Source File" + ' + 'txtsourcefileforalphavideo + ' + Me.txtsourcefileforalphavideo.Location = New System.Drawing.Point(5, 109) + Me.txtsourcefileforalphavideo.Name = "txtsourcefileforalphavideo" + Me.txtsourcefileforalphavideo.Size = New System.Drawing.Size(234, 20) + Me.txtsourcefileforalphavideo.TabIndex = 815 + Me.txtsourcefileforalphavideo.Text = "c:/casparcg/_media/kabhi_kabhi.mp4 " + ' + 'txtdestinationfolderforalphaimage + ' + Me.txtdestinationfolderforalphaimage.Location = New System.Drawing.Point(299, 112) + Me.txtdestinationfolderforalphaimage.Name = "txtdestinationfolderforalphaimage" + Me.txtdestinationfolderforalphaimage.Size = New System.Drawing.Size(166, 20) + Me.txtdestinationfolderforalphaimage.TabIndex = 816 + Me.txtdestinationfolderforalphaimage.Text = "c:/casparcg/mydata/png/" + ' + 'txtfilenameforimage + ' + Me.txtfilenameforimage.Location = New System.Drawing.Point(526, 116) + Me.txtfilenameforimage.Name = "txtfilenameforimage" + Me.txtfilenameforimage.Size = New System.Drawing.Size(140, 20) + Me.txtfilenameforimage.TabIndex = 814 + Me.txtfilenameforimage.Text = "test" + ' + 'cmddestinationfolderforalphaimage + ' + Me.cmddestinationfolderforalphaimage.Location = New System.Drawing.Point(471, 112) + Me.cmddestinationfolderforalphaimage.Name = "cmddestinationfolderforalphaimage" + Me.cmddestinationfolderforalphaimage.Size = New System.Drawing.Size(47, 25) + Me.cmddestinationfolderforalphaimage.TabIndex = 813 + Me.cmddestinationfolderforalphaimage.Text = "Open destination Directory" + Me.cmddestinationfolderforalphaimage.UseVisualStyleBackColor = True + ' + 'cmdvideoforimage + ' + Me.cmdvideoforimage.Location = New System.Drawing.Point(245, 109) + Me.cmdvideoforimage.Name = "cmdvideoforimage" + Me.cmdvideoforimage.Size = New System.Drawing.Size(48, 25) + Me.cmdvideoforimage.TabIndex = 812 + Me.cmdvideoforimage.Text = "Open Souerce File" + Me.cmdvideoforimage.UseVisualStyleBackColor = True + ' + 'cmbcodecforalpha + ' + Me.cmbcodecforalpha.FormattingEnabled = True + Me.cmbcodecforalpha.Items.AddRange(New Object() {"tga", "png"}) + Me.cmbcodecforalpha.Location = New System.Drawing.Point(672, 116) + Me.cmbcodecforalpha.Name = "cmbcodecforalpha" + Me.cmbcodecforalpha.Size = New System.Drawing.Size(52, 21) + Me.cmbcodecforalpha.TabIndex = 811 + Me.cmbcodecforalpha.Text = "png" + ' + 'cmdaudioinsinglestream + ' + Me.cmdaudioinsinglestream.Location = New System.Drawing.Point(742, 710) + Me.cmdaudioinsinglestream.Name = "cmdaudioinsinglestream" + Me.cmdaudioinsinglestream.Size = New System.Drawing.Size(64, 46) + Me.cmdaudioinsinglestream.TabIndex = 810 + Me.cmdaudioinsinglestream.Text = "Convert" + Me.cmdaudioinsinglestream.UseVisualStyleBackColor = True + ' + 'txtaudioinsinglestream + ' + Me.txtaudioinsinglestream.Location = New System.Drawing.Point(5, 710) + Me.txtaudioinsinglestream.Multiline = True + Me.txtaudioinsinglestream.Name = "txtaudioinsinglestream" + Me.txtaudioinsinglestream.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtaudioinsinglestream.Size = New System.Drawing.Size(702, 48) + Me.txtaudioinsinglestream.TabIndex = 809 + Me.txtaudioinsinglestream.Text = resources.GetString("txtaudioinsinglestream.Text") + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.Location = New System.Drawing.Point(12, 694) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(238, 13) + Me.Label23.TabIndex = 808 + Me.Label23.Text = "Audio in different stream to single stream" + ' + 'cmdaddingaudiotracktovideomam + ' + Me.cmdaddingaudiotracktovideomam.Location = New System.Drawing.Point(742, 644) + Me.cmdaddingaudiotracktovideomam.Name = "cmdaddingaudiotracktovideomam" + Me.cmdaddingaudiotracktovideomam.Size = New System.Drawing.Size(64, 33) + Me.cmdaddingaudiotracktovideomam.TabIndex = 807 + Me.cmdaddingaudiotracktovideomam.Text = "Convert" + Me.cmdaddingaudiotracktovideomam.UseVisualStyleBackColor = True + ' + 'txtaddingaudiotracktovideomam + ' + Me.txtaddingaudiotracktovideomam.Location = New System.Drawing.Point(5, 641) + Me.txtaddingaudiotracktovideomam.Multiline = True + Me.txtaddingaudiotracktovideomam.Name = "txtaddingaudiotracktovideomam" + Me.txtaddingaudiotracktovideomam.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtaddingaudiotracktovideomam.Size = New System.Drawing.Size(702, 46) + Me.txtaddingaudiotracktovideomam.TabIndex = 806 + Me.txtaddingaudiotracktovideomam.Text = resources.GetString("txtaddingaudiotracktovideomam.Text") + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label22.Location = New System.Drawing.Point(12, 625) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(166, 13) + Me.Label22.TabIndex = 805 + Me.Label22.Text = "Adding Audio track to Video" + ' + 'cmdvideotosequencemam + ' + Me.cmdvideotosequencemam.Location = New System.Drawing.Point(742, 100) + Me.cmdvideotosequencemam.Name = "cmdvideotosequencemam" + Me.cmdvideotosequencemam.Size = New System.Drawing.Size(64, 37) + Me.cmdvideotosequencemam.TabIndex = 804 + Me.cmdvideotosequencemam.Text = "Convert" + Me.cmdvideotosequencemam.UseVisualStyleBackColor = True + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label21.Location = New System.Drawing.Point(6, 69) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(132, 15) + Me.Label21.TabIndex = 802 + Me.Label21.Text = "Video to sequences" + ' + 'cmdsequencetovideomam + ' + Me.cmdsequencetovideomam.Location = New System.Drawing.Point(742, 166) + Me.cmdsequencetovideomam.Name = "cmdsequencetovideomam" + Me.cmdsequencetovideomam.Size = New System.Drawing.Size(64, 39) + Me.cmdsequencetovideomam.TabIndex = 801 + Me.cmdsequencetovideomam.Text = "Convert" + Me.cmdsequencetovideomam.UseVisualStyleBackColor = True + ' + 'txtsequencetovideomam + ' + Me.txtsequencetovideomam.Location = New System.Drawing.Point(5, 166) + Me.txtsequencetovideomam.Multiline = True + Me.txtsequencetovideomam.Name = "txtsequencetovideomam" + Me.txtsequencetovideomam.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtsequencetovideomam.Size = New System.Drawing.Size(702, 39) + Me.txtsequencetovideomam.TabIndex = 800 + Me.txtsequencetovideomam.Text = "c:/casparcg/mydata/ffmpeg/ffmpeg.exe -y -i c:/casparcg/mydata/png/test%5d.png -vc" & + "odec png c:/casparcg/_media/video1.mov" + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.Location = New System.Drawing.Point(8, 150) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(148, 13) + Me.Label20.TabIndex = 483 + Me.Label20.Text = "PNG sequences to video" + ' + 'EbuCoreMetadata + ' + Me.EbuCoreMetadata.Controls.Add(Me.gbmetadata) + Me.EbuCoreMetadata.Location = New System.Drawing.Point(4, 22) + Me.EbuCoreMetadata.Name = "EbuCoreMetadata" + Me.EbuCoreMetadata.Padding = New System.Windows.Forms.Padding(3) + Me.EbuCoreMetadata.Size = New System.Drawing.Size(812, 900) + Me.EbuCoreMetadata.TabIndex = 4 + Me.EbuCoreMetadata.Text = "Ebu Core Metadata" + Me.EbuCoreMetadata.UseVisualStyleBackColor = True + ' + 'gbmetadata + ' + Me.gbmetadata.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.gbmetadata.Controls.Add(Me.cmbebu2mxfoption) + Me.gbmetadata.Controls.Add(Me.cmddefaultmetadata) + Me.gbmetadata.Controls.Add(Me.cmdebu2mxf) + Me.gbmetadata.Controls.Add(Me.cmbanalyzeroption) + Me.gbmetadata.Controls.Add(Me.lblfilenamemetadata) + Me.gbmetadata.Controls.Add(Me.cmdanalyse) + Me.gbmetadata.Controls.Add(Me.Label238) + Me.gbmetadata.Controls.Add(Me.cmdclearfieldmetadata) + Me.gbmetadata.Controls.Add(Me.cmdwritemetadata) + Me.gbmetadata.Controls.Add(Me.cmdreadmetadata) + Me.gbmetadata.Controls.Add(Me.dgvmetadata) + Me.gbmetadata.Location = New System.Drawing.Point(11, 7) + Me.gbmetadata.Name = "gbmetadata" + Me.gbmetadata.Size = New System.Drawing.Size(544, 533) + Me.gbmetadata.TabIndex = 1173 + Me.gbmetadata.TabStop = False + Me.gbmetadata.Text = "EBU Core Metadata" + ' + 'cmbebu2mxfoption + ' + Me.cmbebu2mxfoption.FormattingEnabled = True + Me.cmbebu2mxfoption.Items.AddRange(New Object() {"-l C:\casparcg\mydata\ebumxf\aa.log", "-i", "--ebu-core C:\casparcg\mydata\ebumxf\EbuCore.xml", "--force-header --ebu-core C:\casparcg\mydata\ebumxf\EbuCore.xml", "--dark --ebu-core C:\casparcg\mydata\ebumxf\EbuCore.xml", "--sidecar --ebu-core C:\casparcg\mydata\ebumxf\EbuCore.xml", "--remove"}) + Me.cmbebu2mxfoption.Location = New System.Drawing.Point(10, 464) + Me.cmbebu2mxfoption.Name = "cmbebu2mxfoption" + Me.cmbebu2mxfoption.Size = New System.Drawing.Size(306, 21) + Me.cmbebu2mxfoption.TabIndex = 1175 + Me.cmbebu2mxfoption.Text = "--remove" + ' + 'cmddefaultmetadata + ' + Me.cmddefaultmetadata.Location = New System.Drawing.Point(342, 51) + Me.cmddefaultmetadata.Name = "cmddefaultmetadata" + Me.cmddefaultmetadata.Size = New System.Drawing.Size(125, 24) + Me.cmddefaultmetadata.TabIndex = 6 + Me.cmddefaultmetadata.Text = "Example metadata" + Me.cmddefaultmetadata.UseVisualStyleBackColor = True + ' + 'cmdebu2mxf + ' + Me.cmdebu2mxf.Location = New System.Drawing.Point(322, 464) + Me.cmdebu2mxf.Name = "cmdebu2mxf" + Me.cmdebu2mxf.Size = New System.Drawing.Size(108, 23) + Me.cmdebu2mxf.TabIndex = 1174 + Me.cmdebu2mxf.Text = "ebu2mxf operation" + Me.cmdebu2mxf.UseVisualStyleBackColor = True + ' + 'cmbanalyzeroption + ' + Me.cmbanalyzeroption.FormattingEnabled = True + Me.cmbanalyzeroption.Items.AddRange(New Object() {"--report C:\casparcg\mydata\ebumxf\report.xml", "--physical --report C:\casparcg\mydata\ebumxf\report.xml", "--logical --report C:\casparcg\mydata\ebumxf\report.xml", "--metadata --report C:\casparcg\mydata\ebumxf\report.xml", "--mux --report C:\casparcg\mydata\ebumxf\report.xml", "--deepindex --report C:\casparcg\mydata\ebumxf\report.xml"}) + Me.cmbanalyzeroption.Location = New System.Drawing.Point(10, 493) + Me.cmbanalyzeroption.Name = "cmbanalyzeroption" + Me.cmbanalyzeroption.Size = New System.Drawing.Size(306, 21) + Me.cmbanalyzeroption.TabIndex = 1173 + Me.cmbanalyzeroption.Text = "--metadata" + ' + 'lblfilenamemetadata + ' + Me.lblfilenamemetadata.AutoSize = True + Me.lblfilenamemetadata.Location = New System.Drawing.Point(73, 21) + Me.lblfilenamemetadata.Name = "lblfilenamemetadata" + Me.lblfilenamemetadata.Size = New System.Drawing.Size(38, 13) + Me.lblfilenamemetadata.TabIndex = 5 + Me.lblfilenamemetadata.Text = "aa.mxf" + ' + 'cmdanalyse + ' + Me.cmdanalyse.Location = New System.Drawing.Point(322, 493) + Me.cmdanalyse.Name = "cmdanalyse" + Me.cmdanalyse.Size = New System.Drawing.Size(96, 23) + Me.cmdanalyse.TabIndex = 6 + Me.cmdanalyse.Text = "Analyse" + Me.cmdanalyse.UseVisualStyleBackColor = True + ' + 'Label238 + ' + Me.Label238.AutoSize = True + Me.Label238.Location = New System.Drawing.Point(6, 23) + Me.Label238.Name = "Label238" + Me.Label238.Size = New System.Drawing.Size(54, 13) + Me.Label238.TabIndex = 4 + Me.Label238.Text = "File Name" + ' + 'cmdclearfieldmetadata + ' + Me.cmdclearfieldmetadata.Location = New System.Drawing.Point(270, 51) + Me.cmdclearfieldmetadata.Name = "cmdclearfieldmetadata" + Me.cmdclearfieldmetadata.Size = New System.Drawing.Size(65, 23) + Me.cmdclearfieldmetadata.TabIndex = 3 + Me.cmdclearfieldmetadata.Text = "Clear Field" + Me.cmdclearfieldmetadata.UseVisualStyleBackColor = True + ' + 'cmdwritemetadata + ' + Me.cmdwritemetadata.Location = New System.Drawing.Point(141, 52) + Me.cmdwritemetadata.Name = "cmdwritemetadata" + Me.cmdwritemetadata.Size = New System.Drawing.Size(120, 23) + Me.cmdwritemetadata.TabIndex = 2 + Me.cmdwritemetadata.Text = "Write with dark option" + Me.cmdwritemetadata.UseVisualStyleBackColor = True + ' + 'cmdreadmetadata + ' + Me.cmdreadmetadata.Location = New System.Drawing.Point(8, 52) + Me.cmdreadmetadata.Name = "cmdreadmetadata" + Me.cmdreadmetadata.Size = New System.Drawing.Size(118, 23) + Me.cmdreadmetadata.TabIndex = 1 + Me.cmdreadmetadata.Text = "Read in Browser" + Me.cmdreadmetadata.UseVisualStyleBackColor = True + ' + 'dgvmetadata + ' + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvmetadata.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvmetadata.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvmetadata.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn13, Me.DataGridViewTextBoxColumn14}) + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvmetadata.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvmetadata.Location = New System.Drawing.Point(8, 77) + Me.dgvmetadata.Name = "dgvmetadata" + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvmetadata.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvmetadata.Size = New System.Drawing.Size(524, 344) + Me.dgvmetadata.TabIndex = 0 + ' + 'CopyandProxyProgram + ' + Me.CopyandProxyProgram.Controls.Add(Me.cmdopendestinationdirectory) + Me.CopyandProxyProgram.Controls.Add(Me.cmdopensourcedirectory) + Me.CopyandProxyProgram.Controls.Add(Me.cmdopendestinationdirectoryproxy) + Me.CopyandProxyProgram.Controls.Add(Me.txtSourceDirectory) + Me.CopyandProxyProgram.Controls.Add(Me.Label2) + Me.CopyandProxyProgram.Controls.Add(Me.cmdshowfilesinSourcelistbox) + Me.CopyandProxyProgram.Controls.Add(Me.txtDestinationDirectoryProxy) + Me.CopyandProxyProgram.Controls.Add(Me.cmdMove) + Me.CopyandProxyProgram.Controls.Add(Me.lstDestinationDirectory) + Me.CopyandProxyProgram.Controls.Add(Me.cmdCopy) + Me.CopyandProxyProgram.Controls.Add(Me.lstSourceDirectory) + Me.CopyandProxyProgram.Controls.Add(Me.cmdshowfilesinDestinationlistboxproxy) + Me.CopyandProxyProgram.Controls.Add(Me.Label1) + Me.CopyandProxyProgram.Controls.Add(Me.cmdshowfilesinDestinationlistbox) + Me.CopyandProxyProgram.Controls.Add(Me.lstDestinationDirectoryProxy) + Me.CopyandProxyProgram.Controls.Add(Me.txtDestinationDirectory) + Me.CopyandProxyProgram.Controls.Add(Me.Label4) + Me.CopyandProxyProgram.Controls.Add(Me.cmdmakeproxy) + Me.CopyandProxyProgram.Location = New System.Drawing.Point(4, 22) + Me.CopyandProxyProgram.Name = "CopyandProxyProgram" + Me.CopyandProxyProgram.Padding = New System.Windows.Forms.Padding(3) + Me.CopyandProxyProgram.Size = New System.Drawing.Size(812, 900) + Me.CopyandProxyProgram.TabIndex = 0 + Me.CopyandProxyProgram.Text = "Copy and Proxy Program" + Me.CopyandProxyProgram.UseVisualStyleBackColor = True + ' + 'BatchTranscoder + ' + Me.BatchTranscoder.Controls.Add(Me.txtffmpegoutput) + Me.BatchTranscoder.Controls.Add(Me.cmdsearchdatagridbt) + Me.BatchTranscoder.Controls.Add(Me.txtsearchdatagridbt) + Me.BatchTranscoder.Controls.Add(Me.cmdDeSelectAllfromcurrentposition) + Me.BatchTranscoder.Controls.Add(Me.cmdDeSelectAll) + Me.BatchTranscoder.Controls.Add(Me.cmdSelectAll) + Me.BatchTranscoder.Controls.Add(Me.lbltrandingfilename) + Me.BatchTranscoder.Controls.Add(Me.cmdselectsourcefolderfortranscoding) + Me.BatchTranscoder.Controls.Add(Me.cmdselectdestinationfolderfortranscoding) + Me.BatchTranscoder.Controls.Add(Me.Label7) + Me.BatchTranscoder.Controls.Add(Me.Label11) + Me.BatchTranscoder.Controls.Add(Me.lblexportclipinfobt) + Me.BatchTranscoder.Controls.Add(Me.dgvtranscoder) + Me.BatchTranscoder.Controls.Add(Me.cmdstoptranscoding) + Me.BatchTranscoder.Controls.Add(Me.txtdestinationdirectorybt) + Me.BatchTranscoder.Controls.Add(Me.Label12) + Me.BatchTranscoder.Controls.Add(Me.txtsourcedirectorybt) + Me.BatchTranscoder.Controls.Add(Me.cmdstarttranscoding) + Me.BatchTranscoder.Controls.Add(Me.cmdfilldatgridbt) + Me.BatchTranscoder.Location = New System.Drawing.Point(4, 22) + Me.BatchTranscoder.Name = "BatchTranscoder" + Me.BatchTranscoder.Padding = New System.Windows.Forms.Padding(3) + Me.BatchTranscoder.Size = New System.Drawing.Size(812, 900) + Me.BatchTranscoder.TabIndex = 1 + Me.BatchTranscoder.Text = "Batch Transcoder" + Me.BatchTranscoder.UseVisualStyleBackColor = True + ' + 'txtffmpegoutput + ' + Me.txtffmpegoutput.Location = New System.Drawing.Point(19, 511) + Me.txtffmpegoutput.Multiline = True + Me.txtffmpegoutput.Name = "txtffmpegoutput" + Me.txtffmpegoutput.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtffmpegoutput.Size = New System.Drawing.Size(522, 165) + Me.txtffmpegoutput.TabIndex = 810 + ' + 'cmdsearchdatagridbt + ' + Me.cmdsearchdatagridbt.Location = New System.Drawing.Point(244, 50) + Me.cmdsearchdatagridbt.Name = "cmdsearchdatagridbt" + Me.cmdsearchdatagridbt.Size = New System.Drawing.Size(69, 23) + Me.cmdsearchdatagridbt.TabIndex = 809 + Me.cmdsearchdatagridbt.Text = "Search" + Me.cmdsearchdatagridbt.UseVisualStyleBackColor = True + ' + 'txtsearchdatagridbt + ' + Me.txtsearchdatagridbt.Location = New System.Drawing.Point(41, 52) + Me.txtsearchdatagridbt.Name = "txtsearchdatagridbt" + Me.txtsearchdatagridbt.Size = New System.Drawing.Size(197, 20) + Me.txtsearchdatagridbt.TabIndex = 808 + ' + 'cmdDeSelectAllfromcurrentposition + ' + Me.cmdDeSelectAllfromcurrentposition.Location = New System.Drawing.Point(547, 144) + Me.cmdDeSelectAllfromcurrentposition.Name = "cmdDeSelectAllfromcurrentposition" + Me.cmdDeSelectAllfromcurrentposition.Size = New System.Drawing.Size(92, 39) + Me.cmdDeSelectAllfromcurrentposition.TabIndex = 807 + Me.cmdDeSelectAllfromcurrentposition.Text = "Select All from current position" + Me.cmdDeSelectAllfromcurrentposition.UseVisualStyleBackColor = True + ' + 'cmdDeSelectAll + ' + Me.cmdDeSelectAll.Location = New System.Drawing.Point(547, 114) + Me.cmdDeSelectAll.Name = "cmdDeSelectAll" + Me.cmdDeSelectAll.Size = New System.Drawing.Size(75, 23) + Me.cmdDeSelectAll.TabIndex = 806 + Me.cmdDeSelectAll.Text = "DeSelect All" + Me.cmdDeSelectAll.UseVisualStyleBackColor = True + ' + 'cmdSelectAll + ' + Me.cmdSelectAll.Location = New System.Drawing.Point(547, 85) + Me.cmdSelectAll.Name = "cmdSelectAll" + Me.cmdSelectAll.Size = New System.Drawing.Size(75, 23) + Me.cmdSelectAll.TabIndex = 805 + Me.cmdSelectAll.Text = "Select All" + Me.cmdSelectAll.UseVisualStyleBackColor = True + ' + 'lbltrandingfilename + ' + Me.lbltrandingfilename.AutoSize = True + Me.lbltrandingfilename.Location = New System.Drawing.Point(40, 480) + Me.lbltrandingfilename.Name = "lbltrandingfilename" + Me.lbltrandingfilename.Size = New System.Drawing.Size(23, 13) + Me.lbltrandingfilename.TabIndex = 804 + Me.lbltrandingfilename.Text = "File" + ' + 'cmdselectsourcefolderfortranscoding + ' + Me.cmdselectsourcefolderfortranscoding.Location = New System.Drawing.Point(305, 25) + Me.cmdselectsourcefolderfortranscoding.Name = "cmdselectsourcefolderfortranscoding" + Me.cmdselectsourcefolderfortranscoding.Size = New System.Drawing.Size(28, 23) + Me.cmdselectsourcefolderfortranscoding.TabIndex = 803 + Me.cmdselectsourcefolderfortranscoding.Text = ".." + Me.cmdselectsourcefolderfortranscoding.UseVisualStyleBackColor = True + ' + 'cmdselectdestinationfolderfortranscoding + ' + Me.cmdselectdestinationfolderfortranscoding.Location = New System.Drawing.Point(594, 37) + Me.cmdselectdestinationfolderfortranscoding.Name = "cmdselectdestinationfolderfortranscoding" + Me.cmdselectdestinationfolderfortranscoding.Size = New System.Drawing.Size(28, 23) + Me.cmdselectdestinationfolderfortranscoding.TabIndex = 802 + Me.cmdselectdestinationfolderfortranscoding.Text = ".." + Me.cmdselectdestinationfolderfortranscoding.UseVisualStyleBackColor = True + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(40, 467) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(130, 13) + Me.Label7.TabIndex = 800 + Me.Label7.Text = "Transcoding Progress" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(437, 23) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(92, 13) + Me.Label11.TabIndex = 796 + Me.Label11.Text = "Destination Folder" + ' + 'lblexportclipinfobt + ' + Me.lblexportclipinfobt.AutoSize = True + Me.lblexportclipinfobt.Location = New System.Drawing.Point(203, 469) + Me.lblexportclipinfobt.Name = "lblexportclipinfobt" + Me.lblexportclipinfobt.Size = New System.Drawing.Size(35, 13) + Me.lblexportclipinfobt.TabIndex = 791 + Me.lblexportclipinfobt.Text = "status" + ' + 'dgvtranscoder + ' + Me.dgvtranscoder.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvtranscoder.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2}) + Me.dgvtranscoder.Location = New System.Drawing.Point(41, 76) + Me.dgvtranscoder.Name = "dgvtranscoder" + Me.dgvtranscoder.Size = New System.Drawing.Size(500, 377) + Me.dgvtranscoder.TabIndex = 792 + ' + 'Column2 + ' + Me.Column2.FalseValue = "0" + Me.Column2.HeaderText = "Select" + Me.Column2.Name = "Column2" + Me.Column2.TrueValue = "1" + Me.Column2.Width = 50 + ' + 'cmdstoptranscoding + ' + Me.cmdstoptranscoding.Location = New System.Drawing.Point(547, 360) + Me.cmdstoptranscoding.Name = "cmdstoptranscoding" + Me.cmdstoptranscoding.Size = New System.Drawing.Size(107, 23) + Me.cmdstoptranscoding.TabIndex = 798 + Me.cmdstoptranscoding.Text = "Stop Transcoding" + Me.cmdstoptranscoding.UseVisualStyleBackColor = True + ' + 'txtdestinationdirectorybt + ' + Me.txtdestinationdirectorybt.Enabled = False + Me.txtdestinationdirectorybt.Location = New System.Drawing.Point(436, 39) + Me.txtdestinationdirectorybt.Name = "txtdestinationdirectorybt" + Me.txtdestinationdirectorybt.Size = New System.Drawing.Size(152, 20) + Me.txtdestinationdirectorybt.TabIndex = 797 + Me.txtdestinationdirectorybt.Text = "d:\casparcg\_media\" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(33, 11) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(70, 13) + Me.Label12.TabIndex = 795 + Me.Label12.Text = "Source folder" + ' + 'txtsourcedirectorybt + ' + Me.txtsourcedirectorybt.Enabled = False + Me.txtsourcedirectorybt.Location = New System.Drawing.Point(36, 27) + Me.txtsourcedirectorybt.Name = "txtsourcedirectorybt" + Me.txtsourcedirectorybt.Size = New System.Drawing.Size(263, 20) + Me.txtsourcedirectorybt.TabIndex = 794 + Me.txtsourcedirectorybt.Text = "c:\casparcg\_media\" + ' + 'cmdstarttranscoding + ' + Me.cmdstarttranscoding.Location = New System.Drawing.Point(547, 331) + Me.cmdstarttranscoding.Name = "cmdstarttranscoding" + Me.cmdstarttranscoding.Size = New System.Drawing.Size(109, 23) + Me.cmdstarttranscoding.TabIndex = 793 + Me.cmdstarttranscoding.Text = "Strat Transcoding" + Me.cmdstarttranscoding.UseVisualStyleBackColor = True + ' + 'cmdfilldatgridbt + ' + Me.cmdfilldatgridbt.Location = New System.Drawing.Point(348, 28) + Me.cmdfilldatgridbt.Name = "cmdfilldatgridbt" + Me.cmdfilldatgridbt.Size = New System.Drawing.Size(69, 23) + Me.cmdfilldatgridbt.TabIndex = 790 + Me.cmdfilldatgridbt.Text = "Fill datagrid" + Me.cmdfilldatgridbt.UseVisualStyleBackColor = True + ' + 'WatchFolder + ' + Me.WatchFolder.Controls.Add(Me.cmdSelectDirectoryForAutoCopy) + Me.WatchFolder.Controls.Add(Me.gbdatatablesetting) + Me.WatchFolder.Controls.Add(Me.txtfilechanged) + Me.WatchFolder.Controls.Add(Me.chktranscode) + Me.WatchFolder.Controls.Add(Me.txttranscodedirectory) + Me.WatchFolder.Controls.Add(Me.chkmediabackup) + Me.WatchFolder.Controls.Add(Me.txtmediabackupfplder) + Me.WatchFolder.Controls.Add(Me.Label19) + Me.WatchFolder.Controls.Add(Me.cmdSelectDirectoryForAutoTranscode) + Me.WatchFolder.Controls.Add(Me.cmdsearchdatatable) + Me.WatchFolder.Controls.Add(Me.labelclips) + Me.WatchFolder.Controls.Add(Me.txtsearchclip) + Me.WatchFolder.Controls.Add(Me.dgvclips) + Me.WatchFolder.Location = New System.Drawing.Point(4, 22) + Me.WatchFolder.Name = "WatchFolder" + Me.WatchFolder.Padding = New System.Windows.Forms.Padding(3) + Me.WatchFolder.Size = New System.Drawing.Size(812, 900) + Me.WatchFolder.TabIndex = 2 + Me.WatchFolder.Text = "Watch Folder" + Me.WatchFolder.UseVisualStyleBackColor = True + ' + 'cmdSelectDirectoryForAutoCopy + ' + Me.cmdSelectDirectoryForAutoCopy.Location = New System.Drawing.Point(281, 527) + Me.cmdSelectDirectoryForAutoCopy.Name = "cmdSelectDirectoryForAutoCopy" + Me.cmdSelectDirectoryForAutoCopy.Size = New System.Drawing.Size(26, 23) + Me.cmdSelectDirectoryForAutoCopy.TabIndex = 490 + Me.cmdSelectDirectoryForAutoCopy.Text = "..." + Me.cmdSelectDirectoryForAutoCopy.UseVisualStyleBackColor = True + ' + 'gbdatatablesetting + ' + Me.gbdatatablesetting.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.gbdatatablesetting.Controls.Add(Me.cmdstopwatching) + Me.gbdatatablesetting.Controls.Add(Me.cmdSelectDirectoryforSymlinked2Mediawatchfolder) + Me.gbdatatablesetting.Controls.Add(Me.cmdSelectDirectoryformainMediawatchfolder) + Me.gbdatatablesetting.Controls.Add(Me.cmdSelectDirectoryforSymlinked1Mediawatchfolder) + Me.gbdatatablesetting.Controls.Add(Me.chkwithduration) + Me.gbdatatablesetting.Controls.Add(Me.Label13) + Me.gbdatatablesetting.Controls.Add(Me.pbsearchprogress) + Me.gbdatatablesetting.Controls.Add(Me.chksymlinkedalis2) + Me.gbdatatablesetting.Controls.Add(Me.chksymlinkedalis1) + Me.gbdatatablesetting.Controls.Add(Me.Label14) + Me.gbdatatablesetting.Controls.Add(Me.Label15) + Me.gbdatatablesetting.Controls.Add(Me.txtsymlinked2mediafolder) + Me.gbdatatablesetting.Controls.Add(Me.txtsymlinkedalis2) + Me.gbdatatablesetting.Controls.Add(Me.txtsymlinkedalis1) + Me.gbdatatablesetting.Controls.Add(Me.Label16) + Me.gbdatatablesetting.Controls.Add(Me.Label17) + Me.gbdatatablesetting.Controls.Add(Me.txtsymlinked1mediafolder) + Me.gbdatatablesetting.Controls.Add(Me.txtmainmediafolder) + Me.gbdatatablesetting.Controls.Add(Me.Label18) + Me.gbdatatablesetting.Controls.Add(Me.cmdcreatdatatable) + Me.gbdatatablesetting.Location = New System.Drawing.Point(6, 6) + Me.gbdatatablesetting.Name = "gbdatatablesetting" + Me.gbdatatablesetting.Size = New System.Drawing.Size(696, 109) + Me.gbdatatablesetting.TabIndex = 485 + Me.gbdatatablesetting.TabStop = False + Me.gbdatatablesetting.Text = "Settings" + ' + 'cmdstopwatching + ' + Me.cmdstopwatching.Location = New System.Drawing.Point(619, 10) + Me.cmdstopwatching.Name = "cmdstopwatching" + Me.cmdstopwatching.Size = New System.Drawing.Size(64, 73) + Me.cmdstopwatching.TabIndex = 482 + Me.cmdstopwatching.Text = "Stop Watching" + Me.cmdstopwatching.UseVisualStyleBackColor = True + ' + 'cmdSelectDirectoryforSymlinked2Mediawatchfolder + ' + Me.cmdSelectDirectoryforSymlinked2Mediawatchfolder.Location = New System.Drawing.Point(307, 62) + Me.cmdSelectDirectoryforSymlinked2Mediawatchfolder.Name = "cmdSelectDirectoryforSymlinked2Mediawatchfolder" + Me.cmdSelectDirectoryforSymlinked2Mediawatchfolder.Size = New System.Drawing.Size(26, 23) + Me.cmdSelectDirectoryforSymlinked2Mediawatchfolder.TabIndex = 481 + Me.cmdSelectDirectoryforSymlinked2Mediawatchfolder.Text = "..." + Me.cmdSelectDirectoryforSymlinked2Mediawatchfolder.UseVisualStyleBackColor = True + ' + 'cmdSelectDirectoryformainMediawatchfolder + ' + Me.cmdSelectDirectoryformainMediawatchfolder.Location = New System.Drawing.Point(307, 10) + Me.cmdSelectDirectoryformainMediawatchfolder.Name = "cmdSelectDirectoryformainMediawatchfolder" + Me.cmdSelectDirectoryformainMediawatchfolder.Size = New System.Drawing.Size(26, 23) + Me.cmdSelectDirectoryformainMediawatchfolder.TabIndex = 480 + Me.cmdSelectDirectoryformainMediawatchfolder.Text = "..." + Me.cmdSelectDirectoryformainMediawatchfolder.UseVisualStyleBackColor = True + ' + 'cmdSelectDirectoryforSymlinked1Mediawatchfolder + ' + Me.cmdSelectDirectoryforSymlinked1Mediawatchfolder.Location = New System.Drawing.Point(307, 37) + Me.cmdSelectDirectoryforSymlinked1Mediawatchfolder.Name = "cmdSelectDirectoryforSymlinked1Mediawatchfolder" + Me.cmdSelectDirectoryforSymlinked1Mediawatchfolder.Size = New System.Drawing.Size(26, 23) + Me.cmdSelectDirectoryforSymlinked1Mediawatchfolder.TabIndex = 479 + Me.cmdSelectDirectoryforSymlinked1Mediawatchfolder.Text = "..." + Me.cmdSelectDirectoryforSymlinked1Mediawatchfolder.UseVisualStyleBackColor = True + ' + 'chkwithduration + ' + Me.chkwithduration.AutoSize = True + Me.chkwithduration.Location = New System.Drawing.Point(421, 19) + Me.chkwithduration.Name = "chkwithduration" + Me.chkwithduration.Size = New System.Drawing.Size(91, 17) + Me.chkwithduration.TabIndex = 475 + Me.chkwithduration.Text = "With Duration" + Me.chkwithduration.UseVisualStyleBackColor = True + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(9, 88) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(85, 13) + Me.Label13.TabIndex = 474 + Me.Label13.Text = "Search Progress" + ' + 'pbsearchprogress + ' + Me.pbsearchprogress.Location = New System.Drawing.Point(135, 86) + Me.pbsearchprogress.Name = "pbsearchprogress" + Me.pbsearchprogress.Size = New System.Drawing.Size(478, 18) + Me.pbsearchprogress.TabIndex = 473 + ' + 'chksymlinkedalis2 + ' + Me.chksymlinkedalis2.AutoSize = True + Me.chksymlinkedalis2.Location = New System.Drawing.Point(421, 61) + Me.chksymlinkedalis2.Name = "chksymlinkedalis2" + Me.chksymlinkedalis2.Size = New System.Drawing.Size(59, 17) + Me.chksymlinkedalis2.TabIndex = 470 + Me.chksymlinkedalis2.Text = "Enable" + Me.chksymlinkedalis2.UseVisualStyleBackColor = True + ' + 'chksymlinkedalis1 + ' + Me.chksymlinkedalis1.AutoSize = True + Me.chksymlinkedalis1.Location = New System.Drawing.Point(421, 39) + Me.chksymlinkedalis1.Name = "chksymlinkedalis1" + Me.chksymlinkedalis1.Size = New System.Drawing.Size(59, 17) + Me.chksymlinkedalis1.TabIndex = 469 + Me.chksymlinkedalis1.Text = "Enable" + Me.chksymlinkedalis1.UseVisualStyleBackColor = True + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(336, 63) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(29, 13) + Me.Label14.TabIndex = 468 + Me.Label14.Text = "Alias" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(5, 65) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(128, 13) + Me.Label15.TabIndex = 467 + Me.Label15.Text = "Symlinked Media Folder 2" + ' + 'txtsymlinked2mediafolder + ' + Me.txtsymlinked2mediafolder.Location = New System.Drawing.Point(135, 62) + Me.txtsymlinked2mediafolder.Name = "txtsymlinked2mediafolder" + Me.txtsymlinked2mediafolder.Size = New System.Drawing.Size(166, 20) + Me.txtsymlinked2mediafolder.TabIndex = 466 + Me.txtsymlinked2mediafolder.Text = "s:/casparcg/_media/" + ' + 'txtsymlinkedalis2 + ' + Me.txtsymlinkedalis2.Location = New System.Drawing.Point(367, 60) + Me.txtsymlinkedalis2.Name = "txtsymlinkedalis2" + Me.txtsymlinkedalis2.Size = New System.Drawing.Size(48, 20) + Me.txtsymlinkedalis2.TabIndex = 465 + Me.txtsymlinkedalis2.Text = "snfs" + ' + 'txtsymlinkedalis1 + ' + Me.txtsymlinkedalis1.Location = New System.Drawing.Point(367, 34) + Me.txtsymlinkedalis1.Name = "txtsymlinkedalis1" + Me.txtsymlinkedalis1.Size = New System.Drawing.Size(48, 20) + Me.txtsymlinkedalis1.TabIndex = 464 + Me.txtsymlinkedalis1.Text = "gfs" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(336, 37) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(29, 13) + Me.Label16.TabIndex = 463 + Me.Label16.Text = "Alias" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(5, 39) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(128, 13) + Me.Label17.TabIndex = 462 + Me.Label17.Text = "Symlinked Media Folder 1" + ' + 'txtsymlinked1mediafolder + ' + Me.txtsymlinked1mediafolder.Location = New System.Drawing.Point(135, 36) + Me.txtsymlinked1mediafolder.Name = "txtsymlinked1mediafolder" + Me.txtsymlinked1mediafolder.Size = New System.Drawing.Size(166, 20) + Me.txtsymlinked1mediafolder.TabIndex = 461 + Me.txtsymlinked1mediafolder.Text = "z:/casparcg/_media/" + ' + 'txtmainmediafolder + ' + Me.txtmainmediafolder.Location = New System.Drawing.Point(135, 10) + Me.txtmainmediafolder.Name = "txtmainmediafolder" + Me.txtmainmediafolder.Size = New System.Drawing.Size(166, 20) + Me.txtmainmediafolder.TabIndex = 460 + Me.txtmainmediafolder.Text = "c:/casparcg/_media/" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(30, 13) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(94, 13) + Me.Label18.TabIndex = 458 + Me.Label18.Text = "Main Media Folder" + ' + 'cmdcreatdatatable + ' + Me.cmdcreatdatatable.Location = New System.Drawing.Point(511, 9) + Me.cmdcreatdatatable.Name = "cmdcreatdatatable" + Me.cmdcreatdatatable.Size = New System.Drawing.Size(102, 73) + Me.cmdcreatdatatable.TabIndex = 457 + Me.cmdcreatdatatable.Text = "Create Datatable and Watch" + Me.cmdcreatdatatable.UseVisualStyleBackColor = True + ' + 'txtfilechanged + ' + Me.txtfilechanged.Location = New System.Drawing.Point(9, 411) + Me.txtfilechanged.Multiline = True + Me.txtfilechanged.Name = "txtfilechanged" + Me.txtfilechanged.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtfilechanged.Size = New System.Drawing.Size(617, 67) + Me.txtfilechanged.TabIndex = 483 + ' + 'chktranscode + ' + Me.chktranscode.AutoSize = True + Me.chktranscode.Location = New System.Drawing.Point(15, 551) + Me.chktranscode.Name = "chktranscode" + Me.chktranscode.Size = New System.Drawing.Size(118, 17) + Me.chktranscode.TabIndex = 489 + Me.chktranscode.Text = "Auto Transcode To" + Me.chktranscode.UseVisualStyleBackColor = True + ' + 'txttranscodedirectory + ' + Me.txttranscodedirectory.Location = New System.Drawing.Point(15, 570) + Me.txttranscodedirectory.Name = "txttranscodedirectory" + Me.txttranscodedirectory.Size = New System.Drawing.Size(260, 20) + Me.txttranscodedirectory.TabIndex = 488 + Me.txttranscodedirectory.Text = "C:/casparcg/mydata/" + ' + 'chkmediabackup + ' + Me.chkmediabackup.AutoSize = True + Me.chkmediabackup.Location = New System.Drawing.Point(15, 509) + Me.chkmediabackup.Name = "chkmediabackup" + Me.chkmediabackup.Size = New System.Drawing.Size(87, 17) + Me.chkmediabackup.TabIndex = 487 + Me.chkmediabackup.Text = "Auto Copy to" + Me.chkmediabackup.UseVisualStyleBackColor = True + ' + 'txtmediabackupfplder + ' + Me.txtmediabackupfplder.Location = New System.Drawing.Point(14, 527) + Me.txtmediabackupfplder.Name = "txtmediabackupfplder" + Me.txtmediabackupfplder.Size = New System.Drawing.Size(261, 20) + Me.txtmediabackupfplder.TabIndex = 486 + Me.txtmediabackupfplder.Text = "C:/casparcg/mydata/" + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(12, 393) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(124, 13) + Me.Label19.TabIndex = 484 + Me.Label19.Text = "File Changes Notification" + ' + 'cmdSelectDirectoryForAutoTranscode + ' + Me.cmdSelectDirectoryForAutoTranscode.Location = New System.Drawing.Point(281, 567) + Me.cmdSelectDirectoryForAutoTranscode.Name = "cmdSelectDirectoryForAutoTranscode" + Me.cmdSelectDirectoryForAutoTranscode.Size = New System.Drawing.Size(26, 23) + Me.cmdSelectDirectoryForAutoTranscode.TabIndex = 491 + Me.cmdSelectDirectoryForAutoTranscode.Text = "..." + Me.cmdSelectDirectoryForAutoTranscode.UseVisualStyleBackColor = True + ' + 'cmdsearchdatatable + ' + Me.cmdsearchdatatable.Location = New System.Drawing.Point(252, 123) + Me.cmdsearchdatatable.Name = "cmdsearchdatatable" + Me.cmdsearchdatatable.Size = New System.Drawing.Size(98, 23) + Me.cmdsearchdatatable.TabIndex = 479 + Me.cmdsearchdatatable.Text = "Search Datatable" + Me.cmdsearchdatatable.UseVisualStyleBackColor = True + ' + 'labelclips + ' + Me.labelclips.AutoSize = True + Me.labelclips.Location = New System.Drawing.Point(25, 127) + Me.labelclips.Name = "labelclips" + Me.labelclips.Size = New System.Drawing.Size(53, 13) + Me.labelclips.TabIndex = 482 + Me.labelclips.Text = " labelclips" + ' + 'txtsearchclip + ' + Me.txtsearchclip.Location = New System.Drawing.Point(96, 125) + Me.txtsearchclip.Name = "txtsearchclip" + Me.txtsearchclip.Size = New System.Drawing.Size(150, 20) + Me.txtsearchclip.TabIndex = 481 + ' + 'dgvclips + ' + Me.dgvclips.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvclips.Location = New System.Drawing.Point(9, 163) + Me.dgvclips.Name = "dgvclips" + Me.dgvclips.Size = New System.Drawing.Size(619, 200) + Me.dgvclips.TabIndex = 480 + ' + 'bwforexportclipbt + ' + Me.bwforexportclipbt.WorkerSupportsCancellation = True + ' + 'fswalias2 + ' + Me.fswalias2.EnableRaisingEvents = True + Me.fswalias2.IncludeSubdirectories = True + Me.fswalias2.SynchronizingObject = Me.WatchFolder + ' + 'fsw + ' + Me.fsw.EnableRaisingEvents = True + Me.fsw.IncludeSubdirectories = True + Me.fsw.SynchronizingObject = Me.WatchFolder + ' + 'fswalias1 + ' + Me.fswalias1.EnableRaisingEvents = True + Me.fswalias1.IncludeSubdirectories = True + Me.fswalias1.SynchronizingObject = Me.WatchFolder + ' + 'cmdplayinvlc + ' + Me.cmdplayinvlc.Location = New System.Drawing.Point(839, 634) + Me.cmdplayinvlc.Name = "cmdplayinvlc" + Me.cmdplayinvlc.Size = New System.Drawing.Size(94, 23) + Me.cmdplayinvlc.TabIndex = 807 + Me.cmdplayinvlc.Text = "Play in VLC" + Me.cmdplayinvlc.UseVisualStyleBackColor = True + ' + 'lblplayinvlc + ' + Me.lblplayinvlc.AutoSize = True + Me.lblplayinvlc.Location = New System.Drawing.Point(845, 660) + Me.lblplayinvlc.Name = "lblplayinvlc" + Me.lblplayinvlc.Size = New System.Drawing.Size(54, 13) + Me.lblplayinvlc.TabIndex = 807 + Me.lblplayinvlc.Text = "File Name" + ' + 'cmdshowfileinformation + ' + Me.cmdshowfileinformation.Location = New System.Drawing.Point(939, 632) + Me.cmdshowfileinformation.Name = "cmdshowfileinformation" + Me.cmdshowfileinformation.Size = New System.Drawing.Size(118, 23) + Me.cmdshowfileinformation.TabIndex = 808 + Me.cmdshowfileinformation.Text = "Show File Information" + Me.cmdshowfileinformation.UseVisualStyleBackColor = True + ' + 'GroupBox1 + ' + Me.GroupBox1.BackColor = System.Drawing.Color.PeachPuff + Me.GroupBox1.Controls.Add(Me.TabControl1) + Me.GroupBox1.Controls.Add(Me.cmdshowfileinformation) + Me.GroupBox1.Controls.Add(Me.UcTranscodingProfile1) + Me.GroupBox1.Controls.Add(Me.cmdplayinvlc) + Me.GroupBox1.Controls.Add(Me.lblplayinvlc) + Me.GroupBox1.Location = New System.Drawing.Point(3, 3) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(1224, 951) + Me.GroupBox1.TabIndex = 809 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = " " + ' + 'cmdrecord + ' + Me.cmdrecord.Location = New System.Drawing.Point(742, 451) + Me.cmdrecord.Name = "cmdrecord" + Me.cmdrecord.Size = New System.Drawing.Size(64, 48) + Me.cmdrecord.TabIndex = 844 + Me.cmdrecord.Text = "Convert" + Me.cmdrecord.UseVisualStyleBackColor = True + ' + 'txtrecord + ' + Me.txtrecord.Location = New System.Drawing.Point(5, 451) + Me.txtrecord.Multiline = True + Me.txtrecord.Name = "txtrecord" + Me.txtrecord.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtrecord.Size = New System.Drawing.Size(702, 48) + Me.txtrecord.TabIndex = 843 + Me.txtrecord.Text = resources.GetString("txtrecord.Text") + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(11, 435) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(280, 13) + Me.Label9.TabIndex = 842 + Me.Label9.Text = "FFMPEG continuous Record 10 second duration" + ' + 'cmdOutputToDecklink + ' + Me.cmdOutputToDecklink.Location = New System.Drawing.Point(743, 538) + Me.cmdOutputToDecklink.Name = "cmdOutputToDecklink" + Me.cmdOutputToDecklink.Size = New System.Drawing.Size(64, 48) + Me.cmdOutputToDecklink.TabIndex = 847 + Me.cmdOutputToDecklink.Text = "Convert" + Me.cmdOutputToDecklink.UseVisualStyleBackColor = True + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(12, 522) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(171, 13) + Me.Label10.TabIndex = 845 + Me.Label10.Text = "FFMPEG Output To Decklink" + ' + 'txtOutputToDecklink + ' + Me.txtOutputToDecklink.Location = New System.Drawing.Point(8, 538) + Me.txtOutputToDecklink.Multiline = True + Me.txtOutputToDecklink.Name = "txtOutputToDecklink" + Me.txtOutputToDecklink.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtOutputToDecklink.Size = New System.Drawing.Size(702, 48) + Me.txtOutputToDecklink.TabIndex = 848 + Me.txtOutputToDecklink.Text = "c:/casparcg/mydata/goa/FFmpeg/bin/ffmpeg.exe -i udp://238.1.1.3:2000?pkt_size=131" & + "6 -fflags nobuffer -tune zerolatency -f decklink -s 720x576 -pix_fmt uyvy422 -r" & + " 25 ""DeckLink Duo (1)""" + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.HeaderText = "Field" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.Width = 150 + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.HeaderText = "Value" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.Width = 300 + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.HeaderText = "File" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.Width = 600 + ' + 'DataGridViewTextBoxColumn13 + ' + Me.DataGridViewTextBoxColumn13.HeaderText = "Field" + Me.DataGridViewTextBoxColumn13.Name = "DataGridViewTextBoxColumn13" + Me.DataGridViewTextBoxColumn13.Width = 150 + ' + 'DataGridViewTextBoxColumn14 + ' + Me.DataGridViewTextBoxColumn14.HeaderText = "Value" + Me.DataGridViewTextBoxColumn14.Name = "DataGridViewTextBoxColumn14" + Me.DataGridViewTextBoxColumn14.Width = 300 + ' + 'Column1 + ' + Me.Column1.HeaderText = "File" + Me.Column1.Name = "Column1" + Me.Column1.Width = 400 + ' + 'UcTranscodingProfile1 + ' + Me.UcTranscodingProfile1.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.UcTranscodingProfile1.Location = New System.Drawing.Point(832, 44) + Me.UcTranscodingProfile1.Name = "UcTranscodingProfile1" + Me.UcTranscodingProfile1.Size = New System.Drawing.Size(387, 582) + Me.UcTranscodingProfile1.TabIndex = 0 + ' + 'ucMAM + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(1229, 964) + Me.Controls.Add(Me.GroupBox1) + Me.HideOnClose = True + Me.Name = "ucMAM" + Me.Text = "MAM" + Me.TabControl1.ResumeLayout(False) + Me.FFMPEG.ResumeLayout(False) + Me.FFMPEG.PerformLayout() + Me.EbuCoreMetadata.ResumeLayout(False) + Me.gbmetadata.ResumeLayout(False) + Me.gbmetadata.PerformLayout() + CType(Me.dgvmetadata, System.ComponentModel.ISupportInitialize).EndInit() + Me.CopyandProxyProgram.ResumeLayout(False) + Me.CopyandProxyProgram.PerformLayout() + Me.BatchTranscoder.ResumeLayout(False) + Me.BatchTranscoder.PerformLayout() + CType(Me.dgvtranscoder, System.ComponentModel.ISupportInitialize).EndInit() + Me.WatchFolder.ResumeLayout(False) + Me.WatchFolder.PerformLayout() + Me.gbdatatablesetting.ResumeLayout(False) + Me.gbdatatablesetting.PerformLayout() + CType(Me.dgvclips, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.fswalias2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.fsw, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.fswalias1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents lstSourceDirectory As System.Windows.Forms.ListBox + Friend WithEvents lstDestinationDirectory As System.Windows.Forms.ListBox + Friend WithEvents cmdCopy As System.Windows.Forms.Button + Friend WithEvents cmdMove As System.Windows.Forms.Button + Friend WithEvents cmdshowfilesinSourcelistbox As System.Windows.Forms.Button + Friend WithEvents cmdshowfilesinDestinationlistbox As System.Windows.Forms.Button + Friend WithEvents txtSourceDirectory As System.Windows.Forms.TextBox + Friend WithEvents txtDestinationDirectory As System.Windows.Forms.TextBox + Friend WithEvents cmdmakeproxy As System.Windows.Forms.Button + Friend WithEvents txtDestinationDirectoryProxy As System.Windows.Forms.TextBox + Friend WithEvents cmdshowfilesinDestinationlistboxproxy As System.Windows.Forms.Button + Friend WithEvents lstDestinationDirectoryProxy As System.Windows.Forms.ListBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents cmdopensourcedirectory As System.Windows.Forms.Button + Friend WithEvents cmdopendestinationdirectory As System.Windows.Forms.Button + Friend WithEvents cmdopendestinationdirectoryproxy As System.Windows.Forms.Button + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents CopyandProxyProgram As System.Windows.Forms.TabPage + Friend WithEvents BatchTranscoder As System.Windows.Forms.TabPage + Friend WithEvents WatchFolder As System.Windows.Forms.TabPage + Friend WithEvents lbltrandingfilename As System.Windows.Forms.Label + Friend WithEvents cmdselectsourcefolderfortranscoding As System.Windows.Forms.Button + Friend WithEvents cmdselectdestinationfolderfortranscoding As System.Windows.Forms.Button + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents lblexportclipinfobt As System.Windows.Forms.Label + Friend WithEvents dgvtranscoder As System.Windows.Forms.DataGridView + Friend WithEvents cmdstoptranscoding As System.Windows.Forms.Button + Friend WithEvents txtdestinationdirectorybt As System.Windows.Forms.TextBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents txtsourcedirectorybt As System.Windows.Forms.TextBox + Friend WithEvents cmdstarttranscoding As System.Windows.Forms.Button + Friend WithEvents cmdfilldatgridbt As System.Windows.Forms.Button + Friend WithEvents bwforexportclipbt As System.ComponentModel.BackgroundWorker + Friend WithEvents cmdSelectDirectoryForAutoCopy As System.Windows.Forms.Button + Friend WithEvents gbdatatablesetting As System.Windows.Forms.GroupBox + Friend WithEvents cmdSelectDirectoryforSymlinked2Mediawatchfolder As System.Windows.Forms.Button + Friend WithEvents cmdSelectDirectoryformainMediawatchfolder As System.Windows.Forms.Button + Friend WithEvents cmdSelectDirectoryforSymlinked1Mediawatchfolder As System.Windows.Forms.Button + Friend WithEvents chkwithduration As System.Windows.Forms.CheckBox + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents pbsearchprogress As System.Windows.Forms.ProgressBar + Friend WithEvents chksymlinkedalis2 As System.Windows.Forms.CheckBox + Friend WithEvents chksymlinkedalis1 As System.Windows.Forms.CheckBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents txtsymlinked2mediafolder As System.Windows.Forms.TextBox + Friend WithEvents txtsymlinkedalis2 As System.Windows.Forms.TextBox + Friend WithEvents txtsymlinkedalis1 As System.Windows.Forms.TextBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents txtsymlinked1mediafolder As System.Windows.Forms.TextBox + Friend WithEvents txtmainmediafolder As System.Windows.Forms.TextBox + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents cmdcreatdatatable As System.Windows.Forms.Button + Friend WithEvents txtfilechanged As System.Windows.Forms.TextBox + Friend WithEvents chktranscode As System.Windows.Forms.CheckBox + Friend WithEvents txttranscodedirectory As System.Windows.Forms.TextBox + Friend WithEvents chkmediabackup As System.Windows.Forms.CheckBox + Friend WithEvents txtmediabackupfplder As System.Windows.Forms.TextBox + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents cmdSelectDirectoryForAutoTranscode As System.Windows.Forms.Button + Friend WithEvents cmdsearchdatatable As System.Windows.Forms.Button + Friend WithEvents labelclips As System.Windows.Forms.Label + Friend WithEvents txtsearchclip As System.Windows.Forms.TextBox + Friend WithEvents dgvclips As System.Windows.Forms.DataGridView + Friend WithEvents fswalias2 As System.IO.FileSystemWatcher + Friend WithEvents fsw As System.IO.FileSystemWatcher + Friend WithEvents fswalias1 As System.IO.FileSystemWatcher + Friend WithEvents cmdstopwatching As System.Windows.Forms.Button + Friend WithEvents cmdDeSelectAll As System.Windows.Forms.Button + Friend WithEvents cmdSelectAll As System.Windows.Forms.Button + Friend WithEvents cmdplayinvlc As System.Windows.Forms.Button + Friend WithEvents lblplayinvlc As System.Windows.Forms.Label + Friend WithEvents cmdshowfileinformation As System.Windows.Forms.Button + Friend WithEvents FFMPEG As System.Windows.Forms.TabPage + Friend WithEvents txtsequencetovideomam As System.Windows.Forms.TextBox + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents cmdsequencetovideomam As System.Windows.Forms.Button + Friend WithEvents cmdvideotosequencemam As System.Windows.Forms.Button + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents cmdaddingaudiotracktovideomam As System.Windows.Forms.Button + Friend WithEvents txtaddingaudiotracktovideomam As System.Windows.Forms.TextBox + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents cmdaudioinsinglestream As System.Windows.Forms.Button + Friend WithEvents txtaudioinsinglestream As System.Windows.Forms.TextBox + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents cmdDeSelectAllfromcurrentposition As System.Windows.Forms.Button + Friend WithEvents txtfilenameforimage As System.Windows.Forms.TextBox + Friend WithEvents cmddestinationfolderforalphaimage As System.Windows.Forms.Button + Friend WithEvents cmdvideoforimage As System.Windows.Forms.Button + Friend WithEvents cmbcodecforalpha As System.Windows.Forms.ComboBox + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents txtsourcefileforalphavideo As System.Windows.Forms.TextBox + Friend WithEvents txtdestinationfolderforalphaimage As System.Windows.Forms.TextBox + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents txtsourcefileforalphavideosd As System.Windows.Forms.TextBox + Friend WithEvents txtdestinationfolderforhd As System.Windows.Forms.TextBox + Friend WithEvents txtfilenameforhd As System.Windows.Forms.TextBox + Friend WithEvents cmddestinationfolderforhd As System.Windows.Forms.Button + Friend WithEvents cmdvideosd As System.Windows.Forms.Button + Friend WithEvents cmdvideohd As System.Windows.Forms.Button + Friend WithEvents cmdFfmbcTargetTranscoding As System.Windows.Forms.Button + Friend WithEvents txtFfmbcTargetTranscoding As System.Windows.Forms.TextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents cmdsearchdatagridbt As System.Windows.Forms.Button + Friend WithEvents txtsearchdatagridbt As System.Windows.Forms.TextBox + Friend WithEvents EbuCoreMetadata As System.Windows.Forms.TabPage + Friend WithEvents gbmetadata As System.Windows.Forms.GroupBox + Friend WithEvents cmbebu2mxfoption As System.Windows.Forms.ComboBox + Friend WithEvents cmddefaultmetadata As System.Windows.Forms.Button + Friend WithEvents cmdebu2mxf As System.Windows.Forms.Button + Friend WithEvents cmbanalyzeroption As System.Windows.Forms.ComboBox + Friend WithEvents lblfilenamemetadata As System.Windows.Forms.Label + Friend WithEvents cmdanalyse As System.Windows.Forms.Button + Friend WithEvents Label238 As System.Windows.Forms.Label + Friend WithEvents cmdclearfieldmetadata As System.Windows.Forms.Button + Friend WithEvents cmdwritemetadata As System.Windows.Forms.Button + Friend WithEvents cmdreadmetadata As System.Windows.Forms.Button + Friend WithEvents dgvmetadata As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn13 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn14 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn + Friend WithEvents UcTranscodingProfile1 As ucTranscodingProfile + Friend WithEvents txtffmpegoutput As TextBox + Friend WithEvents Label3 As Label + Friend WithEvents Button1 As Button + Friend WithEvents txtffplay As TextBox + Friend WithEvents Label5 As Label + Friend WithEvents cmdFFMpeg As Button + Friend WithEvents txtFFMpeg As TextBox + Friend WithEvents Label8 As Label + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents Column1 As DataGridViewTextBoxColumn + Friend WithEvents Column2 As DataGridViewCheckBoxColumn + Friend WithEvents cmdrecord As Button + Friend WithEvents txtrecord As TextBox + Friend WithEvents Label9 As Label + Friend WithEvents cmdOutputToDecklink As Button + Friend WithEvents Label10 As Label + Friend WithEvents txtOutputToDecklink As TextBox +End Class diff --git a/CasparMediaPlayback/ucMAM.resx b/CasparMediaPlayback/ucMAM.resx new file mode 100644 index 0000000..ae08c6a --- /dev/null +++ b/CasparMediaPlayback/ucMAM.resx @@ -0,0 +1,160 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + c:/casparcg/mydata/ffmpeg/ffmpeg.exe -i udp://238.1.1.3:2000?pkt_size=1316 -vcodec libx264 -acodec aac -strict -2 -b:a 384k -flags +global_header -f segment -segment_time 10 -segment_format_options movflags=+faststart -reset_timestamps 1 d:/rec%d.mp4 + + + c:/casparcg/mydata/ffmpeg/ffmpeg.exe -re -i http://esdcdn2-lh.akamaihd.net/i/esdcdn2_1@528073/master.m3u8 -re -i http://nondelhi-lh.akamaihd-staging.net/i/airlucknow_1@825824/master.m3u8 -re -i http://airfmgold-lh.akamaihd.net/i/fmgold_1@507591/master.m3u8 -re -i http://vividhbharati-lh.akamaihd.net/i/vividhbharati_1@507811/master.m3u8 -pcr_period 30 -max_delay 1000 -c:a mp2 -b:a 96k -ac 2 -ar 48000 -map 1:a:0 -map 1:a:0 -map 3:a:0 -map 3:a:0 -mpegts_start_pid 0x0481 -muxrate 20M -bufsize 4k -f mpegts udp://238.1.1.3:2000?pkt_size=1316 + + + + c:/casparcg/mydata/ffmpeg/ffmpeg.exe -y -i c:/casparcg/_media/dolby_with_stereo.mxf -filter_complex "[0:1] [0:2] [0:3] [0:4]amerge=inputs=4" -c:a pcm_s24le -c:v copy c:/casparcg/_media/dolby_with_stereo_in_one_stream.avi + + + c:/casparcg/mydata/ffmpeg/ffmpeg.exe -y -i c:/casparcg/_media/video1.mov -i c:/casparcg/_media/go1080p25.mp4 -i c:/casparcg/_media/kabhi_kabhi.mp4 -map 0:0 -map 1:1 -map 2:1 c:/casparcg/_media/video2.mov + + + True + + + True + + + True + + + True + + + 180, 17 + + + 329, 17 + + + 429, 17 + + + 499, 17 + + + 46 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucMAM.vb b/CasparMediaPlayback/ucMAM.vb new file mode 100644 index 0000000..bd0eb95 --- /dev/null +++ b/CasparMediaPlayback/ucMAM.vb @@ -0,0 +1,1012 @@ +Imports System.IO +Imports Microsoft.VisualBasic.FileIO +Imports System.ComponentModel +Imports MediaInfoLib +Imports System.Data +Imports Microsoft.Win32 'for number of processor +Public Class ucMAM + Dim ibt As Integer + + Dim fps As Integer = 25 + Dim proc As New Process + Dim i As Integer = 0 + + Dim threadstousefortranscoding As String + + Dim dtmediabase As New DataTable() + Dim drmediabase As DataRow + Dim mediafolder, symlinkedfolder1, symlinkedfolder2 As String + Dim alias1, alias2 As String + Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load + On Error Resume Next + getnumberofprocessors() + End Sub + + Public Sub ProcessDirectory(ByVal targetDirectory As String, aa As ListBox) + On Error Resume Next + Dim fileEntries As String() = Directory.GetFiles(targetDirectory) + ' Process the list of files found in the directory. + Dim fileName As String + + For Each fileName In fileEntries + ProcessFile(fileName, aa) + Next fileName + Dim subdirectoryEntries As String() = Directory.GetDirectories(targetDirectory) + ' Recurse into subdirectories of this directory. + Dim subdirectory As String + Dim lstbox As ListBox = aa + For Each subdirectory In subdirectoryEntries + ProcessDirectory(subdirectory, lstbox) + Next subdirectory + + End Sub + Public Sub ProcessFile(ByVal path As String, aa As ListBox) + On Error Resume Next + aa.Items.Add(path) + End Sub + + Private Sub cmdCopy_Click(sender As Object, e As EventArgs) Handles cmdCopy.Click + On Error Resume Next + Microsoft.VisualBasic.FileIO.FileSystem.CopyFile(lstSourceDirectory.SelectedItem.ToString, txtDestinationDirectory.Text & getfilenamewithoutdirectoty(lstSourceDirectory.SelectedItem.ToString), UIOption.AllDialogs) + End Sub + Private Sub cmdMove_Click(sender As Object, e As EventArgs) Handles cmdMove.Click + On Error Resume Next + Microsoft.VisualBasic.FileIO.FileSystem.MoveFile(lstSourceDirectory.SelectedItem.ToString, txtDestinationDirectory.Text & getfilenamewithoutdirectoty(lstSourceDirectory.SelectedItem.ToString), UIOption.AllDialogs) + + End Sub + Private Sub cmdshowfilesinSourcelistbox_Click(sender As Object, e As EventArgs) Handles cmdshowfilesinSourcelistbox.Click + On Error Resume Next + lstSourceDirectory.Items.Clear() + + ProcessDirectory(txtSourceDirectory.Text, lstSourceDirectory) + End Sub + + Private Sub cmdshowfilesinDestinationlistbox_Click(sender As Object, e As EventArgs) Handles cmdshowfilesinDestinationlistbox.Click + On Error Resume Next + lstDestinationDirectory.Items.Clear() + ProcessDirectory(txtDestinationDirectory.Text, lstDestinationDirectory) + End Sub + + Private Sub cmdmakeproxy_Click(sender As Object, e As EventArgs) Handles cmdmakeproxy.Click + On Error Resume Next + UcTranscodingProfile1.getextensionfortranscoding() + UcTranscodingProfile1.ofdtrimmer.FileName = lstSourceDirectory.SelectedItem.ToString + UcTranscodingProfile1.osdcutfilename.FileName = txtDestinationDirectoryProxy.Text & getfilenamewithoutdirectotyandExtension(lstSourceDirectory.SelectedItem.ToString) & UcTranscodingProfile1.strFileExtension + UcTranscodingProfile1.gettranscodingcommand() + Process.Start("CMD", UcTranscodingProfile1.cmdtranscodingcommand) + End Sub + + Function ModifyFilenamewithoutextension(FilenameWithExtension As String) As String + On Error Resume Next + Dim fileExtPos As Integer = FilenameWithExtension.LastIndexOf(".") + If (fileExtPos >= 0) Then + Return FilenameWithExtension.Substring(0, fileExtPos) + Else + Return FilenameWithExtension + End If + End Function + + Private Sub cmdshowfilesinDestinationlistboxproxy_Click(sender As Object, e As EventArgs) Handles cmdshowfilesinDestinationlistboxproxy.Click + On Error Resume Next + lstDestinationDirectoryProxy.Items.Clear() + ProcessDirectory(txtDestinationDirectoryProxy.Text, lstDestinationDirectoryProxy) + End Sub + Private Sub cmdopendestinationdirectory_Click(sender As Object, e As EventArgs) Handles cmdopendestinationdirectory.Click + On Error Resume Next + txtDestinationDirectory.Text = folderbrowsing(txtDestinationDirectory.Text) + End Sub + Private Sub cmdopendestinationdirectoryproxy_Click(sender As Object, e As EventArgs) Handles cmdopendestinationdirectoryproxy.Click + On Error Resume Next + txtDestinationDirectoryProxy.Text = folderbrowsing(txtDestinationDirectoryProxy.Text) + End Sub + Private Sub cmdopensourcedirectory_Click(sender As Object, e As EventArgs) Handles cmdopensourcedirectory.Click + On Error Resume Next + txtSourceDirectory.Text = folderbrowsing(txtSourceDirectory.Text) + End Sub + + Function getfilenamewithoutdirectoty(aa As String) + On Error Resume Next + Dim bb As New OpenFileDialog + bb.FileName = aa + Dim cc As String = bb.SafeFileName + Return cc + End Function + Function getfilenamewithoutdirectotyandExtension(aa As String) + On Error Resume Next + aa = getfilenamewithoutdirectoty(aa) + Dim fileExtPos As Integer = aa.LastIndexOf(".") + If (fileExtPos >= 0) Then + Return aa.Substring(0, fileExtPos) + Else + Return aa + End If + End Function + + Private Sub cmdselectsourcefolderfortranscoding_Click(sender As Object, e As EventArgs) Handles cmdselectsourcefolderfortranscoding.Click + On Error Resume Next + Dim aa As New FolderBrowserDialog + aa.SelectedPath = txtsourcedirectorybt.Text + If aa.ShowDialog = Windows.Forms.DialogResult.OK Then + txtsourcedirectorybt.Text = aa.SelectedPath & "\" + End If + End Sub + + Private Sub cmdselectdestinationfolderfortranscoding_Click(sender As Object, e As EventArgs) Handles cmdselectdestinationfolderfortranscoding.Click + On Error Resume Next + Dim aa As New FolderBrowserDialog + aa.SelectedPath = txtdestinationdirectorybt.Text + If aa.ShowDialog = Windows.Forms.DialogResult.OK Then + txtdestinationdirectorybt.Text = aa.SelectedPath & "\" + End If + + End Sub + Private Sub cmdfilldatgridbt_Click(sender As Object, e As EventArgs) Handles cmdfilldatgridbt.Click + filldatagridbt() + End Sub + + Sub filldatagridbt() + On Error Resume Next + ibt = 0 + dgvtranscoder.Rows.Clear() + ProcessDirectorybt(txtsourcedirectorybt.Text) + End Sub + + Public Sub ProcessDirectorybt(ByVal targetDirectory As String) + On Error Resume Next + Dim fileEntries As String() = Directory.GetFiles(targetDirectory) + For Each fileName As String In fileEntries + ProcessFilebt(fileName) + Next fileName + Dim subdirectoryEntries As String() = Directory.GetDirectories(targetDirectory) + + For Each subdirectory As String In subdirectoryEntries + ProcessDirectorybt(subdirectory) + Next subdirectory + + End Sub + Function ModifyFilename(FilenameWithExtension As String) As String + On Error Resume Next + Dim fileExtPos As Integer = FilenameWithExtension.LastIndexOf(".") + If (fileExtPos >= 0) Then + Return FilenameWithExtension.Substring(0, fileExtPos) + Else + Return FilenameWithExtension + End If + End Function + Public Sub ProcessFilebt(ByVal path As String) + On Error Resume Next + dgvtranscoder.Rows.Add() + dgvtranscoder.Rows(ibt).Cells(0).Value = path + ibt = ibt + 1 + End Sub + + Private Sub cmdstarttranscoding_Click(sender As Object, e As EventArgs) Handles cmdstarttranscoding.Click + On Error Resume Next + ibt = 0 + UcTranscodingProfile1.getextensionfortranscoding() + UcTranscodingProfile1.strinout = "" + starttranscoding() + End Sub + + Sub starttranscoding() + On Error Resume Next +20: + If dgvtranscoder.Rows(ibt).Cells(1).Value = 1 Then + UcTranscodingProfile1.ofdtrimmer.FileName = dgvtranscoder.Rows(ibt).Cells(0).Value + Else + ibt = ibt + 1 + If dgvtranscoder.Rows.Count > ibt Then GoTo 20 + End If + + If dgvtranscoder.Rows.Count <= ibt Then + lblexportclipinfobt.Text = "Completed" + lbltrandingfilename.Text = "" + Exit Sub + End If + Dim newdir As String + newdir = txtdestinationdirectorybt.Text & Mid(Path.GetDirectoryName(UcTranscodingProfile1.ofdtrimmer.FileName), Len(txtsourcedirectorybt.Text) + 1) + + Directory.CreateDirectory(newdir) + + UcTranscodingProfile1.osdcutfilename.FileName = ModifyFilename(newdir & "\" & UcTranscodingProfile1.ofdtrimmer.SafeFileName) & UcTranscodingProfile1.strFileExtension + lbltrandingfilename.Text = UcTranscodingProfile1.ofdtrimmer.FileName + bwforexportclipbt.RunWorkerAsync() + End Sub + + Private Sub cmdstoptranscoding_Click(sender As Object, e As EventArgs) Handles cmdstoptranscoding.Click + On Error Resume Next + proc.Kill() + For Each p As Process In System.Diagnostics.Process.GetProcessesByName("ffmpeg") + p.Kill() + Next + For Each p As Process In System.Diagnostics.Process.GetProcessesByName("ffmbc-0.7.4-x64") + p.Kill() + Next + ibt = dgvtranscoder.Rows.Count + End Sub + + Private Sub bwforexportclipbt_DoWork(sender As Object, e As DoWorkEventArgs) Handles bwforexportclipbt.DoWork + Try + Control.CheckForIllegalCrossThreadCalls = False + + Dim startinfo As New System.Diagnostics.ProcessStartInfo + Dim sr As StreamReader + + UcTranscodingProfile1.gettranscodingcommand() + UcTranscodingProfile1.getstartinfofilename() + + Dim ffmpegOutput As String = "" + + startinfo.FileName = UcTranscodingProfile1.startinfofilename + startinfo.Arguments = UcTranscodingProfile1.cmdtranscodingcommand + + startinfo.UseShellExecute = False + startinfo.WindowStyle = ProcessWindowStyle.Hidden + startinfo.RedirectStandardError = True + startinfo.RedirectStandardOutput = True + startinfo.CreateNoWindow = True + + proc.StartInfo = startinfo + If UcTranscodingProfile1.rdoSDtoXDcamHD422Mxf.Checked Then + startinfo.FileName = "cmd.exe" + startinfo.Arguments = " /K c:\casparcg\mydata\ffmpeg\ffmpeg.exe -y -i " & UcTranscodingProfile1.ofdtrimmer.FileName & " -vcodec mpeg2video -acodec pcm_s24le -vf scale=1440:1080,pad=1920:1080:240:0,setfield=tff -pix_fmt yuv422p -alternate_scan 1 -g 12 -bf 2 -b:v 50000k -minrate 50000k -maxrate 50000k -aspect 16:9 -ac 1 -map 0:0 -map 0:1 -map 0:1 -map 0:1 -map 0:1 -map 0:1 -map 0:1 -map 0:1 -map 0:1 -timecode 00:02:00:00 -metadata creation_time=now -color_primaries bt709 -color_trc 1 -colorspace 1 -f mxf pipe:1 | c:\casparcg\mydata\ffmbc\ffmbc-0.7.4-x64.exe -i - -threads 4 -tff -target xdcamhd422 -f mxf -y -an " & UcTranscodingProfile1.osdcutfilename.FileName & " -acodec pcm_s24le -ar 48000 -newaudio -acodec pcm_s24le -ar 48000 -newaudio -acodec pcm_s24le -ar 48000 -newaudio -acodec pcm_s24le -ar 48000 -newaudio -acodec pcm_s24le -ar 48000 -newaudio -acodec pcm_s24le -ar 48000 -newaudio -acodec pcm_s24le -ar 48000 -newaudio -acodec pcm_s24le -ar 48000 -newaudio -map_audio_channel 0:1:0:0:1:0 -map_audio_channel 0:1:0:0:2:0 -map_audio_channel 0:1:0:0:3:0 -map_audio_channel 0:1:0:0:4:0 -map_audio_channel 0:1:0:0:5:0 -map_audio_channel 0:1:0:0:6:0 -map_audio_channel 0:1:0:0:7:0 -map_audio_channel 0:1:0:0:8:0 " + proc.Start() + sr = proc.StandardError + lblexportclipinfobt.Text = "" + Do + ffmpegOutput = sr.ReadLine + txtffmpegoutput.Text = ffmpegOutput + Loop Until ffmpegOutput.Contains("muxing overhead") + proc.Kill() + Else + proc.Start() + sr = proc.StandardError + lblexportclipinfobt.Text = "" + Do + ffmpegOutput = sr.ReadLine + txtffmpegoutput.Text = ffmpegOutput + Loop Until proc.HasExited And ffmpegOutput = Nothing Or ffmpegOutput = "" + End If + + Catch ex As Exception + proc.Kill() + End Try + End Sub + + Private Sub bwforexportclipbt_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bwforexportclipbt.RunWorkerCompleted + On Error Resume Next + If bwforexportclipbt.CancellationPending = False Then + ibt = ibt + 1 + If dgvtranscoder.Rows.Count > ibt Then + Threading.Thread.Sleep(4000) + 'proc.Kill() + starttranscoding() + End If + End If + End Sub + + Function mstohms(ms As Integer) As String + Return (TimeSpan.FromMilliseconds(ms)).ToString("hh\:mm\:ss") + End Function + Private Function FToHMSF(ByVal frame As Integer) As String ' + On Error Resume Next + Dim ts As TimeSpan + Dim totHrs As Integer + Dim H, M, S, F, HMSF As String + ts = TimeSpan.FromMilliseconds(frame * 1000 / fps) + + totHrs = Math.Truncate(ts.TotalHours) 'strip away decimal points + H = Format(totHrs, "0#") & ":" + M = Format(ts.Minutes, "0#") & ":" + S = Format(ts.Seconds, "0#") & ":" + F = Format((ts.Milliseconds) * fps / 1000, "0#") + + HMSF = H & M & S & F + ' + Return HMSF + + End Function + + Sub deleteclip(filename As String) + On Error Resume Next + Dim ideleted As Integer + For ideleted = 0 To dtmediabase.Rows.Count - 1 + If dtmediabase.Rows(ideleted).Item(0).ToString Like (Replace(filename, "\", "/") & "*") Then Exit For + Next + dtmediabase.Rows.RemoveAt(ideleted) + For ideleted = dtmediabase.Rows.Count - 1 To 0 Step -1 + If dtmediabase.Rows(ideleted).Item(0).ToString Like (filename & "/" & "*") Then dtmediabase.Rows.RemoveAt(ideleted) + Next + searchclip() + End Sub + Private Function CheckFileHasCopied(FilePath As String) As Boolean + Try + If File.Exists(FilePath) Then + Using File.OpenRead(FilePath) + Return True + End Using + Else + Return False + End If + Catch generatedExceptionName As Exception + Threading.Thread.Sleep(100) + Return CheckFileHasCopied(FilePath) + End Try + End Function + + Sub incrimentalclip(filename As String) + On Error Resume Next + Do Until CheckFileHasCopied(mediafolder & filename) = True + Loop + If chkmediabackup.Checked Then + File.Copy(mediafolder & filename, txtmediabackupfplder.Text & filename) + End If + + If chktranscode.Checked Then + UcTranscodingProfile1.getextensionfortranscoding() + UcTranscodingProfile1.ofdtrimmer.FileName = mediafolder & filename + UcTranscodingProfile1.osdcutfilename.FileName = (txttranscodedirectory.Text & Path.GetFileNameWithoutExtension(filename)) & UcTranscodingProfile1.strFileExtension + UcTranscodingProfile1.gettranscodingcommand() + Process.Start("CMD", UcTranscodingProfile1.cmdtranscodingcommand) + End If + + + Dim f As New FileInfo(mediafolder & filename) + If (f.Attributes And FileAttributes.Hidden) <> 0 Then GoTo 50 + drmediabase = dtmediabase.NewRow() + Dim mediainfofile As MediaInfoDotNet.MediaFile = New MediaInfoDotNet.MediaFile(f.FullName) + drmediabase("Name") = Replace(filename, "\", "/") + drmediabase("Duration") = mstohms(mediainfofile.duration) + drmediabase("FPS") = (mediainfofile.Video(0).frameRate) + drmediabase("Size") = (f.Length \ 1024).ToString() & " KB" + drmediabase("Date") = f.CreationTime.[Date].ToString("dd/MM/yyyy") + drmediabase("Type") = f.Extension + dtmediabase.Rows.Add(drmediabase) +50: 'hidden file + searchclip() + End Sub + + Sub allclips() + + On Error Resume Next + + Dim ts1 As TimeSpan + Dim t1 As Date = Now + Dim mediainfofile As MediaInfoDotNet.MediaFile + + dtmediabase.Clear() + Dim s1 As [String]() + Dim aa As String = mediafolder + s1 = Directory.GetFiles(aa, "*.*", 1) + For i As Integer = 0 To s1.Length - 1 + If i = 0 Then + dtmediabase.Columns.Add("Name") + dtmediabase.Columns.Add("Duration") + dtmediabase.Columns.Add("FPS") + dtmediabase.Columns.Add("Size") + dtmediabase.Columns.Add("Date") + dtmediabase.Columns.Add("Type") + End If + Dim f As New FileInfo(s1(i)) + drmediabase = dtmediabase.NewRow() + If (f.Attributes And FileAttributes.Hidden) <> 0 Then GoTo 50 + + drmediabase("Name") = Replace(f.FullName.Substring(Len(aa)), "\", "/").ToString + + If chkwithduration.Checked Then + If System.IO.Path.GetExtension(f.FullName) = ".txt" Then + Using sr As StreamReader = New StreamReader(f.FullName) + Dim str As Array = Split(sr.ReadLine, Chr(2)) + drmediabase("Duration") = Mid(FToHMSF(str(2) - str(1)), 1, 8) + + Dim aaa As New MediaInfoLib.MediaInfo + aaa.Open(f.FullName) + drmediabase("FPS") = Mid(aaa.Get(StreamKind.Video, 0, "FrameRate"), 1, 2) + End Using + Else + Dim aaa As New MediaInfoLib.MediaInfo + aaa.Open(f.FullName) + drmediabase("Duration") = Mid(aaa.Get(StreamKind.Video, 0, "Duration/String3"), 1, 8) + drmediabase("FPS") = Mid(aaa.Get(StreamKind.Video, 0, "FrameRate"), 1, 2) + End If + End If + + + + drmediabase("Size") = (f.Length \ 1024).ToString() & " KB" + drmediabase("Date") = f.CreationTime.[Date].ToString("dd/MM/yyyy") + drmediabase("Type") = f.Extension + dtmediabase.Rows.Add(drmediabase) + +50: 'hidden file + pbsearchprogress.Maximum = s1.Length - 1 + pbsearchprogress.Value = i + Next + + End Sub + Sub addfilesytemwatcherforlocaldrive() + On Error Resume Next + + RemoveHandler fsw.Created, AddressOf filemodified + RemoveHandler fsw.Deleted, AddressOf filemodified + RemoveHandler fsw.Renamed, AddressOf filerenamed + + fsw.Path = mediafolder + fsw.EnableRaisingEvents = True + + ' AddHandler fsw.Changed, AddressOf filemodified + AddHandler fsw.Created, AddressOf filemodified + AddHandler fsw.Deleted, AddressOf filemodified + AddHandler fsw.Renamed, AddressOf filerenamed + End Sub + Sub addfilesytemwatcherforalias1() + On Error Resume Next + + RemoveHandler fswalias1.Created, AddressOf filemodifiedalias1 + RemoveHandler fswalias1.Deleted, AddressOf filemodifiedalias1 + RemoveHandler fswalias1.Renamed, AddressOf filerenamedalias1 + + fswalias1.Path = symlinkedfolder1 '"z:/casparcg/_media/" + fswalias1.EnableRaisingEvents = True + + ' AddHandler fsw.Changed, AddressOf filemodified + AddHandler fswalias1.Created, AddressOf filemodifiedalias1 + AddHandler fswalias1.Deleted, AddressOf filemodifiedalias1 + AddHandler fswalias1.Renamed, AddressOf filerenamedalias1 + End Sub + Sub addfilesytemwatcherforalias2() + On Error Resume Next + + RemoveHandler fswalias2.Created, AddressOf filemodifiedalias2 + RemoveHandler fswalias2.Deleted, AddressOf filemodifiedalias2 + RemoveHandler fswalias2.Renamed, AddressOf filerenamedalias2 + + fswalias2.Path = symlinkedfolder2 '"s:/casparcg/_media/" + fswalias2.EnableRaisingEvents = True + + ' AddHandler fsw.Changed, AddressOf filemodified + AddHandler fswalias2.Created, AddressOf filemodifiedalias2 + AddHandler fswalias2.Deleted, AddressOf filemodifiedalias2 + AddHandler fswalias2.Renamed, AddressOf filerenamedalias2 + End Sub + Sub filemodified(ByVal sender As Object, ByVal e As FileSystemEventArgs) + + On Error Resume Next + + Dim bb As String = "" + If e.ChangeType = IO.WatcherChangeTypes.Changed Then + bb = "changed" + End If + If e.ChangeType = IO.WatcherChangeTypes.Created Then + bb = "Created " + incrimentalclip(e.Name) + End If + If e.ChangeType = IO.WatcherChangeTypes.Deleted Then + bb = "Deleted" + deleteclip(e.Name) + End If + If e.ChangeType = IO.WatcherChangeTypes.Renamed Then + bb = "Renamed" + End If + eventnotification(e.Name & " " & bb) + + End Sub + Sub filemodifiedalias1(ByVal sender As Object, ByVal e As FileSystemEventArgs) + + On Error Resume Next + + Dim bb As String = "" + If e.ChangeType = IO.WatcherChangeTypes.Changed Then + bb = "changed" + End If + If e.ChangeType = IO.WatcherChangeTypes.Created Then + bb = "Created " + incrimentalclip(alias1 & "/" & e.Name) + End If + If e.ChangeType = IO.WatcherChangeTypes.Deleted Then + bb = "Deleted" + deleteclip(alias1 & "/" & e.Name) + End If + If e.ChangeType = IO.WatcherChangeTypes.Renamed Then + bb = "Renamed" + End If + + eventnotification(alias1 & "/" & e.Name & " " & bb) + End Sub + + Sub filemodifiedalias2(ByVal sender As Object, ByVal e As FileSystemEventArgs) + On Error Resume Next + Dim bb As String = "" + If e.ChangeType = IO.WatcherChangeTypes.Changed Then + bb = "changed" + End If + If e.ChangeType = IO.WatcherChangeTypes.Created Then + bb = "Created " + incrimentalclip(alias2 & "/" & e.Name) + End If + If e.ChangeType = IO.WatcherChangeTypes.Deleted Then + bb = "Deleted" + deleteclip(alias2 & "/" & e.Name) + End If + If e.ChangeType = IO.WatcherChangeTypes.Renamed Then + bb = "Renamed" + End If + eventnotification(alias2 & "/" & e.Name & " " & bb) + End Sub + + + Sub filerenamed(ByVal sender As Object, ByVal e As RenamedEventArgs) + On Error Resume Next + Dim bb As String = "" + + If e.ChangeType = IO.WatcherChangeTypes.Renamed Then + bb = e.OldName & " Renamed to " & e.Name + End If + eventnotification(bb) + + incrimentalclip(e.Name) + deleteclip(e.OldName) + + End Sub + Sub filerenamedalias1(ByVal sender As Object, ByVal e As RenamedEventArgs) + On Error Resume Next + Dim bb As String = "" + If e.ChangeType = IO.WatcherChangeTypes.Renamed Then + bb = alias1 & "/" & e.OldName & " Renamed to " & alias1 & "/" & e.Name + End If + eventnotification(bb) + + incrimentalclip(alias1 & "/" & e.Name) + deleteclip(alias1 & "/" & e.OldName) + End Sub + Sub filerenamedalias2(ByVal sender As Object, ByVal e As RenamedEventArgs) + On Error Resume Next + Dim bb As String = "" + If e.ChangeType = IO.WatcherChangeTypes.Renamed Then + bb = alias2 & "/" & e.OldName & " Renamed to " & alias2 & "/" & e.Name + End If + eventnotification(bb) + + incrimentalclip(alias2 & "/" & e.Name) + deleteclip(alias2 & "/" & e.OldName) + End Sub + Sub eventnotification(ByVal eventnameofdatatable As String) + On Error Resume Next + + txtfilechanged.Text = eventnameofdatatable & vbNewLine & txtfilechanged.Text + End Sub + Sub searchclip() + On Error Resume Next + Dim strcurrentrowcell0value As String = dgvclips.CurrentRow.Cells(0).Value + Dim dt1 As New DataTable() + dt1.Clear() + dt1.Columns.Add("Name") + dt1.Columns.Add("Duration") + dt1.Columns.Add("FPS") + dt1.Columns.Add("Size") + dt1.Columns.Add("Date") + dt1.Columns.Add("Type") + + For Each row1 As DataRow In dtmediabase.Rows + If UCase(row1.Item(0)) Like "*" & UCase(txtsearchclip.Text) & "*" Then + dt1.ImportRow(row1) + End If + + + Next + dgvclips.DataSource = dt1 + dgvclips.Columns("Name").Width = 370 + dgvclips.Columns("Duration").Width = 50 + dgvclips.Columns("FPS").Width = 40 + dgvclips.Columns("Size").Width = 70 + dgvclips.Columns("Date").Width = 80 + dgvclips.Columns("Type").Width = 40 + dgvclips.Sort(dgvclips.Columns("Name"), System.ComponentModel.ListSortDirection.Ascending) + + For iii = 0 To dgvclips.RowCount - 1 + If dgvclips.Rows(iii).Cells(0).Value = strcurrentrowcell0value Then + dgvclips.CurrentCell = dgvclips.Rows(iii).Cells(0) + Exit For + End If + Next + + labelclips.Text = "Total " & dt1.Rows.Count + End Sub + + + + Private Sub cmdsearchdatatable_Click(sender As Object, e As EventArgs) Handles cmdsearchdatatable.Click + On Error Resume Next + searchclip() + End Sub + + Private Sub cmdcreatdatatable_Click(sender As Object, e As EventArgs) Handles cmdcreatdatatable.Click + On Error Resume Next + mediafolder = txtmainmediafolder.Text + symlinkedfolder1 = txtsymlinked1mediafolder.Text + symlinkedfolder2 = txtsymlinked2mediafolder.Text + + alias1 = txtsymlinkedalis1.Text + alias2 = txtsymlinkedalis2.Text + + addfilesytemwatcherforlocaldrive() + If chksymlinkedalis1.Checked Then addfilesytemwatcherforalias1() + If chksymlinkedalis2.Checked Then addfilesytemwatcherforalias2() + + + allclips() + Threading.Thread.Sleep(1000) + searchclip() + End Sub + + Private Sub txtsearchclip_TextChanged(sender As Object, e As EventArgs) Handles txtsearchclip.TextChanged + On Error Resume Next + searchclip() + End Sub + + + Private Sub cmdSelectDirectoryForAutoCopy_Click(sender As Object, e As EventArgs) Handles cmdSelectDirectoryForAutoCopy.Click + On Error Resume Next + txtmediabackupfplder.Text = folderbrowsing(txtmediabackupfplder.Text) + End Sub + + Function folderbrowsing(originaldirectory As String) + On Error Resume Next + Dim fbd As New FolderBrowserDialog + If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then + Return fbd.SelectedPath & "\" + Else + Return originaldirectory + End If + End Function + + Private Sub cmdSelectDirectoryForAutoTranscode_Click(sender As Object, e As EventArgs) Handles cmdSelectDirectoryForAutoTranscode.Click + On Error Resume Next + txttranscodedirectory.Text = folderbrowsing(txttranscodedirectory.Text) + End Sub + + Private Sub cmdSelectDirectoryformainMediawatchfolder_Click(sender As Object, e As EventArgs) Handles cmdSelectDirectoryformainMediawatchfolder.Click + On Error Resume Next + txtmainmediafolder.Text = folderbrowsing(txtmainmediafolder.Text) + End Sub + + Private Sub cmdSelectDirectoryforSymlinked1Mediawatchfolder_Click(sender As Object, e As EventArgs) Handles cmdSelectDirectoryforSymlinked1Mediawatchfolder.Click + On Error Resume Next + txtsymlinked1mediafolder.Text = folderbrowsing(txtsymlinked1mediafolder.Text) + End Sub + + Private Sub cmdSelectDirectoryforSymlinked2Mediawatchfolder_Click(sender As Object, e As EventArgs) Handles cmdSelectDirectoryforSymlinked2Mediawatchfolder.Click + On Error Resume Next + txtsymlinked2mediafolder.Text = folderbrowsing(txtsymlinked2mediafolder.Text) + End Sub + + Private Sub cmdstopwatching_Click(sender As Object, e As EventArgs) Handles cmdstopwatching.Click + On Error Resume Next + fsw.EnableRaisingEvents = False + fswalias1.EnableRaisingEvents = False + fswalias2.EnableRaisingEvents = False + + RemoveHandler fsw.Created, AddressOf filemodified + RemoveHandler fsw.Deleted, AddressOf filemodified + RemoveHandler fsw.Renamed, AddressOf filerenamed + End Sub + + Private Sub cmdSelectAll_Click(sender As Object, e As EventArgs) Handles cmdSelectAll.Click + + On Error Resume Next + For ii = 0 To dgvtranscoder.RowCount - 1 + dgvtranscoder.Rows(ii).Cells(1).Value = 1 + Next + + + End Sub + + Private Sub cmdDeSelectAll_Click(sender As Object, e As EventArgs) Handles cmdDeSelectAll.Click + On Error Resume Next + For ii = 0 To dgvtranscoder.RowCount - 1 + dgvtranscoder.Rows(ii).Cells(1).Value = 0 + Next + End Sub + + Private Sub dgvtranscoder_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvtranscoder.CellContentClick + On Error Resume Next + lblplayinvlc.Text = dgvtranscoder.CurrentRow.Cells(0).Value + End Sub + + + + Private Sub lstSourceDirectory_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstSourceDirectory.SelectedIndexChanged + On Error Resume Next + lblplayinvlc.Text = lstSourceDirectory.SelectedItem.ToString + End Sub + + Private Sub lstDestinationDirectory_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstDestinationDirectory.SelectedIndexChanged + On Error Resume Next + lblplayinvlc.Text = lstDestinationDirectory.SelectedItem.ToString + End Sub + + Private Sub lstDestinationDirectoryProxy_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstDestinationDirectoryProxy.SelectedIndexChanged + On Error Resume Next + lblplayinvlc.Text = lstDestinationDirectoryProxy.SelectedItem.ToString + End Sub + + Private Sub dgvclips_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvclips.CellContentClick + On Error Resume Next + lblplayinvlc.Text = txtmainmediafolder.Text & dgvclips.CurrentRow.Cells(0).Value + End Sub + + + Private Sub cmdplayinvlc_Click(sender As Object, e As EventArgs) Handles cmdplayinvlc.Click + On Error Resume Next + Dim PlayerPath As String = "" + If System.IO.File.Exists("C:\Program Files\VideoLAN\VLC\vlc.exe") Then + PlayerPath = "C:\Program Files\VideoLAN\VLC\vlc.exe" + Else + PlayerPath = "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe" + End If + + + Dim process As Process = New Process + process.StartInfo.FileName = PlayerPath + process.StartInfo.Verb = "open" + process.StartInfo.Arguments = """" & Replace(lblplayinvlc.Text, "/", "\") & """" + + process.Start() + + + + End Sub + + Private Sub cmdshowfileinformation_Click(sender As Object, e As EventArgs) Handles cmdshowfileinformation.Click + + On Error Resume Next + Dim fileinformation As New MediaInfoLib.MediaInfo + + fileinformation.Open(lblplayinvlc.Text) + + frmfileinformation.dgvfileinformation.Rows.Clear() + Dim aa As Array = Split(fileinformation.Inform, vbNewLine) + For iii = 0 To aa.Length + frmfileinformation.dgvfileinformation.Rows.Add() + frmfileinformation.dgvfileinformation.Rows(iii).Cells(0).Value = Split(aa(iii), ":")(0) + frmfileinformation.dgvfileinformation.Rows(iii).Cells(1).Value = aa(iii).ToString.Substring(frmfileinformation.dgvfileinformation.Rows(iii).Cells(0).Value.ToString.Length + 1) + Next + frmfileinformation.StartPosition = FormStartPosition.CenterScreen + frmfileinformation.Show() + End Sub + + Private Sub cmdsequencetovideomam_Click(sender As Object, e As EventArgs) Handles cmdsequencetovideomam.Click + On Error Resume Next + Dim sequencetovideomamcommand As String = "/K " & txtsequencetovideomam.Text + Process.Start("CMD", sequencetovideomamcommand) + End Sub + Private Sub cmdvideotosequencemam_Click(sender As Object, e As EventArgs) Handles cmdvideotosequencemam.Click + On Error Resume Next + + Dim codecname As String + If cmbcodecforalpha.Text = "tga" Then + codecname = "targa" + Else + codecname = "png" + End If + Dim videotosequenceomam As String = "/K c:/casparcg/mydata/ffmpeg/ffmpeg.exe -y -i " & """" & txtsourcefileforalphavideo.Text & """" & " -vcodec " & codecname & " " & """" & txtdestinationfolderforalphaimage.Text & txtfilenameforimage.Text & """" & "%5d." & cmbcodecforalpha.Text + Process.Start("CMD", videotosequenceomam) + + End Sub + + Private Sub cmdaddingaudiotracktovideomam_Click(sender As Object, e As EventArgs) Handles cmdaddingaudiotracktovideomam.Click + On Error Resume Next + Dim addingaudiotracktovideomam As String = "/K " & txtaddingaudiotracktovideomam.Text + Process.Start("CMD", addingaudiotracktovideomam) + End Sub + Private Sub cmdaudioinsinglestream_Click(sender As Object, e As EventArgs) Handles cmdaudioinsinglestream.Click + + On Error Resume Next + Dim cmdaudioinsinglestream As String = "/K " & txtaudioinsinglestream.Text + Process.Start("CMD", cmdaudioinsinglestream) + + End Sub + + Sub getnumberofprocessors() + On Error Resume Next + Dim rk As RegistryKey = Registry.LocalMachine + Dim subKeys As Array = rk.OpenSubKey("HARDWARE").OpenSubKey("DESCRIPTION").OpenSubKey("System").OpenSubKey("CentralProcessor").GetSubKeyNames() + UcTranscodingProfile1.lblnumberofprocessors.Text = "Total number of cores:" + subKeys.Length.ToString() + UcTranscodingProfile1.txtnumberofprocessors.Text = subKeys.Length - 2 + threadstousefortranscoding = " -threads " & UcTranscodingProfile1.txtnumberofprocessors.Text + End Sub + Private Sub txtnumberofprocessors_TextChanged(sender As Object, e As EventArgs) + On Error Resume Next + threadstousefortranscoding = " -threads " & UcTranscodingProfile1.txtnumberofprocessors.Text + End Sub + + Private Sub cmdDeSelectAllfromcurrentposition_Click(sender As Object, e As EventArgs) Handles cmdDeSelectAllfromcurrentposition.Click + + On Error Resume Next + With dgvtranscoder + For ii = .CurrentRow.Index To .RowCount - 1 + .Rows(ii).Cells(1).Value = 1 + Next + End With + End Sub + + Private Sub cmdvideoforimage_Click(sender As Object, e As EventArgs) Handles cmdvideoforimage.Click + On Error Resume Next + Dim aa As New OpenFileDialog + If aa.ShowDialog = Windows.Forms.DialogResult.OK Then + txtsourcefileforalphavideo.Text = aa.FileName + End If + + End Sub + Private Sub cmddestinationfolderforalphaimage_Click(sender As Object, e As EventArgs) Handles cmddestinationfolderforalphaimage.Click + On Error Resume Next + txtdestinationfolderforalphaimage.Text = folderbrowsing(txtdestinationfolderforalphaimage.Text) + End Sub + + Private Sub cmdvideosd_Click(sender As Object, e As EventArgs) Handles cmdvideosd.Click + On Error Resume Next + Dim aa As New OpenFileDialog + If aa.ShowDialog = Windows.Forms.DialogResult.OK Then + txtsourcefileforalphavideosd.Text = aa.FileName + End If + End Sub + + Private Sub cmddestinationfolderforhd_Click(sender As Object, e As EventArgs) Handles cmddestinationfolderforhd.Click + On Error Resume Next + txtdestinationfolderforhd.Text = folderbrowsing(txtdestinationfolderforhd.Text) + End Sub + + Private Sub cmdvideohd_Click(sender As Object, e As EventArgs) Handles cmdvideohd.Click + On Error Resume Next + Dim codecname As String + Dim sdtohdscaling As String = "/K c:/casparcg/mydata/ffmpeg/ffmpeg.exe -y -i " & """" & txtsourcefileforalphavideosd.Text & """" & " -vcodec qtrle -vf scale=1920:1080 " & """" & txtdestinationfolderforhd.Text & txtfilenameforhd.Text & """" & ".mov" + Process.Start("CMD", sdtohdscaling) + End Sub + + + Private Sub cmdFfmbcTargetTranscoding_Click(sender As Object, e As EventArgs) Handles cmdFfmbcTargetTranscoding.Click + On Error Resume Next + Dim cmdFfmbcTargetTranscoding As String = "/K " & txtFfmbcTargetTranscoding.Text + Process.Start("CMD", cmdFfmbcTargetTranscoding) + End Sub + + Private Sub cmdsearchdatagridbt_Click(sender As Object, e As EventArgs) Handles cmdsearchdatagridbt.Click, txtsearchdatagridbt.TextChanged + On Error Resume Next + filldatagridbt() + With dgvtranscoder + For ii = .Rows.Count - 1 To 0 Step -1 + If UCase(.Rows(ii).Cells(0).Value) Like UCase("*" & txtsearchdatagridbt.Text & "*") Then + Else + .Rows.RemoveAt(ii) + End If + Next + End With + + End Sub + + Sub searchdatagridbt() + With dgvtranscoder + For ii = .Rows.Count - 1 To 0 Step -1 + If UCase(.Rows(ii).Cells(0).Value) Like UCase("*" & txtsearchdatagridbt.Text & "*") Then + Else + .Rows.RemoveAt(ii) + End If + Next + End With + End Sub + 'ebu core metadata + Private Sub cmdreadmetadata_Click(sender As Object, e As EventArgs) Handles cmdreadmetadata.Click + On Error Resume Next + Dim ofdmetadata As New OpenFileDialog + If ofdmetadata.ShowDialog = Windows.Forms.DialogResult.OK Then + dgvmetadata.Rows.Clear() + dgvmetadata.Rows.Add(1) + File.Delete("c:/casparcg/mydata/ebumxf/v2.xml") + Process.Start("CMD", "/K " & "c:/casparcg/mydata/ebumxf/mxf2ebu --ebu-core " & "c:/casparcg/mydata/ebumxf/v2.xml " & """" & ofdmetadata.FileName & """") + lblfilenamemetadata.Text = ofdmetadata.FileName + Threading.Thread.Sleep(1000) + + Dim webAddress As String = "c:/casparcg/mydata/ebumxf/v2.xml" + Process.Start(webAddress) + + End If + End Sub + + Private Sub cmdwritemetadata_Click(sender As Object, e As EventArgs) Handles cmdwritemetadata.Click + On Error Resume Next + + Process.Start("CMD", "/K " & "c:/casparcg/mydata/ebumxf/ebu2mxf.exe --remove " & """" & lblfilenamemetadata.Text & """") + Using sw As StreamWriter = New StreamWriter("c:/casparcg/mydata/ebumxf/v1.xml") + + sw.WriteLine("") + + For imetadata = 0 To dgvmetadata.Rows.Count - 1 + If dgvmetadata.Rows(imetadata).Cells(0).Value <> "" Then + sw.WriteLine("<" & Replace(dgvmetadata.Rows(imetadata).Cells(0).Value, " ", "_") & ">" & dgvmetadata.Rows(imetadata).Cells(1).Value & "") + End If + Next + + sw.WriteLine("") + sw.WriteLine("") + End Using + + Threading.Thread.Sleep(1000) + Process.Start("CMD", "/K " & "c:/casparcg/mydata/ebumxf/ebu2mxf.exe --dark --ebu-core " & "c:/casparcg/mydata/ebumxf/v1.xml " & """" & lblfilenamemetadata.Text & """") + End Sub + + Private Sub cmdclearfieldmetadata_Click(sender As Object, e As EventArgs) Handles cmdclearfieldmetadata.Click + On Error Resume Next + dgvmetadata.Rows.Clear() + End Sub + + Private Sub cmdanalyse_Click(sender As Object, e As EventArgs) Handles cmdanalyse.Click + + Process.Start("CMD", "/K " & "c:/casparcg/mydata/ebumxf/mxfanalyzer.exe " & cmbanalyzeroption.Text & " " & """" & lblfilenamemetadata.Text & """") + + Threading.Thread.Sleep(1000) + + Dim webAddress As String = "c:/casparcg/mydata/ebumxf/report.xml" + Process.Start(webAddress) + End Sub + + Private Sub cmdebu2mxf_Click(sender As Object, e As EventArgs) Handles cmdebu2mxf.Click + + Process.Start("CMD", "/K " & "c:/casparcg/mydata/ebumxf/ebu2mxf.exe " & cmbebu2mxfoption.Text & " " & """" & lblfilenamemetadata.Text & """") + + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + On Error Resume Next + Dim cmd As String = "/K " & txtffplay.Text + Process.Start("CMD", cmd) + + End Sub + + Private Sub cmdFFMpeg_Click(sender As Object, e As EventArgs) Handles cmdFFMpeg.Click + On Error Resume Next + Dim cmd As String = "/K " & txtFFMpeg.Text + Process.Start("CMD", cmd) + End Sub + + Private Sub cmdhide_Click(sender As Object, e As EventArgs) + Hide() + End Sub + + Private Sub Cmdrecord_Click(sender As Object, e As EventArgs) Handles cmdrecord.Click + On Error Resume Next + Dim cmd As String = "/K " & txtrecord.Text + Process.Start("CMD", cmd) + End Sub + + Private Sub CmdOutputToDecklink_Click(sender As Object, e As EventArgs) Handles cmdOutputToDecklink.Click + On Error Resume Next + Dim cmd As String = "/K " & txtOutputToDecklink.Text + Process.Start("CMD", cmd) + End Sub + + Sub defaultmetadata() + On Error Resume Next + Using sr As StreamReader = New StreamReader("c:/casparcg/mydata/ebumxf/metadata.txt") + dgvmetadata.Rows.Clear() + 'Loop through and add list to the file. + Dim g As Integer = 0 + Dim li As String + Do Until sr.EndOfStream = True + li = sr.ReadLine() + dgvmetadata.Rows.Add() + dgvmetadata.Rows(g).Cells(0).Value = li + dgvmetadata.Rows(g).Cells(1).Value = "Vimlesh " & li + g = g + 1 + Loop + End Using + + End Sub + + Private Sub cmddefaultmetadata_Click(sender As Object, e As EventArgs) Handles cmddefaultmetadata.Click + defaultmetadata() + End Sub + + Private Sub txtDestinationDirectoryProxy_TextChanged(sender As Object, e As EventArgs) Handles txtDestinationDirectoryProxy.TextChanged + + End Sub +End Class \ No newline at end of file diff --git a/CasparMediaPlayback/ucMetadata.Designer.vb b/CasparMediaPlayback/ucMetadata.Designer.vb new file mode 100644 index 0000000..1a66bc4 --- /dev/null +++ b/CasparMediaPlayback/ucMetadata.Designer.vb @@ -0,0 +1,174 @@ + _ +Partial Class ucMetadata + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.gbmetadata = New System.Windows.Forms.GroupBox() + Me.lblfilenamemetadata = New System.Windows.Forms.Label() + Me.Label238 = New System.Windows.Forms.Label() + Me.cmdclearfieldmetadata = New System.Windows.Forms.Button() + Me.cmdwritemetadata = New System.Windows.Forms.Button() + Me.cmdreadmetadata = New System.Windows.Forms.Button() + Me.dgvmetadata = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn13 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn14 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.gbmetadata.SuspendLayout() + CType(Me.dgvmetadata, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbmetadata + ' + Me.gbmetadata.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.gbmetadata.Controls.Add(Me.lblfilenamemetadata) + Me.gbmetadata.Controls.Add(Me.Label238) + Me.gbmetadata.Controls.Add(Me.cmdclearfieldmetadata) + Me.gbmetadata.Controls.Add(Me.cmdwritemetadata) + Me.gbmetadata.Controls.Add(Me.cmdreadmetadata) + Me.gbmetadata.Controls.Add(Me.dgvmetadata) + Me.gbmetadata.Location = New System.Drawing.Point(4, 4) + Me.gbmetadata.Name = "gbmetadata" + Me.gbmetadata.Size = New System.Drawing.Size(660, 605) + Me.gbmetadata.TabIndex = 1172 + Me.gbmetadata.TabStop = False + Me.gbmetadata.Text = " " + ' + 'lblfilenamemetadata + ' + Me.lblfilenamemetadata.AutoSize = True + Me.lblfilenamemetadata.Location = New System.Drawing.Point(251, 18) + Me.lblfilenamemetadata.Name = "lblfilenamemetadata" + Me.lblfilenamemetadata.Size = New System.Drawing.Size(10, 13) + Me.lblfilenamemetadata.TabIndex = 5 + Me.lblfilenamemetadata.Text = "." + ' + 'Label238 + ' + Me.Label238.AutoSize = True + Me.Label238.Location = New System.Drawing.Point(191, 18) + Me.Label238.Name = "Label238" + Me.Label238.Size = New System.Drawing.Size(54, 13) + Me.Label238.TabIndex = 4 + Me.Label238.Text = "File Name" + ' + 'cmdclearfieldmetadata + ' + Me.cmdclearfieldmetadata.Location = New System.Drawing.Point(122, 12) + Me.cmdclearfieldmetadata.Name = "cmdclearfieldmetadata" + Me.cmdclearfieldmetadata.Size = New System.Drawing.Size(65, 23) + Me.cmdclearfieldmetadata.TabIndex = 3 + Me.cmdclearfieldmetadata.Text = "Clear Field" + Me.cmdclearfieldmetadata.UseVisualStyleBackColor = True + ' + 'cmdwritemetadata + ' + Me.cmdwritemetadata.Location = New System.Drawing.Point(62, 13) + Me.cmdwritemetadata.Name = "cmdwritemetadata" + Me.cmdwritemetadata.Size = New System.Drawing.Size(58, 23) + Me.cmdwritemetadata.TabIndex = 2 + Me.cmdwritemetadata.Text = "Write" + Me.cmdwritemetadata.UseVisualStyleBackColor = True + ' + 'cmdreadmetadata + ' + Me.cmdreadmetadata.Location = New System.Drawing.Point(6, 12) + Me.cmdreadmetadata.Name = "cmdreadmetadata" + Me.cmdreadmetadata.Size = New System.Drawing.Size(54, 23) + Me.cmdreadmetadata.TabIndex = 1 + Me.cmdreadmetadata.Text = "Read" + Me.cmdreadmetadata.UseVisualStyleBackColor = True + ' + 'dgvmetadata + ' + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvmetadata.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvmetadata.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvmetadata.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn13, Me.DataGridViewTextBoxColumn14}) + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvmetadata.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvmetadata.Location = New System.Drawing.Point(6, 42) + Me.dgvmetadata.Name = "dgvmetadata" + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvmetadata.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvmetadata.Size = New System.Drawing.Size(648, 557) + Me.dgvmetadata.TabIndex = 0 + ' + 'DataGridViewTextBoxColumn13 + ' + Me.DataGridViewTextBoxColumn13.HeaderText = "Field" + Me.DataGridViewTextBoxColumn13.Name = "DataGridViewTextBoxColumn13" + Me.DataGridViewTextBoxColumn13.Width = 150 + ' + 'DataGridViewTextBoxColumn14 + ' + Me.DataGridViewTextBoxColumn14.HeaderText = "Value" + Me.DataGridViewTextBoxColumn14.Name = "DataGridViewTextBoxColumn14" + Me.DataGridViewTextBoxColumn14.Width = 400 + ' + 'ucMetadata + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(668, 614) + Me.Controls.Add(Me.gbmetadata) + Me.HideOnClose = True + Me.Name = "ucMetadata" + Me.Text = "Metadata" + Me.gbmetadata.ResumeLayout(False) + Me.gbmetadata.PerformLayout() + CType(Me.dgvmetadata, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbmetadata As System.Windows.Forms.GroupBox + Friend WithEvents lblfilenamemetadata As System.Windows.Forms.Label + Friend WithEvents Label238 As System.Windows.Forms.Label + Friend WithEvents cmdclearfieldmetadata As System.Windows.Forms.Button + Friend WithEvents cmdwritemetadata As System.Windows.Forms.Button + Friend WithEvents cmdreadmetadata As System.Windows.Forms.Button + Friend WithEvents dgvmetadata As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn13 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn14 As System.Windows.Forms.DataGridViewTextBoxColumn + +End Class diff --git a/CasparMediaPlayback/ucMetadata.resx b/CasparMediaPlayback/ucMetadata.resx new file mode 100644 index 0000000..b3c4590 --- /dev/null +++ b/CasparMediaPlayback/ucMetadata.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucMetadata.vb b/CasparMediaPlayback/ucMetadata.vb new file mode 100644 index 0000000..542310b --- /dev/null +++ b/CasparMediaPlayback/ucMetadata.vb @@ -0,0 +1,60 @@ +Imports System.IO +Public Class ucMetadata + Private Sub cmdreadmetadata_Click(sender As Object, e As EventArgs) Handles cmdreadmetadata.Click + On Error Resume Next + Dim ofdmetadata As New OpenFileDialog + If ofdmetadata.ShowDialog = Windows.Forms.DialogResult.OK Then + dgvmetadata.Rows.Clear() + dgvmetadata.Rows.Add(1) + Process.Start("CMD", "/K " & "c:/casparcg/mydata/ffmpeg/ffmpeg.exe -y -i " & """" & ofdmetadata.FileName & """" & " -f ffmetadata " & " c:/casparcg/mydata/ffmpeg/readmetadata.txt") + lblfilenamemetadata.Text = ofdmetadata.FileName + Threading.Thread.Sleep(5000) + Dim sr As StreamReader = New StreamReader("c:/casparcg/mydata/ffmpeg/readmetadata.txt") + Dim g As Integer = dgvmetadata.CurrentRow.Index + Dim li As String + Do Until sr.EndOfStream = True + li = sr.ReadLine() + dgvmetadata.Rows.Insert(dgvmetadata.CurrentRow.Index, 1) + Dim xyz As Array = Split(li, "=") + dgvmetadata.Rows(g).Cells(0).Value = xyz(0) + dgvmetadata.Rows(g).Cells(1).Value = xyz(1) + g = g + 1 + Loop + sr.Close() + End If + End Sub + + Private Sub cmdwritemetadata_Click(sender As Object, e As EventArgs) Handles cmdwritemetadata.Click + On Error Resume Next + Dim osdmetadata As New SaveFileDialog + Using sw As StreamWriter = New StreamWriter("c:/casparcg/mydata/ffmpeg/metadataforwrite.txt") + If dgvmetadata.Rows.Count = 0 Then + sw.Write("") + Else + 'Loop through and add list to the file. + Dim f As Integer = 0 + Do Until f = dgvmetadata.Rows.Count - 2 + If f = 0 Then + sw.WriteLine(dgvmetadata.Rows(f).Cells(0).Value) + Else + sw.WriteLine(dgvmetadata.Rows(f).Cells(0).Value & "=" & dgvmetadata.Rows(f).Cells(1).Value) + End If + f = f + 1 + Loop + End If + sw.Close() + End Using + + If osdmetadata.ShowDialog = Windows.Forms.DialogResult.OK Then + Process.Start("CMD", "/K " & "c:/casparcg/mydata/ffmpeg/ffmpeg.exe -y -i " & """" & lblfilenamemetadata.Text & """" & " -i " & "c:/casparcg/mydata/ffmpeg/metadataforwrite.txt" & " -map_metadata 1 -c copy -id3v2_version 3 " & """" & osdmetadata.FileName & """") + End If + End Sub + + Private Sub cmdclearfieldmetadata_Click(sender As Object, e As EventArgs) Handles cmdclearfieldmetadata.Click + On Error Resume Next + dgvmetadata.Rows.Clear() + End Sub + Private Sub cmdhidegbmetadata_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub +End Class diff --git a/CasparMediaPlayback/ucMixer.Designer.vb b/CasparMediaPlayback/ucMixer.Designer.vb new file mode 100644 index 0000000..cee6986 --- /dev/null +++ b/CasparMediaPlayback/ucMixer.Designer.vb @@ -0,0 +1,1667 @@ + _ +Partial Class ucMixer + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.gbMixer = New System.Windows.Forms.GroupBox() + Me.gbScalefromCenter = New System.Windows.Forms.GroupBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.nscalexfromCenter = New System.Windows.Forms.NumericUpDown() + Me.nscaleyfromCenter = New System.Windows.Forms.NumericUpDown() + Me.cmdResetScalefromCenter = New System.Windows.Forms.Button() + Me.nmixermastervolume = New System.Windows.Forms.NumericUpDown() + Me.gbcropmixer = New System.Windows.Forms.GroupBox() + Me.Label235 = New System.Windows.Forms.Label() + Me.Label234 = New System.Windows.Forms.Label() + Me.ncropbrx = New System.Windows.Forms.NumericUpDown() + Me.ncropbry = New System.Windows.Forms.NumericUpDown() + Me.Label189 = New System.Windows.Forms.Label() + Me.Label193 = New System.Windows.Forms.Label() + Me.Label194 = New System.Windows.Forms.Label() + Me.ncroptlx = New System.Windows.Forms.NumericUpDown() + Me.ncroptly = New System.Windows.Forms.NumericUpDown() + Me.Label199 = New System.Windows.Forms.Label() + Me.Label200 = New System.Windows.Forms.Label() + Me.Label198 = New System.Windows.Forms.Label() + Me.cmdresetcropmixer = New System.Windows.Forms.Button() + Me.chkmipmapmixer = New System.Windows.Forms.CheckBox() + Me.gbperspectivemixer = New System.Windows.Forms.GroupBox() + Me.Label186 = New System.Windows.Forms.Label() + Me.nperspectiveblx = New System.Windows.Forms.NumericUpDown() + Me.nperspectivebly = New System.Windows.Forms.NumericUpDown() + Me.Label187 = New System.Windows.Forms.Label() + Me.Label188 = New System.Windows.Forms.Label() + Me.Label183 = New System.Windows.Forms.Label() + Me.nperspectivebrx = New System.Windows.Forms.NumericUpDown() + Me.nperspectivebry = New System.Windows.Forms.NumericUpDown() + Me.Label184 = New System.Windows.Forms.Label() + Me.Label185 = New System.Windows.Forms.Label() + Me.Label180 = New System.Windows.Forms.Label() + Me.nperspectivetrx = New System.Windows.Forms.NumericUpDown() + Me.nperspectivetry = New System.Windows.Forms.NumericUpDown() + Me.Label181 = New System.Windows.Forms.Label() + Me.Label182 = New System.Windows.Forms.Label() + Me.Label177 = New System.Windows.Forms.Label() + Me.nperspectivetlx = New System.Windows.Forms.NumericUpDown() + Me.nperspectivetly = New System.Windows.Forms.NumericUpDown() + Me.Label111 = New System.Windows.Forms.Label() + Me.Label112 = New System.Windows.Forms.Label() + Me.cmdresetperspectivemixer = New System.Windows.Forms.Button() + Me.cmdgetstatusofmixer = New System.Windows.Forms.Button() + Me.gbrotationmixer = New System.Windows.Forms.GroupBox() + Me.Label176 = New System.Windows.Forms.Label() + Me.nrotationz = New System.Windows.Forms.NumericUpDown() + Me.cmdresetrotationmixer = New System.Windows.Forms.Button() + Me.gbanchormixer = New System.Windows.Forms.GroupBox() + Me.nanchorx = New System.Windows.Forms.NumericUpDown() + Me.nanchory = New System.Windows.Forms.NumericUpDown() + Me.Label178 = New System.Windows.Forms.Label() + Me.Label179 = New System.Windows.Forms.Label() + Me.cmdresetanchormixer = New System.Windows.Forms.Button() + Me.cmdmixersettingopen = New System.Windows.Forms.Button() + Me.cmdmixersettingsave = New System.Windows.Forms.Button() + Me.Label168 = New System.Windows.Forms.Label() + Me.cmdrefreshmediaforfilter = New System.Windows.Forms.Button() + Me.cmbmediaforfilter = New System.Windows.Forms.ComboBox() + Me.cmdplayfilter = New System.Windows.Forms.Button() + Me.cmbfilter = New System.Windows.Forms.ComboBox() + Me.cmdmastervolume = New System.Windows.Forms.Button() + Me.Label108 = New System.Windows.Forms.Label() + Me.cmdmixerclearformixemodule = New System.Windows.Forms.Button() + Me.cmbvideolayerformixer = New System.Windows.Forms.ComboBox() + Me.Label99 = New System.Windows.Forms.Label() + Me.Label49 = New System.Windows.Forms.Label() + Me.cmbblend = New System.Windows.Forms.ComboBox() + Me.gbclip = New System.Windows.Forms.GroupBox() + Me.nclipx = New System.Windows.Forms.NumericUpDown() + Me.nclipy = New System.Windows.Forms.NumericUpDown() + Me.Label35 = New System.Windows.Forms.Label() + Me.Label42 = New System.Windows.Forms.Label() + Me.nclipxsclae = New System.Windows.Forms.NumericUpDown() + Me.nclipyscale = New System.Windows.Forms.NumericUpDown() + Me.Label47 = New System.Windows.Forms.Label() + Me.Label48 = New System.Windows.Forms.Label() + Me.cmdclipreset = New System.Windows.Forms.Button() + Me.gblevels = New System.Windows.Forms.GroupBox() + Me.Label40 = New System.Windows.Forms.Label() + Me.ngamma = New System.Windows.Forms.NumericUpDown() + Me.Label39 = New System.Windows.Forms.Label() + Me.Label38 = New System.Windows.Forms.Label() + Me.nmax_output = New System.Windows.Forms.NumericUpDown() + Me.nmin_output = New System.Windows.Forms.NumericUpDown() + Me.nmax_input = New System.Windows.Forms.NumericUpDown() + Me.Label37 = New System.Windows.Forms.Label() + Me.nmin_input = New System.Windows.Forms.NumericUpDown() + Me.Label36 = New System.Windows.Forms.Label() + Me.cmdLevels = New System.Windows.Forms.Button() + Me.gbfill = New System.Windows.Forms.GroupBox() + Me.nfillx = New System.Windows.Forms.NumericUpDown() + Me.nfilly = New System.Windows.Forms.NumericUpDown() + Me.Label43 = New System.Windows.Forms.Label() + Me.Label44 = New System.Windows.Forms.Label() + Me.nfillwidth = New System.Windows.Forms.NumericUpDown() + Me.nfillheight = New System.Windows.Forms.NumericUpDown() + Me.Label45 = New System.Windows.Forms.Label() + Me.Label46 = New System.Windows.Forms.Label() + Me.cmdfill = New System.Windows.Forms.Button() + Me.cmdmixerclear = New System.Windows.Forms.Button() + Me.gbothers = New System.Windows.Forms.GroupBox() + Me.nVolume = New System.Windows.Forms.NumericUpDown() + Me.cmdVolume = New System.Windows.Forms.Button() + Me.Label41 = New System.Windows.Forms.Label() + Me.nContrast = New System.Windows.Forms.NumericUpDown() + Me.nSaturation = New System.Windows.Forms.NumericUpDown() + Me.Label32 = New System.Windows.Forms.Label() + Me.nbrightness = New System.Windows.Forms.NumericUpDown() + Me.nopacity = New System.Windows.Forms.NumericUpDown() + Me.cmdContrast = New System.Windows.Forms.Button() + Me.Label34 = New System.Windows.Forms.Label() + Me.cmdSaturation = New System.Windows.Forms.Button() + Me.Label33 = New System.Windows.Forms.Label() + Me.cmdbrightness = New System.Windows.Forms.Button() + Me.cmdopacity = New System.Windows.Forms.Button() + Me.Label31 = New System.Windows.Forms.Label() + Me.gbMixer.SuspendLayout() + Me.gbScalefromCenter.SuspendLayout() + CType(Me.nscalexfromCenter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nscaleyfromCenter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nmixermastervolume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbcropmixer.SuspendLayout() + CType(Me.ncropbrx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ncropbry, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ncroptlx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ncroptly, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbperspectivemixer.SuspendLayout() + CType(Me.nperspectiveblx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivebly, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivebrx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivebry, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivetrx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivetry, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivetlx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivetly, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbrotationmixer.SuspendLayout() + CType(Me.nrotationz, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbanchormixer.SuspendLayout() + CType(Me.nanchorx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nanchory, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbclip.SuspendLayout() + CType(Me.nclipx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nclipy, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nclipxsclae, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nclipyscale, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gblevels.SuspendLayout() + CType(Me.ngamma, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nmax_output, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nmin_output, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nmax_input, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nmin_input, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbfill.SuspendLayout() + CType(Me.nfillx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nfilly, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nfillwidth, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nfillheight, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbothers.SuspendLayout() + CType(Me.nVolume, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nContrast, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nSaturation, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nbrightness, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nopacity, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbMixer + ' + Me.gbMixer.BackColor = System.Drawing.Color.Wheat + Me.gbMixer.Controls.Add(Me.gbScalefromCenter) + Me.gbMixer.Controls.Add(Me.nmixermastervolume) + Me.gbMixer.Controls.Add(Me.gbcropmixer) + Me.gbMixer.Controls.Add(Me.chkmipmapmixer) + Me.gbMixer.Controls.Add(Me.gbperspectivemixer) + Me.gbMixer.Controls.Add(Me.cmdgetstatusofmixer) + Me.gbMixer.Controls.Add(Me.gbrotationmixer) + Me.gbMixer.Controls.Add(Me.gbanchormixer) + Me.gbMixer.Controls.Add(Me.cmdmixersettingopen) + Me.gbMixer.Controls.Add(Me.cmdmixersettingsave) + Me.gbMixer.Controls.Add(Me.Label168) + Me.gbMixer.Controls.Add(Me.cmdrefreshmediaforfilter) + Me.gbMixer.Controls.Add(Me.cmbmediaforfilter) + Me.gbMixer.Controls.Add(Me.cmdplayfilter) + Me.gbMixer.Controls.Add(Me.cmbfilter) + Me.gbMixer.Controls.Add(Me.cmdmastervolume) + Me.gbMixer.Controls.Add(Me.Label108) + Me.gbMixer.Controls.Add(Me.cmdmixerclearformixemodule) + Me.gbMixer.Controls.Add(Me.cmbvideolayerformixer) + Me.gbMixer.Controls.Add(Me.Label99) + Me.gbMixer.Controls.Add(Me.Label49) + Me.gbMixer.Controls.Add(Me.cmbblend) + Me.gbMixer.Controls.Add(Me.gbclip) + Me.gbMixer.Controls.Add(Me.gblevels) + Me.gbMixer.Controls.Add(Me.gbfill) + Me.gbMixer.Controls.Add(Me.cmdmixerclear) + Me.gbMixer.Controls.Add(Me.gbothers) + Me.gbMixer.Location = New System.Drawing.Point(2, 2) + Me.gbMixer.Name = "gbMixer" + Me.gbMixer.Size = New System.Drawing.Size(660, 605) + Me.gbMixer.TabIndex = 423 + Me.gbMixer.TabStop = False + Me.gbMixer.Text = " " + ' + 'gbScalefromCenter + ' + Me.gbScalefromCenter.BackColor = System.Drawing.Color.NavajoWhite + Me.gbScalefromCenter.Controls.Add(Me.Label1) + Me.gbScalefromCenter.Controls.Add(Me.Label2) + Me.gbScalefromCenter.Controls.Add(Me.nscalexfromCenter) + Me.gbScalefromCenter.Controls.Add(Me.nscaleyfromCenter) + Me.gbScalefromCenter.Controls.Add(Me.cmdResetScalefromCenter) + Me.gbScalefromCenter.Location = New System.Drawing.Point(364, 82) + Me.gbScalefromCenter.Name = "gbScalefromCenter" + Me.gbScalefromCenter.Size = New System.Drawing.Size(127, 66) + Me.gbScalefromCenter.TabIndex = 419 + Me.gbScalefromCenter.TabStop = False + Me.gbScalefromCenter.Text = "Scale From Center" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(6, 44) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(44, 13) + Me.Label1.TabIndex = 415 + Me.Label1.Text = "Y Scale" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(6, 24) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(44, 13) + Me.Label2.TabIndex = 414 + Me.Label2.Text = "X Scale" + ' + 'nscalexfromCenter + ' + Me.nscalexfromCenter.DecimalPlaces = 2 + Me.nscalexfromCenter.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nscalexfromCenter.Location = New System.Drawing.Point(51, 19) + Me.nscalexfromCenter.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nscalexfromCenter.Name = "nscalexfromCenter" + Me.nscalexfromCenter.Size = New System.Drawing.Size(46, 20) + Me.nscalexfromCenter.TabIndex = 413 + Me.nscalexfromCenter.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'nscaleyfromCenter + ' + Me.nscaleyfromCenter.DecimalPlaces = 2 + Me.nscaleyfromCenter.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nscaleyfromCenter.Location = New System.Drawing.Point(51, 43) + Me.nscaleyfromCenter.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nscaleyfromCenter.Name = "nscaleyfromCenter" + Me.nscaleyfromCenter.Size = New System.Drawing.Size(46, 20) + Me.nscaleyfromCenter.TabIndex = 412 + Me.nscaleyfromCenter.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'cmdResetScalefromCenter + ' + Me.cmdResetScalefromCenter.Location = New System.Drawing.Point(100, 19) + Me.cmdResetScalefromCenter.Name = "cmdResetScalefromCenter" + Me.cmdResetScalefromCenter.Size = New System.Drawing.Size(21, 44) + Me.cmdResetScalefromCenter.TabIndex = 407 + Me.cmdResetScalefromCenter.Text = "R" + Me.cmdResetScalefromCenter.UseVisualStyleBackColor = True + ' + 'nmixermastervolume + ' + Me.nmixermastervolume.DecimalPlaces = 1 + Me.nmixermastervolume.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nmixermastervolume.Location = New System.Drawing.Point(570, 377) + Me.nmixermastervolume.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) + Me.nmixermastervolume.Name = "nmixermastervolume" + Me.nmixermastervolume.Size = New System.Drawing.Size(38, 20) + Me.nmixermastervolume.TabIndex = 713 + Me.nmixermastervolume.Value = New Decimal(New Integer() {10, 0, 0, 65536}) + ' + 'gbcropmixer + ' + Me.gbcropmixer.BackColor = System.Drawing.Color.Moccasin + Me.gbcropmixer.Controls.Add(Me.Label235) + Me.gbcropmixer.Controls.Add(Me.Label234) + Me.gbcropmixer.Controls.Add(Me.ncropbrx) + Me.gbcropmixer.Controls.Add(Me.ncropbry) + Me.gbcropmixer.Controls.Add(Me.Label189) + Me.gbcropmixer.Controls.Add(Me.Label193) + Me.gbcropmixer.Controls.Add(Me.Label194) + Me.gbcropmixer.Controls.Add(Me.ncroptlx) + Me.gbcropmixer.Controls.Add(Me.ncroptly) + Me.gbcropmixer.Controls.Add(Me.Label199) + Me.gbcropmixer.Controls.Add(Me.Label200) + Me.gbcropmixer.Controls.Add(Me.Label198) + Me.gbcropmixer.Controls.Add(Me.cmdresetcropmixer) + Me.gbcropmixer.Location = New System.Drawing.Point(360, 195) + Me.gbcropmixer.Name = "gbcropmixer" + Me.gbcropmixer.Size = New System.Drawing.Size(176, 97) + Me.gbcropmixer.TabIndex = 434 + Me.gbcropmixer.TabStop = False + Me.gbcropmixer.Text = "Crop" + ' + 'Label235 + ' + Me.Label235.AutoSize = True + Me.Label235.Location = New System.Drawing.Point(96, 77) + Me.Label235.Name = "Label235" + Me.Label235.Size = New System.Drawing.Size(40, 13) + Me.Label235.TabIndex = 713 + Me.Label235.Text = "Bottom" + ' + 'Label234 + ' + Me.Label234.AutoSize = True + Me.Label234.Location = New System.Drawing.Point(31, 76) + Me.Label234.Name = "Label234" + Me.Label234.Size = New System.Drawing.Size(26, 13) + Me.Label234.TabIndex = 714 + Me.Label234.Text = "Top" + ' + 'ncropbrx + ' + Me.ncropbrx.DecimalPlaces = 2 + Me.ncropbrx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.ncropbrx.Location = New System.Drawing.Point(95, 31) + Me.ncropbrx.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.ncropbrx.Name = "ncropbrx" + Me.ncropbrx.Size = New System.Drawing.Size(46, 20) + Me.ncropbrx.TabIndex = 427 + Me.ncropbrx.Value = Global.caspar_media_playback.My.MySettings.Default.ncropbrx + ' + 'ncropbry + ' + Me.ncropbry.DecimalPlaces = 2 + Me.ncropbry.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.ncropbry.Location = New System.Drawing.Point(95, 55) + Me.ncropbry.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.ncropbry.Name = "ncropbry" + Me.ncropbry.Size = New System.Drawing.Size(46, 20) + Me.ncropbry.TabIndex = 426 + Me.ncropbry.Value = Global.caspar_media_playback.My.MySettings.Default.ncropbry + ' + 'Label189 + ' + Me.Label189.AutoSize = True + Me.Label189.Location = New System.Drawing.Point(96, 15) + Me.Label189.Name = "Label189" + Me.Label189.Size = New System.Drawing.Size(35, 13) + Me.Label189.TabIndex = 433 + Me.Label189.Text = " Right" + ' + 'Label193 + ' + Me.Label193.AutoSize = True + Me.Label193.Location = New System.Drawing.Point(79, 58) + Me.Label193.Name = "Label193" + Me.Label193.Size = New System.Drawing.Size(14, 13) + Me.Label193.TabIndex = 425 + Me.Label193.Text = "Y" + ' + 'Label194 + ' + Me.Label194.AutoSize = True + Me.Label194.Location = New System.Drawing.Point(77, 37) + Me.Label194.Name = "Label194" + Me.Label194.Size = New System.Drawing.Size(14, 13) + Me.Label194.TabIndex = 424 + Me.Label194.Text = "X" + ' + 'ncroptlx + ' + Me.ncroptlx.DecimalPlaces = 2 + Me.ncroptlx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.ncroptlx.Location = New System.Drawing.Point(25, 28) + Me.ncroptlx.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.ncroptlx.Name = "ncroptlx" + Me.ncroptlx.Size = New System.Drawing.Size(46, 20) + Me.ncroptlx.TabIndex = 417 + Me.ncroptlx.Value = Global.caspar_media_playback.My.MySettings.Default.ncroptlx + ' + 'ncroptly + ' + Me.ncroptly.DecimalPlaces = 2 + Me.ncroptly.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.ncroptly.Location = New System.Drawing.Point(25, 52) + Me.ncroptly.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.ncroptly.Name = "ncroptly" + Me.ncroptly.Size = New System.Drawing.Size(46, 20) + Me.ncroptly.TabIndex = 416 + Me.ncroptly.Value = Global.caspar_media_playback.My.MySettings.Default.ncroptly + ' + 'Label199 + ' + Me.Label199.AutoSize = True + Me.Label199.Location = New System.Drawing.Point(11, 55) + Me.Label199.Name = "Label199" + Me.Label199.Size = New System.Drawing.Size(14, 13) + Me.Label199.TabIndex = 410 + Me.Label199.Text = "Y" + ' + 'Label200 + ' + Me.Label200.AutoSize = True + Me.Label200.Location = New System.Drawing.Point(9, 34) + Me.Label200.Name = "Label200" + Me.Label200.Size = New System.Drawing.Size(14, 13) + Me.Label200.TabIndex = 408 + Me.Label200.Text = "X" + ' + 'Label198 + ' + Me.Label198.AutoSize = True + Me.Label198.Location = New System.Drawing.Point(29, 13) + Me.Label198.Name = "Label198" + Me.Label198.Size = New System.Drawing.Size(25, 13) + Me.Label198.TabIndex = 418 + Me.Label198.Text = "Left" + ' + 'cmdresetcropmixer + ' + Me.cmdresetcropmixer.Location = New System.Drawing.Point(148, 20) + Me.cmdresetcropmixer.Name = "cmdresetcropmixer" + Me.cmdresetcropmixer.Size = New System.Drawing.Size(21, 69) + Me.cmdresetcropmixer.TabIndex = 407 + Me.cmdresetcropmixer.Text = "R" + Me.cmdresetcropmixer.UseVisualStyleBackColor = True + ' + 'chkmipmapmixer + ' + Me.chkmipmapmixer.AutoSize = True + Me.chkmipmapmixer.Location = New System.Drawing.Point(493, 412) + Me.chkmipmapmixer.Name = "chkmipmapmixer" + Me.chkmipmapmixer.Size = New System.Drawing.Size(64, 17) + Me.chkmipmapmixer.TabIndex = 712 + Me.chkmipmapmixer.Text = "MipMap" + Me.chkmipmapmixer.UseVisualStyleBackColor = True + ' + 'gbperspectivemixer + ' + Me.gbperspectivemixer.BackColor = System.Drawing.Color.AntiqueWhite + Me.gbperspectivemixer.Controls.Add(Me.Label186) + Me.gbperspectivemixer.Controls.Add(Me.nperspectiveblx) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivebly) + Me.gbperspectivemixer.Controls.Add(Me.Label187) + Me.gbperspectivemixer.Controls.Add(Me.Label188) + Me.gbperspectivemixer.Controls.Add(Me.Label183) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivebrx) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivebry) + Me.gbperspectivemixer.Controls.Add(Me.Label184) + Me.gbperspectivemixer.Controls.Add(Me.Label185) + Me.gbperspectivemixer.Controls.Add(Me.Label180) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivetrx) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivetry) + Me.gbperspectivemixer.Controls.Add(Me.Label181) + Me.gbperspectivemixer.Controls.Add(Me.Label182) + Me.gbperspectivemixer.Controls.Add(Me.Label177) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivetlx) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivetly) + Me.gbperspectivemixer.Controls.Add(Me.Label111) + Me.gbperspectivemixer.Controls.Add(Me.Label112) + Me.gbperspectivemixer.Controls.Add(Me.cmdresetperspectivemixer) + Me.gbperspectivemixer.Location = New System.Drawing.Point(11, 448) + Me.gbperspectivemixer.Name = "gbperspectivemixer" + Me.gbperspectivemixer.Size = New System.Drawing.Size(309, 97) + Me.gbperspectivemixer.TabIndex = 420 + Me.gbperspectivemixer.TabStop = False + Me.gbperspectivemixer.Text = "Perspective" + ' + 'Label186 + ' + Me.Label186.AutoSize = True + Me.Label186.Location = New System.Drawing.Point(139, 19) + Me.Label186.Name = "Label186" + Me.Label186.Size = New System.Drawing.Size(68, 13) + Me.Label186.TabIndex = 433 + Me.Label186.Text = "Bottom Right" + ' + 'nperspectiveblx + ' + Me.nperspectiveblx.DecimalPlaces = 2 + Me.nperspectiveblx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectiveblx.Location = New System.Drawing.Point(218, 42) + Me.nperspectiveblx.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectiveblx.Name = "nperspectiveblx" + Me.nperspectiveblx.Size = New System.Drawing.Size(46, 20) + Me.nperspectiveblx.TabIndex = 432 + Me.nperspectiveblx.Value = Global.caspar_media_playback.My.MySettings.Default.nperspectiveblx + ' + 'nperspectivebly + ' + Me.nperspectivebly.DecimalPlaces = 2 + Me.nperspectivebly.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivebly.Location = New System.Drawing.Point(218, 66) + Me.nperspectivebly.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivebly.Name = "nperspectivebly" + Me.nperspectivebly.Size = New System.Drawing.Size(46, 20) + Me.nperspectivebly.TabIndex = 431 + Me.nperspectivebly.Value = Global.caspar_media_playback.My.MySettings.Default.nperspectivebly + ' + 'Label187 + ' + Me.Label187.AutoSize = True + Me.Label187.Location = New System.Drawing.Point(202, 69) + Me.Label187.Name = "Label187" + Me.Label187.Size = New System.Drawing.Size(14, 13) + Me.Label187.TabIndex = 430 + Me.Label187.Text = "Y" + ' + 'Label188 + ' + Me.Label188.AutoSize = True + Me.Label188.Location = New System.Drawing.Point(200, 48) + Me.Label188.Name = "Label188" + Me.Label188.Size = New System.Drawing.Size(14, 13) + Me.Label188.TabIndex = 429 + Me.Label188.Text = "X" + ' + 'Label183 + ' + Me.Label183.AutoSize = True + Me.Label183.Location = New System.Drawing.Point(214, 20) + Me.Label183.Name = "Label183" + Me.Label183.Size = New System.Drawing.Size(61, 13) + Me.Label183.TabIndex = 428 + Me.Label183.Text = "Bottom Left" + ' + 'nperspectivebrx + ' + Me.nperspectivebrx.DecimalPlaces = 2 + Me.nperspectivebrx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivebrx.Location = New System.Drawing.Point(150, 41) + Me.nperspectivebrx.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivebrx.Name = "nperspectivebrx" + Me.nperspectivebrx.Size = New System.Drawing.Size(46, 20) + Me.nperspectivebrx.TabIndex = 427 + Me.nperspectivebrx.Value = Global.caspar_media_playback.My.MySettings.Default.nperspectivebrx + ' + 'nperspectivebry + ' + Me.nperspectivebry.DecimalPlaces = 2 + Me.nperspectivebry.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivebry.Location = New System.Drawing.Point(150, 65) + Me.nperspectivebry.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivebry.Name = "nperspectivebry" + Me.nperspectivebry.Size = New System.Drawing.Size(46, 20) + Me.nperspectivebry.TabIndex = 426 + Me.nperspectivebry.Value = Global.caspar_media_playback.My.MySettings.Default.nperspectivebry + ' + 'Label184 + ' + Me.Label184.AutoSize = True + Me.Label184.Location = New System.Drawing.Point(134, 68) + Me.Label184.Name = "Label184" + Me.Label184.Size = New System.Drawing.Size(14, 13) + Me.Label184.TabIndex = 425 + Me.Label184.Text = "Y" + ' + 'Label185 + ' + Me.Label185.AutoSize = True + Me.Label185.Location = New System.Drawing.Point(132, 47) + Me.Label185.Name = "Label185" + Me.Label185.Size = New System.Drawing.Size(14, 13) + Me.Label185.TabIndex = 424 + Me.Label185.Text = "X" + ' + 'Label180 + ' + Me.Label180.AutoSize = True + Me.Label180.Location = New System.Drawing.Point(72, 20) + Me.Label180.Name = "Label180" + Me.Label180.Size = New System.Drawing.Size(54, 13) + Me.Label180.TabIndex = 423 + Me.Label180.Text = "Top Right" + ' + 'nperspectivetrx + ' + Me.nperspectivetrx.DecimalPlaces = 2 + Me.nperspectivetrx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivetrx.Location = New System.Drawing.Point(84, 40) + Me.nperspectivetrx.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivetrx.Name = "nperspectivetrx" + Me.nperspectivetrx.Size = New System.Drawing.Size(46, 20) + Me.nperspectivetrx.TabIndex = 422 + Me.nperspectivetrx.Value = Global.caspar_media_playback.My.MySettings.Default.nperspectivetrx + ' + 'nperspectivetry + ' + Me.nperspectivetry.DecimalPlaces = 2 + Me.nperspectivetry.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivetry.Location = New System.Drawing.Point(84, 64) + Me.nperspectivetry.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivetry.Name = "nperspectivetry" + Me.nperspectivetry.Size = New System.Drawing.Size(46, 20) + Me.nperspectivetry.TabIndex = 421 + Me.nperspectivetry.Value = Global.caspar_media_playback.My.MySettings.Default.nperspectivetry + ' + 'Label181 + ' + Me.Label181.AutoSize = True + Me.Label181.Location = New System.Drawing.Point(68, 67) + Me.Label181.Name = "Label181" + Me.Label181.Size = New System.Drawing.Size(14, 13) + Me.Label181.TabIndex = 420 + Me.Label181.Text = "Y" + ' + 'Label182 + ' + Me.Label182.AutoSize = True + Me.Label182.Location = New System.Drawing.Point(65, 43) + Me.Label182.Name = "Label182" + Me.Label182.Size = New System.Drawing.Size(14, 13) + Me.Label182.TabIndex = 419 + Me.Label182.Text = "X" + ' + 'Label177 + ' + Me.Label177.AutoSize = True + Me.Label177.Location = New System.Drawing.Point(7, 18) + Me.Label177.Name = "Label177" + Me.Label177.Size = New System.Drawing.Size(47, 13) + Me.Label177.TabIndex = 418 + Me.Label177.Text = "Top Left" + ' + 'nperspectivetlx + ' + Me.nperspectivetlx.DecimalPlaces = 2 + Me.nperspectivetlx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivetlx.Location = New System.Drawing.Point(19, 38) + Me.nperspectivetlx.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivetlx.Name = "nperspectivetlx" + Me.nperspectivetlx.Size = New System.Drawing.Size(46, 20) + Me.nperspectivetlx.TabIndex = 417 + Me.nperspectivetlx.Value = Global.caspar_media_playback.My.MySettings.Default.nperspectivetlx + ' + 'nperspectivetly + ' + Me.nperspectivetly.DecimalPlaces = 2 + Me.nperspectivetly.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivetly.Location = New System.Drawing.Point(19, 62) + Me.nperspectivetly.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivetly.Name = "nperspectivetly" + Me.nperspectivetly.Size = New System.Drawing.Size(46, 20) + Me.nperspectivetly.TabIndex = 416 + Me.nperspectivetly.Value = Global.caspar_media_playback.My.MySettings.Default.nperspectivetly + ' + 'Label111 + ' + Me.Label111.AutoSize = True + Me.Label111.Location = New System.Drawing.Point(5, 65) + Me.Label111.Name = "Label111" + Me.Label111.Size = New System.Drawing.Size(14, 13) + Me.Label111.TabIndex = 410 + Me.Label111.Text = "Y" + ' + 'Label112 + ' + Me.Label112.AutoSize = True + Me.Label112.Location = New System.Drawing.Point(3, 44) + Me.Label112.Name = "Label112" + Me.Label112.Size = New System.Drawing.Size(14, 13) + Me.Label112.TabIndex = 408 + Me.Label112.Text = "X" + ' + 'cmdresetperspectivemixer + ' + Me.cmdresetperspectivemixer.Location = New System.Drawing.Point(281, 22) + Me.cmdresetperspectivemixer.Name = "cmdresetperspectivemixer" + Me.cmdresetperspectivemixer.Size = New System.Drawing.Size(21, 69) + Me.cmdresetperspectivemixer.TabIndex = 407 + Me.cmdresetperspectivemixer.Text = "R" + Me.cmdresetperspectivemixer.UseVisualStyleBackColor = True + ' + 'cmdgetstatusofmixer + ' + Me.cmdgetstatusofmixer.Location = New System.Drawing.Point(513, 10) + Me.cmdgetstatusofmixer.Name = "cmdgetstatusofmixer" + Me.cmdgetstatusofmixer.Size = New System.Drawing.Size(74, 27) + Me.cmdgetstatusofmixer.TabIndex = 711 + Me.cmdgetstatusofmixer.Text = "Get Status" + Me.cmdgetstatusofmixer.UseVisualStyleBackColor = True + ' + 'gbrotationmixer + ' + Me.gbrotationmixer.BackColor = System.Drawing.Color.Moccasin + Me.gbrotationmixer.Controls.Add(Me.Label176) + Me.gbrotationmixer.Controls.Add(Me.nrotationz) + Me.gbrotationmixer.Controls.Add(Me.cmdresetrotationmixer) + Me.gbrotationmixer.Location = New System.Drawing.Point(216, 360) + Me.gbrotationmixer.Name = "gbrotationmixer" + Me.gbrotationmixer.Size = New System.Drawing.Size(131, 69) + Me.gbrotationmixer.TabIndex = 420 + Me.gbrotationmixer.TabStop = False + Me.gbrotationmixer.Text = "Rotation" + ' + 'Label176 + ' + Me.Label176.AutoSize = True + Me.Label176.Location = New System.Drawing.Point(14, 19) + Me.Label176.Name = "Label176" + Me.Label176.Size = New System.Drawing.Size(14, 13) + Me.Label176.TabIndex = 418 + Me.Label176.Text = "Z" + ' + 'nrotationz + ' + Me.nrotationz.DecimalPlaces = 2 + Me.nrotationz.Location = New System.Drawing.Point(32, 15) + Me.nrotationz.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) + Me.nrotationz.Minimum = New Decimal(New Integer() {360, 0, 0, -2147483648}) + Me.nrotationz.Name = "nrotationz" + Me.nrotationz.Size = New System.Drawing.Size(64, 20) + Me.nrotationz.TabIndex = 413 + Me.nrotationz.Value = Global.caspar_media_playback.My.MySettings.Default.nrotationz + ' + 'cmdresetrotationmixer + ' + Me.cmdresetrotationmixer.Location = New System.Drawing.Point(101, 15) + Me.cmdresetrotationmixer.Name = "cmdresetrotationmixer" + Me.cmdresetrotationmixer.Size = New System.Drawing.Size(21, 20) + Me.cmdresetrotationmixer.TabIndex = 407 + Me.cmdresetrotationmixer.Text = "R" + Me.cmdresetrotationmixer.UseVisualStyleBackColor = True + ' + 'gbanchormixer + ' + Me.gbanchormixer.BackColor = System.Drawing.Color.Bisque + Me.gbanchormixer.Controls.Add(Me.nanchorx) + Me.gbanchormixer.Controls.Add(Me.nanchory) + Me.gbanchormixer.Controls.Add(Me.Label178) + Me.gbanchormixer.Controls.Add(Me.Label179) + Me.gbanchormixer.Controls.Add(Me.cmdresetanchormixer) + Me.gbanchormixer.Location = New System.Drawing.Point(14, 360) + Me.gbanchormixer.Name = "gbanchormixer" + Me.gbanchormixer.Size = New System.Drawing.Size(149, 69) + Me.gbanchormixer.TabIndex = 419 + Me.gbanchormixer.TabStop = False + Me.gbanchormixer.Text = "Anchor" + ' + 'nanchorx + ' + Me.nanchorx.DecimalPlaces = 2 + Me.nanchorx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nanchorx.Location = New System.Drawing.Point(63, 17) + Me.nanchorx.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nanchorx.Minimum = New Decimal(New Integer() {1, 0, 0, -2147483648}) + Me.nanchorx.Name = "nanchorx" + Me.nanchorx.Size = New System.Drawing.Size(46, 20) + Me.nanchorx.TabIndex = 417 + Me.nanchorx.Value = Global.caspar_media_playback.My.MySettings.Default.nanchorx + ' + 'nanchory + ' + Me.nanchory.DecimalPlaces = 2 + Me.nanchory.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nanchory.Location = New System.Drawing.Point(63, 41) + Me.nanchory.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nanchory.Minimum = New Decimal(New Integer() {1, 0, 0, -2147483648}) + Me.nanchory.Name = "nanchory" + Me.nanchory.Size = New System.Drawing.Size(46, 20) + Me.nanchory.TabIndex = 416 + Me.nanchory.Value = Global.caspar_media_playback.My.MySettings.Default.nanchory + ' + 'Label178 + ' + Me.Label178.AutoSize = True + Me.Label178.Location = New System.Drawing.Point(47, 44) + Me.Label178.Name = "Label178" + Me.Label178.Size = New System.Drawing.Size(14, 13) + Me.Label178.TabIndex = 410 + Me.Label178.Text = "Y" + ' + 'Label179 + ' + Me.Label179.AutoSize = True + Me.Label179.Location = New System.Drawing.Point(45, 23) + Me.Label179.Name = "Label179" + Me.Label179.Size = New System.Drawing.Size(14, 13) + Me.Label179.TabIndex = 408 + Me.Label179.Text = "X" + ' + 'cmdresetanchormixer + ' + Me.cmdresetanchormixer.Location = New System.Drawing.Point(112, 15) + Me.cmdresetanchormixer.Name = "cmdresetanchormixer" + Me.cmdresetanchormixer.Size = New System.Drawing.Size(21, 45) + Me.cmdresetanchormixer.TabIndex = 407 + Me.cmdresetanchormixer.Text = "R" + Me.cmdresetanchormixer.UseVisualStyleBackColor = True + ' + 'cmdmixersettingopen + ' + Me.cmdmixersettingopen.Location = New System.Drawing.Point(595, 232) + Me.cmdmixersettingopen.Name = "cmdmixersettingopen" + Me.cmdmixersettingopen.Size = New System.Drawing.Size(54, 40) + Me.cmdmixersettingopen.TabIndex = 484 + Me.cmdmixersettingopen.Text = "Open Setting" + Me.cmdmixersettingopen.UseVisualStyleBackColor = True + ' + 'cmdmixersettingsave + ' + Me.cmdmixersettingsave.Location = New System.Drawing.Point(595, 187) + Me.cmdmixersettingsave.Name = "cmdmixersettingsave" + Me.cmdmixersettingsave.Size = New System.Drawing.Size(54, 39) + Me.cmdmixersettingsave.TabIndex = 483 + Me.cmdmixersettingsave.Text = "Save Setting" + Me.cmdmixersettingsave.UseVisualStyleBackColor = True + ' + 'Label168 + ' + Me.Label168.AutoSize = True + Me.Label168.Location = New System.Drawing.Point(248, 571) + Me.Label168.Name = "Label168" + Me.Label168.Size = New System.Drawing.Size(34, 13) + Me.Label168.TabIndex = 482 + Me.Label168.Text = "Filters" + ' + 'cmdrefreshmediaforfilter + ' + Me.cmdrefreshmediaforfilter.Location = New System.Drawing.Point(21, 566) + Me.cmdrefreshmediaforfilter.Name = "cmdrefreshmediaforfilter" + Me.cmdrefreshmediaforfilter.Size = New System.Drawing.Size(87, 23) + Me.cmdrefreshmediaforfilter.TabIndex = 481 + Me.cmdrefreshmediaforfilter.Text = "Refresh Media" + Me.cmdrefreshmediaforfilter.UseVisualStyleBackColor = True + ' + 'cmbmediaforfilter + ' + Me.cmbmediaforfilter.FormattingEnabled = True + Me.cmbmediaforfilter.Location = New System.Drawing.Point(115, 568) + Me.cmbmediaforfilter.Name = "cmbmediaforfilter" + Me.cmbmediaforfilter.Size = New System.Drawing.Size(132, 21) + Me.cmbmediaforfilter.TabIndex = 480 + Me.cmbmediaforfilter.Text = "AMB" + ' + 'cmdplayfilter + ' + Me.cmdplayfilter.Location = New System.Drawing.Point(469, 566) + Me.cmdplayfilter.Name = "cmdplayfilter" + Me.cmdplayfilter.Size = New System.Drawing.Size(48, 23) + Me.cmdplayfilter.TabIndex = 479 + Me.cmdplayfilter.Text = "Play" + Me.cmdplayfilter.UseVisualStyleBackColor = True + ' + 'cmbfilter + ' + Me.cmbfilter.FormattingEnabled = True + Me.cmbfilter.Items.AddRange(New Object() {"deinterlace,crop=1916:1076,pad=1920:1080:2:2,perspective=-1600:-800:1920:0:-1600:" & + "1880:1920:1080", "rotate=.1", "boxblur=luma_radius=50:luma_power=1", "hqdn3D=250:250:250:250", "unsharp=13:13:2.5:13:13:2.5", "hflip", "vflip", "delogo=x=1100:y=850:w=600:h=50:band=400", "scale=1820x1000,pad=1920:1080:50:50:red", "", "", "", "", "", "", "", "", "", "", ""}) + Me.cmbfilter.Location = New System.Drawing.Point(286, 569) + Me.cmbfilter.Name = "cmbfilter" + Me.cmbfilter.Size = New System.Drawing.Size(176, 21) + Me.cmbfilter.TabIndex = 478 + Me.cmbfilter.Text = "rotate=.1" + ' + 'cmdmastervolume + ' + Me.cmdmastervolume.Location = New System.Drawing.Point(614, 377) + Me.cmdmastervolume.Name = "cmdmastervolume" + Me.cmdmastervolume.Size = New System.Drawing.Size(23, 22) + Me.cmdmastervolume.TabIndex = 406 + Me.cmdmastervolume.Text = "RST" + Me.cmdmastervolume.UseVisualStyleBackColor = True + ' + 'Label108 + ' + Me.Label108.AutoSize = True + Me.Label108.Location = New System.Drawing.Point(488, 378) + Me.Label108.Name = "Label108" + Me.Label108.Size = New System.Drawing.Size(77, 13) + Me.Label108.TabIndex = 402 + Me.Label108.Text = "Master Volume" + ' + 'cmdmixerclearformixemodule + ' + Me.cmdmixerclearformixemodule.Location = New System.Drawing.Point(595, 63) + Me.cmdmixerclearformixemodule.Name = "cmdmixerclearformixemodule" + Me.cmdmixerclearformixemodule.Size = New System.Drawing.Size(54, 62) + Me.cmdmixerclearformixemodule.TabIndex = 425 + Me.cmdmixerclearformixemodule.Text = "Reset Mixer of Channel" + Me.cmdmixerclearformixemodule.UseVisualStyleBackColor = True + ' + 'cmbvideolayerformixer + ' + Me.cmbvideolayerformixer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmbvideolayerformixer", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmbvideolayerformixer.FormattingEnabled = True + Me.cmbvideolayerformixer.Items.AddRange(New Object() {"1", "6", "11", "16", "21", "26", "31", "36", "41", "46", "51", "56", "61", "66", "71", "76", "81", "86", "9999"}) + Me.cmbvideolayerformixer.Location = New System.Drawing.Point(464, 14) + Me.cmbvideolayerformixer.Name = "cmbvideolayerformixer" + Me.cmbvideolayerformixer.Size = New System.Drawing.Size(44, 21) + Me.cmbvideolayerformixer.TabIndex = 423 + Me.cmbvideolayerformixer.Text = "1" + ' + 'Label99 + ' + Me.Label99.AutoSize = True + Me.Label99.Location = New System.Drawing.Point(395, 17) + Me.Label99.Name = "Label99" + Me.Label99.Size = New System.Drawing.Size(63, 13) + Me.Label99.TabIndex = 422 + Me.Label99.Text = "Video Layer" + ' + 'Label49 + ' + Me.Label49.AutoSize = True + Me.Label49.Location = New System.Drawing.Point(444, 337) + Me.Label49.Name = "Label49" + Me.Label49.Size = New System.Drawing.Size(34, 13) + Me.Label49.TabIndex = 402 + Me.Label49.Text = "Blend" + ' + 'cmbblend + ' + Me.cmbblend.FormattingEnabled = True + Me.cmbblend.Items.AddRange(New Object() {"Normal", "Lighten", "Darken", "Multiply", "Average", "Add", "Subtract", "Difference", "Negation", "Exclusion", "Screen", "Overlay", "Soft_Light", "Hard_Light", "Color_Dodge"}) + Me.cmbblend.Location = New System.Drawing.Point(489, 332) + Me.cmbblend.Name = "cmbblend" + Me.cmbblend.Size = New System.Drawing.Size(148, 21) + Me.cmbblend.TabIndex = 421 + Me.cmbblend.Text = "Normal" + ' + 'gbclip + ' + Me.gbclip.BackColor = System.Drawing.Color.SandyBrown + Me.gbclip.Controls.Add(Me.nclipx) + Me.gbclip.Controls.Add(Me.nclipy) + Me.gbclip.Controls.Add(Me.Label35) + Me.gbclip.Controls.Add(Me.Label42) + Me.gbclip.Controls.Add(Me.nclipxsclae) + Me.gbclip.Controls.Add(Me.nclipyscale) + Me.gbclip.Controls.Add(Me.Label47) + Me.gbclip.Controls.Add(Me.Label48) + Me.gbclip.Controls.Add(Me.cmdclipreset) + Me.gbclip.Location = New System.Drawing.Point(219, 10) + Me.gbclip.Name = "gbclip" + Me.gbclip.Size = New System.Drawing.Size(127, 138) + Me.gbclip.TabIndex = 419 + Me.gbclip.TabStop = False + Me.gbclip.Text = "Clip" + ' + 'nclipx + ' + Me.nclipx.DecimalPlaces = 2 + Me.nclipx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nclipx.Location = New System.Drawing.Point(49, 29) + Me.nclipx.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nclipx.Name = "nclipx" + Me.nclipx.Size = New System.Drawing.Size(46, 20) + Me.nclipx.TabIndex = 417 + Me.nclipx.Value = Global.caspar_media_playback.My.MySettings.Default.nclipx + ' + 'nclipy + ' + Me.nclipy.DecimalPlaces = 2 + Me.nclipy.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nclipy.Location = New System.Drawing.Point(49, 53) + Me.nclipy.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nclipy.Name = "nclipy" + Me.nclipy.Size = New System.Drawing.Size(46, 20) + Me.nclipy.TabIndex = 416 + Me.nclipy.Value = Global.caspar_media_playback.My.MySettings.Default.nclipy + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.Location = New System.Drawing.Point(4, 102) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(40, 13) + Me.Label35.TabIndex = 415 + Me.Label35.Text = "Buttom" + ' + 'Label42 + ' + Me.Label42.AutoSize = True + Me.Label42.Location = New System.Drawing.Point(17, 80) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(32, 13) + Me.Label42.TabIndex = 414 + Me.Label42.Text = "Right" + ' + 'nclipxsclae + ' + Me.nclipxsclae.DecimalPlaces = 2 + Me.nclipxsclae.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nclipxsclae.Location = New System.Drawing.Point(49, 77) + Me.nclipxsclae.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nclipxsclae.Name = "nclipxsclae" + Me.nclipxsclae.Size = New System.Drawing.Size(46, 20) + Me.nclipxsclae.TabIndex = 413 + Me.nclipxsclae.Value = Global.caspar_media_playback.My.MySettings.Default.nclipxsclae + ' + 'nclipyscale + ' + Me.nclipyscale.DecimalPlaces = 2 + Me.nclipyscale.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nclipyscale.Location = New System.Drawing.Point(49, 101) + Me.nclipyscale.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nclipyscale.Name = "nclipyscale" + Me.nclipyscale.Size = New System.Drawing.Size(46, 20) + Me.nclipyscale.TabIndex = 412 + Me.nclipyscale.Value = Global.caspar_media_playback.My.MySettings.Default.nclipyscale + ' + 'Label47 + ' + Me.Label47.AutoSize = True + Me.Label47.Location = New System.Drawing.Point(18, 55) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(26, 13) + Me.Label47.TabIndex = 410 + Me.Label47.Text = "Top" + ' + 'Label48 + ' + Me.Label48.AutoSize = True + Me.Label48.Location = New System.Drawing.Point(1, 31) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(47, 13) + Me.Label48.TabIndex = 408 + Me.Label48.Text = "From left" + ' + 'cmdclipreset + ' + Me.cmdclipreset.Location = New System.Drawing.Point(100, 28) + Me.cmdclipreset.Name = "cmdclipreset" + Me.cmdclipreset.Size = New System.Drawing.Size(21, 94) + Me.cmdclipreset.TabIndex = 407 + Me.cmdclipreset.Text = "R" + Me.cmdclipreset.UseVisualStyleBackColor = True + ' + 'gblevels + ' + Me.gblevels.BackColor = System.Drawing.Color.PeachPuff + Me.gblevels.Controls.Add(Me.Label40) + Me.gblevels.Controls.Add(Me.ngamma) + Me.gblevels.Controls.Add(Me.Label39) + Me.gblevels.Controls.Add(Me.Label38) + Me.gblevels.Controls.Add(Me.nmax_output) + Me.gblevels.Controls.Add(Me.nmin_output) + Me.gblevels.Controls.Add(Me.nmax_input) + Me.gblevels.Controls.Add(Me.Label37) + Me.gblevels.Controls.Add(Me.nmin_input) + Me.gblevels.Controls.Add(Me.Label36) + Me.gblevels.Controls.Add(Me.cmdLevels) + Me.gblevels.Location = New System.Drawing.Point(10, 186) + Me.gblevels.Name = "gblevels" + Me.gblevels.Size = New System.Drawing.Size(149, 136) + Me.gblevels.TabIndex = 419 + Me.gblevels.TabStop = False + Me.gblevels.Text = "Levels" + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.Location = New System.Drawing.Point(3, 64) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(41, 13) + Me.Label40.TabIndex = 401 + Me.Label40.Text = "gamma" + ' + 'ngamma + ' + Me.ngamma.DecimalPlaces = 1 + Me.ngamma.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.ngamma.Location = New System.Drawing.Point(64, 62) + Me.ngamma.Maximum = New Decimal(New Integer() {20, 0, 0, 0}) + Me.ngamma.Name = "ngamma" + Me.ngamma.Size = New System.Drawing.Size(46, 20) + Me.ngamma.TabIndex = 400 + Me.ngamma.Value = Global.caspar_media_playback.My.MySettings.Default.ngamma + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.Location = New System.Drawing.Point(0, 112) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(62, 13) + Me.Label39.TabIndex = 399 + Me.Label39.Text = "max_output" + ' + 'Label38 + ' + Me.Label38.AutoSize = True + Me.Label38.Location = New System.Drawing.Point(3, 90) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(59, 13) + Me.Label38.TabIndex = 398 + Me.Label38.Text = "min_output" + ' + 'nmax_output + ' + Me.nmax_output.DecimalPlaces = 1 + Me.nmax_output.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nmax_output.Location = New System.Drawing.Point(64, 110) + Me.nmax_output.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nmax_output.Name = "nmax_output" + Me.nmax_output.Size = New System.Drawing.Size(46, 20) + Me.nmax_output.TabIndex = 397 + Me.nmax_output.Value = Global.caspar_media_playback.My.MySettings.Default.nmax_output + ' + 'nmin_output + ' + Me.nmin_output.DecimalPlaces = 1 + Me.nmin_output.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nmin_output.Location = New System.Drawing.Point(64, 88) + Me.nmin_output.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nmin_output.Name = "nmin_output" + Me.nmin_output.Size = New System.Drawing.Size(46, 20) + Me.nmin_output.TabIndex = 396 + Me.nmin_output.Value = Global.caspar_media_playback.My.MySettings.Default.nmin_output + ' + 'nmax_input + ' + Me.nmax_input.DecimalPlaces = 1 + Me.nmax_input.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nmax_input.Location = New System.Drawing.Point(65, 38) + Me.nmax_input.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nmax_input.Name = "nmax_input" + Me.nmax_input.Size = New System.Drawing.Size(46, 20) + Me.nmax_input.TabIndex = 391 + Me.nmax_input.Value = Global.caspar_media_playback.My.MySettings.Default.nmax_input + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Location = New System.Drawing.Point(7, 40) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(55, 13) + Me.Label37.TabIndex = 390 + Me.Label37.Text = "max_input" + ' + 'nmin_input + ' + Me.nmin_input.DecimalPlaces = 1 + Me.nmin_input.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nmin_input.Location = New System.Drawing.Point(65, 16) + Me.nmin_input.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nmin_input.Name = "nmin_input" + Me.nmin_input.Size = New System.Drawing.Size(46, 20) + Me.nmin_input.TabIndex = 389 + Me.nmin_input.Value = Global.caspar_media_playback.My.MySettings.Default.nmin_input + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.Location = New System.Drawing.Point(7, 17) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(52, 13) + Me.Label36.TabIndex = 388 + Me.Label36.Text = "min_input" + ' + 'cmdLevels + ' + Me.cmdLevels.Location = New System.Drawing.Point(114, 15) + Me.cmdLevels.Name = "cmdLevels" + Me.cmdLevels.Size = New System.Drawing.Size(21, 118) + Me.cmdLevels.TabIndex = 387 + Me.cmdLevels.Text = "R" + Me.cmdLevels.UseVisualStyleBackColor = True + ' + 'gbfill + ' + Me.gbfill.BackColor = System.Drawing.Color.PapayaWhip + Me.gbfill.Controls.Add(Me.nfillx) + Me.gbfill.Controls.Add(Me.nfilly) + Me.gbfill.Controls.Add(Me.Label43) + Me.gbfill.Controls.Add(Me.Label44) + Me.gbfill.Controls.Add(Me.nfillwidth) + Me.gbfill.Controls.Add(Me.nfillheight) + Me.gbfill.Controls.Add(Me.Label45) + Me.gbfill.Controls.Add(Me.Label46) + Me.gbfill.Controls.Add(Me.cmdfill) + Me.gbfill.Location = New System.Drawing.Point(219, 195) + Me.gbfill.Name = "gbfill" + Me.gbfill.Size = New System.Drawing.Size(127, 132) + Me.gbfill.TabIndex = 418 + Me.gbfill.TabStop = False + Me.gbfill.Text = "Fill" + ' + 'nfillx + ' + Me.nfillx.DecimalPlaces = 2 + Me.nfillx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nfillx.Location = New System.Drawing.Point(49, 29) + Me.nfillx.Maximum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.nfillx.Minimum = New Decimal(New Integer() {2, 0, 0, -2147483648}) + Me.nfillx.Name = "nfillx" + Me.nfillx.Size = New System.Drawing.Size(46, 20) + Me.nfillx.TabIndex = 417 + Me.nfillx.Value = Global.caspar_media_playback.My.MySettings.Default.nfillx + ' + 'nfilly + ' + Me.nfilly.DecimalPlaces = 2 + Me.nfilly.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nfilly.Location = New System.Drawing.Point(49, 53) + Me.nfilly.Maximum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.nfilly.Minimum = New Decimal(New Integer() {2, 0, 0, -2147483648}) + Me.nfilly.Name = "nfilly" + Me.nfilly.Size = New System.Drawing.Size(46, 20) + Me.nfilly.TabIndex = 416 + Me.nfilly.Value = Global.caspar_media_playback.My.MySettings.Default.nfilly + ' + 'Label43 + ' + Me.Label43.AutoSize = True + Me.Label43.Location = New System.Drawing.Point(4, 102) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(44, 13) + Me.Label43.TabIndex = 415 + Me.Label43.Text = "Y Scale" + ' + 'Label44 + ' + Me.Label44.AutoSize = True + Me.Label44.Location = New System.Drawing.Point(4, 82) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(44, 13) + Me.Label44.TabIndex = 414 + Me.Label44.Text = "X Scale" + ' + 'nfillwidth + ' + Me.nfillwidth.DecimalPlaces = 2 + Me.nfillwidth.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nfillwidth.Location = New System.Drawing.Point(49, 77) + Me.nfillwidth.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nfillwidth.Name = "nfillwidth" + Me.nfillwidth.Size = New System.Drawing.Size(46, 20) + Me.nfillwidth.TabIndex = 413 + Me.nfillwidth.Value = Global.caspar_media_playback.My.MySettings.Default.nfillwidth + ' + 'nfillheight + ' + Me.nfillheight.DecimalPlaces = 2 + Me.nfillheight.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nfillheight.Location = New System.Drawing.Point(49, 101) + Me.nfillheight.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nfillheight.Name = "nfillheight" + Me.nfillheight.Size = New System.Drawing.Size(46, 20) + Me.nfillheight.TabIndex = 412 + Me.nfillheight.Value = Global.caspar_media_playback.My.MySettings.Default.nfillheight + ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.Location = New System.Drawing.Point(33, 56) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(14, 13) + Me.Label45.TabIndex = 410 + Me.Label45.Text = "Y" + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Location = New System.Drawing.Point(31, 35) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(14, 13) + Me.Label46.TabIndex = 408 + Me.Label46.Text = "X" + ' + 'cmdfill + ' + Me.cmdfill.Location = New System.Drawing.Point(98, 27) + Me.cmdfill.Name = "cmdfill" + Me.cmdfill.Size = New System.Drawing.Size(21, 94) + Me.cmdfill.TabIndex = 407 + Me.cmdfill.Text = "R" + Me.cmdfill.UseVisualStyleBackColor = True + ' + 'cmdmixerclear + ' + Me.cmdmixerclear.Location = New System.Drawing.Point(595, 126) + Me.cmdmixerclear.Name = "cmdmixerclear" + Me.cmdmixerclear.Size = New System.Drawing.Size(54, 59) + Me.cmdmixerclear.TabIndex = 402 + Me.cmdmixerclear.Text = "Reset Mixer Layer" + Me.cmdmixerclear.UseVisualStyleBackColor = True + ' + 'gbothers + ' + Me.gbothers.BackColor = System.Drawing.Color.Cornsilk + Me.gbothers.Controls.Add(Me.nVolume) + Me.gbothers.Controls.Add(Me.cmdVolume) + Me.gbothers.Controls.Add(Me.Label41) + Me.gbothers.Controls.Add(Me.nContrast) + Me.gbothers.Controls.Add(Me.nSaturation) + Me.gbothers.Controls.Add(Me.Label32) + Me.gbothers.Controls.Add(Me.nbrightness) + Me.gbothers.Controls.Add(Me.nopacity) + Me.gbothers.Controls.Add(Me.cmdContrast) + Me.gbothers.Controls.Add(Me.Label34) + Me.gbothers.Controls.Add(Me.cmdSaturation) + Me.gbothers.Controls.Add(Me.Label33) + Me.gbothers.Controls.Add(Me.cmdbrightness) + Me.gbothers.Controls.Add(Me.cmdopacity) + Me.gbothers.Controls.Add(Me.Label31) + Me.gbothers.Location = New System.Drawing.Point(11, 11) + Me.gbothers.Name = "gbothers" + Me.gbothers.Size = New System.Drawing.Size(149, 135) + Me.gbothers.TabIndex = 420 + Me.gbothers.TabStop = False + ' + 'nVolume + ' + Me.nVolume.DecimalPlaces = 1 + Me.nVolume.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nVolume.Location = New System.Drawing.Point(70, 13) + Me.nVolume.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) + Me.nVolume.Name = "nVolume" + Me.nVolume.Size = New System.Drawing.Size(46, 20) + Me.nVolume.TabIndex = 405 + Me.nVolume.Value = Global.caspar_media_playback.My.MySettings.Default.nVolume + ' + 'cmdVolume + ' + Me.cmdVolume.Location = New System.Drawing.Point(118, 11) + Me.cmdVolume.Name = "cmdVolume" + Me.cmdVolume.Size = New System.Drawing.Size(23, 22) + Me.cmdVolume.TabIndex = 404 + Me.cmdVolume.Text = "RST" + Me.cmdVolume.UseVisualStyleBackColor = True + ' + 'Label41 + ' + Me.Label41.AutoSize = True + Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label41.Location = New System.Drawing.Point(13, 15) + Me.Label41.Name = "Label41" + Me.Label41.Size = New System.Drawing.Size(42, 13) + Me.Label41.TabIndex = 403 + Me.Label41.Text = "Volume" + ' + 'nContrast + ' + Me.nContrast.DecimalPlaces = 1 + Me.nContrast.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nContrast.Location = New System.Drawing.Point(72, 109) + Me.nContrast.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) + Me.nContrast.Minimum = New Decimal(New Integer() {500, 0, 0, -2147483648}) + Me.nContrast.Name = "nContrast" + Me.nContrast.Size = New System.Drawing.Size(46, 20) + Me.nContrast.TabIndex = 395 + Me.nContrast.Value = Global.caspar_media_playback.My.MySettings.Default.nContrast + ' + 'nSaturation + ' + Me.nSaturation.DecimalPlaces = 1 + Me.nSaturation.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nSaturation.Location = New System.Drawing.Point(72, 84) + Me.nSaturation.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) + Me.nSaturation.Minimum = New Decimal(New Integer() {500, 0, 0, -2147483648}) + Me.nSaturation.Name = "nSaturation" + Me.nSaturation.Size = New System.Drawing.Size(46, 20) + Me.nSaturation.TabIndex = 394 + Me.nSaturation.Value = Global.caspar_media_playback.My.MySettings.Default.nSaturation + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label32.Location = New System.Drawing.Point(6, 62) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(56, 13) + Me.Label32.TabIndex = 376 + Me.Label32.Text = "Brightness" + ' + 'nbrightness + ' + Me.nbrightness.DecimalPlaces = 1 + Me.nbrightness.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nbrightness.Location = New System.Drawing.Point(70, 60) + Me.nbrightness.Maximum = New Decimal(New Integer() {20, 0, 0, 0}) + Me.nbrightness.Name = "nbrightness" + Me.nbrightness.Size = New System.Drawing.Size(46, 20) + Me.nbrightness.TabIndex = 393 + Me.nbrightness.Value = Global.caspar_media_playback.My.MySettings.Default.nbrightness + ' + 'nopacity + ' + Me.nopacity.DecimalPlaces = 1 + Me.nopacity.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nopacity.Location = New System.Drawing.Point(70, 35) + Me.nopacity.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nopacity.Name = "nopacity" + Me.nopacity.Size = New System.Drawing.Size(46, 20) + Me.nopacity.TabIndex = 392 + Me.nopacity.Value = Global.caspar_media_playback.My.MySettings.Default.nopacity + ' + 'cmdContrast + ' + Me.cmdContrast.Location = New System.Drawing.Point(119, 107) + Me.cmdContrast.Name = "cmdContrast" + Me.cmdContrast.Size = New System.Drawing.Size(21, 23) + Me.cmdContrast.TabIndex = 384 + Me.cmdContrast.Text = "Reset" + Me.cmdContrast.UseVisualStyleBackColor = True + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label34.Location = New System.Drawing.Point(13, 110) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(46, 13) + Me.Label34.TabIndex = 382 + Me.Label34.Text = "Contrast" + ' + 'cmdSaturation + ' + Me.cmdSaturation.Location = New System.Drawing.Point(119, 83) + Me.cmdSaturation.Name = "cmdSaturation" + Me.cmdSaturation.Size = New System.Drawing.Size(24, 19) + Me.cmdSaturation.TabIndex = 381 + Me.cmdSaturation.Text = "Reset" + Me.cmdSaturation.UseVisualStyleBackColor = True + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label33.Location = New System.Drawing.Point(1, 86) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(55, 13) + Me.Label33.TabIndex = 379 + Me.Label33.Text = "Saturation" + ' + 'cmdbrightness + ' + Me.cmdbrightness.Location = New System.Drawing.Point(117, 58) + Me.cmdbrightness.Name = "cmdbrightness" + Me.cmdbrightness.Size = New System.Drawing.Size(23, 21) + Me.cmdbrightness.TabIndex = 378 + Me.cmdbrightness.Text = "Reset" + Me.cmdbrightness.UseVisualStyleBackColor = True + ' + 'cmdopacity + ' + Me.cmdopacity.Location = New System.Drawing.Point(118, 33) + Me.cmdopacity.Name = "cmdopacity" + Me.cmdopacity.Size = New System.Drawing.Size(23, 22) + Me.cmdopacity.TabIndex = 375 + Me.cmdopacity.Text = "RST" + Me.cmdopacity.UseVisualStyleBackColor = True + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label31.Location = New System.Drawing.Point(13, 37) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(43, 13) + Me.Label31.TabIndex = 373 + Me.Label31.Text = "Opacity" + ' + 'ucMixer + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(665, 612) + Me.Controls.Add(Me.gbMixer) + Me.Name = "ucMixer" + Me.Text = "Mixer" + Me.gbMixer.ResumeLayout(False) + Me.gbMixer.PerformLayout() + Me.gbScalefromCenter.ResumeLayout(False) + Me.gbScalefromCenter.PerformLayout() + CType(Me.nscalexfromCenter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nscaleyfromCenter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nmixermastervolume, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbcropmixer.ResumeLayout(False) + Me.gbcropmixer.PerformLayout() + CType(Me.ncropbrx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ncropbry, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ncroptlx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ncroptly, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbperspectivemixer.ResumeLayout(False) + Me.gbperspectivemixer.PerformLayout() + CType(Me.nperspectiveblx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivebly, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivebrx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivebry, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivetrx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivetry, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivetlx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivetly, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbrotationmixer.ResumeLayout(False) + Me.gbrotationmixer.PerformLayout() + CType(Me.nrotationz, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbanchormixer.ResumeLayout(False) + Me.gbanchormixer.PerformLayout() + CType(Me.nanchorx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nanchory, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbclip.ResumeLayout(False) + Me.gbclip.PerformLayout() + CType(Me.nclipx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nclipy, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nclipxsclae, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nclipyscale, System.ComponentModel.ISupportInitialize).EndInit() + Me.gblevels.ResumeLayout(False) + Me.gblevels.PerformLayout() + CType(Me.ngamma, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nmax_output, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nmin_output, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nmax_input, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nmin_input, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbfill.ResumeLayout(False) + Me.gbfill.PerformLayout() + CType(Me.nfillx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nfilly, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nfillwidth, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nfillheight, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbothers.ResumeLayout(False) + Me.gbothers.PerformLayout() + CType(Me.nVolume, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nContrast, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nSaturation, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nbrightness, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nopacity, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbMixer As System.Windows.Forms.GroupBox + Friend WithEvents nmixermastervolume As System.Windows.Forms.NumericUpDown + Friend WithEvents gbcropmixer As System.Windows.Forms.GroupBox + Friend WithEvents Label235 As System.Windows.Forms.Label + Friend WithEvents Label234 As System.Windows.Forms.Label + Friend WithEvents ncropbrx As System.Windows.Forms.NumericUpDown + Friend WithEvents ncropbry As System.Windows.Forms.NumericUpDown + Friend WithEvents Label189 As System.Windows.Forms.Label + Friend WithEvents Label193 As System.Windows.Forms.Label + Friend WithEvents Label194 As System.Windows.Forms.Label + Friend WithEvents ncroptlx As System.Windows.Forms.NumericUpDown + Friend WithEvents ncroptly As System.Windows.Forms.NumericUpDown + Friend WithEvents Label199 As System.Windows.Forms.Label + Friend WithEvents Label200 As System.Windows.Forms.Label + Friend WithEvents Label198 As System.Windows.Forms.Label + Friend WithEvents cmdresetcropmixer As System.Windows.Forms.Button + Friend WithEvents chkmipmapmixer As System.Windows.Forms.CheckBox + Friend WithEvents gbperspectivemixer As System.Windows.Forms.GroupBox + Friend WithEvents Label186 As System.Windows.Forms.Label + Friend WithEvents nperspectiveblx As System.Windows.Forms.NumericUpDown + Friend WithEvents nperspectivebly As System.Windows.Forms.NumericUpDown + Friend WithEvents Label187 As System.Windows.Forms.Label + Friend WithEvents Label188 As System.Windows.Forms.Label + Friend WithEvents Label183 As System.Windows.Forms.Label + Friend WithEvents nperspectivebrx As System.Windows.Forms.NumericUpDown + Friend WithEvents nperspectivebry As System.Windows.Forms.NumericUpDown + Friend WithEvents Label184 As System.Windows.Forms.Label + Friend WithEvents Label185 As System.Windows.Forms.Label + Friend WithEvents Label180 As System.Windows.Forms.Label + Friend WithEvents nperspectivetrx As System.Windows.Forms.NumericUpDown + Friend WithEvents nperspectivetry As System.Windows.Forms.NumericUpDown + Friend WithEvents Label181 As System.Windows.Forms.Label + Friend WithEvents Label182 As System.Windows.Forms.Label + Friend WithEvents Label177 As System.Windows.Forms.Label + Friend WithEvents nperspectivetlx As System.Windows.Forms.NumericUpDown + Friend WithEvents nperspectivetly As System.Windows.Forms.NumericUpDown + Friend WithEvents Label111 As System.Windows.Forms.Label + Friend WithEvents Label112 As System.Windows.Forms.Label + Friend WithEvents cmdresetperspectivemixer As System.Windows.Forms.Button + Friend WithEvents cmdgetstatusofmixer As System.Windows.Forms.Button + Friend WithEvents gbrotationmixer As System.Windows.Forms.GroupBox + Friend WithEvents Label176 As System.Windows.Forms.Label + Friend WithEvents nrotationz As System.Windows.Forms.NumericUpDown + Friend WithEvents cmdresetrotationmixer As System.Windows.Forms.Button + Friend WithEvents gbanchormixer As System.Windows.Forms.GroupBox + Friend WithEvents nanchorx As System.Windows.Forms.NumericUpDown + Friend WithEvents nanchory As System.Windows.Forms.NumericUpDown + Friend WithEvents Label178 As System.Windows.Forms.Label + Friend WithEvents Label179 As System.Windows.Forms.Label + Friend WithEvents cmdresetanchormixer As System.Windows.Forms.Button + Friend WithEvents cmdmixersettingopen As System.Windows.Forms.Button + Friend WithEvents cmdmixersettingsave As System.Windows.Forms.Button + Friend WithEvents Label168 As System.Windows.Forms.Label + Friend WithEvents cmdrefreshmediaforfilter As System.Windows.Forms.Button + Friend WithEvents cmbmediaforfilter As System.Windows.Forms.ComboBox + Friend WithEvents cmdplayfilter As System.Windows.Forms.Button + Friend WithEvents cmbfilter As System.Windows.Forms.ComboBox + Friend WithEvents cmdmastervolume As System.Windows.Forms.Button + Friend WithEvents Label108 As System.Windows.Forms.Label + Friend WithEvents cmdmixerclearformixemodule As System.Windows.Forms.Button + Friend WithEvents cmbvideolayerformixer As System.Windows.Forms.ComboBox + Friend WithEvents Label99 As System.Windows.Forms.Label + Friend WithEvents Label49 As System.Windows.Forms.Label + Friend WithEvents cmbblend As System.Windows.Forms.ComboBox + Friend WithEvents gbclip As System.Windows.Forms.GroupBox + Friend WithEvents nclipx As System.Windows.Forms.NumericUpDown + Friend WithEvents nclipy As System.Windows.Forms.NumericUpDown + Friend WithEvents Label35 As System.Windows.Forms.Label + Friend WithEvents Label42 As System.Windows.Forms.Label + Friend WithEvents nclipxsclae As System.Windows.Forms.NumericUpDown + Friend WithEvents nclipyscale As System.Windows.Forms.NumericUpDown + Friend WithEvents Label47 As System.Windows.Forms.Label + Friend WithEvents Label48 As System.Windows.Forms.Label + Friend WithEvents cmdclipreset As System.Windows.Forms.Button + Friend WithEvents gblevels As System.Windows.Forms.GroupBox + Friend WithEvents Label40 As System.Windows.Forms.Label + Friend WithEvents ngamma As System.Windows.Forms.NumericUpDown + Friend WithEvents Label39 As System.Windows.Forms.Label + Friend WithEvents Label38 As System.Windows.Forms.Label + Friend WithEvents nmax_output As System.Windows.Forms.NumericUpDown + Friend WithEvents nmin_output As System.Windows.Forms.NumericUpDown + Friend WithEvents nmax_input As System.Windows.Forms.NumericUpDown + Friend WithEvents Label37 As System.Windows.Forms.Label + Friend WithEvents nmin_input As System.Windows.Forms.NumericUpDown + Friend WithEvents Label36 As System.Windows.Forms.Label + Friend WithEvents cmdLevels As System.Windows.Forms.Button + Friend WithEvents gbfill As System.Windows.Forms.GroupBox + Friend WithEvents nfillx As System.Windows.Forms.NumericUpDown + Friend WithEvents nfilly As System.Windows.Forms.NumericUpDown + Friend WithEvents Label43 As System.Windows.Forms.Label + Friend WithEvents Label44 As System.Windows.Forms.Label + Friend WithEvents nfillwidth As System.Windows.Forms.NumericUpDown + Friend WithEvents nfillheight As System.Windows.Forms.NumericUpDown + Friend WithEvents Label45 As System.Windows.Forms.Label + Friend WithEvents Label46 As System.Windows.Forms.Label + Friend WithEvents cmdfill As System.Windows.Forms.Button + Friend WithEvents cmdmixerclear As System.Windows.Forms.Button + Friend WithEvents gbothers As System.Windows.Forms.GroupBox + Friend WithEvents nVolume As System.Windows.Forms.NumericUpDown + Friend WithEvents cmdVolume As System.Windows.Forms.Button + Friend WithEvents Label41 As System.Windows.Forms.Label + Friend WithEvents nContrast As System.Windows.Forms.NumericUpDown + Friend WithEvents nSaturation As System.Windows.Forms.NumericUpDown + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents nbrightness As System.Windows.Forms.NumericUpDown + Friend WithEvents nopacity As System.Windows.Forms.NumericUpDown + Friend WithEvents cmdContrast As System.Windows.Forms.Button + Friend WithEvents Label34 As System.Windows.Forms.Label + Friend WithEvents cmdSaturation As System.Windows.Forms.Button + Friend WithEvents Label33 As System.Windows.Forms.Label + Friend WithEvents cmdbrightness As System.Windows.Forms.Button + Friend WithEvents cmdopacity As System.Windows.Forms.Button + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents gbScalefromCenter As GroupBox + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents nscalexfromCenter As NumericUpDown + Friend WithEvents nscaleyfromCenter As NumericUpDown + Friend WithEvents cmdResetScalefromCenter As Button +End Class diff --git a/CasparMediaPlayback/ucMixer.resx b/CasparMediaPlayback/ucMixer.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/CasparMediaPlayback/ucMixer.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucMixer.vb b/CasparMediaPlayback/ucMixer.vb new file mode 100644 index 0000000..6fc4264 --- /dev/null +++ b/CasparMediaPlayback/ucMixer.vb @@ -0,0 +1,602 @@ +Imports System.Xml +Public Class ucMixer + Private Sub cmdresetcropmixer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresetcropmixer.Click + On Error Resume Next + resetcropmixer() + End Sub + Sub resetcropmixer() + On Error Resume Next + ncroptlx.Value = 0 + ncroptly.Value = 0 + ncropbrx.Value = 1 + ncropbry.Value = 1 + End Sub + Sub mixercrop() Handles ncroptlx.ValueChanged, ncroptly.ValueChanged, ncropbrx.ValueChanged, ncropbry.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " crop " & Replace(ncroptlx.Value, ",", ".") & " " & Replace(ncroptly.Value, ",", ".") & " " & Replace(ncropbrx.Value, ",", ".") & " " & Replace(ncropbry.Value, ",", ".")) + End Sub + + Private Sub chkmipmapmixer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkmipmapmixer.CheckedChanged + If chkmipmapmixer.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " mipmap 1") + Else + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " mipmap 0") + End If + End Sub + Private Sub cmdresetperspectivemixer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresetperspectivemixer.Click + On Error Resume Next + resetperpectivemixer() + + End Sub + Sub resetperpectivemixer() + On Error Resume Next + nperspectivetlx.Value = 0 + nperspectivetly.Value = 0 + + nperspectivetrx.Value = 1 + nperspectivetry.Value = 0 + + nperspectivebrx.Value = 1 + nperspectivebry.Value = 1 + + nperspectiveblx.Value = 0 + nperspectivebly.Value = 1 + End Sub + Private Sub cmdmixerclearformixemodule_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmixerclearformixemodule.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & " clear") + End Sub + Private Sub nopacity_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nopacity.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " opacity " & Replace(nopacity.Value, ",", ".")) + + End Sub + + Private Sub cmdopacity_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopacity.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " opacity 1") + nopacity.Value = 1 + End Sub + + Private Sub nbrightness_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nbrightness.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " brightness " & Replace(nbrightness.Value, ",", ".")) + + End Sub + + Private Sub cmdbrightness_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbrightness.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " brightness 1") + nbrightness.Value = 1 + End Sub + + Private Sub nSaturation_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nSaturation.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " saturation " & Replace(nSaturation.Value, ",", ".")) + + End Sub + + Private Sub cmdSaturation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSaturation.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " saturation 1") + nSaturation.Value = 1 + + End Sub + + Private Sub nContrast_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nContrast.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " contrast " & Replace(nContrast.Value, ",", ".")) + + End Sub + + Private Sub cmdContrast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdContrast.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " contrast 1") + nContrast.Value = 1 + + End Sub + + Private Sub nmin_input_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nmin_input.ValueChanged, nmax_input.ValueChanged, ngamma.ValueChanged, nmin_output.ValueChanged, nmax_output.ValueChanged + + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " levels " & Replace(nmin_input.Value, ",", ".") & " " & Replace(nmax_input.Value, ",", ".") & " " & Replace(ngamma.Value, ",", ".") & " " & Replace(nmin_output.Value, ",", ".") & " " & Replace(nmax_output.Value, ",", ".")) + End Sub + + Private Sub cmdrefreshmediaforfilter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrefreshmediaforfilter.Click + frmmediaplayer.mediafilesforvisionmixer() + End Sub + + Private Sub cmdplayfilter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayfilter.Click + If ServerVersion > 2.1 Then + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " " & cmbmediaforfilter.Text & " loop vf " & cmbfilter.Text) + Else + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " " & cmbmediaforfilter.Text & " loop filter " & cmbfilter.Text) + End If + + End Sub + Private Sub cmdmixersettingopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmixersettingopen.Click + mixersettingopen() + End Sub + Private Sub mixersettingopen() + On Error Resume Next + Dim ofd2 As New OpenFileDialog + ofd2.InitialDirectory = "c:\casparcg\mydata\mixer\" + ofd2.Filter = "xml files (*.xml)|*.xml|All files (*.*)|*.*" + If (ofd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Dim response As New MSXML2.DOMDocument60 + response.load(ofd2.FileName) + + Dim instance As MSXML2.IXMLDOMElement + instance = response.getElementsByTagName("mixer").item(0) + For Each aa As Control In gbMixer.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("Others").item(0)) + For Each aa As Control In gbothers.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("clip").item(0)) + For Each aa As Control In gbclip.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("levels").item(0)) + For Each aa As Control In gblevels.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("fill").item(0)) + For Each aa As Control In gbfill.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("rotation").item(0)) + For Each aa As Control In gbrotationmixer.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("anchor").item(0)) + For Each aa As Control In gbanchormixer.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("perspective").item(0)) + For Each aa As Control In gbperspectivemixer.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("crop").item(0)) + For Each aa As Control In gbcropmixer.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("chkmipmapmixer").item(0)) + chkmipmapmixer.CheckState = instance.getAttribute("chkmipmapmixer") + End If + End Sub + Private Sub cmdmixersettingsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmixersettingsave.Click + mixersettingsave() + End Sub + Sub mixersettingsave() + On Error Resume Next + Dim osd2 As New SaveFileDialog + osd2.InitialDirectory = "c:\casparcg\mydata\mixer\" + osd2.Filter = "xml files (*.xml)|*.xml|All files (*.*)|*.*" + If (osd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + + + Dim xmlsetting As New XmlWriterSettings + xmlsetting.Indent = True + Using writer As XmlWriter = XmlWriter.Create(osd2.FileName, xmlsetting) + writer.WriteStartDocument() 'Document start + + writer.WriteStartElement("mixerdata") ' Root element. + + writer.WriteStartElement("mixer") + For Each aa As Control In gbMixer.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("Others") + For Each aa As Control In gbothers.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("clip") + For Each aa As Control In gbclip.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("levels") + For Each aa As Control In gblevels.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + + writer.WriteStartElement("fill") + For Each aa As Control In gbfill.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("rotation") + For Each aa As Control In gbrotationmixer.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("anchor") + For Each aa As Control In gbanchormixer.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("perspective") + For Each aa As Control In gbperspectivemixer.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + + writer.WriteStartElement("crop") + For Each aa As Control In gbcropmixer.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("chkmipmapmixer") + writer.WriteStartAttribute("chkmipmapmixer") + writer.WriteValue(chkmipmapmixer.CheckState) + writer.WriteEndElement() + + writer.WriteEndElement() 'root element end + + writer.WriteEndDocument() 'Document end + End Using + 'lblfilename.Text = osd2.FileName + End If + End Sub + + Private Sub cmdmixerclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmixerclear.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " clear") + + mixerlevesreset() + mixerclipreset() + mixerfillreset() + + nVolume.Value = 1 + + nopacity.Value = 1 + nbrightness.Value = 1 + nSaturation.Value = 1 + nContrast.Value = 1 + + cmbblend.Text = "Normal" + + nmixermastervolume.Value = 1 + + nanchorx.Value = 0 + nanchory.Value = 0 + nrotationz.Value = 0 + + resetperpectivemixer() + resetcropmixer() + + End Sub + + Private Sub cmdLevels_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLevels.Click + On Error Resume Next + mixerlevesreset() + End Sub + Sub mixerlevesreset() + On Error Resume Next + nmin_input.Value = 0 + nmax_input.Value = 1 + ngamma.Value = 1 + nmin_output.Value = 0 + nmax_output.Value = 1 + End Sub + Private Sub nmixermastervolume_ValueChanged(sender As Object, e As EventArgs) Handles nmixermastervolume.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & " mastervolume " & Replace(nmixermastervolume.Value, ",", ".")) + + End Sub + Private Sub nVolume_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nVolume.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " volume " & Replace(nVolume.Value, ",", ".")) + + End Sub + + Private Sub cmdmastervolume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmastervolume.Click + On Error Resume Next + nmixermastervolume.Value = 1 + End Sub + Private Sub cmdVolume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVolume.Click + On Error Resume Next + nVolume.Value = 1 + End Sub + + Private Sub nfillx_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nfillx.ValueChanged, nfilly.ValueChanged, nfillwidth.ValueChanged, nfillheight.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " fill " & Replace(nfillx.Value, ",", ".") & " " & Replace(nfilly.Value, ",", ".") & " " & Replace(nfillwidth.Value, ",", ".") & " " & Replace(nfillheight.Value, ",", ".")) + + End Sub + + Private Sub cmdfill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdfill.Click + On Error Resume Next + mixerfillreset() + End Sub + Sub mixerfillreset() + On Error Resume Next + nfillx.Value = 0 + nfilly.Value = 0 + nfillwidth.Value = 1 + nfillheight.Value = 1 + End Sub + + Private Sub nclipx_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nclipx.ValueChanged, nclipy.ValueChanged, nclipxsclae.ValueChanged, nclipyscale.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " clip " & Replace(nclipx.Value, ",", ".") & " " & Replace(nclipy.Value, ",", ".") & " " & Replace(nclipxsclae.Value, ",", ".") & " " & Replace(nclipyscale.Value, ",", ".")) + + End Sub + + Private Sub cmdclipreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdclipreset.Click + On Error Resume Next + mixerclipreset() + End Sub + Sub mixerclipreset() + On Error Resume Next + nclipx.Value = 0 + nclipy.Value = 0 + nclipxsclae.Value = 1 + nclipyscale.Value = 1 + End Sub + Sub perspectivemixer() Handles nperspectivetlx.ValueChanged, nperspectivetly.ValueChanged, nperspectivetrx.ValueChanged, nperspectivetry.ValueChanged, nperspectivebrx.ValueChanged, nperspectivebry.ValueChanged, nperspectiveblx.ValueChanged, nperspectivebly.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " perspective " & Replace(nperspectivetlx.Value, ",", ".") & " " & Replace(nperspectivetly.Value, ",", ".") & " " & Replace(nperspectivetrx.Value, ",", ".") & " " & Replace(nperspectivetry.Value, ",", ".") & " " & Replace(nperspectivebrx.Value, ",", ".") & " " & Replace(nperspectivebry.Value, ",", ".") & " " & Replace(nperspectiveblx.Value, ",", ".") & " " & Replace(nperspectivebly.Value, ",", ".")) + + End Sub + Private Sub cmbblend_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbblend.SelectedIndexChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " blend " & cmbblend.Text) + End Sub + + Private Sub nanchorx_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nanchorx.ValueChanged, nanchory.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " anchor " & Replace(nanchorx.Value, ",", ".") & " " & Replace(nanchory.Value, ",", ".")) + + End Sub + Private Sub nrotationz_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nrotationz.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " rotation " & Replace(nrotationz.Value, ",", ".")) + + End Sub + Private Sub cmdresetanchormixer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresetanchormixer.Click + On Error Resume Next + nanchorx.Value = 0 + nanchory.Value = 0 + End Sub + Private Sub cmdresetrotationmixer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresetrotationmixer.Click + On Error Resume Next + nrotationz.Value = 0 + End Sub + + Private Sub cmdgetstatusofmixer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdgetstatusofmixer.Click + On Error Resume Next + getstausofmixer() + End Sub + Sub getstausofmixer() + On Error Resume Next + 'for fill + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " fill" + vbCrLf) + Threading.Thread.Sleep(150) + + Dim data(10024) As Byte + NetStream.Read(data, 0, 10024) + Dim returndata As String = "" + returndata = System.Text.Encoding.UTF8.GetString(data) + Dim a As Array = Split(returndata, vbNewLine) + Dim b As Array = Split(a(1), " ") + + nfillx.Value = b(0) + nfilly.Value = b(1) + nfillwidth.Value = b(2) + nfillheight.Value = b(3) + + 'for clip + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " clip" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nclipx.Value = b(0) + nclipy.Value = b(1) + nclipxsclae.Value = b(2) + nclipyscale.Value = b(3) + + 'for levels + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " levels" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nmin_input.Value = b(0) + nmax_input.Value = b(1) + ngamma.Value = b(2) + nmin_output.Value = b(3) + nmax_output.Value = b(4) + + + 'for volume + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " volume" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nVolume.Value = b(0) + + 'for opacity + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " opacity" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nopacity.Value = b(0) + + 'for brightness + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " brightness" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nbrightness.Value = b(0) + + 'for saturation + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " saturation" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nSaturation.Value = b(0) + + 'for contrast + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " contrast" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nContrast.Value = b(0) + + 'for anchor + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " anchor" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nanchorx.Value = b(0) + nanchory.Value = b(1) + + 'for rotation + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " rotation" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nrotationz.Value = b(0) + + + + 'for mastervolume + SendString(NetStream, "mixer " & g_int_ChannelNumber & " mastervolume" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nmixermastervolume.Value = b(0) + + 'for blend + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " blend" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + cmbblend.Text = b(0) + + 'for perspective + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " perspective" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + + nperspectivetlx.Value = b(0) + nperspectivetly.Value = b(1) + + nperspectivetrx.Value = b(2) + nperspectivetry.Value = b(3) + + nperspectivebrx.Value = b(4) + nperspectivebry.Value = b(5) + + nperspectiveblx.Value = b(6) + nperspectivebly.Value = b(7) + + 'for crop + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " crop" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + + ncroptlx.Value = b(0) + ncroptly.Value = b(1) + + ncropbrx.Value = b(2) + ncropbry.Value = b(3) + + 'for mipmap + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " mipmap" + vbCrLf) + Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + + chkmipmapmixer.Checked = b(0) + + End Sub + + Private Sub cmbvideolayerformixer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbvideolayerformixer.TextChanged + On Error Resume Next + 'getstausofmixer() + End Sub + 'Mixer code ends--------------------------- + Private Sub cmdhidegbmixer_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub + + Private Sub ucMixer_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + End Sub + + Private Sub nscalexfromCenter_ValueChanged(sender As Object, e As EventArgs) Handles nscalexfromCenter.ValueChanged, nscaleyfromCenter.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " fill " & Replace(((1 - nscalexfromCenter.Value) / 2), ",", ".") & " " & Replace(((1 - nscaleyfromCenter.Value) / 2), ",", ".") & " " & Replace(nscalexfromCenter.Value, ",", ".") & " " & Replace(nscaleyfromCenter.Value, ",", ".")) + + End Sub + + Private Sub cmdResetScalefromCenter_Click(sender As Object, e As EventArgs) Handles cmdResetScalefromCenter.Click + On Error Resume Next + nscalexfromCenter.Value = 1 + nscaleyfromCenter.Value = 1 + End Sub +End Class diff --git a/CasparMediaPlayback/ucMixernew.designer.vb b/CasparMediaPlayback/ucMixernew.designer.vb new file mode 100644 index 0000000..2d80237 --- /dev/null +++ b/CasparMediaPlayback/ucMixernew.designer.vb @@ -0,0 +1,1570 @@ + _ +Partial Class ucMixernew + Inherits System.Windows.Forms.UserControl + 'Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.gbMixer = New System.Windows.Forms.GroupBox() + Me.gbScalefromCenter = New System.Windows.Forms.GroupBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.nscalexfromCenter = New System.Windows.Forms.NumericUpDown() + Me.nscaleyfromCenter = New System.Windows.Forms.NumericUpDown() + Me.cmdResetScalefromCenter = New System.Windows.Forms.Button() + Me.nmixermastervolume = New System.Windows.Forms.NumericUpDown() + Me.gbcropmixer = New System.Windows.Forms.GroupBox() + Me.Label235 = New System.Windows.Forms.Label() + Me.Label234 = New System.Windows.Forms.Label() + Me.ncropbrx = New System.Windows.Forms.NumericUpDown() + Me.ncropbry = New System.Windows.Forms.NumericUpDown() + Me.Label189 = New System.Windows.Forms.Label() + Me.Label193 = New System.Windows.Forms.Label() + Me.Label194 = New System.Windows.Forms.Label() + Me.ncroptlx = New System.Windows.Forms.NumericUpDown() + Me.ncroptly = New System.Windows.Forms.NumericUpDown() + Me.Label199 = New System.Windows.Forms.Label() + Me.Label200 = New System.Windows.Forms.Label() + Me.Label198 = New System.Windows.Forms.Label() + Me.cmdresetcropmixer = New System.Windows.Forms.Button() + Me.chkmipmapmixer = New System.Windows.Forms.CheckBox() + Me.gbperspectivemixer = New System.Windows.Forms.GroupBox() + Me.Label186 = New System.Windows.Forms.Label() + Me.nperspectiveblx = New System.Windows.Forms.NumericUpDown() + Me.nperspectivebly = New System.Windows.Forms.NumericUpDown() + Me.Label187 = New System.Windows.Forms.Label() + Me.Label188 = New System.Windows.Forms.Label() + Me.Label183 = New System.Windows.Forms.Label() + Me.nperspectivebrx = New System.Windows.Forms.NumericUpDown() + Me.nperspectivebry = New System.Windows.Forms.NumericUpDown() + Me.Label184 = New System.Windows.Forms.Label() + Me.Label185 = New System.Windows.Forms.Label() + Me.Label180 = New System.Windows.Forms.Label() + Me.nperspectivetrx = New System.Windows.Forms.NumericUpDown() + Me.nperspectivetry = New System.Windows.Forms.NumericUpDown() + Me.Label181 = New System.Windows.Forms.Label() + Me.Label182 = New System.Windows.Forms.Label() + Me.Label177 = New System.Windows.Forms.Label() + Me.nperspectivetlx = New System.Windows.Forms.NumericUpDown() + Me.nperspectivetly = New System.Windows.Forms.NumericUpDown() + Me.Label111 = New System.Windows.Forms.Label() + Me.Label112 = New System.Windows.Forms.Label() + Me.cmdresetperspectivemixer = New System.Windows.Forms.Button() + Me.cmdgetstatusofmixer = New System.Windows.Forms.Button() + Me.gbrotationmixer = New System.Windows.Forms.GroupBox() + Me.Label176 = New System.Windows.Forms.Label() + Me.nrotationz = New System.Windows.Forms.NumericUpDown() + Me.cmdresetrotationmixer = New System.Windows.Forms.Button() + Me.gbanchormixer = New System.Windows.Forms.GroupBox() + Me.nanchorx = New System.Windows.Forms.NumericUpDown() + Me.nanchory = New System.Windows.Forms.NumericUpDown() + Me.Label178 = New System.Windows.Forms.Label() + Me.Label179 = New System.Windows.Forms.Label() + Me.cmdresetanchormixer = New System.Windows.Forms.Button() + Me.cmdmixersettingopen = New System.Windows.Forms.Button() + Me.cmdmixersettingsave = New System.Windows.Forms.Button() + Me.cmdmastervolume = New System.Windows.Forms.Button() + Me.Label108 = New System.Windows.Forms.Label() + Me.cmdmixerclearformixemodule = New System.Windows.Forms.Button() + Me.cmbvideolayerformixer = New System.Windows.Forms.ComboBox() + Me.Label99 = New System.Windows.Forms.Label() + Me.Label49 = New System.Windows.Forms.Label() + Me.cmbblend = New System.Windows.Forms.ComboBox() + Me.gbclip = New System.Windows.Forms.GroupBox() + Me.nclipx = New System.Windows.Forms.NumericUpDown() + Me.nclipy = New System.Windows.Forms.NumericUpDown() + Me.Label35 = New System.Windows.Forms.Label() + Me.Label42 = New System.Windows.Forms.Label() + Me.nclipxsclae = New System.Windows.Forms.NumericUpDown() + Me.nclipyscale = New System.Windows.Forms.NumericUpDown() + Me.Label47 = New System.Windows.Forms.Label() + Me.Label48 = New System.Windows.Forms.Label() + Me.cmdclipreset = New System.Windows.Forms.Button() + Me.gblevels = New System.Windows.Forms.GroupBox() + Me.Label40 = New System.Windows.Forms.Label() + Me.ngamma = New System.Windows.Forms.NumericUpDown() + Me.Label39 = New System.Windows.Forms.Label() + Me.Label38 = New System.Windows.Forms.Label() + Me.nmax_output = New System.Windows.Forms.NumericUpDown() + Me.nmin_output = New System.Windows.Forms.NumericUpDown() + Me.nmax_input = New System.Windows.Forms.NumericUpDown() + Me.Label37 = New System.Windows.Forms.Label() + Me.nmin_input = New System.Windows.Forms.NumericUpDown() + Me.Label36 = New System.Windows.Forms.Label() + Me.cmdLevels = New System.Windows.Forms.Button() + Me.gbfill = New System.Windows.Forms.GroupBox() + Me.nfillx = New System.Windows.Forms.NumericUpDown() + Me.nfilly = New System.Windows.Forms.NumericUpDown() + Me.Label43 = New System.Windows.Forms.Label() + Me.Label44 = New System.Windows.Forms.Label() + Me.nfillwidth = New System.Windows.Forms.NumericUpDown() + Me.nfillheight = New System.Windows.Forms.NumericUpDown() + Me.Label45 = New System.Windows.Forms.Label() + Me.Label46 = New System.Windows.Forms.Label() + Me.cmdfill = New System.Windows.Forms.Button() + Me.cmdmixerclear = New System.Windows.Forms.Button() + Me.gbothers = New System.Windows.Forms.GroupBox() + Me.nVolume = New System.Windows.Forms.NumericUpDown() + Me.cmdVolume = New System.Windows.Forms.Button() + Me.Label41 = New System.Windows.Forms.Label() + Me.nContrast = New System.Windows.Forms.NumericUpDown() + Me.nSaturation = New System.Windows.Forms.NumericUpDown() + Me.Label32 = New System.Windows.Forms.Label() + Me.nbrightness = New System.Windows.Forms.NumericUpDown() + Me.nopacity = New System.Windows.Forms.NumericUpDown() + Me.cmdContrast = New System.Windows.Forms.Button() + Me.Label34 = New System.Windows.Forms.Label() + Me.cmdSaturation = New System.Windows.Forms.Button() + Me.Label33 = New System.Windows.Forms.Label() + Me.cmdbrightness = New System.Windows.Forms.Button() + Me.cmdopacity = New System.Windows.Forms.Button() + Me.Label31 = New System.Windows.Forms.Label() + Me.gbMixer.SuspendLayout() + Me.gbScalefromCenter.SuspendLayout() + CType(Me.nscalexfromCenter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nscaleyfromCenter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nmixermastervolume, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbcropmixer.SuspendLayout() + CType(Me.ncropbrx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ncropbry, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ncroptlx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ncroptly, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbperspectivemixer.SuspendLayout() + CType(Me.nperspectiveblx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivebly, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivebrx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivebry, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivetrx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivetry, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivetlx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nperspectivetly, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbrotationmixer.SuspendLayout() + CType(Me.nrotationz, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbanchormixer.SuspendLayout() + CType(Me.nanchorx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nanchory, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbclip.SuspendLayout() + CType(Me.nclipx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nclipy, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nclipxsclae, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nclipyscale, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gblevels.SuspendLayout() + CType(Me.ngamma, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nmax_output, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nmin_output, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nmax_input, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nmin_input, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbfill.SuspendLayout() + CType(Me.nfillx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nfilly, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nfillwidth, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nfillheight, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbothers.SuspendLayout() + CType(Me.nVolume, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nContrast, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nSaturation, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nbrightness, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nopacity, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbMixer + ' + Me.gbMixer.BackColor = System.Drawing.Color.Wheat + Me.gbMixer.Controls.Add(Me.gbScalefromCenter) + Me.gbMixer.Controls.Add(Me.nmixermastervolume) + Me.gbMixer.Controls.Add(Me.gbcropmixer) + Me.gbMixer.Controls.Add(Me.chkmipmapmixer) + Me.gbMixer.Controls.Add(Me.gbperspectivemixer) + Me.gbMixer.Controls.Add(Me.cmdgetstatusofmixer) + Me.gbMixer.Controls.Add(Me.gbrotationmixer) + Me.gbMixer.Controls.Add(Me.gbanchormixer) + Me.gbMixer.Controls.Add(Me.cmdmixersettingopen) + Me.gbMixer.Controls.Add(Me.cmdmixersettingsave) + Me.gbMixer.Controls.Add(Me.cmdmastervolume) + Me.gbMixer.Controls.Add(Me.Label108) + Me.gbMixer.Controls.Add(Me.cmdmixerclearformixemodule) + Me.gbMixer.Controls.Add(Me.cmbvideolayerformixer) + Me.gbMixer.Controls.Add(Me.Label99) + Me.gbMixer.Controls.Add(Me.Label49) + Me.gbMixer.Controls.Add(Me.cmbblend) + Me.gbMixer.Controls.Add(Me.gbclip) + Me.gbMixer.Controls.Add(Me.gblevels) + Me.gbMixer.Controls.Add(Me.gbfill) + Me.gbMixer.Controls.Add(Me.cmdmixerclear) + Me.gbMixer.Controls.Add(Me.gbothers) + Me.gbMixer.Location = New System.Drawing.Point(2, 2) + Me.gbMixer.Name = "gbMixer" + Me.gbMixer.Size = New System.Drawing.Size(585, 552) + Me.gbMixer.TabIndex = 423 + Me.gbMixer.TabStop = False + Me.gbMixer.Text = " " + ' + 'gbScalefromCenter + ' + Me.gbScalefromCenter.BackColor = System.Drawing.Color.NavajoWhite + Me.gbScalefromCenter.Controls.Add(Me.Label1) + Me.gbScalefromCenter.Controls.Add(Me.Label2) + Me.gbScalefromCenter.Controls.Add(Me.nscalexfromCenter) + Me.gbScalefromCenter.Controls.Add(Me.nscaleyfromCenter) + Me.gbScalefromCenter.Controls.Add(Me.cmdResetScalefromCenter) + Me.gbScalefromCenter.Location = New System.Drawing.Point(328, 77) + Me.gbScalefromCenter.Name = "gbScalefromCenter" + Me.gbScalefromCenter.Size = New System.Drawing.Size(127, 66) + Me.gbScalefromCenter.TabIndex = 419 + Me.gbScalefromCenter.TabStop = False + Me.gbScalefromCenter.Text = "Scale From Center" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(6, 44) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(44, 13) + Me.Label1.TabIndex = 415 + Me.Label1.Text = "Y Scale" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(6, 24) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(44, 13) + Me.Label2.TabIndex = 414 + Me.Label2.Text = "X Scale" + ' + 'nscalexfromCenter + ' + Me.nscalexfromCenter.DecimalPlaces = 2 + Me.nscalexfromCenter.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nscalexfromCenter.Location = New System.Drawing.Point(51, 19) + Me.nscalexfromCenter.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nscalexfromCenter.Name = "nscalexfromCenter" + Me.nscalexfromCenter.Size = New System.Drawing.Size(46, 20) + Me.nscalexfromCenter.TabIndex = 413 + Me.nscalexfromCenter.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'nscaleyfromCenter + ' + Me.nscaleyfromCenter.DecimalPlaces = 2 + Me.nscaleyfromCenter.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nscaleyfromCenter.Location = New System.Drawing.Point(51, 43) + Me.nscaleyfromCenter.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nscaleyfromCenter.Name = "nscaleyfromCenter" + Me.nscaleyfromCenter.Size = New System.Drawing.Size(46, 20) + Me.nscaleyfromCenter.TabIndex = 412 + Me.nscaleyfromCenter.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'cmdResetScalefromCenter + ' + Me.cmdResetScalefromCenter.Location = New System.Drawing.Point(100, 19) + Me.cmdResetScalefromCenter.Name = "cmdResetScalefromCenter" + Me.cmdResetScalefromCenter.Size = New System.Drawing.Size(21, 44) + Me.cmdResetScalefromCenter.TabIndex = 407 + Me.cmdResetScalefromCenter.Text = "R" + Me.cmdResetScalefromCenter.UseVisualStyleBackColor = True + ' + 'nmixermastervolume + ' + Me.nmixermastervolume.DecimalPlaces = 1 + Me.nmixermastervolume.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nmixermastervolume.Location = New System.Drawing.Point(459, 372) + Me.nmixermastervolume.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) + Me.nmixermastervolume.Name = "nmixermastervolume" + Me.nmixermastervolume.Size = New System.Drawing.Size(38, 20) + Me.nmixermastervolume.TabIndex = 713 + Me.nmixermastervolume.Value = New Decimal(New Integer() {10, 0, 0, 65536}) + ' + 'gbcropmixer + ' + Me.gbcropmixer.BackColor = System.Drawing.Color.Moccasin + Me.gbcropmixer.Controls.Add(Me.Label235) + Me.gbcropmixer.Controls.Add(Me.Label234) + Me.gbcropmixer.Controls.Add(Me.ncropbrx) + Me.gbcropmixer.Controls.Add(Me.ncropbry) + Me.gbcropmixer.Controls.Add(Me.Label189) + Me.gbcropmixer.Controls.Add(Me.Label193) + Me.gbcropmixer.Controls.Add(Me.Label194) + Me.gbcropmixer.Controls.Add(Me.ncroptlx) + Me.gbcropmixer.Controls.Add(Me.ncroptly) + Me.gbcropmixer.Controls.Add(Me.Label199) + Me.gbcropmixer.Controls.Add(Me.Label200) + Me.gbcropmixer.Controls.Add(Me.Label198) + Me.gbcropmixer.Controls.Add(Me.cmdresetcropmixer) + Me.gbcropmixer.Location = New System.Drawing.Point(324, 190) + Me.gbcropmixer.Name = "gbcropmixer" + Me.gbcropmixer.Size = New System.Drawing.Size(176, 97) + Me.gbcropmixer.TabIndex = 434 + Me.gbcropmixer.TabStop = False + Me.gbcropmixer.Text = "Crop" + ' + 'Label235 + ' + Me.Label235.AutoSize = True + Me.Label235.Location = New System.Drawing.Point(96, 77) + Me.Label235.Name = "Label235" + Me.Label235.Size = New System.Drawing.Size(40, 13) + Me.Label235.TabIndex = 713 + Me.Label235.Text = "Bottom" + ' + 'Label234 + ' + Me.Label234.AutoSize = True + Me.Label234.Location = New System.Drawing.Point(31, 76) + Me.Label234.Name = "Label234" + Me.Label234.Size = New System.Drawing.Size(26, 13) + Me.Label234.TabIndex = 714 + Me.Label234.Text = "Top" + ' + 'ncropbrx + ' + Me.ncropbrx.DecimalPlaces = 2 + Me.ncropbrx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.ncropbrx.Location = New System.Drawing.Point(95, 31) + Me.ncropbrx.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.ncropbrx.Name = "ncropbrx" + Me.ncropbrx.Size = New System.Drawing.Size(46, 20) + Me.ncropbrx.TabIndex = 427 + ' + 'ncropbry + ' + Me.ncropbry.DecimalPlaces = 2 + Me.ncropbry.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.ncropbry.Location = New System.Drawing.Point(95, 55) + Me.ncropbry.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.ncropbry.Name = "ncropbry" + Me.ncropbry.Size = New System.Drawing.Size(46, 20) + Me.ncropbry.TabIndex = 426 + ' + 'Label189 + ' + Me.Label189.AutoSize = True + Me.Label189.Location = New System.Drawing.Point(96, 15) + Me.Label189.Name = "Label189" + Me.Label189.Size = New System.Drawing.Size(35, 13) + Me.Label189.TabIndex = 433 + Me.Label189.Text = " Right" + ' + 'Label193 + ' + Me.Label193.AutoSize = True + Me.Label193.Location = New System.Drawing.Point(79, 58) + Me.Label193.Name = "Label193" + Me.Label193.Size = New System.Drawing.Size(14, 13) + Me.Label193.TabIndex = 425 + Me.Label193.Text = "Y" + ' + 'Label194 + ' + Me.Label194.AutoSize = True + Me.Label194.Location = New System.Drawing.Point(77, 37) + Me.Label194.Name = "Label194" + Me.Label194.Size = New System.Drawing.Size(14, 13) + Me.Label194.TabIndex = 424 + Me.Label194.Text = "X" + ' + 'ncroptlx + ' + Me.ncroptlx.DecimalPlaces = 2 + Me.ncroptlx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.ncroptlx.Location = New System.Drawing.Point(25, 28) + Me.ncroptlx.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.ncroptlx.Name = "ncroptlx" + Me.ncroptlx.Size = New System.Drawing.Size(46, 20) + Me.ncroptlx.TabIndex = 417 + ' + 'ncroptly + ' + Me.ncroptly.DecimalPlaces = 2 + Me.ncroptly.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.ncroptly.Location = New System.Drawing.Point(25, 52) + Me.ncroptly.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.ncroptly.Name = "ncroptly" + Me.ncroptly.Size = New System.Drawing.Size(46, 20) + Me.ncroptly.TabIndex = 416 + ' + 'Label199 + ' + Me.Label199.AutoSize = True + Me.Label199.Location = New System.Drawing.Point(11, 55) + Me.Label199.Name = "Label199" + Me.Label199.Size = New System.Drawing.Size(14, 13) + Me.Label199.TabIndex = 410 + Me.Label199.Text = "Y" + ' + 'Label200 + ' + Me.Label200.AutoSize = True + Me.Label200.Location = New System.Drawing.Point(9, 34) + Me.Label200.Name = "Label200" + Me.Label200.Size = New System.Drawing.Size(14, 13) + Me.Label200.TabIndex = 408 + Me.Label200.Text = "X" + ' + 'Label198 + ' + Me.Label198.AutoSize = True + Me.Label198.Location = New System.Drawing.Point(29, 13) + Me.Label198.Name = "Label198" + Me.Label198.Size = New System.Drawing.Size(25, 13) + Me.Label198.TabIndex = 418 + Me.Label198.Text = "Left" + ' + 'cmdresetcropmixer + ' + Me.cmdresetcropmixer.Location = New System.Drawing.Point(148, 20) + Me.cmdresetcropmixer.Name = "cmdresetcropmixer" + Me.cmdresetcropmixer.Size = New System.Drawing.Size(21, 69) + Me.cmdresetcropmixer.TabIndex = 407 + Me.cmdresetcropmixer.Text = "R" + Me.cmdresetcropmixer.UseVisualStyleBackColor = True + ' + 'chkmipmapmixer + ' + Me.chkmipmapmixer.AutoSize = True + Me.chkmipmapmixer.Location = New System.Drawing.Point(382, 407) + Me.chkmipmapmixer.Name = "chkmipmapmixer" + Me.chkmipmapmixer.Size = New System.Drawing.Size(64, 17) + Me.chkmipmapmixer.TabIndex = 712 + Me.chkmipmapmixer.Text = "MipMap" + Me.chkmipmapmixer.UseVisualStyleBackColor = True + ' + 'gbperspectivemixer + ' + Me.gbperspectivemixer.BackColor = System.Drawing.Color.AntiqueWhite + Me.gbperspectivemixer.Controls.Add(Me.Label186) + Me.gbperspectivemixer.Controls.Add(Me.nperspectiveblx) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivebly) + Me.gbperspectivemixer.Controls.Add(Me.Label187) + Me.gbperspectivemixer.Controls.Add(Me.Label188) + Me.gbperspectivemixer.Controls.Add(Me.Label183) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivebrx) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivebry) + Me.gbperspectivemixer.Controls.Add(Me.Label184) + Me.gbperspectivemixer.Controls.Add(Me.Label185) + Me.gbperspectivemixer.Controls.Add(Me.Label180) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivetrx) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivetry) + Me.gbperspectivemixer.Controls.Add(Me.Label181) + Me.gbperspectivemixer.Controls.Add(Me.Label182) + Me.gbperspectivemixer.Controls.Add(Me.Label177) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivetlx) + Me.gbperspectivemixer.Controls.Add(Me.nperspectivetly) + Me.gbperspectivemixer.Controls.Add(Me.Label111) + Me.gbperspectivemixer.Controls.Add(Me.Label112) + Me.gbperspectivemixer.Controls.Add(Me.cmdresetperspectivemixer) + Me.gbperspectivemixer.Location = New System.Drawing.Point(11, 448) + Me.gbperspectivemixer.Name = "gbperspectivemixer" + Me.gbperspectivemixer.Size = New System.Drawing.Size(309, 97) + Me.gbperspectivemixer.TabIndex = 420 + Me.gbperspectivemixer.TabStop = False + Me.gbperspectivemixer.Text = "Perspective" + ' + 'Label186 + ' + Me.Label186.AutoSize = True + Me.Label186.Location = New System.Drawing.Point(139, 19) + Me.Label186.Name = "Label186" + Me.Label186.Size = New System.Drawing.Size(68, 13) + Me.Label186.TabIndex = 433 + Me.Label186.Text = "Bottom Right" + ' + 'nperspectiveblx + ' + Me.nperspectiveblx.DecimalPlaces = 2 + Me.nperspectiveblx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectiveblx.Location = New System.Drawing.Point(218, 42) + Me.nperspectiveblx.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectiveblx.Name = "nperspectiveblx" + Me.nperspectiveblx.Size = New System.Drawing.Size(46, 20) + Me.nperspectiveblx.TabIndex = 432 + ' + 'nperspectivebly + ' + Me.nperspectivebly.DecimalPlaces = 2 + Me.nperspectivebly.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivebly.Location = New System.Drawing.Point(218, 66) + Me.nperspectivebly.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivebly.Name = "nperspectivebly" + Me.nperspectivebly.Size = New System.Drawing.Size(46, 20) + Me.nperspectivebly.TabIndex = 431 + ' + 'Label187 + ' + Me.Label187.AutoSize = True + Me.Label187.Location = New System.Drawing.Point(202, 69) + Me.Label187.Name = "Label187" + Me.Label187.Size = New System.Drawing.Size(14, 13) + Me.Label187.TabIndex = 430 + Me.Label187.Text = "Y" + ' + 'Label188 + ' + Me.Label188.AutoSize = True + Me.Label188.Location = New System.Drawing.Point(200, 48) + Me.Label188.Name = "Label188" + Me.Label188.Size = New System.Drawing.Size(14, 13) + Me.Label188.TabIndex = 429 + Me.Label188.Text = "X" + ' + 'Label183 + ' + Me.Label183.AutoSize = True + Me.Label183.Location = New System.Drawing.Point(214, 20) + Me.Label183.Name = "Label183" + Me.Label183.Size = New System.Drawing.Size(61, 13) + Me.Label183.TabIndex = 428 + Me.Label183.Text = "Bottom Left" + ' + 'nperspectivebrx + ' + Me.nperspectivebrx.DecimalPlaces = 2 + Me.nperspectivebrx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivebrx.Location = New System.Drawing.Point(150, 41) + Me.nperspectivebrx.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivebrx.Name = "nperspectivebrx" + Me.nperspectivebrx.Size = New System.Drawing.Size(46, 20) + Me.nperspectivebrx.TabIndex = 427 + ' + 'nperspectivebry + ' + Me.nperspectivebry.DecimalPlaces = 2 + Me.nperspectivebry.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivebry.Location = New System.Drawing.Point(150, 65) + Me.nperspectivebry.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivebry.Name = "nperspectivebry" + Me.nperspectivebry.Size = New System.Drawing.Size(46, 20) + Me.nperspectivebry.TabIndex = 426 + ' + 'Label184 + ' + Me.Label184.AutoSize = True + Me.Label184.Location = New System.Drawing.Point(134, 68) + Me.Label184.Name = "Label184" + Me.Label184.Size = New System.Drawing.Size(14, 13) + Me.Label184.TabIndex = 425 + Me.Label184.Text = "Y" + ' + 'Label185 + ' + Me.Label185.AutoSize = True + Me.Label185.Location = New System.Drawing.Point(132, 47) + Me.Label185.Name = "Label185" + Me.Label185.Size = New System.Drawing.Size(14, 13) + Me.Label185.TabIndex = 424 + Me.Label185.Text = "X" + ' + 'Label180 + ' + Me.Label180.AutoSize = True + Me.Label180.Location = New System.Drawing.Point(72, 20) + Me.Label180.Name = "Label180" + Me.Label180.Size = New System.Drawing.Size(54, 13) + Me.Label180.TabIndex = 423 + Me.Label180.Text = "Top Right" + ' + 'nperspectivetrx + ' + Me.nperspectivetrx.DecimalPlaces = 2 + Me.nperspectivetrx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivetrx.Location = New System.Drawing.Point(84, 40) + Me.nperspectivetrx.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivetrx.Name = "nperspectivetrx" + Me.nperspectivetrx.Size = New System.Drawing.Size(46, 20) + Me.nperspectivetrx.TabIndex = 422 + ' + 'nperspectivetry + ' + Me.nperspectivetry.DecimalPlaces = 2 + Me.nperspectivetry.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivetry.Location = New System.Drawing.Point(84, 64) + Me.nperspectivetry.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivetry.Name = "nperspectivetry" + Me.nperspectivetry.Size = New System.Drawing.Size(46, 20) + Me.nperspectivetry.TabIndex = 421 + ' + 'Label181 + ' + Me.Label181.AutoSize = True + Me.Label181.Location = New System.Drawing.Point(68, 67) + Me.Label181.Name = "Label181" + Me.Label181.Size = New System.Drawing.Size(14, 13) + Me.Label181.TabIndex = 420 + Me.Label181.Text = "Y" + ' + 'Label182 + ' + Me.Label182.AutoSize = True + Me.Label182.Location = New System.Drawing.Point(65, 43) + Me.Label182.Name = "Label182" + Me.Label182.Size = New System.Drawing.Size(14, 13) + Me.Label182.TabIndex = 419 + Me.Label182.Text = "X" + ' + 'Label177 + ' + Me.Label177.AutoSize = True + Me.Label177.Location = New System.Drawing.Point(7, 18) + Me.Label177.Name = "Label177" + Me.Label177.Size = New System.Drawing.Size(47, 13) + Me.Label177.TabIndex = 418 + Me.Label177.Text = "Top Left" + ' + 'nperspectivetlx + ' + Me.nperspectivetlx.DecimalPlaces = 2 + Me.nperspectivetlx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivetlx.Location = New System.Drawing.Point(19, 38) + Me.nperspectivetlx.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivetlx.Name = "nperspectivetlx" + Me.nperspectivetlx.Size = New System.Drawing.Size(46, 20) + Me.nperspectivetlx.TabIndex = 417 + ' + 'nperspectivetly + ' + Me.nperspectivetly.DecimalPlaces = 2 + Me.nperspectivetly.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nperspectivetly.Location = New System.Drawing.Point(19, 62) + Me.nperspectivetly.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nperspectivetly.Name = "nperspectivetly" + Me.nperspectivetly.Size = New System.Drawing.Size(46, 20) + Me.nperspectivetly.TabIndex = 416 + ' + 'Label111 + ' + Me.Label111.AutoSize = True + Me.Label111.Location = New System.Drawing.Point(5, 65) + Me.Label111.Name = "Label111" + Me.Label111.Size = New System.Drawing.Size(14, 13) + Me.Label111.TabIndex = 410 + Me.Label111.Text = "Y" + ' + 'Label112 + ' + Me.Label112.AutoSize = True + Me.Label112.Location = New System.Drawing.Point(3, 44) + Me.Label112.Name = "Label112" + Me.Label112.Size = New System.Drawing.Size(14, 13) + Me.Label112.TabIndex = 408 + Me.Label112.Text = "X" + ' + 'cmdresetperspectivemixer + ' + Me.cmdresetperspectivemixer.Location = New System.Drawing.Point(281, 22) + Me.cmdresetperspectivemixer.Name = "cmdresetperspectivemixer" + Me.cmdresetperspectivemixer.Size = New System.Drawing.Size(21, 69) + Me.cmdresetperspectivemixer.TabIndex = 407 + Me.cmdresetperspectivemixer.Text = "R" + Me.cmdresetperspectivemixer.UseVisualStyleBackColor = True + ' + 'cmdgetstatusofmixer + ' + Me.cmdgetstatusofmixer.Location = New System.Drawing.Point(503, 13) + Me.cmdgetstatusofmixer.Name = "cmdgetstatusofmixer" + Me.cmdgetstatusofmixer.Size = New System.Drawing.Size(74, 27) + Me.cmdgetstatusofmixer.TabIndex = 711 + Me.cmdgetstatusofmixer.Text = "Get Status" + Me.cmdgetstatusofmixer.UseVisualStyleBackColor = True + ' + 'gbrotationmixer + ' + Me.gbrotationmixer.BackColor = System.Drawing.Color.Moccasin + Me.gbrotationmixer.Controls.Add(Me.Label176) + Me.gbrotationmixer.Controls.Add(Me.nrotationz) + Me.gbrotationmixer.Controls.Add(Me.cmdresetrotationmixer) + Me.gbrotationmixer.Location = New System.Drawing.Point(185, 360) + Me.gbrotationmixer.Name = "gbrotationmixer" + Me.gbrotationmixer.Size = New System.Drawing.Size(131, 69) + Me.gbrotationmixer.TabIndex = 420 + Me.gbrotationmixer.TabStop = False + Me.gbrotationmixer.Text = "Rotation" + ' + 'Label176 + ' + Me.Label176.AutoSize = True + Me.Label176.Location = New System.Drawing.Point(14, 19) + Me.Label176.Name = "Label176" + Me.Label176.Size = New System.Drawing.Size(14, 13) + Me.Label176.TabIndex = 418 + Me.Label176.Text = "Z" + ' + 'nrotationz + ' + Me.nrotationz.DecimalPlaces = 2 + Me.nrotationz.Location = New System.Drawing.Point(32, 15) + Me.nrotationz.Maximum = New Decimal(New Integer() {360, 0, 0, 0}) + Me.nrotationz.Minimum = New Decimal(New Integer() {360, 0, 0, -2147483648}) + Me.nrotationz.Name = "nrotationz" + Me.nrotationz.Size = New System.Drawing.Size(64, 20) + Me.nrotationz.TabIndex = 413 + ' + 'cmdresetrotationmixer + ' + Me.cmdresetrotationmixer.Location = New System.Drawing.Point(101, 15) + Me.cmdresetrotationmixer.Name = "cmdresetrotationmixer" + Me.cmdresetrotationmixer.Size = New System.Drawing.Size(21, 20) + Me.cmdresetrotationmixer.TabIndex = 407 + Me.cmdresetrotationmixer.Text = "R" + Me.cmdresetrotationmixer.UseVisualStyleBackColor = True + ' + 'gbanchormixer + ' + Me.gbanchormixer.BackColor = System.Drawing.Color.Bisque + Me.gbanchormixer.Controls.Add(Me.nanchorx) + Me.gbanchormixer.Controls.Add(Me.nanchory) + Me.gbanchormixer.Controls.Add(Me.Label178) + Me.gbanchormixer.Controls.Add(Me.Label179) + Me.gbanchormixer.Controls.Add(Me.cmdresetanchormixer) + Me.gbanchormixer.Location = New System.Drawing.Point(14, 360) + Me.gbanchormixer.Name = "gbanchormixer" + Me.gbanchormixer.Size = New System.Drawing.Size(149, 69) + Me.gbanchormixer.TabIndex = 419 + Me.gbanchormixer.TabStop = False + Me.gbanchormixer.Text = "Anchor" + ' + 'nanchorx + ' + Me.nanchorx.DecimalPlaces = 2 + Me.nanchorx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nanchorx.Location = New System.Drawing.Point(63, 17) + Me.nanchorx.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nanchorx.Minimum = New Decimal(New Integer() {1, 0, 0, -2147483648}) + Me.nanchorx.Name = "nanchorx" + Me.nanchorx.Size = New System.Drawing.Size(46, 20) + Me.nanchorx.TabIndex = 417 + ' + 'nanchory + ' + Me.nanchory.DecimalPlaces = 2 + Me.nanchory.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nanchory.Location = New System.Drawing.Point(63, 41) + Me.nanchory.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nanchory.Minimum = New Decimal(New Integer() {1, 0, 0, -2147483648}) + Me.nanchory.Name = "nanchory" + Me.nanchory.Size = New System.Drawing.Size(46, 20) + Me.nanchory.TabIndex = 416 + ' + 'Label178 + ' + Me.Label178.AutoSize = True + Me.Label178.Location = New System.Drawing.Point(47, 44) + Me.Label178.Name = "Label178" + Me.Label178.Size = New System.Drawing.Size(14, 13) + Me.Label178.TabIndex = 410 + Me.Label178.Text = "Y" + ' + 'Label179 + ' + Me.Label179.AutoSize = True + Me.Label179.Location = New System.Drawing.Point(45, 23) + Me.Label179.Name = "Label179" + Me.Label179.Size = New System.Drawing.Size(14, 13) + Me.Label179.TabIndex = 408 + Me.Label179.Text = "X" + ' + 'cmdresetanchormixer + ' + Me.cmdresetanchormixer.Location = New System.Drawing.Point(112, 15) + Me.cmdresetanchormixer.Name = "cmdresetanchormixer" + Me.cmdresetanchormixer.Size = New System.Drawing.Size(21, 45) + Me.cmdresetanchormixer.TabIndex = 407 + Me.cmdresetanchormixer.Text = "R" + Me.cmdresetanchormixer.UseVisualStyleBackColor = True + ' + 'cmdmixersettingopen + ' + Me.cmdmixersettingopen.Location = New System.Drawing.Point(523, 214) + Me.cmdmixersettingopen.Name = "cmdmixersettingopen" + Me.cmdmixersettingopen.Size = New System.Drawing.Size(54, 40) + Me.cmdmixersettingopen.TabIndex = 484 + Me.cmdmixersettingopen.Text = "Open Setting" + Me.cmdmixersettingopen.UseVisualStyleBackColor = True + ' + 'cmdmixersettingsave + ' + Me.cmdmixersettingsave.Location = New System.Drawing.Point(523, 169) + Me.cmdmixersettingsave.Name = "cmdmixersettingsave" + Me.cmdmixersettingsave.Size = New System.Drawing.Size(54, 39) + Me.cmdmixersettingsave.TabIndex = 483 + Me.cmdmixersettingsave.Text = "Save Setting" + Me.cmdmixersettingsave.UseVisualStyleBackColor = True + ' + 'cmdmastervolume + ' + Me.cmdmastervolume.Location = New System.Drawing.Point(503, 372) + Me.cmdmastervolume.Name = "cmdmastervolume" + Me.cmdmastervolume.Size = New System.Drawing.Size(23, 22) + Me.cmdmastervolume.TabIndex = 406 + Me.cmdmastervolume.Text = "RST" + Me.cmdmastervolume.UseVisualStyleBackColor = True + ' + 'Label108 + ' + Me.Label108.AutoSize = True + Me.Label108.Location = New System.Drawing.Point(377, 373) + Me.Label108.Name = "Label108" + Me.Label108.Size = New System.Drawing.Size(77, 13) + Me.Label108.TabIndex = 402 + Me.Label108.Text = "Master Volume" + ' + 'cmdmixerclearformixemodule + ' + Me.cmdmixerclearformixemodule.Location = New System.Drawing.Point(523, 45) + Me.cmdmixerclearformixemodule.Name = "cmdmixerclearformixemodule" + Me.cmdmixerclearformixemodule.Size = New System.Drawing.Size(54, 62) + Me.cmdmixerclearformixemodule.TabIndex = 425 + Me.cmdmixerclearformixemodule.Text = "Reset Mixer of Channel" + Me.cmdmixerclearformixemodule.UseVisualStyleBackColor = True + ' + 'cmbvideolayerformixer + ' + Me.cmbvideolayerformixer.FormattingEnabled = True + Me.cmbvideolayerformixer.Items.AddRange(New Object() {"1", "6", "11", "16", "21", "26", "31", "36", "41", "46", "51", "56", "61", "66", "71", "76", "81", "86", "9999"}) + Me.cmbvideolayerformixer.Location = New System.Drawing.Point(454, 17) + Me.cmbvideolayerformixer.Name = "cmbvideolayerformixer" + Me.cmbvideolayerformixer.Size = New System.Drawing.Size(44, 21) + Me.cmbvideolayerformixer.TabIndex = 423 + Me.cmbvideolayerformixer.Text = "1" + ' + 'Label99 + ' + Me.Label99.AutoSize = True + Me.Label99.Location = New System.Drawing.Point(386, 20) + Me.Label99.Name = "Label99" + Me.Label99.Size = New System.Drawing.Size(63, 13) + Me.Label99.TabIndex = 422 + Me.Label99.Text = "Video Layer" + ' + 'Label49 + ' + Me.Label49.AutoSize = True + Me.Label49.Location = New System.Drawing.Point(333, 332) + Me.Label49.Name = "Label49" + Me.Label49.Size = New System.Drawing.Size(34, 13) + Me.Label49.TabIndex = 402 + Me.Label49.Text = "Blend" + ' + 'cmbblend + ' + Me.cmbblend.FormattingEnabled = True + Me.cmbblend.Items.AddRange(New Object() {"Normal", "Lighten", "Darken", "Multiply", "Average", "Add", "Subtract", "Difference", "Negation", "Exclusion", "Screen", "Overlay", "Soft_Light", "Hard_Light", "Color_Dodge"}) + Me.cmbblend.Location = New System.Drawing.Point(378, 327) + Me.cmbblend.Name = "cmbblend" + Me.cmbblend.Size = New System.Drawing.Size(148, 21) + Me.cmbblend.TabIndex = 421 + Me.cmbblend.Text = "Normal" + ' + 'gbclip + ' + Me.gbclip.BackColor = System.Drawing.Color.SandyBrown + Me.gbclip.Controls.Add(Me.nclipx) + Me.gbclip.Controls.Add(Me.nclipy) + Me.gbclip.Controls.Add(Me.Label35) + Me.gbclip.Controls.Add(Me.Label42) + Me.gbclip.Controls.Add(Me.nclipxsclae) + Me.gbclip.Controls.Add(Me.nclipyscale) + Me.gbclip.Controls.Add(Me.Label47) + Me.gbclip.Controls.Add(Me.Label48) + Me.gbclip.Controls.Add(Me.cmdclipreset) + Me.gbclip.Location = New System.Drawing.Point(188, 10) + Me.gbclip.Name = "gbclip" + Me.gbclip.Size = New System.Drawing.Size(127, 138) + Me.gbclip.TabIndex = 419 + Me.gbclip.TabStop = False + Me.gbclip.Text = "Clip" + ' + 'nclipx + ' + Me.nclipx.DecimalPlaces = 2 + Me.nclipx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nclipx.Location = New System.Drawing.Point(49, 29) + Me.nclipx.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nclipx.Name = "nclipx" + Me.nclipx.Size = New System.Drawing.Size(46, 20) + Me.nclipx.TabIndex = 417 + ' + 'nclipy + ' + Me.nclipy.DecimalPlaces = 2 + Me.nclipy.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nclipy.Location = New System.Drawing.Point(49, 53) + Me.nclipy.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nclipy.Name = "nclipy" + Me.nclipy.Size = New System.Drawing.Size(46, 20) + Me.nclipy.TabIndex = 416 + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.Location = New System.Drawing.Point(4, 102) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(40, 13) + Me.Label35.TabIndex = 415 + Me.Label35.Text = "Buttom" + ' + 'Label42 + ' + Me.Label42.AutoSize = True + Me.Label42.Location = New System.Drawing.Point(17, 80) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(32, 13) + Me.Label42.TabIndex = 414 + Me.Label42.Text = "Right" + ' + 'nclipxsclae + ' + Me.nclipxsclae.DecimalPlaces = 2 + Me.nclipxsclae.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nclipxsclae.Location = New System.Drawing.Point(49, 77) + Me.nclipxsclae.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nclipxsclae.Name = "nclipxsclae" + Me.nclipxsclae.Size = New System.Drawing.Size(46, 20) + Me.nclipxsclae.TabIndex = 413 + ' + 'nclipyscale + ' + Me.nclipyscale.DecimalPlaces = 2 + Me.nclipyscale.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nclipyscale.Location = New System.Drawing.Point(49, 101) + Me.nclipyscale.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nclipyscale.Name = "nclipyscale" + Me.nclipyscale.Size = New System.Drawing.Size(46, 20) + Me.nclipyscale.TabIndex = 412 + ' + 'Label47 + ' + Me.Label47.AutoSize = True + Me.Label47.Location = New System.Drawing.Point(18, 55) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(26, 13) + Me.Label47.TabIndex = 410 + Me.Label47.Text = "Top" + ' + 'Label48 + ' + Me.Label48.AutoSize = True + Me.Label48.Location = New System.Drawing.Point(1, 31) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(47, 13) + Me.Label48.TabIndex = 408 + Me.Label48.Text = "From left" + ' + 'cmdclipreset + ' + Me.cmdclipreset.Location = New System.Drawing.Point(100, 28) + Me.cmdclipreset.Name = "cmdclipreset" + Me.cmdclipreset.Size = New System.Drawing.Size(21, 94) + Me.cmdclipreset.TabIndex = 407 + Me.cmdclipreset.Text = "R" + Me.cmdclipreset.UseVisualStyleBackColor = True + ' + 'gblevels + ' + Me.gblevels.BackColor = System.Drawing.Color.PeachPuff + Me.gblevels.Controls.Add(Me.Label40) + Me.gblevels.Controls.Add(Me.ngamma) + Me.gblevels.Controls.Add(Me.Label39) + Me.gblevels.Controls.Add(Me.Label38) + Me.gblevels.Controls.Add(Me.nmax_output) + Me.gblevels.Controls.Add(Me.nmin_output) + Me.gblevels.Controls.Add(Me.nmax_input) + Me.gblevels.Controls.Add(Me.Label37) + Me.gblevels.Controls.Add(Me.nmin_input) + Me.gblevels.Controls.Add(Me.Label36) + Me.gblevels.Controls.Add(Me.cmdLevels) + Me.gblevels.Location = New System.Drawing.Point(10, 186) + Me.gblevels.Name = "gblevels" + Me.gblevels.Size = New System.Drawing.Size(149, 136) + Me.gblevels.TabIndex = 419 + Me.gblevels.TabStop = False + Me.gblevels.Text = "Levels" + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.Location = New System.Drawing.Point(3, 64) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(41, 13) + Me.Label40.TabIndex = 401 + Me.Label40.Text = "gamma" + ' + 'ngamma + ' + Me.ngamma.DecimalPlaces = 1 + Me.ngamma.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.ngamma.Location = New System.Drawing.Point(64, 62) + Me.ngamma.Maximum = New Decimal(New Integer() {20, 0, 0, 0}) + Me.ngamma.Name = "ngamma" + Me.ngamma.Size = New System.Drawing.Size(46, 20) + Me.ngamma.TabIndex = 400 + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.Location = New System.Drawing.Point(0, 112) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(62, 13) + Me.Label39.TabIndex = 399 + Me.Label39.Text = "max_output" + ' + 'Label38 + ' + Me.Label38.AutoSize = True + Me.Label38.Location = New System.Drawing.Point(3, 90) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(59, 13) + Me.Label38.TabIndex = 398 + Me.Label38.Text = "min_output" + ' + 'nmax_output + ' + Me.nmax_output.DecimalPlaces = 1 + Me.nmax_output.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nmax_output.Location = New System.Drawing.Point(64, 110) + Me.nmax_output.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nmax_output.Name = "nmax_output" + Me.nmax_output.Size = New System.Drawing.Size(46, 20) + Me.nmax_output.TabIndex = 397 + ' + 'nmin_output + ' + Me.nmin_output.DecimalPlaces = 1 + Me.nmin_output.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nmin_output.Location = New System.Drawing.Point(64, 88) + Me.nmin_output.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nmin_output.Name = "nmin_output" + Me.nmin_output.Size = New System.Drawing.Size(46, 20) + Me.nmin_output.TabIndex = 396 + ' + 'nmax_input + ' + Me.nmax_input.DecimalPlaces = 1 + Me.nmax_input.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nmax_input.Location = New System.Drawing.Point(65, 38) + Me.nmax_input.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nmax_input.Name = "nmax_input" + Me.nmax_input.Size = New System.Drawing.Size(46, 20) + Me.nmax_input.TabIndex = 391 + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Location = New System.Drawing.Point(7, 40) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(55, 13) + Me.Label37.TabIndex = 390 + Me.Label37.Text = "max_input" + ' + 'nmin_input + ' + Me.nmin_input.DecimalPlaces = 1 + Me.nmin_input.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nmin_input.Location = New System.Drawing.Point(65, 16) + Me.nmin_input.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nmin_input.Name = "nmin_input" + Me.nmin_input.Size = New System.Drawing.Size(46, 20) + Me.nmin_input.TabIndex = 389 + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.Location = New System.Drawing.Point(7, 17) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(52, 13) + Me.Label36.TabIndex = 388 + Me.Label36.Text = "min_input" + ' + 'cmdLevels + ' + Me.cmdLevels.Location = New System.Drawing.Point(114, 15) + Me.cmdLevels.Name = "cmdLevels" + Me.cmdLevels.Size = New System.Drawing.Size(21, 118) + Me.cmdLevels.TabIndex = 387 + Me.cmdLevels.Text = "R" + Me.cmdLevels.UseVisualStyleBackColor = True + ' + 'gbfill + ' + Me.gbfill.BackColor = System.Drawing.Color.PapayaWhip + Me.gbfill.Controls.Add(Me.nfillx) + Me.gbfill.Controls.Add(Me.nfilly) + Me.gbfill.Controls.Add(Me.Label43) + Me.gbfill.Controls.Add(Me.Label44) + Me.gbfill.Controls.Add(Me.nfillwidth) + Me.gbfill.Controls.Add(Me.nfillheight) + Me.gbfill.Controls.Add(Me.Label45) + Me.gbfill.Controls.Add(Me.Label46) + Me.gbfill.Controls.Add(Me.cmdfill) + Me.gbfill.Location = New System.Drawing.Point(188, 195) + Me.gbfill.Name = "gbfill" + Me.gbfill.Size = New System.Drawing.Size(127, 132) + Me.gbfill.TabIndex = 418 + Me.gbfill.TabStop = False + Me.gbfill.Text = "Fill" + ' + 'nfillx + ' + Me.nfillx.DecimalPlaces = 2 + Me.nfillx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nfillx.Location = New System.Drawing.Point(49, 29) + Me.nfillx.Maximum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.nfillx.Minimum = New Decimal(New Integer() {2, 0, 0, -2147483648}) + Me.nfillx.Name = "nfillx" + Me.nfillx.Size = New System.Drawing.Size(46, 20) + Me.nfillx.TabIndex = 417 + ' + 'nfilly + ' + Me.nfilly.DecimalPlaces = 2 + Me.nfilly.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nfilly.Location = New System.Drawing.Point(49, 53) + Me.nfilly.Maximum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.nfilly.Minimum = New Decimal(New Integer() {2, 0, 0, -2147483648}) + Me.nfilly.Name = "nfilly" + Me.nfilly.Size = New System.Drawing.Size(46, 20) + Me.nfilly.TabIndex = 416 + ' + 'Label43 + ' + Me.Label43.AutoSize = True + Me.Label43.Location = New System.Drawing.Point(4, 102) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(44, 13) + Me.Label43.TabIndex = 415 + Me.Label43.Text = "Y Scale" + ' + 'Label44 + ' + Me.Label44.AutoSize = True + Me.Label44.Location = New System.Drawing.Point(4, 82) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(44, 13) + Me.Label44.TabIndex = 414 + Me.Label44.Text = "X Scale" + ' + 'nfillwidth + ' + Me.nfillwidth.DecimalPlaces = 2 + Me.nfillwidth.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nfillwidth.Location = New System.Drawing.Point(49, 77) + Me.nfillwidth.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nfillwidth.Name = "nfillwidth" + Me.nfillwidth.Size = New System.Drawing.Size(46, 20) + Me.nfillwidth.TabIndex = 413 + ' + 'nfillheight + ' + Me.nfillheight.DecimalPlaces = 2 + Me.nfillheight.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nfillheight.Location = New System.Drawing.Point(49, 101) + Me.nfillheight.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nfillheight.Name = "nfillheight" + Me.nfillheight.Size = New System.Drawing.Size(46, 20) + Me.nfillheight.TabIndex = 412 + ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.Location = New System.Drawing.Point(33, 56) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(14, 13) + Me.Label45.TabIndex = 410 + Me.Label45.Text = "Y" + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Location = New System.Drawing.Point(31, 35) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(14, 13) + Me.Label46.TabIndex = 408 + Me.Label46.Text = "X" + ' + 'cmdfill + ' + Me.cmdfill.Location = New System.Drawing.Point(98, 27) + Me.cmdfill.Name = "cmdfill" + Me.cmdfill.Size = New System.Drawing.Size(21, 94) + Me.cmdfill.TabIndex = 407 + Me.cmdfill.Text = "R" + Me.cmdfill.UseVisualStyleBackColor = True + ' + 'cmdmixerclear + ' + Me.cmdmixerclear.Location = New System.Drawing.Point(523, 108) + Me.cmdmixerclear.Name = "cmdmixerclear" + Me.cmdmixerclear.Size = New System.Drawing.Size(54, 59) + Me.cmdmixerclear.TabIndex = 402 + Me.cmdmixerclear.Text = "Reset Mixer Layer" + Me.cmdmixerclear.UseVisualStyleBackColor = True + ' + 'gbothers + ' + Me.gbothers.BackColor = System.Drawing.Color.Cornsilk + Me.gbothers.Controls.Add(Me.nVolume) + Me.gbothers.Controls.Add(Me.cmdVolume) + Me.gbothers.Controls.Add(Me.Label41) + Me.gbothers.Controls.Add(Me.nContrast) + Me.gbothers.Controls.Add(Me.nSaturation) + Me.gbothers.Controls.Add(Me.Label32) + Me.gbothers.Controls.Add(Me.nbrightness) + Me.gbothers.Controls.Add(Me.nopacity) + Me.gbothers.Controls.Add(Me.cmdContrast) + Me.gbothers.Controls.Add(Me.Label34) + Me.gbothers.Controls.Add(Me.cmdSaturation) + Me.gbothers.Controls.Add(Me.Label33) + Me.gbothers.Controls.Add(Me.cmdbrightness) + Me.gbothers.Controls.Add(Me.cmdopacity) + Me.gbothers.Controls.Add(Me.Label31) + Me.gbothers.Location = New System.Drawing.Point(11, 11) + Me.gbothers.Name = "gbothers" + Me.gbothers.Size = New System.Drawing.Size(149, 135) + Me.gbothers.TabIndex = 420 + Me.gbothers.TabStop = False + ' + 'nVolume + ' + Me.nVolume.DecimalPlaces = 1 + Me.nVolume.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nVolume.Location = New System.Drawing.Point(70, 13) + Me.nVolume.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) + Me.nVolume.Name = "nVolume" + Me.nVolume.Size = New System.Drawing.Size(46, 20) + Me.nVolume.TabIndex = 405 + ' + 'cmdVolume + ' + Me.cmdVolume.Location = New System.Drawing.Point(118, 11) + Me.cmdVolume.Name = "cmdVolume" + Me.cmdVolume.Size = New System.Drawing.Size(23, 22) + Me.cmdVolume.TabIndex = 404 + Me.cmdVolume.Text = "RST" + Me.cmdVolume.UseVisualStyleBackColor = True + ' + 'Label41 + ' + Me.Label41.AutoSize = True + Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label41.Location = New System.Drawing.Point(13, 15) + Me.Label41.Name = "Label41" + Me.Label41.Size = New System.Drawing.Size(42, 13) + Me.Label41.TabIndex = 403 + Me.Label41.Text = "Volume" + ' + 'nContrast + ' + Me.nContrast.DecimalPlaces = 1 + Me.nContrast.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nContrast.Location = New System.Drawing.Point(72, 109) + Me.nContrast.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) + Me.nContrast.Minimum = New Decimal(New Integer() {500, 0, 0, -2147483648}) + Me.nContrast.Name = "nContrast" + Me.nContrast.Size = New System.Drawing.Size(46, 20) + Me.nContrast.TabIndex = 395 + ' + 'nSaturation + ' + Me.nSaturation.DecimalPlaces = 1 + Me.nSaturation.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nSaturation.Location = New System.Drawing.Point(72, 84) + Me.nSaturation.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) + Me.nSaturation.Minimum = New Decimal(New Integer() {500, 0, 0, -2147483648}) + Me.nSaturation.Name = "nSaturation" + Me.nSaturation.Size = New System.Drawing.Size(46, 20) + Me.nSaturation.TabIndex = 394 + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label32.Location = New System.Drawing.Point(6, 62) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(56, 13) + Me.Label32.TabIndex = 376 + Me.Label32.Text = "Brightness" + ' + 'nbrightness + ' + Me.nbrightness.DecimalPlaces = 1 + Me.nbrightness.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nbrightness.Location = New System.Drawing.Point(70, 60) + Me.nbrightness.Maximum = New Decimal(New Integer() {20, 0, 0, 0}) + Me.nbrightness.Name = "nbrightness" + Me.nbrightness.Size = New System.Drawing.Size(46, 20) + Me.nbrightness.TabIndex = 393 + ' + 'nopacity + ' + Me.nopacity.DecimalPlaces = 1 + Me.nopacity.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nopacity.Location = New System.Drawing.Point(70, 35) + Me.nopacity.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nopacity.Name = "nopacity" + Me.nopacity.Size = New System.Drawing.Size(46, 20) + Me.nopacity.TabIndex = 392 + ' + 'cmdContrast + ' + Me.cmdContrast.Location = New System.Drawing.Point(119, 107) + Me.cmdContrast.Name = "cmdContrast" + Me.cmdContrast.Size = New System.Drawing.Size(21, 23) + Me.cmdContrast.TabIndex = 384 + Me.cmdContrast.Text = "Reset" + Me.cmdContrast.UseVisualStyleBackColor = True + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label34.Location = New System.Drawing.Point(13, 110) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(46, 13) + Me.Label34.TabIndex = 382 + Me.Label34.Text = "Contrast" + ' + 'cmdSaturation + ' + Me.cmdSaturation.Location = New System.Drawing.Point(119, 83) + Me.cmdSaturation.Name = "cmdSaturation" + Me.cmdSaturation.Size = New System.Drawing.Size(24, 19) + Me.cmdSaturation.TabIndex = 381 + Me.cmdSaturation.Text = "Reset" + Me.cmdSaturation.UseVisualStyleBackColor = True + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label33.Location = New System.Drawing.Point(1, 86) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(55, 13) + Me.Label33.TabIndex = 379 + Me.Label33.Text = "Saturation" + ' + 'cmdbrightness + ' + Me.cmdbrightness.Location = New System.Drawing.Point(117, 58) + Me.cmdbrightness.Name = "cmdbrightness" + Me.cmdbrightness.Size = New System.Drawing.Size(23, 21) + Me.cmdbrightness.TabIndex = 378 + Me.cmdbrightness.Text = "Reset" + Me.cmdbrightness.UseVisualStyleBackColor = True + ' + 'cmdopacity + ' + Me.cmdopacity.Location = New System.Drawing.Point(118, 33) + Me.cmdopacity.Name = "cmdopacity" + Me.cmdopacity.Size = New System.Drawing.Size(23, 22) + Me.cmdopacity.TabIndex = 375 + Me.cmdopacity.Text = "RST" + Me.cmdopacity.UseVisualStyleBackColor = True + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label31.Location = New System.Drawing.Point(13, 37) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(43, 13) + Me.Label31.TabIndex = 373 + Me.Label31.Text = "Opacity" + ' + 'ucMixernew + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.Controls.Add(Me.gbMixer) + Me.Name = "ucMixernew" + Me.Size = New System.Drawing.Size(591, 557) + Me.gbMixer.ResumeLayout(False) + Me.gbMixer.PerformLayout() + Me.gbScalefromCenter.ResumeLayout(False) + Me.gbScalefromCenter.PerformLayout() + CType(Me.nscalexfromCenter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nscaleyfromCenter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nmixermastervolume, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbcropmixer.ResumeLayout(False) + Me.gbcropmixer.PerformLayout() + CType(Me.ncropbrx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ncropbry, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ncroptlx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ncroptly, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbperspectivemixer.ResumeLayout(False) + Me.gbperspectivemixer.PerformLayout() + CType(Me.nperspectiveblx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivebly, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivebrx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivebry, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivetrx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivetry, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivetlx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nperspectivetly, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbrotationmixer.ResumeLayout(False) + Me.gbrotationmixer.PerformLayout() + CType(Me.nrotationz, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbanchormixer.ResumeLayout(False) + Me.gbanchormixer.PerformLayout() + CType(Me.nanchorx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nanchory, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbclip.ResumeLayout(False) + Me.gbclip.PerformLayout() + CType(Me.nclipx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nclipy, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nclipxsclae, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nclipyscale, System.ComponentModel.ISupportInitialize).EndInit() + Me.gblevels.ResumeLayout(False) + Me.gblevels.PerformLayout() + CType(Me.ngamma, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nmax_output, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nmin_output, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nmax_input, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nmin_input, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbfill.ResumeLayout(False) + Me.gbfill.PerformLayout() + CType(Me.nfillx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nfilly, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nfillwidth, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nfillheight, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbothers.ResumeLayout(False) + Me.gbothers.PerformLayout() + CType(Me.nVolume, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nContrast, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nSaturation, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nbrightness, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nopacity, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbMixer As System.Windows.Forms.GroupBox + Friend WithEvents nmixermastervolume As System.Windows.Forms.NumericUpDown + Friend WithEvents gbcropmixer As System.Windows.Forms.GroupBox + Friend WithEvents Label235 As System.Windows.Forms.Label + Friend WithEvents Label234 As System.Windows.Forms.Label + Friend WithEvents ncropbrx As System.Windows.Forms.NumericUpDown + Friend WithEvents ncropbry As System.Windows.Forms.NumericUpDown + Friend WithEvents Label189 As System.Windows.Forms.Label + Friend WithEvents Label193 As System.Windows.Forms.Label + Friend WithEvents Label194 As System.Windows.Forms.Label + Friend WithEvents ncroptlx As System.Windows.Forms.NumericUpDown + Friend WithEvents ncroptly As System.Windows.Forms.NumericUpDown + Friend WithEvents Label199 As System.Windows.Forms.Label + Friend WithEvents Label200 As System.Windows.Forms.Label + Friend WithEvents Label198 As System.Windows.Forms.Label + Friend WithEvents cmdresetcropmixer As System.Windows.Forms.Button + Friend WithEvents chkmipmapmixer As System.Windows.Forms.CheckBox + Friend WithEvents gbperspectivemixer As System.Windows.Forms.GroupBox + Friend WithEvents Label186 As System.Windows.Forms.Label + Friend WithEvents nperspectiveblx As System.Windows.Forms.NumericUpDown + Friend WithEvents nperspectivebly As System.Windows.Forms.NumericUpDown + Friend WithEvents Label187 As System.Windows.Forms.Label + Friend WithEvents Label188 As System.Windows.Forms.Label + Friend WithEvents Label183 As System.Windows.Forms.Label + Friend WithEvents nperspectivebrx As System.Windows.Forms.NumericUpDown + Friend WithEvents nperspectivebry As System.Windows.Forms.NumericUpDown + Friend WithEvents Label184 As System.Windows.Forms.Label + Friend WithEvents Label185 As System.Windows.Forms.Label + Friend WithEvents Label180 As System.Windows.Forms.Label + Friend WithEvents nperspectivetrx As System.Windows.Forms.NumericUpDown + Friend WithEvents nperspectivetry As System.Windows.Forms.NumericUpDown + Friend WithEvents Label181 As System.Windows.Forms.Label + Friend WithEvents Label182 As System.Windows.Forms.Label + Friend WithEvents Label177 As System.Windows.Forms.Label + Friend WithEvents nperspectivetlx As System.Windows.Forms.NumericUpDown + Friend WithEvents nperspectivetly As System.Windows.Forms.NumericUpDown + Friend WithEvents Label111 As System.Windows.Forms.Label + Friend WithEvents Label112 As System.Windows.Forms.Label + Friend WithEvents cmdresetperspectivemixer As System.Windows.Forms.Button + Friend WithEvents cmdgetstatusofmixer As System.Windows.Forms.Button + Friend WithEvents gbrotationmixer As System.Windows.Forms.GroupBox + Friend WithEvents Label176 As System.Windows.Forms.Label + Friend WithEvents nrotationz As System.Windows.Forms.NumericUpDown + Friend WithEvents cmdresetrotationmixer As System.Windows.Forms.Button + Friend WithEvents gbanchormixer As System.Windows.Forms.GroupBox + Friend WithEvents nanchorx As System.Windows.Forms.NumericUpDown + Friend WithEvents nanchory As System.Windows.Forms.NumericUpDown + Friend WithEvents Label178 As System.Windows.Forms.Label + Friend WithEvents Label179 As System.Windows.Forms.Label + Friend WithEvents cmdresetanchormixer As System.Windows.Forms.Button + Friend WithEvents cmdmixersettingopen As System.Windows.Forms.Button + Friend WithEvents cmdmixersettingsave As System.Windows.Forms.Button + Friend WithEvents cmdmastervolume As System.Windows.Forms.Button + Friend WithEvents Label108 As System.Windows.Forms.Label + Friend WithEvents cmdmixerclearformixemodule As System.Windows.Forms.Button + Friend WithEvents cmbvideolayerformixer As System.Windows.Forms.ComboBox + Friend WithEvents Label99 As System.Windows.Forms.Label + Friend WithEvents Label49 As System.Windows.Forms.Label + Friend WithEvents cmbblend As System.Windows.Forms.ComboBox + Friend WithEvents gbclip As System.Windows.Forms.GroupBox + Friend WithEvents nclipx As System.Windows.Forms.NumericUpDown + Friend WithEvents nclipy As System.Windows.Forms.NumericUpDown + Friend WithEvents Label35 As System.Windows.Forms.Label + Friend WithEvents Label42 As System.Windows.Forms.Label + Friend WithEvents nclipxsclae As System.Windows.Forms.NumericUpDown + Friend WithEvents nclipyscale As System.Windows.Forms.NumericUpDown + Friend WithEvents Label47 As System.Windows.Forms.Label + Friend WithEvents Label48 As System.Windows.Forms.Label + Friend WithEvents cmdclipreset As System.Windows.Forms.Button + Friend WithEvents gblevels As System.Windows.Forms.GroupBox + Friend WithEvents Label40 As System.Windows.Forms.Label + Friend WithEvents ngamma As System.Windows.Forms.NumericUpDown + Friend WithEvents Label39 As System.Windows.Forms.Label + Friend WithEvents Label38 As System.Windows.Forms.Label + Friend WithEvents nmax_output As System.Windows.Forms.NumericUpDown + Friend WithEvents nmin_output As System.Windows.Forms.NumericUpDown + Friend WithEvents nmax_input As System.Windows.Forms.NumericUpDown + Friend WithEvents Label37 As System.Windows.Forms.Label + Friend WithEvents nmin_input As System.Windows.Forms.NumericUpDown + Friend WithEvents Label36 As System.Windows.Forms.Label + Friend WithEvents cmdLevels As System.Windows.Forms.Button + Friend WithEvents gbfill As System.Windows.Forms.GroupBox + Friend WithEvents nfillx As System.Windows.Forms.NumericUpDown + Friend WithEvents nfilly As System.Windows.Forms.NumericUpDown + Friend WithEvents Label43 As System.Windows.Forms.Label + Friend WithEvents Label44 As System.Windows.Forms.Label + Friend WithEvents nfillwidth As System.Windows.Forms.NumericUpDown + Friend WithEvents nfillheight As System.Windows.Forms.NumericUpDown + Friend WithEvents Label45 As System.Windows.Forms.Label + Friend WithEvents Label46 As System.Windows.Forms.Label + Friend WithEvents cmdfill As System.Windows.Forms.Button + Friend WithEvents cmdmixerclear As System.Windows.Forms.Button + Friend WithEvents gbothers As System.Windows.Forms.GroupBox + Friend WithEvents nVolume As System.Windows.Forms.NumericUpDown + Friend WithEvents cmdVolume As System.Windows.Forms.Button + Friend WithEvents Label41 As System.Windows.Forms.Label + Friend WithEvents nContrast As System.Windows.Forms.NumericUpDown + Friend WithEvents nSaturation As System.Windows.Forms.NumericUpDown + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents nbrightness As System.Windows.Forms.NumericUpDown + Friend WithEvents nopacity As System.Windows.Forms.NumericUpDown + Friend WithEvents cmdContrast As System.Windows.Forms.Button + Friend WithEvents Label34 As System.Windows.Forms.Label + Friend WithEvents cmdSaturation As System.Windows.Forms.Button + Friend WithEvents Label33 As System.Windows.Forms.Label + Friend WithEvents cmdbrightness As System.Windows.Forms.Button + Friend WithEvents cmdopacity As System.Windows.Forms.Button + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents gbScalefromCenter As GroupBox + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents nscalexfromCenter As NumericUpDown + Friend WithEvents nscaleyfromCenter As NumericUpDown + Friend WithEvents cmdResetScalefromCenter As Button +End Class diff --git a/CasparMediaPlayback/ucMixernew.resx b/CasparMediaPlayback/ucMixernew.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/CasparMediaPlayback/ucMixernew.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucMixernew.vb b/CasparMediaPlayback/ucMixernew.vb new file mode 100644 index 0000000..2f739d1 --- /dev/null +++ b/CasparMediaPlayback/ucMixernew.vb @@ -0,0 +1,600 @@ +Imports System.Xml +Public Class ucMixernew + Private Sub cmdresetcropmixer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresetcropmixer.Click + On Error Resume Next + resetcropmixer() + End Sub + Sub resetcropmixer() + On Error Resume Next + ncroptlx.Value = 0 + ncroptly.Value = 0 + ncropbrx.Value = 1 + ncropbry.Value = 1 + End Sub + Sub mixercrop() Handles ncroptlx.ValueChanged, ncroptly.ValueChanged, ncropbrx.ValueChanged, ncropbry.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " crop " & Replace(ncroptlx.Value, ",", ".") & " " & Replace(ncroptly.Value, ",", ".") & " " & Replace(ncropbrx.Value, ",", ".") & " " & Replace(ncropbry.Value, ",", ".")) + End Sub + + Private Sub chkmipmapmixer_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkmipmapmixer.CheckedChanged + If chkmipmapmixer.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " mipmap 1") + Else + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " mipmap 0") + End If + End Sub + Private Sub cmdresetperspectivemixer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresetperspectivemixer.Click + On Error Resume Next + resetperpectivemixer() + + End Sub + Sub resetperpectivemixer() + On Error Resume Next + nperspectivetlx.Value = 0 + nperspectivetly.Value = 0 + + nperspectivetrx.Value = 1 + nperspectivetry.Value = 0 + + nperspectivebrx.Value = 1 + nperspectivebry.Value = 1 + + nperspectiveblx.Value = 0 + nperspectivebly.Value = 1 + End Sub + Private Sub cmdmixerclearformixemodule_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmixerclearformixemodule.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & " clear") + End Sub + Private Sub nopacity_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nopacity.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " opacity " & Replace(nopacity.Value, ",", ".")) + + End Sub + + Private Sub cmdopacity_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopacity.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " opacity 1") + nopacity.Value = 1 + End Sub + + Private Sub nbrightness_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nbrightness.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " brightness " & Replace(nbrightness.Value, ",", ".")) + + End Sub + + Private Sub cmdbrightness_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbrightness.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " brightness 1") + nbrightness.Value = 1 + End Sub + + Private Sub nSaturation_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nSaturation.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " saturation " & Replace(nSaturation.Value, ",", ".")) + + End Sub + + Private Sub cmdSaturation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSaturation.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " saturation 1") + nSaturation.Value = 1 + + End Sub + + Private Sub nContrast_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nContrast.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " contrast " & Replace(nContrast.Value, ",", ".")) + + End Sub + + Private Sub cmdContrast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdContrast.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " contrast 1") + nContrast.Value = 1 + + End Sub + + Private Sub nmin_input_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nmin_input.ValueChanged, nmax_input.ValueChanged, ngamma.ValueChanged, nmin_output.ValueChanged, nmax_output.ValueChanged + + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " levels " & Replace(nmin_input.Value, ",", ".") & " " & Replace(nmax_input.Value, ",", ".") & " " & Replace(ngamma.Value, ",", ".") & " " & Replace(nmin_output.Value, ",", ".") & " " & Replace(nmax_output.Value, ",", ".")) + End Sub + + Private Sub cmdmixersettingopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmixersettingopen.Click + On Error Resume Next + mixersettingopen() + End Sub + Private Sub mixersettingopen() + On Error Resume Next + Dim ofd2 As New OpenFileDialog + ofd2.InitialDirectory = "c:\casparcg\mydata\mixer\" + ofd2.Filter = "xml files (*.xml)|*.xml|All files (*.*)|*.*" + If (ofd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Dim response As New MSXML2.DOMDocument60 + response.load(ofd2.FileName) + + Dim instance As MSXML2.IXMLDOMElement + instance = response.getElementsByTagName("mixer").item(0) + For Each aa As Control In gbMixer.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("Others").item(0)) + For Each aa As Control In gbothers.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("clip").item(0)) + For Each aa As Control In gbclip.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("levels").item(0)) + For Each aa As Control In gblevels.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("fill").item(0)) + For Each aa As Control In gbfill.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("rotation").item(0)) + For Each aa As Control In gbrotationmixer.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("anchor").item(0)) + For Each aa As Control In gbanchormixer.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("perspective").item(0)) + For Each aa As Control In gbperspectivemixer.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("crop").item(0)) + For Each aa As Control In gbcropmixer.Controls + aa.Text = instance.getAttribute(aa.Name) + Next + + instance = (response.getElementsByTagName("chkmipmapmixer").item(0)) + chkmipmapmixer.CheckState = instance.getAttribute("chkmipmapmixer") + End If + End Sub + Private Sub cmdmixersettingsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmixersettingsave.Click + mixersettingsave() + End Sub + Sub mixersettingsave() + On Error Resume Next + Dim osd2 As New SaveFileDialog + osd2.InitialDirectory = "c:\casparcg\mydata\mixer\" + osd2.Filter = "xml files (*.xml)|*.xml|All files (*.*)|*.*" + If (osd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + + + Dim xmlsetting As New XmlWriterSettings + xmlsetting.Indent = True + Using writer As XmlWriter = XmlWriter.Create(osd2.FileName, xmlsetting) + writer.WriteStartDocument() 'Document start + + writer.WriteStartElement("mixerdata") ' Root element. + + writer.WriteStartElement("mixer") + For Each aa As Control In gbMixer.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("Others") + For Each aa As Control In gbothers.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("clip") + For Each aa As Control In gbclip.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("levels") + For Each aa As Control In gblevels.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + + writer.WriteStartElement("fill") + For Each aa As Control In gbfill.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("rotation") + For Each aa As Control In gbrotationmixer.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("anchor") + For Each aa As Control In gbanchormixer.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("perspective") + For Each aa As Control In gbperspectivemixer.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + + writer.WriteStartElement("crop") + For Each aa As Control In gbcropmixer.Controls + writer.WriteStartAttribute(aa.Name) + writer.WriteValue(aa.Text) + Next + writer.WriteEndElement() + + writer.WriteStartElement("chkmipmapmixer") + writer.WriteStartAttribute("chkmipmapmixer") + writer.WriteValue(chkmipmapmixer.CheckState) + writer.WriteEndElement() + + writer.WriteEndElement() 'root element end + + writer.WriteEndDocument() 'Document end + End Using + 'lblfilename.Text = osd2.FileName + End If + End Sub + + Private Sub cmdmixerclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmixerclear.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " clear") + + mixerlevesreset() + mixerclipreset() + mixerfillreset() + + nVolume.Value = 1 + + nopacity.Value = 1 + nbrightness.Value = 1 + nSaturation.Value = 1 + nContrast.Value = 1 + + cmbblend.Text = "Normal" + + nmixermastervolume.Value = 1 + + nanchorx.Value = 0 + nanchory.Value = 0 + nrotationz.Value = 0 + + resetperpectivemixer() + resetcropmixer() + + End Sub + + Private Sub cmdLevels_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLevels.Click + On Error Resume Next + mixerlevesreset() + End Sub + Sub mixerlevesreset() + On Error Resume Next + nmin_input.Value = 0 + nmax_input.Value = 1 + ngamma.Value = 1 + nmin_output.Value = 0 + nmax_output.Value = 1 + End Sub + Private Sub nmixermastervolume_ValueChanged(sender As Object, e As EventArgs) Handles nmixermastervolume.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & " mastervolume " & Replace(nmixermastervolume.Value, ",", ".")) + + End Sub + Private Sub nVolume_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nVolume.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " volume " & Replace(nVolume.Value, ",", ".")) + + End Sub + + Private Sub cmdmastervolume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmastervolume.Click + On Error Resume Next + nmixermastervolume.Value = 1 + End Sub + Private Sub cmdVolume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVolume.Click + On Error Resume Next + nVolume.Value = 1 + End Sub + + Private Sub nfillx_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nfillx.ValueChanged, nfilly.ValueChanged, nfillwidth.ValueChanged, nfillheight.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " fill " & Replace(nfillx.Value, ",", ".") & " " & Replace(nfilly.Value, ",", ".") & " " & Replace(nfillwidth.Value, ",", ".") & " " & Replace(nfillheight.Value, ",", ".")) + + End Sub + + Private Sub cmdfill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdfill.Click + On Error Resume Next + mixerfillreset() + End Sub + Sub mixerfillreset() + On Error Resume Next + nfillx.Value = 0 + nfilly.Value = 0 + nfillwidth.Value = 1 + nfillheight.Value = 1 + End Sub + + Private Sub nclipx_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nclipx.ValueChanged, nclipy.ValueChanged, nclipxsclae.ValueChanged, nclipyscale.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " clip " & Replace(nclipx.Value, ",", ".") & " " & Replace(nclipy.Value, ",", ".") & " " & Replace(nclipxsclae.Value, ",", ".") & " " & Replace(nclipyscale.Value, ",", ".")) + + End Sub + + Private Sub cmdclipreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdclipreset.Click + On Error Resume Next + mixerclipreset() + End Sub + Sub mixerclipreset() + On Error Resume Next + nclipx.Value = 0 + nclipy.Value = 0 + nclipxsclae.Value = 1 + nclipyscale.Value = 1 + End Sub + Sub perspectivemixer() Handles nperspectivetlx.ValueChanged, nperspectivetly.ValueChanged, nperspectivetrx.ValueChanged, nperspectivetry.ValueChanged, nperspectivebrx.ValueChanged, nperspectivebry.ValueChanged, nperspectiveblx.ValueChanged, nperspectivebly.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " perspective " & Replace(nperspectivetlx.Value, ",", ".") & " " & Replace(nperspectivetly.Value, ",", ".") & " " & Replace(nperspectivetrx.Value, ",", ".") & " " & Replace(nperspectivetry.Value, ",", ".") & " " & Replace(nperspectivebrx.Value, ",", ".") & " " & Replace(nperspectivebry.Value, ",", ".") & " " & Replace(nperspectiveblx.Value, ",", ".") & " " & Replace(nperspectivebly.Value, ",", ".")) + + End Sub + Private Sub cmbblend_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbblend.SelectedIndexChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " blend " & cmbblend.Text) + End Sub + + Private Sub nanchorx_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nanchorx.ValueChanged, nanchory.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " anchor " & Replace(nanchorx.Value, ",", ".") & " " & Replace(nanchory.Value, ",", ".")) + + End Sub + Private Sub nrotationz_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nrotationz.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " rotation " & Replace(nrotationz.Value, ",", ".")) + + End Sub + Private Sub cmdresetanchormixer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresetanchormixer.Click + On Error Resume Next + nanchorx.Value = 0 + nanchory.Value = 0 + End Sub + Private Sub cmdresetrotationmixer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresetrotationmixer.Click + On Error Resume Next + nrotationz.Value = 0 + End Sub + + Private Async Sub cmdgetstatusofmixer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdgetstatusofmixer.Click + 'On Error Resume Next + getstausofmixer() + End Sub + Async Sub getstausofmixer() + 'On Error Resume Next + 'for fill + Try + + + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " fill" + vbCrLf) + + 'Threading.Thread.Sleep(150) + Dim data(10024) As Byte + NetStream.Read(data, 0, 10024) + Dim returndata As String = "" + returndata = System.Text.Encoding.UTF8.GetString(data) + Dim a As Array = Split(returndata, vbNewLine) + Dim b As Array = Split(a(1), " ") + + nfillx.Value = b(0) + nfilly.Value = b(1) + nfillwidth.Value = b(2) + nfillheight.Value = b(3) + + 'for clip + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " clip" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nclipx.Value = b(0) + nclipy.Value = b(1) + nclipxsclae.Value = b(2) + nclipyscale.Value = b(3) + + 'for levels + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " levels" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nmin_input.Value = b(0) + nmax_input.Value = b(1) + ngamma.Value = b(2) + nmin_output.Value = b(3) + nmax_output.Value = b(4) + + + 'for volume + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " volume" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nVolume.Value = b(0) + + 'for opacity + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " opacity" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nopacity.Value = b(0) + + 'for brightness + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " brightness" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nbrightness.Value = b(0) + + 'for saturation + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " saturation" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nSaturation.Value = b(0) + + 'for contrast + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " contrast" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nContrast.Value = b(0) + + 'for anchor + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " anchor" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nanchorx.Value = b(0) + nanchory.Value = b(1) + + 'for rotation + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " rotation" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nrotationz.Value = b(0) + + + + 'for mastervolume + SendString(NetStream, "mixer " & g_int_ChannelNumber & " mastervolume" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + nmixermastervolume.Value = b(0) + + 'for blend + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " blend" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + cmbblend.Text = b(0) + + 'for perspective + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " perspective" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + + nperspectivetlx.Value = b(0) + nperspectivetly.Value = b(1) + + nperspectivetrx.Value = b(2) + nperspectivetry.Value = b(3) + + nperspectivebrx.Value = b(4) + nperspectivebry.Value = b(5) + + nperspectiveblx.Value = b(6) + nperspectivebly.Value = b(7) + + 'for crop + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " crop" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + + ncroptlx.Value = b(0) + ncroptly.Value = b(1) + + ncropbrx.Value = b(2) + ncropbry.Value = b(3) + + 'For mipmap + SendString(NetStream, "mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " mipmap" + vbCrLf) + 'Threading.Thread.Sleep(150) + NetStream.Read(data, 0, 10024) + returndata = System.Text.Encoding.UTF8.GetString(data) + a = Split(returndata, vbNewLine) + b = Split(a(1), " ") + + chkmipmapmixer.Checked = b(0) + Catch ex As Exception + + End Try + End Sub + + Private Sub cmbvideolayerformixer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbvideolayerformixer.TextChanged + On Error Resume Next + 'getstausofmixer() + End Sub + 'Mixer code ends--------------------------- + Private Sub cmdhidegbmixer_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub + + Private Sub ucMixer_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + End Sub + + Private Sub nscalexfromCenter_ValueChanged(sender As Object, e As EventArgs) Handles nscalexfromCenter.ValueChanged, nscaleyfromCenter.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbvideolayerformixer.Text & " fill " & Replace(((1 - nscalexfromCenter.Value) / 2), ",", ".") & " " & Replace(((1 - nscaleyfromCenter.Value) / 2), ",", ".") & " " & Replace(nscalexfromCenter.Value, ",", ".") & " " & Replace(nscaleyfromCenter.Value, ",", ".")) + + End Sub + + Private Sub cmdResetScalefromCenter_Click(sender As Object, e As EventArgs) Handles cmdResetScalefromCenter.Click + On Error Resume Next + nscalexfromCenter.Value = 1 + nscaleyfromCenter.Value = 1 + End Sub + + Private Sub GbMixer_Enter(sender As Object, e As EventArgs) Handles gbMixer.Enter + + End Sub +End Class diff --git a/CasparMediaPlayback/ucMultiBulletScroll.Designer.vb b/CasparMediaPlayback/ucMultiBulletScroll.Designer.vb new file mode 100644 index 0000000..8afb8ad --- /dev/null +++ b/CasparMediaPlayback/ucMultiBulletScroll.Designer.vb @@ -0,0 +1,833 @@ + _ +Partial Class ucMultiBulletScroll + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucMultiBulletScroll)) + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.gbscroll = New System.Windows.Forms.GroupBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmdstopcrawlhtmlscroll = New System.Windows.Forms.Button() + Me.cmdpauseresumehtmlscroller = New System.Windows.Forms.Button() + Me.Label156 = New System.Windows.Forms.Label() + Me.cmbfonthtmlscroll = New System.Windows.Forms.ComboBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label157 = New System.Windows.Forms.Label() + Me.Label160 = New System.Windows.Forms.Label() + Me.nspeedhtmlscroll = New System.Windows.Forms.NumericUpDown() + Me.nsizehtmlscroll = New System.Windows.Forms.NumericUpDown() + Me.cmdcolorhtmlscroll = New System.Windows.Forms.Button() + Me.chkbase64htmlscroller = New System.Windows.Forms.CheckBox() + Me.nyhtmlscrollticker = New System.Windows.Forms.NumericUpDown() + Me.Label190 = New System.Windows.Forms.Label() + Me.cmdstripcolorhtmlscroll = New System.Windows.Forms.Button() + Me.chkltrhtmlscroll = New System.Windows.Forms.CheckBox() + Me.Label161 = New System.Windows.Forms.Label() + Me.Label162 = New System.Windows.Forms.Label() + Me.nyhtmlscroll = New System.Windows.Forms.NumericUpDown() + Me.Label163 = New System.Windows.Forms.Label() + Me.cmdPlayMultibulletHtml = New System.Windows.Forms.Button() + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Label2 = New System.Windows.Forms.Label() + Me.txmultibulletscrollerTemplate = New System.Windows.Forms.TextBox() + Me.ntextY = New System.Windows.Forms.NumericUpDown() + Me.Label1 = New System.Windows.Forms.Label() + Me.cmdselectallforscroll = New System.Windows.Forms.Button() + Me.cmddeselectallforscroll = New System.Windows.Forms.Button() + Me.cmdresumescroll = New System.Windows.Forms.Button() + Me.cmdpausescroll = New System.Windows.Forms.Button() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Label50 = New System.Windows.Forms.Label() + Me.cmblayertime = New System.Windows.Forms.ComboBox() + Me.cmdhidetime = New System.Windows.Forms.Button() + Me.cmdshowtime = New System.Windows.Forms.Button() + Me.cmdplayscroll = New System.Windows.Forms.Button() + Me.cmdstopscroll = New System.Windows.Forms.Button() + Me.cmddeletetsscroll = New System.Windows.Forms.Button() + Me.cmduptsscroll = New System.Windows.Forms.Button() + Me.cmddowntsscroll = New System.Windows.Forms.Button() + Me.cmdinserttsscroll = New System.Windows.Forms.Button() + Me.dgvscroll = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewCheckBoxColumn2 = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.IMG = New System.Windows.Forms.DataGridViewImageColumn() + Me.nspeedscroll = New System.Windows.Forms.NumericUpDown() + Me.Label20 = New System.Windows.Forms.Label() + Me.cmblayerscroll = New System.Windows.Forms.ComboBox() + Me.Label21 = New System.Windows.Forms.Label() + Me.tmrshowdatascroll = New System.Windows.Forms.Timer(Me.components) + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.gbscroll.SuspendLayout() + Me.GroupBox1.SuspendLayout() + CType(Me.nspeedhtmlscroll, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nsizehtmlscroll, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nyhtmlscrollticker, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nyhtmlscroll, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MenuStrip1.SuspendLayout() + CType(Me.ntextY, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.dgvscroll, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nspeedscroll, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbscroll + ' + Me.gbscroll.BackColor = System.Drawing.Color.Bisque + Me.gbscroll.Controls.Add(Me.GroupBox1) + Me.gbscroll.Controls.Add(Me.MenuStrip1) + Me.gbscroll.Controls.Add(Me.Label2) + Me.gbscroll.Controls.Add(Me.txmultibulletscrollerTemplate) + Me.gbscroll.Controls.Add(Me.ntextY) + Me.gbscroll.Controls.Add(Me.Label1) + Me.gbscroll.Controls.Add(Me.cmdselectallforscroll) + Me.gbscroll.Controls.Add(Me.cmddeselectallforscroll) + Me.gbscroll.Controls.Add(Me.cmdresumescroll) + Me.gbscroll.Controls.Add(Me.cmdpausescroll) + Me.gbscroll.Controls.Add(Me.GroupBox2) + Me.gbscroll.Controls.Add(Me.cmdplayscroll) + Me.gbscroll.Controls.Add(Me.cmdstopscroll) + Me.gbscroll.Controls.Add(Me.cmddeletetsscroll) + Me.gbscroll.Controls.Add(Me.cmduptsscroll) + Me.gbscroll.Controls.Add(Me.cmddowntsscroll) + Me.gbscroll.Controls.Add(Me.cmdinserttsscroll) + Me.gbscroll.Controls.Add(Me.dgvscroll) + Me.gbscroll.Controls.Add(Me.nspeedscroll) + Me.gbscroll.Controls.Add(Me.Label20) + Me.gbscroll.Controls.Add(Me.cmblayerscroll) + Me.gbscroll.Controls.Add(Me.Label21) + Me.gbscroll.Location = New System.Drawing.Point(4, 5) + Me.gbscroll.Name = "gbscroll" + Me.gbscroll.Size = New System.Drawing.Size(660, 605) + Me.gbscroll.TabIndex = 533 + Me.gbscroll.TabStop = False + Me.gbscroll.Text = " " + ' + 'GroupBox1 + ' + Me.GroupBox1.BackColor = System.Drawing.Color.Peru + Me.GroupBox1.Controls.Add(Me.cmdstopcrawlhtmlscroll) + Me.GroupBox1.Controls.Add(Me.cmdpauseresumehtmlscroller) + Me.GroupBox1.Controls.Add(Me.Label156) + Me.GroupBox1.Controls.Add(Me.cmbfonthtmlscroll) + Me.GroupBox1.Controls.Add(Me.Label4) + Me.GroupBox1.Controls.Add(Me.Label157) + Me.GroupBox1.Controls.Add(Me.Label160) + Me.GroupBox1.Controls.Add(Me.nspeedhtmlscroll) + Me.GroupBox1.Controls.Add(Me.nsizehtmlscroll) + Me.GroupBox1.Controls.Add(Me.cmdcolorhtmlscroll) + Me.GroupBox1.Controls.Add(Me.chkbase64htmlscroller) + Me.GroupBox1.Controls.Add(Me.nyhtmlscrollticker) + Me.GroupBox1.Controls.Add(Me.Label190) + Me.GroupBox1.Controls.Add(Me.cmdstripcolorhtmlscroll) + Me.GroupBox1.Controls.Add(Me.chkltrhtmlscroll) + Me.GroupBox1.Controls.Add(Me.Label161) + Me.GroupBox1.Controls.Add(Me.Label162) + Me.GroupBox1.Controls.Add(Me.nyhtmlscroll) + Me.GroupBox1.Controls.Add(Me.Label163) + Me.GroupBox1.Controls.Add(Me.cmdPlayMultibulletHtml) + Me.GroupBox1.Location = New System.Drawing.Point(366, 417) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(288, 182) + Me.GroupBox1.TabIndex = 750 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "HTML Template" + ' + 'cmdstopcrawlhtmlscroll + ' + Me.cmdstopcrawlhtmlscroll.BackColor = System.Drawing.Color.Red + Me.cmdstopcrawlhtmlscroll.ForeColor = System.Drawing.Color.White + Me.cmdstopcrawlhtmlscroll.Location = New System.Drawing.Point(222, 91) + Me.cmdstopcrawlhtmlscroll.Name = "cmdstopcrawlhtmlscroll" + Me.cmdstopcrawlhtmlscroll.Size = New System.Drawing.Size(60, 40) + Me.cmdstopcrawlhtmlscroll.TabIndex = 751 + Me.cmdstopcrawlhtmlscroll.Text = "Stop" + Me.cmdstopcrawlhtmlscroll.UseVisualStyleBackColor = False + ' + 'cmdpauseresumehtmlscroller + ' + Me.cmdpauseresumehtmlscroller.BackColor = System.Drawing.Color.Yellow + Me.cmdpauseresumehtmlscroller.Location = New System.Drawing.Point(222, 48) + Me.cmdpauseresumehtmlscroller.Name = "cmdpauseresumehtmlscroller" + Me.cmdpauseresumehtmlscroller.Size = New System.Drawing.Size(60, 40) + Me.cmdpauseresumehtmlscroller.TabIndex = 752 + Me.cmdpauseresumehtmlscroller.Text = "Pause / Resume" + Me.cmdpauseresumehtmlscroller.UseVisualStyleBackColor = False + ' + 'Label156 + ' + Me.Label156.AutoSize = True + Me.Label156.Location = New System.Drawing.Point(110, 134) + Me.Label156.Name = "Label156" + Me.Label156.Size = New System.Drawing.Size(38, 13) + Me.Label156.TabIndex = 748 + Me.Label156.Text = "Speed" + ' + 'cmbfonthtmlscroll + ' + Me.cmbfonthtmlscroll.FormattingEnabled = True + Me.cmbfonthtmlscroll.Location = New System.Drawing.Point(98, 157) + Me.cmbfonthtmlscroll.Name = "cmbfonthtmlscroll" + Me.cmbfonthtmlscroll.Size = New System.Drawing.Size(116, 21) + Me.cmbfonthtmlscroll.TabIndex = 743 + Me.cmbfonthtmlscroll.Text = "DVOT-Bhima" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(97, 86) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(51, 13) + Me.Label4.TabIndex = 749 + Me.Label4.Text = "font color" + ' + 'Label157 + ' + Me.Label157.AutoSize = True + Me.Label157.Location = New System.Drawing.Point(121, 108) + Me.Label157.Name = "Label157" + Me.Label157.Size = New System.Drawing.Size(27, 13) + Me.Label157.TabIndex = 747 + Me.Label157.Text = "Size" + ' + 'Label160 + ' + Me.Label160.AutoSize = True + Me.Label160.Location = New System.Drawing.Point(55, 157) + Me.Label160.Name = "Label160" + Me.Label160.Size = New System.Drawing.Size(28, 13) + Me.Label160.TabIndex = 746 + Me.Label160.Text = "Font" + ' + 'nspeedhtmlscroll + ' + Me.nspeedhtmlscroll.Location = New System.Drawing.Point(160, 131) + Me.nspeedhtmlscroll.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nspeedhtmlscroll.Name = "nspeedhtmlscroll" + Me.nspeedhtmlscroll.Size = New System.Drawing.Size(54, 20) + Me.nspeedhtmlscroll.TabIndex = 742 + Me.nspeedhtmlscroll.Value = New Decimal(New Integer() {5, 0, 0, 0}) + ' + 'nsizehtmlscroll + ' + Me.nsizehtmlscroll.Location = New System.Drawing.Point(160, 105) + Me.nsizehtmlscroll.Maximum = New Decimal(New Integer() {200, 0, 0, 0}) + Me.nsizehtmlscroll.Name = "nsizehtmlscroll" + Me.nsizehtmlscroll.Size = New System.Drawing.Size(54, 20) + Me.nsizehtmlscroll.TabIndex = 741 + Me.nsizehtmlscroll.Value = New Decimal(New Integer() {5, 0, 0, 0}) + ' + 'cmdcolorhtmlscroll + ' + Me.cmdcolorhtmlscroll.BackColor = System.Drawing.Color.Purple + Me.cmdcolorhtmlscroll.ForeColor = System.Drawing.Color.Yellow + Me.cmdcolorhtmlscroll.Location = New System.Drawing.Point(160, 81) + Me.cmdcolorhtmlscroll.Name = "cmdcolorhtmlscroll" + Me.cmdcolorhtmlscroll.Size = New System.Drawing.Size(54, 23) + Me.cmdcolorhtmlscroll.TabIndex = 744 + Me.cmdcolorhtmlscroll.Text = "Color" + Me.cmdcolorhtmlscroll.UseVisualStyleBackColor = False + ' + 'chkbase64htmlscroller + ' + Me.chkbase64htmlscroller.AutoSize = True + Me.chkbase64htmlscroller.Location = New System.Drawing.Point(25, 104) + Me.chkbase64htmlscroller.Name = "chkbase64htmlscroller" + Me.chkbase64htmlscroller.Size = New System.Drawing.Size(62, 17) + Me.chkbase64htmlscroller.TabIndex = 740 + Me.chkbase64htmlscroller.Text = "Base64" + Me.chkbase64htmlscroller.UseVisualStyleBackColor = True + ' + 'nyhtmlscrollticker + ' + Me.nyhtmlscrollticker.Location = New System.Drawing.Point(160, 35) + Me.nyhtmlscrollticker.Maximum = New Decimal(New Integer() {4000, 0, 0, 0}) + Me.nyhtmlscrollticker.Minimum = New Decimal(New Integer() {4000, 0, 0, -2147483648}) + Me.nyhtmlscrollticker.Name = "nyhtmlscrollticker" + Me.nyhtmlscrollticker.Size = New System.Drawing.Size(54, 20) + Me.nyhtmlscrollticker.TabIndex = 739 + Me.nyhtmlscrollticker.Value = New Decimal(New Integer() {87, 0, 0, 0}) + ' + 'Label190 + ' + Me.Label190.AutoSize = True + Me.Label190.Location = New System.Drawing.Point(58, 37) + Me.Label190.Name = "Label190" + Me.Label190.Size = New System.Drawing.Size(90, 13) + Me.Label190.TabIndex = 738 + Me.Label190.Text = "Ticker Y Position" + ' + 'cmdstripcolorhtmlscroll + ' + Me.cmdstripcolorhtmlscroll.BackColor = System.Drawing.Color.Purple + Me.cmdstripcolorhtmlscroll.ForeColor = System.Drawing.Color.Yellow + Me.cmdstripcolorhtmlscroll.Location = New System.Drawing.Point(160, 57) + Me.cmdstripcolorhtmlscroll.Name = "cmdstripcolorhtmlscroll" + Me.cmdstripcolorhtmlscroll.Size = New System.Drawing.Size(54, 23) + Me.cmdstripcolorhtmlscroll.TabIndex = 735 + Me.cmdstripcolorhtmlscroll.Text = "color" + Me.cmdstripcolorhtmlscroll.UseVisualStyleBackColor = False + ' + 'chkltrhtmlscroll + ' + Me.chkltrhtmlscroll.AutoSize = True + Me.chkltrhtmlscroll.Location = New System.Drawing.Point(25, 127) + Me.chkltrhtmlscroll.Name = "chkltrhtmlscroll" + Me.chkltrhtmlscroll.Size = New System.Drawing.Size(88, 17) + Me.chkltrhtmlscroll.TabIndex = 734 + Me.chkltrhtmlscroll.Text = "Left To Right" + Me.chkltrhtmlscroll.UseVisualStyleBackColor = True + ' + 'Label161 + ' + Me.Label161.AutoSize = True + Me.Label161.Location = New System.Drawing.Point(144, 82) + Me.Label161.Name = "Label161" + Me.Label161.Size = New System.Drawing.Size(0, 13) + Me.Label161.TabIndex = 733 + ' + 'Label162 + ' + Me.Label162.AutoSize = True + Me.Label162.Location = New System.Drawing.Point(94, 62) + Me.Label162.Name = "Label162" + Me.Label162.Size = New System.Drawing.Size(54, 13) + Me.Label162.TabIndex = 732 + Me.Label162.Text = "Strip color" + ' + 'nyhtmlscroll + ' + Me.nyhtmlscroll.Location = New System.Drawing.Point(160, 14) + Me.nyhtmlscroll.Maximum = New Decimal(New Integer() {4000, 0, 0, 0}) + Me.nyhtmlscroll.Minimum = New Decimal(New Integer() {4000, 0, 0, -2147483648}) + Me.nyhtmlscroll.Name = "nyhtmlscroll" + Me.nyhtmlscroll.Size = New System.Drawing.Size(54, 20) + Me.nyhtmlscroll.TabIndex = 731 + Me.nyhtmlscroll.Value = New Decimal(New Integer() {87, 0, 0, 0}) + ' + 'Label163 + ' + Me.Label163.AutoSize = True + Me.Label163.Location = New System.Drawing.Point(67, 16) + Me.Label163.Name = "Label163" + Me.Label163.Size = New System.Drawing.Size(81, 13) + Me.Label163.TabIndex = 730 + Me.Label163.Text = "Strip Y Position" + ' + 'cmdPlayMultibulletHtml + ' + Me.cmdPlayMultibulletHtml.BackColor = System.Drawing.Color.Green + Me.cmdPlayMultibulletHtml.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdPlayMultibulletHtml.ForeColor = System.Drawing.SystemColors.Control + Me.cmdPlayMultibulletHtml.Location = New System.Drawing.Point(222, 14) + Me.cmdPlayMultibulletHtml.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdPlayMultibulletHtml.Name = "cmdPlayMultibulletHtml" + Me.cmdPlayMultibulletHtml.Size = New System.Drawing.Size(60, 30) + Me.cmdPlayMultibulletHtml.TabIndex = 718 + Me.cmdPlayMultibulletHtml.Text = "Play" + Me.cmdPlayMultibulletHtml.UseVisualStyleBackColor = False + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.EditToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(3, 102) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(84, 24) + Me.MenuStrip1.TabIndex = 717 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'FileToolStripMenuItem + ' + Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.SaveToolStripMenuItem}) + Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" + Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20) + Me.FileToolStripMenuItem.Text = "File" + ' + 'NewToolStripMenuItem + ' + Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" + Me.NewToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.NewToolStripMenuItem.Text = "New" + ' + 'OpenToolStripMenuItem + ' + Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" + Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.OpenToolStripMenuItem.Text = "Open" + ' + 'SaveToolStripMenuItem + ' + Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" + Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.SaveToolStripMenuItem.Text = "Save" + ' + 'EditToolStripMenuItem + ' + Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CutToolStripMenuItem, Me.CopyToolStripMenuItem, Me.PasteToolStripMenuItem}) + Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem" + Me.EditToolStripMenuItem.Size = New System.Drawing.Size(39, 20) + Me.EditToolStripMenuItem.Text = "Edit" + ' + 'CutToolStripMenuItem + ' + Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem" + Me.CutToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.CutToolStripMenuItem.Text = "Cut" + ' + 'CopyToolStripMenuItem + ' + Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem" + Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.CopyToolStripMenuItem.Text = "Copy" + ' + 'PasteToolStripMenuItem + ' + Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem" + Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.PasteToolStripMenuItem.Text = "Paste" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(12, 22) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(51, 13) + Me.Label2.TabIndex = 716 + Me.Label2.Text = "Template" + ' + 'txmultibulletscrollerTemplate + ' + Me.txmultibulletscrollerTemplate.Location = New System.Drawing.Point(69, 19) + Me.txmultibulletscrollerTemplate.Name = "txmultibulletscrollerTemplate" + Me.txmultibulletscrollerTemplate.Size = New System.Drawing.Size(353, 20) + Me.txmultibulletscrollerTemplate.TabIndex = 715 + Me.txmultibulletscrollerTemplate.Text = "cmp/multibullet/multibullet" + ' + 'ntextY + ' + Me.ntextY.Location = New System.Drawing.Point(57, 69) + Me.ntextY.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.ntextY.Name = "ntextY" + Me.ntextY.Size = New System.Drawing.Size(47, 20) + Me.ntextY.TabIndex = 714 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 71) + Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(38, 13) + Me.Label1.TabIndex = 713 + Me.Label1.Text = "Text Y" + ' + 'cmdselectallforscroll + ' + Me.cmdselectallforscroll.Location = New System.Drawing.Point(564, 69) + Me.cmdselectallforscroll.Name = "cmdselectallforscroll" + Me.cmdselectallforscroll.Size = New System.Drawing.Size(75, 23) + Me.cmdselectallforscroll.TabIndex = 513 + Me.cmdselectallforscroll.Text = "Select All" + Me.cmdselectallforscroll.UseVisualStyleBackColor = True + ' + 'cmddeselectallforscroll + ' + Me.cmddeselectallforscroll.Location = New System.Drawing.Point(564, 103) + Me.cmddeselectallforscroll.Name = "cmddeselectallforscroll" + Me.cmddeselectallforscroll.Size = New System.Drawing.Size(73, 23) + Me.cmddeselectallforscroll.TabIndex = 512 + Me.cmddeselectallforscroll.Text = "Deselect All" + Me.cmddeselectallforscroll.UseVisualStyleBackColor = True + ' + 'cmdresumescroll + ' + Me.cmdresumescroll.Location = New System.Drawing.Point(453, 95) + Me.cmdresumescroll.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdresumescroll.Name = "cmdresumescroll" + Me.cmdresumescroll.Size = New System.Drawing.Size(58, 30) + Me.cmdresumescroll.TabIndex = 509 + Me.cmdresumescroll.Text = "Resume" + Me.cmdresumescroll.UseVisualStyleBackColor = True + ' + 'cmdpausescroll + ' + Me.cmdpausescroll.BackColor = System.Drawing.Color.Yellow + Me.cmdpausescroll.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdpausescroll.Location = New System.Drawing.Point(386, 94) + Me.cmdpausescroll.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdpausescroll.Name = "cmdpausescroll" + Me.cmdpausescroll.Size = New System.Drawing.Size(63, 30) + Me.cmdpausescroll.TabIndex = 508 + Me.cmdpausescroll.Text = "Pause" + Me.cmdpausescroll.UseVisualStyleBackColor = False + ' + 'GroupBox2 + ' + Me.GroupBox2.BackColor = System.Drawing.Color.SandyBrown + Me.GroupBox2.Controls.Add(Me.Label50) + Me.GroupBox2.Controls.Add(Me.cmblayertime) + Me.GroupBox2.Controls.Add(Me.cmdhidetime) + Me.GroupBox2.Controls.Add(Me.cmdshowtime) + Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox2.Location = New System.Drawing.Point(6, 538) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(354, 61) + Me.GroupBox2.TabIndex = 507 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Time Day Date Month" + ' + 'Label50 + ' + Me.Label50.AutoSize = True + Me.Label50.Location = New System.Drawing.Point(10, 24) + Me.Label50.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(124, 15) + Me.Label50.TabIndex = 505 + Me.Label50.Text = "video layer-flash layer" + ' + 'cmblayertime + ' + Me.cmblayertime.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmblayertime", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmblayertime.FormattingEnabled = True + Me.cmblayertime.Items.AddRange(New Object() {"56", "57", "58", "59", "60"}) + Me.cmblayertime.Location = New System.Drawing.Point(138, 21) + Me.cmblayertime.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmblayertime.Name = "cmblayertime" + Me.cmblayertime.Size = New System.Drawing.Size(40, 23) + Me.cmblayertime.TabIndex = 504 + Me.cmblayertime.Text = "56" + ' + 'cmdhidetime + ' + Me.cmdhidetime.Location = New System.Drawing.Point(238, 21) + Me.cmdhidetime.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdhidetime.Name = "cmdhidetime" + Me.cmdhidetime.Size = New System.Drawing.Size(45, 28) + Me.cmdhidetime.TabIndex = 503 + Me.cmdhidetime.Text = "Stop" + Me.cmdhidetime.UseVisualStyleBackColor = True + ' + 'cmdshowtime + ' + Me.cmdshowtime.Location = New System.Drawing.Point(186, 20) + Me.cmdshowtime.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdshowtime.Name = "cmdshowtime" + Me.cmdshowtime.Size = New System.Drawing.Size(44, 29) + Me.cmdshowtime.TabIndex = 502 + Me.cmdshowtime.Text = "Play" + Me.cmdshowtime.UseVisualStyleBackColor = True + ' + 'cmdplayscroll + ' + Me.cmdplayscroll.BackColor = System.Drawing.Color.Green + Me.cmdplayscroll.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdplayscroll.ForeColor = System.Drawing.Color.White + Me.cmdplayscroll.Location = New System.Drawing.Point(331, 96) + Me.cmdplayscroll.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayscroll.Name = "cmdplayscroll" + Me.cmdplayscroll.Size = New System.Drawing.Size(52, 30) + Me.cmdplayscroll.TabIndex = 498 + Me.cmdplayscroll.Text = "Play" + Me.cmdplayscroll.UseVisualStyleBackColor = False + ' + 'cmdstopscroll + ' + Me.cmdstopscroll.BackColor = System.Drawing.Color.Red + Me.cmdstopscroll.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdstopscroll.ForeColor = System.Drawing.Color.White + Me.cmdstopscroll.Location = New System.Drawing.Point(511, 94) + Me.cmdstopscroll.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdstopscroll.Name = "cmdstopscroll" + Me.cmdstopscroll.Size = New System.Drawing.Size(48, 30) + Me.cmdstopscroll.TabIndex = 499 + Me.cmdstopscroll.Text = "Stop" + Me.cmdstopscroll.UseVisualStyleBackColor = False + ' + 'cmddeletetsscroll + ' + Me.cmddeletetsscroll.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmddeletetsscroll.Image = Global.caspar_media_playback.My.Resources.Resources.minus + Me.cmddeletetsscroll.Location = New System.Drawing.Point(218, 98) + Me.cmddeletetsscroll.Name = "cmddeletetsscroll" + Me.cmddeletetsscroll.Size = New System.Drawing.Size(33, 22) + Me.cmddeletetsscroll.TabIndex = 496 + Me.cmddeletetsscroll.UseVisualStyleBackColor = True + ' + 'cmduptsscroll + ' + Me.cmduptsscroll.Image = CType(resources.GetObject("cmduptsscroll.Image"), System.Drawing.Image) + Me.cmduptsscroll.Location = New System.Drawing.Point(104, 98) + Me.cmduptsscroll.Name = "cmduptsscroll" + Me.cmduptsscroll.Size = New System.Drawing.Size(28, 23) + Me.cmduptsscroll.TabIndex = 494 + Me.cmduptsscroll.UseVisualStyleBackColor = True + ' + 'cmddowntsscroll + ' + Me.cmddowntsscroll.Image = CType(resources.GetObject("cmddowntsscroll.Image"), System.Drawing.Image) + Me.cmddowntsscroll.Location = New System.Drawing.Point(135, 98) + Me.cmddowntsscroll.Name = "cmddowntsscroll" + Me.cmddowntsscroll.Size = New System.Drawing.Size(36, 23) + Me.cmddowntsscroll.TabIndex = 495 + Me.cmddowntsscroll.UseVisualStyleBackColor = True + ' + 'cmdinserttsscroll + ' + Me.cmdinserttsscroll.Image = CType(resources.GetObject("cmdinserttsscroll.Image"), System.Drawing.Image) + Me.cmdinserttsscroll.Location = New System.Drawing.Point(172, 98) + Me.cmdinserttsscroll.Name = "cmdinserttsscroll" + Me.cmdinserttsscroll.Size = New System.Drawing.Size(41, 23) + Me.cmdinserttsscroll.TabIndex = 493 + Me.cmdinserttsscroll.UseVisualStyleBackColor = True + ' + 'dgvscroll + ' + Me.dgvscroll.AllowDrop = True + Me.dgvscroll.AllowUserToOrderColumns = True + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvscroll.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvscroll.BackgroundColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvscroll.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 + Me.dgvscroll.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvscroll.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2, Me.DataGridViewCheckBoxColumn2, Me.IMG}) + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvscroll.DefaultCellStyle = DataGridViewCellStyle4 + Me.dgvscroll.Location = New System.Drawing.Point(6, 130) + Me.dgvscroll.MultiSelect = False + Me.dgvscroll.Name = "dgvscroll" + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvscroll.RowHeadersDefaultCellStyle = DataGridViewCellStyle5 + Me.dgvscroll.RowHeadersWidth = 25 + Me.dgvscroll.Size = New System.Drawing.Size(648, 281) + Me.dgvscroll.TabIndex = 492 + ' + 'DataGridViewTextBoxColumn2 + ' + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle3 + Me.DataGridViewTextBoxColumn2.HeaderText = "Scroll" + Me.DataGridViewTextBoxColumn2.MinimumWidth = 530 + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewTextBoxColumn2.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn2.Width = 530 + ' + 'DataGridViewCheckBoxColumn2 + ' + Me.DataGridViewCheckBoxColumn2.FalseValue = "0" + Me.DataGridViewCheckBoxColumn2.FillWeight = 20.0! + Me.DataGridViewCheckBoxColumn2.HeaderText = "" + Me.DataGridViewCheckBoxColumn2.Name = "DataGridViewCheckBoxColumn2" + Me.DataGridViewCheckBoxColumn2.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewCheckBoxColumn2.TrueValue = "1" + Me.DataGridViewCheckBoxColumn2.Width = 30 + ' + 'IMG + ' + Me.IMG.HeaderText = "IMG" + Me.IMG.Image = CType(resources.GetObject("IMG.Image"), System.Drawing.Image) + Me.IMG.ImageLayout = System.Windows.Forms.DataGridViewImageCellLayout.Stretch + Me.IMG.Name = "IMG" + Me.IMG.Width = 50 + ' + 'nspeedscroll + ' + Me.nspeedscroll.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.caspar_media_playback.My.MySettings.Default, "nspeedscroll", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.nspeedscroll.Location = New System.Drawing.Point(258, 96) + Me.nspeedscroll.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.nspeedscroll.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) + Me.nspeedscroll.Minimum = New Decimal(New Integer() {10, 0, 0, -2147483648}) + Me.nspeedscroll.Name = "nspeedscroll" + Me.nspeedscroll.Size = New System.Drawing.Size(46, 20) + Me.nspeedscroll.TabIndex = 452 + Me.nspeedscroll.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(268, 76) + Me.Label20.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(36, 13) + Me.Label20.TabIndex = 451 + Me.Label20.Text = "speed" + ' + 'cmblayerscroll + ' + Me.cmblayerscroll.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmblayerscroll", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmblayerscroll.FormattingEnabled = True + Me.cmblayerscroll.Items.AddRange(New Object() {"51", "52", "53", "54", "55"}) + Me.cmblayerscroll.Location = New System.Drawing.Point(579, 11) + Me.cmblayerscroll.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmblayerscroll.Name = "cmblayerscroll" + Me.cmblayerscroll.Size = New System.Drawing.Size(40, 21) + Me.cmblayerscroll.TabIndex = 450 + Me.cmblayerscroll.Text = "51" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(463, 14) + Me.Label21.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(108, 13) + Me.Label21.TabIndex = 449 + Me.Label21.Text = "video layer-flash layer" + ' + 'tmrshowdatascroll + ' + Me.tmrshowdatascroll.Interval = 4000 + ' + 'DataGridViewTextBoxColumn1 + ' + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle6 + Me.DataGridViewTextBoxColumn1.HeaderText = "Scroll" + Me.DataGridViewTextBoxColumn1.MinimumWidth = 530 + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn1.Width = 530 + ' + 'ucMultiBulletScroll + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(668, 612) + Me.Controls.Add(Me.gbscroll) + Me.HideOnClose = True + Me.Name = "ucMultiBulletScroll" + Me.Text = "Multi Bullet Scroll" + Me.gbscroll.ResumeLayout(False) + Me.gbscroll.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.nspeedhtmlscroll, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nsizehtmlscroll, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nyhtmlscrollticker, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nyhtmlscroll, System.ComponentModel.ISupportInitialize).EndInit() + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + CType(Me.ntextY, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.dgvscroll, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nspeedscroll, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbscroll As System.Windows.Forms.GroupBox + Friend WithEvents cmdselectallforscroll As System.Windows.Forms.Button + Friend WithEvents cmddeselectallforscroll As System.Windows.Forms.Button + Friend WithEvents cmdresumescroll As System.Windows.Forms.Button + Friend WithEvents cmdpausescroll As System.Windows.Forms.Button + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Label50 As System.Windows.Forms.Label + Friend WithEvents cmblayertime As System.Windows.Forms.ComboBox + Friend WithEvents cmdhidetime As System.Windows.Forms.Button + Friend WithEvents cmdshowtime As System.Windows.Forms.Button + Friend WithEvents cmdplayscroll As System.Windows.Forms.Button + Friend WithEvents cmdstopscroll As System.Windows.Forms.Button + Friend WithEvents cmddeletetsscroll As System.Windows.Forms.Button + Friend WithEvents cmduptsscroll As System.Windows.Forms.Button + Friend WithEvents cmddowntsscroll As System.Windows.Forms.Button + Friend WithEvents cmdinserttsscroll As System.Windows.Forms.Button + Friend WithEvents dgvscroll As System.Windows.Forms.DataGridView + Friend WithEvents nspeedscroll As System.Windows.Forms.NumericUpDown + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents cmblayerscroll As System.Windows.Forms.ComboBox + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents tmrshowdatascroll As System.Windows.Forms.Timer + Friend WithEvents ntextY As System.Windows.Forms.NumericUpDown + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewCheckBoxColumn2 As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents IMG As System.Windows.Forms.DataGridViewImageColumn + Friend WithEvents Label2 As Label + Friend WithEvents txmultibulletscrollerTemplate As TextBox + Friend WithEvents MenuStrip1 As MenuStrip + Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem + Friend WithEvents NewToolStripMenuItem As ToolStripMenuItem + Friend WithEvents OpenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SaveToolStripMenuItem As ToolStripMenuItem + Friend WithEvents EditToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CutToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CopyToolStripMenuItem As ToolStripMenuItem + Friend WithEvents PasteToolStripMenuItem As ToolStripMenuItem + Friend WithEvents cmdPlayMultibulletHtml As Button + Friend WithEvents chkbase64htmlscroller As CheckBox + Friend WithEvents nyhtmlscrollticker As NumericUpDown + Friend WithEvents Label190 As Label + Friend WithEvents cmdstripcolorhtmlscroll As Button + Friend WithEvents chkltrhtmlscroll As CheckBox + Friend WithEvents Label161 As Label + Friend WithEvents Label162 As Label + Friend WithEvents nyhtmlscroll As NumericUpDown + Friend WithEvents Label163 As Label + Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn + Friend WithEvents nspeedhtmlscroll As NumericUpDown + Friend WithEvents nsizehtmlscroll As NumericUpDown + Friend WithEvents cmbfonthtmlscroll As ComboBox + Friend WithEvents cmdcolorhtmlscroll As Button + Friend WithEvents Label156 As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label157 As Label + Friend WithEvents Label160 As Label + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents cmdstopcrawlhtmlscroll As Button + Friend WithEvents cmdpauseresumehtmlscroller As Button +End Class diff --git a/CasparMediaPlayback/ucMultiBulletScroll.resx b/CasparMediaPlayback/ucMultiBulletScroll.resx new file mode 100644 index 0000000..461a1ed --- /dev/null +++ b/CasparMediaPlayback/ucMultiBulletScroll.resx @@ -0,0 +1,331 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 504, 98 + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAA+klE + QVQ4T83RMWqEQBiG4a0EQRAEQRBEQRQERRsrSysbCytv4B3sPICVYOsVrDyCrVZiqTfQC3yB7JCNjFk2 + EsK+3cz8/9PMDX/Q/yBJkqDrOnI67ylSliVkWYZhGFjXldzS/Yj0fQ9FUT4RSZIQxzF5oTtFtm2D4zgH + RBRF1HVNJo6dIlmWQdM0ClFVFcuykKlHFNI0DXRdP0UEQUAURWTy0QGZpgmmaT5FeJ5HVVVk494Xsu87 + wjB8CeE4DuM4ks1vSJ7nsCzrZcT3fbJJkLZtYdv2rxCWZVEUxR2Z5xlBEFxCGIbBMAy4pWkK13UvI57n + 0V98pXdBgA8V7mE/Mzv3lQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABBElE + QVQ4T83RwapEYBjG8VmpKaWUUkqUKEVsrCytbCys3IF7sJsLsFK2bsHKJdiykiV3wA085xhfneMYkzPN + Yv4Lhff91dd3wRv6IMS2bVAUhev1CpqmwTAMWJYFx3HgeR6CIEAURciyDEVRoGkadF2HYRiwLAtRFOHS + NM3LiOu66Pt+Pc7tdnsJKctyPc79+Z3jOP9CkiQhm7+Qtm1PI57nYZ5nsvnndrIsO4V0XUc21nZX7Pv+ + U6QoCjL50w4ZhgGSJD1E4jgmU9t2yFKe5zvENE1M00Qmtj1EloIg2CB1XZM/+w6RcRyhquodSdOUfH3c + IbJUVRXCMCRvxz1FzvYGBPgCf+thP16YOusAAAAASUVORK5CYII= + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgFBgcGBQgHBgcJCAgJDBMMDAsLDBgREg4THBgdHRsYGxof + IywlHyEqIRobJjQnKi4vMTIxHiU2OjYwOiwwMTD/2wBDAQgJCQwKDBcMDBcwIBsgMDAwMDAwMDAwMDAw + MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDD/wAARCAARABEDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD17W9fgsopZJp4o0RWZFeQKZCozgZ61m+E/GEOtafDdI0cMzls + 23mhmABxnHX9KyPHvh2y1HdBqUJaSFZDaP5hQbmHHTryBWB8OPCyaZHbTXUAbXTvRmjlLrtJ446dO9dy + px5Dlc5cx67/AGlB6miqP9iP/wA9RRXPaHc2vMj8a/8AII/4FWb8P+s30ooraP8Au7MpfxUdhRRRXGdJ + /9k= + + + + True + + + True + + + True + + + + /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAkGBxMSEhUSEhIWFRUVFx0XFxcXGBgVFxgXFxUXFxcVHRoY + HSggGBolHRcVITEiJSkrLi4uFx8zODMtNygtLiv/2wBDAQoKCg4NDhoQEBstJSAlLS0tLS0tLS0vLS0v + LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS3/wAARCADCAQQDAREAAhEBAxEB/8QA + HAABAAIDAQEBAAAAAAAAAAAAAAMHAgUGBAEI/8QARhAAAQMCAQcIBwUFBwUAAAAAAQACAwQRIQUGBxIx + QVETIjJhcYGRoUJSYnKSsdEUIzNDwVOCorLCFkRUY3PS8BUXJDTx/8QAGgEBAAMBAQEAAAAAAAAAAAAA + AAECBQQDBv/EADURAAIBAgMECAUFAQEBAQAAAAABAgMRBCExBRJB8BMyUWGBkbHRIkJxoeEUM1LB8RUj + YkP/2gAMAwEAAhEDEQA/ALxQBAEAQBAEAQBAEAQBAEAQC6A+XQH26AID5dALoD6gCAIAgCAIAgCAIAgC + AIAgCAIAgCAIAgCAIAgCA+EoDTZSzro4LiSoYCPRB1neDV7ww1WekTnniqUePln6HNV2lGAfgwySdbrM + Hncrqjs6b6zSOWW0YrqxNHVaTqo/hxRMHXrPPzC6I7Op8WzwltGpwsjW1Gfde784N91jR/MCvWOCorge + M8bUb63p7HifnXXH+9Sd2qPk1eiw1JfKjz/U1P5PzIjnHWH+9TfHb5K3QUv4ryI6ep/J+bPn9oqz/FTf + GU6Cn/FeQ/UVF8z82ZszprhsqpO8g/MKHhqX8UXWJqdr8z10+flew/jh3U9jT8gCvKWCovgekcZUT1f2 + 9jb0elKob+LDG8eySw9uNwvGWzoPqtntHHzWtvT3OkybpOo5LCUPhPtC7fib9Fyz2fVjpmdUMbB5NW+/ + odZQZSinbrQyMkHFrgVxyhKDtJWOqFSM+q7nrVS4QBAEAQBAEAQBAEAQBAEAQBAEAQBAePKWVIaduvNI + 2NvFxtfsG0nsV4U5Tdoq5SpUjBXk7HA5a0oDFtLFrf5kl2t7Q0YnvstCls5vrvyM+pj+EV5+xxOVc4qq + p/FmcR6rTqM+Ebe9aFPD06fVRwVcRKer5+mhrGtG4L2PBu5kApK3PtlAPtkIFkJuCFJB8shKZjZAfCEL + XMCFBKZiQhJ9p5XRu143uY4ek0lp8QqyipKzPSNRp3OyyFpLqYbCoaJ2DaRZsgHHg7vXDV2fCXUyO6lj + JLX7ll5v50U1YLwyAuG1h5rx2tPzGCzKtCdLrI0KdaM9New3S8T1CAIAgCAIAgCAIAgCAIAgCAxkkDQS + SABiSTYAcboQ2krsrrOjSU1t46IB7thld0B7o9Pt2dq0qGAbzqZdxwVsbbKHnz6lb11bJO8yTSOked7v + 0Gwdy1IU4wVoozJ1HJ3ZEArnhczAQXMrKSpkGoRcyDVAufdVCBqoMhqoL5GJahKMSP8Am1C1ramTKZ7u + jG93Y1x/RQ5JBK5J/wBLn/YS/A76KOkh2rzLqD7H5P2I5MnTDbDKO1jvooVSL4otuvm55JGEYEEHrBH6 + KyYIihdJ20EUjmOD2Etc3EOabOHeEcU1Zl4yaLGzS0mltoq7EbBMBs99v9Q8Fl18Bxp+RoUcW9Jc+/qW + jTztkaHscHNcLgg3BB3ghZjTTszvUlJXRKoJCAIAgCAIAgCAIAgCA8WV8qRU0TpZnhrW+JO4AbyeCvTp + ynLdiUqVIwV2UvndnjNXOLReOC+EYOLut9tvZsC28PhI0ld5syMRiXUfPL5+pzoC6zjbuZgKTzbMwEIM + w1QVZmApIuZgKCD6GoRmZEKC2d9DY5LyFUVH4MLnD1jzW/Edq8qlenT6zPWlRqVMoq/PadXk7Rq44zzA + ezGL+bvouGe0l8q8zQp7MlrN2+mfsdHQ5i0Ue2IvPF7i7y2Llnja0uNvodkMBRjrmbqnyVAzoQxt7GNB + 8bLndSb1bOiNCnHSK8j1hqoeoQGDpWja4DtNksRdGDmMeLENcOsBym7iRaMjXVebFHL06aPtDQ0+IXrH + EVY6SZ5vD0n8pzuUNF1I+/JmSI9TtceDvquiG0Ki1zPGWCg9H/ZyWVdF1XHcwvZMOHQd/Fh5rrhtCm+t + kc8sJOOmfPPE12Qc4KvJMgZLG8RE86J4IHW6NxwvvwwPmr1aNPEK8Xn2oUpzpu3PPeXRkTLENXEJoXhz + T3EHe0jcVjVKcqct2RpRmpK6NgqFggCAIAgCAIAgCA8WV8qR00TppnarGjHiTuaBvJ3BXp05VJbsdSk5 + qCuyic6M45a6bXfcMb+HHuYOJ4uO89y3sPQjSjZa8WY1es5yzNSAug5WSNCFWZtCkpckaFBFzMBSVuSN + CghszDUBtsh5vz1Z+6ZzQcZHYNH1PUF4VcRCl1n4HvRw862UV9ezz5ZYmRMxqeGzpBy0nFw5oPU3Z43W + TVxtSfVyRsUdn04L4839vI6lrQMALBcZ3pW0PqEhAEAQFR5/Z2Tunkp4nmOKM6p1cHPdvudwvwWxg8LB + QU2rtmNi8TJycVpzz7nESOccS5xPW4/VaFkcO9mI5nt6L3Dsc4fqjinqiynbM2dHnXWxdCpfYbnWcPML + xlhaUtYnrDEzjo3z9Tosn6UqluE0TJBxaTGf1HkuWezoPqto64Y6XG3pz5HVZK0lUUtmyF0Lj+0HN+IY + eNlyVMDVjpmdUMZB65eh1Lmw1EdiGSxuHU9pC5Pig+xnR8FRdqOdjzOFNLy+T3mEnpwm7oZBwI2sPBw2 + L3/Ub8d2or9/FFOi3XeLOrYTYXFjv3rmPYyQBAEAQBAEAQGMjwASTYAXJO4DegbsUTn7nQa6ezD9xGbR + j1jsMp7dg6lvYTD9FG71fNjHxNdzZzYC6zhkSNCkqSBCrZK0KCDMBCjZI0IQyUBQGdzmnmOZAJaoEN2t + j2Od1u4DqWbicdu/DT17TTwmA3/iqafd+y+5Y0MLWNDWgNaMABgAOxZTbbuzajFRVloebKWVYadutNK2 + MbtY2J7BtPcrQpym7RVys6sIdZnJV2k+labRskl6wAwfxEHyXZDZ9R6tI5JY+C0T9DWO0rcKXxePovX/ + AJv/ANfY83tB9i837HoptKsR/Ep5G+6Wu+dlWWzZcJFltBcV9/ex0uR88qOpOqyYBx9F/Md3a23uXLUw + tWnm0dEMVSk7Xs+8365zpKb0kZIMNW6S3Mn5zT7YHOaevetzA1VKnu8UYWOpuNRvg80ckWruOExIQm5i + QoLJmBCklMxIUF1JnpyXlSemdrQSujPAHmntbsK86lKFRWkrnrTqOGaLIzY0oMfaOtAjdsErfwz7w2s+ + XYsutgGs6fkaNLFp5S58PYseKQOAc0ggi4INwRxBG1ZzVjtTTV0ZoSEAQBAEAQBAV7pbzh5KIUkZs+YX + fbdFst+8QR3Fd+Aob8t96L1OLF1bLdRUTVtGVJ3ZI1DyZKxSQSAIebJGoQ3kSsCggkaEZVFi5h5qYCpq + G4nGNhGwbnkceHBZOMxX/wCcH9X/AEbGBwd//Sfgv79jv9izDYK7zw0hhhdDR2c4YOlOLGneGj0ndewL + Sw2B3viqeRnV8Zb4Yeft7lZVdU+VxfK90jjtc43P0HctWMFFWSsZkptu7IirFD4pICgkWQlM6rNnPiop + SGvJmh9Vxu5o9lx+RXHXwcKmayZ1UMVKnlqufL0LOmbTZUpSGuDmO2EdNjxsw3OHBZUXUw9TP/TTkoYm + nblMp/LWSJKWUxSixGIcOi9u5w+m5blGrGrHeiYNWlKnJqRryF6nncxIQlMwIQsiJwUi5g4KC6ZgQhdM + 6fMvPSWhcGOvJTk85m0s9pn+1ceJwsaqutTsw9dwy5/0vGgrY5o2yxOD2PF2uGIIWJKLi7PU1IyUldHo + VSwQBAEAQGEsgaC4mwAuT1DaizIbtmfnPOTKpqqqWc7HOszqY3BoHdj3r6OhS6OCiYtee8+edDXtXscz + ZK1SebZI1CrfYStQrckAUENXJWoVOrzDyB9pm5R4+6iIJ4Ofta3s3lcWNr9HDdWrO7BYbpZ3ei19vctw + YLDPoStdJedpBNHA637Z4OIB/LB48fBaeBw1/wD0l4e5mYzEfJHx9is7LWMxt6hCBdSRc+IAhJ9CgIID + b5sZfkophKy5YbCRm57f9w3FeFegq0bPwOihWdOV1z3excOVcmwZSpmuBuHDWjkG1p/5gQsWnUnh6nqj + Vq0oYmmn5Ps54lPZYyXJTSmGUWcNhGxzdzh1LdpVY1I70TCqU5U5OMufweBzV6nkRkISYOCguRuCEkbg + hdMjKFkdlo1zrNJMIJHfcSm2OyOQ4B3U04A9xXBjMPvx3lqjvw1bddnzzx7sy7wVimmfUAQBAEBzOkev + 5HJ87gbOcBGP3yGnyLl04SG9VXmeGIdqb7ygmr6BGLJ3dyRqk82ShCkiVqFTNoQoyZiEErAoYWpeGamS + hTU0cfpW1n9b3Yu+ncvncRV6So5eR9LhKPRUkuOrPmdmWBSUsk3pAWYOLzg0KKFLpaiiXr1ejg2UFK8u + Jc4kucSSTvJxJX0SVlZHz8pXZipIPikgBAghIQH1QAgCAsXRLluz30bzgbyR9RHTb8j3FZe0KOSqLxNL + A1vi3Hx9fydlnjm82sgIFhKy7o3dfqnqOxceFrulPuep1YvD9LC61WnsUpIwgkOFiCQQdxGBHkt9O6yP + n7O5E4KSCMhSWiyNzVBZGBCFkROCF0ROCg9IysXxo0y6aqjbrm8kJ5J/E2HNd3tt33WDi6XR1MtHmbGH + nvR+h1q5T3CAIAgK600zWpoWetLf4Wn6rQ2cvjbOPF9VFQtWyZViVqkoSNQ82StQqyRqFSVigh9puM1q + YS1cDDsLwT2DH9F44mW7Sk+49cNDeqpd6LzC+cPqCsdMdfzoKcbMZXD+Fv8AUtXZsMpT8DL2hP4lHx88 + vcrXWHFahm7rGsOKDdZ91hxCDdZ81hxQbrGsOKkjdZ91hxUE7rOjyBRUxpKmplYZnQuaBEHllmut944t + xtcnwXJWnPpIwjlfidVKEdxyfC2WhoKmZjnOLGhjScG3LtUcLnE9pXVFNLM55ZvJEWsOKsUs0e7IlaYa + iGYHoSAnsvYjwK8q0N+Dj3HrTbjJPsP0U03GG9fNH0RUWkrJgiq+UA5szdb98YO8tVbeAqb1O3YYOPp7 + lRtcc/fnvOQcF3HAROUlr5mDgoLoicEJRG4IXInIXR3Oh6v1Kx8R6MsfdrMcCPIuWftCF6d+w78JK0rc + 86l1LGNIIAgCArTTb+FTf6jv5QtLZ2svA48XovEqZq1zKZKxSeZI1ChK1CJaEgQ83clYjB0+j632+Lsd + /KuTG/ss6sD+9Hngy5gsA+jKY0pyXr7erEzs2uK28Av/AB8WY2N/dfh/ZsKWSrfE2X7Dk6NjugZm6hdh + gQL7LLzfRqW7vyb7i6b3U92KXel7mecOVo4G07YqailmkB5VrGcqGuAFg0NN7G58FFGnKbk5SkktL5Cr + UhFRso345XJczq01Uzo5snQsYGE8oISwNcNgdrbbquJj0cN6M3f6l6DVSVnBeR4cm11RUOkENBQubE4h + 0jo9VmBIGOtwF16TjCCW9OWfC55QcpN7sY5d2Xqe+WtbFSzyzwZOMzbciyKzg8YA3G0nE7F5qEpVIqLl + bjc9N+Cg95Rv4HyXKdPCxgnhpi6VrXNliha6GMvwDXc67zhjsRU6k23Buy4N5shVIJfFFXavdLJffM9u + RaiSPKP2KWnpWh0biXxRluuyxI2nZxC86qUqPSRk9eLPWk3Gp0cks+xGphq55OWdHQ0DYYpHR8pKzUbz + Ta174nZ4r3cYxspTld9h4qTkm1GNvp+TZZOpagzRMnpMmiOQ35nTc23SZfbuXlOcN1uEpXR6Qg95KUY5 + 9y9zjM+ZB9slY2OONsR1Ghg1bgAHWPE4ruwqfRJt3ucuIt0rSSXAuzI0utBE7jG0+LQsKorTa7zYpO8I + vuOT0sU96eJ+9soHc5p+gXds2XxtdxwbTj8EX32+34KtctgxUQvUkswKFosichcjkQsRFQXibzMOXVyh + THjIG/EQFzYpXpS+h14Z/Gl3o/Qy+fNcIAgCArzTRT3pY3+pKL/vNIXfs+VptHLildIp4LZMlkrVJQkC + FGiVqkq0SNQoSNQrY3OalSIquB52a4BPU7ArnxMd6lJdx7YaSjUi+9F6BfOn05TWleG1cD68LT4Fw/Rb + ez3ejbvMXG5Vb/T+z7RVzMoshpJqZ8kkDeZJG9rAGAAEv1sALAKJU3QbnGVk+D7S0KiqpQazXp6Hoyxk + yNlLHUUAjZNTPPKGB4keGHDXcfSt4WJVadRuo4Vb2lpctUjHdUoPNa2d+fqJc6o6unjjqauemkYC2Tkm + 3ZMDvOqMDhs7UWGlSm3CKa7+A6dVIpTbX9+VjU5Iy9HTsqKVzDPSzE7Pu5NgGt1XsMOpe1SjKbjNO0l4 + o8qdVQvHVPw00PTkVuTpGzwiHkiYXPZNO9usHjANbbAccMTYqlXp4uMr3z0RKlSlFxfY82+wkzfy3S8m + RLFBBUNsYpTDrx4AYuaNjr3x61FalV3vhbceKuTTnSSzSvwdvUxyTltkOUhU1FTy7dQh0rGOAu5tg0Mt + ew2KalFyobkI27hCqo1lJu/+HgbnA3k5qeSETU8kzpWguLHNcXEggj5L0/Tu6mnZpWPONeycbZXv2fcl + izla+qpJHsEUNLzWNbdxay1jicScAoeHapzSd3IssRecW9EazOWsZPVTSx3LZH3bcWJFgNh2L1oRcKaU + jzrTUqja7y+8mRakMbfVY0eDQF89N3k2blJWgl3HMaUnf+GBxlZ8nLs2f+6/ocO0v24rv/plTOW2YSIn + KS1yIoWRG5CxE9CxE5QXTNvmZ/79L/rM/mC8MT+1L6HThv3F9T9Fr502ggCAIDQ585MNTQzxAXdq6zfe + YdYDvtbvXth57lRM8q0d6DPzw0r6JGNNWZI1SeTJQhVkjUKkrShQzBUlCVh4f8tiqslOzL0zVysKqmjl + vjbVf1Pbg7696+dxFLo6jifSYWr0tNS48fqchphycTHDUAdBxY49T+j5jzXbs6pZuHicu0Kd7S8Cv8hZ + XdSyGRrWuDmlj2O2OY7a08O1aNWkqkbM4KdRwdz15Py6yCqZUQ07Y2BpY6FriQ9rgQQSe0fCvOVBzpuM + nd9p6Kvu1LpZeJpZCLmwsL4DbYXwHcuhHM7MwurFbsKCUxdSRfM+3UWJbCki4uoJvkbbNfJ5qKuGK2Be + HO6mMxJ8gO9eGIqblNs9qMN+aXby/sfoEL50+hK70r1n4MIPGQ/yt/q8FqbNh1peBj7UnnGPj/XuV05a + pkrQgkUolkbkJRG5D0IihZERQsjotHdPr5RgHqnX+GxXJi3akztwyvNc9p+gFgGuEAQBACEBQGkLIP2S + sfYfdS3kjO7E89ncfIhbuErdJT70ZWJp7ryOcauw4yRpQoyRqFLEjShVkjSpK2M2lCDp8yc5Psc1nH7m + Tp+ydgk7t/UuPF4fpY5arT2OvCYjop56PX38C2Mq0UdXTviJuyVlgRjtFw4eRWLTm6c1LijcqRVWFu0o + DKFG+CR8Mgs+M2P6O7DtX0VOanFSRgVIuLaPOrlLhCcj4pK5hAmEAQBAfVBKVy1dFGQSyN1W8c6Uasd9 + 0YO394+QCx8fW3n0a4amvgaNvjfh/ZYD3AAkmwAuTwA3rOSvod7aSuyj858qfaamSX0b6rPcbs8cT3r6 + LD0ujpqJ8xiKvSzlLyNO9dB4kL0JZGQhZIjcoL6kblJZERUHpFFhaGMna081QRgxvJj3nEOPkB4rM2jO + 0VHtNHBQzvzn/hb6yTRCAIAgCA0WeObrK6nMTsHjnRv9V4GHcdhXtQrOlPeXieVWmpxsUBXUckEjopWl + r2Gzmn5jiDxX0EJqSujHqQcWRtKueNiRqFbEjUKMkBQhoyBUlWsyQOUWFzs8xc7/ALMRBObwk8137Mnj + 7HyWfi8J0nxx19TvweL6P4Zaen4Omz9zUFYwTwW5dowtskZt1b8eBXHhMT0T3Zaeh34mh0i346+pT72F + pLSCC02IIsQd4K2001dGPKNjEqSD4UKsWUkWCEhAfQoJSOrzGzSdWPEkjSKdhxOzlCD0B7PE9y4sXilS + W6ut6HbhsO6ju9OPtzp9S6mMDQABYDADcANywzZSSVkcNpGzi1GmljPOePvCPRYfR7XfJaOBw930ktOB + l7QxOTpR8fb37itHLYMbUicpC0InlCxG5CUiJ6FyNygsiNyhnrBXZf8AmFkX7JRxxuFnu+8k4678bdws + O5fP4qr0lRvhwNrDw3YfXM6Jc57hAEAQBAEBy+euZ0Vey99SZo5kgH8DuLfkunD4mVF9x4VqCqfUpLK+ + SpqWUxTsLHbj6Lh6zT6QW5TqxqK8WZNSm4u1ueeJ5muXoeNiRpQozMFCLGQKko0ZhyEZGesoGh3ejvOo + xObSzO+7cbRuJ6Dj6Fz6J3cFm43Dby6SOvE0sFid17j09Px6eJ1mdmZcNZzx91MBhI0dLqePSHXtXFQx + U6WWqO+vhY1M1k/UqnLmbFTSk8pES0fmMBcw+HR71sUsTTqLJmTWoSpvNe3maYG/Wvc8mhZCoshNiajp + XzO1IY3SOO5gLvG2xVlNRV5OxKi5OyLCzY0akkSVhFhjyLTt95w+QWZXx/Cn5mjRwL1n+Sy4IWsaGtaG + tAsABYADcAsxtvNmmkoqyOazwzrbStMcdnTEYDcz2nfoF14XCuq7vT1OHGYxUlux63p+e4qeeUucXOcX + Ocblx2knaVuJJKyMBu7uyBxUkETypJI3FCyI3IXiRuKgsRuKMvE67Rnm4aqp5Z7fuoCDjsdJta3sG09y + 4cbX6OG6tX6HdhaW/LPQu9YhrBAEAQBAEAQBAeHK2SoalnJzxte3gRsPEHaCrwqSg7xdis4KSsyss4NF + sjLupHh7f2b8Hjsdsd32WnS2gtJmfVwb+XP1OFrqGWB2rNE+M8HAjz2FaEKkZq8Xc4JU3F2ZECrnm1Yy + BQozMFCLGV1JFj7dQwi+czq8z0cMrukW2J4lvNv5L53EwUKrSPosLNypJvX2Nw5t8CvA6DTV+alHMSZK + eMk+kBqnxC94YmrHSTPCWFpS4eWXoat2jigP5bx2PK9f19btPL9DT7/M9FLmFQMx+zh3vku+arLGVpcS + ywdJcL/Vs39LRxxjVjY1g4NAaPJc8pSlm3c6IwjFWirEsjw0EkgAbScAFCVyW0ldnB5z59gXipTc7DL6 + I931j17O1aOHwLfxVPIycVtH5aXn7e5XskhJLnEkk3JJuSetaySWSMe99SElSERuKEkTihPAjKktxMHl + QXI3IWR68i5Jlq5mwRDnOxJ3MbveexeVWrGnFyZ0UabnKxf+QckR0kDIIhZrRt3uO9x4kr56pUdSTlI2 + 6cFCNkbBULhAEAQBAEAQBAaPOKKrbaajcHPaOdA/oSjgD6D+B2HevWk6fVn59h5z3tYmkyNpKpZDydQH + U0oNnNkHNDhtGsNnfZe88FNZxzR5rER+bI6wthqGbGSsPuvafmFy/FB9jPW0ZrtRzeU9HNDLctjMTjvj + cQPhPN8l1Qx1WOruc88HTemRzVdopeL8jUg8BI3HxaumO0l80TnlgHwf9e5o6nR/Xs2RNeOLXtx7iQV0 + Rx1F8bHPLB1Fw9Dy/wBkK/8Awj/Fv1Xp+ro/yR5/pan8Xz4m0yTo8rJSOVAgbvLiHOt1Bp29q8amPpxX + w5npTwM281b6lt5KoGU8TIYxzWCw49p61jzm5ycnxNinBQioo9aoXCAIDCWQNF3EADaSbDzUpN5IhtJX + Zy2Wc/KaK4iPLP8AZ6PxbD3LspYGpPrZI4Ku0acepn6fnwK/y5nJUVRtI+zN0bMG9/rd61KOGhS6qz7T + HrYmpW6zy7OHlx8TT6y6Dw4GJKAjc5CTAlCUiMlSSkYEoXSI3KCyR6Ml5NlqZWwwt1nu8Gje5x3ALzqV + I0470j2p03J2ReWaGbEdDFqN50jrGSTe4/o0bgsGvXlWld6cDbo0VTXeb5eB7BAEAQBAEAQBAEAQHH57 + 5ixVo5SO0dQBg+2D/ZeN/btHXsXXh8VKlk80c9agp5rUqBwq6CYx60kEjdwJAI9YbnArXXR1o3yaM6W9 + B8r0/wAOjyZpMrI8JNSYdY1XeI+i8J4ClLTIvHFzWTfn+Dp6HSvC78aB7D7JEg+QXLLZ011We8ccnqvv + 72N5TaQKB/52p77SF4SwVZcD2WLpv/DYxZ00TtlVF8QHzXm8PVXyst+ppfyRP/16l/xEXxt+qjoKn8WP + 1NH+S8yOTOSkbtqYviClYeq/lYeKor5keOfPWhb/AHhp6mgn9FdYSs/lKPGUlx+zNVV6Sadv4ccjz2Bo + 8cV7R2fUfWaR4T2lBdVXOfr9I1Q+4ijZEPjd52HkuqGzqa6zbOKe0qkurZc9/sc1X5UmnN5ZXv7TgO4Y + LshShDqqxxTqznnJ3ffzY8msvQ8xrISYlyEGBKE2MS5SSjAlQWMCVJJgSoLo22bWbU9c+0Y1YwedK4cw + dnrHqXPXxEaSz17Dpo4d1HbnnuLozazdhoo9SIYnpvPSeeJP6blh1q8qrvI2aVGNNZam4XkeoQBAEAQB + AEAQBAEAQBAavL2QYKyPk52BwHRdsc08Wu2helKrKm7xKTpxmsyos6NH9RSkvjBnh4tHPb7zRt7Qtihj + YTylkzMrYWUc+HPPsck08F2HE4kgKkqzIWQi7MwBwCFW2ZgDghDbMwUKsyDkIsZAoRYXQWGshA1kJsY6 + yCxiXISYkqSUjElLkpEtDRyTv1IY3SO4NF7dp2Adq851IwV5Ox7QpuTsiws29GYwfWuvv5Jh5vY52/sC + zK+0G8qfmaVHA8Z8893mWPTU7I2hjGhrWiwa0WA7gs1tt3ZoRioqyRKoLBAEAQBAEAQBAEAQBAEAQBAf + CEBzGcWYtJV3cWGOU/mR2aT2jY5dNLF1KeV7rvOaphoTz0fPArzLWjmsguYgKhns4P8AhO3uK0qePpy1 + yOGpg5rRX557Tk54nMOrI1zHcHAtPmF2qSeaOOUGsg0qTzsZAoQ0ZAqStu0+6yEGQchCQ1kABQC6gAlC + WjFuJsBc8ALnyRssos3uS8zq2osWwljT6UnMHhtPguapi6UOPkdNPCVJ8P6OzyRovibZ1TK6Q+ozmM7C + dpHguCptGT6isd9PAJdZ+Xvr5WO4oMnRQNDIY2saNzQB/wDVwznKbvJ3O6FOMFaKsepULhAEAQBAEAQB + AEAQBAEAQBAEAQBAEAQHmrKCKYassbHjg5od81aM5R6rsUnTjPrK5zFfo4oZMWsdEf8ALcQPA3C6o46t + HV3OeeCpvS657zSVOikfl1Th1PYHfykLojtLtj5HhLZ/Y/t+TwSaLqkdGeI9rXD9SvT/AKNPimeT2fLu + 8/wQu0aVm58J/ecP0Vv+jS7yj2fV7vP8Hz/trW+tD8Tv9qn/AKNLv8vyV/51Xu8/wSN0Z1e+SEfEVD2j + S7GWWzqnG3n+D0RaLpj0qiMdjHH+oKr2lHgmWWzZdqNhT6LGfmVTz7rWt+d14vaT4RPaOz+2Xkvds3FH + o7oWWux0h9t5I8BYLxljqz0dj2jgaS1u+e46GhyVBCLRQxs91oB8dq5p1JT6zudEKUIdVJHrsqHofUAQ + BAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQ + BAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQBAEAQH//2Q== + + + + 352, 98 + + + 25 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucMultiBulletScroll.vb b/CasparMediaPlayback/ucMultiBulletScroll.vb new file mode 100644 index 0000000..6ed7c16 --- /dev/null +++ b/CasparMediaPlayback/ucMultiBulletScroll.vb @@ -0,0 +1,505 @@ +Imports System.IO +Imports System.Net +Public Class ucMultiBulletScroll + Dim iPauseResumeV As Integer = 0 + Private Sub newtsscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + newdgvscroll() + End Sub + Sub newdgvscroll() + On Error Resume Next + dgvscroll.Rows.Clear() + dgvscroll.Rows.Add(7) + + For Each row As DataGridViewRow In dgvscroll.Rows + row.Cells(2).Tag = "C:\Casparcg\mydata\icon\cmp2.jpg" + Next + Me.dgvscroll.Columns(0).HeaderText = "new playlist" + End Sub + Private Sub opentsscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + End Sub + Sub openfilescroll() + On Error Resume Next + Dim ofd2 As New OpenFileDialog + ofd2.InitialDirectory = "c:\casparcg\mydata\multibullet\" + ofd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + If (ofd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sr As StreamReader = New StreamReader(ofd2.FileName) + + dgvscroll.Rows.Clear() + + Dim g As Integer = 0 + Dim li As String + Do Until sr.EndOfStream = True + li = sr.ReadLine() + dgvscroll.Rows.Add() + Dim xyz As Array = Split(li, Chr(2)) + dgvscroll.Rows(g).Cells(0).Value = xyz(0) + dgvscroll.Rows(g).Cells(1).Value = xyz(1) + dgvscroll.Rows(g).Cells(2).Value = Image.FromFile(xyz(2)) + dgvscroll.Rows(g).Cells(2).Tag = xyz(2) + g = g + 1 + Loop + sr.Close() + End Using + Me.dgvscroll.Columns(0).HeaderText = ofd2.FileName + End If + End Sub + + Private Sub savetsscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + Sub savefilescroll() + On Error Resume Next + osd2.InitialDirectory = "c:\casparcg\mydata\multibullet\" + osd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + osd2.FileName = "" + If (osd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sw As StreamWriter = New StreamWriter(osd2.FileName) + If dgvscroll.Rows.Count = 0 Then + sw.Write("") + Else + + Dim f As Integer = 0 + Do Until f = dgvscroll.Rows.Count + If dgvscroll.Rows(f).Cells(1).Value = False Then dgvscroll.Rows(f).Cells(1).Value = "0" + sw.WriteLine(dgvscroll.Rows(f).Cells(0).Value & Chr(2) & dgvscroll.Rows(f).Cells(1).Value & Chr(2) & dgvscroll.Rows(f).Cells(2).Tag) + f = f + 1 + Loop + End If + sw.Close() + End Using + Me.dgvscroll.Columns(0).HeaderText = osd2.FileName + End If + End Sub + + Private Sub cuttsscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + Sub deleteclipscroll() + On Error Resume Next + dgvscroll.Rows.RemoveAt(dgvscroll.CurrentRow.Index) + End Sub + + Private Sub copytsscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + Sub copyscroll() + tempRow = Me.dgvscroll.CurrentRow + End Sub + + Private Sub pastetsscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + Sub insertcopiedscroll() + On Error Resume Next + Dim curRow As Integer = Me.dgvscroll.CurrentCell.RowIndex + dgvscroll.Rows.Insert(dgvscroll.CurrentRow.Index) + dgvscroll.CurrentCell = dgvscroll.Rows(curRow).Cells(0) + Me.dgvscroll.Item(0, curRow).Value = tempRow.Cells(0).Value + Me.dgvscroll.Item(1, curRow).Value = tempRow.Cells(1).Value + Me.dgvscroll.Item(2, curRow).Value = tempRow.Cells(2).Value + Me.dgvscroll.Item(2, curRow).Tag = tempRow.Cells(2).Tag + + End Sub + + Private Sub cmduptsscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmduptsscroll.Click + clipmoveupscroll() + End Sub + Sub clipmoveupscroll() + On Error Resume Next + If Me.dgvscroll.CurrentCell.RowIndex <> 0 Then + Dim curRow As Integer = Me.dgvscroll.CurrentCell.RowIndex + Dim myRow As DataGridViewRow = Me.dgvscroll.CurrentRow + Me.dgvscroll.Rows.Remove(myRow) + Me.dgvscroll.Rows.Insert(curRow - 1, myRow) + dgvscroll.CurrentCell = dgvscroll.Rows(curRow - 1).Cells(0) + End If + End Sub + + Private Sub cmddowntsscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddowntsscroll.Click + On Error Resume Next + clipmovedownscroll() + End Sub + Sub clipmovedownscroll() + On Error Resume Next + If Me.dgvscroll.CurrentCell.RowIndex <> dgvscroll.Rows.Count - 2 Then + Dim curRow As Integer = Me.dgvscroll.CurrentCell.RowIndex + Dim myRow As DataGridViewRow = Me.dgvscroll.CurrentRow + Me.dgvscroll.Rows.Remove(myRow) + Me.dgvscroll.Rows.Insert(curRow + 1, myRow) + dgvscroll.CurrentCell = dgvscroll.Rows(curRow + 1).Cells(0) + + End If + End Sub + Private Sub cmdinserttsscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdinserttsscroll.Click + On Error Resume Next + clipinsertscroll() + End Sub + Sub clipinsertscroll() + On Error Resume Next + dgvscroll.Rows.Insert(dgvscroll.CurrentRow.Index) + dgvscroll.Rows(dgvscroll.CurrentRow.Index - 1).Cells(2).Tag = "C:\Casparcg\mydata\icon\cmp2.jpg" + End Sub + + Private Sub cmddeletetsscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddeletetsscroll.Click + On Error Resume Next + deleteclipscroll() + End Sub + + Private Sub nspeedscroll_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nspeedscroll.ValueChanged + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("speed", nspeedscroll.Value) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmblayerscroll.Text), Int(cmblayerscroll.Text), CasparCGDataCollection) + + End Sub + + Private Sub cmdplayscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayscroll.Click + On Error Resume Next + setdataofscroll() + + CasparCGDataCollection.SetData("speed", nspeedscroll.Value) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayerscroll.Text), Int(cmblayerscroll.Text), txmultibulletscrollerTemplate.Text, True, CasparCGDataCollection.ToAMCPEscapedXml) + 'tmrshowdatascroll.Enabled = True + + End Sub + Private Sub cmdpausescroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpausescroll.Click + On Error Resume Next + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("speed", 0) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmblayerscroll.Text), Int(cmblayerscroll.Text), CasparCGDataCollection) + + End Sub + + Private Sub cmdresumescroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresumescroll.Click + On Error Resume Next + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("speed", nspeedscroll.Value) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmblayerscroll.Text), Int(cmblayerscroll.Text), CasparCGDataCollection) + End Sub + Private Sub cmdselectallforscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdselectallforscroll.Click + On Error Resume Next + Dim iscrollselectall As Integer + For iscrollselectall = 0 To dgvscroll.RowCount - 1 + dgvscroll.Rows(iscrollselectall).Cells(1).Value = 1 + Next + End Sub + + Private Sub cmddeselectallforscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddeselectallforscroll.Click + On Error Resume Next + Dim iscrolldeselectall As Integer + For iscrolldeselectall = 0 To dgvscroll.RowCount - 1 + dgvscroll.Rows(iscrolldeselectall).Cells(1).Value = 0 + Next + End Sub + Sub setdataofscroll() + On Error Resume Next + CasparCGDataCollection.Clear() + Dim ff As Integer = 0 + For jscroll = 0 To dgvscroll.Rows.Count - 1 + If dgvscroll.Rows(jscroll).Cells(1).Value = 1 Then + CasparCGDataCollection.SetData("loader" & ff, dgvscroll.Rows(jscroll).Cells(2).Tag) + CasparCGDataCollection.SetData("data" & ff, Replace(dgvscroll.Rows(jscroll).Cells(0).Value, vbLf, vbNullString)) + ff = ff + 1 + End If + Next + CasparCGDataCollection.SetData("n", ff + 1) + CasparCGDataCollection.SetData("texty", ntextY.Value) + + End Sub + + Private Sub cmdstopscroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstopscroll.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(Int(cmblayerscroll.Text), Int(cmblayerscroll.Text)) + tmrshowdatascroll.Enabled = False + End Sub + Private Sub tmrshowdatascroll_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrshowdatascroll.Tick + On Error Resume Next + updatedatascroll() + End Sub + Sub updatedatascroll() + setdataofscroll() + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmblayerscroll.Text), Int(cmblayerscroll.Text), CasparCGDataCollection) + End Sub + + Private Sub cmdshowtime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdshowtime.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayertime.Text), Int(cmblayertime.Text), ("CMP/time/time"), True, CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + Private Sub cmdhidetime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhidetime.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(Int(cmblayertime.Text), Int(cmblayertime.Text)) + End Sub + Private Sub ucScroll_Load(sender As Object, e As EventArgs) Handles MyBase.Load + initialisescrolldata() + enumeratefontsforall() + End Sub + Sub initialisescrolldata() + On Error Resume Next + dgvscroll.Rows.Add(10) + + + Me.dgvscroll.Item(0, 0).Value = "Ram eats mango." + Me.dgvscroll.Item(0, 1).Value = "Mohan goes to home." + Me.dgvscroll.Item(0, 2).Value = "Sita cooks food." + Me.dgvscroll.Item(0, 3).Value = "Vimlesh does casparcg." + Me.dgvscroll.Item(0, 4).Value = "Sumant makes storage." + Me.dgvscroll.Item(0, 5).Value = "KD prasad is good in programing." + Me.dgvscroll.Item(0, 6).Value = "Rajeev makes news graphics." + + Dim xx As String = "C:\Casparcg\mydata\icon\cmp2.jpg" + Me.dgvscroll.Item(2, 0).Value = Image.FromFile(xx) + Me.dgvscroll.Item(2, 0).Tag = xx + + Me.dgvscroll.Item(2, 1).Value = Image.FromFile(xx) + Me.dgvscroll.Item(2, 1).Tag = xx + + Me.dgvscroll.Item(2, 2).Value = Image.FromFile(xx) + Me.dgvscroll.Item(2, 2).Tag = xx + + Me.dgvscroll.Item(2, 3).Value = Image.FromFile(xx) + Me.dgvscroll.Item(2, 3).Tag = xx + + Me.dgvscroll.Item(2, 4).Value = Image.FromFile(xx) + Me.dgvscroll.Item(2, 4).Tag = xx + + Me.dgvscroll.Item(2, 5).Value = Image.FromFile(xx) + Me.dgvscroll.Item(2, 5).Tag = xx + + Me.dgvscroll.Item(2, 6).Value = Image.FromFile(xx) + Me.dgvscroll.Item(2, 6).Tag = xx + + Me.dgvscroll.Item(1, 0).Value = 1 + Me.dgvscroll.Item(1, 1).Value = 1 + Me.dgvscroll.Item(1, 2).Value = 1 + Me.dgvscroll.Item(1, 3).Value = 1 + Me.dgvscroll.Item(1, 4).Value = 1 + Me.dgvscroll.Item(1, 5).Value = 1 + Me.dgvscroll.Item(1, 6).Value = 1 + + + End Sub + + Private Sub cmdhidegbscrollandclock_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub + Private Sub dgvscroll_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvscroll.CellContentClick + If e.ColumnIndex = 2 Then + Dim aa As New OpenFileDialog + If aa.ShowDialog = DialogResult.OK Then + dgvscroll.CurrentRow.Cells(2).Value = Image.FromFile(aa.FileName) + dgvscroll.CurrentRow.Cells(2).Tag = aa.FileName + End If + End If + End Sub + + Private Sub ntextY_ValueChanged(sender As Object, e As EventArgs) Handles ntextY.ValueChanged + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("texty", ntextY.Value) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmblayerscroll.Text), Int(cmblayerscroll.Text), CasparCGDataCollection) + + End Sub + + Private Sub dgvscroll_DefaultValuesNeeded(sender As Object, e As DataGridViewRowEventArgs) Handles dgvscroll.DefaultValuesNeeded + On Error Resume Next + e.Row.Cells(2).Value = Image.FromFile("C:\Casparcg\mydata\icon\cmp2.jpg") + e.Row.Cells(2).Tag = "C:\Casparcg\mydata\icon\cmp2.jpg" + End Sub + + Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click + On Error Resume Next + newdgvscroll() + End Sub + + Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click + On Error Resume Next + openfilescroll() + End Sub + + Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click + On Error Resume Next + savefilescroll() + End Sub + + Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click + On Error Resume Next + deleteclipscroll() + End Sub + + Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click + copyscroll() + End Sub + + Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click + insertcopiedscroll() + End Sub + + Private Sub MenuStrip1_MouseHover(sender As Object, e As EventArgs) Handles MenuStrip1.MouseHover + MakeMenuDropDownWhenParrented(sender) + End Sub + + Private Sub cmdPlayMultibulletHtml_Click(sender As Object, e As EventArgs) Handles cmdPlayMultibulletHtml.Click + On Error Resume Next + + iPauseResumeV = 0 + + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " [HTML] " & """" & "C:/casparcg/mydata/html/htmlscrollerMultiBullet.html" & """" & " mix 20") + ' Threading.Thread.Sleep(1000) + + If chkltrhtmlscroll.Checked Then + If chkbase64htmlscroller.Checked Then + For i = dgvscroll.Rows.Count - 1 To 0 Step -1 + If dgvscroll.Rows(i).Cells(1).Value = 1 Then + Dim xx As String = Replace(Me.dgvscroll.Item(0, i).Value, vbCrLf, "") + 'xx = Replace(xx, " ", Chr(2)) + 'xx = Replace(xx, "\", Chr(5)) + + Dim array() As Byte = System.Text.Encoding.UTF8.GetBytes(" " & xx & " " & " ") + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " marqueedatabase64('" & System.Convert.ToBase64String(array) & "')") + End If + Next + Else + For i = dgvscroll.Rows.Count - 1 To 0 Step -1 + If dgvscroll.Rows(i).Cells(1).Value = 1 Then + Dim xx As String = Replace(Me.dgvscroll.Item(0, i).Value, vbCrLf, "") + 'xx = Replace(xx, " ", Chr(2)) + 'xx = Replace(xx, "\", Chr(5)) + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " marqueedata('" & replacestring1(xx) & Chr(2) & "" & Chr(2) & "')") + End If + Next + End If + Else + If chkbase64htmlscroller.Checked Then + For i = 0 To dgvscroll.Rows.Count - 1 + If dgvscroll.Rows(i).Cells(1).Value = 1 Then + Dim xx As String = Replace(Me.dgvscroll.Item(0, i).Value, vbCrLf, "") + + Dim array() As Byte = System.Text.Encoding.UTF8.GetBytes(" " & " " & xx) + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " marqueedatabase64('" & System.Convert.ToBase64String(array) & "')") + End If + Next + Else + For i = 0 To dgvscroll.Rows.Count - 1 + If dgvscroll.Rows(i).Cells(1).Value = 1 Then + Dim xx As String = Replace(Me.dgvscroll.Item(0, i).Value, vbCrLf, "") + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " marqueedata('" & Chr(2) & "" & Chr(2) & replacestring1(xx) & "')") + End If + Next + End If + End If + + 'Threading.Thread.Sleep(100) + If chkltrhtmlscroll.Checked Then + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " start2()") + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " start1()") + End If + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " fontcolor('" & ColorTranslator.ToHtml(cmdstripcolorhtmlscroll.ForeColor) & "')") + + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " stripcolor('" & ColorTranslator.ToHtml(cmdstripcolorhtmlscroll.BackColor) & "')") + + 'Threading.Thread.Sleep(100) + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " stripy('" & nyhtmlscroll.Value & "')") + + ' Threading.Thread.Sleep(100) + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " fontsize('" & nsizehtmlscroll.Value & "')") + + 'Threading.Thread.Sleep(100) + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " font('" & Replace(cmbfonthtmlscroll.Text, " ", Chr(2)) & "')") + + 'Threading.Thread.Sleep(100) + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " Tickery('" & nyhtmlscrollticker.Value & "')") + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " speed('" & nspeedhtmlscroll.Value & "')") + End Sub + + Sub enumeratefontsforall() + On Error Resume Next + Dim InstalledFonts As New Drawing.Text.InstalledFontCollection + Dim fontfamilies() As FontFamily = InstalledFonts.Families() + For Each fontFamily As FontFamily In fontfamilies + cmbfonthtmlscroll.Items.Add(fontFamily.Name) + Next + End Sub + + Private Sub nyhtmlscroll_ValueChanged(sender As Object, e As EventArgs) Handles nyhtmlscroll.ValueChanged + On Error Resume Next + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " stripy('" & nyhtmlscroll.Value & "')") + End Sub + + Private Sub nyhtmlscrollticker_ValueChanged(sender As Object, e As EventArgs) Handles nyhtmlscrollticker.ValueChanged + On Error Resume Next + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " Tickery('" & nyhtmlscrollticker.Value & "')") + + End Sub + + Private Sub cmdstripcolorhtmlscroll_Click(sender As Object, e As EventArgs) Handles cmdstripcolorhtmlscroll.Click + On Error Resume Next + + Dim aa As New ColorDialog + If (aa.ShowDialog() = Windows.Forms.DialogResult.OK) Then + cmdstripcolorhtmlscroll.BackColor = aa.Color + cmdcolorhtmlscroll.BackColor = aa.Color + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " stripcolor('" & ColorTranslator.ToHtml(cmdstripcolorhtmlscroll.BackColor) & "')") + End If + End Sub + + + + Private Sub nsizehtmlscroll_ValueChanged(sender As Object, e As EventArgs) Handles nsizehtmlscroll.ValueChanged + On Error Resume Next + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " fontsize('" & nsizehtmlscroll.Value & "')") + + End Sub + Private Sub nspeedhtmlscroll_ValueChanged(sender As Object, e As EventArgs) Handles nspeedhtmlscroll.ValueChanged + On Error Resume Next + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " speed('" & nspeedhtmlscroll.Value & "')") + + End Sub + + Private Sub cmbfonthtmlscroll_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbfonthtmlscroll.SelectedIndexChanged + On Error Resume Next + + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " font('" & Replace(cmbfonthtmlscroll.Text, " ", Chr(2)) & "')") + End Sub + + Private Sub cmdcolorhtmlscroll_Click(sender As Object, e As EventArgs) Handles cmdcolorhtmlscroll.Click + On Error Resume Next + + Dim aa As New ColorDialog + If (aa.ShowDialog() = Windows.Forms.DialogResult.OK) Then + cmdcolorhtmlscroll.ForeColor = aa.Color + cmdstripcolorhtmlscroll.ForeColor = aa.Color + + + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " fontcolor('" & ColorTranslator.ToHtml(cmdstripcolorhtmlscroll.ForeColor) & "')") + End If + End Sub + + Private Sub cmdstopcrawlhtmlscroll_Click(sender As Object, e As EventArgs) Handles cmdstopcrawlhtmlscroll.Click + On Error Resume Next + 'CasparDevice.SendString("stop " & g_int_ChannelNumber & "-" & cmblayerhtmlscroll.Text) + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " empty mix 20") + End Sub + + Private Sub cmdpauseresumehtmlscroller_Click(sender As Object, e As EventArgs) Handles cmdpauseresumehtmlscroller.Click + pauseresume() + End Sub + Sub pauseresume() + iPauseResumeV = iPauseResumeV + 1 + If iPauseResumeV = 1 Then + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " pause()") + + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " resume()") + 'CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerscroll.Text & " speed('" & nspeedhtmlscroll.Value & "')") + iPauseResumeV = 0 + End If + + + End Sub +End Class diff --git a/CasparMediaPlayback/ucMySqlTest.Designer.vb b/CasparMediaPlayback/ucMySqlTest.Designer.vb new file mode 100644 index 0000000..08ad74f --- /dev/null +++ b/CasparMediaPlayback/ucMySqlTest.Designer.vb @@ -0,0 +1,675 @@ + _ +Partial Class ucMySqlTest + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.cmdFillTablenames = New System.Windows.Forms.Button() + Me.cmbTables = New System.Windows.Forms.ComboBox() + Me.dgvContents = New System.Windows.Forms.DataGridView() + Me.cmdShowContents = New System.Windows.Forms.Button() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.cmdsetserver = New System.Windows.Forms.Button() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.chkIntegratedSecurity = New System.Windows.Forms.CheckBox() + Me.txtInsert = New System.Windows.Forms.TextBox() + Me.txtUpdate = New System.Windows.Forms.TextBox() + Me.txtDelete = New System.Windows.Forms.TextBox() + Me.cmdInsert = New System.Windows.Forms.Button() + Me.cmdUpdate = New System.Windows.Forms.Button() + Me.cmdDelete = New System.Windows.Forms.Button() + Me.cmdAny = New System.Windows.Forms.Button() + Me.txtAnyCommand = New System.Windows.Forms.TextBox() + Me.cmdShowincasparcg = New System.Windows.Forms.Button() + Me.lbllayerhtml = New System.Windows.Forms.Label() + Me.cmdStopSqlLayer = New System.Windows.Forms.Button() + Me.chkAllRow = New System.Windows.Forms.CheckBox() + Me.chkAllColumns = New System.Windows.Forms.CheckBox() + Me.txtrows = New System.Windows.Forms.TextBox() + Me.txtcolumns = New System.Windows.Forms.TextBox() + Me.nFontSizesql = New System.Windows.Forms.NumericUpDown() + Me.FontSizesql = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.cmdfontcolorsql = New System.Windows.Forms.Button() + Me.Label162 = New System.Windows.Forms.Label() + Me.cmdbgcolorsql = New System.Windows.Forms.Button() + Me.cmbfontsql = New System.Windows.Forms.ComboBox() + Me.Label160 = New System.Windows.Forms.Label() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.cmdSetServerMySql = New System.Windows.Forms.Button() + Me.txtdatabasemysql = New System.Windows.Forms.TextBox() + Me.txtpasswordMysql = New System.Windows.Forms.TextBox() + Me.txtusemysql = New System.Windows.Forms.TextBox() + Me.txtservermysql = New System.Windows.Forms.TextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.txtport = New System.Windows.Forms.TextBox() + Me.cmblayerSqlhtml = New System.Windows.Forms.ComboBox() + Me.txtdatabase = New System.Windows.Forms.TextBox() + Me.txtpassword = New System.Windows.Forms.TextBox() + Me.txtuser = New System.Windows.Forms.TextBox() + Me.txtserver = New System.Windows.Forms.TextBox() + CType(Me.dgvContents, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.nFontSizesql, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + Me.SuspendLayout() + ' + 'cmdFillTablenames + ' + Me.cmdFillTablenames.Location = New System.Drawing.Point(7, 396) + Me.cmdFillTablenames.Name = "cmdFillTablenames" + Me.cmdFillTablenames.Size = New System.Drawing.Size(105, 23) + Me.cmdFillTablenames.TabIndex = 19 + Me.cmdFillTablenames.Text = "Get Table Names" + Me.cmdFillTablenames.UseVisualStyleBackColor = True + ' + 'cmbTables + ' + Me.cmbTables.FormattingEnabled = True + Me.cmbTables.Location = New System.Drawing.Point(122, 398) + Me.cmbTables.Name = "cmbTables" + Me.cmbTables.Size = New System.Drawing.Size(171, 21) + Me.cmbTables.TabIndex = 18 + ' + 'dgvContents + ' + Me.dgvContents.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvContents.Location = New System.Drawing.Point(10, 479) + Me.dgvContents.Name = "dgvContents" + Me.dgvContents.Size = New System.Drawing.Size(1180, 393) + Me.dgvContents.TabIndex = 17 + ' + 'cmdShowContents + ' + Me.cmdShowContents.Location = New System.Drawing.Point(7, 447) + Me.cmdShowContents.Name = "cmdShowContents" + Me.cmdShowContents.Size = New System.Drawing.Size(146, 23) + Me.cmdShowContents.TabIndex = 16 + Me.cmdShowContents.Text = "Show Contenets of Tables" + Me.cmdShowContents.UseVisualStyleBackColor = True + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(28, 121) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(26, 13) + Me.Label5.TabIndex = 14 + Me.Label5.Text = "Port" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(0, 100) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(53, 13) + Me.Label3.TabIndex = 12 + Me.Label3.Text = "Database" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(0, 71) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(53, 13) + Me.Label4.TabIndex = 11 + Me.Label4.Text = "Password" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(27, 45) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(29, 13) + Me.Label2.TabIndex = 10 + Me.Label2.Text = "User" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(15, 22) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(38, 13) + Me.Label1.TabIndex = 9 + Me.Label1.Text = "Server" + ' + 'cmdsetserver + ' + Me.cmdsetserver.Location = New System.Drawing.Point(202, 19) + Me.cmdsetserver.Name = "cmdsetserver" + Me.cmdsetserver.Size = New System.Drawing.Size(46, 94) + Me.cmdsetserver.TabIndex = 4 + Me.cmdsetserver.Text = "Set Server" + Me.cmdsetserver.UseVisualStyleBackColor = True + ' + 'GroupBox1 + ' + Me.GroupBox1.BackColor = System.Drawing.Color.MistyRose + Me.GroupBox1.Controls.Add(Me.chkIntegratedSecurity) + Me.GroupBox1.Controls.Add(Me.Label3) + Me.GroupBox1.Controls.Add(Me.Label4) + Me.GroupBox1.Controls.Add(Me.Label2) + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(Me.txtdatabase) + Me.GroupBox1.Controls.Add(Me.txtpassword) + Me.GroupBox1.Controls.Add(Me.txtuser) + Me.GroupBox1.Controls.Add(Me.txtserver) + Me.GroupBox1.Controls.Add(Me.cmdsetserver) + Me.GroupBox1.Location = New System.Drawing.Point(3, 9) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(259, 161) + Me.GroupBox1.TabIndex = 20 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "SQL Settings" + ' + 'chkIntegratedSecurity + ' + Me.chkIntegratedSecurity.AutoSize = True + Me.chkIntegratedSecurity.Checked = True + Me.chkIntegratedSecurity.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkIntegratedSecurity.Location = New System.Drawing.Point(59, 128) + Me.chkIntegratedSecurity.Name = "chkIntegratedSecurity" + Me.chkIntegratedSecurity.Size = New System.Drawing.Size(115, 17) + Me.chkIntegratedSecurity.TabIndex = 14 + Me.chkIntegratedSecurity.Text = "Integrated Security" + Me.chkIntegratedSecurity.UseVisualStyleBackColor = True + ' + 'txtInsert + ' + Me.txtInsert.Location = New System.Drawing.Point(303, 46) + Me.txtInsert.Multiline = True + Me.txtInsert.Name = "txtInsert" + Me.txtInsert.Size = New System.Drawing.Size(551, 71) + Me.txtInsert.TabIndex = 712 + Me.txtInsert.Text = "insert into clients (ipfrom, ipto) values (3,5)" + ' + 'txtUpdate + ' + Me.txtUpdate.Location = New System.Drawing.Point(303, 123) + Me.txtUpdate.Multiline = True + Me.txtUpdate.Name = "txtUpdate" + Me.txtUpdate.Size = New System.Drawing.Size(551, 71) + Me.txtUpdate.TabIndex = 713 + Me.txtUpdate.Text = "update clients set ipfrom=15 where ipto=5" + ' + 'txtDelete + ' + Me.txtDelete.Location = New System.Drawing.Point(303, 200) + Me.txtDelete.Multiline = True + Me.txtDelete.Name = "txtDelete" + Me.txtDelete.Size = New System.Drawing.Size(551, 71) + Me.txtDelete.TabIndex = 714 + Me.txtDelete.Text = "delete from clients where ipto=5" + ' + 'cmdInsert + ' + Me.cmdInsert.Location = New System.Drawing.Point(860, 62) + Me.cmdInsert.Name = "cmdInsert" + Me.cmdInsert.Size = New System.Drawing.Size(63, 35) + Me.cmdInsert.TabIndex = 15 + Me.cmdInsert.Text = "Insert Command" + Me.cmdInsert.UseVisualStyleBackColor = True + ' + 'cmdUpdate + ' + Me.cmdUpdate.Location = New System.Drawing.Point(860, 137) + Me.cmdUpdate.Name = "cmdUpdate" + Me.cmdUpdate.Size = New System.Drawing.Size(63, 35) + Me.cmdUpdate.TabIndex = 715 + Me.cmdUpdate.Text = "Update Command" + Me.cmdUpdate.UseVisualStyleBackColor = True + ' + 'cmdDelete + ' + Me.cmdDelete.Location = New System.Drawing.Point(860, 214) + Me.cmdDelete.Name = "cmdDelete" + Me.cmdDelete.Size = New System.Drawing.Size(63, 35) + Me.cmdDelete.TabIndex = 716 + Me.cmdDelete.Text = "Delete Command" + Me.cmdDelete.UseVisualStyleBackColor = True + ' + 'cmdAny + ' + Me.cmdAny.Location = New System.Drawing.Point(860, 298) + Me.cmdAny.Name = "cmdAny" + Me.cmdAny.Size = New System.Drawing.Size(63, 35) + Me.cmdAny.TabIndex = 718 + Me.cmdAny.Text = "Any Command" + Me.cmdAny.UseVisualStyleBackColor = True + ' + 'txtAnyCommand + ' + Me.txtAnyCommand.Location = New System.Drawing.Point(303, 280) + Me.txtAnyCommand.Multiline = True + Me.txtAnyCommand.Name = "txtAnyCommand" + Me.txtAnyCommand.Size = New System.Drawing.Size(551, 71) + Me.txtAnyCommand.TabIndex = 717 + ' + 'cmdShowincasparcg + ' + Me.cmdShowincasparcg.BackColor = System.Drawing.Color.Green + Me.cmdShowincasparcg.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdShowincasparcg.ForeColor = System.Drawing.Color.White + Me.cmdShowincasparcg.Location = New System.Drawing.Point(953, 434) + Me.cmdShowincasparcg.Name = "cmdShowincasparcg" + Me.cmdShowincasparcg.Size = New System.Drawing.Size(156, 36) + Me.cmdShowincasparcg.TabIndex = 719 + Me.cmdShowincasparcg.Text = "Show in Caspacrg by HTML Template" + Me.cmdShowincasparcg.UseVisualStyleBackColor = False + ' + 'lbllayerhtml + ' + Me.lbllayerhtml.AutoSize = True + Me.lbllayerhtml.Location = New System.Drawing.Point(1078, 9) + Me.lbllayerhtml.Name = "lbllayerhtml" + Me.lbllayerhtml.Size = New System.Drawing.Size(33, 13) + Me.lbllayerhtml.TabIndex = 720 + Me.lbllayerhtml.Text = "Layer" + ' + 'cmdStopSqlLayer + ' + Me.cmdStopSqlLayer.BackColor = System.Drawing.Color.Red + Me.cmdStopSqlLayer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdStopSqlLayer.ForeColor = System.Drawing.Color.White + Me.cmdStopSqlLayer.Location = New System.Drawing.Point(1115, 434) + Me.cmdStopSqlLayer.Name = "cmdStopSqlLayer" + Me.cmdStopSqlLayer.Size = New System.Drawing.Size(75, 36) + Me.cmdStopSqlLayer.TabIndex = 722 + Me.cmdStopSqlLayer.Text = "Stop" + Me.cmdStopSqlLayer.UseVisualStyleBackColor = False + ' + 'chkAllRow + ' + Me.chkAllRow.AutoSize = True + Me.chkAllRow.Location = New System.Drawing.Point(676, 451) + Me.chkAllRow.Name = "chkAllRow" + Me.chkAllRow.Size = New System.Drawing.Size(67, 17) + Me.chkAllRow.TabIndex = 723 + Me.chkAllRow.Text = "All Rows" + Me.chkAllRow.UseVisualStyleBackColor = True + ' + 'chkAllColumns + ' + Me.chkAllColumns.AutoSize = True + Me.chkAllColumns.Location = New System.Drawing.Point(823, 450) + Me.chkAllColumns.Name = "chkAllColumns" + Me.chkAllColumns.Size = New System.Drawing.Size(80, 17) + Me.chkAllColumns.TabIndex = 724 + Me.chkAllColumns.Text = "All Columns" + Me.chkAllColumns.UseVisualStyleBackColor = True + ' + 'txtrows + ' + Me.txtrows.Location = New System.Drawing.Point(749, 450) + Me.txtrows.Name = "txtrows" + Me.txtrows.Size = New System.Drawing.Size(38, 20) + Me.txtrows.TabIndex = 725 + Me.txtrows.Text = "4" + ' + 'txtcolumns + ' + Me.txtcolumns.Location = New System.Drawing.Point(909, 447) + Me.txtcolumns.Name = "txtcolumns" + Me.txtcolumns.Size = New System.Drawing.Size(38, 20) + Me.txtcolumns.TabIndex = 726 + Me.txtcolumns.Text = "4" + ' + 'nFontSizesql + ' + Me.nFontSizesql.Location = New System.Drawing.Point(594, 449) + Me.nFontSizesql.Name = "nFontSizesql" + Me.nFontSizesql.Size = New System.Drawing.Size(58, 20) + Me.nFontSizesql.TabIndex = 727 + Me.nFontSizesql.Value = New Decimal(New Integer() {30, 0, 0, 0}) + ' + 'FontSizesql + ' + Me.FontSizesql.AutoSize = True + Me.FontSizesql.Location = New System.Drawing.Point(591, 431) + Me.FontSizesql.Name = "FontSizesql" + Me.FontSizesql.Size = New System.Drawing.Size(51, 13) + Me.FontSizesql.TabIndex = 728 + Me.FontSizesql.Text = "Font Size" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(284, 431) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(51, 13) + Me.Label7.TabIndex = 746 + Me.Label7.Text = "font color" + ' + 'cmdfontcolorsql + ' + Me.cmdfontcolorsql.BackColor = System.Drawing.Color.Purple + Me.cmdfontcolorsql.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdfontcolorsql.ForeColor = System.Drawing.Color.Yellow + Me.cmdfontcolorsql.Location = New System.Drawing.Point(276, 450) + Me.cmdfontcolorsql.Name = "cmdfontcolorsql" + Me.cmdfontcolorsql.Size = New System.Drawing.Size(59, 23) + Me.cmdfontcolorsql.TabIndex = 745 + Me.cmdfontcolorsql.Text = "Color" + Me.cmdfontcolorsql.UseVisualStyleBackColor = False + ' + 'Label162 + ' + Me.Label162.AutoSize = True + Me.Label162.Location = New System.Drawing.Point(151, 431) + Me.Label162.Name = "Label162" + Me.Label162.Size = New System.Drawing.Size(93, 13) + Me.Label162.TabIndex = 743 + Me.Label162.Text = "BackGround color" + ' + 'cmdbgcolorsql + ' + Me.cmdbgcolorsql.BackColor = System.Drawing.Color.Purple + Me.cmdbgcolorsql.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdbgcolorsql.ForeColor = System.Drawing.Color.Yellow + Me.cmdbgcolorsql.Location = New System.Drawing.Point(174, 446) + Me.cmdbgcolorsql.Name = "cmdbgcolorsql" + Me.cmdbgcolorsql.Size = New System.Drawing.Size(59, 23) + Me.cmdbgcolorsql.TabIndex = 744 + Me.cmdbgcolorsql.Text = "color" + Me.cmdbgcolorsql.UseVisualStyleBackColor = False + ' + 'cmbfontsql + ' + Me.cmbfontsql.FormattingEnabled = True + Me.cmbfontsql.Location = New System.Drawing.Point(381, 450) + Me.cmbfontsql.Name = "cmbfontsql" + Me.cmbfontsql.Size = New System.Drawing.Size(173, 21) + Me.cmbfontsql.TabIndex = 749 + Me.cmbfontsql.Text = "DVOT-Bhima" + ' + 'Label160 + ' + Me.Label160.AutoSize = True + Me.Label160.Location = New System.Drawing.Point(393, 431) + Me.Label160.Name = "Label160" + Me.Label160.Size = New System.Drawing.Size(28, 13) + Me.Label160.TabIndex = 748 + Me.Label160.Text = "Font" + ' + 'GroupBox2 + ' + Me.GroupBox2.BackColor = System.Drawing.Color.PeachPuff + Me.GroupBox2.Controls.Add(Me.Label5) + Me.GroupBox2.Controls.Add(Me.cmdSetServerMySql) + Me.GroupBox2.Controls.Add(Me.txtport) + Me.GroupBox2.Controls.Add(Me.txtdatabasemysql) + Me.GroupBox2.Controls.Add(Me.txtpasswordMysql) + Me.GroupBox2.Controls.Add(Me.txtusemysql) + Me.GroupBox2.Controls.Add(Me.txtservermysql) + Me.GroupBox2.Controls.Add(Me.Label11) + Me.GroupBox2.Controls.Add(Me.Label8) + Me.GroupBox2.Controls.Add(Me.Label9) + Me.GroupBox2.Controls.Add(Me.Label10) + Me.GroupBox2.Location = New System.Drawing.Point(3, 188) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(253, 151) + Me.GroupBox2.TabIndex = 750 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "MySql Setting" + ' + 'cmdSetServerMySql + ' + Me.cmdSetServerMySql.Location = New System.Drawing.Point(201, 18) + Me.cmdSetServerMySql.Name = "cmdSetServerMySql" + Me.cmdSetServerMySql.Size = New System.Drawing.Size(46, 120) + Me.cmdSetServerMySql.TabIndex = 18 + Me.cmdSetServerMySql.Text = "Set Server" + Me.cmdSetServerMySql.UseVisualStyleBackColor = True + ' + 'txtdatabasemysql + ' + Me.txtdatabasemysql.Location = New System.Drawing.Point(60, 92) + Me.txtdatabasemysql.Name = "txtdatabasemysql" + Me.txtdatabasemysql.Size = New System.Drawing.Size(137, 20) + Me.txtdatabasemysql.TabIndex = 22 + Me.txtdatabasemysql.Text = "cmp" + ' + 'txtpasswordMysql + ' + Me.txtpasswordMysql.Location = New System.Drawing.Point(60, 66) + Me.txtpasswordMysql.Name = "txtpasswordMysql" + Me.txtpasswordMysql.Size = New System.Drawing.Size(137, 20) + Me.txtpasswordMysql.TabIndex = 21 + Me.txtpasswordMysql.Text = "root" + ' + 'txtusemysql + ' + Me.txtusemysql.Location = New System.Drawing.Point(60, 41) + Me.txtusemysql.Name = "txtusemysql" + Me.txtusemysql.Size = New System.Drawing.Size(137, 20) + Me.txtusemysql.TabIndex = 20 + Me.txtusemysql.Text = "root" + ' + 'txtservermysql + ' + Me.txtservermysql.Location = New System.Drawing.Point(60, 18) + Me.txtservermysql.Name = "txtservermysql" + Me.txtservermysql.Size = New System.Drawing.Size(137, 20) + Me.txtservermysql.TabIndex = 19 + Me.txtservermysql.Text = "localhost" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(6, 48) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(29, 13) + Me.Label11.TabIndex = 18 + Me.Label11.Text = "User" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(4, 99) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(53, 13) + Me.Label8.TabIndex = 15 + Me.Label8.Text = "Database" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(4, 70) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(53, 13) + Me.Label9.TabIndex = 14 + Me.Label9.Text = "Password" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(6, 25) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(38, 13) + Me.Label10.TabIndex = 13 + Me.Label10.Text = "Server" + ' + 'txtport + ' + Me.txtport.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtsqlport", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtport.Location = New System.Drawing.Point(60, 118) + Me.txtport.Name = "txtport" + Me.txtport.Size = New System.Drawing.Size(137, 20) + Me.txtport.TabIndex = 13 + Me.txtport.Text = Global.caspar_media_playback.My.MySettings.Default.txtsqlport + ' + 'cmblayerSqlhtml + ' + Me.cmblayerSqlhtml.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmblayerSqlhtml", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmblayerSqlhtml.FormattingEnabled = True + Me.cmblayerSqlhtml.Items.AddRange(New Object() {"201", "202", "203", "204", "205"}) + Me.cmblayerSqlhtml.Location = New System.Drawing.Point(1118, 9) + Me.cmblayerSqlhtml.Name = "cmblayerSqlhtml" + Me.cmblayerSqlhtml.Size = New System.Drawing.Size(72, 21) + Me.cmblayerSqlhtml.TabIndex = 721 + Me.cmblayerSqlhtml.Text = Global.caspar_media_playback.My.MySettings.Default.cmblayerSqlhtml + ' + 'txtdatabase + ' + Me.txtdatabase.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtsqldatabase", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtdatabase.Location = New System.Drawing.Point(59, 93) + Me.txtdatabase.Name = "txtdatabase" + Me.txtdatabase.Size = New System.Drawing.Size(137, 20) + Me.txtdatabase.TabIndex = 8 + Me.txtdatabase.Text = Global.caspar_media_playback.My.MySettings.Default.txtsqldatabase + ' + 'txtpassword + ' + Me.txtpassword.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtsqlpassword", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtpassword.Location = New System.Drawing.Point(59, 68) + Me.txtpassword.Name = "txtpassword" + Me.txtpassword.Size = New System.Drawing.Size(137, 20) + Me.txtpassword.TabIndex = 7 + Me.txtpassword.Text = Global.caspar_media_playback.My.MySettings.Default.txtsqlpassword + ' + 'txtuser + ' + Me.txtuser.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtsqluser", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtuser.Location = New System.Drawing.Point(59, 42) + Me.txtuser.Name = "txtuser" + Me.txtuser.Size = New System.Drawing.Size(137, 20) + Me.txtuser.TabIndex = 6 + Me.txtuser.Text = Global.caspar_media_playback.My.MySettings.Default.txtsqluser + ' + 'txtserver + ' + Me.txtserver.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtsqlserver", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtserver.Location = New System.Drawing.Point(59, 19) + Me.txtserver.Name = "txtserver" + Me.txtserver.Size = New System.Drawing.Size(137, 20) + Me.txtserver.TabIndex = 5 + Me.txtserver.Text = Global.caspar_media_playback.My.MySettings.Default.txtsqlserver + ' + 'ucMySqlTest + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Cornsilk + Me.ClientSize = New System.Drawing.Size(1202, 884) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.cmbfontsql) + Me.Controls.Add(Me.Label160) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.cmdfontcolorsql) + Me.Controls.Add(Me.Label162) + Me.Controls.Add(Me.cmdbgcolorsql) + Me.Controls.Add(Me.FontSizesql) + Me.Controls.Add(Me.nFontSizesql) + Me.Controls.Add(Me.txtcolumns) + Me.Controls.Add(Me.txtrows) + Me.Controls.Add(Me.chkAllColumns) + Me.Controls.Add(Me.chkAllRow) + Me.Controls.Add(Me.cmdStopSqlLayer) + Me.Controls.Add(Me.cmblayerSqlhtml) + Me.Controls.Add(Me.lbllayerhtml) + Me.Controls.Add(Me.cmdShowincasparcg) + Me.Controls.Add(Me.cmdAny) + Me.Controls.Add(Me.txtAnyCommand) + Me.Controls.Add(Me.cmdDelete) + Me.Controls.Add(Me.cmdUpdate) + Me.Controls.Add(Me.cmdInsert) + Me.Controls.Add(Me.txtDelete) + Me.Controls.Add(Me.txtUpdate) + Me.Controls.Add(Me.txtInsert) + Me.Controls.Add(Me.cmdFillTablenames) + Me.Controls.Add(Me.cmbTables) + Me.Controls.Add(Me.dgvContents) + Me.Controls.Add(Me.cmdShowContents) + Me.Controls.Add(Me.GroupBox1) + Me.HideOnClose = True + Me.Name = "ucMySqlTest" + Me.Text = "MySql Tester" + CType(Me.dgvContents, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.nFontSizesql, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents cmdFillTablenames As Button + Friend WithEvents cmbTables As ComboBox + Friend WithEvents dgvContents As DataGridView + Friend WithEvents cmdShowContents As Button + Friend WithEvents Label5 As Label + Friend WithEvents txtport As TextBox + Friend WithEvents Label3 As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label1 As Label + Friend WithEvents txtdatabase As TextBox + Friend WithEvents txtpassword As TextBox + Friend WithEvents txtuser As TextBox + Friend WithEvents txtserver As TextBox + Friend WithEvents cmdsetserver As Button + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents txtInsert As TextBox + Friend WithEvents txtUpdate As TextBox + Friend WithEvents txtDelete As TextBox + Friend WithEvents cmdInsert As Button + Friend WithEvents cmdUpdate As Button + Friend WithEvents cmdDelete As Button + Friend WithEvents cmdAny As Button + Friend WithEvents txtAnyCommand As TextBox + Friend WithEvents cmdShowincasparcg As Button + Friend WithEvents lbllayerhtml As Label + Friend WithEvents cmblayerSqlhtml As ComboBox + Friend WithEvents cmdStopSqlLayer As Button + Friend WithEvents chkAllRow As CheckBox + Friend WithEvents chkAllColumns As CheckBox + Friend WithEvents txtrows As TextBox + Friend WithEvents txtcolumns As TextBox + Friend WithEvents nFontSizesql As NumericUpDown + Friend WithEvents FontSizesql As Label + Friend WithEvents Label7 As Label + Friend WithEvents cmdfontcolorsql As Button + Friend WithEvents Label162 As Label + Friend WithEvents cmdbgcolorsql As Button + Friend WithEvents cmbfontsql As ComboBox + Friend WithEvents Label160 As Label + Friend WithEvents GroupBox2 As GroupBox + Friend WithEvents txtdatabasemysql As TextBox + Friend WithEvents txtpasswordMysql As TextBox + Friend WithEvents txtusemysql As TextBox + Friend WithEvents txtservermysql As TextBox + Friend WithEvents Label11 As Label + Friend WithEvents Label8 As Label + Friend WithEvents Label9 As Label + Friend WithEvents Label10 As Label + Friend WithEvents cmdSetServerMySql As Button + Friend WithEvents chkIntegratedSecurity As CheckBox +End Class diff --git a/CasparMediaPlayback/ucMySqlTest.resx b/CasparMediaPlayback/ucMySqlTest.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/CasparMediaPlayback/ucMySqlTest.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucMySqlTest.vb b/CasparMediaPlayback/ucMySqlTest.vb new file mode 100644 index 0000000..5682cb1 --- /dev/null +++ b/CasparMediaPlayback/ucMySqlTest.vb @@ -0,0 +1,182 @@ +Imports MySql.Data.MySqlClient +Imports System.Data +Imports System.Data.SqlClient +Public Class ucMySqlTest + Dim conn + Dim servertype As String + Private Sub cmdsetserver_Click(sender As Object, e As EventArgs) Handles cmdsetserver.Click + Try + conn = New SqlConnection With { + .ConnectionString = "server=" & txtserver.Text & ";user=" & txtuser.Text & ";database=" & txtdatabase.Text & ";password=" & txtpassword.Text & ";integrated security=" & chkIntegratedSecurity.Checked} + Catch ex As Exception + MsgBox(ex.ToString()) + End Try + servertype = "SQL" + End Sub + Private Sub cmdFillTablenames_Click(sender As Object, e As EventArgs) Handles cmdFillTablenames.Click + Try + + conn.Open() + Dim dt = conn.GetSchema("TABLES") + cmbTables.DataSource = dt + cmbTables.DisplayMember = "table_name" + cmbTables.ValueMember = "table_name" + Catch ex As Exception + MsgBox(ex.ToString()) + End Try + conn.Close() + End Sub + Private Sub cmdShowContents_Click(sender As Object, e As EventArgs) Handles cmdShowContents.Click + Try + Dim adp + If servertype = "MySql" Then + conn.Open() + adp = New MySqlDataAdapter("Select * from `" & cmbTables.Text & "`;", CType(conn, MySqlConnection)) + Else + conn.Open() + adp = New SqlDataAdapter("Select * from " & """" & cmbTables.Text & """" & ";", CType(conn, SqlConnection)) + End If + + + Dim ds As DataSet = New DataSet() + adp.Fill(ds) + dgvContents.DataSource = ds.Tables(0) + Catch ex As Exception + MsgBox(ex.ToString()) + End Try + conn.Close() + End Sub + Private Sub ucMySqlTest_Load(sender As Object, e As EventArgs) Handles MyBase.Load + enumeratefontsforall() + End Sub + Sub enumeratefontsforall() + On Error Resume Next + Dim InstalledFonts As New Drawing.Text.InstalledFontCollection + Dim fontfamilies() As FontFamily = InstalledFonts.Families() + For Each fontFamily As FontFamily In fontfamilies + cmbfontsql.Items.Add(fontFamily.Name) + Next + End Sub + Private Sub cmdhideMySqlTest_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub + Sub executequery(aa As String) + conn.Open() + Dim sqlc + If servertype = "MySql" Then + sqlc = New MySqlCommand + Else + sqlc = New SqlCommand + End If + Try + With sqlc + .Connection = conn + .CommandText = aa + '.Parameters.AddWithValue("@curstory", TextBox1.Text) + End With + sqlc.ExecuteNonQuery() + Catch ex As Exception + MsgBox(ex.ToString()) + End Try + conn.Close() + End Sub + Private Sub cmdInsert_Click(sender As Object, e As EventArgs) Handles cmdInsert.Click + executequery(txtInsert.Text) + End Sub + + Private Sub cmdDelete_Click(sender As Object, e As EventArgs) Handles cmdDelete.Click + executequery(txtDelete.Text) + End Sub + + Private Sub cmdUpdate_Click(sender As Object, e As EventArgs) Handles cmdUpdate.Click + executequery(txtUpdate.Text) + End Sub + + Private Sub cmdAny_Click(sender As Object, e As EventArgs) Handles cmdAny.Click + executequery(txtAnyCommand.Text) + End Sub + Private Sub cmdShowincasparcg_Click(sender As Object, e As EventArgs) Handles cmdShowincasparcg.Click + + Dim cc, rr As Integer + + If chkAllRow.Checked Then + rr = dgvContents.Rows.Count + Else + rr = txtrows.Text + End If + If chkAllColumns.Checked Then + cc = dgvContents.Columns.Count + Else + cc = txtcolumns.Text + End If + Dim aa As String = "" & vbNewLine + For h = 0 To cc - 1 + aa = aa & "" + Next + aa = aa & vbNewLine + + For j = 0 To rr - 1 + aa = aa & "" + For i = 0 To cc - 1 + aa = aa & "" + Next + aa = aa & "" & vbNewLine + + Next + aa = aa & "
" & dgvContents.Columns(h).HeaderText & "
" & dgvContents.Rows(j).Cells(i).Value & "
" + + CreatePage("html1", aa, "C:\casparcg\mydata\MySqlToCasparcg\html1.html") + + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & cmblayerSqlhtml.Text & " [HTML] file:///C:/casparcg/mydata/MySqlToCasparcg/html1.html") + + End Sub + Public Sub CreatePage(ByVal HTMLTitle As String, ByVal HTMLText As String, ByVal HTMLFileName As String) + Dim strFile As String + strFile = "" & vbNewLine + strFile = "" & vbNewLine + strFile = strFile & "" & vbNewLine + strFile = strFile & "" + strFile = strFile & "" & vbNewLine & "" & vbNewLine + strFile = strFile & "
" & vbNewLine + strFile = strFile & HTMLText & vbNewLine + strFile = strFile & "
" & vbNewLine + strFile = strFile & "" & vbNewLine & "" + + Dim aa As IO.StreamWriter = New IO.StreamWriter(HTMLFileName) + + aa.Write(strFile) + aa.Close() + End Sub + + Private Sub cmdStopSqlLayer_Click(sender As Object, e As EventArgs) Handles cmdStopSqlLayer.Click + On Error Resume Next + CasparDevice.SendString("stop " & g_int_ChannelNumber & "-" & cmblayerSqlhtml.Text) + + End Sub + Private Sub cmdbgcolorsql_Click(sender As Object, e As EventArgs) Handles cmdbgcolorsql.Click + Dim aa As New ColorDialog + If (aa.ShowDialog() = Windows.Forms.DialogResult.OK) Then + cmdfontcolorsql.BackColor = aa.Color + cmdbgcolorsql.BackColor = aa.Color + End If + End Sub + + Private Sub cmdfontcolorsql_Click(sender As Object, e As EventArgs) Handles cmdfontcolorsql.Click + Dim aa As New ColorDialog + If (aa.ShowDialog() = Windows.Forms.DialogResult.OK) Then + cmdfontcolorsql.ForeColor = aa.Color + cmdbgcolorsql.ForeColor = aa.Color + End If + End Sub + + Private Sub cmdSetServerMySql_Click(sender As Object, e As EventArgs) Handles cmdSetServerMySql.Click + Try + conn = New MySqlConnection With { + .ConnectionString = "server=" & txtservermysql.Text & ";user=" & txtusemysql.Text & ";database=" & txtdatabasemysql.Text & ";port=" & txtport.Text & ";password=" & txtpasswordMysql.Text + } + Catch ex As Exception + MsgBox(ex.ToString()) + End Try + servertype = "MySql" + End Sub +End Class diff --git a/CasparMediaPlayback/ucNDISource.Designer.vb b/CasparMediaPlayback/ucNDISource.Designer.vb new file mode 100644 index 0000000..b248927 --- /dev/null +++ b/CasparMediaPlayback/ucNDISource.Designer.vb @@ -0,0 +1,72 @@ + _ +Partial Class ucNDISource + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.cmbNDI = New System.Windows.Forms.ComboBox() + Me.cmdOK = New System.Windows.Forms.Button() + Me.cmdCancel = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'cmbNDI + ' + Me.cmbNDI.FormattingEnabled = True + Me.cmbNDI.Location = New System.Drawing.Point(3, 56) + Me.cmbNDI.Name = "cmbNDI" + Me.cmbNDI.Size = New System.Drawing.Size(282, 21) + Me.cmbNDI.TabIndex = 1225 + ' + 'cmdOK + ' + Me.cmdOK.Location = New System.Drawing.Point(36, 98) + Me.cmdOK.Name = "cmdOK" + Me.cmdOK.Size = New System.Drawing.Size(52, 23) + Me.cmdOK.TabIndex = 1226 + Me.cmdOK.Text = "OK" + Me.cmdOK.UseVisualStyleBackColor = True + ' + 'cmdCancel + ' + Me.cmdCancel.Location = New System.Drawing.Point(104, 98) + Me.cmdCancel.Name = "cmdCancel" + Me.cmdCancel.Size = New System.Drawing.Size(52, 23) + Me.cmdCancel.TabIndex = 1227 + Me.cmdCancel.Text = "Cancel" + Me.cmdCancel.UseVisualStyleBackColor = True + ' + 'ucNDISource + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.cmdCancel) + Me.Controls.Add(Me.cmdOK) + Me.Controls.Add(Me.cmbNDI) + Me.Name = "ucNDISource" + Me.Size = New System.Drawing.Size(329, 134) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents cmbNDI As ComboBox + Friend WithEvents cmdOK As Button + Friend WithEvents cmdCancel As Button +End Class diff --git a/CasparMediaPlayback/ucNDISource.resx b/CasparMediaPlayback/ucNDISource.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/CasparMediaPlayback/ucNDISource.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucNDISource.vb b/CasparMediaPlayback/ucNDISource.vb new file mode 100644 index 0000000..f37639b --- /dev/null +++ b/CasparMediaPlayback/ucNDISource.vb @@ -0,0 +1,36 @@ +Public Class ucNDISource + Private Sub CmbNDI_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbNDI.SelectedIndexChanged + + End Sub + Sub getresponse() + On Error Resume Next + Threading.Thread.Sleep(250) + Dim data(10024) As Byte + NetStream.Read(data, 0, 10024) + Dim returndata As String = "" + returndata = System.Text.Encoding.UTF8.GetString(data) + Dim aa = Split(returndata, vbNewLine) + + cmbNDI.Items.Clear() + For i = 1 To aa.Count - 3 + cmbNDI.Items.Add(Split(Mid(aa(i), 3), ")")(0) & ")" & """") + Next + + End Sub + + Private Sub cmbNDI_Click(sender As Object, e As EventArgs) Handles cmbNDI.Click + Dim str As String + str = "ndi list" + SendString(NetStream, str + vbCrLf) + getresponse() + End Sub + + Private Sub CmdOK_Click(sender As Object, e As EventArgs) Handles cmdOK.Click + ndi1 = cmbNDI.Text + Me.Parent.Dispose() + End Sub + + Private Sub CmdCancel_Click(sender As Object, e As EventArgs) Handles cmdCancel.Click + Me.Parent.Dispose() + End Sub +End Class diff --git a/CasparMediaPlayback/ucNG2015.designer.vb b/CasparMediaPlayback/ucNG2015.designer.vb new file mode 100644 index 0000000..2a66e86 --- /dev/null +++ b/CasparMediaPlayback/ucNG2015.designer.vb @@ -0,0 +1,7638 @@ + +Partial Class ucNG2015 + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'Form overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucNG2015)) + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.Ball = New System.Windows.Forms.TabPage() + Me.gbBoxing = New System.Windows.Forms.GroupBox() + Me.cmdroundscoreboxing = New System.Windows.Forms.Button() + Me.cmdsetscoreboxing = New System.Windows.Forms.Button() + Me.cmdscorewithclockboxing = New System.Windows.Forms.Button() + Me.GroupBox30 = New System.Windows.Forms.GroupBox() + Me.rdoteamBBlue = New System.Windows.Forms.RadioButton() + Me.rdoTeamARed = New System.Windows.Forms.RadioButton() + Me.cmdversusboxing = New System.Windows.Forms.Button() + Me.cmdwinnerBoxing = New System.Windows.Forms.Button() + Me.cmbwinningmethodboxing = New System.Windows.Forms.ComboBox() + Me.cmdplayeridboxing = New System.Windows.Forms.Button() + Me.cmdscoreboxing = New System.Windows.Forms.Button() + Me.gbsetscoreball = New System.Windows.Forms.GroupBox() + Me.cmdscoreresetball = New System.Windows.Forms.Button() + Me.cmdshowsetscoreball = New System.Windows.Forms.Button() + Me.dgvsetscoreball = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn28 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn29 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn30 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn31 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn32 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn34 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.cmbgoalsummary = New System.Windows.Forms.ComboBox() + Me.cmdgoalSummary = New System.Windows.Forms.Button() + Me.cmdtteamridt2ball = New System.Windows.Forms.Button() + Me.cmdtteamridt1ball = New System.Windows.Forms.Button() + Me.cmdplayeridt2ball = New System.Windows.Forms.Button() + Me.cmdplayeridt1ball = New System.Windows.Forms.Button() + Me.lblfilenamet2ball = New System.Windows.Forms.Label() + Me.lblfilenamet1ball = New System.Windows.Forms.Label() + Me.GroupBox22 = New System.Windows.Forms.GroupBox() + Me.GroupBox24 = New System.Windows.Forms.GroupBox() + Me.cmduprowt2ball = New System.Windows.Forms.Button() + Me.cmdremoverowt2ball = New System.Windows.Forms.Button() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.cmdnewt2ball = New System.Windows.Forms.ToolStripButton() + Me.cmdopent2ball = New System.Windows.Forms.ToolStripButton() + Me.cmdsavet2ball = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator() + Me.cmddownrowt2ball = New System.Windows.Forms.Button() + Me.cmdaddrowt2ball = New System.Windows.Forms.Button() + Me.cmdvsball = New System.Windows.Forms.Button() + Me.dgvt2ball = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn26 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Label40 = New System.Windows.Forms.Label() + Me.GroupBox23 = New System.Windows.Forms.GroupBox() + Me.cmduprowt1ball = New System.Windows.Forms.Button() + Me.cmdremoverowt1ball = New System.Windows.Forms.Button() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.cmdnewt1ball = New System.Windows.Forms.ToolStripButton() + Me.cmdopent1ball = New System.Windows.Forms.ToolStripButton() + Me.cmdsavet1ball = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.cmddownrowt1ball = New System.Windows.Forms.Button() + Me.cmdaddrowt1ball = New System.Windows.Forms.Button() + Me.Label39 = New System.Windows.Forms.Label() + Me.cmdt2gball = New System.Windows.Forms.Button() + Me.cmdt2rball = New System.Windows.Forms.Button() + Me.cmdt2yball = New System.Windows.Forms.Button() + Me.cmdt2lineupball = New System.Windows.Forms.Button() + Me.cmdt1gball = New System.Windows.Forms.Button() + Me.cmdt1rball = New System.Windows.Forms.Button() + Me.txtt2ball = New System.Windows.Forms.TextBox() + Me.cmdt1yball = New System.Windows.Forms.Button() + Me.txtt1ball = New System.Windows.Forms.TextBox() + Me.cmdt1lineupball = New System.Windows.Forms.Button() + Me.dgvt1ball = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn27 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.GroupBox21 = New System.Windows.Forms.GroupBox() + Me.cmdteam2outball = New System.Windows.Forms.Button() + Me.cmdteam1outball = New System.Windows.Forms.Button() + Me.txtt2outball = New System.Windows.Forms.TextBox() + Me.txtt2inball = New System.Windows.Forms.TextBox() + Me.cmdt2inoutball = New System.Windows.Forms.Button() + Me.txtt1outball = New System.Windows.Forms.TextBox() + Me.txtt1inball = New System.Windows.Forms.TextBox() + Me.cmdteam1inball = New System.Windows.Forms.Button() + Me.cmdteam2inball = New System.Windows.Forms.Button() + Me.cmdt1inoutball = New System.Windows.Forms.Button() + Me.GroupBox16 = New System.Windows.Forms.GroupBox() + Me.cmdadjustsecball = New System.Windows.Forms.Button() + Me.cmbputsecondball = New System.Windows.Forms.ComboBox() + Me.cmbputminuteball = New System.Windows.Forms.ComboBox() + Me.cmdadjustminball = New System.Windows.Forms.Button() + Me.cmbinfoball = New System.Windows.Forms.ComboBox() + Me.cmdscorewithinfo = New System.Windows.Forms.Button() + Me.cmdscorewithclock = New System.Windows.Forms.Button() + Me.cmdscoreupdateball = New System.Windows.Forms.Button() + Me.cmdadd1t2ball = New System.Windows.Forms.Button() + Me.cmdadd1t1ball = New System.Windows.Forms.Button() + Me.cmdt2colorball = New System.Windows.Forms.Button() + Me.cmdt1colorball = New System.Windows.Forms.Button() + Me.Label45 = New System.Windows.Forms.Label() + Me.cmbhalfball = New System.Windows.Forms.ComboBox() + Me.GroupBox15 = New System.Windows.Forms.GroupBox() + Me.rdodowncounterball = New System.Windows.Forms.RadioButton() + Me.rdoupcounterball = New System.Windows.Forms.RadioButton() + Me.Label6 = New System.Windows.Forms.Label() + Me.txthalftimeball = New System.Windows.Forms.TextBox() + Me.cmdscorewithextraball = New System.Windows.Forms.Button() + Me.pict2logoball = New System.Windows.Forms.PictureBox() + Me.pict1logoball = New System.Windows.Forms.PictureBox() + Me.txtt2gball = New System.Windows.Forms.TextBox() + Me.txtt1gball = New System.Windows.Forms.TextBox() + Me.cmdresetclockball = New System.Windows.Forms.Button() + Me.txtsecball = New System.Windows.Forms.TextBox() + Me.txtminball = New System.Windows.Forms.TextBox() + Me.cmdstopscoreball = New System.Windows.Forms.Button() + Me.cmdstartclockball = New System.Windows.Forms.Button() + Me.cmdpauseclockball = New System.Windows.Forms.Button() + Me.cmdscoreball = New System.Windows.Forms.Button() + Me.CG = New System.Windows.Forms.TabPage() + Me.gbvictorytt = New System.Windows.Forms.GroupBox() + Me.lblfilenamecg = New System.Windows.Forms.Label() + Me.GroupBox11 = New System.Windows.Forms.GroupBox() + Me.cmdupcg = New System.Windows.Forms.Button() + Me.cmddeleteg = New System.Windows.Forms.Button() + Me.ToolStrip3 = New System.Windows.Forms.ToolStrip() + Me.tsnewcg = New System.Windows.Forms.ToolStripButton() + Me.tsopencg = New System.Windows.Forms.ToolStripButton() + Me.tssavecg = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator() + Me.cmddowncg = New System.Windows.Forms.Button() + Me.cmdinsercg = New System.Windows.Forms.Button() + Me.cmdgroupcg = New System.Windows.Forms.Button() + Me.cmd2refereescg = New System.Windows.Forms.Button() + Me.GroupBox25 = New System.Windows.Forms.GroupBox() + Me.cmbsubheadercg = New System.Windows.Forms.ComboBox() + Me.cmbheadercg = New System.Windows.Forms.ComboBox() + Me.cmdeventidcg = New System.Windows.Forms.Button() + Me.Label42 = New System.Windows.Forms.Label() + Me.Label43 = New System.Windows.Forms.Label() + Me.cmdroadtofinal = New System.Windows.Forms.Button() + Me.GroupBox20 = New System.Windows.Forms.GroupBox() + Me.rdo7 = New System.Windows.Forms.RadioButton() + Me.rdo6 = New System.Windows.Forms.RadioButton() + Me.GroupBox19 = New System.Windows.Forms.GroupBox() + Me.rdo5 = New System.Windows.Forms.RadioButton() + Me.rdo4 = New System.Windows.Forms.RadioButton() + Me.GroupBox17 = New System.Windows.Forms.GroupBox() + Me.rdo3 = New System.Windows.Forms.RadioButton() + Me.rdo2 = New System.Windows.Forms.RadioButton() + Me.GroupBox9 = New System.Windows.Forms.GroupBox() + Me.rdo1 = New System.Windows.Forms.RadioButton() + Me.rdo0 = New System.Windows.Forms.RadioButton() + Me.cmdRoadToSemiFinal = New System.Windows.Forms.Button() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.rdodoublescg = New System.Windows.Forms.RadioButton() + Me.rdosinglecg = New System.Windows.Forms.RadioButton() + Me.cmdrunnerupridcg = New System.Windows.Forms.Button() + Me.cmdwinneridcg = New System.Windows.Forms.Button() + Me.cmdbronze2cg = New System.Windows.Forms.Button() + Me.cmdmedalallbronze2cg = New System.Windows.Forms.Button() + Me.cmdbronzecg = New System.Windows.Forms.Button() + Me.cmdvictoryidcg = New System.Windows.Forms.Button() + Me.cmdmedalallcg = New System.Windows.Forms.Button() + Me.cmdgoldcg = New System.Windows.Forms.Button() + Me.cmdsilvercg = New System.Windows.Forms.Button() + Me.cmdplayeridcg = New System.Windows.Forms.Button() + Me.dgvwinner = New System.Windows.Forms.DataGridView() + Me.DataGridViewImageColumn1 = New System.Windows.Forms.DataGridViewImageColumn() + Me.DataGridViewTextBoxColumn25 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column29 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.cmdonelinercg = New System.Windows.Forms.Button() + Me.txtonelinercg = New System.Windows.Forms.TextBox() + Me.cmdleftotopcg = New System.Windows.Forms.Button() + Me.cmblefttopcg = New System.Windows.Forms.ComboBox() + Me.txtcommentatorname2 = New System.Windows.Forms.TextBox() + Me.cmdeventshedule = New System.Windows.Forms.Button() + Me.w3 = New System.Windows.Forms.TextBox() + Me.cmdwelcome = New System.Windows.Forms.Button() + Me.txtofficialname = New System.Windows.Forms.TextBox() + Me.txtvenueid1 = New System.Windows.Forms.TextBox() + Me.txtofficialdesignation = New System.Windows.Forms.TextBox() + Me.cmDvenueid1 = New System.Windows.Forms.Button() + Me.w2 = New System.Windows.Forms.TextBox() + Me.cmdw1 = New System.Windows.Forms.Button() + Me.cmdMedalPresentorId = New System.Windows.Forms.Button() + Me.txtcommentatorname1 = New System.Windows.Forms.TextBox() + Me.cmdp1 = New System.Windows.Forms.Button() + Me.txtcommentatordesignation = New System.Windows.Forms.TextBox() + Me.w1 = New System.Windows.Forms.TextBox() + Me.cmdcomentator = New System.Windows.Forms.Button() + Me.p3 = New System.Windows.Forms.TextBox() + Me.txtrefreedegination = New System.Windows.Forms.TextBox() + Me.p2 = New System.Windows.Forms.TextBox() + Me.txtrefreename = New System.Windows.Forms.TextBox() + Me.p1 = New System.Windows.Forms.TextBox() + Me.cmdrefree = New System.Windows.Forms.Button() + Me.Gymnastics = New System.Windows.Forms.TabPage() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.cmdcleardatagym = New System.Windows.Forms.Button() + Me.GroupBox12 = New System.Windows.Forms.GroupBox() + Me.rdoaddvaultgym = New System.Windows.Forms.RadioButton() + Me.rdoaveragevaultgym = New System.Windows.Forms.RadioButton() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.cmbchangecolumnnamegym = New System.Windows.Forms.ComboBox() + Me.txtchangecolumnnamegym = New System.Windows.Forms.TextBox() + Me.cmdchangecolumnnamegym = New System.Windows.Forms.Button() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.Label38 = New System.Windows.Forms.Label() + Me.cmbplayergamepointgym = New System.Windows.Forms.ComboBox() + Me.cmdplayergamepointgym = New System.Windows.Forms.Button() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.cmdplayerscorecard2ndvaultgym = New System.Windows.Forms.Button() + Me.rdoRhythmicgym = New System.Windows.Forms.RadioButton() + Me.rdoArtisticsgym = New System.Windows.Forms.RadioButton() + Me.cmdplayerscorecardgym = New System.Windows.Forms.Button() + Me.cmdteamlistwithgamenamegym = New System.Windows.Forms.Button() + Me.cmdofficialsgym = New System.Windows.Forms.Button() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmdtop3standingsgym = New System.Windows.Forms.Button() + Me.Label37 = New System.Windows.Forms.Label() + Me.cmbstandingsgym = New System.Windows.Forms.ComboBox() + Me.cmdresult2gym = New System.Windows.Forms.Button() + Me.cmdresult1gym = New System.Windows.Forms.Button() + Me.chkwithnumbergym = New System.Windows.Forms.CheckBox() + Me.Build3gym = New System.Windows.Forms.Button() + Me.Build2gym = New System.Windows.Forms.Button() + Me.Build1gym = New System.Windows.Forms.Button() + Me.cmdplayerscore3gym = New System.Windows.Forms.Button() + Me.cmdplayerscore2gym = New System.Windows.Forms.Button() + Me.Label36 = New System.Windows.Forms.Label() + Me.Label35 = New System.Windows.Forms.Label() + Me.Label34 = New System.Windows.Forms.Label() + Me.Label33 = New System.Windows.Forms.Label() + Me.Label32 = New System.Windows.Forms.Label() + Me.Label31 = New System.Windows.Forms.Label() + Me.Label29 = New System.Windows.Forms.Label() + Me.Label28 = New System.Windows.Forms.Label() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.Label25 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label15 = New System.Windows.Forms.Label() + Me.Label14 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.cmdteamlist = New System.Windows.Forms.Button() + Me.cmdVaultStandings2 = New System.Windows.Forms.Button() + Me.cmdVaultStandings1 = New System.Windows.Forms.Button() + Me.cmdplayerscore1gym = New System.Windows.Forms.Button() + Me.cmdrowupzym = New System.Windows.Forms.Button() + Me.lblfilenamegym = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.cmdrowdeletegym = New System.Windows.Forms.Button() + Me.tsgym = New System.Windows.Forms.ToolStrip() + Me.newgym = New System.Windows.Forms.ToolStripButton() + Me.opengym = New System.Windows.Forms.ToolStripButton() + Me.savegym = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator() + Me.cmdrowdowngym = New System.Windows.Forms.Button() + Me.cmdrowinsertgym = New System.Windows.Forms.Button() + Me.cmdplayeridgym = New System.Windows.Forms.Button() + Me.cmdgymnasticsstsrtlist2 = New System.Windows.Forms.Button() + Me.cmdgymnasticsstsrtlist1 = New System.Windows.Forms.Button() + Me.dgvGymnastics = New System.Windows.Forms.DataGridView() + Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column3 = New System.Windows.Forms.DataGridViewComboBoxColumn() + Me.Column5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column20 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column11 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column13 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column12 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column24 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column23 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column22 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column14 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column21 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column25 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column15 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column16 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column17 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column18 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column28 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column19 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Penalties = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Score = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column26 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column27 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ShapeContainer1 = New Microsoft.VisualBasic.PowerPacks.ShapeContainer() + Me.LineShape2 = New Microsoft.VisualBasic.PowerPacks.LineShape() + Me.Shooting = New System.Windows.Forms.TabPage() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.cmdShootoffshooting = New System.Windows.Forms.Button() + Me.cmdmedalmatchshooting = New System.Windows.Forms.Button() + Me.cmdseries5shooting25m = New System.Windows.Forms.Button() + Me.cmdseries4shooting25m = New System.Windows.Forms.Button() + Me.cmdseries3shooting25m = New System.Windows.Forms.Button() + Me.cmdseries2shooting25m = New System.Windows.Forms.Button() + Me.cmdseries1shooting25m = New System.Windows.Forms.Button() + Me.cmdseries9shooting = New System.Windows.Forms.Button() + Me.cmdseries8shooting = New System.Windows.Forms.Button() + Me.cmdseries7shooting = New System.Windows.Forms.Button() + Me.cmdseries6shooting = New System.Windows.Forms.Button() + Me.cmdseries5shooting = New System.Windows.Forms.Button() + Me.cmdseries4shooting = New System.Windows.Forms.Button() + Me.cmdseries3shooting = New System.Windows.Forms.Button() + Me.cmdseries2shooting = New System.Windows.Forms.Button() + Me.cmdseries1shooting = New System.Windows.Forms.Button() + Me.cmdplayerscorecard2Shooting = New System.Windows.Forms.Button() + Me.GroupBox13 = New System.Windows.Forms.GroupBox() + Me.txtaftershots = New System.Windows.Forms.TextBox() + Me.Label41 = New System.Windows.Forms.Label() + Me.cmbplayergamepointShooting = New System.Windows.Forms.ComboBox() + Me.cmdplayergamepointShooting = New System.Windows.Forms.Button() + Me.cmdplayerscorecardShooting = New System.Windows.Forms.Button() + Me.GroupBox18 = New System.Windows.Forms.GroupBox() + Me.txteleminationshooting = New System.Windows.Forms.TextBox() + Me.Label44 = New System.Windows.Forms.Label() + Me.txttop3 = New System.Windows.Forms.TextBox() + Me.cmdtop3standingsShooting = New System.Windows.Forms.Button() + Me.Label46 = New System.Windows.Forms.Label() + Me.cmbstandingsShooting = New System.Windows.Forms.ComboBox() + Me.cmdresult1Shooting = New System.Windows.Forms.Button() + Me.chkwithnumberShooting = New System.Windows.Forms.CheckBox() + Me.Label47 = New System.Windows.Forms.Label() + Me.Label49 = New System.Windows.Forms.Label() + Me.Label50 = New System.Windows.Forms.Label() + Me.Label51 = New System.Windows.Forms.Label() + Me.Label52 = New System.Windows.Forms.Label() + Me.Label53 = New System.Windows.Forms.Label() + Me.Label54 = New System.Windows.Forms.Label() + Me.Label55 = New System.Windows.Forms.Label() + Me.Label56 = New System.Windows.Forms.Label() + Me.Label57 = New System.Windows.Forms.Label() + Me.Label58 = New System.Windows.Forms.Label() + Me.Label59 = New System.Windows.Forms.Label() + Me.Label60 = New System.Windows.Forms.Label() + Me.Label61 = New System.Windows.Forms.Label() + Me.Label62 = New System.Windows.Forms.Label() + Me.Label63 = New System.Windows.Forms.Label() + Me.Label64 = New System.Windows.Forms.Label() + Me.Label65 = New System.Windows.Forms.Label() + Me.Label66 = New System.Windows.Forms.Label() + Me.Label67 = New System.Windows.Forms.Label() + Me.Label68 = New System.Windows.Forms.Label() + Me.Label69 = New System.Windows.Forms.Label() + Me.Label70 = New System.Windows.Forms.Label() + Me.Label71 = New System.Windows.Forms.Label() + Me.Label72 = New System.Windows.Forms.Label() + Me.Label73 = New System.Windows.Forms.Label() + Me.cmdplayerqualification = New System.Windows.Forms.Button() + Me.cmdrowupShooting = New System.Windows.Forms.Button() + Me.lblfilenameShooting = New System.Windows.Forms.Label() + Me.Label78 = New System.Windows.Forms.Label() + Me.cmdrowdeleteShooting = New System.Windows.Forms.Button() + Me.tsShooting = New System.Windows.Forms.ToolStrip() + Me.newShooting = New System.Windows.Forms.ToolStripButton() + Me.openShooting = New System.Windows.Forms.ToolStripButton() + Me.saveShooting = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.cmdrowdownShooting = New System.Windows.Forms.Button() + Me.cmdrowinsertShooting = New System.Windows.Forms.Button() + Me.cmdplayeridShooting = New System.Windows.Forms.Button() + Me.cmdShootingstartlist2 = New System.Windows.Forms.Button() + Me.cmdShootingstartlist1 = New System.Windows.Forms.Button() + Me.dgvShooting = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewComboBoxColumn1 = New System.Windows.Forms.DataGridViewComboBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn12 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn13 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn14 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn15 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn16 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn17 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn18 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn19 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn20 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn21 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn22 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn23 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column30 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column31 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column32 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column33 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column34 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn24 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column35 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column36 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column37 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column38 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column39 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column40 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TT_Badminton = New System.Windows.Forms.TabPage() + Me.gbtt = New System.Windows.Forms.GroupBox() + Me.GroupBox27 = New System.Windows.Forms.GroupBox() + Me.rdolawntennis = New System.Windows.Forms.RadioButton() + Me.GroupBox26 = New System.Windows.Forms.GroupBox() + Me.cmdpositionhorizontaltt = New System.Windows.Forms.Button() + Me.rdoreversepositiontt = New System.Windows.Forms.RadioButton() + Me.rdostraightposiontt = New System.Windows.Forms.RadioButton() + Me.cmdpositiontt = New System.Windows.Forms.Button() + Me.gbsetscorett = New System.Windows.Forms.GroupBox() + Me.cmdscoreresettt = New System.Windows.Forms.Button() + Me.GroupBox28 = New System.Windows.Forms.GroupBox() + Me.rdo7settt = New System.Windows.Forms.RadioButton() + Me.rdo5settt = New System.Windows.Forms.RadioButton() + Me.rdo3settt = New System.Windows.Forms.RadioButton() + Me.cmdshowsetscorett = New System.Windows.Forms.Button() + Me.dgvsetscorett = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn33 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn35 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn36 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn37 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn38 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn39 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn40 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.gbscorett = New System.Windows.Forms.GroupBox() + Me.chkshowsettt = New System.Windows.Forms.CheckBox() + Me.Label206 = New System.Windows.Forms.Label() + Me.txtset2tt = New System.Windows.Forms.TextBox() + Me.txtset1tt = New System.Windows.Forms.TextBox() + Me.cmdversustt = New System.Windows.Forms.Button() + Me.cmdupdatescore1tt = New System.Windows.Forms.Button() + Me.cmdshowscore1tt = New System.Windows.Forms.Button() + Me.cmdpointdecreaset2tt = New System.Windows.Forms.Button() + Me.cmdpointdecreaset1tt = New System.Windows.Forms.Button() + Me.cmdresetscorett = New System.Windows.Forms.Button() + Me.cmdpointincreaset2tt = New System.Windows.Forms.Button() + Me.cmdpointincreaset1tt = New System.Windows.Forms.Button() + Me.cmdupdatescorett = New System.Windows.Forms.Button() + Me.GroupBox29 = New System.Windows.Forms.GroupBox() + Me.rdoservicet2tt = New System.Windows.Forms.RadioButton() + Me.rdoservicet1tt = New System.Windows.Forms.RadioButton() + Me.chkshowservicett = New System.Windows.Forms.CheckBox() + Me.txtshortnamet2tt = New System.Windows.Forms.TextBox() + Me.txtshortnamet1tt = New System.Windows.Forms.TextBox() + Me.txtfullnamet2tt = New System.Windows.Forms.TextBox() + Me.txtfullnamet1tt = New System.Windows.Forms.TextBox() + Me.Label48 = New System.Windows.Forms.Label() + Me.Label87 = New System.Windows.Forms.Label() + Me.Label165 = New System.Windows.Forms.Label() + Me.pict2tt = New System.Windows.Forms.PictureBox() + Me.pict1tt = New System.Windows.Forms.PictureBox() + Me.txtpointt2tt = New System.Windows.Forms.TextBox() + Me.txtpointt1tt = New System.Windows.Forms.TextBox() + Me.txtgamet2tt = New System.Windows.Forms.TextBox() + Me.txtgamet1tt = New System.Windows.Forms.TextBox() + Me.cmdshowscorett = New System.Windows.Forms.Button() + Me.gbpointindicatertt = New System.Windows.Forms.GroupBox() + Me.cmdpontindicatert2tt = New System.Windows.Forms.Button() + Me.cmdleftotoptt = New System.Windows.Forms.Button() + Me.cmdpontindicatert1tt = New System.Windows.Forms.Button() + Me.cmblefttoptt = New System.Windows.Forms.ComboBox() + Me.Cricket_Players_old_Recoed = New System.Windows.Forms.TabPage() + Me.gbpor = New System.Windows.Forms.GroupBox() + Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.txtcareer2 = New System.Windows.Forms.TextBox() + Me.txtcareer1 = New System.Windows.Forms.TextBox() + Me.txthighestscore4 = New System.Windows.Forms.TextBox() + Me.txthighestscore3 = New System.Windows.Forms.TextBox() + Me.image2 = New System.Windows.Forms.PictureBox() + Me.logo2 = New System.Windows.Forms.PictureBox() + Me.image1 = New System.Windows.Forms.PictureBox() + Me.Label74 = New System.Windows.Forms.Label() + Me.Label75 = New System.Windows.Forms.Label() + Me.Label76 = New System.Windows.Forms.Label() + Me.Label77 = New System.Windows.Forms.Label() + Me.logo1 = New System.Windows.Forms.PictureBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.Label79 = New System.Windows.Forms.Label() + Me.Label80 = New System.Windows.Forms.Label() + Me.Label81 = New System.Windows.Forms.Label() + Me.Label82 = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() + Me.cmd4 = New System.Windows.Forms.Button() + Me.cmd3 = New System.Windows.Forms.Button() + Me.txt50s8 = New System.Windows.Forms.TextBox() + Me.txt100s8 = New System.Windows.Forms.TextBox() + Me.txtaverage8 = New System.Windows.Forms.TextBox() + Me.txtinnings8 = New System.Windows.Forms.TextBox() + Me.txtmatches8 = New System.Windows.Forms.TextBox() + Me.txt50s7 = New System.Windows.Forms.TextBox() + Me.txt100s7 = New System.Windows.Forms.TextBox() + Me.txtaverage7 = New System.Windows.Forms.TextBox() + Me.txthighestscore7 = New System.Windows.Forms.TextBox() + Me.txtruns7 = New System.Windows.Forms.TextBox() + Me.txtinnings7 = New System.Windows.Forms.TextBox() + Me.txthighestscore8 = New System.Windows.Forms.TextBox() + Me.txtruns8 = New System.Windows.Forms.TextBox() + Me.txtmatches7 = New System.Windows.Forms.TextBox() + Me.txtecon6 = New System.Windows.Forms.TextBox() + Me.txt5w6 = New System.Windows.Forms.TextBox() + Me.txt4w6 = New System.Windows.Forms.TextBox() + Me.txtavg6 = New System.Windows.Forms.TextBox() + Me.txtbest6 = New System.Windows.Forms.TextBox() + Me.txtwickets6 = New System.Windows.Forms.TextBox() + Me.txtmatches6 = New System.Windows.Forms.TextBox() + Me.txtecon5 = New System.Windows.Forms.TextBox() + Me.txt5w5 = New System.Windows.Forms.TextBox() + Me.txt4w5 = New System.Windows.Forms.TextBox() + Me.txtavg5 = New System.Windows.Forms.TextBox() + Me.txtbest5 = New System.Windows.Forms.TextBox() + Me.txtwickets5 = New System.Windows.Forms.TextBox() + Me.txtmatches5 = New System.Windows.Forms.TextBox() + Me.Label83 = New System.Windows.Forms.Label() + Me.Label84 = New System.Windows.Forms.Label() + Me.txtplayerb = New System.Windows.Forms.TextBox() + Me.txtteamb = New System.Windows.Forms.TextBox() + Me.cmd2 = New System.Windows.Forms.Button() + Me.cmd1 = New System.Windows.Forms.Button() + Me.txt50s4 = New System.Windows.Forms.TextBox() + Me.txt100s4 = New System.Windows.Forms.TextBox() + Me.txtaverage4 = New System.Windows.Forms.TextBox() + Me.txtruns4 = New System.Windows.Forms.TextBox() + Me.txtinnings4 = New System.Windows.Forms.TextBox() + Me.txtmatches4 = New System.Windows.Forms.TextBox() + Me.txt50s3 = New System.Windows.Forms.TextBox() + Me.txt100s3 = New System.Windows.Forms.TextBox() + Me.txtaverage3 = New System.Windows.Forms.TextBox() + Me.txtruns3 = New System.Windows.Forms.TextBox() + Me.txtinnings3 = New System.Windows.Forms.TextBox() + Me.txtmatches3 = New System.Windows.Forms.TextBox() + Me.txtecon2 = New System.Windows.Forms.TextBox() + Me.txt5w2 = New System.Windows.Forms.TextBox() + Me.txt4w2 = New System.Windows.Forms.TextBox() + Me.txtavg2 = New System.Windows.Forms.TextBox() + Me.txtwickets2 = New System.Windows.Forms.TextBox() + Me.txtmatches2 = New System.Windows.Forms.TextBox() + Me.txtbest2 = New System.Windows.Forms.TextBox() + Me.txtecon1 = New System.Windows.Forms.TextBox() + Me.txt5w1 = New System.Windows.Forms.TextBox() + Me.txt4w1 = New System.Windows.Forms.TextBox() + Me.txtavg1 = New System.Windows.Forms.TextBox() + Me.txtbest1 = New System.Windows.Forms.TextBox() + Me.txtwickets1 = New System.Windows.Forms.TextBox() + Me.txtmatches1 = New System.Windows.Forms.TextBox() + Me.lblbatting = New System.Windows.Forms.Label() + Me.lblbowling = New System.Windows.Forms.Label() + Me.txtplayera = New System.Windows.Forms.TextBox() + Me.txtteama = New System.Windows.Forms.TextBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.cmbSubHeader = New System.Windows.Forms.ComboBox() + Me.cmbHeader = New System.Windows.Forms.ComboBox() + Me.cmdeventid = New System.Windows.Forms.Button() + Me.Label17 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.cmbgames = New System.Windows.Forms.ComboBox() + Me.eventlogo = New System.Windows.Forms.PictureBox() + Me.gamelogo = New System.Windows.Forms.PictureBox() + Me.cmdstopgym = New System.Windows.Forms.Button() + Me.chkanimationzym = New System.Windows.Forms.CheckBox() + Me.Label30 = New System.Windows.Forms.Label() + Me.cmblayergames = New System.Windows.Forms.ComboBox() + Me.chkanimationforhdvan = New System.Windows.Forms.CheckBox() + Me.cmdaddoutput = New System.Windows.Forms.Button() + Me.cmdremoveoutput = New System.Windows.Forms.Button() + Me.cmdsd = New System.Windows.Forms.Button() + Me.cmdhd = New System.Windows.Forms.Button() + Me.cmdsqueezeforsafesd = New System.Windows.Forms.Button() + Me.cmdfillnormal = New System.Windows.Forms.Button() + Me.tmrtimeonform = New System.Windows.Forms.Timer(Me.components) + Me.tmrtimeupdateontemplate = New System.Windows.Forms.Timer(Me.components) + Me.tmrupdateontemplateextra = New System.Windows.Forms.Timer(Me.components) + Me.ofd1 = New System.Windows.Forms.OpenFileDialog() + Me.GroupBox31 = New System.Windows.Forms.GroupBox() + Me.gbOutAnimation = New System.Windows.Forms.GroupBox() + Me.rdoDownOut = New System.Windows.Forms.RadioButton() + Me.rdoUpOut = New System.Windows.Forms.RadioButton() + Me.rdoRightOut = New System.Windows.Forms.RadioButton() + Me.rdoleftOut = New System.Windows.Forms.RadioButton() + Me.gbINAnimation = New System.Windows.Forms.GroupBox() + Me.rdoDownIN = New System.Windows.Forms.RadioButton() + Me.rdoUpIN = New System.Windows.Forms.RadioButton() + Me.rdoRightIN = New System.Windows.Forms.RadioButton() + Me.rdoLeftIN = New System.Windows.Forms.RadioButton() + Me.GroupBox10 = New System.Windows.Forms.GroupBox() + Me.TabControl1.SuspendLayout() + Me.Ball.SuspendLayout() + Me.gbBoxing.SuspendLayout() + Me.GroupBox30.SuspendLayout() + Me.gbsetscoreball.SuspendLayout() + CType(Me.dgvsetscoreball, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox22.SuspendLayout() + Me.GroupBox24.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + CType(Me.dgvt2ball, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox23.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.dgvt1ball, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox21.SuspendLayout() + Me.GroupBox16.SuspendLayout() + Me.GroupBox15.SuspendLayout() + CType(Me.pict2logoball, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pict1logoball, System.ComponentModel.ISupportInitialize).BeginInit() + Me.CG.SuspendLayout() + Me.gbvictorytt.SuspendLayout() + Me.GroupBox11.SuspendLayout() + Me.ToolStrip3.SuspendLayout() + Me.GroupBox25.SuspendLayout() + Me.GroupBox20.SuspendLayout() + Me.GroupBox19.SuspendLayout() + Me.GroupBox17.SuspendLayout() + Me.GroupBox9.SuspendLayout() + Me.GroupBox2.SuspendLayout() + CType(Me.dgvwinner, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox5.SuspendLayout() + Me.Gymnastics.SuspendLayout() + Me.GroupBox12.SuspendLayout() + Me.GroupBox8.SuspendLayout() + Me.GroupBox7.SuspendLayout() + Me.GroupBox6.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.tsgym.SuspendLayout() + CType(Me.dgvGymnastics, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Shooting.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GroupBox13.SuspendLayout() + Me.GroupBox18.SuspendLayout() + Me.tsShooting.SuspendLayout() + CType(Me.dgvShooting, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TT_Badminton.SuspendLayout() + Me.gbtt.SuspendLayout() + Me.GroupBox27.SuspendLayout() + Me.GroupBox26.SuspendLayout() + Me.gbsetscorett.SuspendLayout() + Me.GroupBox28.SuspendLayout() + CType(Me.dgvsetscorett, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbscorett.SuspendLayout() + Me.GroupBox29.SuspendLayout() + CType(Me.pict2tt, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pict1tt, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbpointindicatertt.SuspendLayout() + Me.Cricket_Players_old_Recoed.SuspendLayout() + Me.gbpor.SuspendLayout() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator2.SuspendLayout() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.image2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.logo2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.image1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.logo1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + CType(Me.eventlogo, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gamelogo, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox31.SuspendLayout() + Me.gbOutAnimation.SuspendLayout() + Me.gbINAnimation.SuspendLayout() + Me.GroupBox10.SuspendLayout() + Me.SuspendLayout() + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.Ball) + Me.TabControl1.Controls.Add(Me.CG) + Me.TabControl1.Controls.Add(Me.Gymnastics) + Me.TabControl1.Controls.Add(Me.Shooting) + Me.TabControl1.Controls.Add(Me.TT_Badminton) + Me.TabControl1.Controls.Add(Me.Cricket_Players_old_Recoed) + Me.TabControl1.Location = New System.Drawing.Point(8, 161) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(1339, 711) + Me.TabControl1.TabIndex = 0 + ' + 'Ball + ' + Me.Ball.Controls.Add(Me.gbBoxing) + Me.Ball.Controls.Add(Me.gbsetscoreball) + Me.Ball.Controls.Add(Me.cmbgoalsummary) + Me.Ball.Controls.Add(Me.cmdgoalSummary) + Me.Ball.Controls.Add(Me.cmdtteamridt2ball) + Me.Ball.Controls.Add(Me.cmdtteamridt1ball) + Me.Ball.Controls.Add(Me.cmdplayeridt2ball) + Me.Ball.Controls.Add(Me.cmdplayeridt1ball) + Me.Ball.Controls.Add(Me.lblfilenamet2ball) + Me.Ball.Controls.Add(Me.lblfilenamet1ball) + Me.Ball.Controls.Add(Me.GroupBox22) + Me.Ball.Controls.Add(Me.GroupBox21) + Me.Ball.Controls.Add(Me.GroupBox16) + Me.Ball.Location = New System.Drawing.Point(4, 22) + Me.Ball.Name = "Ball" + Me.Ball.Size = New System.Drawing.Size(1331, 685) + Me.Ball.TabIndex = 4 + Me.Ball.Text = "Ball" + Me.Ball.UseVisualStyleBackColor = True + ' + 'gbBoxing + ' + Me.gbBoxing.Controls.Add(Me.cmdroundscoreboxing) + Me.gbBoxing.Controls.Add(Me.cmdsetscoreboxing) + Me.gbBoxing.Controls.Add(Me.cmdscorewithclockboxing) + Me.gbBoxing.Controls.Add(Me.GroupBox30) + Me.gbBoxing.Controls.Add(Me.cmdversusboxing) + Me.gbBoxing.Controls.Add(Me.cmdwinnerBoxing) + Me.gbBoxing.Controls.Add(Me.cmbwinningmethodboxing) + Me.gbBoxing.Controls.Add(Me.cmdplayeridboxing) + Me.gbBoxing.Controls.Add(Me.cmdscoreboxing) + Me.gbBoxing.Location = New System.Drawing.Point(771, 487) + Me.gbBoxing.Name = "gbBoxing" + Me.gbBoxing.Size = New System.Drawing.Size(329, 134) + Me.gbBoxing.TabIndex = 1222 + Me.gbBoxing.TabStop = False + Me.gbBoxing.Text = "Boxing /Wrestling (Takes data from Ball)" + ' + 'cmdroundscoreboxing + ' + Me.cmdroundscoreboxing.Location = New System.Drawing.Point(108, 48) + Me.cmdroundscoreboxing.Name = "cmdroundscoreboxing" + Me.cmdroundscoreboxing.Size = New System.Drawing.Size(85, 24) + Me.cmdroundscoreboxing.TabIndex = 1223 + Me.cmdroundscoreboxing.Text = "Round Score" + Me.cmdroundscoreboxing.UseVisualStyleBackColor = True + ' + 'cmdsetscoreboxing + ' + Me.cmdsetscoreboxing.Location = New System.Drawing.Point(118, 73) + Me.cmdsetscoreboxing.Name = "cmdsetscoreboxing" + Me.cmdsetscoreboxing.Size = New System.Drawing.Size(75, 23) + Me.cmdsetscoreboxing.TabIndex = 1348 + Me.cmdsetscoreboxing.Text = "Set Score" + Me.cmdsetscoreboxing.UseVisualStyleBackColor = True + ' + 'cmdscorewithclockboxing + ' + Me.cmdscorewithclockboxing.Location = New System.Drawing.Point(199, 49) + Me.cmdscorewithclockboxing.Name = "cmdscorewithclockboxing" + Me.cmdscorewithclockboxing.Size = New System.Drawing.Size(108, 23) + Me.cmdscorewithclockboxing.TabIndex = 1347 + Me.cmdscorewithclockboxing.Text = "Team With Clock" + Me.cmdscorewithclockboxing.UseVisualStyleBackColor = True + ' + 'GroupBox30 + ' + Me.GroupBox30.Controls.Add(Me.rdoteamBBlue) + Me.GroupBox30.Controls.Add(Me.rdoTeamARed) + Me.GroupBox30.Location = New System.Drawing.Point(6, 19) + Me.GroupBox30.Name = "GroupBox30" + Me.GroupBox30.Size = New System.Drawing.Size(88, 50) + Me.GroupBox30.TabIndex = 1346 + Me.GroupBox30.TabStop = False + ' + 'rdoteamBBlue + ' + Me.rdoteamBBlue.AutoSize = True + Me.rdoteamBBlue.Location = New System.Drawing.Point(2, 27) + Me.rdoteamBBlue.Name = "rdoteamBBlue" + Me.rdoteamBBlue.Size = New System.Drawing.Size(86, 17) + Me.rdoteamBBlue.TabIndex = 1345 + Me.rdoteamBBlue.Text = "Team B Blue" + Me.rdoteamBBlue.UseVisualStyleBackColor = True + ' + 'rdoTeamARed + ' + Me.rdoTeamARed.AutoSize = True + Me.rdoTeamARed.Checked = True + Me.rdoTeamARed.Location = New System.Drawing.Point(1, 10) + Me.rdoTeamARed.Name = "rdoTeamARed" + Me.rdoTeamARed.Size = New System.Drawing.Size(85, 17) + Me.rdoTeamARed.TabIndex = 1344 + Me.rdoTeamARed.TabStop = True + Me.rdoTeamARed.Text = "Team A Red" + Me.rdoTeamARed.UseVisualStyleBackColor = True + ' + 'cmdversusboxing + ' + Me.cmdversusboxing.Location = New System.Drawing.Point(118, 23) + Me.cmdversusboxing.Name = "cmdversusboxing" + Me.cmdversusboxing.Size = New System.Drawing.Size(75, 23) + Me.cmdversusboxing.TabIndex = 1343 + Me.cmdversusboxing.Text = "Verses" + Me.cmdversusboxing.UseVisualStyleBackColor = True + ' + 'cmdwinnerBoxing + ' + Me.cmdwinnerBoxing.Location = New System.Drawing.Point(217, 99) + Me.cmdwinnerBoxing.Name = "cmdwinnerBoxing" + Me.cmdwinnerBoxing.Size = New System.Drawing.Size(75, 23) + Me.cmdwinnerBoxing.TabIndex = 1341 + Me.cmdwinnerBoxing.Text = "Winner" + Me.cmdwinnerBoxing.UseVisualStyleBackColor = True + ' + 'cmbwinningmethodboxing + ' + Me.cmbwinningmethodboxing.FormattingEnabled = True + Me.cmbwinningmethodboxing.Items.AddRange(New Object() {"WINNER BY POINTS", "WINNER BY Refree Stopped the contest", "WINNER BY Technical knock out", "WINNER BY Knock Out", "WINNER ", "WINNER BY Retired", "WINNER BY DISQ"}) + Me.cmbwinningmethodboxing.Location = New System.Drawing.Point(8, 101) + Me.cmbwinningmethodboxing.Name = "cmbwinningmethodboxing" + Me.cmbwinningmethodboxing.Size = New System.Drawing.Size(204, 21) + Me.cmbwinningmethodboxing.TabIndex = 1340 + Me.cmbwinningmethodboxing.Text = "WINNER BY POINTS" + ' + 'cmdplayeridboxing + ' + Me.cmdplayeridboxing.Location = New System.Drawing.Point(8, 72) + Me.cmdplayeridboxing.Name = "cmdplayeridboxing" + Me.cmdplayeridboxing.Size = New System.Drawing.Size(75, 23) + Me.cmdplayeridboxing.TabIndex = 1 + Me.cmdplayeridboxing.Text = "Player ID" + Me.cmdplayeridboxing.UseVisualStyleBackColor = True + ' + 'cmdscoreboxing + ' + Me.cmdscoreboxing.Location = New System.Drawing.Point(199, 23) + Me.cmdscoreboxing.Name = "cmdscoreboxing" + Me.cmdscoreboxing.Size = New System.Drawing.Size(108, 23) + Me.cmdscoreboxing.TabIndex = 0 + Me.cmdscoreboxing.Text = "Team With Round" + Me.cmdscoreboxing.UseVisualStyleBackColor = True + ' + 'gbsetscoreball + ' + Me.gbsetscoreball.BackColor = System.Drawing.Color.Aquamarine + Me.gbsetscoreball.Controls.Add(Me.cmdscoreresetball) + Me.gbsetscoreball.Controls.Add(Me.cmdshowsetscoreball) + Me.gbsetscoreball.Controls.Add(Me.dgvsetscoreball) + Me.gbsetscoreball.Location = New System.Drawing.Point(446, 347) + Me.gbsetscoreball.Name = "gbsetscoreball" + Me.gbsetscoreball.Size = New System.Drawing.Size(370, 132) + Me.gbsetscoreball.TabIndex = 1221 + Me.gbsetscoreball.TabStop = False + Me.gbsetscoreball.Text = "SetScore" + ' + 'cmdscoreresetball + ' + Me.cmdscoreresetball.Location = New System.Drawing.Point(265, 74) + Me.cmdscoreresetball.Name = "cmdscoreresetball" + Me.cmdscoreresetball.Size = New System.Drawing.Size(47, 52) + Me.cmdscoreresetball.TabIndex = 1136 + Me.cmdscoreresetball.Text = "Score Reset" + Me.cmdscoreresetball.UseVisualStyleBackColor = True + ' + 'cmdshowsetscoreball + ' + Me.cmdshowsetscoreball.Location = New System.Drawing.Point(265, 14) + Me.cmdshowsetscoreball.Name = "cmdshowsetscoreball" + Me.cmdshowsetscoreball.Size = New System.Drawing.Size(47, 54) + Me.cmdshowsetscoreball.TabIndex = 662 + Me.cmdshowsetscoreball.Text = "Show" + Me.cmdshowsetscoreball.UseVisualStyleBackColor = True + ' + 'dgvsetscoreball + ' + Me.dgvsetscoreball.AllowUserToAddRows = False + Me.dgvsetscoreball.AllowUserToResizeColumns = False + Me.dgvsetscoreball.AllowUserToResizeRows = False + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvsetscoreball.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvsetscoreball.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvsetscoreball.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn28, Me.DataGridViewTextBoxColumn29, Me.DataGridViewTextBoxColumn30, Me.DataGridViewTextBoxColumn31, Me.DataGridViewTextBoxColumn32, Me.DataGridViewTextBoxColumn34}) + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvsetscoreball.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvsetscoreball.EditMode = System.Windows.Forms.DataGridViewEditMode.EditOnEnter + Me.dgvsetscoreball.Location = New System.Drawing.Point(8, 14) + Me.dgvsetscoreball.Name = "dgvsetscoreball" + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvsetscoreball.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvsetscoreball.Size = New System.Drawing.Size(251, 112) + Me.dgvsetscoreball.TabIndex = 661 + ' + 'DataGridViewTextBoxColumn28 + ' + Me.DataGridViewTextBoxColumn28.HeaderText = "1st" + Me.DataGridViewTextBoxColumn28.MinimumWidth = 30 + Me.DataGridViewTextBoxColumn28.Name = "DataGridViewTextBoxColumn28" + Me.DataGridViewTextBoxColumn28.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn28.Width = 30 + ' + 'DataGridViewTextBoxColumn29 + ' + Me.DataGridViewTextBoxColumn29.HeaderText = "2nd" + Me.DataGridViewTextBoxColumn29.MinimumWidth = 30 + Me.DataGridViewTextBoxColumn29.Name = "DataGridViewTextBoxColumn29" + Me.DataGridViewTextBoxColumn29.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn29.Width = 30 + ' + 'DataGridViewTextBoxColumn30 + ' + Me.DataGridViewTextBoxColumn30.HeaderText = "3rd" + Me.DataGridViewTextBoxColumn30.MinimumWidth = 30 + Me.DataGridViewTextBoxColumn30.Name = "DataGridViewTextBoxColumn30" + Me.DataGridViewTextBoxColumn30.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn30.Width = 30 + ' + 'DataGridViewTextBoxColumn31 + ' + Me.DataGridViewTextBoxColumn31.HeaderText = "4th" + Me.DataGridViewTextBoxColumn31.MinimumWidth = 30 + Me.DataGridViewTextBoxColumn31.Name = "DataGridViewTextBoxColumn31" + Me.DataGridViewTextBoxColumn31.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn31.Width = 30 + ' + 'DataGridViewTextBoxColumn32 + ' + Me.DataGridViewTextBoxColumn32.HeaderText = "ET" + Me.DataGridViewTextBoxColumn32.MinimumWidth = 30 + Me.DataGridViewTextBoxColumn32.Name = "DataGridViewTextBoxColumn32" + Me.DataGridViewTextBoxColumn32.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn32.Width = 30 + ' + 'DataGridViewTextBoxColumn34 + ' + Me.DataGridViewTextBoxColumn34.HeaderText = "Total" + Me.DataGridViewTextBoxColumn34.MinimumWidth = 30 + Me.DataGridViewTextBoxColumn34.Name = "DataGridViewTextBoxColumn34" + Me.DataGridViewTextBoxColumn34.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn34.Width = 50 + ' + 'cmbgoalsummary + ' + Me.cmbgoalsummary.FormattingEnabled = True + Me.cmbgoalsummary.Items.AddRange(New Object() {"Round 1", "Round 2", "Round 3", "Round 4", "", "1st half", "2nd half", "3rd half", "4th half", "Full Time", "Half Time"}) + Me.cmbgoalsummary.Location = New System.Drawing.Point(623, 512) + Me.cmbgoalsummary.Name = "cmbgoalsummary" + Me.cmbgoalsummary.Size = New System.Drawing.Size(122, 21) + Me.cmbgoalsummary.TabIndex = 1220 + Me.cmbgoalsummary.Text = "Round 1" + ' + 'cmdgoalSummary + ' + Me.cmdgoalSummary.Location = New System.Drawing.Point(621, 539) + Me.cmdgoalSummary.Name = "cmdgoalSummary" + Me.cmdgoalSummary.Size = New System.Drawing.Size(104, 47) + Me.cmdgoalSummary.TabIndex = 1218 + Me.cmdgoalSummary.Text = "Goal Summary" + Me.cmdgoalSummary.UseVisualStyleBackColor = True + ' + 'cmdtteamridt2ball + ' + Me.cmdtteamridt2ball.Location = New System.Drawing.Point(531, 539) + Me.cmdtteamridt2ball.Name = "cmdtteamridt2ball" + Me.cmdtteamridt2ball.Size = New System.Drawing.Size(86, 48) + Me.cmdtteamridt2ball.TabIndex = 1207 + Me.cmdtteamridt2ball.Text = "Team ID 2" + Me.cmdtteamridt2ball.UseVisualStyleBackColor = True + ' + 'cmdtteamridt1ball + ' + Me.cmdtteamridt1ball.Location = New System.Drawing.Point(531, 485) + Me.cmdtteamridt1ball.Name = "cmdtteamridt1ball" + Me.cmdtteamridt1ball.Size = New System.Drawing.Size(86, 48) + Me.cmdtteamridt1ball.TabIndex = 1206 + Me.cmdtteamridt1ball.Text = "Team ID 1" + Me.cmdtteamridt1ball.UseVisualStyleBackColor = True + ' + 'cmdplayeridt2ball + ' + Me.cmdplayeridt2ball.Location = New System.Drawing.Point(439, 539) + Me.cmdplayeridt2ball.Name = "cmdplayeridt2ball" + Me.cmdplayeridt2ball.Size = New System.Drawing.Size(86, 48) + Me.cmdplayeridt2ball.TabIndex = 1205 + Me.cmdplayeridt2ball.Text = "Player ID 2" + Me.cmdplayeridt2ball.UseVisualStyleBackColor = True + ' + 'cmdplayeridt1ball + ' + Me.cmdplayeridt1ball.Location = New System.Drawing.Point(439, 485) + Me.cmdplayeridt1ball.Name = "cmdplayeridt1ball" + Me.cmdplayeridt1ball.Size = New System.Drawing.Size(86, 48) + Me.cmdplayeridt1ball.TabIndex = 1204 + Me.cmdplayeridt1ball.Text = "Player ID 1" + Me.cmdplayeridt1ball.UseVisualStyleBackColor = True + ' + 'lblfilenamet2ball + ' + Me.lblfilenamet2ball.AutoSize = True + Me.lblfilenamet2ball.Location = New System.Drawing.Point(444, 27) + Me.lblfilenamet2ball.Name = "lblfilenamet2ball" + Me.lblfilenamet2ball.Size = New System.Drawing.Size(81, 13) + Me.lblfilenamet2ball.TabIndex = 1204 + Me.lblfilenamet2ball.Text = "lblfilenamet2ball" + ' + 'lblfilenamet1ball + ' + Me.lblfilenamet1ball.AutoSize = True + Me.lblfilenamet1ball.Location = New System.Drawing.Point(443, 9) + Me.lblfilenamet1ball.Name = "lblfilenamet1ball" + Me.lblfilenamet1ball.Size = New System.Drawing.Size(81, 13) + Me.lblfilenamet1ball.TabIndex = 1203 + Me.lblfilenamet1ball.Text = "lblfilenamet1ball" + ' + 'GroupBox22 + ' + Me.GroupBox22.Controls.Add(Me.GroupBox24) + Me.GroupBox22.Controls.Add(Me.cmdvsball) + Me.GroupBox22.Controls.Add(Me.dgvt2ball) + Me.GroupBox22.Controls.Add(Me.Label40) + Me.GroupBox22.Controls.Add(Me.GroupBox23) + Me.GroupBox22.Controls.Add(Me.Label39) + Me.GroupBox22.Controls.Add(Me.cmdt2gball) + Me.GroupBox22.Controls.Add(Me.cmdt2rball) + Me.GroupBox22.Controls.Add(Me.cmdt2yball) + Me.GroupBox22.Controls.Add(Me.cmdt2lineupball) + Me.GroupBox22.Controls.Add(Me.cmdt1gball) + Me.GroupBox22.Controls.Add(Me.cmdt1rball) + Me.GroupBox22.Controls.Add(Me.txtt2ball) + Me.GroupBox22.Controls.Add(Me.cmdt1yball) + Me.GroupBox22.Controls.Add(Me.txtt1ball) + Me.GroupBox22.Controls.Add(Me.cmdt1lineupball) + Me.GroupBox22.Controls.Add(Me.dgvt1ball) + Me.GroupBox22.Location = New System.Drawing.Point(10, 0) + Me.GroupBox22.Name = "GroupBox22" + Me.GroupBox22.Size = New System.Drawing.Size(427, 592) + Me.GroupBox22.TabIndex = 630 + Me.GroupBox22.TabStop = False + ' + 'GroupBox24 + ' + Me.GroupBox24.Controls.Add(Me.cmduprowt2ball) + Me.GroupBox24.Controls.Add(Me.cmdremoverowt2ball) + Me.GroupBox24.Controls.Add(Me.ToolStrip2) + Me.GroupBox24.Controls.Add(Me.cmddownrowt2ball) + Me.GroupBox24.Controls.Add(Me.cmdaddrowt2ball) + Me.GroupBox24.Location = New System.Drawing.Point(233, 14) + Me.GroupBox24.Name = "GroupBox24" + Me.GroupBox24.Size = New System.Drawing.Size(185, 25) + Me.GroupBox24.TabIndex = 1203 + Me.GroupBox24.TabStop = False + ' + 'cmduprowt2ball + ' + Me.cmduprowt2ball.Image = CType(resources.GetObject("cmduprowt2ball.Image"), System.Drawing.Image) + Me.cmduprowt2ball.Location = New System.Drawing.Point(85, 6) + Me.cmduprowt2ball.Name = "cmduprowt2ball" + Me.cmduprowt2ball.Size = New System.Drawing.Size(22, 18) + Me.cmduprowt2ball.TabIndex = 1201 + Me.cmduprowt2ball.UseVisualStyleBackColor = True + ' + 'cmdremoverowt2ball + ' + Me.cmdremoverowt2ball.BackgroundImage = CType(resources.GetObject("cmdremoverowt2ball.BackgroundImage"), System.Drawing.Image) + Me.cmdremoverowt2ball.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdremoverowt2ball.Location = New System.Drawing.Point(157, 6) + Me.cmdremoverowt2ball.Name = "cmdremoverowt2ball" + Me.cmdremoverowt2ball.Size = New System.Drawing.Size(22, 18) + Me.cmdremoverowt2ball.TabIndex = 1200 + Me.cmdremoverowt2ball.UseVisualStyleBackColor = True + ' + 'ToolStrip2 + ' + Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cmdnewt2ball, Me.cmdopent2ball, Me.cmdsavet2ball, Me.ToolStripSeparator5, Me.ToolStripSeparator6}) + Me.ToolStrip2.Location = New System.Drawing.Point(2, 4) + Me.ToolStrip2.MaximumSize = New System.Drawing.Size(200, 200) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(93, 25) + Me.ToolStrip2.TabIndex = 1199 + Me.ToolStrip2.Text = "ToolStrip3" + ' + 'cmdnewt2ball + ' + Me.cmdnewt2ball.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.cmdnewt2ball.Image = CType(resources.GetObject("cmdnewt2ball.Image"), System.Drawing.Image) + Me.cmdnewt2ball.ImageTransparentColor = System.Drawing.Color.Magenta + Me.cmdnewt2ball.Name = "cmdnewt2ball" + Me.cmdnewt2ball.Size = New System.Drawing.Size(23, 22) + Me.cmdnewt2ball.Text = "&New" + ' + 'cmdopent2ball + ' + Me.cmdopent2ball.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.cmdopent2ball.Image = CType(resources.GetObject("cmdopent2ball.Image"), System.Drawing.Image) + Me.cmdopent2ball.ImageTransparentColor = System.Drawing.Color.Magenta + Me.cmdopent2ball.Name = "cmdopent2ball" + Me.cmdopent2ball.Size = New System.Drawing.Size(23, 22) + Me.cmdopent2ball.Text = "&Open" + ' + 'cmdsavet2ball + ' + Me.cmdsavet2ball.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.cmdsavet2ball.Image = CType(resources.GetObject("cmdsavet2ball.Image"), System.Drawing.Image) + Me.cmdsavet2ball.ImageTransparentColor = System.Drawing.Color.Magenta + Me.cmdsavet2ball.Name = "cmdsavet2ball" + Me.cmdsavet2ball.Size = New System.Drawing.Size(23, 22) + Me.cmdsavet2ball.Text = "&Save" + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripSeparator6 + ' + Me.ToolStripSeparator6.Name = "ToolStripSeparator6" + Me.ToolStripSeparator6.Size = New System.Drawing.Size(6, 25) + ' + 'cmddownrowt2ball + ' + Me.cmddownrowt2ball.Image = CType(resources.GetObject("cmddownrowt2ball.Image"), System.Drawing.Image) + Me.cmddownrowt2ball.Location = New System.Drawing.Point(107, 6) + Me.cmddownrowt2ball.Name = "cmddownrowt2ball" + Me.cmddownrowt2ball.Size = New System.Drawing.Size(22, 18) + Me.cmddownrowt2ball.TabIndex = 1198 + Me.cmddownrowt2ball.UseVisualStyleBackColor = True + ' + 'cmdaddrowt2ball + ' + Me.cmdaddrowt2ball.Image = CType(resources.GetObject("cmdaddrowt2ball.Image"), System.Drawing.Image) + Me.cmdaddrowt2ball.Location = New System.Drawing.Point(130, 6) + Me.cmdaddrowt2ball.Name = "cmdaddrowt2ball" + Me.cmdaddrowt2ball.Size = New System.Drawing.Size(22, 18) + Me.cmdaddrowt2ball.TabIndex = 1197 + Me.cmdaddrowt2ball.UseVisualStyleBackColor = True + ' + 'cmdvsball + ' + Me.cmdvsball.Location = New System.Drawing.Point(193, 42) + Me.cmdvsball.Name = "cmdvsball" + Me.cmdvsball.Size = New System.Drawing.Size(43, 23) + Me.cmdvsball.TabIndex = 631 + Me.cmdvsball.Text = "V/S" + Me.cmdvsball.UseVisualStyleBackColor = True + ' + 'dgvt2ball + ' + Me.dgvt2ball.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvt2ball.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn26}) + Me.dgvt2ball.EditMode = System.Windows.Forms.DataGridViewEditMode.EditOnEnter + Me.dgvt2ball.Location = New System.Drawing.Point(242, 66) + Me.dgvt2ball.Name = "dgvt2ball" + Me.dgvt2ball.RowTemplate.Height = 18 + Me.dgvt2ball.Size = New System.Drawing.Size(172, 467) + Me.dgvt2ball.TabIndex = 628 + ' + 'DataGridViewTextBoxColumn26 + ' + Me.DataGridViewTextBoxColumn26.HeaderText = "Name" + Me.DataGridViewTextBoxColumn26.Name = "DataGridViewTextBoxColumn26" + Me.DataGridViewTextBoxColumn26.Width = 120 + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label40.Location = New System.Drawing.Point(184, 487) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(60, 20) + Me.Label40.TabIndex = 627 + Me.Label40.Text = "Coach" + ' + 'GroupBox23 + ' + Me.GroupBox23.Controls.Add(Me.cmduprowt1ball) + Me.GroupBox23.Controls.Add(Me.cmdremoverowt1ball) + Me.GroupBox23.Controls.Add(Me.ToolStrip1) + Me.GroupBox23.Controls.Add(Me.cmddownrowt1ball) + Me.GroupBox23.Controls.Add(Me.cmdaddrowt1ball) + Me.GroupBox23.Location = New System.Drawing.Point(6, 12) + Me.GroupBox23.Name = "GroupBox23" + Me.GroupBox23.Size = New System.Drawing.Size(189, 24) + Me.GroupBox23.TabIndex = 1202 + Me.GroupBox23.TabStop = False + ' + 'cmduprowt1ball + ' + Me.cmduprowt1ball.Image = CType(resources.GetObject("cmduprowt1ball.Image"), System.Drawing.Image) + Me.cmduprowt1ball.Location = New System.Drawing.Point(88, 8) + Me.cmduprowt1ball.Name = "cmduprowt1ball" + Me.cmduprowt1ball.Size = New System.Drawing.Size(22, 18) + Me.cmduprowt1ball.TabIndex = 1201 + Me.cmduprowt1ball.UseVisualStyleBackColor = True + ' + 'cmdremoverowt1ball + ' + Me.cmdremoverowt1ball.BackgroundImage = CType(resources.GetObject("cmdremoverowt1ball.BackgroundImage"), System.Drawing.Image) + Me.cmdremoverowt1ball.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdremoverowt1ball.Location = New System.Drawing.Point(160, 8) + Me.cmdremoverowt1ball.Name = "cmdremoverowt1ball" + Me.cmdremoverowt1ball.Size = New System.Drawing.Size(22, 18) + Me.cmdremoverowt1ball.TabIndex = 1200 + Me.cmdremoverowt1ball.UseVisualStyleBackColor = True + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cmdnewt1ball, Me.cmdopent1ball, Me.cmdsavet1ball, Me.ToolStripSeparator3, Me.ToolStripSeparator4}) + Me.ToolStrip1.Location = New System.Drawing.Point(5, 6) + Me.ToolStrip1.MaximumSize = New System.Drawing.Size(200, 200) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(93, 25) + Me.ToolStrip1.TabIndex = 1199 + Me.ToolStrip1.Text = "ToolStrip3" + ' + 'cmdnewt1ball + ' + Me.cmdnewt1ball.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.cmdnewt1ball.Image = CType(resources.GetObject("cmdnewt1ball.Image"), System.Drawing.Image) + Me.cmdnewt1ball.ImageTransparentColor = System.Drawing.Color.Magenta + Me.cmdnewt1ball.Name = "cmdnewt1ball" + Me.cmdnewt1ball.Size = New System.Drawing.Size(23, 22) + Me.cmdnewt1ball.Text = "&New" + ' + 'cmdopent1ball + ' + Me.cmdopent1ball.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.cmdopent1ball.Image = CType(resources.GetObject("cmdopent1ball.Image"), System.Drawing.Image) + Me.cmdopent1ball.ImageTransparentColor = System.Drawing.Color.Magenta + Me.cmdopent1ball.Name = "cmdopent1ball" + Me.cmdopent1ball.Size = New System.Drawing.Size(23, 22) + Me.cmdopent1ball.Text = "&Open" + ' + 'cmdsavet1ball + ' + Me.cmdsavet1ball.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.cmdsavet1ball.Image = CType(resources.GetObject("cmdsavet1ball.Image"), System.Drawing.Image) + Me.cmdsavet1ball.ImageTransparentColor = System.Drawing.Color.Magenta + Me.cmdsavet1ball.Name = "cmdsavet1ball" + Me.cmdsavet1ball.Size = New System.Drawing.Size(23, 22) + Me.cmdsavet1ball.Text = "&Save" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25) + ' + 'cmddownrowt1ball + ' + Me.cmddownrowt1ball.Image = CType(resources.GetObject("cmddownrowt1ball.Image"), System.Drawing.Image) + Me.cmddownrowt1ball.Location = New System.Drawing.Point(110, 8) + Me.cmddownrowt1ball.Name = "cmddownrowt1ball" + Me.cmddownrowt1ball.Size = New System.Drawing.Size(22, 18) + Me.cmddownrowt1ball.TabIndex = 1198 + Me.cmddownrowt1ball.UseVisualStyleBackColor = True + ' + 'cmdaddrowt1ball + ' + Me.cmdaddrowt1ball.Image = CType(resources.GetObject("cmdaddrowt1ball.Image"), System.Drawing.Image) + Me.cmdaddrowt1ball.Location = New System.Drawing.Point(133, 8) + Me.cmdaddrowt1ball.Name = "cmdaddrowt1ball" + Me.cmdaddrowt1ball.Size = New System.Drawing.Size(22, 18) + Me.cmdaddrowt1ball.TabIndex = 1197 + Me.cmdaddrowt1ball.UseVisualStyleBackColor = True + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label39.Location = New System.Drawing.Point(184, 282) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(51, 20) + Me.Label39.TabIndex = 626 + Me.Label39.Text = "Extra" + ' + 'cmdt2gball + ' + Me.cmdt2gball.BackColor = System.Drawing.Color.Green + Me.cmdt2gball.Location = New System.Drawing.Point(362, 562) + Me.cmdt2gball.Name = "cmdt2gball" + Me.cmdt2gball.Size = New System.Drawing.Size(52, 25) + Me.cmdt2gball.TabIndex = 599 + Me.cmdt2gball.Text = "Goal" + Me.cmdt2gball.UseVisualStyleBackColor = False + ' + 'cmdt2rball + ' + Me.cmdt2rball.BackColor = System.Drawing.Color.Red + Me.cmdt2rball.Location = New System.Drawing.Point(303, 562) + Me.cmdt2rball.Name = "cmdt2rball" + Me.cmdt2rball.Size = New System.Drawing.Size(60, 25) + Me.cmdt2rball.TabIndex = 598 + Me.cmdt2rball.Text = "Red" + Me.cmdt2rball.UseVisualStyleBackColor = False + ' + 'cmdt2yball + ' + Me.cmdt2yball.BackColor = System.Drawing.Color.Yellow + Me.cmdt2yball.Location = New System.Drawing.Point(245, 562) + Me.cmdt2yball.Name = "cmdt2yball" + Me.cmdt2yball.Size = New System.Drawing.Size(58, 25) + Me.cmdt2yball.TabIndex = 597 + Me.cmdt2yball.Text = "Yellow" + Me.cmdt2yball.UseVisualStyleBackColor = False + ' + 'cmdt2lineupball + ' + Me.cmdt2lineupball.Location = New System.Drawing.Point(242, 534) + Me.cmdt2lineupball.Name = "cmdt2lineupball" + Me.cmdt2lineupball.Size = New System.Drawing.Size(172, 28) + Me.cmdt2lineupball.TabIndex = 594 + Me.cmdt2lineupball.Text = "Team2 Linup" + Me.cmdt2lineupball.UseVisualStyleBackColor = True + ' + 'cmdt1gball + ' + Me.cmdt1gball.BackColor = System.Drawing.Color.Green + Me.cmdt1gball.Location = New System.Drawing.Point(134, 562) + Me.cmdt1gball.Name = "cmdt1gball" + Me.cmdt1gball.Size = New System.Drawing.Size(52, 25) + Me.cmdt1gball.TabIndex = 593 + Me.cmdt1gball.Text = "Goal" + Me.cmdt1gball.UseVisualStyleBackColor = False + ' + 'cmdt1rball + ' + Me.cmdt1rball.BackColor = System.Drawing.Color.Red + Me.cmdt1rball.Location = New System.Drawing.Point(74, 562) + Me.cmdt1rball.Name = "cmdt1rball" + Me.cmdt1rball.Size = New System.Drawing.Size(60, 25) + Me.cmdt1rball.TabIndex = 592 + Me.cmdt1rball.Text = "Red" + Me.cmdt1rball.UseVisualStyleBackColor = False + ' + 'txtt2ball + ' + Me.txtt2ball.Location = New System.Drawing.Point(245, 44) + Me.txtt2ball.Name = "txtt2ball" + Me.txtt2ball.Size = New System.Drawing.Size(169, 20) + Me.txtt2ball.TabIndex = 616 + Me.txtt2ball.Text = "Delhi" + ' + 'cmdt1yball + ' + Me.cmdt1yball.BackColor = System.Drawing.Color.Yellow + Me.cmdt1yball.Location = New System.Drawing.Point(15, 561) + Me.cmdt1yball.Name = "cmdt1yball" + Me.cmdt1yball.Size = New System.Drawing.Size(58, 25) + Me.cmdt1yball.TabIndex = 591 + Me.cmdt1yball.Text = "Yellow" + Me.cmdt1yball.UseVisualStyleBackColor = False + ' + 'txtt1ball + ' + Me.txtt1ball.Location = New System.Drawing.Point(11, 42) + Me.txtt1ball.Name = "txtt1ball" + Me.txtt1ball.Size = New System.Drawing.Size(172, 20) + Me.txtt1ball.TabIndex = 614 + Me.txtt1ball.Text = "Maharashtra" + ' + 'cmdt1lineupball + ' + Me.cmdt1lineupball.Location = New System.Drawing.Point(11, 534) + Me.cmdt1lineupball.Name = "cmdt1lineupball" + Me.cmdt1lineupball.Size = New System.Drawing.Size(172, 28) + Me.cmdt1lineupball.TabIndex = 589 + Me.cmdt1lineupball.Text = "Team1 Linup" + Me.cmdt1lineupball.UseVisualStyleBackColor = True + ' + 'dgvt1ball + ' + Me.dgvt1ball.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvt1ball.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn27}) + Me.dgvt1ball.EditMode = System.Windows.Forms.DataGridViewEditMode.EditOnEnter + Me.dgvt1ball.Location = New System.Drawing.Point(11, 65) + Me.dgvt1ball.Name = "dgvt1ball" + Me.dgvt1ball.RowTemplate.Height = 18 + Me.dgvt1ball.Size = New System.Drawing.Size(172, 468) + Me.dgvt1ball.TabIndex = 587 + ' + 'DataGridViewTextBoxColumn27 + ' + Me.DataGridViewTextBoxColumn27.HeaderText = "Name" + Me.DataGridViewTextBoxColumn27.Name = "DataGridViewTextBoxColumn27" + Me.DataGridViewTextBoxColumn27.Width = 120 + ' + 'GroupBox21 + ' + Me.GroupBox21.BackColor = System.Drawing.Color.PaleGreen + Me.GroupBox21.Controls.Add(Me.cmdteam2outball) + Me.GroupBox21.Controls.Add(Me.cmdteam1outball) + Me.GroupBox21.Controls.Add(Me.txtt2outball) + Me.GroupBox21.Controls.Add(Me.txtt2inball) + Me.GroupBox21.Controls.Add(Me.cmdt2inoutball) + Me.GroupBox21.Controls.Add(Me.txtt1outball) + Me.GroupBox21.Controls.Add(Me.txtt1inball) + Me.GroupBox21.Controls.Add(Me.cmdteam1inball) + Me.GroupBox21.Controls.Add(Me.cmdteam2inball) + Me.GroupBox21.Controls.Add(Me.cmdt1inoutball) + Me.GroupBox21.Location = New System.Drawing.Point(447, 226) + Me.GroupBox21.Name = "GroupBox21" + Me.GroupBox21.Size = New System.Drawing.Size(369, 111) + Me.GroupBox21.TabIndex = 629 + Me.GroupBox21.TabStop = False + Me.GroupBox21.Text = "Player IN/OUT" + ' + 'cmdteam2outball + ' + Me.cmdteam2outball.Location = New System.Drawing.Point(176, 81) + Me.cmdteam2outball.Name = "cmdteam2outball" + Me.cmdteam2outball.Size = New System.Drawing.Size(40, 22) + Me.cmdteam2outball.TabIndex = 606 + Me.cmdteam2outball.Text = "OUT" + Me.cmdteam2outball.UseVisualStyleBackColor = True + ' + 'cmdteam1outball + ' + Me.cmdteam1outball.Location = New System.Drawing.Point(176, 34) + Me.cmdteam1outball.Name = "cmdteam1outball" + Me.cmdteam1outball.Size = New System.Drawing.Size(40, 22) + Me.cmdteam1outball.TabIndex = 605 + Me.cmdteam1outball.Text = "OUT" + Me.cmdteam1outball.UseVisualStyleBackColor = True + ' + 'txtt2outball + ' + Me.txtt2outball.Location = New System.Drawing.Point(5, 83) + Me.txtt2outball.Name = "txtt2outball" + Me.txtt2outball.Size = New System.Drawing.Size(170, 20) + Me.txtt2outball.TabIndex = 602 + Me.txtt2outball.Text = "39 Jagat Sharma" + ' + 'txtt2inball + ' + Me.txtt2inball.Location = New System.Drawing.Point(5, 61) + Me.txtt2inball.Name = "txtt2inball" + Me.txtt2inball.Size = New System.Drawing.Size(170, 20) + Me.txtt2inball.TabIndex = 601 + Me.txtt2inball.Text = "36 Abhishek Chatterjee" + ' + 'cmdt2inoutball + ' + Me.cmdt2inoutball.Location = New System.Drawing.Point(215, 59) + Me.cmdt2inoutball.Name = "cmdt2inoutball" + Me.cmdt2inoutball.Size = New System.Drawing.Size(52, 48) + Me.cmdt2inoutball.TabIndex = 600 + Me.cmdt2inoutball.Text = "Team 2" + Me.cmdt2inoutball.UseVisualStyleBackColor = True + ' + 'txtt1outball + ' + Me.txtt1outball.Location = New System.Drawing.Point(5, 35) + Me.txtt1outball.Name = "txtt1outball" + Me.txtt1outball.Size = New System.Drawing.Size(170, 20) + Me.txtt1outball.TabIndex = 596 + Me.txtt1outball.Text = "26 Manoj Thapa" + ' + 'txtt1inball + ' + Me.txtt1inball.Location = New System.Drawing.Point(5, 13) + Me.txtt1inball.Name = "txtt1inball" + Me.txtt1inball.Size = New System.Drawing.Size(170, 20) + Me.txtt1inball.TabIndex = 595 + Me.txtt1inball.Text = "18 Vatsal Reshamwala" + ' + 'cmdteam1inball + ' + Me.cmdteam1inball.Location = New System.Drawing.Point(176, 11) + Me.cmdteam1inball.Name = "cmdteam1inball" + Me.cmdteam1inball.Size = New System.Drawing.Size(40, 22) + Me.cmdteam1inball.TabIndex = 603 + Me.cmdteam1inball.Text = "IN" + Me.cmdteam1inball.UseVisualStyleBackColor = True + ' + 'cmdteam2inball + ' + Me.cmdteam2inball.Location = New System.Drawing.Point(176, 60) + Me.cmdteam2inball.Name = "cmdteam2inball" + Me.cmdteam2inball.Size = New System.Drawing.Size(40, 22) + Me.cmdteam2inball.TabIndex = 604 + Me.cmdteam2inball.Text = "IN" + Me.cmdteam2inball.UseVisualStyleBackColor = True + ' + 'cmdt1inoutball + ' + Me.cmdt1inoutball.Location = New System.Drawing.Point(215, 11) + Me.cmdt1inoutball.Name = "cmdt1inoutball" + Me.cmdt1inoutball.Size = New System.Drawing.Size(52, 48) + Me.cmdt1inoutball.TabIndex = 590 + Me.cmdt1inoutball.Text = "Team 1" + Me.cmdt1inoutball.UseVisualStyleBackColor = True + ' + 'GroupBox16 + ' + Me.GroupBox16.BackColor = System.Drawing.Color.MistyRose + Me.GroupBox16.Controls.Add(Me.cmdadjustsecball) + Me.GroupBox16.Controls.Add(Me.cmbputsecondball) + Me.GroupBox16.Controls.Add(Me.cmbputminuteball) + Me.GroupBox16.Controls.Add(Me.cmdadjustminball) + Me.GroupBox16.Controls.Add(Me.cmbinfoball) + Me.GroupBox16.Controls.Add(Me.cmdscorewithinfo) + Me.GroupBox16.Controls.Add(Me.cmdscorewithclock) + Me.GroupBox16.Controls.Add(Me.cmdscoreupdateball) + Me.GroupBox16.Controls.Add(Me.cmdadd1t2ball) + Me.GroupBox16.Controls.Add(Me.cmdadd1t1ball) + Me.GroupBox16.Controls.Add(Me.cmdt2colorball) + Me.GroupBox16.Controls.Add(Me.cmdt1colorball) + Me.GroupBox16.Controls.Add(Me.Label45) + Me.GroupBox16.Controls.Add(Me.cmbhalfball) + Me.GroupBox16.Controls.Add(Me.GroupBox15) + Me.GroupBox16.Controls.Add(Me.Label6) + Me.GroupBox16.Controls.Add(Me.txthalftimeball) + Me.GroupBox16.Controls.Add(Me.cmdscorewithextraball) + Me.GroupBox16.Controls.Add(Me.pict2logoball) + Me.GroupBox16.Controls.Add(Me.pict1logoball) + Me.GroupBox16.Controls.Add(Me.txtt2gball) + Me.GroupBox16.Controls.Add(Me.txtt1gball) + Me.GroupBox16.Controls.Add(Me.cmdresetclockball) + Me.GroupBox16.Controls.Add(Me.txtsecball) + Me.GroupBox16.Controls.Add(Me.txtminball) + Me.GroupBox16.Controls.Add(Me.cmdstopscoreball) + Me.GroupBox16.Controls.Add(Me.cmdstartclockball) + Me.GroupBox16.Controls.Add(Me.cmdpauseclockball) + Me.GroupBox16.Controls.Add(Me.cmdscoreball) + Me.GroupBox16.Location = New System.Drawing.Point(447, 46) + Me.GroupBox16.Name = "GroupBox16" + Me.GroupBox16.Size = New System.Drawing.Size(375, 174) + Me.GroupBox16.TabIndex = 625 + Me.GroupBox16.TabStop = False + Me.GroupBox16.Text = "Score" + ' + 'cmdadjustsecball + ' + Me.cmdadjustsecball.Location = New System.Drawing.Point(238, 123) + Me.cmdadjustsecball.Name = "cmdadjustsecball" + Me.cmdadjustsecball.Size = New System.Drawing.Size(36, 24) + Me.cmdadjustsecball.TabIndex = 1224 + Me.cmdadjustsecball.Text = "Set" + Me.cmdadjustsecball.UseVisualStyleBackColor = True + ' + 'cmbputsecondball + ' + Me.cmbputsecondball.FormattingEnabled = True + Me.cmbputsecondball.Items.AddRange(New Object() {"00", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100"}) + Me.cmbputsecondball.Location = New System.Drawing.Point(238, 149) + Me.cmbputsecondball.Name = "cmbputsecondball" + Me.cmbputsecondball.Size = New System.Drawing.Size(40, 21) + Me.cmbputsecondball.TabIndex = 1223 + Me.cmbputsecondball.Text = "00" + ' + 'cmbputminuteball + ' + Me.cmbputminuteball.FormattingEnabled = True + Me.cmbputminuteball.Items.AddRange(New Object() {"00", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100"}) + Me.cmbputminuteball.Location = New System.Drawing.Point(189, 148) + Me.cmbputminuteball.Name = "cmbputminuteball" + Me.cmbputminuteball.Size = New System.Drawing.Size(43, 21) + Me.cmbputminuteball.TabIndex = 1222 + Me.cmbputminuteball.Text = "25" + ' + 'cmdadjustminball + ' + Me.cmdadjustminball.Location = New System.Drawing.Point(188, 123) + Me.cmdadjustminball.Name = "cmdadjustminball" + Me.cmdadjustminball.Size = New System.Drawing.Size(36, 24) + Me.cmdadjustminball.TabIndex = 1221 + Me.cmdadjustminball.Text = "Set" + Me.cmdadjustminball.UseVisualStyleBackColor = True + ' + 'cmbinfoball + ' + Me.cmbinfoball.FormattingEnabled = True + Me.cmbinfoball.Items.AddRange(New Object() {"Penalty", "Time Out", "Highlights", "Expedite", "Deuce", "Advantage", "Double Hit", "Game Point", "Match Point", "Winner", "Advantage", "", "Advantage Server ", "Ad-In", "Advantage Receiver", "Ad-Out", "Tie-Break", "New ball", "Double Faults", "Break Point", "2nd Break Point", "Set Point", "3Rd Gold Medal point", "1 Challenge Remaining", "", "Round 1", "Round 2", "Round 3", "Round 4"}) + Me.cmbinfoball.Location = New System.Drawing.Point(36, 108) + Me.cmbinfoball.Name = "cmbinfoball" + Me.cmbinfoball.Size = New System.Drawing.Size(93, 21) + Me.cmbinfoball.TabIndex = 1220 + Me.cmbinfoball.Text = "Round 1" + ' + 'cmdscorewithinfo + ' + Me.cmdscorewithinfo.Location = New System.Drawing.Point(278, 20) + Me.cmdscorewithinfo.Name = "cmdscorewithinfo" + Me.cmdscorewithinfo.Size = New System.Drawing.Size(45, 63) + Me.cmdscorewithinfo.TabIndex = 1219 + Me.cmdscorewithinfo.Text = "Score+Info" + Me.cmdscorewithinfo.UseVisualStyleBackColor = True + ' + 'cmdscorewithclock + ' + Me.cmdscorewithclock.Location = New System.Drawing.Point(228, 20) + Me.cmdscorewithclock.Name = "cmdscorewithclock" + Me.cmdscorewithclock.Size = New System.Drawing.Size(48, 63) + Me.cmdscorewithclock.TabIndex = 1218 + Me.cmdscorewithclock.Text = "Score+Clock" + Me.cmdscorewithclock.UseVisualStyleBackColor = True + ' + 'cmdscoreupdateball + ' + Me.cmdscoreupdateball.Location = New System.Drawing.Point(183, 84) + Me.cmdscoreupdateball.Name = "cmdscoreupdateball" + Me.cmdscoreupdateball.Size = New System.Drawing.Size(186, 22) + Me.cmdscoreupdateball.TabIndex = 1217 + Me.cmdscoreupdateball.Text = "Score Update" + Me.cmdscoreupdateball.UseVisualStyleBackColor = True + ' + 'cmdadd1t2ball + ' + Me.cmdadd1t2ball.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdadd1t2ball.Location = New System.Drawing.Point(127, 61) + Me.cmdadd1t2ball.Name = "cmdadd1t2ball" + Me.cmdadd1t2ball.Size = New System.Drawing.Size(47, 22) + Me.cmdadd1t2ball.TabIndex = 1216 + Me.cmdadd1t2ball.Text = "+1" + Me.cmdadd1t2ball.UseVisualStyleBackColor = True + ' + 'cmdadd1t1ball + ' + Me.cmdadd1t1ball.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdadd1t1ball.Location = New System.Drawing.Point(126, 40) + Me.cmdadd1t1ball.Name = "cmdadd1t1ball" + Me.cmdadd1t1ball.Size = New System.Drawing.Size(48, 21) + Me.cmdadd1t1ball.TabIndex = 607 + Me.cmdadd1t1ball.Text = "+1" + Me.cmdadd1t1ball.UseVisualStyleBackColor = True + ' + 'cmdt2colorball + ' + Me.cmdt2colorball.BackColor = System.Drawing.Color.Blue + Me.cmdt2colorball.Location = New System.Drawing.Point(91, 63) + Me.cmdt2colorball.Name = "cmdt2colorball" + Me.cmdt2colorball.Size = New System.Drawing.Size(30, 18) + Me.cmdt2colorball.TabIndex = 1214 + Me.cmdt2colorball.UseVisualStyleBackColor = False + ' + 'cmdt1colorball + ' + Me.cmdt1colorball.BackColor = System.Drawing.Color.Red + Me.cmdt1colorball.Location = New System.Drawing.Point(90, 43) + Me.cmdt1colorball.Name = "cmdt1colorball" + Me.cmdt1colorball.Size = New System.Drawing.Size(30, 18) + Me.cmdt1colorball.TabIndex = 1213 + Me.cmdt1colorball.UseVisualStyleBackColor = False + ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.Location = New System.Drawing.Point(9, 113) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(25, 13) + Me.Label45.TabIndex = 1208 + Me.Label45.Text = "Info" + ' + 'cmbhalfball + ' + Me.cmbhalfball.FormattingEnabled = True + Me.cmbhalfball.Items.AddRange(New Object() {"1st", "2nd", "3rd", "4th", "Ext"}) + Me.cmbhalfball.Location = New System.Drawing.Point(88, 86) + Me.cmbhalfball.Name = "cmbhalfball" + Me.cmbhalfball.Size = New System.Drawing.Size(41, 21) + Me.cmbhalfball.TabIndex = 626 + Me.cmbhalfball.Text = "1st" + ' + 'GroupBox15 + ' + Me.GroupBox15.Controls.Add(Me.rdodowncounterball) + Me.GroupBox15.Controls.Add(Me.rdoupcounterball) + Me.GroupBox15.Location = New System.Drawing.Point(7, 134) + Me.GroupBox15.Name = "GroupBox15" + Me.GroupBox15.Size = New System.Drawing.Size(114, 33) + Me.GroupBox15.TabIndex = 624 + Me.GroupBox15.TabStop = False + Me.GroupBox15.Text = " " + ' + 'rdodowncounterball + ' + Me.rdodowncounterball.AutoSize = True + Me.rdodowncounterball.Location = New System.Drawing.Point(53, 10) + Me.rdodowncounterball.Name = "rdodowncounterball" + Me.rdodowncounterball.Size = New System.Drawing.Size(53, 17) + Me.rdodowncounterball.TabIndex = 1 + Me.rdodowncounterball.Text = "Down" + Me.rdodowncounterball.UseVisualStyleBackColor = True + ' + 'rdoupcounterball + ' + Me.rdoupcounterball.AutoSize = True + Me.rdoupcounterball.Checked = True + Me.rdoupcounterball.Location = New System.Drawing.Point(6, 10) + Me.rdoupcounterball.Name = "rdoupcounterball" + Me.rdoupcounterball.Size = New System.Drawing.Size(39, 17) + Me.rdoupcounterball.TabIndex = 0 + Me.rdoupcounterball.TabStop = True + Me.rdoupcounterball.Text = "Up" + Me.rdoupcounterball.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(178, 20) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(52, 13) + Me.Label6.TabIndex = 623 + Me.Label6.Text = "Half Time" + ' + 'txthalftimeball + ' + Me.txthalftimeball.Location = New System.Drawing.Point(151, 17) + Me.txthalftimeball.Name = "txthalftimeball" + Me.txthalftimeball.Size = New System.Drawing.Size(24, 20) + Me.txthalftimeball.TabIndex = 621 + Me.txthalftimeball.Text = "30" + ' + 'cmdscorewithextraball + ' + Me.cmdscorewithextraball.Location = New System.Drawing.Point(324, 18) + Me.cmdscorewithextraball.Name = "cmdscorewithextraball" + Me.cmdscorewithextraball.Size = New System.Drawing.Size(45, 63) + Me.cmdscorewithextraball.TabIndex = 620 + Me.cmdscorewithextraball.Text = "Score + Extra Clock" + Me.cmdscorewithextraball.UseVisualStyleBackColor = True + ' + 'pict2logoball + ' + Me.pict2logoball.BackColor = System.Drawing.SystemColors.GradientActiveCaption + Me.pict2logoball.ImageLocation = "C:/casparcg/mydata/games/State_Short_Name/del.png" + Me.pict2logoball.Location = New System.Drawing.Point(3, 64) + Me.pict2logoball.Name = "pict2logoball" + Me.pict2logoball.Size = New System.Drawing.Size(38, 22) + Me.pict2logoball.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.pict2logoball.TabIndex = 619 + Me.pict2logoball.TabStop = False + ' + 'pict1logoball + ' + Me.pict1logoball.BackColor = System.Drawing.SystemColors.Control + Me.pict1logoball.ImageLocation = "C:/casparcg/mydata/games/State_Short_Name/mah.png" + Me.pict1logoball.Location = New System.Drawing.Point(3, 42) + Me.pict1logoball.Name = "pict1logoball" + Me.pict1logoball.Size = New System.Drawing.Size(38, 20) + Me.pict1logoball.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.pict1logoball.TabIndex = 618 + Me.pict1logoball.TabStop = False + ' + 'txtt2gball + ' + Me.txtt2gball.Location = New System.Drawing.Point(48, 64) + Me.txtt2gball.Name = "txtt2gball" + Me.txtt2gball.Size = New System.Drawing.Size(38, 20) + Me.txtt2gball.TabIndex = 617 + Me.txtt2gball.Text = "12" + ' + 'txtt1gball + ' + Me.txtt1gball.Location = New System.Drawing.Point(48, 43) + Me.txtt1gball.Name = "txtt1gball" + Me.txtt1gball.Size = New System.Drawing.Size(38, 20) + Me.txtt1gball.TabIndex = 615 + Me.txtt1gball.Text = "88" + ' + 'cmdresetclockball + ' + Me.cmdresetclockball.Location = New System.Drawing.Point(103, 14) + Me.cmdresetclockball.Name = "cmdresetclockball" + Me.cmdresetclockball.Size = New System.Drawing.Size(47, 23) + Me.cmdresetclockball.TabIndex = 611 + Me.cmdresetclockball.Text = "Reset" + Me.cmdresetclockball.UseVisualStyleBackColor = True + ' + 'txtsecball + ' + Me.txtsecball.Location = New System.Drawing.Point(48, 87) + Me.txtsecball.Name = "txtsecball" + Me.txtsecball.Size = New System.Drawing.Size(38, 20) + Me.txtsecball.TabIndex = 610 + Me.txtsecball.Text = "00" + ' + 'txtminball + ' + Me.txtminball.Location = New System.Drawing.Point(3, 87) + Me.txtminball.Name = "txtminball" + Me.txtminball.Size = New System.Drawing.Size(39, 20) + Me.txtminball.TabIndex = 609 + Me.txtminball.Text = "00" + ' + 'cmdstopscoreball + ' + Me.cmdstopscoreball.BackColor = System.Drawing.Color.Red + Me.cmdstopscoreball.Location = New System.Drawing.Point(300, 113) + Me.cmdstopscoreball.Name = "cmdstopscoreball" + Me.cmdstopscoreball.Size = New System.Drawing.Size(69, 56) + Me.cmdstopscoreball.TabIndex = 608 + Me.cmdstopscoreball.Text = "Don't Show" + Me.cmdstopscoreball.UseVisualStyleBackColor = False + ' + 'cmdstartclockball + ' + Me.cmdstartclockball.Location = New System.Drawing.Point(3, 14) + Me.cmdstartclockball.Name = "cmdstartclockball" + Me.cmdstartclockball.Size = New System.Drawing.Size(39, 23) + Me.cmdstartclockball.TabIndex = 607 + Me.cmdstartclockball.Text = "Start" + Me.cmdstartclockball.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.cmdstartclockball.UseVisualStyleBackColor = True + ' + 'cmdpauseclockball + ' + Me.cmdpauseclockball.Location = New System.Drawing.Point(48, 14) + Me.cmdpauseclockball.Name = "cmdpauseclockball" + Me.cmdpauseclockball.Size = New System.Drawing.Size(49, 23) + Me.cmdpauseclockball.TabIndex = 606 + Me.cmdpauseclockball.Text = "Pause" + Me.cmdpauseclockball.UseVisualStyleBackColor = True + ' + 'cmdscoreball + ' + Me.cmdscoreball.Location = New System.Drawing.Point(177, 42) + Me.cmdscoreball.Name = "cmdscoreball" + Me.cmdscoreball.Size = New System.Drawing.Size(45, 40) + Me.cmdscoreball.TabIndex = 605 + Me.cmdscoreball.Text = "Only Score" + Me.cmdscoreball.UseVisualStyleBackColor = True + ' + 'CG + ' + Me.CG.Controls.Add(Me.gbvictorytt) + Me.CG.Controls.Add(Me.GroupBox5) + Me.CG.Location = New System.Drawing.Point(4, 22) + Me.CG.Name = "CG" + Me.CG.Padding = New System.Windows.Forms.Padding(3) + Me.CG.Size = New System.Drawing.Size(1331, 685) + Me.CG.TabIndex = 2 + Me.CG.Text = "CG" + Me.CG.UseVisualStyleBackColor = True + ' + 'gbvictorytt + ' + Me.gbvictorytt.BackColor = System.Drawing.Color.DarkSeaGreen + Me.gbvictorytt.Controls.Add(Me.lblfilenamecg) + Me.gbvictorytt.Controls.Add(Me.GroupBox11) + Me.gbvictorytt.Controls.Add(Me.cmdgroupcg) + Me.gbvictorytt.Controls.Add(Me.cmd2refereescg) + Me.gbvictorytt.Controls.Add(Me.GroupBox25) + Me.gbvictorytt.Controls.Add(Me.cmdroadtofinal) + Me.gbvictorytt.Controls.Add(Me.GroupBox20) + Me.gbvictorytt.Controls.Add(Me.GroupBox19) + Me.gbvictorytt.Controls.Add(Me.GroupBox17) + Me.gbvictorytt.Controls.Add(Me.GroupBox9) + Me.gbvictorytt.Controls.Add(Me.cmdRoadToSemiFinal) + Me.gbvictorytt.Controls.Add(Me.GroupBox2) + Me.gbvictorytt.Controls.Add(Me.cmdrunnerupridcg) + Me.gbvictorytt.Controls.Add(Me.cmdwinneridcg) + Me.gbvictorytt.Controls.Add(Me.cmdbronze2cg) + Me.gbvictorytt.Controls.Add(Me.cmdmedalallbronze2cg) + Me.gbvictorytt.Controls.Add(Me.cmdbronzecg) + Me.gbvictorytt.Controls.Add(Me.cmdvictoryidcg) + Me.gbvictorytt.Controls.Add(Me.cmdmedalallcg) + Me.gbvictorytt.Controls.Add(Me.cmdgoldcg) + Me.gbvictorytt.Controls.Add(Me.cmdsilvercg) + Me.gbvictorytt.Controls.Add(Me.cmdplayeridcg) + Me.gbvictorytt.Controls.Add(Me.dgvwinner) + Me.gbvictorytt.Location = New System.Drawing.Point(6, 283) + Me.gbvictorytt.Name = "gbvictorytt" + Me.gbvictorytt.Size = New System.Drawing.Size(655, 309) + Me.gbvictorytt.TabIndex = 1251 + Me.gbvictorytt.TabStop = False + Me.gbvictorytt.Text = "Victory ID" + ' + 'lblfilenamecg + ' + Me.lblfilenamecg.AutoSize = True + Me.lblfilenamecg.Location = New System.Drawing.Point(9, 22) + Me.lblfilenamecg.Name = "lblfilenamecg" + Me.lblfilenamecg.Size = New System.Drawing.Size(68, 13) + Me.lblfilenamecg.TabIndex = 1256 + Me.lblfilenamecg.Text = "lblfilenamecg" + ' + 'GroupBox11 + ' + Me.GroupBox11.Controls.Add(Me.cmdupcg) + Me.GroupBox11.Controls.Add(Me.cmddeleteg) + Me.GroupBox11.Controls.Add(Me.ToolStrip3) + Me.GroupBox11.Controls.Add(Me.cmddowncg) + Me.GroupBox11.Controls.Add(Me.cmdinsercg) + Me.GroupBox11.Location = New System.Drawing.Point(28, 38) + Me.GroupBox11.Name = "GroupBox11" + Me.GroupBox11.Size = New System.Drawing.Size(189, 33) + Me.GroupBox11.TabIndex = 1252 + Me.GroupBox11.TabStop = False + ' + 'cmdupcg + ' + Me.cmdupcg.Image = CType(resources.GetObject("cmdupcg.Image"), System.Drawing.Image) + Me.cmdupcg.Location = New System.Drawing.Point(88, 8) + Me.cmdupcg.Name = "cmdupcg" + Me.cmdupcg.Size = New System.Drawing.Size(22, 18) + Me.cmdupcg.TabIndex = 1201 + Me.cmdupcg.UseVisualStyleBackColor = True + ' + 'cmddeleteg + ' + Me.cmddeleteg.BackgroundImage = CType(resources.GetObject("cmddeleteg.BackgroundImage"), System.Drawing.Image) + Me.cmddeleteg.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmddeleteg.Location = New System.Drawing.Point(160, 8) + Me.cmddeleteg.Name = "cmddeleteg" + Me.cmddeleteg.Size = New System.Drawing.Size(22, 18) + Me.cmddeleteg.TabIndex = 1200 + Me.cmddeleteg.UseVisualStyleBackColor = True + ' + 'ToolStrip3 + ' + Me.ToolStrip3.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsnewcg, Me.tsopencg, Me.tssavecg, Me.ToolStripSeparator7, Me.ToolStripSeparator10}) + Me.ToolStrip3.Location = New System.Drawing.Point(5, 6) + Me.ToolStrip3.MaximumSize = New System.Drawing.Size(200, 200) + Me.ToolStrip3.Name = "ToolStrip3" + Me.ToolStrip3.Size = New System.Drawing.Size(93, 25) + Me.ToolStrip3.TabIndex = 1199 + Me.ToolStrip3.Text = "ToolStrip3" + ' + 'tsnewcg + ' + Me.tsnewcg.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsnewcg.Image = CType(resources.GetObject("tsnewcg.Image"), System.Drawing.Image) + Me.tsnewcg.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsnewcg.Name = "tsnewcg" + Me.tsnewcg.Size = New System.Drawing.Size(23, 22) + Me.tsnewcg.Text = "&New" + ' + 'tsopencg + ' + Me.tsopencg.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsopencg.Image = CType(resources.GetObject("tsopencg.Image"), System.Drawing.Image) + Me.tsopencg.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsopencg.Name = "tsopencg" + Me.tsopencg.Size = New System.Drawing.Size(23, 22) + Me.tsopencg.Text = "&Open" + ' + 'tssavecg + ' + Me.tssavecg.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tssavecg.Image = CType(resources.GetObject("tssavecg.Image"), System.Drawing.Image) + Me.tssavecg.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tssavecg.Name = "tssavecg" + Me.tssavecg.Size = New System.Drawing.Size(23, 22) + Me.tssavecg.Text = "&Save" + ' + 'ToolStripSeparator7 + ' + Me.ToolStripSeparator7.Name = "ToolStripSeparator7" + Me.ToolStripSeparator7.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripSeparator10 + ' + Me.ToolStripSeparator10.Name = "ToolStripSeparator10" + Me.ToolStripSeparator10.Size = New System.Drawing.Size(6, 25) + ' + 'cmddowncg + ' + Me.cmddowncg.Image = CType(resources.GetObject("cmddowncg.Image"), System.Drawing.Image) + Me.cmddowncg.Location = New System.Drawing.Point(110, 8) + Me.cmddowncg.Name = "cmddowncg" + Me.cmddowncg.Size = New System.Drawing.Size(22, 18) + Me.cmddowncg.TabIndex = 1198 + Me.cmddowncg.UseVisualStyleBackColor = True + ' + 'cmdinsercg + ' + Me.cmdinsercg.Image = CType(resources.GetObject("cmdinsercg.Image"), System.Drawing.Image) + Me.cmdinsercg.Location = New System.Drawing.Point(133, 8) + Me.cmdinsercg.Name = "cmdinsercg" + Me.cmdinsercg.Size = New System.Drawing.Size(22, 18) + Me.cmdinsercg.TabIndex = 1197 + Me.cmdinsercg.UseVisualStyleBackColor = True + ' + 'cmdgroupcg + ' + Me.cmdgroupcg.Location = New System.Drawing.Point(588, 202) + Me.cmdgroupcg.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdgroupcg.Name = "cmdgroupcg" + Me.cmdgroupcg.Size = New System.Drawing.Size(61, 34) + Me.cmdgroupcg.TabIndex = 1255 + Me.cmdgroupcg.Text = "Group" + Me.cmdgroupcg.UseVisualStyleBackColor = True + ' + 'cmd2refereescg + ' + Me.cmd2refereescg.Location = New System.Drawing.Point(579, 141) + Me.cmd2refereescg.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmd2refereescg.Name = "cmd2refereescg" + Me.cmd2refereescg.Size = New System.Drawing.Size(69, 47) + Me.cmd2refereescg.TabIndex = 1254 + Me.cmd2refereescg.Text = "2 Officials with country" + Me.cmd2refereescg.UseVisualStyleBackColor = True + ' + 'GroupBox25 + ' + Me.GroupBox25.BackColor = System.Drawing.Color.LemonChiffon + Me.GroupBox25.Controls.Add(Me.cmbsubheadercg) + Me.GroupBox25.Controls.Add(Me.cmbheadercg) + Me.GroupBox25.Controls.Add(Me.cmdeventidcg) + Me.GroupBox25.Controls.Add(Me.Label42) + Me.GroupBox25.Controls.Add(Me.Label43) + Me.GroupBox25.Location = New System.Drawing.Point(314, 73) + Me.GroupBox25.Name = "GroupBox25" + Me.GroupBox25.Size = New System.Drawing.Size(335, 62) + Me.GroupBox25.TabIndex = 1253 + Me.GroupBox25.TabStop = False + ' + 'cmbsubheadercg + ' + Me.cmbsubheadercg.FormattingEnabled = True + Me.cmbsubheadercg.Location = New System.Drawing.Point(69, 35) + Me.cmbsubheadercg.Name = "cmbsubheadercg" + Me.cmbsubheadercg.Size = New System.Drawing.Size(185, 21) + Me.cmbsubheadercg.TabIndex = 1201 + Me.cmbsubheadercg.Text = "Sub Header" + ' + 'cmbheadercg + ' + Me.cmbheadercg.FormattingEnabled = True + Me.cmbheadercg.Location = New System.Drawing.Point(69, 11) + Me.cmbheadercg.Name = "cmbheadercg" + Me.cmbheadercg.Size = New System.Drawing.Size(185, 21) + Me.cmbheadercg.TabIndex = 1200 + Me.cmbheadercg.Text = "Header" + ' + 'cmdeventidcg + ' + Me.cmdeventidcg.Location = New System.Drawing.Point(262, 11) + Me.cmdeventidcg.Name = "cmdeventidcg" + Me.cmdeventidcg.Size = New System.Drawing.Size(62, 45) + Me.cmdeventidcg.TabIndex = 1199 + Me.cmdeventidcg.Text = "Event Id" + Me.cmdeventidcg.UseVisualStyleBackColor = True + ' + 'Label42 + ' + Me.Label42.AutoSize = True + Me.Label42.Location = New System.Drawing.Point(3, 39) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(64, 13) + Me.Label42.TabIndex = 1174 + Me.Label42.Text = "Sub Header" + ' + 'Label43 + ' + Me.Label43.AutoSize = True + Me.Label43.Location = New System.Drawing.Point(-1, 14) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(45, 13) + Me.Label43.TabIndex = 1173 + Me.Label43.Text = " Header" + ' + 'cmdroadtofinal + ' + Me.cmdroadtofinal.Location = New System.Drawing.Point(452, 139) + Me.cmdroadtofinal.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdroadtofinal.Name = "cmdroadtofinal" + Me.cmdroadtofinal.Size = New System.Drawing.Size(85, 30) + Me.cmdroadtofinal.TabIndex = 1252 + Me.cmdroadtofinal.Text = "RoadToiFinal" + Me.cmdroadtofinal.UseVisualStyleBackColor = True + ' + 'GroupBox20 + ' + Me.GroupBox20.BackColor = System.Drawing.Color.Olive + Me.GroupBox20.Controls.Add(Me.rdo7) + Me.GroupBox20.Controls.Add(Me.rdo6) + Me.GroupBox20.Location = New System.Drawing.Point(280, 243) + Me.GroupBox20.Name = "GroupBox20" + Me.GroupBox20.Size = New System.Drawing.Size(26, 48) + Me.GroupBox20.TabIndex = 1162 + Me.GroupBox20.TabStop = False + ' + 'rdo7 + ' + Me.rdo7.AutoSize = True + Me.rdo7.Checked = True + Me.rdo7.Location = New System.Drawing.Point(6, 29) + Me.rdo7.Name = "rdo7" + Me.rdo7.Size = New System.Drawing.Size(14, 13) + Me.rdo7.TabIndex = 1158 + Me.rdo7.TabStop = True + Me.rdo7.UseVisualStyleBackColor = True + ' + 'rdo6 + ' + Me.rdo6.AutoSize = True + Me.rdo6.Location = New System.Drawing.Point(6, 10) + Me.rdo6.Name = "rdo6" + Me.rdo6.Size = New System.Drawing.Size(14, 13) + Me.rdo6.TabIndex = 1157 + Me.rdo6.UseVisualStyleBackColor = True + ' + 'GroupBox19 + ' + Me.GroupBox19.Controls.Add(Me.rdo5) + Me.GroupBox19.Controls.Add(Me.rdo4) + Me.GroupBox19.Location = New System.Drawing.Point(279, 191) + Me.GroupBox19.Name = "GroupBox19" + Me.GroupBox19.Size = New System.Drawing.Size(26, 48) + Me.GroupBox19.TabIndex = 1161 + Me.GroupBox19.TabStop = False + ' + 'rdo5 + ' + Me.rdo5.AutoSize = True + Me.rdo5.Checked = True + Me.rdo5.Location = New System.Drawing.Point(6, 29) + Me.rdo5.Name = "rdo5" + Me.rdo5.Size = New System.Drawing.Size(14, 13) + Me.rdo5.TabIndex = 1158 + Me.rdo5.TabStop = True + Me.rdo5.UseVisualStyleBackColor = True + ' + 'rdo4 + ' + Me.rdo4.AutoSize = True + Me.rdo4.Location = New System.Drawing.Point(6, 10) + Me.rdo4.Name = "rdo4" + Me.rdo4.Size = New System.Drawing.Size(14, 13) + Me.rdo4.TabIndex = 1157 + Me.rdo4.UseVisualStyleBackColor = True + ' + 'GroupBox17 + ' + Me.GroupBox17.BackColor = System.Drawing.Color.Olive + Me.GroupBox17.Controls.Add(Me.rdo3) + Me.GroupBox17.Controls.Add(Me.rdo2) + Me.GroupBox17.Location = New System.Drawing.Point(279, 142) + Me.GroupBox17.Name = "GroupBox17" + Me.GroupBox17.Size = New System.Drawing.Size(26, 48) + Me.GroupBox17.TabIndex = 1160 + Me.GroupBox17.TabStop = False + ' + 'rdo3 + ' + Me.rdo3.AutoSize = True + Me.rdo3.Checked = True + Me.rdo3.Location = New System.Drawing.Point(6, 29) + Me.rdo3.Name = "rdo3" + Me.rdo3.Size = New System.Drawing.Size(14, 13) + Me.rdo3.TabIndex = 1158 + Me.rdo3.TabStop = True + Me.rdo3.UseVisualStyleBackColor = True + ' + 'rdo2 + ' + Me.rdo2.AutoSize = True + Me.rdo2.Location = New System.Drawing.Point(6, 10) + Me.rdo2.Name = "rdo2" + Me.rdo2.Size = New System.Drawing.Size(14, 13) + Me.rdo2.TabIndex = 1157 + Me.rdo2.UseVisualStyleBackColor = True + ' + 'GroupBox9 + ' + Me.GroupBox9.Controls.Add(Me.rdo1) + Me.GroupBox9.Controls.Add(Me.rdo0) + Me.GroupBox9.Location = New System.Drawing.Point(279, 92) + Me.GroupBox9.Name = "GroupBox9" + Me.GroupBox9.Size = New System.Drawing.Size(26, 48) + Me.GroupBox9.TabIndex = 1159 + Me.GroupBox9.TabStop = False + ' + 'rdo1 + ' + Me.rdo1.AutoSize = True + Me.rdo1.Checked = True + Me.rdo1.Location = New System.Drawing.Point(6, 29) + Me.rdo1.Name = "rdo1" + Me.rdo1.Size = New System.Drawing.Size(14, 13) + Me.rdo1.TabIndex = 1158 + Me.rdo1.TabStop = True + Me.rdo1.UseVisualStyleBackColor = True + ' + 'rdo0 + ' + Me.rdo0.AutoSize = True + Me.rdo0.Location = New System.Drawing.Point(6, 10) + Me.rdo0.Name = "rdo0" + Me.rdo0.Size = New System.Drawing.Size(14, 13) + Me.rdo0.TabIndex = 1157 + Me.rdo0.UseVisualStyleBackColor = True + ' + 'cmdRoadToSemiFinal + ' + Me.cmdRoadToSemiFinal.Location = New System.Drawing.Point(347, 139) + Me.cmdRoadToSemiFinal.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdRoadToSemiFinal.Name = "cmdRoadToSemiFinal" + Me.cmdRoadToSemiFinal.Size = New System.Drawing.Size(104, 30) + Me.cmdRoadToSemiFinal.TabIndex = 1156 + Me.cmdRoadToSemiFinal.Text = "RoadToSemiFinal" + Me.cmdRoadToSemiFinal.UseVisualStyleBackColor = True + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.rdodoublescg) + Me.GroupBox2.Controls.Add(Me.rdosinglecg) + Me.GroupBox2.Location = New System.Drawing.Point(503, 171) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(70, 53) + Me.GroupBox2.TabIndex = 671 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = " " + ' + 'rdodoublescg + ' + Me.rdodoublescg.AutoSize = True + Me.rdodoublescg.Location = New System.Drawing.Point(5, 31) + Me.rdodoublescg.Name = "rdodoublescg" + Me.rdodoublescg.Size = New System.Drawing.Size(64, 17) + Me.rdodoublescg.TabIndex = 447 + Me.rdodoublescg.Text = "Doubles" + Me.rdodoublescg.UseVisualStyleBackColor = True + ' + 'rdosinglecg + ' + Me.rdosinglecg.AutoSize = True + Me.rdosinglecg.Checked = True + Me.rdosinglecg.Location = New System.Drawing.Point(5, 15) + Me.rdosinglecg.Name = "rdosinglecg" + Me.rdosinglecg.Size = New System.Drawing.Size(54, 17) + Me.rdosinglecg.TabIndex = 446 + Me.rdosinglecg.TabStop = True + Me.rdosinglecg.Text = "Single" + Me.rdosinglecg.UseVisualStyleBackColor = True + ' + 'cmdrunnerupridcg + ' + Me.cmdrunnerupridcg.Location = New System.Drawing.Point(504, 270) + Me.cmdrunnerupridcg.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdrunnerupridcg.Name = "cmdrunnerupridcg" + Me.cmdrunnerupridcg.Size = New System.Drawing.Size(69, 30) + Me.cmdrunnerupridcg.TabIndex = 1155 + Me.cmdrunnerupridcg.Text = "Runner Up" + Me.cmdrunnerupridcg.UseVisualStyleBackColor = True + ' + 'cmdwinneridcg + ' + Me.cmdwinneridcg.Location = New System.Drawing.Point(504, 236) + Me.cmdwinneridcg.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdwinneridcg.Name = "cmdwinneridcg" + Me.cmdwinneridcg.Size = New System.Drawing.Size(69, 30) + Me.cmdwinneridcg.TabIndex = 1154 + Me.cmdwinneridcg.Text = "Winner" + Me.cmdwinneridcg.UseVisualStyleBackColor = True + ' + 'cmdbronze2cg + ' + Me.cmdbronze2cg.Location = New System.Drawing.Point(345, 268) + Me.cmdbronze2cg.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdbronze2cg.Name = "cmdbronze2cg" + Me.cmdbronze2cg.Size = New System.Drawing.Size(55, 31) + Me.cmdbronze2cg.TabIndex = 1153 + Me.cmdbronze2cg.Text = "Bronze2" + Me.cmdbronze2cg.UseVisualStyleBackColor = True + ' + 'cmdmedalallbronze2cg + ' + Me.cmdmedalallbronze2cg.Location = New System.Drawing.Point(454, 206) + Me.cmdmedalallbronze2cg.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdmedalallbronze2cg.Name = "cmdmedalallbronze2cg" + Me.cmdmedalallbronze2cg.Size = New System.Drawing.Size(47, 93) + Me.cmdmedalallbronze2cg.TabIndex = 1152 + Me.cmdmedalallbronze2cg.Text = "All Three Bronz2" + Me.cmdmedalallbronze2cg.UseVisualStyleBackColor = True + ' + 'cmdbronzecg + ' + Me.cmdbronzecg.Location = New System.Drawing.Point(345, 234) + Me.cmdbronzecg.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdbronzecg.Name = "cmdbronzecg" + Me.cmdbronzecg.Size = New System.Drawing.Size(55, 31) + Me.cmdbronzecg.TabIndex = 1151 + Me.cmdbronzecg.Text = "Bronze" + Me.cmdbronzecg.UseVisualStyleBackColor = True + ' + 'cmdvictoryidcg + ' + Me.cmdvictoryidcg.Location = New System.Drawing.Point(406, 170) + Me.cmdvictoryidcg.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdvictoryidcg.Name = "cmdvictoryidcg" + Me.cmdvictoryidcg.Size = New System.Drawing.Size(95, 30) + Me.cmdvictoryidcg.TabIndex = 1150 + Me.cmdvictoryidcg.Text = "Victory ID" + Me.cmdvictoryidcg.UseVisualStyleBackColor = True + ' + 'cmdmedalallcg + ' + Me.cmdmedalallcg.Location = New System.Drawing.Point(402, 206) + Me.cmdmedalallcg.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdmedalallcg.Name = "cmdmedalallcg" + Me.cmdmedalallcg.Size = New System.Drawing.Size(47, 93) + Me.cmdmedalallcg.TabIndex = 1149 + Me.cmdmedalallcg.Text = "All Three" + Me.cmdmedalallcg.UseVisualStyleBackColor = True + ' + 'cmdgoldcg + ' + Me.cmdgoldcg.Location = New System.Drawing.Point(346, 170) + Me.cmdgoldcg.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdgoldcg.Name = "cmdgoldcg" + Me.cmdgoldcg.Size = New System.Drawing.Size(55, 30) + Me.cmdgoldcg.TabIndex = 1148 + Me.cmdgoldcg.Text = "Gold" + Me.cmdgoldcg.UseVisualStyleBackColor = True + ' + 'cmdsilvercg + ' + Me.cmdsilvercg.Location = New System.Drawing.Point(345, 201) + Me.cmdsilvercg.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdsilvercg.Name = "cmdsilvercg" + Me.cmdsilvercg.Size = New System.Drawing.Size(55, 30) + Me.cmdsilvercg.TabIndex = 1147 + Me.cmdsilvercg.Text = "Silver" + Me.cmdsilvercg.UseVisualStyleBackColor = True + ' + 'cmdplayeridcg + ' + Me.cmdplayeridcg.Location = New System.Drawing.Point(314, 140) + Me.cmdplayeridcg.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayeridcg.Name = "cmdplayeridcg" + Me.cmdplayeridcg.Size = New System.Drawing.Size(30, 159) + Me.cmdplayeridcg.TabIndex = 1145 + Me.cmdplayeridcg.Text = "Player ID" + Me.cmdplayeridcg.UseVisualStyleBackColor = True + ' + 'dgvwinner + ' + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvwinner.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvwinner.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvwinner.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewImageColumn1, Me.DataGridViewTextBoxColumn25, Me.Column29}) + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvwinner.DefaultCellStyle = DataGridViewCellStyle5 + Me.dgvwinner.EditMode = System.Windows.Forms.DataGridViewEditMode.EditOnEnter + Me.dgvwinner.Location = New System.Drawing.Point(12, 77) + Me.dgvwinner.Name = "dgvwinner" + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvwinner.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + Me.dgvwinner.RowTemplate.Height = 24 + Me.dgvwinner.Size = New System.Drawing.Size(297, 228) + Me.dgvwinner.TabIndex = 1144 + ' + 'DataGridViewImageColumn1 + ' + Me.DataGridViewImageColumn1.HeaderText = "flag" + Me.DataGridViewImageColumn1.ImageLayout = System.Windows.Forms.DataGridViewImageCellLayout.Stretch + Me.DataGridViewImageColumn1.Name = "DataGridViewImageColumn1" + Me.DataGridViewImageColumn1.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewImageColumn1.Width = 75 + ' + 'DataGridViewTextBoxColumn25 + ' + Me.DataGridViewTextBoxColumn25.HeaderText = "Name" + Me.DataGridViewTextBoxColumn25.Name = "DataGridViewTextBoxColumn25" + Me.DataGridViewTextBoxColumn25.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn25.Width = 150 + ' + 'Column29 + ' + Me.Column29.HeaderText = "image" + Me.Column29.Name = "Column29" + Me.Column29.Visible = False + Me.Column29.Width = 5 + ' + 'GroupBox5 + ' + Me.GroupBox5.BackColor = System.Drawing.Color.LightGreen + Me.GroupBox5.Controls.Add(Me.cmdonelinercg) + Me.GroupBox5.Controls.Add(Me.txtonelinercg) + Me.GroupBox5.Controls.Add(Me.cmdleftotopcg) + Me.GroupBox5.Controls.Add(Me.cmblefttopcg) + Me.GroupBox5.Controls.Add(Me.txtcommentatorname2) + Me.GroupBox5.Controls.Add(Me.cmdeventshedule) + Me.GroupBox5.Controls.Add(Me.w3) + Me.GroupBox5.Controls.Add(Me.cmdwelcome) + Me.GroupBox5.Controls.Add(Me.txtofficialname) + Me.GroupBox5.Controls.Add(Me.txtvenueid1) + Me.GroupBox5.Controls.Add(Me.txtofficialdesignation) + Me.GroupBox5.Controls.Add(Me.cmDvenueid1) + Me.GroupBox5.Controls.Add(Me.w2) + Me.GroupBox5.Controls.Add(Me.cmdw1) + Me.GroupBox5.Controls.Add(Me.cmdMedalPresentorId) + Me.GroupBox5.Controls.Add(Me.txtcommentatorname1) + Me.GroupBox5.Controls.Add(Me.cmdp1) + Me.GroupBox5.Controls.Add(Me.txtcommentatordesignation) + Me.GroupBox5.Controls.Add(Me.w1) + Me.GroupBox5.Controls.Add(Me.cmdcomentator) + Me.GroupBox5.Controls.Add(Me.p3) + Me.GroupBox5.Controls.Add(Me.txtrefreedegination) + Me.GroupBox5.Controls.Add(Me.p2) + Me.GroupBox5.Controls.Add(Me.txtrefreename) + Me.GroupBox5.Controls.Add(Me.p1) + Me.GroupBox5.Controls.Add(Me.cmdrefree) + Me.GroupBox5.Location = New System.Drawing.Point(7, 9) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(620, 268) + Me.GroupBox5.TabIndex = 1207 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "General Captions" + ' + 'cmdonelinercg + ' + Me.cmdonelinercg.Location = New System.Drawing.Point(552, 43) + Me.cmdonelinercg.Name = "cmdonelinercg" + Me.cmdonelinercg.Size = New System.Drawing.Size(62, 22) + Me.cmdonelinercg.TabIndex = 1211 + Me.cmdonelinercg.Text = "Show" + Me.cmdonelinercg.UseVisualStyleBackColor = True + ' + 'txtonelinercg + ' + Me.txtonelinercg.Location = New System.Drawing.Point(319, 43) + Me.txtonelinercg.Name = "txtonelinercg" + Me.txtonelinercg.Size = New System.Drawing.Size(226, 20) + Me.txtonelinercg.TabIndex = 1210 + Me.txtonelinercg.Text = "Meet After lunch break at 1430" + ' + 'cmdleftotopcg + ' + Me.cmdleftotopcg.Location = New System.Drawing.Point(552, 11) + Me.cmdleftotopcg.Name = "cmdleftotopcg" + Me.cmdleftotopcg.Size = New System.Drawing.Size(62, 22) + Me.cmdleftotopcg.TabIndex = 1209 + Me.cmdleftotopcg.Text = "Show" + Me.cmdleftotopcg.UseVisualStyleBackColor = True + ' + 'cmblefttopcg + ' + Me.cmblefttopcg.FormattingEnabled = True + Me.cmblefttopcg.Items.AddRange(New Object() {"Time Out", "Highlights", "Penalty", "Expedite", "Deuce", "Advantage", "Double Hit", "Game Point", "Match Point", "Winner", "Advantage", "", "Advantage Server ", "Ad-In", "Advantage Receiver", "Ad-Out", "Tie-Break", "New ball", "Double Faults", "Break Point", "2nd Break Point", "Set Point", "3Rd Gold Medal point", "1 Challenge Remaining"}) + Me.cmblefttopcg.Location = New System.Drawing.Point(389, 11) + Me.cmblefttopcg.Name = "cmblefttopcg" + Me.cmblefttopcg.Size = New System.Drawing.Size(147, 21) + Me.cmblefttopcg.TabIndex = 1208 + Me.cmblefttopcg.Text = "Highlights" + ' + 'txtcommentatorname2 + ' + Me.txtcommentatorname2.Location = New System.Drawing.Point(319, 154) + Me.txtcommentatorname2.Name = "txtcommentatorname2" + Me.txtcommentatorname2.Size = New System.Drawing.Size(227, 20) + Me.txtcommentatorname2.TabIndex = 1207 + Me.txtcommentatorname2.Text = "Smita Mishra" + ' + 'cmdeventshedule + ' + Me.cmdeventshedule.Location = New System.Drawing.Point(10, 13) + Me.cmdeventshedule.Name = "cmdeventshedule" + Me.cmdeventshedule.Size = New System.Drawing.Size(97, 28) + Me.cmdeventshedule.TabIndex = 1206 + Me.cmdeventshedule.Text = "Event Shedule" + Me.cmdeventshedule.UseVisualStyleBackColor = True + ' + 'w3 + ' + Me.w3.Location = New System.Drawing.Point(10, 92) + Me.w3.Name = "w3" + Me.w3.Size = New System.Drawing.Size(227, 20) + Me.w3.TabIndex = 667 + Me.w3.Text = "Trivandrum, Kerala" + Me.w3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmdwelcome + ' + Me.cmdwelcome.Location = New System.Drawing.Point(240, 40) + Me.cmdwelcome.Name = "cmdwelcome" + Me.cmdwelcome.Size = New System.Drawing.Size(62, 70) + Me.cmdwelcome.TabIndex = 648 + Me.cmdwelcome.Text = "Welcome" + Me.cmdwelcome.UseVisualStyleBackColor = True + ' + 'txtofficialname + ' + Me.txtofficialname.Location = New System.Drawing.Point(10, 207) + Me.txtofficialname.Name = "txtofficialname" + Me.txtofficialname.Size = New System.Drawing.Size(227, 20) + Me.txtofficialname.TabIndex = 664 + Me.txtofficialname.Text = "Official Name" + ' + 'txtvenueid1 + ' + Me.txtvenueid1.Location = New System.Drawing.Point(10, 117) + Me.txtvenueid1.Name = "txtvenueid1" + Me.txtvenueid1.Size = New System.Drawing.Size(227, 20) + Me.txtvenueid1.TabIndex = 644 + Me.txtvenueid1.Text = "Jimmy George Indoor Stadium" + ' + 'txtofficialdesignation + ' + Me.txtofficialdesignation.Location = New System.Drawing.Point(10, 232) + Me.txtofficialdesignation.Name = "txtofficialdesignation" + Me.txtofficialdesignation.Size = New System.Drawing.Size(227, 20) + Me.txtofficialdesignation.TabIndex = 663 + Me.txtofficialdesignation.Text = "Medal Presentor" + ' + 'cmDvenueid1 + ' + Me.cmDvenueid1.Location = New System.Drawing.Point(240, 115) + Me.cmDvenueid1.Name = "cmDvenueid1" + Me.cmDvenueid1.Size = New System.Drawing.Size(66, 24) + Me.cmDvenueid1.TabIndex = 646 + Me.cmDvenueid1.Text = "Venue Id" + Me.cmDvenueid1.UseVisualStyleBackColor = True + ' + 'w2 + ' + Me.w2.Location = New System.Drawing.Point(10, 66) + Me.w2.Name = "w2" + Me.w2.Size = New System.Drawing.Size(227, 20) + Me.w2.TabIndex = 666 + Me.w2.Text = "Jimmy George Indoor Stadium" + Me.w2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmdw1 + ' + Me.cmdw1.Location = New System.Drawing.Point(231, 10) + Me.cmdw1.Name = "cmdw1" + Me.cmdw1.Size = New System.Drawing.Size(75, 24) + Me.cmdw1.TabIndex = 647 + Me.cmdw1.Text = "Opening" + Me.cmdw1.UseVisualStyleBackColor = True + ' + 'cmdMedalPresentorId + ' + Me.cmdMedalPresentorId.Location = New System.Drawing.Point(244, 208) + Me.cmdMedalPresentorId.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdMedalPresentorId.Name = "cmdMedalPresentorId" + Me.cmdMedalPresentorId.Size = New System.Drawing.Size(62, 44) + Me.cmdMedalPresentorId.TabIndex = 662 + Me.cmdMedalPresentorId.Text = "Official ID" + Me.cmdMedalPresentorId.UseVisualStyleBackColor = True + ' + 'txtcommentatorname1 + ' + Me.txtcommentatorname1.Location = New System.Drawing.Point(318, 131) + Me.txtcommentatorname1.Name = "txtcommentatorname1" + Me.txtcommentatorname1.Size = New System.Drawing.Size(227, 20) + Me.txtcommentatorname1.TabIndex = 651 + Me.txtcommentatorname1.Text = "Ashish Kumar" + ' + 'cmdp1 + ' + Me.cmdp1.Location = New System.Drawing.Point(552, 180) + Me.cmdp1.Name = "cmdp1" + Me.cmdp1.Size = New System.Drawing.Size(62, 72) + Me.cmdp1.TabIndex = 661 + Me.cmdp1.Text = "Presentation" + Me.cmdp1.UseVisualStyleBackColor = True + ' + 'txtcommentatordesignation + ' + Me.txtcommentatordesignation.Location = New System.Drawing.Point(318, 106) + Me.txtcommentatordesignation.Name = "txtcommentatordesignation" + Me.txtcommentatordesignation.Size = New System.Drawing.Size(227, 20) + Me.txtcommentatordesignation.TabIndex = 652 + Me.txtcommentatordesignation.Text = "Commentators" + ' + 'w1 + ' + Me.w1.Location = New System.Drawing.Point(10, 40) + Me.w1.Name = "w1" + Me.w1.Size = New System.Drawing.Size(227, 20) + Me.w1.TabIndex = 665 + Me.w1.Text = "Welcome To 35th National Games" + Me.w1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmdcomentator + ' + Me.cmdcomentator.Location = New System.Drawing.Point(552, 108) + Me.cmdcomentator.Name = "cmdcomentator" + Me.cmdcomentator.Size = New System.Drawing.Size(62, 66) + Me.cmdcomentator.TabIndex = 653 + Me.cmdcomentator.Text = "Comentator" + Me.cmdcomentator.UseVisualStyleBackColor = True + ' + 'p3 + ' + Me.p3.Location = New System.Drawing.Point(318, 232) + Me.p3.Name = "p3" + Me.p3.Size = New System.Drawing.Size(227, 20) + Me.p3.TabIndex = 659 + Me.p3.Text = "Presentation" + Me.p3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtrefreedegination + ' + Me.txtrefreedegination.Location = New System.Drawing.Point(10, 184) + Me.txtrefreedegination.Name = "txtrefreedegination" + Me.txtrefreedegination.Size = New System.Drawing.Size(227, 20) + Me.txtrefreedegination.TabIndex = 654 + Me.txtrefreedegination.Text = "Refree" + ' + 'p2 + ' + Me.p2.Location = New System.Drawing.Point(318, 206) + Me.p2.Name = "p2" + Me.p2.Size = New System.Drawing.Size(227, 20) + Me.p2.TabIndex = 658 + Me.p2.Text = "DD Sports" + Me.p2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtrefreename + ' + Me.txtrefreename.Location = New System.Drawing.Point(10, 161) + Me.txtrefreename.Name = "txtrefreename" + Me.txtrefreename.Size = New System.Drawing.Size(227, 20) + Me.txtrefreename.TabIndex = 655 + Me.txtrefreename.Text = "Vimlesh Kumar" + ' + 'p1 + ' + Me.p1.Location = New System.Drawing.Point(318, 180) + Me.p1.Name = "p1" + Me.p1.Size = New System.Drawing.Size(227, 20) + Me.p1.TabIndex = 657 + Me.p1.Text = "A" + Me.p1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmdrefree + ' + Me.cmdrefree.Location = New System.Drawing.Point(244, 161) + Me.cmdrefree.Name = "cmdrefree" + Me.cmdrefree.Size = New System.Drawing.Size(62, 44) + Me.cmdrefree.TabIndex = 656 + Me.cmdrefree.Text = "Refree" + Me.cmdrefree.UseVisualStyleBackColor = True + ' + 'Gymnastics + ' + Me.Gymnastics.Controls.Add(Me.Label5) + Me.Gymnastics.Controls.Add(Me.Label4) + Me.Gymnastics.Controls.Add(Me.Label2) + Me.Gymnastics.Controls.Add(Me.cmdcleardatagym) + Me.Gymnastics.Controls.Add(Me.GroupBox12) + Me.Gymnastics.Controls.Add(Me.GroupBox8) + Me.Gymnastics.Controls.Add(Me.GroupBox7) + Me.Gymnastics.Controls.Add(Me.GroupBox6) + Me.Gymnastics.Controls.Add(Me.cmdteamlistwithgamenamegym) + Me.Gymnastics.Controls.Add(Me.cmdofficialsgym) + Me.Gymnastics.Controls.Add(Me.GroupBox1) + Me.Gymnastics.Controls.Add(Me.chkwithnumbergym) + Me.Gymnastics.Controls.Add(Me.Build3gym) + Me.Gymnastics.Controls.Add(Me.Build2gym) + Me.Gymnastics.Controls.Add(Me.Build1gym) + Me.Gymnastics.Controls.Add(Me.cmdplayerscore3gym) + Me.Gymnastics.Controls.Add(Me.cmdplayerscore2gym) + Me.Gymnastics.Controls.Add(Me.Label36) + Me.Gymnastics.Controls.Add(Me.Label35) + Me.Gymnastics.Controls.Add(Me.Label34) + Me.Gymnastics.Controls.Add(Me.Label33) + Me.Gymnastics.Controls.Add(Me.Label32) + Me.Gymnastics.Controls.Add(Me.Label31) + Me.Gymnastics.Controls.Add(Me.Label29) + Me.Gymnastics.Controls.Add(Me.Label28) + Me.Gymnastics.Controls.Add(Me.Label27) + Me.Gymnastics.Controls.Add(Me.Label26) + Me.Gymnastics.Controls.Add(Me.Label25) + Me.Gymnastics.Controls.Add(Me.Label24) + Me.Gymnastics.Controls.Add(Me.Label23) + Me.Gymnastics.Controls.Add(Me.Label22) + Me.Gymnastics.Controls.Add(Me.Label21) + Me.Gymnastics.Controls.Add(Me.Label20) + Me.Gymnastics.Controls.Add(Me.Label19) + Me.Gymnastics.Controls.Add(Me.Label18) + Me.Gymnastics.Controls.Add(Me.Label16) + Me.Gymnastics.Controls.Add(Me.Label15) + Me.Gymnastics.Controls.Add(Me.Label14) + Me.Gymnastics.Controls.Add(Me.Label13) + Me.Gymnastics.Controls.Add(Me.Label12) + Me.Gymnastics.Controls.Add(Me.Label10) + Me.Gymnastics.Controls.Add(Me.Label9) + Me.Gymnastics.Controls.Add(Me.Label8) + Me.Gymnastics.Controls.Add(Me.Label7) + Me.Gymnastics.Controls.Add(Me.cmdteamlist) + Me.Gymnastics.Controls.Add(Me.cmdVaultStandings2) + Me.Gymnastics.Controls.Add(Me.cmdVaultStandings1) + Me.Gymnastics.Controls.Add(Me.cmdplayerscore1gym) + Me.Gymnastics.Controls.Add(Me.cmdrowupzym) + Me.Gymnastics.Controls.Add(Me.lblfilenamegym) + Me.Gymnastics.Controls.Add(Me.Label3) + Me.Gymnastics.Controls.Add(Me.cmdrowdeletegym) + Me.Gymnastics.Controls.Add(Me.tsgym) + Me.Gymnastics.Controls.Add(Me.cmdrowdowngym) + Me.Gymnastics.Controls.Add(Me.cmdrowinsertgym) + Me.Gymnastics.Controls.Add(Me.cmdplayeridgym) + Me.Gymnastics.Controls.Add(Me.cmdgymnasticsstsrtlist2) + Me.Gymnastics.Controls.Add(Me.cmdgymnasticsstsrtlist1) + Me.Gymnastics.Controls.Add(Me.dgvGymnastics) + Me.Gymnastics.Controls.Add(Me.ShapeContainer1) + Me.Gymnastics.Location = New System.Drawing.Point(4, 22) + Me.Gymnastics.Name = "Gymnastics" + Me.Gymnastics.Padding = New System.Windows.Forms.Padding(3) + Me.Gymnastics.Size = New System.Drawing.Size(1331, 685) + Me.Gymnastics.TabIndex = 1 + Me.Gymnastics.Text = "Gymnastics" + Me.Gymnastics.UseVisualStyleBackColor = True + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(1232, 282) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(19, 13) + Me.Label5.TabIndex = 1268 + Me.Label5.Text = "29" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(1138, 285) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(19, 13) + Me.Label4.TabIndex = 1267 + Me.Label4.Text = "28" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(1076, 284) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(19, 13) + Me.Label2.TabIndex = 1266 + Me.Label2.Text = "27" + ' + 'cmdcleardatagym + ' + Me.cmdcleardatagym.Location = New System.Drawing.Point(10, 199) + Me.cmdcleardatagym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdcleardatagym.Name = "cmdcleardatagym" + Me.cmdcleardatagym.Size = New System.Drawing.Size(72, 23) + Me.cmdcleardatagym.TabIndex = 1265 + Me.cmdcleardatagym.Text = "Clear Data" + Me.cmdcleardatagym.UseVisualStyleBackColor = True + ' + 'GroupBox12 + ' + Me.GroupBox12.Controls.Add(Me.rdoaddvaultgym) + Me.GroupBox12.Controls.Add(Me.rdoaveragevaultgym) + Me.GroupBox12.Location = New System.Drawing.Point(817, 194) + Me.GroupBox12.Name = "GroupBox12" + Me.GroupBox12.Size = New System.Drawing.Size(113, 30) + Me.GroupBox12.TabIndex = 1264 + Me.GroupBox12.TabStop = False + Me.GroupBox12.Text = "Vault" + ' + 'rdoaddvaultgym + ' + Me.rdoaddvaultgym.AutoSize = True + Me.rdoaddvaultgym.Location = New System.Drawing.Point(69, 10) + Me.rdoaddvaultgym.Name = "rdoaddvaultgym" + Me.rdoaddvaultgym.Size = New System.Drawing.Size(44, 17) + Me.rdoaddvaultgym.TabIndex = 1263 + Me.rdoaddvaultgym.Text = "Add" + Me.rdoaddvaultgym.UseVisualStyleBackColor = True + ' + 'rdoaveragevaultgym + ' + Me.rdoaveragevaultgym.AutoSize = True + Me.rdoaveragevaultgym.Checked = True + Me.rdoaveragevaultgym.Location = New System.Drawing.Point(4, 10) + Me.rdoaveragevaultgym.Name = "rdoaveragevaultgym" + Me.rdoaveragevaultgym.Size = New System.Drawing.Size(65, 17) + Me.rdoaveragevaultgym.TabIndex = 1262 + Me.rdoaveragevaultgym.TabStop = True + Me.rdoaveragevaultgym.Text = "Average" + Me.rdoaveragevaultgym.UseVisualStyleBackColor = True + ' + 'GroupBox8 + ' + Me.GroupBox8.BackColor = System.Drawing.Color.MistyRose + Me.GroupBox8.Controls.Add(Me.cmbchangecolumnnamegym) + Me.GroupBox8.Controls.Add(Me.txtchangecolumnnamegym) + Me.GroupBox8.Controls.Add(Me.cmdchangecolumnnamegym) + Me.GroupBox8.Location = New System.Drawing.Point(496, 19) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(154, 64) + Me.GroupBox8.TabIndex = 1261 + Me.GroupBox8.TabStop = False + ' + 'cmbchangecolumnnamegym + ' + Me.cmbchangecolumnnamegym.FormattingEnabled = True + Me.cmbchangecolumnnamegym.Items.AddRange(New Object() {"3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26"}) + Me.cmbchangecolumnnamegym.Location = New System.Drawing.Point(4, 4) + Me.cmbchangecolumnnamegym.Name = "cmbchangecolumnnamegym" + Me.cmbchangecolumnnamegym.Size = New System.Drawing.Size(42, 21) + Me.cmbchangecolumnnamegym.TabIndex = 1260 + Me.cmbchangecolumnnamegym.Text = "14" + ' + 'txtchangecolumnnamegym + ' + Me.txtchangecolumnnamegym.Location = New System.Drawing.Point(49, 5) + Me.txtchangecolumnnamegym.Name = "txtchangecolumnnamegym" + Me.txtchangecolumnnamegym.Size = New System.Drawing.Size(95, 20) + Me.txtchangecolumnnamegym.TabIndex = 1259 + Me.txtchangecolumnnamegym.Text = "Total" + ' + 'cmdchangecolumnnamegym + ' + Me.cmdchangecolumnnamegym.Location = New System.Drawing.Point(6, 27) + Me.cmdchangecolumnnamegym.Name = "cmdchangecolumnnamegym" + Me.cmdchangecolumnnamegym.Size = New System.Drawing.Size(122, 32) + Me.cmdchangecolumnnamegym.TabIndex = 1258 + Me.cmdchangecolumnnamegym.Text = "Change Column Name" + Me.cmdchangecolumnnamegym.UseVisualStyleBackColor = True + ' + 'GroupBox7 + ' + Me.GroupBox7.BackColor = System.Drawing.Color.NavajoWhite + Me.GroupBox7.Controls.Add(Me.Label38) + Me.GroupBox7.Controls.Add(Me.cmbplayergamepointgym) + Me.GroupBox7.Controls.Add(Me.cmdplayergamepointgym) + Me.GroupBox7.Location = New System.Drawing.Point(338, 21) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(152, 61) + Me.GroupBox7.TabIndex = 1257 + Me.GroupBox7.TabStop = False + ' + 'Label38 + ' + Me.Label38.AutoSize = True + Me.Label38.Location = New System.Drawing.Point(6, 11) + Me.Label38.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(62, 13) + Me.Label38.TabIndex = 1250 + Me.Label38.Text = "Column No." + ' + 'cmbplayergamepointgym + ' + Me.cmbplayergamepointgym.FormattingEnabled = True + Me.cmbplayergamepointgym.Items.AddRange(New Object() {"3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26"}) + Me.cmbplayergamepointgym.Location = New System.Drawing.Point(6, 29) + Me.cmbplayergamepointgym.Name = "cmbplayergamepointgym" + Me.cmbplayergamepointgym.Size = New System.Drawing.Size(46, 21) + Me.cmbplayergamepointgym.TabIndex = 1249 + Me.cmbplayergamepointgym.Text = "23" + ' + 'cmdplayergamepointgym + ' + Me.cmdplayergamepointgym.Location = New System.Drawing.Point(64, 21) + Me.cmdplayergamepointgym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayergamepointgym.Name = "cmdplayergamepointgym" + Me.cmdplayergamepointgym.Size = New System.Drawing.Size(83, 36) + Me.cmdplayergamepointgym.TabIndex = 1256 + Me.cmdplayergamepointgym.Text = "Player Game Point" + Me.cmdplayergamepointgym.UseVisualStyleBackColor = True + ' + 'GroupBox6 + ' + Me.GroupBox6.BackColor = System.Drawing.Color.LightSalmon + Me.GroupBox6.Controls.Add(Me.cmdplayerscorecard2ndvaultgym) + Me.GroupBox6.Controls.Add(Me.rdoRhythmicgym) + Me.GroupBox6.Controls.Add(Me.rdoArtisticsgym) + Me.GroupBox6.Controls.Add(Me.cmdplayerscorecardgym) + Me.GroupBox6.Location = New System.Drawing.Point(936, 197) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(163, 81) + Me.GroupBox6.TabIndex = 1255 + Me.GroupBox6.TabStop = False + ' + 'cmdplayerscorecard2ndvaultgym + ' + Me.cmdplayerscorecard2ndvaultgym.Location = New System.Drawing.Point(4, 50) + Me.cmdplayerscorecard2ndvaultgym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayerscorecard2ndvaultgym.Name = "cmdplayerscorecard2ndvaultgym" + Me.cmdplayerscorecard2ndvaultgym.Size = New System.Drawing.Size(149, 22) + Me.cmdplayerscorecard2ndvaultgym.TabIndex = 1255 + Me.cmdplayerscorecard2ndvaultgym.Text = "Player ScoreCard 2nd Vault" + Me.cmdplayerscorecard2ndvaultgym.UseVisualStyleBackColor = True + ' + 'rdoRhythmicgym + ' + Me.rdoRhythmicgym.AutoSize = True + Me.rdoRhythmicgym.Location = New System.Drawing.Point(62, 9) + Me.rdoRhythmicgym.Name = "rdoRhythmicgym" + Me.rdoRhythmicgym.Size = New System.Drawing.Size(69, 17) + Me.rdoRhythmicgym.TabIndex = 1254 + Me.rdoRhythmicgym.Text = "Rhythmic" + Me.rdoRhythmicgym.UseVisualStyleBackColor = True + ' + 'rdoArtisticsgym + ' + Me.rdoArtisticsgym.AutoSize = True + Me.rdoArtisticsgym.Checked = True + Me.rdoArtisticsgym.Location = New System.Drawing.Point(8, 8) + Me.rdoArtisticsgym.Name = "rdoArtisticsgym" + Me.rdoArtisticsgym.Size = New System.Drawing.Size(56, 17) + Me.rdoArtisticsgym.TabIndex = 1253 + Me.rdoArtisticsgym.TabStop = True + Me.rdoArtisticsgym.Text = "Artistic" + Me.rdoArtisticsgym.UseVisualStyleBackColor = True + ' + 'cmdplayerscorecardgym + ' + Me.cmdplayerscorecardgym.Location = New System.Drawing.Point(5, 25) + Me.cmdplayerscorecardgym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayerscorecardgym.Name = "cmdplayerscorecardgym" + Me.cmdplayerscorecardgym.Size = New System.Drawing.Size(120, 23) + Me.cmdplayerscorecardgym.TabIndex = 1244 + Me.cmdplayerscorecardgym.Text = "Player ScoreCard" + Me.cmdplayerscorecardgym.UseVisualStyleBackColor = True + ' + 'cmdteamlistwithgamenamegym + ' + Me.cmdteamlistwithgamenamegym.Location = New System.Drawing.Point(1106, 244) + Me.cmdteamlistwithgamenamegym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdteamlistwithgamenamegym.Name = "cmdteamlistwithgamenamegym" + Me.cmdteamlistwithgamenamegym.Size = New System.Drawing.Size(83, 38) + Me.cmdteamlistwithgamenamegym.TabIndex = 1252 + Me.cmdteamlistwithgamenamegym.Text = "Team List with Game name" + Me.cmdteamlistwithgamenamegym.UseVisualStyleBackColor = True + ' + 'cmdofficialsgym + ' + Me.cmdofficialsgym.Location = New System.Drawing.Point(1200, 246) + Me.cmdofficialsgym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdofficialsgym.Name = "cmdofficialsgym" + Me.cmdofficialsgym.Size = New System.Drawing.Size(88, 37) + Me.cmdofficialsgym.TabIndex = 1248 + Me.cmdofficialsgym.Text = "Officials" + Me.cmdofficialsgym.UseVisualStyleBackColor = True + ' + 'GroupBox1 + ' + Me.GroupBox1.BackColor = System.Drawing.Color.SkyBlue + Me.GroupBox1.Controls.Add(Me.cmdtop3standingsgym) + Me.GroupBox1.Controls.Add(Me.Label37) + Me.GroupBox1.Controls.Add(Me.cmbstandingsgym) + Me.GroupBox1.Controls.Add(Me.cmdresult2gym) + Me.GroupBox1.Controls.Add(Me.cmdresult1gym) + Me.GroupBox1.Location = New System.Drawing.Point(95, 56) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(220, 72) + Me.GroupBox1.TabIndex = 1248 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Standings" + ' + 'cmdtop3standingsgym + ' + Me.cmdtop3standingsgym.Location = New System.Drawing.Point(153, 9) + Me.cmdtop3standingsgym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdtop3standingsgym.Name = "cmdtop3standingsgym" + Me.cmdtop3standingsgym.Size = New System.Drawing.Size(56, 27) + Me.cmdtop3standingsgym.TabIndex = 1248 + Me.cmdtop3standingsgym.Text = "Top 3" + Me.cmdtop3standingsgym.UseVisualStyleBackColor = True + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Location = New System.Drawing.Point(7, 29) + Me.Label37.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(62, 13) + Me.Label37.TabIndex = 1247 + Me.Label37.Text = "Column No." + ' + 'cmbstandingsgym + ' + Me.cmbstandingsgym.FormattingEnabled = True + Me.cmbstandingsgym.Items.AddRange(New Object() {"3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26"}) + Me.cmbstandingsgym.Location = New System.Drawing.Point(8, 47) + Me.cmbstandingsgym.Name = "cmbstandingsgym" + Me.cmbstandingsgym.Size = New System.Drawing.Size(63, 21) + Me.cmbstandingsgym.TabIndex = 1246 + Me.cmbstandingsgym.Text = "27" + ' + 'cmdresult2gym + ' + Me.cmdresult2gym.Location = New System.Drawing.Point(73, 43) + Me.cmdresult2gym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdresult2gym.Name = "cmdresult2gym" + Me.cmdresult2gym.Size = New System.Drawing.Size(74, 27) + Me.cmdresult2gym.TabIndex = 1179 + Me.cmdresult2gym.Text = "Standings2" + Me.cmdresult2gym.UseVisualStyleBackColor = True + ' + 'cmdresult1gym + ' + Me.cmdresult1gym.Location = New System.Drawing.Point(73, 10) + Me.cmdresult1gym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdresult1gym.Name = "cmdresult1gym" + Me.cmdresult1gym.Size = New System.Drawing.Size(74, 27) + Me.cmdresult1gym.TabIndex = 1178 + Me.cmdresult1gym.Text = "Standings1" + Me.cmdresult1gym.UseVisualStyleBackColor = True + ' + 'chkwithnumbergym + ' + Me.chkwithnumbergym.AutoSize = True + Me.chkwithnumbergym.Location = New System.Drawing.Point(199, 21) + Me.chkwithnumbergym.Name = "chkwithnumbergym" + Me.chkwithnumbergym.Size = New System.Drawing.Size(88, 17) + Me.chkwithnumbergym.TabIndex = 1245 + Me.chkwithnumbergym.Text = "With Number" + Me.chkwithnumbergym.UseVisualStyleBackColor = True + ' + 'Build3gym + ' + Me.Build3gym.Location = New System.Drawing.Point(653, 254) + Me.Build3gym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.Build3gym.Name = "Build3gym" + Me.Build3gym.Size = New System.Drawing.Size(129, 28) + Me.Build3gym.TabIndex = 1243 + Me.Build3gym.Text = "Women Athlete/Team Build" + Me.Build3gym.UseVisualStyleBackColor = True + ' + 'Build2gym + ' + Me.Build2gym.Location = New System.Drawing.Point(476, 253) + Me.Build2gym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.Build2gym.Name = "Build2gym" + Me.Build2gym.Size = New System.Drawing.Size(122, 28) + Me.Build2gym.TabIndex = 1242 + Me.Build2gym.Text = "Athlete/Team Build" + Me.Build2gym.UseVisualStyleBackColor = True + ' + 'Build1gym + ' + Me.Build1gym.Location = New System.Drawing.Point(227, 253) + Me.Build1gym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.Build1gym.Name = "Build1gym" + Me.Build1gym.Size = New System.Drawing.Size(203, 28) + Me.Build1gym.TabIndex = 1241 + Me.Build1gym.Text = "Men Athlete/Team Build" + Me.Build1gym.UseVisualStyleBackColor = True + ' + 'cmdplayerscore3gym + ' + Me.cmdplayerscore3gym.Location = New System.Drawing.Point(783, 254) + Me.cmdplayerscore3gym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayerscore3gym.Name = "cmdplayerscore3gym" + Me.cmdplayerscore3gym.Size = New System.Drawing.Size(48, 29) + Me.cmdplayerscore3gym.TabIndex = 1240 + Me.cmdplayerscore3gym.Text = "Total" + Me.cmdplayerscore3gym.UseVisualStyleBackColor = True + ' + 'cmdplayerscore2gym + ' + Me.cmdplayerscore2gym.Location = New System.Drawing.Point(598, 254) + Me.cmdplayerscore2gym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayerscore2gym.Name = "cmdplayerscore2gym" + Me.cmdplayerscore2gym.Size = New System.Drawing.Size(54, 28) + Me.cmdplayerscore2gym.TabIndex = 1239 + Me.cmdplayerscore2gym.Text = "Total" + Me.cmdplayerscore2gym.UseVisualStyleBackColor = True + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.Location = New System.Drawing.Point(1043, 284) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(19, 13) + Me.Label36.TabIndex = 1238 + Me.Label36.Text = "26" + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.Location = New System.Drawing.Point(1006, 285) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(19, 13) + Me.Label35.TabIndex = 1237 + Me.Label35.Text = "25" + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.Location = New System.Drawing.Point(970, 284) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(19, 13) + Me.Label34.TabIndex = 1236 + Me.Label34.Text = "24" + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Location = New System.Drawing.Point(937, 285) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(19, 13) + Me.Label33.TabIndex = 1235 + Me.Label33.Text = "23" + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Location = New System.Drawing.Point(905, 283) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(19, 13) + Me.Label32.TabIndex = 1234 + Me.Label32.Text = "22" + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.Location = New System.Drawing.Point(863, 284) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(19, 13) + Me.Label31.TabIndex = 1233 + Me.Label31.Text = "21" + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.Location = New System.Drawing.Point(828, 284) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(19, 13) + Me.Label29.TabIndex = 1232 + Me.Label29.Text = "20" + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Location = New System.Drawing.Point(795, 285) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(19, 13) + Me.Label28.TabIndex = 1231 + Me.Label28.Text = "19" + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Location = New System.Drawing.Point(752, 285) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(19, 13) + Me.Label27.TabIndex = 1230 + Me.Label27.Text = "18" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(715, 285) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(19, 13) + Me.Label26.TabIndex = 1229 + Me.Label26.Text = "17" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(680, 284) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(19, 13) + Me.Label25.TabIndex = 1228 + Me.Label25.Text = "16" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(646, 285) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(19, 13) + Me.Label24.TabIndex = 1227 + Me.Label24.Text = "15" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(607, 285) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(19, 13) + Me.Label23.TabIndex = 1226 + Me.Label23.Text = "14" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(575, 285) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(19, 13) + Me.Label22.TabIndex = 1225 + Me.Label22.Text = "13" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(542, 285) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(19, 13) + Me.Label21.TabIndex = 1224 + Me.Label21.Text = "12" + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(507, 285) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(19, 13) + Me.Label20.TabIndex = 1223 + Me.Label20.Text = "11" + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(472, 285) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(19, 13) + Me.Label19.TabIndex = 1222 + Me.Label19.Text = "10" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(440, 285) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(13, 13) + Me.Label18.TabIndex = 1221 + Me.Label18.Text = "9" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(406, 285) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(13, 13) + Me.Label16.TabIndex = 1220 + Me.Label16.Text = "8" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(371, 285) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(13, 13) + Me.Label15.TabIndex = 1219 + Me.Label15.Text = "7" + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(335, 285) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(13, 13) + Me.Label14.TabIndex = 1218 + Me.Label14.Text = "6" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(301, 285) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(13, 13) + Me.Label13.TabIndex = 1217 + Me.Label13.Text = "5" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(266, 285) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(13, 13) + Me.Label12.TabIndex = 1216 + Me.Label12.Text = "4" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(236, 285) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(13, 13) + Me.Label10.TabIndex = 1215 + Me.Label10.Text = "3" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(181, 285) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(13, 13) + Me.Label9.TabIndex = 1214 + Me.Label9.Text = "2" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(92, 283) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(13, 13) + Me.Label8.TabIndex = 1213 + Me.Label8.Text = "1" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(23, 278) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(13, 13) + Me.Label7.TabIndex = 1212 + Me.Label7.Text = "0" + ' + 'cmdteamlist + ' + Me.cmdteamlist.Location = New System.Drawing.Point(9, 85) + Me.cmdteamlist.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdteamlist.Name = "cmdteamlist" + Me.cmdteamlist.Size = New System.Drawing.Size(72, 34) + Me.cmdteamlist.TabIndex = 1202 + Me.cmdteamlist.Text = "Players of one country" + Me.cmdteamlist.UseVisualStyleBackColor = True + ' + 'cmdVaultStandings2 + ' + Me.cmdVaultStandings2.Location = New System.Drawing.Point(832, 255) + Me.cmdVaultStandings2.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdVaultStandings2.Name = "cmdVaultStandings2" + Me.cmdVaultStandings2.Size = New System.Drawing.Size(97, 27) + Me.cmdVaultStandings2.TabIndex = 1201 + Me.cmdVaultStandings2.Text = "Vault Standings2" + Me.cmdVaultStandings2.UseVisualStyleBackColor = True + ' + 'cmdVaultStandings1 + ' + Me.cmdVaultStandings1.Location = New System.Drawing.Point(832, 227) + Me.cmdVaultStandings1.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdVaultStandings1.Name = "cmdVaultStandings1" + Me.cmdVaultStandings1.Size = New System.Drawing.Size(97, 27) + Me.cmdVaultStandings1.TabIndex = 1200 + Me.cmdVaultStandings1.Text = "Vault Standings1" + Me.cmdVaultStandings1.UseVisualStyleBackColor = True + ' + 'cmdplayerscore1gym + ' + Me.cmdplayerscore1gym.Location = New System.Drawing.Point(429, 253) + Me.cmdplayerscore1gym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayerscore1gym.Name = "cmdplayerscore1gym" + Me.cmdplayerscore1gym.Size = New System.Drawing.Size(47, 32) + Me.cmdplayerscore1gym.TabIndex = 1197 + Me.cmdplayerscore1gym.Text = "Total" + Me.cmdplayerscore1gym.UseVisualStyleBackColor = True + ' + 'cmdrowupzym + ' + Me.cmdrowupzym.Image = CType(resources.GetObject("cmdrowupzym.Image"), System.Drawing.Image) + Me.cmdrowupzym.Location = New System.Drawing.Point(93, 239) + Me.cmdrowupzym.Name = "cmdrowupzym" + Me.cmdrowupzym.Size = New System.Drawing.Size(28, 23) + Me.cmdrowupzym.TabIndex = 1196 + Me.cmdrowupzym.UseVisualStyleBackColor = True + ' + 'lblfilenamegym + ' + Me.lblfilenamegym.AutoSize = True + Me.lblfilenamegym.Location = New System.Drawing.Point(8, 173) + Me.lblfilenamegym.MaximumSize = New System.Drawing.Size(250, 0) + Me.lblfilenamegym.Name = "lblfilenamegym" + Me.lblfilenamegym.Size = New System.Drawing.Size(57, 13) + Me.lblfilenamegym.TabIndex = 1195 + Me.lblfilenamegym.Text = "Default file" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(11, 158) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(54, 13) + Me.Label3.TabIndex = 1194 + Me.Label3.Text = "File Name" + ' + 'cmdrowdeletegym + ' + Me.cmdrowdeletegym.BackgroundImage = CType(resources.GetObject("cmdrowdeletegym.BackgroundImage"), System.Drawing.Image) + Me.cmdrowdeletegym.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdrowdeletegym.Location = New System.Drawing.Point(194, 239) + Me.cmdrowdeletegym.Name = "cmdrowdeletegym" + Me.cmdrowdeletegym.Size = New System.Drawing.Size(33, 22) + Me.cmdrowdeletegym.TabIndex = 1193 + Me.cmdrowdeletegym.UseVisualStyleBackColor = True + ' + 'tsgym + ' + Me.tsgym.Dock = System.Windows.Forms.DockStyle.None + Me.tsgym.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.newgym, Me.opengym, Me.savegym, Me.ToolStripSeparator8, Me.ToolStripSeparator9}) + Me.tsgym.Location = New System.Drawing.Point(4, 236) + Me.tsgym.MaximumSize = New System.Drawing.Size(200, 200) + Me.tsgym.Name = "tsgym" + Me.tsgym.Size = New System.Drawing.Size(93, 25) + Me.tsgym.TabIndex = 1192 + Me.tsgym.Text = "ToolStrip3" + ' + 'newgym + ' + Me.newgym.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.newgym.Image = CType(resources.GetObject("newgym.Image"), System.Drawing.Image) + Me.newgym.ImageTransparentColor = System.Drawing.Color.Magenta + Me.newgym.Name = "newgym" + Me.newgym.Size = New System.Drawing.Size(23, 22) + Me.newgym.Text = "&New" + ' + 'opengym + ' + Me.opengym.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.opengym.Image = CType(resources.GetObject("opengym.Image"), System.Drawing.Image) + Me.opengym.ImageTransparentColor = System.Drawing.Color.Magenta + Me.opengym.Name = "opengym" + Me.opengym.Size = New System.Drawing.Size(23, 22) + Me.opengym.Text = "&Open" + ' + 'savegym + ' + Me.savegym.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.savegym.Image = CType(resources.GetObject("savegym.Image"), System.Drawing.Image) + Me.savegym.ImageTransparentColor = System.Drawing.Color.Magenta + Me.savegym.Name = "savegym" + Me.savegym.Size = New System.Drawing.Size(23, 22) + Me.savegym.Text = "&Save" + ' + 'ToolStripSeparator8 + ' + Me.ToolStripSeparator8.Name = "ToolStripSeparator8" + Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripSeparator9 + ' + Me.ToolStripSeparator9.Name = "ToolStripSeparator9" + Me.ToolStripSeparator9.Size = New System.Drawing.Size(6, 25) + ' + 'cmdrowdowngym + ' + Me.cmdrowdowngym.Image = CType(resources.GetObject("cmdrowdowngym.Image"), System.Drawing.Image) + Me.cmdrowdowngym.Location = New System.Drawing.Point(121, 238) + Me.cmdrowdowngym.Name = "cmdrowdowngym" + Me.cmdrowdowngym.Size = New System.Drawing.Size(36, 23) + Me.cmdrowdowngym.TabIndex = 1191 + Me.cmdrowdowngym.UseVisualStyleBackColor = True + ' + 'cmdrowinsertgym + ' + Me.cmdrowinsertgym.Image = CType(resources.GetObject("cmdrowinsertgym.Image"), System.Drawing.Image) + Me.cmdrowinsertgym.Location = New System.Drawing.Point(158, 238) + Me.cmdrowinsertgym.Name = "cmdrowinsertgym" + Me.cmdrowinsertgym.Size = New System.Drawing.Size(34, 23) + Me.cmdrowinsertgym.TabIndex = 1190 + Me.cmdrowinsertgym.UseVisualStyleBackColor = True + ' + 'cmdplayeridgym + ' + Me.cmdplayeridgym.Location = New System.Drawing.Point(89, 8) + Me.cmdplayeridgym.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayeridgym.Name = "cmdplayeridgym" + Me.cmdplayeridgym.Size = New System.Drawing.Size(103, 42) + Me.cmdplayeridgym.TabIndex = 1181 + Me.cmdplayeridgym.Text = "Player ID" + Me.cmdplayeridgym.UseVisualStyleBackColor = True + ' + 'cmdgymnasticsstsrtlist2 + ' + Me.cmdgymnasticsstsrtlist2.Location = New System.Drawing.Point(9, 46) + Me.cmdgymnasticsstsrtlist2.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdgymnasticsstsrtlist2.Name = "cmdgymnasticsstsrtlist2" + Me.cmdgymnasticsstsrtlist2.Size = New System.Drawing.Size(72, 36) + Me.cmdgymnasticsstsrtlist2.TabIndex = 1177 + Me.cmdgymnasticsstsrtlist2.Text = "Country List2" + Me.cmdgymnasticsstsrtlist2.UseVisualStyleBackColor = True + ' + 'cmdgymnasticsstsrtlist1 + ' + Me.cmdgymnasticsstsrtlist1.Location = New System.Drawing.Point(9, 5) + Me.cmdgymnasticsstsrtlist1.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdgymnasticsstsrtlist1.Name = "cmdgymnasticsstsrtlist1" + Me.cmdgymnasticsstsrtlist1.Size = New System.Drawing.Size(72, 39) + Me.cmdgymnasticsstsrtlist1.TabIndex = 1170 + Me.cmdgymnasticsstsrtlist1.Text = "Country List1" + Me.cmdgymnasticsstsrtlist1.UseVisualStyleBackColor = True + ' + 'dgvGymnastics + ' + Me.dgvGymnastics.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvGymnastics.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2, Me.Column3, Me.Column5, Me.Column7, Me.Column8, Me.Column9, Me.Column20, Me.Column6, Me.Column4, Me.Column11, Me.Column10, Me.Column13, Me.Column12, Me.Column24, Me.Column23, Me.Column22, Me.Column14, Me.Column21, Me.Column25, Me.Column15, Me.Column16, Me.Column17, Me.Column18, Me.Column28, Me.Column19, Me.Penalties, Me.Score, Me.Column26, Me.Column27}) + DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvGymnastics.DefaultCellStyle = DataGridViewCellStyle7 + Me.dgvGymnastics.EditMode = System.Windows.Forms.DataGridViewEditMode.EditOnEnter + Me.dgvGymnastics.Location = New System.Drawing.Point(-28, 301) + Me.dgvGymnastics.Name = "dgvGymnastics" + Me.dgvGymnastics.RowTemplate.Height = 24 + Me.dgvGymnastics.Size = New System.Drawing.Size(1320, 271) + Me.dgvGymnastics.TabIndex = 4 + ' + 'Column1 + ' + Me.Column1.Frozen = True + Me.Column1.HeaderText = "SN" + Me.Column1.Name = "Column1" + Me.Column1.Width = 25 + ' + 'Column2 + ' + Me.Column2.Frozen = True + Me.Column2.HeaderText = "Name" + Me.Column2.Name = "Column2" + Me.Column2.Width = 125 + ' + 'Column3 + ' + Me.Column3.Frozen = True + Me.Column3.HeaderText = "Country" + Me.Column3.Items.AddRange(New Object() {"BLK", "A_N", "AP", "ARP", "ASM", "BIH", "CG", "CHA", "D_D", "DEL", "DNH", "GOA", "GUJ", "HAR", "HP", "J_K", "JHA", "KAR", "KER", "LD", "MAH", "MAN", "MGA", "MIZ", "MP", "NAG", "ORI", "PON", "PUN", "RAJ", "SER", "SIK", "TN", "TRI", "TS", "UK", "UP", "WB"}) + Me.Column3.Name = "Column3" + Me.Column3.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.Column3.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic + Me.Column3.Width = 55 + ' + 'Column5 + ' + Me.Column5.HeaderText = "Floor Exercise" + Me.Column5.Name = "Column5" + Me.Column5.Width = 35 + ' + 'Column7 + ' + Me.Column7.HeaderText = "Pommel Horse" + Me.Column7.Name = "Column7" + Me.Column7.Width = 35 + ' + 'Column8 + ' + Me.Column8.HeaderText = "Rings" + Me.Column8.Name = "Column8" + Me.Column8.Width = 35 + ' + 'Column9 + ' + Me.Column9.HeaderText = "Table Vault" + Me.Column9.Name = "Column9" + Me.Column9.Width = 35 + ' + 'Column20 + ' + Me.Column20.HeaderText = "Parallel Bars" + Me.Column20.Name = "Column20" + Me.Column20.Width = 35 + ' + 'Column6 + ' + Me.Column6.HeaderText = "Horizontal Bars" + Me.Column6.Name = "Column6" + Me.Column6.Width = 35 + ' + 'Column4 + ' + Me.Column4.HeaderText = "Total" + Me.Column4.Name = "Column4" + Me.Column4.Width = 35 + ' + 'Column11 + ' + Me.Column11.HeaderText = "Hoop" + Me.Column11.Name = "Column11" + Me.Column11.Width = 35 + ' + 'Column10 + ' + Me.Column10.HeaderText = "Ball" + Me.Column10.Name = "Column10" + Me.Column10.Width = 35 + ' + 'Column13 + ' + Me.Column13.HeaderText = "Clubs" + Me.Column13.Name = "Column13" + Me.Column13.Width = 35 + ' + 'Column12 + ' + Me.Column12.HeaderText = "Ribbon" + Me.Column12.Name = "Column12" + Me.Column12.Width = 35 + ' + 'Column24 + ' + Me.Column24.HeaderText = "Total" + Me.Column24.Name = "Column24" + Me.Column24.Width = 35 + ' + 'Column23 + ' + Me.Column23.HeaderText = "Vault Horse" + Me.Column23.Name = "Column23" + Me.Column23.Width = 35 + ' + 'Column22 + ' + Me.Column22.HeaderText = "Uneven Bars" + Me.Column22.Name = "Column22" + Me.Column22.Width = 35 + ' + 'Column14 + ' + Me.Column14.HeaderText = "Balancing Beam" + Me.Column14.Name = "Column14" + Me.Column14.Width = 35 + ' + 'Column21 + ' + Me.Column21.HeaderText = "Floor Exercise" + Me.Column21.Name = "Column21" + Me.Column21.Width = 45 + ' + 'Column25 + ' + Me.Column25.HeaderText = "Total" + Me.Column25.Name = "Column25" + Me.Column25.Width = 35 + ' + 'Column15 + ' + Me.Column15.HeaderText = "Vault1" + Me.Column15.Name = "Column15" + Me.Column15.Width = 35 + ' + 'Column16 + ' + Me.Column16.HeaderText = "Vault2" + Me.Column16.Name = "Column16" + Me.Column16.Width = 35 + ' + 'Column17 + ' + Me.Column17.HeaderText = "Vault Score" + Me.Column17.Name = "Column17" + Me.Column17.Width = 35 + ' + 'Column18 + ' + Me.Column18.HeaderText = "Difficulty" + Me.Column18.Name = "Column18" + Me.Column18.Width = 35 + ' + 'Column28 + ' + Me.Column28.HeaderText = "Artistic" + Me.Column28.Name = "Column28" + Me.Column28.Width = 35 + ' + 'Column19 + ' + Me.Column19.HeaderText = "Execution" + Me.Column19.Name = "Column19" + Me.Column19.Width = 35 + ' + 'Penalties + ' + Me.Penalties.HeaderText = "Penalties" + Me.Penalties.Name = "Penalties" + Me.Penalties.Width = 35 + ' + 'Score + ' + Me.Score.HeaderText = "Score" + Me.Score.Name = "Score" + Me.Score.Width = 35 + ' + 'Column26 + ' + Me.Column26.HeaderText = "Game Name" + Me.Column26.Name = "Column26" + ' + 'Column27 + ' + Me.Column27.HeaderText = "Official ID" + Me.Column27.Name = "Column27" + ' + 'ShapeContainer1 + ' + Me.ShapeContainer1.Location = New System.Drawing.Point(3, 3) + Me.ShapeContainer1.Margin = New System.Windows.Forms.Padding(0) + Me.ShapeContainer1.Name = "ShapeContainer1" + Me.ShapeContainer1.Shapes.AddRange(New Microsoft.VisualBasic.PowerPacks.Shape() {Me.LineShape2}) + Me.ShapeContainer1.Size = New System.Drawing.Size(1325, 679) + Me.ShapeContainer1.TabIndex = 1207 + Me.ShapeContainer1.TabStop = False + ' + 'LineShape2 + ' + Me.LineShape2.Name = "LineShape2" + Me.LineShape2.X1 = 503 + Me.LineShape2.X2 = 811 + Me.LineShape2.Y1 = 333 + Me.LineShape2.Y2 = 334 + ' + 'Shooting + ' + Me.Shooting.Controls.Add(Me.GroupBox4) + Me.Shooting.Controls.Add(Me.cmdseries5shooting25m) + Me.Shooting.Controls.Add(Me.cmdseries4shooting25m) + Me.Shooting.Controls.Add(Me.cmdseries3shooting25m) + Me.Shooting.Controls.Add(Me.cmdseries2shooting25m) + Me.Shooting.Controls.Add(Me.cmdseries1shooting25m) + Me.Shooting.Controls.Add(Me.cmdseries9shooting) + Me.Shooting.Controls.Add(Me.cmdseries8shooting) + Me.Shooting.Controls.Add(Me.cmdseries7shooting) + Me.Shooting.Controls.Add(Me.cmdseries6shooting) + Me.Shooting.Controls.Add(Me.cmdseries5shooting) + Me.Shooting.Controls.Add(Me.cmdseries4shooting) + Me.Shooting.Controls.Add(Me.cmdseries3shooting) + Me.Shooting.Controls.Add(Me.cmdseries2shooting) + Me.Shooting.Controls.Add(Me.cmdseries1shooting) + Me.Shooting.Controls.Add(Me.cmdplayerscorecard2Shooting) + Me.Shooting.Controls.Add(Me.GroupBox13) + Me.Shooting.Controls.Add(Me.cmdplayerscorecardShooting) + Me.Shooting.Controls.Add(Me.GroupBox18) + Me.Shooting.Controls.Add(Me.chkwithnumberShooting) + Me.Shooting.Controls.Add(Me.Label47) + Me.Shooting.Controls.Add(Me.Label49) + Me.Shooting.Controls.Add(Me.Label50) + Me.Shooting.Controls.Add(Me.Label51) + Me.Shooting.Controls.Add(Me.Label52) + Me.Shooting.Controls.Add(Me.Label53) + Me.Shooting.Controls.Add(Me.Label54) + Me.Shooting.Controls.Add(Me.Label55) + Me.Shooting.Controls.Add(Me.Label56) + Me.Shooting.Controls.Add(Me.Label57) + Me.Shooting.Controls.Add(Me.Label58) + Me.Shooting.Controls.Add(Me.Label59) + Me.Shooting.Controls.Add(Me.Label60) + Me.Shooting.Controls.Add(Me.Label61) + Me.Shooting.Controls.Add(Me.Label62) + Me.Shooting.Controls.Add(Me.Label63) + Me.Shooting.Controls.Add(Me.Label64) + Me.Shooting.Controls.Add(Me.Label65) + Me.Shooting.Controls.Add(Me.Label66) + Me.Shooting.Controls.Add(Me.Label67) + Me.Shooting.Controls.Add(Me.Label68) + Me.Shooting.Controls.Add(Me.Label69) + Me.Shooting.Controls.Add(Me.Label70) + Me.Shooting.Controls.Add(Me.Label71) + Me.Shooting.Controls.Add(Me.Label72) + Me.Shooting.Controls.Add(Me.Label73) + Me.Shooting.Controls.Add(Me.cmdplayerqualification) + Me.Shooting.Controls.Add(Me.cmdrowupShooting) + Me.Shooting.Controls.Add(Me.lblfilenameShooting) + Me.Shooting.Controls.Add(Me.Label78) + Me.Shooting.Controls.Add(Me.cmdrowdeleteShooting) + Me.Shooting.Controls.Add(Me.tsShooting) + Me.Shooting.Controls.Add(Me.cmdrowdownShooting) + Me.Shooting.Controls.Add(Me.cmdrowinsertShooting) + Me.Shooting.Controls.Add(Me.cmdplayeridShooting) + Me.Shooting.Controls.Add(Me.cmdShootingstartlist2) + Me.Shooting.Controls.Add(Me.cmdShootingstartlist1) + Me.Shooting.Controls.Add(Me.dgvShooting) + Me.Shooting.Location = New System.Drawing.Point(4, 22) + Me.Shooting.Name = "Shooting" + Me.Shooting.Size = New System.Drawing.Size(1331, 685) + Me.Shooting.TabIndex = 3 + Me.Shooting.Text = "Shooting" + Me.Shooting.UseVisualStyleBackColor = True + ' + 'GroupBox4 + ' + Me.GroupBox4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.GroupBox4.Controls.Add(Me.cmdShootoffshooting) + Me.GroupBox4.Controls.Add(Me.cmdmedalmatchshooting) + Me.GroupBox4.Location = New System.Drawing.Point(258, 112) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(102, 115) + Me.GroupBox4.TabIndex = 1346 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "Only for 25M" + ' + 'cmdShootoffshooting + ' + Me.cmdShootoffshooting.Location = New System.Drawing.Point(10, 22) + Me.cmdShootoffshooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdShootoffshooting.Name = "cmdShootoffshooting" + Me.cmdShootoffshooting.Size = New System.Drawing.Size(72, 39) + Me.cmdShootoffshooting.TabIndex = 1345 + Me.cmdShootoffshooting.Text = "Shootoff" + Me.cmdShootoffshooting.UseVisualStyleBackColor = True + ' + 'cmdmedalmatchshooting + ' + Me.cmdmedalmatchshooting.Location = New System.Drawing.Point(10, 64) + Me.cmdmedalmatchshooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdmedalmatchshooting.Name = "cmdmedalmatchshooting" + Me.cmdmedalmatchshooting.Size = New System.Drawing.Size(72, 39) + Me.cmdmedalmatchshooting.TabIndex = 1344 + Me.cmdmedalmatchshooting.Text = "Medal Match" + Me.cmdmedalmatchshooting.UseVisualStyleBackColor = True + ' + 'cmdseries5shooting25m + ' + Me.cmdseries5shooting25m.Location = New System.Drawing.Point(1190, 279) + Me.cmdseries5shooting25m.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries5shooting25m.Name = "cmdseries5shooting25m" + Me.cmdseries5shooting25m.Size = New System.Drawing.Size(132, 23) + Me.cmdseries5shooting25m.TabIndex = 1343 + Me.cmdseries5shooting25m.Text = "Series 5" + Me.cmdseries5shooting25m.TextAlign = System.Drawing.ContentAlignment.TopLeft + Me.cmdseries5shooting25m.UseVisualStyleBackColor = True + ' + 'cmdseries4shooting25m + ' + Me.cmdseries4shooting25m.Location = New System.Drawing.Point(969, 279) + Me.cmdseries4shooting25m.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries4shooting25m.Name = "cmdseries4shooting25m" + Me.cmdseries4shooting25m.Size = New System.Drawing.Size(217, 23) + Me.cmdseries4shooting25m.TabIndex = 1339 + Me.cmdseries4shooting25m.Text = "Series 4" + Me.cmdseries4shooting25m.UseVisualStyleBackColor = True + ' + 'cmdseries3shooting25m + ' + Me.cmdseries3shooting25m.Location = New System.Drawing.Point(747, 279) + Me.cmdseries3shooting25m.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries3shooting25m.Name = "cmdseries3shooting25m" + Me.cmdseries3shooting25m.Size = New System.Drawing.Size(214, 23) + Me.cmdseries3shooting25m.TabIndex = 1338 + Me.cmdseries3shooting25m.Text = "Series 3" + Me.cmdseries3shooting25m.UseVisualStyleBackColor = True + ' + 'cmdseries2shooting25m + ' + Me.cmdseries2shooting25m.Location = New System.Drawing.Point(527, 276) + Me.cmdseries2shooting25m.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries2shooting25m.Name = "cmdseries2shooting25m" + Me.cmdseries2shooting25m.Size = New System.Drawing.Size(214, 23) + Me.cmdseries2shooting25m.TabIndex = 1337 + Me.cmdseries2shooting25m.Text = "Series 2" + Me.cmdseries2shooting25m.UseVisualStyleBackColor = True + ' + 'cmdseries1shooting25m + ' + Me.cmdseries1shooting25m.Location = New System.Drawing.Point(295, 275) + Me.cmdseries1shooting25m.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries1shooting25m.Name = "cmdseries1shooting25m" + Me.cmdseries1shooting25m.Size = New System.Drawing.Size(225, 23) + Me.cmdseries1shooting25m.TabIndex = 1336 + Me.cmdseries1shooting25m.Text = "Series 1" + Me.cmdseries1shooting25m.UseVisualStyleBackColor = True + ' + 'cmdseries9shooting + ' + Me.cmdseries9shooting.Location = New System.Drawing.Point(1102, 304) + Me.cmdseries9shooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries9shooting.Name = "cmdseries9shooting" + Me.cmdseries9shooting.Size = New System.Drawing.Size(84, 23) + Me.cmdseries9shooting.TabIndex = 1335 + Me.cmdseries9shooting.Text = "Series 9" + Me.cmdseries9shooting.UseVisualStyleBackColor = True + ' + 'cmdseries8shooting + ' + Me.cmdseries8shooting.Location = New System.Drawing.Point(1014, 304) + Me.cmdseries8shooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries8shooting.Name = "cmdseries8shooting" + Me.cmdseries8shooting.Size = New System.Drawing.Size(84, 23) + Me.cmdseries8shooting.TabIndex = 1334 + Me.cmdseries8shooting.Text = "Series 8" + Me.cmdseries8shooting.UseVisualStyleBackColor = True + ' + 'cmdseries7shooting + ' + Me.cmdseries7shooting.Location = New System.Drawing.Point(923, 302) + Me.cmdseries7shooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries7shooting.Name = "cmdseries7shooting" + Me.cmdseries7shooting.Size = New System.Drawing.Size(84, 23) + Me.cmdseries7shooting.TabIndex = 1333 + Me.cmdseries7shooting.Text = "Series 7" + Me.cmdseries7shooting.UseVisualStyleBackColor = True + ' + 'cmdseries6shooting + ' + Me.cmdseries6shooting.Location = New System.Drawing.Point(838, 302) + Me.cmdseries6shooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries6shooting.Name = "cmdseries6shooting" + Me.cmdseries6shooting.Size = New System.Drawing.Size(84, 23) + Me.cmdseries6shooting.TabIndex = 1332 + Me.cmdseries6shooting.Text = "Series 6" + Me.cmdseries6shooting.UseVisualStyleBackColor = True + ' + 'cmdseries5shooting + ' + Me.cmdseries5shooting.Location = New System.Drawing.Point(750, 304) + Me.cmdseries5shooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries5shooting.Name = "cmdseries5shooting" + Me.cmdseries5shooting.Size = New System.Drawing.Size(84, 23) + Me.cmdseries5shooting.TabIndex = 1331 + Me.cmdseries5shooting.Text = "Series 5" + Me.cmdseries5shooting.UseVisualStyleBackColor = True + ' + 'cmdseries4shooting + ' + Me.cmdseries4shooting.Location = New System.Drawing.Point(658, 304) + Me.cmdseries4shooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries4shooting.Name = "cmdseries4shooting" + Me.cmdseries4shooting.Size = New System.Drawing.Size(84, 23) + Me.cmdseries4shooting.TabIndex = 1330 + Me.cmdseries4shooting.Text = "Series 4" + Me.cmdseries4shooting.UseVisualStyleBackColor = True + ' + 'cmdseries3shooting + ' + Me.cmdseries3shooting.Location = New System.Drawing.Point(571, 304) + Me.cmdseries3shooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries3shooting.Name = "cmdseries3shooting" + Me.cmdseries3shooting.Size = New System.Drawing.Size(79, 23) + Me.cmdseries3shooting.TabIndex = 1329 + Me.cmdseries3shooting.Text = "Series 3" + Me.cmdseries3shooting.UseVisualStyleBackColor = True + ' + 'cmdseries2shooting + ' + Me.cmdseries2shooting.Location = New System.Drawing.Point(433, 302) + Me.cmdseries2shooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries2shooting.Name = "cmdseries2shooting" + Me.cmdseries2shooting.Size = New System.Drawing.Size(136, 23) + Me.cmdseries2shooting.TabIndex = 1328 + Me.cmdseries2shooting.Text = "Series 2" + Me.cmdseries2shooting.UseVisualStyleBackColor = True + ' + 'cmdseries1shooting + ' + Me.cmdseries1shooting.Location = New System.Drawing.Point(292, 301) + Me.cmdseries1shooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdseries1shooting.Name = "cmdseries1shooting" + Me.cmdseries1shooting.Size = New System.Drawing.Size(138, 23) + Me.cmdseries1shooting.TabIndex = 1327 + Me.cmdseries1shooting.Text = "Series 1" + Me.cmdseries1shooting.UseVisualStyleBackColor = True + ' + 'cmdplayerscorecard2Shooting + ' + Me.cmdplayerscorecard2Shooting.Location = New System.Drawing.Point(88, 164) + Me.cmdplayerscorecard2Shooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayerscorecard2Shooting.Name = "cmdplayerscorecard2Shooting" + Me.cmdplayerscorecard2Shooting.Size = New System.Drawing.Size(120, 34) + Me.cmdplayerscorecard2Shooting.TabIndex = 1326 + Me.cmdplayerscorecard2Shooting.Text = "Player ScoreCard20" + Me.cmdplayerscorecard2Shooting.UseVisualStyleBackColor = True + ' + 'GroupBox13 + ' + Me.GroupBox13.BackColor = System.Drawing.Color.NavajoWhite + Me.GroupBox13.Controls.Add(Me.txtaftershots) + Me.GroupBox13.Controls.Add(Me.Label41) + Me.GroupBox13.Controls.Add(Me.cmbplayergamepointShooting) + Me.GroupBox13.Controls.Add(Me.cmdplayergamepointShooting) + Me.GroupBox13.Location = New System.Drawing.Point(254, 8) + Me.GroupBox13.Name = "GroupBox13" + Me.GroupBox13.Size = New System.Drawing.Size(152, 97) + Me.GroupBox13.TabIndex = 1324 + Me.GroupBox13.TabStop = False + ' + 'txtaftershots + ' + Me.txtaftershots.Location = New System.Drawing.Point(25, 63) + Me.txtaftershots.Name = "txtaftershots" + Me.txtaftershots.Size = New System.Drawing.Size(96, 20) + Me.txtaftershots.TabIndex = 1254 + Me.txtaftershots.Text = "After 3 shots" + ' + 'Label41 + ' + Me.Label41.AutoSize = True + Me.Label41.Location = New System.Drawing.Point(6, 11) + Me.Label41.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label41.Name = "Label41" + Me.Label41.Size = New System.Drawing.Size(62, 13) + Me.Label41.TabIndex = 1250 + Me.Label41.Text = "Column No." + ' + 'cmbplayergamepointShooting + ' + Me.cmbplayergamepointShooting.FormattingEnabled = True + Me.cmbplayergamepointShooting.Items.AddRange(New Object() {"3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26"}) + Me.cmbplayergamepointShooting.Location = New System.Drawing.Point(6, 29) + Me.cmbplayergamepointShooting.Name = "cmbplayergamepointShooting" + Me.cmbplayergamepointShooting.Size = New System.Drawing.Size(46, 21) + Me.cmbplayergamepointShooting.TabIndex = 1249 + Me.cmbplayergamepointShooting.Text = "29" + ' + 'cmdplayergamepointShooting + ' + Me.cmdplayergamepointShooting.Location = New System.Drawing.Point(64, 21) + Me.cmdplayergamepointShooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayergamepointShooting.Name = "cmdplayergamepointShooting" + Me.cmdplayergamepointShooting.Size = New System.Drawing.Size(83, 36) + Me.cmdplayergamepointShooting.TabIndex = 1256 + Me.cmdplayergamepointShooting.Text = "Player Game Point" + Me.cmdplayergamepointShooting.UseVisualStyleBackColor = True + ' + 'cmdplayerscorecardShooting + ' + Me.cmdplayerscorecardShooting.Location = New System.Drawing.Point(86, 127) + Me.cmdplayerscorecardShooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayerscorecardShooting.Name = "cmdplayerscorecardShooting" + Me.cmdplayerscorecardShooting.Size = New System.Drawing.Size(120, 34) + Me.cmdplayerscorecardShooting.TabIndex = 1244 + Me.cmdplayerscorecardShooting.Text = "Player ScoreCard10" + Me.cmdplayerscorecardShooting.UseVisualStyleBackColor = True + ' + 'GroupBox18 + ' + Me.GroupBox18.BackColor = System.Drawing.Color.SkyBlue + Me.GroupBox18.Controls.Add(Me.txteleminationshooting) + Me.GroupBox18.Controls.Add(Me.Label44) + Me.GroupBox18.Controls.Add(Me.txttop3) + Me.GroupBox18.Controls.Add(Me.cmdtop3standingsShooting) + Me.GroupBox18.Controls.Add(Me.Label46) + Me.GroupBox18.Controls.Add(Me.cmbstandingsShooting) + Me.GroupBox18.Controls.Add(Me.cmdresult1Shooting) + Me.GroupBox18.Location = New System.Drawing.Point(84, 8) + Me.GroupBox18.Name = "GroupBox18" + Me.GroupBox18.Size = New System.Drawing.Size(162, 113) + Me.GroupBox18.TabIndex = 1318 + Me.GroupBox18.TabStop = False + Me.GroupBox18.Text = "Standings" + ' + 'txteleminationshooting + ' + Me.txteleminationshooting.Location = New System.Drawing.Point(123, 61) + Me.txteleminationshooting.Name = "txteleminationshooting" + Me.txteleminationshooting.Size = New System.Drawing.Size(33, 20) + Me.txteleminationshooting.TabIndex = 1255 + Me.txteleminationshooting.Text = "0" + ' + 'Label44 + ' + Me.Label44.AutoSize = True + Me.Label44.Location = New System.Drawing.Point(3, 61) + Me.Label44.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(119, 13) + Me.Label44.TabIndex = 1254 + Me.Label44.Text = "Elemination from bottom" + ' + 'txttop3 + ' + Me.txttop3.Location = New System.Drawing.Point(60, 87) + Me.txttop3.Name = "txttop3" + Me.txttop3.Size = New System.Drawing.Size(96, 20) + Me.txttop3.TabIndex = 1253 + Me.txttop3.Text = "Top 3" + ' + 'cmdtop3standingsShooting + ' + Me.cmdtop3standingsShooting.Location = New System.Drawing.Point(1, 86) + Me.cmdtop3standingsShooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdtop3standingsShooting.Name = "cmdtop3standingsShooting" + Me.cmdtop3standingsShooting.Size = New System.Drawing.Size(56, 21) + Me.cmdtop3standingsShooting.TabIndex = 1248 + Me.cmdtop3standingsShooting.Text = "Top 3" + Me.cmdtop3standingsShooting.UseVisualStyleBackColor = True + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Location = New System.Drawing.Point(7, 14) + Me.Label46.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(62, 13) + Me.Label46.TabIndex = 1247 + Me.Label46.Text = "Column No." + ' + 'cmbstandingsShooting + ' + Me.cmbstandingsShooting.FormattingEnabled = True + Me.cmbstandingsShooting.Items.AddRange(New Object() {"3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26"}) + Me.cmbstandingsShooting.Location = New System.Drawing.Point(8, 32) + Me.cmbstandingsShooting.Name = "cmbstandingsShooting" + Me.cmbstandingsShooting.Size = New System.Drawing.Size(63, 21) + Me.cmbstandingsShooting.TabIndex = 1246 + Me.cmbstandingsShooting.Text = "29" + ' + 'cmdresult1Shooting + ' + Me.cmdresult1Shooting.Location = New System.Drawing.Point(73, 10) + Me.cmdresult1Shooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdresult1Shooting.Name = "cmdresult1Shooting" + Me.cmdresult1Shooting.Size = New System.Drawing.Size(74, 27) + Me.cmdresult1Shooting.TabIndex = 1178 + Me.cmdresult1Shooting.Text = "Standings1" + Me.cmdresult1Shooting.UseVisualStyleBackColor = True + ' + 'chkwithnumberShooting + ' + Me.chkwithnumberShooting.AutoSize = True + Me.chkwithnumberShooting.Location = New System.Drawing.Point(94, 204) + Me.chkwithnumberShooting.Name = "chkwithnumberShooting" + Me.chkwithnumberShooting.Size = New System.Drawing.Size(88, 17) + Me.chkwithnumberShooting.TabIndex = 1316 + Me.chkwithnumberShooting.Text = "With Number" + Me.chkwithnumberShooting.UseVisualStyleBackColor = True + ' + 'Label47 + ' + Me.Label47.AutoSize = True + Me.Label47.Location = New System.Drawing.Point(1303, 277) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(19, 13) + Me.Label47.TabIndex = 1310 + Me.Label47.Text = "26" + ' + 'Label49 + ' + Me.Label49.AutoSize = True + Me.Label49.Location = New System.Drawing.Point(1201, 327) + Me.Label49.Name = "Label49" + Me.Label49.Size = New System.Drawing.Size(19, 13) + Me.Label49.TabIndex = 1308 + Me.Label49.Text = "24" + ' + 'Label50 + ' + Me.Label50.AutoSize = True + Me.Label50.Location = New System.Drawing.Point(1158, 325) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(19, 13) + Me.Label50.TabIndex = 1307 + Me.Label50.Text = "23" + ' + 'Label51 + ' + Me.Label51.AutoSize = True + Me.Label51.Location = New System.Drawing.Point(1108, 327) + Me.Label51.Name = "Label51" + Me.Label51.Size = New System.Drawing.Size(19, 13) + Me.Label51.TabIndex = 1306 + Me.Label51.Text = "22" + ' + 'Label52 + ' + Me.Label52.AutoSize = True + Me.Label52.Location = New System.Drawing.Point(1066, 327) + Me.Label52.Name = "Label52" + Me.Label52.Size = New System.Drawing.Size(19, 13) + Me.Label52.TabIndex = 1305 + Me.Label52.Text = "21" + ' + 'Label53 + ' + Me.Label53.AutoSize = True + Me.Label53.Location = New System.Drawing.Point(1026, 325) + Me.Label53.Name = "Label53" + Me.Label53.Size = New System.Drawing.Size(19, 13) + Me.Label53.TabIndex = 1304 + Me.Label53.Text = "20" + ' + 'Label54 + ' + Me.Label54.AutoSize = True + Me.Label54.Location = New System.Drawing.Point(983, 325) + Me.Label54.Name = "Label54" + Me.Label54.Size = New System.Drawing.Size(19, 13) + Me.Label54.TabIndex = 1303 + Me.Label54.Text = "19" + ' + 'Label55 + ' + Me.Label55.AutoSize = True + Me.Label55.Location = New System.Drawing.Point(936, 325) + Me.Label55.Name = "Label55" + Me.Label55.Size = New System.Drawing.Size(19, 13) + Me.Label55.TabIndex = 1302 + Me.Label55.Text = "18" + ' + 'Label56 + ' + Me.Label56.AutoSize = True + Me.Label56.Location = New System.Drawing.Point(888, 323) + Me.Label56.Name = "Label56" + Me.Label56.Size = New System.Drawing.Size(19, 13) + Me.Label56.TabIndex = 1301 + Me.Label56.Text = "17" + ' + 'Label57 + ' + Me.Label57.AutoSize = True + Me.Label57.Location = New System.Drawing.Point(848, 326) + Me.Label57.Name = "Label57" + Me.Label57.Size = New System.Drawing.Size(19, 13) + Me.Label57.TabIndex = 1300 + Me.Label57.Text = "16" + ' + 'Label58 + ' + Me.Label58.AutoSize = True + Me.Label58.Location = New System.Drawing.Point(800, 330) + Me.Label58.Name = "Label58" + Me.Label58.Size = New System.Drawing.Size(19, 13) + Me.Label58.TabIndex = 1299 + Me.Label58.Text = "15" + ' + 'Label59 + ' + Me.Label59.AutoSize = True + Me.Label59.Location = New System.Drawing.Point(758, 326) + Me.Label59.Name = "Label59" + Me.Label59.Size = New System.Drawing.Size(19, 13) + Me.Label59.TabIndex = 1298 + Me.Label59.Text = "14" + ' + 'Label60 + ' + Me.Label60.AutoSize = True + Me.Label60.Location = New System.Drawing.Point(710, 325) + Me.Label60.Name = "Label60" + Me.Label60.Size = New System.Drawing.Size(19, 13) + Me.Label60.TabIndex = 1297 + Me.Label60.Text = "13" + ' + 'Label61 + ' + Me.Label61.AutoSize = True + Me.Label61.Location = New System.Drawing.Point(671, 325) + Me.Label61.Name = "Label61" + Me.Label61.Size = New System.Drawing.Size(19, 13) + Me.Label61.TabIndex = 1296 + Me.Label61.Text = "12" + ' + 'Label62 + ' + Me.Label62.AutoSize = True + Me.Label62.Location = New System.Drawing.Point(619, 328) + Me.Label62.Name = "Label62" + Me.Label62.Size = New System.Drawing.Size(19, 13) + Me.Label62.TabIndex = 1295 + Me.Label62.Text = "11" + ' + 'Label63 + ' + Me.Label63.AutoSize = True + Me.Label63.Location = New System.Drawing.Point(576, 326) + Me.Label63.Name = "Label63" + Me.Label63.Size = New System.Drawing.Size(19, 13) + Me.Label63.TabIndex = 1294 + Me.Label63.Text = "10" + ' + 'Label64 + ' + Me.Label64.AutoSize = True + Me.Label64.Location = New System.Drawing.Point(532, 328) + Me.Label64.Name = "Label64" + Me.Label64.Size = New System.Drawing.Size(13, 13) + Me.Label64.TabIndex = 1293 + Me.Label64.Text = "9" + ' + 'Label65 + ' + Me.Label65.AutoSize = True + Me.Label65.Location = New System.Drawing.Point(488, 327) + Me.Label65.Name = "Label65" + Me.Label65.Size = New System.Drawing.Size(13, 13) + Me.Label65.TabIndex = 1292 + Me.Label65.Text = "8" + ' + 'Label66 + ' + Me.Label66.AutoSize = True + Me.Label66.Location = New System.Drawing.Point(442, 327) + Me.Label66.Name = "Label66" + Me.Label66.Size = New System.Drawing.Size(13, 13) + Me.Label66.TabIndex = 1291 + Me.Label66.Text = "7" + ' + 'Label67 + ' + Me.Label67.AutoSize = True + Me.Label67.Location = New System.Drawing.Point(404, 327) + Me.Label67.Name = "Label67" + Me.Label67.Size = New System.Drawing.Size(13, 13) + Me.Label67.TabIndex = 1290 + Me.Label67.Text = "6" + ' + 'Label68 + ' + Me.Label68.AutoSize = True + Me.Label68.Location = New System.Drawing.Point(350, 327) + Me.Label68.Name = "Label68" + Me.Label68.Size = New System.Drawing.Size(13, 13) + Me.Label68.TabIndex = 1289 + Me.Label68.Text = "5" + ' + 'Label69 + ' + Me.Label69.AutoSize = True + Me.Label69.Location = New System.Drawing.Point(308, 324) + Me.Label69.Name = "Label69" + Me.Label69.Size = New System.Drawing.Size(13, 13) + Me.Label69.TabIndex = 1288 + Me.Label69.Text = "4" + ' + 'Label70 + ' + Me.Label70.AutoSize = True + Me.Label70.Location = New System.Drawing.Point(265, 324) + Me.Label70.Name = "Label70" + Me.Label70.Size = New System.Drawing.Size(13, 13) + Me.Label70.TabIndex = 1287 + Me.Label70.Text = "3" + ' + 'Label71 + ' + Me.Label71.AutoSize = True + Me.Label71.Location = New System.Drawing.Point(213, 324) + Me.Label71.Name = "Label71" + Me.Label71.Size = New System.Drawing.Size(13, 13) + Me.Label71.TabIndex = 1286 + Me.Label71.Text = "2" + ' + 'Label72 + ' + Me.Label72.AutoSize = True + Me.Label72.Location = New System.Drawing.Point(116, 327) + Me.Label72.Name = "Label72" + Me.Label72.Size = New System.Drawing.Size(13, 13) + Me.Label72.TabIndex = 1285 + Me.Label72.Text = "1" + ' + 'Label73 + ' + Me.Label73.AutoSize = True + Me.Label73.Location = New System.Drawing.Point(50, 325) + Me.Label73.Name = "Label73" + Me.Label73.Size = New System.Drawing.Size(13, 13) + Me.Label73.TabIndex = 1284 + Me.Label73.Text = "0" + ' + 'cmdplayerqualification + ' + Me.cmdplayerqualification.Location = New System.Drawing.Point(233, 288) + Me.cmdplayerqualification.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayerqualification.Name = "cmdplayerqualification" + Me.cmdplayerqualification.Size = New System.Drawing.Size(56, 36) + Me.cmdplayerqualification.TabIndex = 1275 + Me.cmdplayerqualification.Text = "Player Qyalification" + Me.cmdplayerqualification.UseVisualStyleBackColor = True + ' + 'cmdrowupShooting + ' + Me.cmdrowupShooting.Image = CType(resources.GetObject("cmdrowupShooting.Image"), System.Drawing.Image) + Me.cmdrowupShooting.Location = New System.Drawing.Point(92, 298) + Me.cmdrowupShooting.Name = "cmdrowupShooting" + Me.cmdrowupShooting.Size = New System.Drawing.Size(28, 23) + Me.cmdrowupShooting.TabIndex = 1274 + Me.cmdrowupShooting.UseVisualStyleBackColor = True + ' + 'lblfilenameShooting + ' + Me.lblfilenameShooting.AutoSize = True + Me.lblfilenameShooting.Location = New System.Drawing.Point(7, 254) + Me.lblfilenameShooting.Name = "lblfilenameShooting" + Me.lblfilenameShooting.Size = New System.Drawing.Size(57, 13) + Me.lblfilenameShooting.TabIndex = 1273 + Me.lblfilenameShooting.Text = "Default file" + ' + 'Label78 + ' + Me.Label78.AutoSize = True + Me.Label78.Location = New System.Drawing.Point(10, 239) + Me.Label78.Name = "Label78" + Me.Label78.Size = New System.Drawing.Size(54, 13) + Me.Label78.TabIndex = 1272 + Me.Label78.Text = "File Name" + ' + 'cmdrowdeleteShooting + ' + Me.cmdrowdeleteShooting.BackgroundImage = CType(resources.GetObject("cmdrowdeleteShooting.BackgroundImage"), System.Drawing.Image) + Me.cmdrowdeleteShooting.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdrowdeleteShooting.Location = New System.Drawing.Point(193, 298) + Me.cmdrowdeleteShooting.Name = "cmdrowdeleteShooting" + Me.cmdrowdeleteShooting.Size = New System.Drawing.Size(33, 22) + Me.cmdrowdeleteShooting.TabIndex = 1271 + Me.cmdrowdeleteShooting.UseVisualStyleBackColor = True + ' + 'tsShooting + ' + Me.tsShooting.Dock = System.Windows.Forms.DockStyle.None + Me.tsShooting.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.newShooting, Me.openShooting, Me.saveShooting, Me.ToolStripSeparator1, Me.ToolStripSeparator2}) + Me.tsShooting.Location = New System.Drawing.Point(10, 295) + Me.tsShooting.MaximumSize = New System.Drawing.Size(200, 200) + Me.tsShooting.Name = "tsShooting" + Me.tsShooting.Size = New System.Drawing.Size(93, 25) + Me.tsShooting.TabIndex = 1270 + Me.tsShooting.Text = "ToolStrip3" + ' + 'newShooting + ' + Me.newShooting.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.newShooting.Image = CType(resources.GetObject("newShooting.Image"), System.Drawing.Image) + Me.newShooting.ImageTransparentColor = System.Drawing.Color.Magenta + Me.newShooting.Name = "newShooting" + Me.newShooting.Size = New System.Drawing.Size(23, 22) + Me.newShooting.Text = "&New" + ' + 'openShooting + ' + Me.openShooting.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.openShooting.Image = CType(resources.GetObject("openShooting.Image"), System.Drawing.Image) + Me.openShooting.ImageTransparentColor = System.Drawing.Color.Magenta + Me.openShooting.Name = "openShooting" + Me.openShooting.Size = New System.Drawing.Size(23, 22) + Me.openShooting.Text = "&Open" + ' + 'saveShooting + ' + Me.saveShooting.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.saveShooting.Image = CType(resources.GetObject("saveShooting.Image"), System.Drawing.Image) + Me.saveShooting.ImageTransparentColor = System.Drawing.Color.Magenta + Me.saveShooting.Name = "saveShooting" + Me.saveShooting.Size = New System.Drawing.Size(23, 22) + Me.saveShooting.Text = "&Save" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'cmdrowdownShooting + ' + Me.cmdrowdownShooting.Image = CType(resources.GetObject("cmdrowdownShooting.Image"), System.Drawing.Image) + Me.cmdrowdownShooting.Location = New System.Drawing.Point(120, 297) + Me.cmdrowdownShooting.Name = "cmdrowdownShooting" + Me.cmdrowdownShooting.Size = New System.Drawing.Size(36, 23) + Me.cmdrowdownShooting.TabIndex = 1269 + Me.cmdrowdownShooting.UseVisualStyleBackColor = True + ' + 'cmdrowinsertShooting + ' + Me.cmdrowinsertShooting.Image = CType(resources.GetObject("cmdrowinsertShooting.Image"), System.Drawing.Image) + Me.cmdrowinsertShooting.Location = New System.Drawing.Point(157, 297) + Me.cmdrowinsertShooting.Name = "cmdrowinsertShooting" + Me.cmdrowinsertShooting.Size = New System.Drawing.Size(34, 23) + Me.cmdrowinsertShooting.TabIndex = 1268 + Me.cmdrowinsertShooting.UseVisualStyleBackColor = True + ' + 'cmdplayeridShooting + ' + Me.cmdplayeridShooting.Location = New System.Drawing.Point(5, 89) + Me.cmdplayeridShooting.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayeridShooting.Name = "cmdplayeridShooting" + Me.cmdplayeridShooting.Size = New System.Drawing.Size(72, 23) + Me.cmdplayeridShooting.TabIndex = 1267 + Me.cmdplayeridShooting.Text = "Player ID" + Me.cmdplayeridShooting.UseVisualStyleBackColor = True + ' + 'cmdShootingstartlist2 + ' + Me.cmdShootingstartlist2.Location = New System.Drawing.Point(6, 47) + Me.cmdShootingstartlist2.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdShootingstartlist2.Name = "cmdShootingstartlist2" + Me.cmdShootingstartlist2.Size = New System.Drawing.Size(72, 36) + Me.cmdShootingstartlist2.TabIndex = 1265 + Me.cmdShootingstartlist2.Text = "Country List2" + Me.cmdShootingstartlist2.UseVisualStyleBackColor = True + ' + 'cmdShootingstartlist1 + ' + Me.cmdShootingstartlist1.Location = New System.Drawing.Point(6, 6) + Me.cmdShootingstartlist1.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdShootingstartlist1.Name = "cmdShootingstartlist1" + Me.cmdShootingstartlist1.Size = New System.Drawing.Size(72, 39) + Me.cmdShootingstartlist1.TabIndex = 1264 + Me.cmdShootingstartlist1.Text = "Country List1" + Me.cmdShootingstartlist1.UseVisualStyleBackColor = True + ' + 'dgvShooting + ' + Me.dgvShooting.AccessibleRole = System.Windows.Forms.AccessibleRole.SplitButton + Me.dgvShooting.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvShooting.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewComboBoxColumn1, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn11, Me.DataGridViewTextBoxColumn12, Me.DataGridViewTextBoxColumn13, Me.DataGridViewTextBoxColumn14, Me.DataGridViewTextBoxColumn15, Me.DataGridViewTextBoxColumn16, Me.DataGridViewTextBoxColumn17, Me.DataGridViewTextBoxColumn18, Me.DataGridViewTextBoxColumn19, Me.DataGridViewTextBoxColumn20, Me.DataGridViewTextBoxColumn21, Me.DataGridViewTextBoxColumn22, Me.DataGridViewTextBoxColumn23, Me.Column30, Me.Column31, Me.Column32, Me.Column33, Me.Column34, Me.DataGridViewTextBoxColumn24, Me.Column35, Me.Column36, Me.Column37, Me.Column38, Me.Column39, Me.Column40}) + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvShooting.DefaultCellStyle = DataGridViewCellStyle8 + Me.dgvShooting.EditMode = System.Windows.Forms.DataGridViewEditMode.EditOnEnter + Me.dgvShooting.Location = New System.Drawing.Point(4, 343) + Me.dgvShooting.Name = "dgvShooting" + Me.dgvShooting.RowTemplate.Height = 24 + Me.dgvShooting.Size = New System.Drawing.Size(1277, 235) + Me.dgvShooting.TabIndex = 1262 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.Frozen = True + Me.DataGridViewTextBoxColumn1.HeaderText = "SN" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.Width = 25 + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.Frozen = True + Me.DataGridViewTextBoxColumn2.HeaderText = "Name" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.Width = 125 + ' + 'DataGridViewComboBoxColumn1 + ' + Me.DataGridViewComboBoxColumn1.Frozen = True + Me.DataGridViewComboBoxColumn1.HeaderText = "Country" + Me.DataGridViewComboBoxColumn1.Items.AddRange(New Object() {"BLK", "A_N", "AP", "ARP", "ASM", "BIH", "CG", "CHA", "D_D", "DEL", "DNH", "GOA", "GUJ", "HAR", "HP", "J_K", "JHA", "KAR", "KER", "LD", "MAH", "MAN", "MGA", "MIZ", "MP", "NAG", "ORI", "PON", "PUN", "EAJ", "SER", "SIK", "TN", "TRI", "TS", "UK", "UP", "WB"}) + Me.DataGridViewComboBoxColumn1.Name = "DataGridViewComboBoxColumn1" + Me.DataGridViewComboBoxColumn1.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewComboBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic + Me.DataGridViewComboBoxColumn1.Width = 55 + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.HeaderText = "Qaulification" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.Width = 45 + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.HeaderText = "1" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.Width = 45 + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.HeaderText = "2" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.Width = 45 + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.HeaderText = "3" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.Width = 45 + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.HeaderText = "4" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.Width = 45 + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.HeaderText = "5" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.Width = 45 + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.HeaderText = "6" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.Width = 45 + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.HeaderText = "7" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + Me.DataGridViewTextBoxColumn10.Width = 45 + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.HeaderText = "8" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + Me.DataGridViewTextBoxColumn11.Width = 45 + ' + 'DataGridViewTextBoxColumn12 + ' + Me.DataGridViewTextBoxColumn12.HeaderText = "9" + Me.DataGridViewTextBoxColumn12.Name = "DataGridViewTextBoxColumn12" + Me.DataGridViewTextBoxColumn12.Width = 45 + ' + 'DataGridViewTextBoxColumn13 + ' + Me.DataGridViewTextBoxColumn13.HeaderText = "10" + Me.DataGridViewTextBoxColumn13.Name = "DataGridViewTextBoxColumn13" + Me.DataGridViewTextBoxColumn13.Width = 45 + ' + 'DataGridViewTextBoxColumn14 + ' + Me.DataGridViewTextBoxColumn14.HeaderText = "11" + Me.DataGridViewTextBoxColumn14.Name = "DataGridViewTextBoxColumn14" + Me.DataGridViewTextBoxColumn14.Width = 45 + ' + 'DataGridViewTextBoxColumn15 + ' + Me.DataGridViewTextBoxColumn15.HeaderText = "12" + Me.DataGridViewTextBoxColumn15.Name = "DataGridViewTextBoxColumn15" + Me.DataGridViewTextBoxColumn15.Width = 45 + ' + 'DataGridViewTextBoxColumn16 + ' + Me.DataGridViewTextBoxColumn16.HeaderText = "13" + Me.DataGridViewTextBoxColumn16.Name = "DataGridViewTextBoxColumn16" + Me.DataGridViewTextBoxColumn16.Width = 45 + ' + 'DataGridViewTextBoxColumn17 + ' + Me.DataGridViewTextBoxColumn17.HeaderText = "14" + Me.DataGridViewTextBoxColumn17.Name = "DataGridViewTextBoxColumn17" + Me.DataGridViewTextBoxColumn17.Width = 45 + ' + 'DataGridViewTextBoxColumn18 + ' + Me.DataGridViewTextBoxColumn18.HeaderText = "15" + Me.DataGridViewTextBoxColumn18.Name = "DataGridViewTextBoxColumn18" + Me.DataGridViewTextBoxColumn18.Width = 45 + ' + 'DataGridViewTextBoxColumn19 + ' + Me.DataGridViewTextBoxColumn19.HeaderText = "16" + Me.DataGridViewTextBoxColumn19.Name = "DataGridViewTextBoxColumn19" + Me.DataGridViewTextBoxColumn19.Width = 45 + ' + 'DataGridViewTextBoxColumn20 + ' + Me.DataGridViewTextBoxColumn20.HeaderText = "17" + Me.DataGridViewTextBoxColumn20.Name = "DataGridViewTextBoxColumn20" + Me.DataGridViewTextBoxColumn20.Width = 45 + ' + 'DataGridViewTextBoxColumn21 + ' + Me.DataGridViewTextBoxColumn21.HeaderText = "18" + Me.DataGridViewTextBoxColumn21.Name = "DataGridViewTextBoxColumn21" + Me.DataGridViewTextBoxColumn21.Width = 45 + ' + 'DataGridViewTextBoxColumn22 + ' + Me.DataGridViewTextBoxColumn22.HeaderText = "19" + Me.DataGridViewTextBoxColumn22.Name = "DataGridViewTextBoxColumn22" + Me.DataGridViewTextBoxColumn22.Width = 45 + ' + 'DataGridViewTextBoxColumn23 + ' + Me.DataGridViewTextBoxColumn23.HeaderText = "20" + Me.DataGridViewTextBoxColumn23.Name = "DataGridViewTextBoxColumn23" + Me.DataGridViewTextBoxColumn23.Width = 45 + ' + 'Column30 + ' + Me.Column30.HeaderText = "21" + Me.Column30.Name = "Column30" + Me.Column30.Width = 45 + ' + 'Column31 + ' + Me.Column31.HeaderText = "22" + Me.Column31.Name = "Column31" + Me.Column31.Width = 45 + ' + 'Column32 + ' + Me.Column32.HeaderText = "23" + Me.Column32.Name = "Column32" + Me.Column32.Width = 45 + ' + 'Column33 + ' + Me.Column33.HeaderText = "24" + Me.Column33.Name = "Column33" + Me.Column33.Width = 45 + ' + 'Column34 + ' + Me.Column34.HeaderText = "25" + Me.Column34.Name = "Column34" + Me.Column34.Width = 45 + ' + 'DataGridViewTextBoxColumn24 + ' + Me.DataGridViewTextBoxColumn24.HeaderText = "Final" + Me.DataGridViewTextBoxColumn24.Name = "DataGridViewTextBoxColumn24" + Me.DataGridViewTextBoxColumn24.Width = 45 + ' + 'Column35 + ' + Me.Column35.HeaderText = "s1" + Me.Column35.Name = "Column35" + Me.Column35.Width = 30 + ' + 'Column36 + ' + Me.Column36.HeaderText = "s2" + Me.Column36.Name = "Column36" + Me.Column36.Width = 30 + ' + 'Column37 + ' + Me.Column37.HeaderText = "s3" + Me.Column37.Name = "Column37" + Me.Column37.Width = 30 + ' + 'Column38 + ' + Me.Column38.HeaderText = "s4" + Me.Column38.Name = "Column38" + Me.Column38.Width = 30 + ' + 'Column39 + ' + Me.Column39.HeaderText = "s5" + Me.Column39.Name = "Column39" + Me.Column39.Width = 30 + ' + 'Column40 + ' + Me.Column40.HeaderText = "points" + Me.Column40.Name = "Column40" + Me.Column40.Width = 30 + ' + 'TT_Badminton + ' + Me.TT_Badminton.Controls.Add(Me.gbtt) + Me.TT_Badminton.Location = New System.Drawing.Point(4, 22) + Me.TT_Badminton.Name = "TT_Badminton" + Me.TT_Badminton.Padding = New System.Windows.Forms.Padding(3) + Me.TT_Badminton.Size = New System.Drawing.Size(1331, 685) + Me.TT_Badminton.TabIndex = 5 + Me.TT_Badminton.Text = "TT/Badminton" + Me.TT_Badminton.UseVisualStyleBackColor = True + ' + 'gbtt + ' + Me.gbtt.BackColor = System.Drawing.SystemColors.GradientActiveCaption + Me.gbtt.Controls.Add(Me.GroupBox27) + Me.gbtt.Controls.Add(Me.GroupBox26) + Me.gbtt.Controls.Add(Me.gbsetscorett) + Me.gbtt.Controls.Add(Me.gbscorett) + Me.gbtt.Controls.Add(Me.gbpointindicatertt) + Me.gbtt.Location = New System.Drawing.Point(6, 7) + Me.gbtt.Name = "gbtt" + Me.gbtt.Size = New System.Drawing.Size(520, 318) + Me.gbtt.TabIndex = 1157 + Me.gbtt.TabStop = False + Me.gbtt.Text = "Tennis/Badminton" + ' + 'GroupBox27 + ' + Me.GroupBox27.BackColor = System.Drawing.SystemColors.Highlight + Me.GroupBox27.Controls.Add(Me.rdolawntennis) + Me.GroupBox27.Location = New System.Drawing.Point(11, 268) + Me.GroupBox27.Name = "GroupBox27" + Me.GroupBox27.Size = New System.Drawing.Size(99, 42) + Me.GroupBox27.TabIndex = 1143 + Me.GroupBox27.TabStop = False + Me.GroupBox27.Text = "Game" + ' + 'rdolawntennis + ' + Me.rdolawntennis.AutoSize = True + Me.rdolawntennis.Location = New System.Drawing.Point(6, 14) + Me.rdolawntennis.Name = "rdolawntennis" + Me.rdolawntennis.Size = New System.Drawing.Size(86, 17) + Me.rdolawntennis.TabIndex = 448 + Me.rdolawntennis.Text = "Lawn Tennis" + Me.rdolawntennis.UseVisualStyleBackColor = True + ' + 'GroupBox26 + ' + Me.GroupBox26.BackColor = System.Drawing.Color.LemonChiffon + Me.GroupBox26.Controls.Add(Me.cmdpositionhorizontaltt) + Me.GroupBox26.Controls.Add(Me.rdoreversepositiontt) + Me.GroupBox26.Controls.Add(Me.rdostraightposiontt) + Me.GroupBox26.Controls.Add(Me.cmdpositiontt) + Me.GroupBox26.Location = New System.Drawing.Point(317, 232) + Me.GroupBox26.Name = "GroupBox26" + Me.GroupBox26.Size = New System.Drawing.Size(198, 51) + Me.GroupBox26.TabIndex = 671 + Me.GroupBox26.TabStop = False + Me.GroupBox26.Text = "Position" + ' + 'cmdpositionhorizontaltt + ' + Me.cmdpositionhorizontaltt.Location = New System.Drawing.Point(134, 11) + Me.cmdpositionhorizontaltt.Name = "cmdpositionhorizontaltt" + Me.cmdpositionhorizontaltt.Size = New System.Drawing.Size(60, 36) + Me.cmdpositionhorizontaltt.TabIndex = 1158 + Me.cmdpositionhorizontaltt.Text = "Position Horizontal" + Me.cmdpositionhorizontaltt.UseVisualStyleBackColor = True + ' + 'rdoreversepositiontt + ' + Me.rdoreversepositiontt.AutoSize = True + Me.rdoreversepositiontt.Location = New System.Drawing.Point(6, 31) + Me.rdoreversepositiontt.Name = "rdoreversepositiontt" + Me.rdoreversepositiontt.Size = New System.Drawing.Size(65, 17) + Me.rdoreversepositiontt.TabIndex = 447 + Me.rdoreversepositiontt.Text = "Reverse" + Me.rdoreversepositiontt.UseVisualStyleBackColor = True + ' + 'rdostraightposiontt + ' + Me.rdostraightposiontt.AutoSize = True + Me.rdostraightposiontt.Checked = True + Me.rdostraightposiontt.Location = New System.Drawing.Point(6, 15) + Me.rdostraightposiontt.Name = "rdostraightposiontt" + Me.rdostraightposiontt.Size = New System.Drawing.Size(61, 17) + Me.rdostraightposiontt.TabIndex = 446 + Me.rdostraightposiontt.TabStop = True + Me.rdostraightposiontt.Text = "Straight" + Me.rdostraightposiontt.UseVisualStyleBackColor = True + ' + 'cmdpositiontt + ' + Me.cmdpositiontt.Location = New System.Drawing.Point(66, 11) + Me.cmdpositiontt.Name = "cmdpositiontt" + Me.cmdpositiontt.Size = New System.Drawing.Size(65, 36) + Me.cmdpositiontt.TabIndex = 1157 + Me.cmdpositiontt.Text = "Position Vertical" + Me.cmdpositiontt.UseVisualStyleBackColor = True + ' + 'gbsetscorett + ' + Me.gbsetscorett.BackColor = System.Drawing.Color.Aquamarine + Me.gbsetscorett.Controls.Add(Me.cmdscoreresettt) + Me.gbsetscorett.Controls.Add(Me.GroupBox28) + Me.gbsetscorett.Controls.Add(Me.cmdshowsetscorett) + Me.gbsetscorett.Controls.Add(Me.dgvsetscorett) + Me.gbsetscorett.Location = New System.Drawing.Point(5, 154) + Me.gbsetscorett.Name = "gbsetscorett" + Me.gbsetscorett.Size = New System.Drawing.Size(308, 108) + Me.gbsetscorett.TabIndex = 1142 + Me.gbsetscorett.TabStop = False + Me.gbsetscorett.Text = "SetScore" + ' + 'cmdscoreresettt + ' + Me.cmdscoreresettt.Location = New System.Drawing.Point(255, 47) + Me.cmdscoreresettt.Name = "cmdscoreresettt" + Me.cmdscoreresettt.Size = New System.Drawing.Size(47, 41) + Me.cmdscoreresettt.TabIndex = 1136 + Me.cmdscoreresettt.Text = "Score Reset" + Me.cmdscoreresettt.UseVisualStyleBackColor = True + ' + 'GroupBox28 + ' + Me.GroupBox28.Controls.Add(Me.rdo7settt) + Me.GroupBox28.Controls.Add(Me.rdo5settt) + Me.GroupBox28.Controls.Add(Me.rdo3settt) + Me.GroupBox28.Location = New System.Drawing.Point(213, 14) + Me.GroupBox28.Name = "GroupBox28" + Me.GroupBox28.Size = New System.Drawing.Size(38, 74) + Me.GroupBox28.TabIndex = 667 + Me.GroupBox28.TabStop = False + Me.GroupBox28.Text = "Set" + ' + 'rdo7settt + ' + Me.rdo7settt.AutoSize = True + Me.rdo7settt.Location = New System.Drawing.Point(4, 51) + Me.rdo7settt.Name = "rdo7settt" + Me.rdo7settt.Size = New System.Drawing.Size(31, 17) + Me.rdo7settt.TabIndex = 666 + Me.rdo7settt.Text = "7" + Me.rdo7settt.UseVisualStyleBackColor = True + ' + 'rdo5settt + ' + Me.rdo5settt.AutoSize = True + Me.rdo5settt.Checked = True + Me.rdo5settt.Location = New System.Drawing.Point(4, 33) + Me.rdo5settt.Name = "rdo5settt" + Me.rdo5settt.Size = New System.Drawing.Size(31, 17) + Me.rdo5settt.TabIndex = 665 + Me.rdo5settt.TabStop = True + Me.rdo5settt.Text = "5" + Me.rdo5settt.UseVisualStyleBackColor = True + ' + 'rdo3settt + ' + Me.rdo3settt.AutoSize = True + Me.rdo3settt.Location = New System.Drawing.Point(4, 15) + Me.rdo3settt.Name = "rdo3settt" + Me.rdo3settt.Size = New System.Drawing.Size(31, 17) + Me.rdo3settt.TabIndex = 664 + Me.rdo3settt.Text = "3" + Me.rdo3settt.UseVisualStyleBackColor = True + ' + 'cmdshowsetscorett + ' + Me.cmdshowsetscorett.Location = New System.Drawing.Point(255, 14) + Me.cmdshowsetscorett.Name = "cmdshowsetscorett" + Me.cmdshowsetscorett.Size = New System.Drawing.Size(47, 32) + Me.cmdshowsetscorett.TabIndex = 662 + Me.cmdshowsetscorett.Text = "Show" + Me.cmdshowsetscorett.UseVisualStyleBackColor = True + ' + 'dgvsetscorett + ' + Me.dgvsetscorett.AllowUserToAddRows = False + Me.dgvsetscorett.AllowUserToResizeColumns = False + Me.dgvsetscorett.AllowUserToResizeRows = False + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvsetscorett.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 + Me.dgvsetscorett.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvsetscorett.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn33, Me.DataGridViewTextBoxColumn35, Me.DataGridViewTextBoxColumn36, Me.DataGridViewTextBoxColumn37, Me.DataGridViewTextBoxColumn38, Me.DataGridViewTextBoxColumn39, Me.DataGridViewTextBoxColumn40}) + DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvsetscorett.DefaultCellStyle = DataGridViewCellStyle10 + Me.dgvsetscorett.EditMode = System.Windows.Forms.DataGridViewEditMode.EditOnEnter + Me.dgvsetscorett.Location = New System.Drawing.Point(8, 14) + Me.dgvsetscorett.Name = "dgvsetscorett" + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvsetscorett.RowHeadersDefaultCellStyle = DataGridViewCellStyle11 + Me.dgvsetscorett.Size = New System.Drawing.Size(200, 85) + Me.dgvsetscorett.TabIndex = 661 + ' + 'DataGridViewTextBoxColumn33 + ' + Me.DataGridViewTextBoxColumn33.HeaderText = "1" + Me.DataGridViewTextBoxColumn33.Name = "DataGridViewTextBoxColumn33" + Me.DataGridViewTextBoxColumn33.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn33.Width = 20 + ' + 'DataGridViewTextBoxColumn35 + ' + Me.DataGridViewTextBoxColumn35.HeaderText = "2" + Me.DataGridViewTextBoxColumn35.Name = "DataGridViewTextBoxColumn35" + Me.DataGridViewTextBoxColumn35.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn35.Width = 20 + ' + 'DataGridViewTextBoxColumn36 + ' + Me.DataGridViewTextBoxColumn36.HeaderText = "3" + Me.DataGridViewTextBoxColumn36.Name = "DataGridViewTextBoxColumn36" + Me.DataGridViewTextBoxColumn36.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn36.Width = 20 + ' + 'DataGridViewTextBoxColumn37 + ' + Me.DataGridViewTextBoxColumn37.HeaderText = "4" + Me.DataGridViewTextBoxColumn37.Name = "DataGridViewTextBoxColumn37" + Me.DataGridViewTextBoxColumn37.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn37.Width = 20 + ' + 'DataGridViewTextBoxColumn38 + ' + Me.DataGridViewTextBoxColumn38.HeaderText = "5" + Me.DataGridViewTextBoxColumn38.Name = "DataGridViewTextBoxColumn38" + Me.DataGridViewTextBoxColumn38.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn38.Width = 20 + ' + 'DataGridViewTextBoxColumn39 + ' + Me.DataGridViewTextBoxColumn39.HeaderText = "6" + Me.DataGridViewTextBoxColumn39.Name = "DataGridViewTextBoxColumn39" + Me.DataGridViewTextBoxColumn39.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn39.Width = 20 + ' + 'DataGridViewTextBoxColumn40 + ' + Me.DataGridViewTextBoxColumn40.HeaderText = "7" + Me.DataGridViewTextBoxColumn40.Name = "DataGridViewTextBoxColumn40" + Me.DataGridViewTextBoxColumn40.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn40.Width = 20 + ' + 'gbscorett + ' + Me.gbscorett.BackColor = System.Drawing.Color.Pink + Me.gbscorett.Controls.Add(Me.chkshowsettt) + Me.gbscorett.Controls.Add(Me.Label206) + Me.gbscorett.Controls.Add(Me.txtset2tt) + Me.gbscorett.Controls.Add(Me.txtset1tt) + Me.gbscorett.Controls.Add(Me.cmdversustt) + Me.gbscorett.Controls.Add(Me.cmdupdatescore1tt) + Me.gbscorett.Controls.Add(Me.cmdshowscore1tt) + Me.gbscorett.Controls.Add(Me.cmdpointdecreaset2tt) + Me.gbscorett.Controls.Add(Me.cmdpointdecreaset1tt) + Me.gbscorett.Controls.Add(Me.cmdresetscorett) + Me.gbscorett.Controls.Add(Me.cmdpointincreaset2tt) + Me.gbscorett.Controls.Add(Me.cmdpointincreaset1tt) + Me.gbscorett.Controls.Add(Me.cmdupdatescorett) + Me.gbscorett.Controls.Add(Me.GroupBox29) + Me.gbscorett.Controls.Add(Me.chkshowservicett) + Me.gbscorett.Controls.Add(Me.txtshortnamet2tt) + Me.gbscorett.Controls.Add(Me.txtshortnamet1tt) + Me.gbscorett.Controls.Add(Me.txtfullnamet2tt) + Me.gbscorett.Controls.Add(Me.txtfullnamet1tt) + Me.gbscorett.Controls.Add(Me.Label48) + Me.gbscorett.Controls.Add(Me.Label87) + Me.gbscorett.Controls.Add(Me.Label165) + Me.gbscorett.Controls.Add(Me.pict2tt) + Me.gbscorett.Controls.Add(Me.pict1tt) + Me.gbscorett.Controls.Add(Me.txtpointt2tt) + Me.gbscorett.Controls.Add(Me.txtpointt1tt) + Me.gbscorett.Controls.Add(Me.txtgamet2tt) + Me.gbscorett.Controls.Add(Me.txtgamet1tt) + Me.gbscorett.Controls.Add(Me.cmdshowscorett) + Me.gbscorett.Location = New System.Drawing.Point(6, 19) + Me.gbscorett.Name = "gbscorett" + Me.gbscorett.Size = New System.Drawing.Size(487, 129) + Me.gbscorett.TabIndex = 1141 + Me.gbscorett.TabStop = False + Me.gbscorett.Text = "Score" + ' + 'chkshowsettt + ' + Me.chkshowsettt.AutoSize = True + Me.chkshowsettt.Location = New System.Drawing.Point(219, 109) + Me.chkshowsettt.Name = "chkshowsettt" + Me.chkshowsettt.Size = New System.Drawing.Size(139, 17) + Me.chkshowsettt.TabIndex = 1148 + Me.chkshowsettt.Text = "Show Set in lawn tennis" + Me.chkshowsettt.UseVisualStyleBackColor = True + ' + 'Label206 + ' + Me.Label206.AutoSize = True + Me.Label206.Location = New System.Drawing.Point(216, 18) + Me.Label206.Name = "Label206" + Me.Label206.Size = New System.Drawing.Size(23, 13) + Me.Label206.TabIndex = 1147 + Me.Label206.Text = "Set" + ' + 'txtset2tt + ' + Me.txtset2tt.Location = New System.Drawing.Point(218, 62) + Me.txtset2tt.Name = "txtset2tt" + Me.txtset2tt.Size = New System.Drawing.Size(21, 20) + Me.txtset2tt.TabIndex = 1146 + Me.txtset2tt.Text = "2" + ' + 'txtset1tt + ' + Me.txtset1tt.Location = New System.Drawing.Point(217, 35) + Me.txtset1tt.Name = "txtset1tt" + Me.txtset1tt.Size = New System.Drawing.Size(22, 20) + Me.txtset1tt.TabIndex = 1145 + Me.txtset1tt.Text = "1" + ' + 'cmdversustt + ' + Me.cmdversustt.Location = New System.Drawing.Point(38, 85) + Me.cmdversustt.Name = "cmdversustt" + Me.cmdversustt.Size = New System.Drawing.Size(47, 40) + Me.cmdversustt.TabIndex = 1135 + Me.cmdversustt.Text = "Versus" + Me.cmdversustt.UseVisualStyleBackColor = True + ' + 'cmdupdatescore1tt + ' + Me.cmdupdatescore1tt.Location = New System.Drawing.Point(423, 70) + Me.cmdupdatescore1tt.Name = "cmdupdatescore1tt" + Me.cmdupdatescore1tt.Size = New System.Drawing.Size(54, 27) + Me.cmdupdatescore1tt.TabIndex = 1144 + Me.cmdupdatescore1tt.Text = "Update" + Me.cmdupdatescore1tt.UseVisualStyleBackColor = True + ' + 'cmdshowscore1tt + ' + Me.cmdshowscore1tt.Location = New System.Drawing.Point(422, 19) + Me.cmdshowscore1tt.Name = "cmdshowscore1tt" + Me.cmdshowscore1tt.Size = New System.Drawing.Size(54, 48) + Me.cmdshowscore1tt.TabIndex = 1143 + Me.cmdshowscore1tt.Text = "Show Large name" + Me.cmdshowscore1tt.UseVisualStyleBackColor = True + ' + 'cmdpointdecreaset2tt + ' + Me.cmdpointdecreaset2tt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdpointdecreaset2tt.Location = New System.Drawing.Point(309, 85) + Me.cmdpointdecreaset2tt.Name = "cmdpointdecreaset2tt" + Me.cmdpointdecreaset2tt.Size = New System.Drawing.Size(24, 23) + Me.cmdpointdecreaset2tt.TabIndex = 1142 + Me.cmdpointdecreaset2tt.Text = "-" + Me.cmdpointdecreaset2tt.UseVisualStyleBackColor = True + ' + 'cmdpointdecreaset1tt + ' + Me.cmdpointdecreaset1tt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdpointdecreaset1tt.Location = New System.Drawing.Point(307, 7) + Me.cmdpointdecreaset1tt.Name = "cmdpointdecreaset1tt" + Me.cmdpointdecreaset1tt.Size = New System.Drawing.Size(24, 23) + Me.cmdpointdecreaset1tt.TabIndex = 1141 + Me.cmdpointdecreaset1tt.Text = "-" + Me.cmdpointdecreaset1tt.UseVisualStyleBackColor = True + ' + 'cmdresetscorett + ' + Me.cmdresetscorett.Location = New System.Drawing.Point(218, 82) + Me.cmdresetscorett.Name = "cmdresetscorett" + Me.cmdresetscorett.Size = New System.Drawing.Size(88, 25) + Me.cmdresetscorett.TabIndex = 1137 + Me.cmdresetscorett.Text = "Reset" + Me.cmdresetscorett.UseVisualStyleBackColor = True + ' + 'cmdpointincreaset2tt + ' + Me.cmdpointincreaset2tt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdpointincreaset2tt.Location = New System.Drawing.Point(307, 59) + Me.cmdpointincreaset2tt.Name = "cmdpointincreaset2tt" + Me.cmdpointincreaset2tt.Size = New System.Drawing.Size(24, 24) + Me.cmdpointincreaset2tt.TabIndex = 1140 + Me.cmdpointincreaset2tt.Text = "+" + Me.cmdpointincreaset2tt.UseVisualStyleBackColor = True + ' + 'cmdpointincreaset1tt + ' + Me.cmdpointincreaset1tt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdpointincreaset1tt.Location = New System.Drawing.Point(307, 31) + Me.cmdpointincreaset1tt.Name = "cmdpointincreaset1tt" + Me.cmdpointincreaset1tt.Size = New System.Drawing.Size(24, 25) + Me.cmdpointincreaset1tt.TabIndex = 1139 + Me.cmdpointincreaset1tt.Text = "+" + Me.cmdpointincreaset1tt.UseVisualStyleBackColor = True + ' + 'cmdupdatescorett + ' + Me.cmdupdatescorett.Location = New System.Drawing.Point(362, 57) + Me.cmdupdatescorett.Name = "cmdupdatescorett" + Me.cmdupdatescorett.Size = New System.Drawing.Size(54, 27) + Me.cmdupdatescorett.TabIndex = 1137 + Me.cmdupdatescorett.Text = "Update" + Me.cmdupdatescorett.UseVisualStyleBackColor = True + ' + 'GroupBox29 + ' + Me.GroupBox29.Controls.Add(Me.rdoservicet2tt) + Me.GroupBox29.Controls.Add(Me.rdoservicet1tt) + Me.GroupBox29.Location = New System.Drawing.Point(336, 23) + Me.GroupBox29.Name = "GroupBox29" + Me.GroupBox29.Size = New System.Drawing.Size(24, 63) + Me.GroupBox29.TabIndex = 669 + Me.GroupBox29.TabStop = False + Me.GroupBox29.Text = "S" + ' + 'rdoservicet2tt + ' + Me.rdoservicet2tt.AutoSize = True + Me.rdoservicet2tt.Location = New System.Drawing.Point(6, 42) + Me.rdoservicet2tt.Name = "rdoservicet2tt" + Me.rdoservicet2tt.Size = New System.Drawing.Size(14, 13) + Me.rdoservicet2tt.TabIndex = 447 + Me.rdoservicet2tt.UseVisualStyleBackColor = True + ' + 'rdoservicet1tt + ' + Me.rdoservicet1tt.AutoSize = True + Me.rdoservicet1tt.Checked = True + Me.rdoservicet1tt.Location = New System.Drawing.Point(6, 15) + Me.rdoservicet1tt.Name = "rdoservicet1tt" + Me.rdoservicet1tt.Size = New System.Drawing.Size(14, 13) + Me.rdoservicet1tt.TabIndex = 446 + Me.rdoservicet1tt.TabStop = True + Me.rdoservicet1tt.UseVisualStyleBackColor = True + ' + 'chkshowservicett + ' + Me.chkshowservicett.AutoSize = True + Me.chkshowservicett.Checked = True + Me.chkshowservicett.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkshowservicett.Location = New System.Drawing.Point(342, 91) + Me.chkshowservicett.Name = "chkshowservicett" + Me.chkshowservicett.Size = New System.Drawing.Size(92, 17) + Me.chkshowservicett.TabIndex = 454 + Me.chkshowservicett.Text = "Show Service" + Me.chkshowservicett.UseVisualStyleBackColor = True + ' + 'txtshortnamet2tt + ' + Me.txtshortnamet2tt.Location = New System.Drawing.Point(170, 61) + Me.txtshortnamet2tt.Name = "txtshortnamet2tt" + Me.txtshortnamet2tt.Size = New System.Drawing.Size(42, 20) + Me.txtshortnamet2tt.TabIndex = 452 + Me.txtshortnamet2tt.Text = "IND" + ' + 'txtshortnamet1tt + ' + Me.txtshortnamet1tt.Location = New System.Drawing.Point(170, 35) + Me.txtshortnamet1tt.Name = "txtshortnamet1tt" + Me.txtshortnamet1tt.Size = New System.Drawing.Size(42, 20) + Me.txtshortnamet1tt.TabIndex = 451 + Me.txtshortnamet1tt.Text = "PAK" + ' + 'txtfullnamet2tt + ' + Me.txtfullnamet2tt.Location = New System.Drawing.Point(5, 62) + Me.txtfullnamet2tt.Name = "txtfullnamet2tt" + Me.txtfullnamet2tt.Size = New System.Drawing.Size(118, 20) + Me.txtfullnamet2tt.TabIndex = 450 + Me.txtfullnamet2tt.Text = "INDIA" + ' + 'txtfullnamet1tt + ' + Me.txtfullnamet1tt.Location = New System.Drawing.Point(5, 36) + Me.txtfullnamet1tt.Name = "txtfullnamet1tt" + Me.txtfullnamet1tt.Size = New System.Drawing.Size(118, 20) + Me.txtfullnamet1tt.TabIndex = 449 + Me.txtfullnamet1tt.Text = "PAKISTAN" + ' + 'Label48 + ' + Me.Label48.AutoSize = True + Me.Label48.Location = New System.Drawing.Point(170, 19) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(27, 13) + Me.Label48.TabIndex = 445 + Me.Label48.Text = "Flag" + ' + 'Label87 + ' + Me.Label87.AutoSize = True + Me.Label87.Location = New System.Drawing.Point(279, 17) + Me.Label87.Name = "Label87" + Me.Label87.Size = New System.Drawing.Size(31, 13) + Me.Label87.TabIndex = 444 + Me.Label87.Text = "Point" + ' + 'Label165 + ' + Me.Label165.AutoSize = True + Me.Label165.Location = New System.Drawing.Point(244, 17) + Me.Label165.Name = "Label165" + Me.Label165.Size = New System.Drawing.Size(35, 13) + Me.Label165.TabIndex = 443 + Me.Label165.Text = "Game" + ' + 'pict2tt + ' + Me.pict2tt.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.pict2tt.ImageLocation = "c:\casparcg\mydata\flag\india.png" + Me.pict2tt.InitialImage = CType(resources.GetObject("pict2tt.InitialImage"), System.Drawing.Image) + Me.pict2tt.Location = New System.Drawing.Point(126, 62) + Me.pict2tt.Name = "pict2tt" + Me.pict2tt.Size = New System.Drawing.Size(38, 24) + Me.pict2tt.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pict2tt.TabIndex = 442 + Me.pict2tt.TabStop = False + ' + 'pict1tt + ' + Me.pict1tt.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.pict1tt.ImageLocation = "c:\casparcg\mydata\flag\PAKISTAN.png" + Me.pict1tt.InitialImage = CType(resources.GetObject("pict1tt.InitialImage"), System.Drawing.Image) + Me.pict1tt.Location = New System.Drawing.Point(126, 32) + Me.pict1tt.Name = "pict1tt" + Me.pict1tt.Size = New System.Drawing.Size(38, 24) + Me.pict1tt.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pict1tt.TabIndex = 441 + Me.pict1tt.TabStop = False + ' + 'txtpointt2tt + ' + Me.txtpointt2tt.Location = New System.Drawing.Point(281, 60) + Me.txtpointt2tt.Name = "txtpointt2tt" + Me.txtpointt2tt.Size = New System.Drawing.Size(23, 20) + Me.txtpointt2tt.TabIndex = 440 + Me.txtpointt2tt.Text = "15" + ' + 'txtpointt1tt + ' + Me.txtpointt1tt.Location = New System.Drawing.Point(281, 33) + Me.txtpointt1tt.Name = "txtpointt1tt" + Me.txtpointt1tt.Size = New System.Drawing.Size(24, 20) + Me.txtpointt1tt.TabIndex = 439 + Me.txtpointt1tt.Text = "0" + ' + 'txtgamet2tt + ' + Me.txtgamet2tt.Location = New System.Drawing.Point(248, 61) + Me.txtgamet2tt.Name = "txtgamet2tt" + Me.txtgamet2tt.Size = New System.Drawing.Size(27, 20) + Me.txtgamet2tt.TabIndex = 438 + Me.txtgamet2tt.Text = "33" + ' + 'txtgamet1tt + ' + Me.txtgamet1tt.Location = New System.Drawing.Point(247, 34) + Me.txtgamet1tt.Name = "txtgamet1tt" + Me.txtgamet1tt.Size = New System.Drawing.Size(28, 20) + Me.txtgamet1tt.TabIndex = 437 + Me.txtgamet1tt.Text = "22" + ' + 'cmdshowscorett + ' + Me.cmdshowscorett.Location = New System.Drawing.Point(362, 21) + Me.cmdshowscorett.Name = "cmdshowscorett" + Me.cmdshowscorett.Size = New System.Drawing.Size(54, 32) + Me.cmdshowscorett.TabIndex = 436 + Me.cmdshowscorett.Text = "Show" + Me.cmdshowscorett.UseVisualStyleBackColor = True + ' + 'gbpointindicatertt + ' + Me.gbpointindicatertt.BackColor = System.Drawing.Color.Plum + Me.gbpointindicatertt.Controls.Add(Me.cmdpontindicatert2tt) + Me.gbpointindicatertt.Controls.Add(Me.cmdleftotoptt) + Me.gbpointindicatertt.Controls.Add(Me.cmdpontindicatert1tt) + Me.gbpointindicatertt.Controls.Add(Me.cmblefttoptt) + Me.gbpointindicatertt.Location = New System.Drawing.Point(318, 153) + Me.gbpointindicatertt.Name = "gbpointindicatertt" + Me.gbpointindicatertt.Size = New System.Drawing.Size(173, 72) + Me.gbpointindicatertt.TabIndex = 1134 + Me.gbpointindicatertt.TabStop = False + Me.gbpointindicatertt.Text = "Point Indicator" + ' + 'cmdpontindicatert2tt + ' + Me.cmdpontindicatert2tt.Location = New System.Drawing.Point(105, 15) + Me.cmdpontindicatert2tt.Name = "cmdpontindicatert2tt" + Me.cmdpontindicatert2tt.Size = New System.Drawing.Size(50, 23) + Me.cmdpontindicatert2tt.TabIndex = 1136 + Me.cmdpontindicatert2tt.Text = "Team2" + Me.cmdpontindicatert2tt.UseVisualStyleBackColor = True + ' + 'cmdleftotoptt + ' + Me.cmdleftotoptt.Location = New System.Drawing.Point(5, 16) + Me.cmdleftotoptt.Name = "cmdleftotoptt" + Me.cmdleftotoptt.Size = New System.Drawing.Size(50, 22) + Me.cmdleftotoptt.TabIndex = 1141 + Me.cmdleftotoptt.Text = "Show" + Me.cmdleftotoptt.UseVisualStyleBackColor = True + ' + 'cmdpontindicatert1tt + ' + Me.cmdpontindicatert1tt.Location = New System.Drawing.Point(55, 15) + Me.cmdpontindicatert1tt.Name = "cmdpontindicatert1tt" + Me.cmdpontindicatert1tt.Size = New System.Drawing.Size(50, 23) + Me.cmdpontindicatert1tt.TabIndex = 1135 + Me.cmdpontindicatert1tt.Text = "Team1" + Me.cmdpontindicatert1tt.UseVisualStyleBackColor = True + ' + 'cmblefttoptt + ' + Me.cmblefttoptt.FormattingEnabled = True + Me.cmblefttoptt.Items.AddRange(New Object() {"Time Out", "Highlights", "Expedite", "Deuce", "Advantage", "Double Hit", "Game Point", "Match Point", "Winner", "Advantage", "", "Advantage Server ", "Ad-In", "Advantage Receiver", "Ad-Out", "Tie-Break", "New ball", "Double Faults", "Break Point", "2nd Break Point", "Set Point", "3Rd Gold Medal point", "1 Challenge Remaining"}) + Me.cmblefttoptt.Location = New System.Drawing.Point(6, 43) + Me.cmblefttoptt.Name = "cmblefttoptt" + Me.cmblefttoptt.Size = New System.Drawing.Size(147, 21) + Me.cmblefttoptt.TabIndex = 1143 + Me.cmblefttoptt.Text = "Time Out" + ' + 'Cricket_Players_old_Recoed + ' + Me.Cricket_Players_old_Recoed.Controls.Add(Me.gbpor) + Me.Cricket_Players_old_Recoed.Location = New System.Drawing.Point(4, 22) + Me.Cricket_Players_old_Recoed.Name = "Cricket_Players_old_Recoed" + Me.Cricket_Players_old_Recoed.Size = New System.Drawing.Size(1331, 685) + Me.Cricket_Players_old_Recoed.TabIndex = 6 + Me.Cricket_Players_old_Recoed.Text = "Cricket Players old Recoed" + Me.Cricket_Players_old_Recoed.UseVisualStyleBackColor = True + ' + 'gbpor + ' + Me.gbpor.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.gbpor.Controls.Add(Me.BindingNavigator2) + Me.gbpor.Controls.Add(Me.BindingNavigator1) + Me.gbpor.Controls.Add(Me.txtcareer2) + Me.gbpor.Controls.Add(Me.txtcareer1) + Me.gbpor.Controls.Add(Me.txthighestscore4) + Me.gbpor.Controls.Add(Me.txthighestscore3) + Me.gbpor.Controls.Add(Me.image2) + Me.gbpor.Controls.Add(Me.logo2) + Me.gbpor.Controls.Add(Me.image1) + Me.gbpor.Controls.Add(Me.Label74) + Me.gbpor.Controls.Add(Me.Label75) + Me.gbpor.Controls.Add(Me.Label76) + Me.gbpor.Controls.Add(Me.Label77) + Me.gbpor.Controls.Add(Me.logo1) + Me.gbpor.Controls.Add(Me.Button3) + Me.gbpor.Controls.Add(Me.Label79) + Me.gbpor.Controls.Add(Me.Label80) + Me.gbpor.Controls.Add(Me.Label81) + Me.gbpor.Controls.Add(Me.Label82) + Me.gbpor.Controls.Add(Me.Button4) + Me.gbpor.Controls.Add(Me.cmd4) + Me.gbpor.Controls.Add(Me.cmd3) + Me.gbpor.Controls.Add(Me.txt50s8) + Me.gbpor.Controls.Add(Me.txt100s8) + Me.gbpor.Controls.Add(Me.txtaverage8) + Me.gbpor.Controls.Add(Me.txtinnings8) + Me.gbpor.Controls.Add(Me.txtmatches8) + Me.gbpor.Controls.Add(Me.txt50s7) + Me.gbpor.Controls.Add(Me.txt100s7) + Me.gbpor.Controls.Add(Me.txtaverage7) + Me.gbpor.Controls.Add(Me.txthighestscore7) + Me.gbpor.Controls.Add(Me.txtruns7) + Me.gbpor.Controls.Add(Me.txtinnings7) + Me.gbpor.Controls.Add(Me.txthighestscore8) + Me.gbpor.Controls.Add(Me.txtruns8) + Me.gbpor.Controls.Add(Me.txtmatches7) + Me.gbpor.Controls.Add(Me.txtecon6) + Me.gbpor.Controls.Add(Me.txt5w6) + Me.gbpor.Controls.Add(Me.txt4w6) + Me.gbpor.Controls.Add(Me.txtavg6) + Me.gbpor.Controls.Add(Me.txtbest6) + Me.gbpor.Controls.Add(Me.txtwickets6) + Me.gbpor.Controls.Add(Me.txtmatches6) + Me.gbpor.Controls.Add(Me.txtecon5) + Me.gbpor.Controls.Add(Me.txt5w5) + Me.gbpor.Controls.Add(Me.txt4w5) + Me.gbpor.Controls.Add(Me.txtavg5) + Me.gbpor.Controls.Add(Me.txtbest5) + Me.gbpor.Controls.Add(Me.txtwickets5) + Me.gbpor.Controls.Add(Me.txtmatches5) + Me.gbpor.Controls.Add(Me.Label83) + Me.gbpor.Controls.Add(Me.Label84) + Me.gbpor.Controls.Add(Me.txtplayerb) + Me.gbpor.Controls.Add(Me.txtteamb) + Me.gbpor.Controls.Add(Me.cmd2) + Me.gbpor.Controls.Add(Me.cmd1) + Me.gbpor.Controls.Add(Me.txt50s4) + Me.gbpor.Controls.Add(Me.txt100s4) + Me.gbpor.Controls.Add(Me.txtaverage4) + Me.gbpor.Controls.Add(Me.txtruns4) + Me.gbpor.Controls.Add(Me.txtinnings4) + Me.gbpor.Controls.Add(Me.txtmatches4) + Me.gbpor.Controls.Add(Me.txt50s3) + Me.gbpor.Controls.Add(Me.txt100s3) + Me.gbpor.Controls.Add(Me.txtaverage3) + Me.gbpor.Controls.Add(Me.txtruns3) + Me.gbpor.Controls.Add(Me.txtinnings3) + Me.gbpor.Controls.Add(Me.txtmatches3) + Me.gbpor.Controls.Add(Me.txtecon2) + Me.gbpor.Controls.Add(Me.txt5w2) + Me.gbpor.Controls.Add(Me.txt4w2) + Me.gbpor.Controls.Add(Me.txtavg2) + Me.gbpor.Controls.Add(Me.txtwickets2) + Me.gbpor.Controls.Add(Me.txtmatches2) + Me.gbpor.Controls.Add(Me.txtbest2) + Me.gbpor.Controls.Add(Me.txtecon1) + Me.gbpor.Controls.Add(Me.txt5w1) + Me.gbpor.Controls.Add(Me.txt4w1) + Me.gbpor.Controls.Add(Me.txtavg1) + Me.gbpor.Controls.Add(Me.txtbest1) + Me.gbpor.Controls.Add(Me.txtwickets1) + Me.gbpor.Controls.Add(Me.txtmatches1) + Me.gbpor.Controls.Add(Me.lblbatting) + Me.gbpor.Controls.Add(Me.lblbowling) + Me.gbpor.Controls.Add(Me.txtplayera) + Me.gbpor.Controls.Add(Me.txtteama) + Me.gbpor.Location = New System.Drawing.Point(30, 55) + Me.gbpor.Name = "gbpor" + Me.gbpor.Size = New System.Drawing.Size(805, 460) + Me.gbpor.TabIndex = 217 + Me.gbpor.TabStop = False + Me.gbpor.Text = "POR" + ' + 'BindingNavigator2 + ' + Me.BindingNavigator2.AddNewItem = Me.ToolStripButton2 + Me.BindingNavigator2.AutoSize = False + Me.BindingNavigator2.CountItem = Me.ToolStripLabel1 + Me.BindingNavigator2.DeleteItem = Me.ToolStripButton3 + Me.BindingNavigator2.Dock = System.Windows.Forms.DockStyle.None + Me.BindingNavigator2.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton4, Me.ToolStripButton5, Me.ToolStripSeparator11, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator12, Me.ToolStripButton6, Me.ToolStripButton7, Me.ToolStripSeparator13, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton8}) + Me.BindingNavigator2.Location = New System.Drawing.Point(470, 401) + Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton4 + Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton7 + Me.BindingNavigator2.MoveNextItem = Me.ToolStripButton6 + Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton5 + Me.BindingNavigator2.Name = "BindingNavigator2" + Me.BindingNavigator2.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0) + Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox1 + Me.BindingNavigator2.RenderMode = System.Windows.Forms.ToolStripRenderMode.System + Me.BindingNavigator2.Size = New System.Drawing.Size(250, 30) + Me.BindingNavigator2.TabIndex = 216 + Me.BindingNavigator2.Text = "BindingNavigator2" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Enabled = False + Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.RightToLeftAutoMirrorImage = True + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 20) + Me.ToolStripButton2.Text = "Add new" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(60, 27) + Me.ToolStripLabel1.Text = "of {0}" + Me.ToolStripLabel1.ToolTipText = "Total number of items" + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Enabled = False + Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.RightToLeftAutoMirrorImage = True + Me.ToolStripButton3.Size = New System.Drawing.Size(23, 20) + Me.ToolStripButton3.Text = "Delete" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image) + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.RightToLeftAutoMirrorImage = True + Me.ToolStripButton4.Size = New System.Drawing.Size(23, 27) + Me.ToolStripButton4.Text = "Move first" + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image) + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.RightToLeftAutoMirrorImage = True + Me.ToolStripButton5.Size = New System.Drawing.Size(23, 27) + Me.ToolStripButton5.Text = "Move previous" + ' + 'ToolStripSeparator11 + ' + Me.ToolStripSeparator11.Name = "ToolStripSeparator11" + Me.ToolStripSeparator11.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripTextBox1 + ' + Me.ToolStripTextBox1.AccessibleName = "Position" + Me.ToolStripTextBox1.AutoSize = False + Me.ToolStripTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.ToolStripTextBox1.Name = "ToolStripTextBox1" + Me.ToolStripTextBox1.Size = New System.Drawing.Size(50, 21) + Me.ToolStripTextBox1.Text = "0" + Me.ToolStripTextBox1.ToolTipText = "Current position" + ' + 'ToolStripSeparator12 + ' + Me.ToolStripSeparator12.Name = "ToolStripSeparator12" + Me.ToolStripSeparator12.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.RightToLeftAutoMirrorImage = True + Me.ToolStripButton6.Size = New System.Drawing.Size(23, 27) + Me.ToolStripButton6.Text = "Move next" + ' + 'ToolStripButton7 + ' + Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image) + Me.ToolStripButton7.Name = "ToolStripButton7" + Me.ToolStripButton7.RightToLeftAutoMirrorImage = True + Me.ToolStripButton7.Size = New System.Drawing.Size(23, 27) + Me.ToolStripButton7.Text = "Move last" + ' + 'ToolStripSeparator13 + ' + Me.ToolStripSeparator13.Name = "ToolStripSeparator13" + Me.ToolStripSeparator13.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripButton8 + ' + Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton8.Image = CType(resources.GetObject("ToolStripButton8.Image"), System.Drawing.Image) + Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton8.Name = "ToolStripButton8" + Me.ToolStripButton8.Size = New System.Drawing.Size(23, 20) + Me.ToolStripButton8.Text = "ToolStripButton1" + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem + Me.BindingNavigator1.AutoSize = False + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.None + Me.BindingNavigator1.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.ToolStripButton1}) + Me.BindingNavigator1.Location = New System.Drawing.Point(78, 401) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0) + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System + Me.BindingNavigator1.Size = New System.Drawing.Size(250, 30) + Me.BindingNavigator1.TabIndex = 215 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Enabled = False + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorAddNewItem.Text = "Add new" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(60, 27) + Me.BindingNavigatorCountItem.Text = "of {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Total number of items" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Enabled = False + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 20) + Me.BindingNavigatorDeleteItem.Text = "Delete" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 27) + Me.BindingNavigatorMoveFirstItem.Text = "Move first" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 27) + Me.BindingNavigatorMovePreviousItem.Text = "Move previous" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 30) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 21) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Current position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 30) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 27) + Me.BindingNavigatorMoveNextItem.Text = "Move next" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 27) + Me.BindingNavigatorMoveLastItem.Text = "Move last" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image) + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 20) + Me.ToolStripButton1.Text = "ToolStripButton1" + ' + 'txtcareer2 + ' + Me.txtcareer2.Location = New System.Drawing.Point(530, 139) + Me.txtcareer2.Name = "txtcareer2" + Me.txtcareer2.Size = New System.Drawing.Size(109, 20) + Me.txtcareer2.TabIndex = 214 + Me.txtcareer2.Text = "ODI CAREER" + ' + 'txtcareer1 + ' + Me.txtcareer1.Location = New System.Drawing.Point(163, 139) + Me.txtcareer1.Name = "txtcareer1" + Me.txtcareer1.Size = New System.Drawing.Size(109, 20) + Me.txtcareer1.TabIndex = 213 + Me.txtcareer1.Text = "ODI CAREER" + ' + 'txthighestscore4 + ' + Me.txthighestscore4.Location = New System.Drawing.Point(293, 346) + Me.txthighestscore4.Name = "txthighestscore4" + Me.txthighestscore4.Size = New System.Drawing.Size(35, 20) + Me.txthighestscore4.TabIndex = 212 + Me.txthighestscore4.Text = "12" + ' + 'txthighestscore3 + ' + Me.txthighestscore3.Location = New System.Drawing.Point(212, 346) + Me.txthighestscore3.Name = "txthighestscore3" + Me.txthighestscore3.Size = New System.Drawing.Size(75, 20) + Me.txthighestscore3.TabIndex = 211 + Me.txthighestscore3.Text = "Best Score" + ' + 'image2 + ' + Me.image2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.image2.ImageLocation = "C:\Casparcg\mydata\photo\australia\alex.jpeg" + Me.image2.Location = New System.Drawing.Point(412, 33) + Me.image2.Name = "image2" + Me.image2.Size = New System.Drawing.Size(71, 67) + Me.image2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.image2.TabIndex = 210 + Me.image2.TabStop = False + ' + 'logo2 + ' + Me.logo2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.logo2.ImageLocation = "C:\Casparcg\mydata\photo\wcalogan.jpg" + Me.logo2.Location = New System.Drawing.Point(680, 13) + Me.logo2.Name = "logo2" + Me.logo2.Size = New System.Drawing.Size(64, 69) + Me.logo2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.logo2.TabIndex = 209 + Me.logo2.TabStop = False + ' + 'image1 + ' + Me.image1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.image1.ImageLocation = "C:\Casparcg\mydata\photo\india\anjum.jpeg" + Me.image1.Location = New System.Drawing.Point(39, 27) + Me.image1.Name = "image1" + Me.image1.Size = New System.Drawing.Size(73, 76) + Me.image1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.image1.TabIndex = 208 + Me.image1.TabStop = False + ' + 'Label74 + ' + Me.Label74.AutoSize = True + Me.Label74.Location = New System.Drawing.Point(491, 47) + Me.Label74.Name = "Label74" + Me.Label74.Size = New System.Drawing.Size(36, 13) + Me.Label74.TabIndex = 207 + Me.Label74.Text = "Image" + ' + 'Label75 + ' + Me.Label75.AutoSize = True + Me.Label75.Location = New System.Drawing.Point(630, 50) + Me.Label75.Name = "Label75" + Me.Label75.Size = New System.Drawing.Size(27, 13) + Me.Label75.TabIndex = 206 + Me.Label75.Text = "logo" + ' + 'Label76 + ' + Me.Label76.AutoSize = True + Me.Label76.Location = New System.Drawing.Point(121, 47) + Me.Label76.Name = "Label76" + Me.Label76.Size = New System.Drawing.Size(36, 13) + Me.Label76.TabIndex = 205 + Me.Label76.Text = "Image" + ' + 'Label77 + ' + Me.Label77.AutoSize = True + Me.Label77.Location = New System.Drawing.Point(276, 47) + Me.Label77.Name = "Label77" + Me.Label77.Size = New System.Drawing.Size(27, 13) + Me.Label77.TabIndex = 204 + Me.Label77.Text = "logo" + ' + 'logo1 + ' + Me.logo1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.logo1.ImageLocation = "C:\Casparcg\mydata\photo\bccilogo.png" + Me.logo1.Location = New System.Drawing.Point(317, 33) + Me.logo1.Name = "logo1" + Me.logo1.Size = New System.Drawing.Size(64, 67) + Me.logo1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.logo1.TabIndex = 203 + Me.logo1.TabStop = False + ' + 'Button3 + ' + Me.Button3.BackColor = System.Drawing.SystemColors.ControlText + Me.Button3.Location = New System.Drawing.Point(756, 60) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(10, 387) + Me.Button3.TabIndex = 199 + Me.Button3.Text = " " + Me.Button3.UseVisualStyleBackColor = False + ' + 'Label79 + ' + Me.Label79.AutoSize = True + Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label79.Location = New System.Drawing.Point(466, 100) + Me.Label79.Name = "Label79" + Me.Label79.Size = New System.Drawing.Size(68, 24) + Me.Label79.TabIndex = 197 + Me.Label79.Text = "Player" + ' + 'Label80 + ' + Me.Label80.AutoSize = True + Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label80.Location = New System.Drawing.Point(505, 75) + Me.Label80.Name = "Label80" + Me.Label80.Size = New System.Drawing.Size(63, 24) + Me.Label80.TabIndex = 196 + Me.Label80.Text = "Team" + ' + 'Label81 + ' + Me.Label81.AutoSize = True + Me.Label81.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label81.Location = New System.Drawing.Point(89, 106) + Me.Label81.Name = "Label81" + Me.Label81.Size = New System.Drawing.Size(68, 24) + Me.Label81.TabIndex = 195 + Me.Label81.Text = "Player" + ' + 'Label82 + ' + Me.Label82.AutoSize = True + Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label82.Location = New System.Drawing.Point(119, 73) + Me.Label82.Name = "Label82" + Me.Label82.Size = New System.Drawing.Size(63, 24) + Me.Label82.TabIndex = 194 + Me.Label82.Text = "Team" + ' + 'Button4 + ' + Me.Button4.BackColor = System.Drawing.SystemColors.ControlText + Me.Button4.Location = New System.Drawing.Point(396, 60) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(10, 387) + Me.Button4.TabIndex = 198 + Me.Button4.Text = " " + Me.Button4.UseVisualStyleBackColor = False + ' + 'cmd4 + ' + Me.cmd4.Location = New System.Drawing.Point(704, 191) + Me.cmd4.Name = "cmd4" + Me.cmd4.Size = New System.Drawing.Size(46, 181) + Me.cmd4.TabIndex = 191 + Me.cmd4.Text = "Play" + Me.cmd4.UseVisualStyleBackColor = True + ' + 'cmd3 + ' + Me.cmd3.Location = New System.Drawing.Point(530, 191) + Me.cmd3.Name = "cmd3" + Me.cmd3.Size = New System.Drawing.Size(46, 189) + Me.cmd3.TabIndex = 190 + Me.cmd3.Text = "Play" + Me.cmd3.UseVisualStyleBackColor = True + ' + 'txt50s8 + ' + Me.txt50s8.Location = New System.Drawing.Point(663, 297) + Me.txt50s8.Name = "txt50s8" + Me.txt50s8.Size = New System.Drawing.Size(34, 20) + Me.txt50s8.TabIndex = 189 + Me.txt50s8.Text = "45" + ' + 'txt100s8 + ' + Me.txt100s8.Location = New System.Drawing.Point(663, 323) + Me.txt100s8.Name = "txt100s8" + Me.txt100s8.Size = New System.Drawing.Size(34, 20) + Me.txt100s8.TabIndex = 188 + Me.txt100s8.Text = "121" + ' + 'txtaverage8 + ' + Me.txtaverage8.Location = New System.Drawing.Point(664, 273) + Me.txtaverage8.Name = "txtaverage8" + Me.txtaverage8.Size = New System.Drawing.Size(34, 20) + Me.txtaverage8.TabIndex = 187 + Me.txtaverage8.Text = "78" + ' + 'txtinnings8 + ' + Me.txtinnings8.Location = New System.Drawing.Point(663, 219) + Me.txtinnings8.Name = "txtinnings8" + Me.txtinnings8.Size = New System.Drawing.Size(34, 20) + Me.txtinnings8.TabIndex = 184 + Me.txtinnings8.Text = "10" + ' + 'txtmatches8 + ' + Me.txtmatches8.Location = New System.Drawing.Point(663, 193) + Me.txtmatches8.Name = "txtmatches8" + Me.txtmatches8.Size = New System.Drawing.Size(34, 20) + Me.txtmatches8.TabIndex = 183 + Me.txtmatches8.Text = "12" + ' + 'txt50s7 + ' + Me.txt50s7.Location = New System.Drawing.Point(582, 297) + Me.txt50s7.Name = "txt50s7" + Me.txt50s7.Size = New System.Drawing.Size(75, 20) + Me.txt50s7.TabIndex = 182 + Me.txt50s7.Text = "50's" + ' + 'txt100s7 + ' + Me.txt100s7.Location = New System.Drawing.Point(582, 323) + Me.txt100s7.Name = "txt100s7" + Me.txt100s7.Size = New System.Drawing.Size(75, 20) + Me.txt100s7.TabIndex = 181 + Me.txt100s7.Text = "100's" + ' + 'txtaverage7 + ' + Me.txtaverage7.Location = New System.Drawing.Point(583, 273) + Me.txtaverage7.Name = "txtaverage7" + Me.txtaverage7.Size = New System.Drawing.Size(75, 20) + Me.txtaverage7.TabIndex = 180 + Me.txtaverage7.Text = "Average" + ' + 'txthighestscore7 + ' + Me.txthighestscore7.Location = New System.Drawing.Point(583, 349) + Me.txthighestscore7.Name = "txthighestscore7" + Me.txthighestscore7.Size = New System.Drawing.Size(75, 20) + Me.txthighestscore7.TabIndex = 179 + Me.txthighestscore7.Text = "Best Score" + ' + 'txtruns7 + ' + Me.txtruns7.Location = New System.Drawing.Point(583, 245) + Me.txtruns7.Name = "txtruns7" + Me.txtruns7.Size = New System.Drawing.Size(75, 20) + Me.txtruns7.TabIndex = 178 + Me.txtruns7.Text = "Runs" + ' + 'txtinnings7 + ' + Me.txtinnings7.Location = New System.Drawing.Point(582, 219) + Me.txtinnings7.Name = "txtinnings7" + Me.txtinnings7.Size = New System.Drawing.Size(75, 20) + Me.txtinnings7.TabIndex = 177 + Me.txtinnings7.Text = "Innings" + ' + 'txthighestscore8 + ' + Me.txthighestscore8.Location = New System.Drawing.Point(664, 349) + Me.txthighestscore8.Name = "txthighestscore8" + Me.txthighestscore8.Size = New System.Drawing.Size(34, 20) + Me.txthighestscore8.TabIndex = 186 + Me.txthighestscore8.Text = "10" + ' + 'txtruns8 + ' + Me.txtruns8.Location = New System.Drawing.Point(664, 245) + Me.txtruns8.Name = "txtruns8" + Me.txtruns8.Size = New System.Drawing.Size(34, 20) + Me.txtruns8.TabIndex = 185 + Me.txtruns8.Text = "45" + ' + 'txtmatches7 + ' + Me.txtmatches7.Location = New System.Drawing.Point(582, 193) + Me.txtmatches7.Name = "txtmatches7" + Me.txtmatches7.Size = New System.Drawing.Size(75, 20) + Me.txtmatches7.TabIndex = 176 + Me.txtmatches7.Text = "Matches" + ' + 'txtecon6 + ' + Me.txtecon6.Location = New System.Drawing.Point(491, 248) + Me.txtecon6.Name = "txtecon6" + Me.txtecon6.Size = New System.Drawing.Size(33, 20) + Me.txtecon6.TabIndex = 175 + Me.txtecon6.Text = "15.5" + ' + 'txt5w6 + ' + Me.txt5w6.Location = New System.Drawing.Point(489, 297) + Me.txt5w6.Name = "txt5w6" + Me.txt5w6.Size = New System.Drawing.Size(33, 20) + Me.txt5w6.TabIndex = 174 + Me.txt5w6.Text = "12" + ' + 'txt4w6 + ' + Me.txt4w6.Location = New System.Drawing.Point(489, 271) + Me.txt4w6.Name = "txt4w6" + Me.txt4w6.Size = New System.Drawing.Size(33, 20) + Me.txt4w6.TabIndex = 173 + Me.txt4w6.Text = "45" + ' + 'txtavg6 + ' + Me.txtavg6.Location = New System.Drawing.Point(489, 352) + Me.txtavg6.Name = "txtavg6" + Me.txtavg6.Size = New System.Drawing.Size(33, 20) + Me.txtavg6.TabIndex = 172 + ' + 'txtbest6 + ' + Me.txtbest6.Location = New System.Drawing.Point(489, 326) + Me.txtbest6.Name = "txtbest6" + Me.txtbest6.Size = New System.Drawing.Size(33, 20) + Me.txtbest6.TabIndex = 171 + Me.txtbest6.Text = "89" + ' + 'txtwickets6 + ' + Me.txtwickets6.Location = New System.Drawing.Point(491, 222) + Me.txtwickets6.Name = "txtwickets6" + Me.txtwickets6.Size = New System.Drawing.Size(33, 20) + Me.txtwickets6.TabIndex = 170 + Me.txtwickets6.Text = "12" + ' + 'txtmatches6 + ' + Me.txtmatches6.Location = New System.Drawing.Point(489, 193) + Me.txtmatches6.Name = "txtmatches6" + Me.txtmatches6.Size = New System.Drawing.Size(33, 20) + Me.txtmatches6.TabIndex = 169 + Me.txtmatches6.Text = "10" + ' + 'txtecon5 + ' + Me.txtecon5.Location = New System.Drawing.Point(423, 248) + Me.txtecon5.Name = "txtecon5" + Me.txtecon5.Size = New System.Drawing.Size(62, 20) + Me.txtecon5.TabIndex = 168 + Me.txtecon5.Text = "Econ" + ' + 'txt5w5 + ' + Me.txt5w5.Location = New System.Drawing.Point(421, 297) + Me.txt5w5.Name = "txt5w5" + Me.txt5w5.Size = New System.Drawing.Size(62, 20) + Me.txt5w5.TabIndex = 167 + Me.txt5w5.Text = "5W" + ' + 'txt4w5 + ' + Me.txt4w5.Location = New System.Drawing.Point(421, 271) + Me.txt4w5.Name = "txt4w5" + Me.txt4w5.Size = New System.Drawing.Size(62, 20) + Me.txt4w5.TabIndex = 166 + Me.txt4w5.Text = "3W" + ' + 'txtavg5 + ' + Me.txtavg5.Location = New System.Drawing.Point(421, 352) + Me.txtavg5.Name = "txtavg5" + Me.txtavg5.Size = New System.Drawing.Size(62, 20) + Me.txtavg5.TabIndex = 165 + Me.txtavg5.Text = "Average" + ' + 'txtbest5 + ' + Me.txtbest5.Location = New System.Drawing.Point(421, 326) + Me.txtbest5.Name = "txtbest5" + Me.txtbest5.Size = New System.Drawing.Size(62, 20) + Me.txtbest5.TabIndex = 164 + Me.txtbest5.Text = "Best" + ' + 'txtwickets5 + ' + Me.txtwickets5.Location = New System.Drawing.Point(423, 222) + Me.txtwickets5.Name = "txtwickets5" + Me.txtwickets5.Size = New System.Drawing.Size(62, 20) + Me.txtwickets5.TabIndex = 163 + Me.txtwickets5.Text = "Wickets" + ' + 'txtmatches5 + ' + Me.txtmatches5.Location = New System.Drawing.Point(421, 193) + Me.txtmatches5.Name = "txtmatches5" + Me.txtmatches5.Size = New System.Drawing.Size(62, 20) + Me.txtmatches5.TabIndex = 162 + Me.txtmatches5.Text = "Matches" + ' + 'Label83 + ' + Me.Label83.AutoSize = True + Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label83.Location = New System.Drawing.Point(614, 166) + Me.Label83.Name = "Label83" + Me.Label83.Size = New System.Drawing.Size(73, 24) + Me.Label83.TabIndex = 161 + Me.Label83.Text = "Batting" + ' + 'Label84 + ' + Me.Label84.AutoSize = True + Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label84.Location = New System.Drawing.Point(449, 166) + Me.Label84.Name = "Label84" + Me.Label84.Size = New System.Drawing.Size(84, 24) + Me.Label84.TabIndex = 160 + Me.Label84.Text = "Bowling" + ' + 'txtplayerb + ' + Me.txtplayerb.Location = New System.Drawing.Point(549, 103) + Me.txtplayerb.Name = "txtplayerb" + Me.txtplayerb.Size = New System.Drawing.Size(148, 20) + Me.txtplayerb.TabIndex = 159 + Me.txtplayerb.Text = "Suresh kumar" + ' + 'txtteamb + ' + Me.txtteamb.Location = New System.Drawing.Point(574, 77) + Me.txtteamb.Name = "txtteamb" + Me.txtteamb.Size = New System.Drawing.Size(100, 20) + Me.txtteamb.TabIndex = 158 + Me.txtteamb.Text = "AUSTRALIA" + ' + 'cmd2 + ' + Me.cmd2.Location = New System.Drawing.Point(335, 188) + Me.cmd2.Name = "cmd2" + Me.cmd2.Size = New System.Drawing.Size(46, 186) + Me.cmd2.TabIndex = 157 + Me.cmd2.Text = "Play" + Me.cmd2.UseVisualStyleBackColor = True + ' + 'cmd1 + ' + Me.cmd1.Location = New System.Drawing.Point(161, 188) + Me.cmd1.Name = "cmd1" + Me.cmd1.Size = New System.Drawing.Size(46, 186) + Me.cmd1.TabIndex = 156 + Me.cmd1.Text = "Play" + Me.cmd1.UseVisualStyleBackColor = True + ' + 'txt50s4 + ' + Me.txt50s4.Location = New System.Drawing.Point(293, 294) + Me.txt50s4.Name = "txt50s4" + Me.txt50s4.Size = New System.Drawing.Size(35, 20) + Me.txt50s4.TabIndex = 155 + Me.txt50s4.Text = "78" + ' + 'txt100s4 + ' + Me.txt100s4.Location = New System.Drawing.Point(293, 320) + Me.txt100s4.Name = "txt100s4" + Me.txt100s4.Size = New System.Drawing.Size(35, 20) + Me.txt100s4.TabIndex = 154 + Me.txt100s4.Text = "15" + ' + 'txtaverage4 + ' + Me.txtaverage4.Location = New System.Drawing.Point(294, 267) + Me.txtaverage4.Name = "txtaverage4" + Me.txtaverage4.Size = New System.Drawing.Size(35, 20) + Me.txtaverage4.TabIndex = 153 + Me.txtaverage4.Text = "14" + ' + 'txtruns4 + ' + Me.txtruns4.Location = New System.Drawing.Point(294, 242) + Me.txtruns4.Name = "txtruns4" + Me.txtruns4.Size = New System.Drawing.Size(35, 20) + Me.txtruns4.TabIndex = 152 + Me.txtruns4.Text = "48" + ' + 'txtinnings4 + ' + Me.txtinnings4.Location = New System.Drawing.Point(294, 216) + Me.txtinnings4.Name = "txtinnings4" + Me.txtinnings4.Size = New System.Drawing.Size(35, 20) + Me.txtinnings4.TabIndex = 151 + Me.txtinnings4.Text = "45" + ' + 'txtmatches4 + ' + Me.txtmatches4.Location = New System.Drawing.Point(294, 190) + Me.txtmatches4.Name = "txtmatches4" + Me.txtmatches4.Size = New System.Drawing.Size(35, 20) + Me.txtmatches4.TabIndex = 150 + Me.txtmatches4.Text = "12" + ' + 'txt50s3 + ' + Me.txt50s3.Location = New System.Drawing.Point(212, 294) + Me.txt50s3.Name = "txt50s3" + Me.txt50s3.Size = New System.Drawing.Size(75, 20) + Me.txt50s3.TabIndex = 149 + Me.txt50s3.Text = "50's" + ' + 'txt100s3 + ' + Me.txt100s3.Location = New System.Drawing.Point(212, 320) + Me.txt100s3.Name = "txt100s3" + Me.txt100s3.Size = New System.Drawing.Size(75, 20) + Me.txt100s3.TabIndex = 148 + Me.txt100s3.Text = "100's" + ' + 'txtaverage3 + ' + Me.txtaverage3.Location = New System.Drawing.Point(213, 267) + Me.txtaverage3.Name = "txtaverage3" + Me.txtaverage3.Size = New System.Drawing.Size(75, 20) + Me.txtaverage3.TabIndex = 147 + Me.txtaverage3.Text = "Average" + ' + 'txtruns3 + ' + Me.txtruns3.Location = New System.Drawing.Point(213, 242) + Me.txtruns3.Name = "txtruns3" + Me.txtruns3.Size = New System.Drawing.Size(75, 20) + Me.txtruns3.TabIndex = 146 + Me.txtruns3.Text = "Runs" + ' + 'txtinnings3 + ' + Me.txtinnings3.Location = New System.Drawing.Point(213, 216) + Me.txtinnings3.Name = "txtinnings3" + Me.txtinnings3.Size = New System.Drawing.Size(75, 20) + Me.txtinnings3.TabIndex = 145 + Me.txtinnings3.Text = "Innings" + ' + 'txtmatches3 + ' + Me.txtmatches3.Location = New System.Drawing.Point(213, 190) + Me.txtmatches3.Name = "txtmatches3" + Me.txtmatches3.Size = New System.Drawing.Size(75, 20) + Me.txtmatches3.TabIndex = 144 + Me.txtmatches3.Text = "Matches" + ' + 'txtecon2 + ' + Me.txtecon2.Location = New System.Drawing.Point(121, 239) + Me.txtecon2.Name = "txtecon2" + Me.txtecon2.Size = New System.Drawing.Size(32, 20) + Me.txtecon2.TabIndex = 143 + Me.txtecon2.Text = "12.5" + ' + 'txt5w2 + ' + Me.txt5w2.Location = New System.Drawing.Point(121, 291) + Me.txt5w2.Name = "txt5w2" + Me.txt5w2.Size = New System.Drawing.Size(34, 20) + Me.txt5w2.TabIndex = 142 + Me.txt5w2.Text = "45" + ' + 'txt4w2 + ' + Me.txt4w2.Location = New System.Drawing.Point(121, 265) + Me.txt4w2.Name = "txt4w2" + Me.txt4w2.Size = New System.Drawing.Size(36, 20) + Me.txt4w2.TabIndex = 141 + Me.txt4w2.Text = "12" + ' + 'txtavg2 + ' + Me.txtavg2.Location = New System.Drawing.Point(119, 346) + Me.txtavg2.Name = "txtavg2" + Me.txtavg2.Size = New System.Drawing.Size(36, 20) + Me.txtavg2.TabIndex = 140 + Me.txtavg2.Text = "15.6" + ' + 'txtwickets2 + ' + Me.txtwickets2.Location = New System.Drawing.Point(121, 216) + Me.txtwickets2.Name = "txtwickets2" + Me.txtwickets2.Size = New System.Drawing.Size(36, 20) + Me.txtwickets2.TabIndex = 138 + Me.txtwickets2.Text = "1" + ' + 'txtmatches2 + ' + Me.txtmatches2.Location = New System.Drawing.Point(119, 190) + Me.txtmatches2.Name = "txtmatches2" + Me.txtmatches2.Size = New System.Drawing.Size(36, 20) + Me.txtmatches2.TabIndex = 137 + Me.txtmatches2.Text = "12" + ' + 'txtbest2 + ' + Me.txtbest2.Location = New System.Drawing.Point(119, 320) + Me.txtbest2.Name = "txtbest2" + Me.txtbest2.Size = New System.Drawing.Size(36, 20) + Me.txtbest2.TabIndex = 139 + Me.txtbest2.Text = "12" + ' + 'txtecon1 + ' + Me.txtecon1.Location = New System.Drawing.Point(54, 239) + Me.txtecon1.Name = "txtecon1" + Me.txtecon1.Size = New System.Drawing.Size(58, 20) + Me.txtecon1.TabIndex = 136 + Me.txtecon1.Text = "Econ" + ' + 'txt5w1 + ' + Me.txt5w1.Location = New System.Drawing.Point(54, 291) + Me.txt5w1.Name = "txt5w1" + Me.txt5w1.Size = New System.Drawing.Size(60, 20) + Me.txt5w1.TabIndex = 135 + Me.txt5w1.Text = "5W" + ' + 'txt4w1 + ' + Me.txt4w1.Location = New System.Drawing.Point(54, 265) + Me.txt4w1.Name = "txt4w1" + Me.txt4w1.Size = New System.Drawing.Size(62, 20) + Me.txt4w1.TabIndex = 134 + Me.txt4w1.Text = "3W" + ' + 'txtavg1 + ' + Me.txtavg1.Location = New System.Drawing.Point(52, 346) + Me.txtavg1.Name = "txtavg1" + Me.txtavg1.Size = New System.Drawing.Size(62, 20) + Me.txtavg1.TabIndex = 133 + Me.txtavg1.Text = "Average" + ' + 'txtbest1 + ' + Me.txtbest1.Location = New System.Drawing.Point(52, 320) + Me.txtbest1.Name = "txtbest1" + Me.txtbest1.Size = New System.Drawing.Size(62, 20) + Me.txtbest1.TabIndex = 132 + Me.txtbest1.Text = "Best" + ' + 'txtwickets1 + ' + Me.txtwickets1.Location = New System.Drawing.Point(54, 216) + Me.txtwickets1.Name = "txtwickets1" + Me.txtwickets1.Size = New System.Drawing.Size(62, 20) + Me.txtwickets1.TabIndex = 131 + Me.txtwickets1.Text = "Wickets" + ' + 'txtmatches1 + ' + Me.txtmatches1.Location = New System.Drawing.Point(52, 190) + Me.txtmatches1.Name = "txtmatches1" + Me.txtmatches1.Size = New System.Drawing.Size(62, 20) + Me.txtmatches1.TabIndex = 130 + Me.txtmatches1.Text = "Matches" + ' + 'lblbatting + ' + Me.lblbatting.AutoSize = True + Me.lblbatting.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblbatting.Location = New System.Drawing.Point(255, 163) + Me.lblbatting.Name = "lblbatting" + Me.lblbatting.Size = New System.Drawing.Size(73, 24) + Me.lblbatting.TabIndex = 129 + Me.lblbatting.Text = "Batting" + ' + 'lblbowling + ' + Me.lblbowling.AutoSize = True + Me.lblbowling.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblbowling.Location = New System.Drawing.Point(89, 163) + Me.lblbowling.Name = "lblbowling" + Me.lblbowling.Size = New System.Drawing.Size(84, 24) + Me.lblbowling.TabIndex = 128 + Me.lblbowling.Text = "Bowling" + ' + 'txtplayera + ' + Me.txtplayera.Location = New System.Drawing.Point(163, 106) + Me.txtplayera.Name = "txtplayera" + Me.txtplayera.Size = New System.Drawing.Size(148, 20) + Me.txtplayera.TabIndex = 127 + Me.txtplayera.Text = "vimlesh" + ' + 'txtteama + ' + Me.txtteama.Location = New System.Drawing.Point(188, 80) + Me.txtteama.Name = "txtteama" + Me.txtteama.Size = New System.Drawing.Size(100, 20) + Me.txtteama.TabIndex = 126 + Me.txtteama.Text = "INDIA" + ' + 'GroupBox3 + ' + Me.GroupBox3.BackColor = System.Drawing.Color.LemonChiffon + Me.GroupBox3.Controls.Add(Me.cmbSubHeader) + Me.GroupBox3.Controls.Add(Me.cmbHeader) + Me.GroupBox3.Controls.Add(Me.cmdeventid) + Me.GroupBox3.Controls.Add(Me.Label17) + Me.GroupBox3.Controls.Add(Me.Label1) + Me.GroupBox3.Location = New System.Drawing.Point(18, 75) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(370, 62) + Me.GroupBox3.TabIndex = 1250 + Me.GroupBox3.TabStop = False + ' + 'cmbSubHeader + ' + Me.cmbSubHeader.FormattingEnabled = True + Me.cmbSubHeader.Items.AddRange(New Object() {"Aquatics Diving", "Aquatics MarathonSwimming", "Aquatics Swimming", "Aquatics SynchrosedSwimming", "Aquatics WaterPolo", "Archery", "Athletics", "Athletics - Marathon & Race Walks", "Badminton", "Basketball", "BeachVolleyball", "Boxing", "Canoe Slalom", "Canoe Sprint", "Cycling BMX", "Cycling Mountain Bike", "Cycling RoadRace & Time Trial", "Cycling Track", "Equestrian", "Fencing", "Football", "Gymnastics Artistic", "Gymnastics Rhythmic", "Gymnastics Trampoline", "Handball", "Hockey", "Judo", "ModernPentathlon", "Rowing", "Sailing", "Shooting", "Table Tennis", "Taekwondo", "Tennis", "Triathlon", "Volleyball", "Weightlifting", "Wrestling", "", "", "AR Archery", "Men’s Individual", "Men’s Team", "Women’s Individual", "Women’s Team", "", "AT Athletics", "Men’s 100m", "Men’s 200m", "Men’s 400m", "Men’s 800m", "Men’s 1500m", "Men’s 5000m", "Men’s 10000m", "Men’s 110m Hurdles", "Men’s 400m Hurdles", "Men’s 3000m Steeplechase", "Men’s 4x100m Relay", "Men’s 4x400m Relay", "Men’s High Jump", "Men’s Pole Vault", "Men’s Long Jump", "Men’s Triple Jump", "Men’s Shot Put", "Men’s Discus", "Men’s Hammer", "Men’s Javelin", "", "Decathlon", "Men’s Marathon", "Men’s 20km Race Walk", "Men’s 50km Race Walk", "Women’s 100m", "Women’s 200m", "Women’s 400m", "Women’s 800m", "Women’s 1500m", "Women’s 5000m", "Women’s 10000m", "Women’s 100m Hurdles", "Women’s 400m Hurdles", "Women’s 3000m Steeplechase", "Women’s 4x100m Relay", "Women’s 4x400m Relay", "Women’s High Jump", "Women’s Pole Vault", "Women’s Long Jump", "Women’s Triple Jump", "Women’s Shot Put", "Women’s Discus", "Women’s Hammer", "Women’s Javelin", "", "Heptathlon", "Women’s Marathon", "Women’s 20km Race Walk", "BD Badminton", "Men’s Singles", "Men’s Doubles", "Women’s Singles", "Women’s Doubles", "Mixed Doubles", "", "BK Basketball ", "Men’s Basketball ", "Women’s Basketball", "BV Beach Volleyball ", "Men’s Beach Volleyball ", "Women’s Beach Volleyball", "", "BX Boxing", "Men’s Light Fly 49kg", "Men’s Fly 52kg", "Men’s Bantam 56kg", "Men’s Light 60kg", "Men’s Light Welter 64kg", "Men’s Welter 69kg", "Men’s Middle 75kg", "Men’s Light Heavy 81kg", "Men’s Heavy 91kg", "Men’s Super Heavy +91kg", "Women’s Fly 51kg", "Women’s Light 60kg", "Women’s Middle 75kg", "", "CB BMX ", "Men’s BMX ", "Women’s BMX", "", "CF Canoe Sprint", "Men’s Kayak Single 200m", "Men’s Kayak Double 200m", "Men’s Kayak Single 1000m", "Men’s Kayak Double 1000m", "Men’s Kayak Four 1000m", "Men’s Canoe Single 200m", "Men’s Canoe Single 1000m", "Men’s Canoe Double 1000m", "Women’s Kayak Single 200m", "Women’s Kayak Single 500m", "Women’s Kayak Double 500m", "Women’s Kayak Four 500m", "", "CM Mountain Bike ", "Men’s Mountain Bike ", "Women’s Mountain Bike", "", "CR Cycling Road", "Men’s Road Race", "Men’s Individual Time Trial", "Women’s Road Race", "Women’s Individual Time Trial", "", "CS Canoe Slalom", "Men’s Canoe Single", "Men’s Canoe Double", "Men’s Kayak", "Women’s Kayak", "", "CT Cycling Track", "Men’s Keirin", "Men’s Omnium", "Men’s Sprint", "Men’s Team Pursuit", "Men’s Team Sprint", "Women’s Keirin", "Women’s Omnium", "Women’s Sprint", "Women’s Team Pursuit", "Women’s Team Sprint", "", "DV Diving", "Men’s 3m Springboard", "Men’s 10m Platform", "Women’s 3m Springboard", "Women’s 10m Platform", "Men’s Synchronised 3m Springboard", "Men’s Synchronised 10m Platform", "Women’s Synchronised 3m Springboard", "Women’s Synchronised 10m Platform", "", "EQ Equestrian", "Individual Dressage", "Individual Eventing", "Individual Jumping", "Team Dressage", "Team Eventing", "Team Jumping", "FB Football Men’s Football Women’s Football", "", "FE Fencing", "Men’s Individual Epee", "Men’s Individual Foil", "Men’s Individual Sabre", "Men’s Team Foil", "Men’s Team Sabre", "Women’s Individual Epee", "Women’s Individual Foil", "Women’s Individual Sabre", "Women’s Team Foil", "Women’s Team Epee", "", "GA Artistic Gymnastics", "Men’s Qualification", "Men’s Team Final", "Men’s All-Around Final", "Men’s Floor Exercise Final", "Men’s Vault Final", "Men’s Parallel Bars Final", "Men’s Horizontal Bar Final", "Men’s Rings Final", "Men’s Pommel Horse Final", "Women’s Qualification", "Women’s Team Final", "Women’s All-Around Final", "Women’s Floor Exercise Final", "Women’s Vault Final", "Women’s Uneven Bars Final", "Women’s Beam Final", "", "GR Rhythmic Gymnastics ", "Individual All-Around", "Group All-Around", "", "GT ", "Men’s Trampoline ", "Women’s Trampoline", "", "HB Handball ", "Men’s Handball ", "Women’s Handball", "", "HO Hockey ", "Men’s Hockey ", "Women’s Hockey", "", "JU Judo", "Men’s -60kg", "Men’s -66kg", "Men’s -73kg", "Men’s -81kg", "Men’s -90kg", "Men’s -100kg", "Men’s +100kg", "Women’s -48kg", "Women’s -52kg", "Women’s -57kg", "Women’s -63kg", "Women’s -70kg", "Women’s -78kg", "Women’s +78kg", "", "MP Modern Pentathlon", "Men’s Modern Pentathlon ", "Women’s Modern Pentathlon", "", "RO Rowing", "Men’s Single Sculls", "Men’s Double Sculls", "Lightweight Men’s Double Sculls", "Men’s Quadruple Sculls", "Men’s Pair", "Men’s Four", "Lightweight Men’s Four", "Men’s Eight", "Women’s Single Sculls", "Women’s Double Sculls", "Lightweight Women’s Double Sculls", "Women’s Quadruple Sculls", "Women’s Pair", "Women’s Eight", "", "SA Sailing", "Men’s Finn", "Men’s Laser", "Men’s 470", "Men’s Star", "Men’s 49er", "Men’s RS:X Windsurfer", "Women’s 470", "Women’s Laser Radial", "Women’s RS:X Windsurfer", "Women’s Elliott 6m", "", "SH Shooting", "Men’s 50m Rifle 3 Positions", "Men’s 50m Rifle Prone", "Men’s 10m Air Rifle", "Men’s 50m Pistol", "Men’s 25m Rapid Fire Pistol", "Men’s 10m Air Pistol", "Men’s Trap", "Men’s Double Trap", "Men’s Skeet", "Women’s 50m Rifle 3 Positions", "Women’s 10m Air Rifle", "Women’s 25m Pistol", "Women’s 10m Air Pistol", "Women’s Trap", "Women’s Skeet", "", "SW Swimming", "Men’s 50m Freestyle", "Men’s 100m Freestyle", "Men’s 200m Freestyle", "Men’s 400m Freestyle", "Men’s 1500m Freestyle", "Men’s 100m Butterfly", "Men’s 200m Butterfly", "Men’s 100m Breaststroke", "Men’s 200m Breaststroke", "Men’s 100m Backstroke", "Men’s 200m Backstroke", "Men’s 200m Individual Medley", "Men’s 400m Individual Medley", "Men’s 4x100m Freestyle Relay", "Men’s 4x200m Freestyle Relay", "Men’s 4x100m Medley Relay", "Men’s Marathon 10km", "Women’s 50m Freestyle", "Women’s 100m Freestyle", "Women’s 200m Freestyle", "Women’s 400m Freestyle", "Women’s 800m Freestyle", "Women’s 100m Butterfly", "Women’s 200m Butterfly", "Women’s 100m Breaststroke", "Women’s 200m Breaststroke", "Women’s 100m Backstroke", "Women’s 200m Backstroke", "Women’s 200m Individual Medley", "Women’s 400m Individual Medley", "Women’s 4x100m Freestyle Relay", "Women’s 4x200m Freestyle Relay", "Women’s 4x100m Medley Relay", "Women’s Marathon 10km", "SY Synchronised Swimming Duets Teams", "", "TE Tennis", "Men’s Singles", "Men’s Doubles", "Women’s Singles", "Women’s Doubles", "Mixed Doubles", "", "TK Taekwondo", "Men’s -58kg", "Men’s -68kg", "Men’s -80kg", "Men’s +80kg", "Women’s -49kg", "Women’s -57kg", "Women’s -67kg", "Women’s +67kg", "TR Triathlon Men’s ", "Triathlon Women’s Triathlon", "", "TT Table Tennis", "Men’s Singles", "Men’s Team", "Women’s Singles", "Women’s Team", "", "", "", "VO Volleyball ", "Men’s Volleyball ", "Women’s Volleyball", "", "WL Weightlifting", "Men’s 56kg", "Men’s 62kg", "Men’s 69kg", "Men’s 77kg", "Men’s 85kg", "Men’s 94kg", "Men’s 105kg", "Men’s +105kg", "Women’s 48kg", "Women’s 53kg", "Women’s 58kg", "Women’s 63kg", "Women’s 69kg", "Women’s 75kg", "Women’s +75kg", "WP Water Polo ", "Men’s Water Polo ", "Women’s Water Polo", "", "WR Wrestling", "Men’s Freestyle 55kg", "Men’s Freestyle 60kg", "Men’s Freestyle 66kg", "Men’s Freestyle 74kg", "Men’s Freestyle 84kg", "Men’s Freestyle 96kg", "Men’s Freestyle 120kg", "Men’s Greco-Roman 55kg", "Men’s Greco-Roman 60kg", "Men’s Greco-Roman 66kg", "Men’s Greco-Roman 74kg", "Men’s Greco-Roman 84kg", "Men’s Greco-Roman 96kg", "Men’s Greco-Roman 120kg", "", "", "", "Round 1", "Round 2", "Round 3", "Round 4", "Round 5", "Leage Match", "Preliminary Match", "Pre Quarter Final", "Quarter Final", "Semi Final", "Final", "", "Table 1 - Round 3 (Morning Session)", "Table 1 - Round 3 (After noon Session)", "Table 1 - Round 1", "Table 1 - Round 1 (First Session)", "Table 1 - Round 2", "", "Men's Singles", "Women's Singles", "Men's Doubles", "Women's Doubles", "Team Event", "", "Junior Girls Team", "Junior Boys Team", "Cadet Girls Team", "Cadet Boys Team", "", "Junior Girls", "Junior Boys", "Cadet Girls", "Cadet Boys", "", "Junior Mixed Doubles", "Junior Boys Doubles", "Junior Girls Doubles", "Qualifying - RD1", "Position 9-13", "", "Stage 1 Round 1"}) + Me.cmbSubHeader.Location = New System.Drawing.Point(78, 35) + Me.cmbSubHeader.Name = "cmbSubHeader" + Me.cmbSubHeader.Size = New System.Drawing.Size(221, 21) + Me.cmbSubHeader.TabIndex = 1201 + Me.cmbSubHeader.Text = "Men’s Light Welter 64kg" + ' + 'cmbHeader + ' + Me.cmbHeader.FormattingEnabled = True + Me.cmbHeader.Items.AddRange(New Object() {"Aquatics Diving", "Aquatics MarathonSwimming", "Aquatics Swimming", "Aquatics SynchrosedSwimming", "Aquatics WaterPolo", "Archery", "Athletics", "Athletics - Marathon & Race Walks", "Badminton", "Basketball", "BeachVolleyball", "Boxing", "Kickboxing", "Canoe Slalom", "Canoe Sprint", "Cycling BMX", "Cycling Mountain Bike", "Cycling RoadRace & Time Trial", "Cycling Track", "Equestrian", "Fencing", "Football", "Gymnastics Artistic", "Gymnastics Rhythmic", "Gymnastics Trampoline", "Handball", "Hockey", "Judo", "ModernPentathlon", "Rowing", "Sailing", "Shooting", "Table Tennis", "Taekwondo", "Tennis", "Triathlon", "Volleyball", "Weightlifting", "Wrestling", "", "", "AR Archery", "Men’s Individual", "Men’s Team", "Women’s Individual", "Women’s Team", "", "AT Athletics", "Men’s 100m", "Men’s 200m", "Men’s 400m", "Men’s 800m", "Men’s 1500m", "Men’s 5000m", "Men’s 10000m", "Men’s 110m Hurdles", "Men’s 400m Hurdles", "Men’s 3000m Steeplechase", "Men’s 4x100m Relay", "Men’s 4x400m Relay", "Men’s High Jump", "Men’s Pole Vault", "Men’s Long Jump", "Men’s Triple Jump", "Men’s Shot Put", "Men’s Discus", "Men’s Hammer", "Men’s Javelin", "", "Decathlon", "Men’s Marathon", "Men’s 20km Race Walk", "Men’s 50km Race Walk", "Women’s 100m", "Women’s 200m", "Women’s 400m", "Women’s 800m", "Women’s 1500m", "Women’s 5000m", "Women’s 10000m", "Women’s 100m Hurdles", "Women’s 400m Hurdles", "Women’s 3000m Steeplechase", "Women’s 4x100m Relay", "Women’s 4x400m Relay", "Women’s High Jump", "Women’s Pole Vault", "Women’s Long Jump", "Women’s Triple Jump", "Women’s Shot Put", "Women’s Discus", "Women’s Hammer", "Women’s Javelin", "", "Heptathlon", "Women’s Marathon", "Women’s 20km Race Walk", "BD Badminton", "Men’s Singles", "Men’s Doubles", "Women’s Singles", "Women’s Doubles", "Mixed Doubles", "", "BK Basketball ", "Men’s Basketball ", "Women’s Basketball", "BV Beach Volleyball ", "Men’s Beach Volleyball ", "Women’s Beach Volleyball", "", "BX Boxing", "Men’s Light Fly 49kg", "Men’s Fly 52kg", "Men’s Bantam 56kg", "Men’s Light 60kg", "Men’s Light Welter 64kg", "Men’s Welter 69kg", "Men’s Middle 75kg", "Men’s Light Heavy 81kg", "Men’s Heavy 91kg", "Men’s Super Heavy +91kg", "Women’s Fly 51kg", "Women’s Light 60kg", "Women’s Middle 75kg", "", "CB BMX ", "Men’s BMX ", "Women’s BMX", "", "CF Canoe Sprint", "Men’s Kayak Single 200m", "Men’s Kayak Double 200m", "Men’s Kayak Single 1000m", "Men’s Kayak Double 1000m", "Men’s Kayak Four 1000m", "Men’s Canoe Single 200m", "Men’s Canoe Single 1000m", "Men’s Canoe Double 1000m", "Women’s Kayak Single 200m", "Women’s Kayak Single 500m", "Women’s Kayak Double 500m", "Women’s Kayak Four 500m", "", "CM Mountain Bike ", "Men’s Mountain Bike ", "Women’s Mountain Bike", "", "CR Cycling Road", "Men’s Road Race", "Men’s Individual Time Trial", "Women’s Road Race", "Women’s Individual Time Trial", "", "CS Canoe Slalom", "Men’s Canoe Single", "Men’s Canoe Double", "Men’s Kayak", "Women’s Kayak", "", "CT Cycling Track", "Men’s Keirin", "Men’s Omnium", "Men’s Sprint", "Men’s Team Pursuit", "Men’s Team Sprint", "Women’s Keirin", "Women’s Omnium", "Women’s Sprint", "Women’s Team Pursuit", "Women’s Team Sprint", "", "DV Diving", "Men’s 3m Springboard", "Men’s 10m Platform", "Women’s 3m Springboard", "Women’s 10m Platform", "Men’s Synchronised 3m Springboard", "Men’s Synchronised 10m Platform", "Women’s Synchronised 3m Springboard", "Women’s Synchronised 10m Platform", "", "EQ Equestrian", "Individual Dressage", "Individual Eventing", "Individual Jumping", "Team Dressage", "Team Eventing", "Team Jumping", "FB Football Men’s Football Women’s Football", "", "FE Fencing", "Men’s Individual Epee", "Men’s Individual Foil", "Men’s Individual Sabre", "Men’s Team Foil", "Men’s Team Sabre", "Women’s Individual Epee", "Women’s Individual Foil", "Women’s Individual Sabre", "Women’s Team Foil", "Women’s Team Epee", "", "GA Artistic Gymnastics", "Men’s Qualification", "Men’s Team Final", "Men’s All-Around Final", "Men’s Floor Exercise Final", "Men’s Vault Final", "Men’s Parallel Bars Final", "Men’s Horizontal Bar Final", "Men’s Rings Final", "Men’s Pommel Horse Final", "Women’s Qualification", "Women’s Team Final", "Women’s All-Around Final", "Women’s Floor Exercise Final", "Women’s Vault Final", "Women’s Uneven Bars Final", "Women’s Beam Final", "", "GR Rhythmic Gymnastics ", "Individual All-Around", "Group All-Around", "", "GT ", "Men’s Trampoline ", "Women’s Trampoline", "", "HB Handball ", "Men’s Handball ", "Women’s Handball", "", "HO Hockey ", "Men’s Hockey ", "Women’s Hockey", "", "JU Judo", "Men’s -60kg", "Men’s -66kg", "Men’s -73kg", "Men’s -81kg", "Men’s -90kg", "Men’s -100kg", "Men’s +100kg", "Women’s -48kg", "Women’s -52kg", "Women’s -57kg", "Women’s -63kg", "Women’s -70kg", "Women’s -78kg", "Women’s +78kg", "", "MP Modern Pentathlon", "Men’s Modern Pentathlon ", "Women’s Modern Pentathlon", "", "RO Rowing", "Men’s Single Sculls", "Men’s Double Sculls", "Lightweight Men’s Double Sculls", "Men’s Quadruple Sculls", "Men’s Pair", "Men’s Four", "Lightweight Men’s Four", "Men’s Eight", "Women’s Single Sculls", "Women’s Double Sculls", "Lightweight Women’s Double Sculls", "Women’s Quadruple Sculls", "Women’s Pair", "Women’s Eight", "", "SA Sailing", "Men’s Finn", "Men’s Laser", "Men’s 470", "Men’s Star", "Men’s 49er", "Men’s RS:X Windsurfer", "Women’s 470", "Women’s Laser Radial", "Women’s RS:X Windsurfer", "Women’s Elliott 6m", "", "SH Shooting", "Men’s 50m Rifle 3 Positions", "Men’s 50m Rifle Prone", "Men’s 10m Air Rifle", "Men’s 50m Pistol", "Men’s 25m Rapid Fire Pistol", "Men’s 10m Air Pistol", "Men’s Trap", "Men’s Double Trap", "Men’s Skeet", "Women’s 50m Rifle 3 Positions", "Women’s 10m Air Rifle", "Women’s 25m Pistol", "Women’s 10m Air Pistol", "Women’s Trap", "Women’s Skeet", "", "SW Swimming", "Men’s 50m Freestyle", "Men’s 100m Freestyle", "Men’s 200m Freestyle", "Men’s 400m Freestyle", "Men’s 1500m Freestyle", "Men’s 100m Butterfly", "Men’s 200m Butterfly", "Men’s 100m Breaststroke", "Men’s 200m Breaststroke", "Men’s 100m Backstroke", "Men’s 200m Backstroke", "Men’s 200m Individual Medley", "Men’s 400m Individual Medley", "Men’s 4x100m Freestyle Relay", "Men’s 4x200m Freestyle Relay", "Men’s 4x100m Medley Relay", "Men’s Marathon 10km", "Women’s 50m Freestyle", "Women’s 100m Freestyle", "Women’s 200m Freestyle", "Women’s 400m Freestyle", "Women’s 800m Freestyle", "Women’s 100m Butterfly", "Women’s 200m Butterfly", "Women’s 100m Breaststroke", "Women’s 200m Breaststroke", "Women’s 100m Backstroke", "Women’s 200m Backstroke", "Women’s 200m Individual Medley", "Women’s 400m Individual Medley", "Women’s 4x100m Freestyle Relay", "Women’s 4x200m Freestyle Relay", "Women’s 4x100m Medley Relay", "Women’s Marathon 10km", "SY Synchronised Swimming Duets Teams", "", "TE Tennis", "Men’s Singles", "Men’s Doubles", "Women’s Singles", "Women’s Doubles", "Mixed Doubles", "", "TK Taekwondo", "Men’s -58kg", "Men’s -68kg", "Men’s -80kg", "Men’s +80kg", "Women’s -49kg", "Women’s -57kg", "Women’s -67kg", "Women’s +67kg", "TR Triathlon Men’s ", "Triathlon Women’s Triathlon", "", "TT Table Tennis", "Men’s Singles", "Men’s Team", "Women’s Singles", "Women’s Team", "", "", "", "VO Volleyball ", "Men’s Volleyball ", "Women’s Volleyball", "", "WL Weightlifting", "Men’s 56kg", "Men’s 62kg", "Men’s 69kg", "Men’s 77kg", "Men’s 85kg", "Men’s 94kg", "Men’s 105kg", "Men’s +105kg", "Women’s 48kg", "Women’s 53kg", "Women’s 58kg", "Women’s 63kg", "Women’s 69kg", "Women’s 75kg", "Women’s +75kg", "WP Water Polo ", "Men’s Water Polo ", "Women’s Water Polo", "", "WR Wrestling", "Men’s Freestyle 55kg", "Men’s Freestyle 60kg", "Men’s Freestyle 66kg", "Men’s Freestyle 74kg", "Men’s Freestyle 84kg", "Men’s Freestyle 96kg", "Men’s Freestyle 120kg", "Men’s Greco-Roman 55kg", "Men’s Greco-Roman 60kg", "Men’s Greco-Roman 66kg", "Men’s Greco-Roman 74kg", "Men’s Greco-Roman 84kg", "Men’s Greco-Roman 96kg", "Men’s Greco-Roman 120kg", "", "", "", "Table Tennis", "Reliance 20th Asian Junior Table Tennis", "", "Table 1 - Round 3 (Morning Session)", "Table 1 - Round 3 (After noon Session)", "Table 1 - Round 1", "Table 1 - Round 1 (First Session)", "Table 1 - Round 2", "", "Men's Singles", "Women's Singles", "Men's Doubles", "Women's Doubles", "Team Event", "", "", "Round 1", "Round 2", "Round 3", "Round 4", "Round 5", "Leage Match", "Preliminary Match", "Pre Quarter Final", "Quarter Final", "Semi Final", "Final", "", "Mixed Doubles", "", "Junior Girls Team", "Junior Boys Team", "Cadet Girls Team", "Cadet Boys Team", "", "Junior Girls", "Junior Boys", "Cadet Girls", "Cadet Boys", "", "Junior Mixed Doubles", "Junior Boys Doubles", "Junior Girls Doubles", "Qualifying - RD1", "Position 9-13", "", "Stage 1 Round 1"}) + Me.cmbHeader.Location = New System.Drawing.Point(78, 11) + Me.cmbHeader.Name = "cmbHeader" + Me.cmbHeader.Size = New System.Drawing.Size(221, 21) + Me.cmbHeader.TabIndex = 1200 + Me.cmbHeader.Text = "Kickboxing" + ' + 'cmdeventid + ' + Me.cmdeventid.Location = New System.Drawing.Point(305, 12) + Me.cmdeventid.Name = "cmdeventid" + Me.cmdeventid.Size = New System.Drawing.Size(62, 45) + Me.cmdeventid.TabIndex = 1199 + Me.cmdeventid.Text = "Event Id" + Me.cmdeventid.UseVisualStyleBackColor = True + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(7, 39) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(64, 13) + Me.Label17.TabIndex = 1174 + Me.Label17.Text = "Sub Header" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(3, 14) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(69, 13) + Me.Label1.TabIndex = 1173 + Me.Label1.Text = "MAin Header" + ' + 'cmbgames + ' + Me.cmbgames.FormattingEnabled = True + Me.cmbgames.Items.AddRange(New Object() {"Aquatics", "Atheletics", "Badminton", "Basketball", "Black", "Boxing", "Football", "Gymnastics - Artistic", "Gymnastics - Rhythmic", "Gymnastics - Trampoline", "Handball", "hockey", "Kabaddi", "Shooting", "TableTennis", "Tennis", "Volleyball", "Weight lift", "Wrestling"}) + Me.cmbgames.Location = New System.Drawing.Point(695, 46) + Me.cmbgames.Name = "cmbgames" + Me.cmbgames.Size = New System.Drawing.Size(134, 21) + Me.cmbgames.Sorted = True + Me.cmbgames.TabIndex = 1252 + Me.cmbgames.Text = "Boxing" + ' + 'eventlogo + ' + Me.eventlogo.BackColor = System.Drawing.SystemColors.Highlight + Me.eventlogo.ImageLocation = "C:/casparcg/mydata/games/event logo/blk.png" + Me.eventlogo.Location = New System.Drawing.Point(861, 49) + Me.eventlogo.Name = "eventlogo" + Me.eventlogo.Size = New System.Drawing.Size(24, 17) + Me.eventlogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.eventlogo.TabIndex = 1168 + Me.eventlogo.TabStop = False + ' + 'gamelogo + ' + Me.gamelogo.BackColor = System.Drawing.SystemColors.Highlight + Me.gamelogo.ImageLocation = "C:/casparcg/mydata/games/games logo/bx.png" + Me.gamelogo.Location = New System.Drawing.Point(835, 47) + Me.gamelogo.Name = "gamelogo" + Me.gamelogo.Size = New System.Drawing.Size(22, 19) + Me.gamelogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.gamelogo.TabIndex = 1166 + Me.gamelogo.TabStop = False + ' + 'cmdstopgym + ' + Me.cmdstopgym.BackColor = System.Drawing.Color.Red + Me.cmdstopgym.Location = New System.Drawing.Point(692, 93) + Me.cmdstopgym.Name = "cmdstopgym" + Me.cmdstopgym.Size = New System.Drawing.Size(365, 62) + Me.cmdstopgym.TabIndex = 585 + Me.cmdstopgym.Text = "Stop" + Me.cmdstopgym.UseVisualStyleBackColor = False + ' + 'chkanimationzym + ' + Me.chkanimationzym.AutoSize = True + Me.chkanimationzym.Checked = True + Me.chkanimationzym.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkanimationzym.Location = New System.Drawing.Point(20, 13) + Me.chkanimationzym.Name = "chkanimationzym" + Me.chkanimationzym.Size = New System.Drawing.Size(72, 17) + Me.chkanimationzym.TabIndex = 1182 + Me.chkanimationzym.Text = "Animation" + Me.chkanimationzym.UseVisualStyleBackColor = True + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Location = New System.Drawing.Point(30, 49) + Me.Label30.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(44, 13) + Me.Label30.TabIndex = 1172 + Me.Label30.Text = "v-f layer" + ' + 'cmblayergames + ' + Me.cmblayergames.FormattingEnabled = True + Me.cmblayergames.Items.AddRange(New Object() {"96", "97", "98", "99", "100"}) + Me.cmblayergames.Location = New System.Drawing.Point(73, 48) + Me.cmblayergames.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmblayergames.Name = "cmblayergames" + Me.cmblayergames.Size = New System.Drawing.Size(40, 21) + Me.cmblayergames.TabIndex = 1171 + Me.cmblayergames.Text = "96" + ' + 'chkanimationforhdvan + ' + Me.chkanimationforhdvan.AutoSize = True + Me.chkanimationforhdvan.Checked = True + Me.chkanimationforhdvan.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkanimationforhdvan.Location = New System.Drawing.Point(106, 14) + Me.chkanimationforhdvan.Name = "chkanimationforhdvan" + Me.chkanimationforhdvan.Size = New System.Drawing.Size(82, 17) + Me.chkanimationforhdvan.TabIndex = 1183 + Me.chkanimationforhdvan.Text = "For HD Van" + Me.chkanimationforhdvan.UseVisualStyleBackColor = True + ' + 'cmdaddoutput + ' + Me.cmdaddoutput.Location = New System.Drawing.Point(980, 46) + Me.cmdaddoutput.Name = "cmdaddoutput" + Me.cmdaddoutput.Size = New System.Drawing.Size(71, 22) + Me.cmdaddoutput.TabIndex = 1254 + Me.cmdaddoutput.Text = "Add Output" + Me.cmdaddoutput.UseVisualStyleBackColor = True + ' + 'cmdremoveoutput + ' + Me.cmdremoveoutput.Location = New System.Drawing.Point(888, 46) + Me.cmdremoveoutput.Name = "cmdremoveoutput" + Me.cmdremoveoutput.Size = New System.Drawing.Size(91, 22) + Me.cmdremoveoutput.TabIndex = 1253 + Me.cmdremoveoutput.Text = "Remove Output" + Me.cmdremoveoutput.UseVisualStyleBackColor = True + ' + 'cmdsd + ' + Me.cmdsd.Location = New System.Drawing.Point(692, 70) + Me.cmdsd.Name = "cmdsd" + Me.cmdsd.Size = New System.Drawing.Size(39, 22) + Me.cmdsd.TabIndex = 1255 + Me.cmdsd.Text = "SD" + Me.cmdsd.UseVisualStyleBackColor = True + ' + 'cmdhd + ' + Me.cmdhd.Location = New System.Drawing.Point(731, 70) + Me.cmdhd.Name = "cmdhd" + Me.cmdhd.Size = New System.Drawing.Size(39, 22) + Me.cmdhd.TabIndex = 1256 + Me.cmdhd.Text = "HD" + Me.cmdhd.UseVisualStyleBackColor = True + ' + 'cmdsqueezeforsafesd + ' + Me.cmdsqueezeforsafesd.Location = New System.Drawing.Point(772, 71) + Me.cmdsqueezeforsafesd.Name = "cmdsqueezeforsafesd" + Me.cmdsqueezeforsafesd.Size = New System.Drawing.Size(59, 22) + Me.cmdsqueezeforsafesd.TabIndex = 1257 + Me.cmdsqueezeforsafesd.Text = "Squeeze" + Me.cmdsqueezeforsafesd.UseVisualStyleBackColor = True + ' + 'cmdfillnormal + ' + Me.cmdfillnormal.Location = New System.Drawing.Point(835, 72) + Me.cmdfillnormal.Name = "cmdfillnormal" + Me.cmdfillnormal.Size = New System.Drawing.Size(59, 22) + Me.cmdfillnormal.TabIndex = 1262 + Me.cmdfillnormal.Text = "Normal" + Me.cmdfillnormal.UseVisualStyleBackColor = True + ' + 'tmrtimeonform + ' + Me.tmrtimeonform.Interval = 1000 + ' + 'tmrtimeupdateontemplate + ' + Me.tmrtimeupdateontemplate.Interval = 1000 + ' + 'tmrupdateontemplateextra + ' + Me.tmrupdateontemplateextra.Interval = 1000 + ' + 'GroupBox31 + ' + Me.GroupBox31.BackColor = System.Drawing.Color.Wheat + Me.GroupBox31.Controls.Add(Me.gbOutAnimation) + Me.GroupBox31.Controls.Add(Me.gbINAnimation) + Me.GroupBox31.Controls.Add(Me.chkanimationzym) + Me.GroupBox31.Controls.Add(Me.chkanimationforhdvan) + Me.GroupBox31.Location = New System.Drawing.Point(483, 47) + Me.GroupBox31.Name = "GroupBox31" + Me.GroupBox31.Size = New System.Drawing.Size(203, 108) + Me.GroupBox31.TabIndex = 1312 + Me.GroupBox31.TabStop = False + Me.GroupBox31.Text = "Animation Setting" + ' + 'gbOutAnimation + ' + Me.gbOutAnimation.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.gbOutAnimation.Controls.Add(Me.rdoDownOut) + Me.gbOutAnimation.Controls.Add(Me.rdoUpOut) + Me.gbOutAnimation.Controls.Add(Me.rdoRightOut) + Me.gbOutAnimation.Controls.Add(Me.rdoleftOut) + Me.gbOutAnimation.Location = New System.Drawing.Point(7, 67) + Me.gbOutAnimation.Name = "gbOutAnimation" + Me.gbOutAnimation.Size = New System.Drawing.Size(194, 31) + Me.gbOutAnimation.TabIndex = 1210 + Me.gbOutAnimation.TabStop = False + Me.gbOutAnimation.Text = "Out Animation To" + ' + 'rdoDownOut + ' + Me.rdoDownOut.AutoSize = True + Me.rdoDownOut.Location = New System.Drawing.Point(135, 14) + Me.rdoDownOut.Name = "rdoDownOut" + Me.rdoDownOut.Size = New System.Drawing.Size(53, 17) + Me.rdoDownOut.TabIndex = 3 + Me.rdoDownOut.Text = "Down" + Me.rdoDownOut.UseVisualStyleBackColor = True + ' + 'rdoUpOut + ' + Me.rdoUpOut.AutoSize = True + Me.rdoUpOut.Location = New System.Drawing.Point(95, 14) + Me.rdoUpOut.Name = "rdoUpOut" + Me.rdoUpOut.Size = New System.Drawing.Size(39, 17) + Me.rdoUpOut.TabIndex = 2 + Me.rdoUpOut.Text = "Up" + Me.rdoUpOut.UseVisualStyleBackColor = True + ' + 'rdoRightOut + ' + Me.rdoRightOut.AutoSize = True + Me.rdoRightOut.Checked = True + Me.rdoRightOut.Location = New System.Drawing.Point(47, 13) + Me.rdoRightOut.Name = "rdoRightOut" + Me.rdoRightOut.Size = New System.Drawing.Size(50, 17) + Me.rdoRightOut.TabIndex = 1 + Me.rdoRightOut.TabStop = True + Me.rdoRightOut.Text = "Right" + Me.rdoRightOut.UseVisualStyleBackColor = True + ' + 'rdoleftOut + ' + Me.rdoleftOut.AutoSize = True + Me.rdoleftOut.Location = New System.Drawing.Point(2, 13) + Me.rdoleftOut.Name = "rdoleftOut" + Me.rdoleftOut.Size = New System.Drawing.Size(43, 17) + Me.rdoleftOut.TabIndex = 0 + Me.rdoleftOut.Text = "Left" + Me.rdoleftOut.UseVisualStyleBackColor = True + ' + 'gbINAnimation + ' + Me.gbINAnimation.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.gbINAnimation.Controls.Add(Me.rdoDownIN) + Me.gbINAnimation.Controls.Add(Me.rdoUpIN) + Me.gbINAnimation.Controls.Add(Me.rdoRightIN) + Me.gbINAnimation.Controls.Add(Me.rdoLeftIN) + Me.gbINAnimation.Location = New System.Drawing.Point(7, 32) + Me.gbINAnimation.Name = "gbINAnimation" + Me.gbINAnimation.Size = New System.Drawing.Size(194, 29) + Me.gbINAnimation.TabIndex = 1209 + Me.gbINAnimation.TabStop = False + Me.gbINAnimation.Text = "IN Animation From" + ' + 'rdoDownIN + ' + Me.rdoDownIN.AutoSize = True + Me.rdoDownIN.Location = New System.Drawing.Point(137, 9) + Me.rdoDownIN.Name = "rdoDownIN" + Me.rdoDownIN.Size = New System.Drawing.Size(53, 17) + Me.rdoDownIN.TabIndex = 3 + Me.rdoDownIN.Text = "Down" + Me.rdoDownIN.UseVisualStyleBackColor = True + ' + 'rdoUpIN + ' + Me.rdoUpIN.AutoSize = True + Me.rdoUpIN.Location = New System.Drawing.Point(100, 10) + Me.rdoUpIN.Name = "rdoUpIN" + Me.rdoUpIN.Size = New System.Drawing.Size(39, 17) + Me.rdoUpIN.TabIndex = 2 + Me.rdoUpIN.Text = "Up" + Me.rdoUpIN.UseVisualStyleBackColor = True + ' + 'rdoRightIN + ' + Me.rdoRightIN.AutoSize = True + Me.rdoRightIN.Location = New System.Drawing.Point(52, 12) + Me.rdoRightIN.Name = "rdoRightIN" + Me.rdoRightIN.Size = New System.Drawing.Size(50, 17) + Me.rdoRightIN.TabIndex = 1 + Me.rdoRightIN.Text = "Right" + Me.rdoRightIN.UseVisualStyleBackColor = True + ' + 'rdoLeftIN + ' + Me.rdoLeftIN.AutoSize = True + Me.rdoLeftIN.Checked = True + Me.rdoLeftIN.Location = New System.Drawing.Point(10, 13) + Me.rdoLeftIN.Name = "rdoLeftIN" + Me.rdoLeftIN.Size = New System.Drawing.Size(43, 17) + Me.rdoLeftIN.TabIndex = 0 + Me.rdoLeftIN.TabStop = True + Me.rdoLeftIN.Text = "Left" + Me.rdoLeftIN.UseVisualStyleBackColor = True + ' + 'GroupBox10 + ' + Me.GroupBox10.BackColor = System.Drawing.Color.Salmon + Me.GroupBox10.Controls.Add(Me.GroupBox31) + Me.GroupBox10.Controls.Add(Me.TabControl1) + Me.GroupBox10.Controls.Add(Me.cmdfillnormal) + Me.GroupBox10.Controls.Add(Me.cmdstopgym) + Me.GroupBox10.Controls.Add(Me.cmdhd) + Me.GroupBox10.Controls.Add(Me.Label30) + Me.GroupBox10.Controls.Add(Me.cmdsqueezeforsafesd) + Me.GroupBox10.Controls.Add(Me.cmblayergames) + Me.GroupBox10.Controls.Add(Me.cmdsd) + Me.GroupBox10.Controls.Add(Me.GroupBox3) + Me.GroupBox10.Controls.Add(Me.cmdaddoutput) + Me.GroupBox10.Controls.Add(Me.cmbgames) + Me.GroupBox10.Controls.Add(Me.eventlogo) + Me.GroupBox10.Controls.Add(Me.cmdremoveoutput) + Me.GroupBox10.Controls.Add(Me.gamelogo) + Me.GroupBox10.Location = New System.Drawing.Point(3, 3) + Me.GroupBox10.Name = "GroupBox10" + Me.GroupBox10.Size = New System.Drawing.Size(1353, 902) + Me.GroupBox10.TabIndex = 1352 + Me.GroupBox10.TabStop = False + Me.GroupBox10.Text = " " + ' + 'ucNG2015 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(1361, 918) + Me.Controls.Add(Me.GroupBox10) + Me.HideOnClose = True + Me.Name = "ucNG2015" + Me.Text = "National Games Kerala 2015" + Me.TabControl1.ResumeLayout(False) + Me.Ball.ResumeLayout(False) + Me.Ball.PerformLayout() + Me.gbBoxing.ResumeLayout(False) + Me.GroupBox30.ResumeLayout(False) + Me.GroupBox30.PerformLayout() + Me.gbsetscoreball.ResumeLayout(False) + CType(Me.dgvsetscoreball, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox22.ResumeLayout(False) + Me.GroupBox22.PerformLayout() + Me.GroupBox24.ResumeLayout(False) + Me.GroupBox24.PerformLayout() + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + CType(Me.dgvt2ball, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox23.ResumeLayout(False) + Me.GroupBox23.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.dgvt1ball, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox21.ResumeLayout(False) + Me.GroupBox21.PerformLayout() + Me.GroupBox16.ResumeLayout(False) + Me.GroupBox16.PerformLayout() + Me.GroupBox15.ResumeLayout(False) + Me.GroupBox15.PerformLayout() + CType(Me.pict2logoball, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pict1logoball, System.ComponentModel.ISupportInitialize).EndInit() + Me.CG.ResumeLayout(False) + Me.gbvictorytt.ResumeLayout(False) + Me.gbvictorytt.PerformLayout() + Me.GroupBox11.ResumeLayout(False) + Me.GroupBox11.PerformLayout() + Me.ToolStrip3.ResumeLayout(False) + Me.ToolStrip3.PerformLayout() + Me.GroupBox25.ResumeLayout(False) + Me.GroupBox25.PerformLayout() + Me.GroupBox20.ResumeLayout(False) + Me.GroupBox20.PerformLayout() + Me.GroupBox19.ResumeLayout(False) + Me.GroupBox19.PerformLayout() + Me.GroupBox17.ResumeLayout(False) + Me.GroupBox17.PerformLayout() + Me.GroupBox9.ResumeLayout(False) + Me.GroupBox9.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.dgvwinner, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + Me.Gymnastics.ResumeLayout(False) + Me.Gymnastics.PerformLayout() + Me.GroupBox12.ResumeLayout(False) + Me.GroupBox12.PerformLayout() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.tsgym.ResumeLayout(False) + Me.tsgym.PerformLayout() + CType(Me.dgvGymnastics, System.ComponentModel.ISupportInitialize).EndInit() + Me.Shooting.ResumeLayout(False) + Me.Shooting.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox13.ResumeLayout(False) + Me.GroupBox13.PerformLayout() + Me.GroupBox18.ResumeLayout(False) + Me.GroupBox18.PerformLayout() + Me.tsShooting.ResumeLayout(False) + Me.tsShooting.PerformLayout() + CType(Me.dgvShooting, System.ComponentModel.ISupportInitialize).EndInit() + Me.TT_Badminton.ResumeLayout(False) + Me.gbtt.ResumeLayout(False) + Me.GroupBox27.ResumeLayout(False) + Me.GroupBox27.PerformLayout() + Me.GroupBox26.ResumeLayout(False) + Me.GroupBox26.PerformLayout() + Me.gbsetscorett.ResumeLayout(False) + Me.GroupBox28.ResumeLayout(False) + Me.GroupBox28.PerformLayout() + CType(Me.dgvsetscorett, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbscorett.ResumeLayout(False) + Me.gbscorett.PerformLayout() + Me.GroupBox29.ResumeLayout(False) + Me.GroupBox29.PerformLayout() + CType(Me.pict2tt, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pict1tt, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbpointindicatertt.ResumeLayout(False) + Me.Cricket_Players_old_Recoed.ResumeLayout(False) + Me.gbpor.ResumeLayout(False) + Me.gbpor.PerformLayout() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator2.ResumeLayout(False) + Me.BindingNavigator2.PerformLayout() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.image2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.logo2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.image1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.logo1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.eventlogo, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gamelogo, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox31.ResumeLayout(False) + Me.GroupBox31.PerformLayout() + Me.gbOutAnimation.ResumeLayout(False) + Me.gbOutAnimation.PerformLayout() + Me.gbINAnimation.ResumeLayout(False) + Me.gbINAnimation.PerformLayout() + Me.GroupBox10.ResumeLayout(False) + Me.GroupBox10.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents Gymnastics As System.Windows.Forms.TabPage + Friend WithEvents CG As System.Windows.Forms.TabPage + Friend WithEvents dgvGymnastics As System.Windows.Forms.DataGridView + Friend WithEvents eventlogo As System.Windows.Forms.PictureBox + Friend WithEvents gamelogo As System.Windows.Forms.PictureBox + Friend WithEvents cmdgymnasticsstsrtlist1 As System.Windows.Forms.Button + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents cmblayergames As System.Windows.Forms.ComboBox + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents cmdgymnasticsstsrtlist2 As System.Windows.Forms.Button + Friend WithEvents cmdresult2gym As System.Windows.Forms.Button + Friend WithEvents cmdresult1gym As System.Windows.Forms.Button + Friend WithEvents cmdplayeridgym As System.Windows.Forms.Button + Friend WithEvents chkanimationzym As System.Windows.Forms.CheckBox + Friend WithEvents cmdstopgym As System.Windows.Forms.Button + Friend WithEvents cmdrowupzym As System.Windows.Forms.Button + Friend WithEvents lblfilenamegym As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents cmdrowdeletegym As System.Windows.Forms.Button + Friend WithEvents tsgym As System.Windows.Forms.ToolStrip + Friend WithEvents newgym As System.Windows.Forms.ToolStripButton + Friend WithEvents opengym As System.Windows.Forms.ToolStripButton + Friend WithEvents savegym As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cmdrowdowngym As System.Windows.Forms.Button + Friend WithEvents cmdrowinsertgym As System.Windows.Forms.Button + Friend WithEvents cmdplayerscore1gym As System.Windows.Forms.Button + Friend WithEvents cmdp1 As System.Windows.Forms.Button + Friend WithEvents p3 As System.Windows.Forms.TextBox + Friend WithEvents p2 As System.Windows.Forms.TextBox + Friend WithEvents p1 As System.Windows.Forms.TextBox + Friend WithEvents cmdrefree As System.Windows.Forms.Button + Friend WithEvents txtrefreename As System.Windows.Forms.TextBox + Friend WithEvents txtrefreedegination As System.Windows.Forms.TextBox + Friend WithEvents cmdcomentator As System.Windows.Forms.Button + Friend WithEvents txtcommentatordesignation As System.Windows.Forms.TextBox + Friend WithEvents txtcommentatorname1 As System.Windows.Forms.TextBox + Friend WithEvents cmdwelcome As System.Windows.Forms.Button + Friend WithEvents cmdw1 As System.Windows.Forms.Button + Friend WithEvents cmDvenueid1 As System.Windows.Forms.Button + Friend WithEvents txtvenueid1 As System.Windows.Forms.TextBox + Friend WithEvents cmdMedalPresentorId As System.Windows.Forms.Button + Friend WithEvents txtofficialname As System.Windows.Forms.TextBox + Friend WithEvents txtofficialdesignation As System.Windows.Forms.TextBox + Friend WithEvents w3 As System.Windows.Forms.TextBox + Friend WithEvents w2 As System.Windows.Forms.TextBox + Friend WithEvents w1 As System.Windows.Forms.TextBox + Friend WithEvents cmdeventid As System.Windows.Forms.Button + Friend WithEvents cmdVaultStandings1 As System.Windows.Forms.Button + Friend WithEvents cmdVaultStandings2 As System.Windows.Forms.Button + Friend WithEvents cmdteamlist As System.Windows.Forms.Button + Friend WithEvents cmdeventshedule As System.Windows.Forms.Button + Friend WithEvents Label36 As System.Windows.Forms.Label + Friend WithEvents Label35 As System.Windows.Forms.Label + Friend WithEvents Label34 As System.Windows.Forms.Label + Friend WithEvents Label33 As System.Windows.Forms.Label + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents cmdplayerscore2gym As System.Windows.Forms.Button + Friend WithEvents cmdplayerscore3gym As System.Windows.Forms.Button + Friend WithEvents Build3gym As System.Windows.Forms.Button + Friend WithEvents Build2gym As System.Windows.Forms.Button + Friend WithEvents Build1gym As System.Windows.Forms.Button + Friend WithEvents cmdplayerscorecardgym As System.Windows.Forms.Button + Friend WithEvents chkwithnumbergym As System.Windows.Forms.CheckBox + Friend WithEvents cmbstandingsgym As System.Windows.Forms.ComboBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label37 As System.Windows.Forms.Label + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents cmdofficialsgym As System.Windows.Forms.Button + Friend WithEvents cmdteamlistwithgamenamegym As System.Windows.Forms.Button + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents rdoRhythmicgym As System.Windows.Forms.RadioButton + Friend WithEvents rdoArtisticsgym As System.Windows.Forms.RadioButton + Friend WithEvents cmdtop3standingsgym As System.Windows.Forms.Button + Friend WithEvents cmdplayerscorecard2ndvaultgym As System.Windows.Forms.Button + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents Label38 As System.Windows.Forms.Label + Friend WithEvents cmbplayergamepointgym As System.Windows.Forms.ComboBox + Friend WithEvents cmdplayergamepointgym As System.Windows.Forms.Button + Friend WithEvents cmbchangecolumnnamegym As System.Windows.Forms.ComboBox + Friend WithEvents txtchangecolumnnamegym As System.Windows.Forms.TextBox + Friend WithEvents cmdchangecolumnnamegym As System.Windows.Forms.Button + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents chkanimationforhdvan As System.Windows.Forms.CheckBox + Friend WithEvents txtcommentatorname2 As System.Windows.Forms.TextBox + Friend WithEvents cmbgames As System.Windows.Forms.ComboBox + Friend WithEvents Shooting As System.Windows.Forms.TabPage + Friend WithEvents GroupBox13 As System.Windows.Forms.GroupBox + Friend WithEvents Label41 As System.Windows.Forms.Label + Friend WithEvents cmbplayergamepointShooting As System.Windows.Forms.ComboBox + Friend WithEvents cmdplayergamepointShooting As System.Windows.Forms.Button + Friend WithEvents cmdplayerscorecardShooting As System.Windows.Forms.Button + Friend WithEvents GroupBox18 As System.Windows.Forms.GroupBox + Friend WithEvents cmdtop3standingsShooting As System.Windows.Forms.Button + Friend WithEvents Label46 As System.Windows.Forms.Label + Friend WithEvents cmbstandingsShooting As System.Windows.Forms.ComboBox + Friend WithEvents cmdresult1Shooting As System.Windows.Forms.Button + Friend WithEvents chkwithnumberShooting As System.Windows.Forms.CheckBox + Friend WithEvents Label47 As System.Windows.Forms.Label + Friend WithEvents Label49 As System.Windows.Forms.Label + Friend WithEvents Label50 As System.Windows.Forms.Label + Friend WithEvents Label51 As System.Windows.Forms.Label + Friend WithEvents Label52 As System.Windows.Forms.Label + Friend WithEvents Label53 As System.Windows.Forms.Label + Friend WithEvents Label54 As System.Windows.Forms.Label + Friend WithEvents Label55 As System.Windows.Forms.Label + Friend WithEvents Label56 As System.Windows.Forms.Label + Friend WithEvents Label57 As System.Windows.Forms.Label + Friend WithEvents Label58 As System.Windows.Forms.Label + Friend WithEvents Label59 As System.Windows.Forms.Label + Friend WithEvents Label60 As System.Windows.Forms.Label + Friend WithEvents Label61 As System.Windows.Forms.Label + Friend WithEvents Label62 As System.Windows.Forms.Label + Friend WithEvents Label63 As System.Windows.Forms.Label + Friend WithEvents Label64 As System.Windows.Forms.Label + Friend WithEvents Label65 As System.Windows.Forms.Label + Friend WithEvents Label66 As System.Windows.Forms.Label + Friend WithEvents Label67 As System.Windows.Forms.Label + Friend WithEvents Label68 As System.Windows.Forms.Label + Friend WithEvents Label69 As System.Windows.Forms.Label + Friend WithEvents Label70 As System.Windows.Forms.Label + Friend WithEvents Label71 As System.Windows.Forms.Label + Friend WithEvents Label72 As System.Windows.Forms.Label + Friend WithEvents Label73 As System.Windows.Forms.Label + Friend WithEvents cmdplayerqualification As System.Windows.Forms.Button + Friend WithEvents cmdrowupShooting As System.Windows.Forms.Button + Friend WithEvents lblfilenameShooting As System.Windows.Forms.Label + Friend WithEvents Label78 As System.Windows.Forms.Label + Friend WithEvents cmdrowdeleteShooting As System.Windows.Forms.Button + Friend WithEvents tsShooting As System.Windows.Forms.ToolStrip + Friend WithEvents newShooting As System.Windows.Forms.ToolStripButton + Friend WithEvents openShooting As System.Windows.Forms.ToolStripButton + Friend WithEvents saveShooting As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cmdrowdownShooting As System.Windows.Forms.Button + Friend WithEvents cmdrowinsertShooting As System.Windows.Forms.Button + Friend WithEvents cmdplayeridShooting As System.Windows.Forms.Button + Friend WithEvents cmdShootingstartlist2 As System.Windows.Forms.Button + Friend WithEvents cmdShootingstartlist1 As System.Windows.Forms.Button + Friend WithEvents dgvShooting As System.Windows.Forms.DataGridView + Friend WithEvents gbvictorytt As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents rdodoublescg As System.Windows.Forms.RadioButton + Friend WithEvents rdosinglecg As System.Windows.Forms.RadioButton + Friend WithEvents cmdrunnerupridcg As System.Windows.Forms.Button + Friend WithEvents cmdwinneridcg As System.Windows.Forms.Button + Friend WithEvents cmdbronze2cg As System.Windows.Forms.Button + Friend WithEvents cmdmedalallbronze2cg As System.Windows.Forms.Button + Friend WithEvents cmdbronzecg As System.Windows.Forms.Button + Friend WithEvents cmdvictoryidcg As System.Windows.Forms.Button + Friend WithEvents cmdmedalallcg As System.Windows.Forms.Button + Friend WithEvents cmdgoldcg As System.Windows.Forms.Button + Friend WithEvents cmdsilvercg As System.Windows.Forms.Button + Friend WithEvents cmdplayeridcg As System.Windows.Forms.Button + Friend WithEvents dgvwinner As System.Windows.Forms.DataGridView + Friend WithEvents cmdRoadToSemiFinal As System.Windows.Forms.Button + Friend WithEvents rdo0 As System.Windows.Forms.RadioButton + Friend WithEvents rdo1 As System.Windows.Forms.RadioButton + Friend WithEvents GroupBox20 As System.Windows.Forms.GroupBox + Friend WithEvents rdo7 As System.Windows.Forms.RadioButton + Friend WithEvents rdo6 As System.Windows.Forms.RadioButton + Friend WithEvents GroupBox19 As System.Windows.Forms.GroupBox + Friend WithEvents rdo5 As System.Windows.Forms.RadioButton + Friend WithEvents rdo4 As System.Windows.Forms.RadioButton + Friend WithEvents GroupBox17 As System.Windows.Forms.GroupBox + Friend WithEvents rdo3 As System.Windows.Forms.RadioButton + Friend WithEvents rdo2 As System.Windows.Forms.RadioButton + Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox + Friend WithEvents DataGridViewImageColumn1 As System.Windows.Forms.DataGridViewImageColumn + Friend WithEvents DataGridViewTextBoxColumn25 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column29 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents cmdroadtofinal As System.Windows.Forms.Button + Friend WithEvents cmdplayerscorecard2Shooting As System.Windows.Forms.Button + Friend WithEvents txttop3 As System.Windows.Forms.TextBox + Friend WithEvents cmdaddoutput As System.Windows.Forms.Button + Friend WithEvents cmdremoveoutput As System.Windows.Forms.Button + Friend WithEvents txtaftershots As System.Windows.Forms.TextBox + Friend WithEvents txteleminationshooting As System.Windows.Forms.TextBox + Friend WithEvents Label44 As System.Windows.Forms.Label + Friend WithEvents cmdseries1shooting As System.Windows.Forms.Button + Friend WithEvents cmdseries2shooting As System.Windows.Forms.Button + Friend WithEvents cmdseries3shooting As System.Windows.Forms.Button + Friend WithEvents cmdseries9shooting As System.Windows.Forms.Button + Friend WithEvents cmdseries8shooting As System.Windows.Forms.Button + Friend WithEvents cmdseries7shooting As System.Windows.Forms.Button + Friend WithEvents cmdseries6shooting As System.Windows.Forms.Button + Friend WithEvents cmdseries5shooting As System.Windows.Forms.Button + Friend WithEvents cmdseries4shooting As System.Windows.Forms.Button + Friend WithEvents cmdseries4shooting25m As System.Windows.Forms.Button + Friend WithEvents cmdseries3shooting25m As System.Windows.Forms.Button + Friend WithEvents cmdseries2shooting25m As System.Windows.Forms.Button + Friend WithEvents cmdseries1shooting25m As System.Windows.Forms.Button + Friend WithEvents cmdseries5shooting25m As System.Windows.Forms.Button + Friend WithEvents cmdmedalmatchshooting As System.Windows.Forms.Button + Friend WithEvents cmdShootoffshooting As System.Windows.Forms.Button + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents cmdsd As System.Windows.Forms.Button + Friend WithEvents cmdhd As System.Windows.Forms.Button + Friend WithEvents cmdsqueezeforsafesd As System.Windows.Forms.Button + Friend WithEvents cmdfillnormal As System.Windows.Forms.Button + Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox + Friend WithEvents rdoaddvaultgym As System.Windows.Forms.RadioButton + Friend WithEvents rdoaveragevaultgym As System.Windows.Forms.RadioButton + Friend WithEvents cmdcleardatagym As System.Windows.Forms.Button + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Ball As System.Windows.Forms.TabPage + Friend WithEvents cmbSubHeader As System.Windows.Forms.ComboBox + Friend WithEvents cmbHeader As System.Windows.Forms.ComboBox + Friend WithEvents cmdteam2inball As System.Windows.Forms.Button + Friend WithEvents cmdteam1inball As System.Windows.Forms.Button + Friend WithEvents txtt2outball As System.Windows.Forms.TextBox + Friend WithEvents txtt2inball As System.Windows.Forms.TextBox + Friend WithEvents cmdt2inoutball As System.Windows.Forms.Button + Friend WithEvents cmdt2gball As System.Windows.Forms.Button + Friend WithEvents cmdt2rball As System.Windows.Forms.Button + Friend WithEvents cmdt2yball As System.Windows.Forms.Button + Friend WithEvents txtt1outball As System.Windows.Forms.TextBox + Friend WithEvents txtt1inball As System.Windows.Forms.TextBox + Friend WithEvents cmdt2lineupball As System.Windows.Forms.Button + Friend WithEvents cmdt1gball As System.Windows.Forms.Button + Friend WithEvents cmdt1rball As System.Windows.Forms.Button + Friend WithEvents cmdt1yball As System.Windows.Forms.Button + Friend WithEvents cmdt1inoutball As System.Windows.Forms.Button + Friend WithEvents cmdt1lineupball As System.Windows.Forms.Button + Friend WithEvents dgvt1ball As System.Windows.Forms.DataGridView + Friend WithEvents GroupBox15 As System.Windows.Forms.GroupBox + Friend WithEvents rdodowncounterball As System.Windows.Forms.RadioButton + Friend WithEvents rdoupcounterball As System.Windows.Forms.RadioButton + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents txthalftimeball As System.Windows.Forms.TextBox + Friend WithEvents cmdscorewithextraball As System.Windows.Forms.Button + Friend WithEvents pict2logoball As System.Windows.Forms.PictureBox + Friend WithEvents pict1logoball As System.Windows.Forms.PictureBox + Friend WithEvents txtt2gball As System.Windows.Forms.TextBox + Friend WithEvents txtt2ball As System.Windows.Forms.TextBox + Friend WithEvents txtt1gball As System.Windows.Forms.TextBox + Friend WithEvents txtt1ball As System.Windows.Forms.TextBox + Friend WithEvents cmdresetclockball As System.Windows.Forms.Button + Friend WithEvents txtsecball As System.Windows.Forms.TextBox + Friend WithEvents txtminball As System.Windows.Forms.TextBox + Friend WithEvents cmdstopscoreball As System.Windows.Forms.Button + Friend WithEvents cmdstartclockball As System.Windows.Forms.Button + Friend WithEvents cmdpauseclockball As System.Windows.Forms.Button + Friend WithEvents cmdscoreball As System.Windows.Forms.Button + Friend WithEvents GroupBox16 As System.Windows.Forms.GroupBox + Friend WithEvents cmbhalfball As System.Windows.Forms.ComboBox + Friend WithEvents tmrtimeonform As System.Windows.Forms.Timer + Friend WithEvents tmrtimeupdateontemplate As System.Windows.Forms.Timer + Friend WithEvents tmrupdateontemplateextra As System.Windows.Forms.Timer + Friend WithEvents Label39 As System.Windows.Forms.Label + Friend WithEvents Label40 As System.Windows.Forms.Label + Friend WithEvents DataGridViewTextBoxColumn27 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents dgvt2ball As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn26 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents GroupBox21 As System.Windows.Forms.GroupBox + Friend WithEvents cmdteam2outball As System.Windows.Forms.Button + Friend WithEvents cmdteam1outball As System.Windows.Forms.Button + Friend WithEvents GroupBox22 As System.Windows.Forms.GroupBox + Friend WithEvents cmdvsball As System.Windows.Forms.Button + Friend WithEvents GroupBox23 As System.Windows.Forms.GroupBox + Friend WithEvents cmduprowt1ball As System.Windows.Forms.Button + Friend WithEvents cmdremoverowt1ball As System.Windows.Forms.Button + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents cmdnewt1ball As System.Windows.Forms.ToolStripButton + Friend WithEvents cmdopent1ball As System.Windows.Forms.ToolStripButton + Friend WithEvents cmdsavet1ball As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cmddownrowt1ball As System.Windows.Forms.Button + Friend WithEvents cmdaddrowt1ball As System.Windows.Forms.Button + Friend WithEvents lblfilenamet2ball As System.Windows.Forms.Label + Friend WithEvents lblfilenamet1ball As System.Windows.Forms.Label + Friend WithEvents GroupBox24 As System.Windows.Forms.GroupBox + Friend WithEvents cmduprowt2ball As System.Windows.Forms.Button + Friend WithEvents cmdremoverowt2ball As System.Windows.Forms.Button + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents cmdnewt2ball As System.Windows.Forms.ToolStripButton + Friend WithEvents cmdopent2ball As System.Windows.Forms.ToolStripButton + Friend WithEvents cmdsavet2ball As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cmddownrowt2ball As System.Windows.Forms.Button + Friend WithEvents cmdaddrowt2ball As System.Windows.Forms.Button + Friend WithEvents GroupBox25 As System.Windows.Forms.GroupBox + Friend WithEvents cmbsubheadercg As System.Windows.Forms.ComboBox + Friend WithEvents cmbheadercg As System.Windows.Forms.ComboBox + Friend WithEvents cmdeventidcg As System.Windows.Forms.Button + Friend WithEvents Label42 As System.Windows.Forms.Label + Friend WithEvents Label43 As System.Windows.Forms.Label + Friend WithEvents cmdplayeridt2ball As System.Windows.Forms.Button + Friend WithEvents cmdplayeridt1ball As System.Windows.Forms.Button + Friend WithEvents cmdtteamridt2ball As System.Windows.Forms.Button + Friend WithEvents cmdtteamridt1ball As System.Windows.Forms.Button + Friend WithEvents cmd2refereescg As System.Windows.Forms.Button + Friend WithEvents Label45 As System.Windows.Forms.Label + Friend WithEvents cmdt2colorball As System.Windows.Forms.Button + Friend WithEvents cmdt1colorball As System.Windows.Forms.Button + Friend WithEvents cmdadd1t2ball As System.Windows.Forms.Button + Friend WithEvents cmdadd1t1ball As System.Windows.Forms.Button + Friend WithEvents cmdscoreupdateball As System.Windows.Forms.Button + Friend WithEvents cmdgoalSummary As System.Windows.Forms.Button + Friend WithEvents cmbgoalsummary As System.Windows.Forms.ComboBox + Friend WithEvents cmdgroupcg As System.Windows.Forms.Button + Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox + Friend WithEvents cmdupcg As System.Windows.Forms.Button + Friend WithEvents cmddeleteg As System.Windows.Forms.Button + Friend WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip + Friend WithEvents tsnewcg As System.Windows.Forms.ToolStripButton + Friend WithEvents tsopencg As System.Windows.Forms.ToolStripButton + Friend WithEvents tssavecg As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cmddowncg As System.Windows.Forms.Button + Friend WithEvents cmdinsercg As System.Windows.Forms.Button + Friend WithEvents lblfilenamecg As System.Windows.Forms.Label + Friend WithEvents cmdscorewithinfo As System.Windows.Forms.Button + Friend WithEvents cmdscorewithclock As System.Windows.Forms.Button + Friend WithEvents cmdleftotopcg As System.Windows.Forms.Button + Friend WithEvents cmblefttopcg As System.Windows.Forms.ComboBox + Friend WithEvents cmdonelinercg As System.Windows.Forms.Button + Friend WithEvents txtonelinercg As System.Windows.Forms.TextBox + Friend WithEvents cmbinfoball As System.Windows.Forms.ComboBox + Friend WithEvents cmbputsecondball As System.Windows.Forms.ComboBox + Friend WithEvents cmbputminuteball As System.Windows.Forms.ComboBox + Friend WithEvents cmdadjustminball As System.Windows.Forms.Button + Friend WithEvents gbsetscoreball As System.Windows.Forms.GroupBox + Friend WithEvents cmdscoreresetball As System.Windows.Forms.Button + Friend WithEvents cmdshowsetscoreball As System.Windows.Forms.Button + Friend WithEvents dgvsetscoreball As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn28 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn29 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn30 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn31 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn32 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn34 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column3 As System.Windows.Forms.DataGridViewComboBoxColumn + Friend WithEvents Column5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column20 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column11 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column10 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column13 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column12 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column24 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column23 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column22 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column14 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column21 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column25 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column15 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column16 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column17 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column18 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column28 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column19 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Penalties As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Score As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column26 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column27 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewComboBoxColumn1 As System.Windows.Forms.DataGridViewComboBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn12 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn13 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn14 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn15 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn16 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn17 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn18 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn19 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn20 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn21 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn22 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn23 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column30 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column31 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column32 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column33 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column34 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn24 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column35 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column36 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column37 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column38 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column39 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column40 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents TT_Badminton As System.Windows.Forms.TabPage + Friend WithEvents gbtt As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox26 As System.Windows.Forms.GroupBox + Friend WithEvents cmdpositionhorizontaltt As System.Windows.Forms.Button + Friend WithEvents rdoreversepositiontt As System.Windows.Forms.RadioButton + Friend WithEvents rdostraightposiontt As System.Windows.Forms.RadioButton + Friend WithEvents cmdpositiontt As System.Windows.Forms.Button + Friend WithEvents gbsetscorett As System.Windows.Forms.GroupBox + Friend WithEvents cmdscoreresettt As System.Windows.Forms.Button + Friend WithEvents GroupBox28 As System.Windows.Forms.GroupBox + Friend WithEvents rdo7settt As System.Windows.Forms.RadioButton + Friend WithEvents rdo5settt As System.Windows.Forms.RadioButton + Friend WithEvents rdo3settt As System.Windows.Forms.RadioButton + Friend WithEvents cmdshowsetscorett As System.Windows.Forms.Button + Friend WithEvents dgvsetscorett As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn33 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn35 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn36 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn37 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn38 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn39 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn40 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents gbscorett As System.Windows.Forms.GroupBox + Friend WithEvents chkshowsettt As System.Windows.Forms.CheckBox + Friend WithEvents Label206 As System.Windows.Forms.Label + Friend WithEvents txtset2tt As System.Windows.Forms.TextBox + Friend WithEvents txtset1tt As System.Windows.Forms.TextBox + Friend WithEvents cmdupdatescore1tt As System.Windows.Forms.Button + Friend WithEvents cmdshowscore1tt As System.Windows.Forms.Button + Friend WithEvents cmdpointdecreaset2tt As System.Windows.Forms.Button + Friend WithEvents cmdpointdecreaset1tt As System.Windows.Forms.Button + Friend WithEvents cmdresetscorett As System.Windows.Forms.Button + Friend WithEvents cmdpointincreaset2tt As System.Windows.Forms.Button + Friend WithEvents cmdpointincreaset1tt As System.Windows.Forms.Button + Friend WithEvents cmdupdatescorett As System.Windows.Forms.Button + Friend WithEvents GroupBox29 As System.Windows.Forms.GroupBox + Friend WithEvents rdoservicet2tt As System.Windows.Forms.RadioButton + Friend WithEvents rdoservicet1tt As System.Windows.Forms.RadioButton + Friend WithEvents chkshowservicett As System.Windows.Forms.CheckBox + Friend WithEvents txtshortnamet2tt As System.Windows.Forms.TextBox + Friend WithEvents txtshortnamet1tt As System.Windows.Forms.TextBox + Friend WithEvents txtfullnamet2tt As System.Windows.Forms.TextBox + Friend WithEvents txtfullnamet1tt As System.Windows.Forms.TextBox + Friend WithEvents Label48 As System.Windows.Forms.Label + Friend WithEvents Label87 As System.Windows.Forms.Label + Friend WithEvents Label165 As System.Windows.Forms.Label + Friend WithEvents pict2tt As System.Windows.Forms.PictureBox + Friend WithEvents pict1tt As System.Windows.Forms.PictureBox + Friend WithEvents txtpointt2tt As System.Windows.Forms.TextBox + Friend WithEvents txtpointt1tt As System.Windows.Forms.TextBox + Friend WithEvents txtgamet2tt As System.Windows.Forms.TextBox + Friend WithEvents txtgamet1tt As System.Windows.Forms.TextBox + Friend WithEvents cmdshowscorett As System.Windows.Forms.Button + Friend WithEvents cmdversustt As System.Windows.Forms.Button + Friend WithEvents gbpointindicatertt As System.Windows.Forms.GroupBox + Friend WithEvents cmdpontindicatert2tt As System.Windows.Forms.Button + Friend WithEvents cmdleftotoptt As System.Windows.Forms.Button + Friend WithEvents cmdpontindicatert1tt As System.Windows.Forms.Button + Friend WithEvents cmblefttoptt As System.Windows.Forms.ComboBox + Friend WithEvents GroupBox27 As System.Windows.Forms.GroupBox + Friend WithEvents rdolawntennis As System.Windows.Forms.RadioButton + Friend WithEvents Cricket_Players_old_Recoed As System.Windows.Forms.TabPage + Friend WithEvents BindingNavigator2 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator12 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator13 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton8 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents txtcareer2 As System.Windows.Forms.TextBox + Friend WithEvents txtcareer1 As System.Windows.Forms.TextBox + Friend WithEvents txthighestscore4 As System.Windows.Forms.TextBox + Friend WithEvents txthighestscore3 As System.Windows.Forms.TextBox + Friend WithEvents image2 As System.Windows.Forms.PictureBox + Friend WithEvents logo2 As System.Windows.Forms.PictureBox + Friend WithEvents image1 As System.Windows.Forms.PictureBox + Friend WithEvents Label74 As System.Windows.Forms.Label + Friend WithEvents Label75 As System.Windows.Forms.Label + Friend WithEvents Label76 As System.Windows.Forms.Label + Friend WithEvents Label77 As System.Windows.Forms.Label + Friend WithEvents logo1 As System.Windows.Forms.PictureBox + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Label79 As System.Windows.Forms.Label + Friend WithEvents Label80 As System.Windows.Forms.Label + Friend WithEvents Label81 As System.Windows.Forms.Label + Friend WithEvents Label82 As System.Windows.Forms.Label + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents cmd4 As System.Windows.Forms.Button + Friend WithEvents cmd3 As System.Windows.Forms.Button + Friend WithEvents txt50s8 As System.Windows.Forms.TextBox + Friend WithEvents txt100s8 As System.Windows.Forms.TextBox + Friend WithEvents txtaverage8 As System.Windows.Forms.TextBox + Friend WithEvents txtinnings8 As System.Windows.Forms.TextBox + Friend WithEvents txtmatches8 As System.Windows.Forms.TextBox + Friend WithEvents txt50s7 As System.Windows.Forms.TextBox + Friend WithEvents txt100s7 As System.Windows.Forms.TextBox + Friend WithEvents txtaverage7 As System.Windows.Forms.TextBox + Friend WithEvents txthighestscore7 As System.Windows.Forms.TextBox + Friend WithEvents txtruns7 As System.Windows.Forms.TextBox + Friend WithEvents txtinnings7 As System.Windows.Forms.TextBox + Friend WithEvents txthighestscore8 As System.Windows.Forms.TextBox + Friend WithEvents txtruns8 As System.Windows.Forms.TextBox + Friend WithEvents txtmatches7 As System.Windows.Forms.TextBox + Friend WithEvents txtecon6 As System.Windows.Forms.TextBox + Friend WithEvents txt5w6 As System.Windows.Forms.TextBox + Friend WithEvents txt4w6 As System.Windows.Forms.TextBox + Friend WithEvents txtavg6 As System.Windows.Forms.TextBox + Friend WithEvents txtbest6 As System.Windows.Forms.TextBox + Friend WithEvents txtwickets6 As System.Windows.Forms.TextBox + Friend WithEvents txtmatches6 As System.Windows.Forms.TextBox + Friend WithEvents txtecon5 As System.Windows.Forms.TextBox + Friend WithEvents txt5w5 As System.Windows.Forms.TextBox + Friend WithEvents txt4w5 As System.Windows.Forms.TextBox + Friend WithEvents txtavg5 As System.Windows.Forms.TextBox + Friend WithEvents txtbest5 As System.Windows.Forms.TextBox + Friend WithEvents txtwickets5 As System.Windows.Forms.TextBox + Friend WithEvents txtmatches5 As System.Windows.Forms.TextBox + Friend WithEvents Label83 As System.Windows.Forms.Label + Friend WithEvents Label84 As System.Windows.Forms.Label + Friend WithEvents txtplayerb As System.Windows.Forms.TextBox + Friend WithEvents txtteamb As System.Windows.Forms.TextBox + Friend WithEvents cmd2 As System.Windows.Forms.Button + Friend WithEvents cmd1 As System.Windows.Forms.Button + Friend WithEvents txt50s4 As System.Windows.Forms.TextBox + Friend WithEvents txt100s4 As System.Windows.Forms.TextBox + Friend WithEvents txtaverage4 As System.Windows.Forms.TextBox + Friend WithEvents txtruns4 As System.Windows.Forms.TextBox + Friend WithEvents txtinnings4 As System.Windows.Forms.TextBox + Friend WithEvents txtmatches4 As System.Windows.Forms.TextBox + Friend WithEvents txt50s3 As System.Windows.Forms.TextBox + Friend WithEvents txt100s3 As System.Windows.Forms.TextBox + Friend WithEvents txtaverage3 As System.Windows.Forms.TextBox + Friend WithEvents txtruns3 As System.Windows.Forms.TextBox + Friend WithEvents txtinnings3 As System.Windows.Forms.TextBox + Friend WithEvents txtmatches3 As System.Windows.Forms.TextBox + Friend WithEvents txtecon2 As System.Windows.Forms.TextBox + Friend WithEvents txt5w2 As System.Windows.Forms.TextBox + Friend WithEvents txt4w2 As System.Windows.Forms.TextBox + Friend WithEvents txtavg2 As System.Windows.Forms.TextBox + Friend WithEvents txtwickets2 As System.Windows.Forms.TextBox + Friend WithEvents txtmatches2 As System.Windows.Forms.TextBox + Friend WithEvents txtbest2 As System.Windows.Forms.TextBox + Friend WithEvents txtecon1 As System.Windows.Forms.TextBox + Friend WithEvents txt5w1 As System.Windows.Forms.TextBox + Friend WithEvents txt4w1 As System.Windows.Forms.TextBox + Friend WithEvents txtavg1 As System.Windows.Forms.TextBox + Friend WithEvents txtbest1 As System.Windows.Forms.TextBox + Friend WithEvents txtwickets1 As System.Windows.Forms.TextBox + Friend WithEvents txtmatches1 As System.Windows.Forms.TextBox + Friend WithEvents lblbatting As System.Windows.Forms.Label + Friend WithEvents lblbowling As System.Windows.Forms.Label + Friend WithEvents txtplayera As System.Windows.Forms.TextBox + Friend WithEvents txtteama As System.Windows.Forms.TextBox + Friend WithEvents ofd1 As System.Windows.Forms.OpenFileDialog + Friend WithEvents gbpor As System.Windows.Forms.GroupBox + Friend WithEvents cmdadjustsecball As System.Windows.Forms.Button + Friend WithEvents gbBoxing As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox + Friend WithEvents rdoteamBBlue As System.Windows.Forms.RadioButton + Friend WithEvents rdoTeamARed As System.Windows.Forms.RadioButton + Friend WithEvents cmdversusboxing As System.Windows.Forms.Button + Friend WithEvents cmdwinnerBoxing As System.Windows.Forms.Button + Friend WithEvents cmbwinningmethodboxing As System.Windows.Forms.ComboBox + Friend WithEvents cmdplayeridboxing As System.Windows.Forms.Button + Friend WithEvents cmdscoreboxing As System.Windows.Forms.Button + Private WithEvents ShapeContainer1 As Microsoft.VisualBasic.PowerPacks.ShapeContainer + Private WithEvents LineShape2 As Microsoft.VisualBasic.PowerPacks.LineShape + Friend WithEvents cmdscorewithclockboxing As System.Windows.Forms.Button + Friend WithEvents cmdsetscoreboxing As System.Windows.Forms.Button + Friend WithEvents cmdroundscoreboxing As System.Windows.Forms.Button + Friend WithEvents GroupBox31 As System.Windows.Forms.GroupBox + Friend WithEvents gbOutAnimation As System.Windows.Forms.GroupBox + Friend WithEvents rdoDownOut As System.Windows.Forms.RadioButton + Friend WithEvents rdoUpOut As System.Windows.Forms.RadioButton + Friend WithEvents rdoRightOut As System.Windows.Forms.RadioButton + Friend WithEvents rdoleftOut As System.Windows.Forms.RadioButton + Friend WithEvents gbINAnimation As System.Windows.Forms.GroupBox + Friend WithEvents rdoDownIN As System.Windows.Forms.RadioButton + Friend WithEvents rdoUpIN As System.Windows.Forms.RadioButton + Friend WithEvents rdoRightIN As System.Windows.Forms.RadioButton + Friend WithEvents rdoLeftIN As System.Windows.Forms.RadioButton + Friend WithEvents GroupBox10 As GroupBox +End Class diff --git a/CasparMediaPlayback/ucNG2015.resx b/CasparMediaPlayback/ucNG2015.resx new file mode 100644 index 0000000..415c381 --- /dev/null +++ b/CasparMediaPlayback/ucNG2015.resx @@ -0,0 +1,1114 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + True + + + True + + + True + + + True + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAA+klE + QVQ4T83RMWqEQBiG4a0EQRAEQRBEQRQERRsrSysbCytv4B3sPICVYOsVrDyCrVZiqTfQC3yB7JCNjFk2 + EsK+3cz8/9PMDX/Q/yBJkqDrOnI67ylSliVkWYZhGFjXldzS/Yj0fQ9FUT4RSZIQxzF5oTtFtm2D4zgH + RBRF1HVNJo6dIlmWQdM0ClFVFcuykKlHFNI0DXRdP0UEQUAURWTy0QGZpgmmaT5FeJ5HVVVk494Xsu87 + wjB8CeE4DuM4ks1vSJ7nsCzrZcT3fbJJkLZtYdv2rxCWZVEUxR2Z5xlBEFxCGIbBMAy4pWkK13UvI57n + 0V98pXdBgA8V7mE/Mzv3lQAAAABJRU5ErkJggg== + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAIBAQIBAQICAgICAgICAwUDAwMDAwYEBAMFBwYHBwcGBwcI + CQsJCAgKCAcHCg0KCgsMDAwMBwkODw0MDgsMDAz/2wBDAQICAgMDAwYDAwYMCAcIDAwMDAwMDAwMDAwM + DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAARAB4DASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9vPjp+1j8LP2X/wCy/wDhZnxL+H/w7/tzzf7N/wCEn8Q2ekf2 + h5WzzfJ+0SJ5mzzY923O3zEzjcM8B/w9i/ZY/wCjlv2f/wDw4ekf/JFH7c//AAS4+BP/AAUo/wCEW/4X + X4G/4TT/AIQv7X/Y3/E61DTvsf2ryPP/AOPSeLfu+zw/f3Y2cYyc/P8A/wAQuP7Cf/RDP/Lz8Q//ACdQ + B9Af8PYv2WP+jlv2f/8Aw4ekf/JFe3+E/FmlePfCuma7oWp6frWia1aRX+n6hYXCXNrf28qB4popUJSS + N0ZWV1JDAggkGvhD/iFx/YT/AOiGf+Xn4h/+Tq+3/hP8LdC+B3ws8NeCvC1j/ZfhjwfpVromkWXnST/Z + LO2hSGCLzJGaR9saKu52ZjjJJOTQB0FFFFABRRRQB//Z + + + + 323, 52 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAERSURBVDhPrZDbSgJRGIXnpewd6jXsjSQvIrwoI0RQMChU + 0iiDPCGiE3ZCRkvR8VzTeBhnyR5/ccaZNnPhB4t9sdf6Ln5hb8QeathNJFVFKF5C8DqL4ksDVHWGDf7j + LHyPg6NjviSaFqlu5yQYR+KpupaIkrMknCxT3Y7v/NYYb0ITK1c3BarbWWhLQ7IR0cTKReyZ6lZ0XYei + ztHpK4bAc+h1FgQijzSxMptrGIxVSO0xX3AaStFki7bUMVFmaMm/eJMGfIH/MkGzLep0AXn4h/r3CJV3 + mS9gn2bY4UY/UzQ7E9TqfeTFtnuB+XAfzSHKr11kSl/uBebDiZ89ZCst3OUkdwL28sIVsE83ock+EIQV + 2Mz2wxeg6/UAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJHSURBVDhPxZBdSNNhFMb/F110ZZEVhVBgeeHNICiiuggp + olAUyyxI0oSaH1QYC3N+tKnp5ubm1JUua5uuqdNKMwr7kApFItTUkWZqVhSVYmao5Nevvy7UoYR3HXh4 + 4XCe33nOKyy3lAY7l9RWMo0O/raWXxEyo5spVYTNvOGyfIRPfW+ptOkXqaPl6T83hcRmExSdgzAz3NVm + YWyoYla/B+1M9JtxWLPpaH22JORIjI6gKAMB0jyEimIdo4OlbuaprwVMOOMovammpDADc34qppwUrmnl + 5Kni3aFlFg2j3y1z5mnRTJccnNIltQhwq0jFry+mOXNtpWZWDx1Z1NhV3C3JwGFOw25SYjVe5oYhiUKd + HKMmwQUrMWUw/CF3NnZvvYKqUh1TvUroS3fXe7HXkwidMngTS2t5KLbregSzMY2f3Wr4qKW6LJvGR1rX + 0MLor8OhKYTJBn/GHvvxrliCTBrsOqXIoOBHh5K+hmSq7FqmexTQHuUytkaKxuNMNgYyVneA4Qd7GKjc + hjLaRzxH7gIU6JIZaEvgtk1D8wsxSWecCDgNzWFMvwxm/PkhRmr3Mli1nW9lvjRdWc0Jf+/5jzRmyWmv + S+GOLQu6U6BFjPvqKOP1AYw88WOoZif9DgmfLVtxaj1RSLdwNvrkPCA3M54KqxrnvRia9MKcGrUrqFOt + 5H7qKsqT1mGO9+Lqhc2ELdw+U/r0i+gVZ8hMiCDx3DHORwZyKnQ/hw/uYt9uCTskPvh6e7Fp41rWr/Fg + g6eHO+A/lyD8ARfG3mk9fv1YAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIySURBVDhPrZLfS5NRGMfff6H7boIuuq2pMZyL1eAt11CW + DcOKsB9vpFmaLtNExco0av6CbIVLJ61Wk3BSkT/AFCkRZSpZmrmiJQ41xSaCwdfznL15XEUX0Reem5f3 + 8znnec4j/Zc8fxYGla91CS3eRTx0z6OpMYS7jmnU1X6B/VYA18snUVoyjsKCt8jLHcH5c36ouCQR2NUJ + 1Nas4G9ZXlmFKbULh1Kf8lJxSfI+WeCCyopv6q+/h+DQ/DJ2WV5Ao1FgPegRAveDOS4oLfmq/h6dn/DH + 4AJizD4UXJrCAUuzEDgbZrjgou2DiohshIcnQtgme5GTPYbkJKcQ1N8OckHW2REVi+RXuM8fxGaDG4oy + ALPZIQQ11Z+5QDk1oKJ/hjv7P2FTfCMOH3mFxMQ6IbhROYWOdrCnBI4dfwPr0V4+bRoY9UzXppMjcDdS + rC8hy3YhuFI2gTYf2A4Aza4f7N2/o/zaLB8qDYx6zszwr8P7k1thNFYIweXCMXgeAfedq2xxwjClZUeV + Jd2GtDNFETiJwfs8MBjKhMCWN8pgoLoqzE8miH1GjE7G4PsZjE7OQsm9ij2mFg7rdrug1xcJAa2l4w7W + r00Cgk/n38S7wBwC04u4UGxHrMHF4CbEJtyDLj5fCDIzhljfSxzeavRgyw4Zj9t64GvvQ0d3P3pfD2Kv + 2QqNvgFxDN6urYdWmyMElJMnevh60obRktA701PRtGlg1DOdSkXwzrisaMG/RZLWAE60OMW5fNhvAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABBElE + QVQ4T83RwapEYBjG8VmpKaWUUkqUKEVsrCytbCys3IF7sJsLsFK2bsHKJdiykiV3wA085xhfneMYkzPN + Yv4Lhff91dd3wRv6IMS2bVAUhev1CpqmwTAMWJYFx3HgeR6CIEAURciyDEVRoGkadF2HYRiwLAtRFOHS + NM3LiOu66Pt+Pc7tdnsJKctyPc79+Z3jOP9CkiQhm7+Qtm1PI57nYZ5nsvnndrIsO4V0XUc21nZX7Pv+ + U6QoCjL50w4ZhgGSJD1E4jgmU9t2yFKe5zvENE1M00Qmtj1EloIg2CB1XZM/+w6RcRyhquodSdOUfH3c + IbJUVRXCMCRvxz1FzvYGBPgCf+thP16YOusAAAAASUVORK5CYII= + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgFBgcGBQgHBgcJCAgJDBMMDAsLDBgREg4THBgdHRsYGxof + IywlHyEqIRobJjQnKi4vMTIxHiU2OjYwOiwwMTD/2wBDAQgJCQwKDBcMDBcwIBsgMDAwMDAwMDAwMDAw + MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDD/wAARCAARABEDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD17W9fgsopZJp4o0RWZFeQKZCozgZ61m+E/GEOtafDdI0cMzls + 23mhmABxnHX9KyPHvh2y1HdBqUJaSFZDaP5hQbmHHTryBWB8OPCyaZHbTXUAbXTvRmjlLrtJ446dO9dy + px5Dlc5cx67/AGlB6miqP9iP/wA9RRXPaHc2vMj8a/8AII/4FWb8P+s30ooraP8Au7MpfxUdhRRRXGdJ + /9k= + + + + True + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAA+klE + QVQ4T83RMWqEQBiG4a0EQRAEQRBEQRQERRsrSysbCytv4B3sPICVYOsVrDyCrVZiqTfQC3yB7JCNjFk2 + EsK+3cz8/9PMDX/Q/yBJkqDrOnI67ylSliVkWYZhGFjXldzS/Yj0fQ9FUT4RSZIQxzF5oTtFtm2D4zgH + RBRF1HVNJo6dIlmWQdM0ClFVFcuykKlHFNI0DXRdP0UEQUAURWTy0QGZpgmmaT5FeJ5HVVVk494Xsu87 + wjB8CeE4DuM4ks1vSJ7nsCzrZcT3fbJJkLZtYdv2rxCWZVEUxR2Z5xlBEFxCGIbBMAy4pWkK13UvI57n + 0V98pXdBgA8V7mE/Mzv3lQAAAABJRU5ErkJggg== + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAIBAQIBAQICAgICAgICAwUDAwMDAwYEBAMFBwYHBwcGBwcI + CQsJCAgKCAcHCg0KCgsMDAwMBwkODw0MDgsMDAz/2wBDAQICAgMDAwYDAwYMCAcIDAwMDAwMDAwMDAwM + DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAARAB4DASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9vPjp+1j8LP2X/wCy/wDhZnxL+H/w7/tzzf7N/wCEn8Q2ekf2 + h5WzzfJ+0SJ5mzzY923O3zEzjcM8B/w9i/ZY/wCjlv2f/wDw4ekf/JFH7c//AAS4+BP/AAUo/wCEW/4X + X4G/4TT/AIQv7X/Y3/E61DTvsf2ryPP/AOPSeLfu+zw/f3Y2cYyc/P8A/wAQuP7Cf/RDP/Lz8Q//ACdQ + B9Af8PYv2WP+jlv2f/8Aw4ekf/JFe3+E/FmlePfCuma7oWp6frWia1aRX+n6hYXCXNrf28qB4popUJSS + N0ZWV1JDAggkGvhD/iFx/YT/AOiGf+Xn4h/+Tq+3/hP8LdC+B3ws8NeCvC1j/ZfhjwfpVromkWXnST/Z + LO2hSGCLzJGaR9saKu52ZjjJJOTQB0FFFFABRRRQB//Z + + + + 216, 52 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAERSURBVDhPrZDbSgJRGIXnpewd6jXsjSQvIrwoI0RQMChU + 0iiDPCGiE3ZCRkvR8VzTeBhnyR5/ccaZNnPhB4t9sdf6Ln5hb8QeathNJFVFKF5C8DqL4ksDVHWGDf7j + LHyPg6NjviSaFqlu5yQYR+KpupaIkrMknCxT3Y7v/NYYb0ITK1c3BarbWWhLQ7IR0cTKReyZ6lZ0XYei + ztHpK4bAc+h1FgQijzSxMptrGIxVSO0xX3AaStFki7bUMVFmaMm/eJMGfIH/MkGzLep0AXn4h/r3CJV3 + mS9gn2bY4UY/UzQ7E9TqfeTFtnuB+XAfzSHKr11kSl/uBebDiZ89ZCst3OUkdwL28sIVsE83ock+EIQV + 2Mz2wxeg6/UAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJHSURBVDhPxZBdSNNhFMb/F110ZZEVhVBgeeHNICiiuggp + olAUyyxI0oSaH1QYC3N+tKnp5ubm1JUua5uuqdNKMwr7kApFItTUkWZqVhSVYmao5Nevvy7UoYR3HXh4 + 4XCe33nOKyy3lAY7l9RWMo0O/raWXxEyo5spVYTNvOGyfIRPfW+ptOkXqaPl6T83hcRmExSdgzAz3NVm + YWyoYla/B+1M9JtxWLPpaH22JORIjI6gKAMB0jyEimIdo4OlbuaprwVMOOMovammpDADc34qppwUrmnl + 5Kni3aFlFg2j3y1z5mnRTJccnNIltQhwq0jFry+mOXNtpWZWDx1Z1NhV3C3JwGFOw25SYjVe5oYhiUKd + HKMmwQUrMWUw/CF3NnZvvYKqUh1TvUroS3fXe7HXkwidMngTS2t5KLbregSzMY2f3Wr4qKW6LJvGR1rX + 0MLor8OhKYTJBn/GHvvxrliCTBrsOqXIoOBHh5K+hmSq7FqmexTQHuUytkaKxuNMNgYyVneA4Qd7GKjc + hjLaRzxH7gIU6JIZaEvgtk1D8wsxSWecCDgNzWFMvwxm/PkhRmr3Mli1nW9lvjRdWc0Jf+/5jzRmyWmv + S+GOLQu6U6BFjPvqKOP1AYw88WOoZif9DgmfLVtxaj1RSLdwNvrkPCA3M54KqxrnvRia9MKcGrUrqFOt + 5H7qKsqT1mGO9+Lqhc2ELdw+U/r0i+gVZ8hMiCDx3DHORwZyKnQ/hw/uYt9uCTskPvh6e7Fp41rWr/Fg + g6eHO+A/lyD8ARfG3mk9fv1YAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIySURBVDhPrZLfS5NRGMfff6H7boIuuq2pMZyL1eAt11CW + DcOKsB9vpFmaLtNExco0av6CbIVLJ61Wk3BSkT/AFCkRZSpZmrmiJQ41xSaCwdfznL15XEUX0Reem5f3 + 8znnec4j/Zc8fxYGla91CS3eRTx0z6OpMYS7jmnU1X6B/VYA18snUVoyjsKCt8jLHcH5c36ouCQR2NUJ + 1Nas4G9ZXlmFKbULh1Kf8lJxSfI+WeCCyopv6q+/h+DQ/DJ2WV5Ao1FgPegRAveDOS4oLfmq/h6dn/DH + 4AJizD4UXJrCAUuzEDgbZrjgou2DiohshIcnQtgme5GTPYbkJKcQ1N8OckHW2REVi+RXuM8fxGaDG4oy + ALPZIQQ11Z+5QDk1oKJ/hjv7P2FTfCMOH3mFxMQ6IbhROYWOdrCnBI4dfwPr0V4+bRoY9UzXppMjcDdS + rC8hy3YhuFI2gTYf2A4Aza4f7N2/o/zaLB8qDYx6zszwr8P7k1thNFYIweXCMXgeAfedq2xxwjClZUeV + Jd2GtDNFETiJwfs8MBjKhMCWN8pgoLoqzE8miH1GjE7G4PsZjE7OQsm9ij2mFg7rdrug1xcJAa2l4w7W + r00Cgk/n38S7wBwC04u4UGxHrMHF4CbEJtyDLj5fCDIzhljfSxzeavRgyw4Zj9t64GvvQ0d3P3pfD2Kv + 2QqNvgFxDN6urYdWmyMElJMnevh60obRktA701PRtGlg1DOdSkXwzrisaMG/RZLWAE60OMW5fNhvAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABBElE + QVQ4T83RwapEYBjG8VmpKaWUUkqUKEVsrCytbCys3IF7sJsLsFK2bsHKJdiykiV3wA085xhfneMYkzPN + Yv4Lhff91dd3wRv6IMS2bVAUhev1CpqmwTAMWJYFx3HgeR6CIEAURciyDEVRoGkadF2HYRiwLAtRFOHS + NM3LiOu66Pt+Pc7tdnsJKctyPc79+Z3jOP9CkiQhm7+Qtm1PI57nYZ5nsvnndrIsO4V0XUc21nZX7Pv+ + U6QoCjL50w4ZhgGSJD1E4jgmU9t2yFKe5zvENE1M00Qmtj1EloIg2CB1XZM/+w6RcRyhquodSdOUfH3c + IbJUVRXCMCRvxz1FzvYGBPgCf+thP16YOusAAAAASUVORK5CYII= + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgFBgcGBQgHBgcJCAgJDBMMDAsLDBgREg4THBgdHRsYGxof + IywlHyEqIRobJjQnKi4vMTIxHiU2OjYwOiwwMTD/2wBDAQgJCQwKDBcMDBcwIBsgMDAwMDAwMDAwMDAw + MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDD/wAARCAARABEDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD17W9fgsopZJp4o0RWZFeQKZCozgZ61m+E/GEOtafDdI0cMzls + 23mhmABxnHX9KyPHvh2y1HdBqUJaSFZDaP5hQbmHHTryBWB8OPCyaZHbTXUAbXTvRmjlLrtJ446dO9dy + px5Dlc5cx67/AGlB6miqP9iP/wA9RRXPaHc2vMj8a/8AII/4FWb8P+s30ooraP8Au7MpfxUdhRRRXGdJ + /9k= + + + + True + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAA+klE + QVQ4T83RMWqEQBiG4a0EQRAEQRBEQRQERRsrSysbCytv4B3sPICVYOsVrDyCrVZiqTfQC3yB7JCNjFk2 + EsK+3cz8/9PMDX/Q/yBJkqDrOnI67ylSliVkWYZhGFjXldzS/Yj0fQ9FUT4RSZIQxzF5oTtFtm2D4zgH + RBRF1HVNJo6dIlmWQdM0ClFVFcuykKlHFNI0DXRdP0UEQUAURWTy0QGZpgmmaT5FeJ5HVVVk494Xsu87 + wjB8CeE4DuM4ks1vSJ7nsCzrZcT3fbJJkLZtYdv2rxCWZVEUxR2Z5xlBEFxCGIbBMAy4pWkK13UvI57n + 0V98pXdBgA8V7mE/Mzv3lQAAAABJRU5ErkJggg== + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAIBAQIBAQICAgICAgICAwUDAwMDAwYEBAMFBwYHBwcGBwcI + CQsJCAgKCAcHCg0KCgsMDAwMBwkODw0MDgsMDAz/2wBDAQICAgMDAwYDAwYMCAcIDAwMDAwMDAwMDAwM + DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAARAB4DASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9vPjp+1j8LP2X/wCy/wDhZnxL+H/w7/tzzf7N/wCEn8Q2ekf2 + h5WzzfJ+0SJ5mzzY923O3zEzjcM8B/w9i/ZY/wCjlv2f/wDw4ekf/JFH7c//AAS4+BP/AAUo/wCEW/4X + X4G/4TT/AIQv7X/Y3/E61DTvsf2ryPP/AOPSeLfu+zw/f3Y2cYyc/P8A/wAQuP7Cf/RDP/Lz8Q//ACdQ + B9Af8PYv2WP+jlv2f/8Aw4ekf/JFe3+E/FmlePfCuma7oWp6frWia1aRX+n6hYXCXNrf28qB4popUJSS + N0ZWV1JDAggkGvhD/iFx/YT/AOiGf+Xn4h/+Tq+3/hP8LdC+B3ws8NeCvC1j/ZfhjwfpVromkWXnST/Z + LO2hSGCLzJGaR9saKu52ZjjJJOTQB0FFFFABRRRQB//Z + + + + 430, 52 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAERSURBVDhPrZDbSgJRGIXnpewd6jXsjSQvIrwoI0RQMChU + 0iiDPCGiE3ZCRkvR8VzTeBhnyR5/ccaZNnPhB4t9sdf6Ln5hb8QeathNJFVFKF5C8DqL4ksDVHWGDf7j + LHyPg6NjviSaFqlu5yQYR+KpupaIkrMknCxT3Y7v/NYYb0ITK1c3BarbWWhLQ7IR0cTKReyZ6lZ0XYei + ztHpK4bAc+h1FgQijzSxMptrGIxVSO0xX3AaStFki7bUMVFmaMm/eJMGfIH/MkGzLep0AXn4h/r3CJV3 + mS9gn2bY4UY/UzQ7E9TqfeTFtnuB+XAfzSHKr11kSl/uBebDiZ89ZCst3OUkdwL28sIVsE83ock+EIQV + 2Mz2wxeg6/UAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJHSURBVDhPxZBdSNNhFMb/F110ZZEVhVBgeeHNICiiuggp + olAUyyxI0oSaH1QYC3N+tKnp5ubm1JUua5uuqdNKMwr7kApFItTUkWZqVhSVYmao5Nevvy7UoYR3HXh4 + 4XCe33nOKyy3lAY7l9RWMo0O/raWXxEyo5spVYTNvOGyfIRPfW+ptOkXqaPl6T83hcRmExSdgzAz3NVm + YWyoYla/B+1M9JtxWLPpaH22JORIjI6gKAMB0jyEimIdo4OlbuaprwVMOOMovammpDADc34qppwUrmnl + 5Kni3aFlFg2j3y1z5mnRTJccnNIltQhwq0jFry+mOXNtpWZWDx1Z1NhV3C3JwGFOw25SYjVe5oYhiUKd + HKMmwQUrMWUw/CF3NnZvvYKqUh1TvUroS3fXe7HXkwidMngTS2t5KLbregSzMY2f3Wr4qKW6LJvGR1rX + 0MLor8OhKYTJBn/GHvvxrliCTBrsOqXIoOBHh5K+hmSq7FqmexTQHuUytkaKxuNMNgYyVneA4Qd7GKjc + hjLaRzxH7gIU6JIZaEvgtk1D8wsxSWecCDgNzWFMvwxm/PkhRmr3Mli1nW9lvjRdWc0Jf+/5jzRmyWmv + S+GOLQu6U6BFjPvqKOP1AYw88WOoZif9DgmfLVtxaj1RSLdwNvrkPCA3M54KqxrnvRia9MKcGrUrqFOt + 5H7qKsqT1mGO9+Lqhc2ELdw+U/r0i+gVZ8hMiCDx3DHORwZyKnQ/hw/uYt9uCTskPvh6e7Fp41rWr/Fg + g6eHO+A/lyD8ARfG3mk9fv1YAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIySURBVDhPrZLfS5NRGMfff6H7boIuuq2pMZyL1eAt11CW + DcOKsB9vpFmaLtNExco0av6CbIVLJ61Wk3BSkT/AFCkRZSpZmrmiJQ41xSaCwdfznL15XEUX0Reem5f3 + 8znnec4j/Zc8fxYGla91CS3eRTx0z6OpMYS7jmnU1X6B/VYA18snUVoyjsKCt8jLHcH5c36ouCQR2NUJ + 1Nas4G9ZXlmFKbULh1Kf8lJxSfI+WeCCyopv6q+/h+DQ/DJ2WV5Ao1FgPegRAveDOS4oLfmq/h6dn/DH + 4AJizD4UXJrCAUuzEDgbZrjgou2DiohshIcnQtgme5GTPYbkJKcQ1N8OckHW2REVi+RXuM8fxGaDG4oy + ALPZIQQ11Z+5QDk1oKJ/hjv7P2FTfCMOH3mFxMQ6IbhROYWOdrCnBI4dfwPr0V4+bRoY9UzXppMjcDdS + rC8hy3YhuFI2gTYf2A4Aza4f7N2/o/zaLB8qDYx6zszwr8P7k1thNFYIweXCMXgeAfedq2xxwjClZUeV + Jd2GtDNFETiJwfs8MBjKhMCWN8pgoLoqzE8miH1GjE7G4PsZjE7OQsm9ij2mFg7rdrug1xcJAa2l4w7W + r00Cgk/n38S7wBwC04u4UGxHrMHF4CbEJtyDLj5fCDIzhljfSxzeavRgyw4Zj9t64GvvQ0d3P3pfD2Kv + 2QqNvgFxDN6urYdWmyMElJMnevh60obRktA701PRtGlg1DOdSkXwzrisaMG/RZLWAE60OMW5fNhvAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABBElE + QVQ4T83RwapEYBjG8VmpKaWUUkqUKEVsrCytbCys3IF7sJsLsFK2bsHKJdiykiV3wA085xhfneMYkzPN + Yv4Lhff91dd3wRv6IMS2bVAUhev1CpqmwTAMWJYFx3HgeR6CIEAURciyDEVRoGkadF2HYRiwLAtRFOHS + NM3LiOu66Pt+Pc7tdnsJKctyPc79+Z3jOP9CkiQhm7+Qtm1PI57nYZ5nsvnndrIsO4V0XUc21nZX7Pv+ + U6QoCjL50w4ZhgGSJD1E4jgmU9t2yFKe5zvENE1M00Qmtj1EloIg2CB1XZM/+w6RcRyhquodSdOUfH3c + IbJUVRXCMCRvxz1FzvYGBPgCf+thP16YOusAAAAASUVORK5CYII= + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgFBgcGBQgHBgcJCAgJDBMMDAsLDBgREg4THBgdHRsYGxof + IywlHyEqIRobJjQnKi4vMTIxHiU2OjYwOiwwMTD/2wBDAQgJCQwKDBcMDBcwIBsgMDAwMDAwMDAwMDAw + MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDD/wAARCAARABEDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD17W9fgsopZJp4o0RWZFeQKZCozgZ61m+E/GEOtafDdI0cMzls + 23mhmABxnHX9KyPHvh2y1HdBqUJaSFZDaP5hQbmHHTryBWB8OPCyaZHbTXUAbXTvRmjlLrtJ446dO9dy + px5Dlc5cx67/AGlB6miqP9iP/wA9RRXPaHc2vMj8a/8AII/4FWb8P+s30ooraP8Au7MpfxUdhRRRXGdJ + /9k= + + + + True + + + True + + + True + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAA+klE + QVQ4T83RMWqEQBiG4a0EQRAEQRBEQRQERRsrSysbCytv4B3sPICVYOsVrDyCrVZiqTfQC3yB7JCNjFk2 + EsK+3cz8/9PMDX/Q/yBJkqDrOnI67ylSliVkWYZhGFjXldzS/Yj0fQ9FUT4RSZIQxzF5oTtFtm2D4zgH + RBRF1HVNJo6dIlmWQdM0ClFVFcuykKlHFNI0DXRdP0UEQUAURWTy0QGZpgmmaT5FeJ5HVVVk494Xsu87 + wjB8CeE4DuM4ks1vSJ7nsCzrZcT3fbJJkLZtYdv2rxCWZVEUxR2Z5xlBEFxCGIbBMAy4pWkK13UvI57n + 0V98pXdBgA8V7mE/Mzv3lQAAAABJRU5ErkJggg== + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAIBAQIBAQICAgICAgICAwUDAwMDAwYEBAMFBwYHBwcGBwcI + CQsJCAgKCAcHCg0KCgsMDAwMBwkODw0MDgsMDAz/2wBDAQICAgMDAwYDAwYMCAcIDAwMDAwMDAwMDAwM + DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAARAB4DASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9vPjp+1j8LP2X/wCy/wDhZnxL+H/w7/tzzf7N/wCEn8Q2ekf2 + h5WzzfJ+0SJ5mzzY923O3zEzjcM8B/w9i/ZY/wCjlv2f/wDw4ekf/JFH7c//AAS4+BP/AAUo/wCEW/4X + X4G/4TT/AIQv7X/Y3/E61DTvsf2ryPP/AOPSeLfu+zw/f3Y2cYyc/P8A/wAQuP7Cf/RDP/Lz8Q//ACdQ + B9Af8PYv2WP+jlv2f/8Aw4ekf/JFe3+E/FmlePfCuma7oWp6frWia1aRX+n6hYXCXNrf28qB4popUJSS + N0ZWV1JDAggkGvhD/iFx/YT/AOiGf+Xn4h/+Tq+3/hP8LdC+B3ws8NeCvC1j/ZfhjwfpVromkWXnST/Z + LO2hSGCLzJGaR9saKu52ZjjJJOTQB0FFFFABRRRQB//Z + + + + 17, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAERSURBVDhPrZDbSgJRGIXnpewd6jXsjSQvIrwoI0RQMChU + 0iiDPCGiE3ZCRkvR8VzTeBhnyR5/ccaZNnPhB4t9sdf6Ln5hb8QeathNJFVFKF5C8DqL4ksDVHWGDf7j + LHyPg6NjviSaFqlu5yQYR+KpupaIkrMknCxT3Y7v/NYYb0ITK1c3BarbWWhLQ7IR0cTKReyZ6lZ0XYei + ztHpK4bAc+h1FgQijzSxMptrGIxVSO0xX3AaStFki7bUMVFmaMm/eJMGfIH/MkGzLep0AXn4h/r3CJV3 + mS9gn2bY4UY/UzQ7E9TqfeTFtnuB+XAfzSHKr11kSl/uBebDiZ89ZCst3OUkdwL28sIVsE83ock+EIQV + 2Mz2wxeg6/UAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJHSURBVDhPxZBdSNNhFMb/F110ZZEVhVBgeeHNICiiuggp + olAUyyxI0oSaH1QYC3N+tKnp5ubm1JUua5uuqdNKMwr7kApFItTUkWZqVhSVYmao5Nevvy7UoYR3HXh4 + 4XCe33nOKyy3lAY7l9RWMo0O/raWXxEyo5spVYTNvOGyfIRPfW+ptOkXqaPl6T83hcRmExSdgzAz3NVm + YWyoYla/B+1M9JtxWLPpaH22JORIjI6gKAMB0jyEimIdo4OlbuaprwVMOOMovammpDADc34qppwUrmnl + 5Kni3aFlFg2j3y1z5mnRTJccnNIltQhwq0jFry+mOXNtpWZWDx1Z1NhV3C3JwGFOw25SYjVe5oYhiUKd + HKMmwQUrMWUw/CF3NnZvvYKqUh1TvUroS3fXe7HXkwidMngTS2t5KLbregSzMY2f3Wr4qKW6LJvGR1rX + 0MLor8OhKYTJBn/GHvvxrliCTBrsOqXIoOBHh5K+hmSq7FqmexTQHuUytkaKxuNMNgYyVneA4Qd7GKjc + hjLaRzxH7gIU6JIZaEvgtk1D8wsxSWecCDgNzWFMvwxm/PkhRmr3Mli1nW9lvjRdWc0Jf+/5jzRmyWmv + S+GOLQu6U6BFjPvqKOP1AYw88WOoZif9DgmfLVtxaj1RSLdwNvrkPCA3M54KqxrnvRia9MKcGrUrqFOt + 5H7qKsqT1mGO9+Lqhc2ELdw+U/r0i+gVZ8hMiCDx3DHORwZyKnQ/hw/uYt9uCTskPvh6e7Fp41rWr/Fg + g6eHO+A/lyD8ARfG3mk9fv1YAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIySURBVDhPrZLfS5NRGMfff6H7boIuuq2pMZyL1eAt11CW + DcOKsB9vpFmaLtNExco0av6CbIVLJ61Wk3BSkT/AFCkRZSpZmrmiJQ41xSaCwdfznL15XEUX0Reem5f3 + 8znnec4j/Zc8fxYGla91CS3eRTx0z6OpMYS7jmnU1X6B/VYA18snUVoyjsKCt8jLHcH5c36ouCQR2NUJ + 1Nas4G9ZXlmFKbULh1Kf8lJxSfI+WeCCyopv6q+/h+DQ/DJ2WV5Ao1FgPegRAveDOS4oLfmq/h6dn/DH + 4AJizD4UXJrCAUuzEDgbZrjgou2DiohshIcnQtgme5GTPYbkJKcQ1N8OckHW2REVi+RXuM8fxGaDG4oy + ALPZIQQ11Z+5QDk1oKJ/hjv7P2FTfCMOH3mFxMQ6IbhROYWOdrCnBI4dfwPr0V4+bRoY9UzXppMjcDdS + rC8hy3YhuFI2gTYf2A4Aza4f7N2/o/zaLB8qDYx6zszwr8P7k1thNFYIweXCMXgeAfedq2xxwjClZUeV + Jd2GtDNFETiJwfs8MBjKhMCWN8pgoLoqzE8miH1GjE7G4PsZjE7OQsm9ij2mFg7rdrug1xcJAa2l4w7W + r00Cgk/n38S7wBwC04u4UGxHrMHF4CbEJtyDLj5fCDIzhljfSxzeavRgyw4Zj9t64GvvQ0d3P3pfD2Kv + 2QqNvgFxDN6urYdWmyMElJMnevh60obRktA701PRtGlg1DOdSkXwzrisaMG/RZLWAE60OMW5fNhvAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABBElE + QVQ4T83RwapEYBjG8VmpKaWUUkqUKEVsrCytbCys3IF7sJsLsFK2bsHKJdiykiV3wA085xhfneMYkzPN + Yv4Lhff91dd3wRv6IMS2bVAUhev1CpqmwTAMWJYFx3HgeR6CIEAURciyDEVRoGkadF2HYRiwLAtRFOHS + NM3LiOu66Pt+Pc7tdnsJKctyPc79+Z3jOP9CkiQhm7+Qtm1PI57nYZ5nsvnndrIsO4V0XUc21nZX7Pv+ + U6QoCjL50w4ZhgGSJD1E4jgmU9t2yFKe5zvENE1M00Qmtj1EloIg2CB1XZM/+w6RcRyhquodSdOUfH3c + IbJUVRXCMCRvxz1FzvYGBPgCf+thP16YOusAAAAASUVORK5CYII= + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgFBgcGBQgHBgcJCAgJDBMMDAsLDBgREg4THBgdHRsYGxof + IywlHyEqIRobJjQnKi4vMTIxHiU2OjYwOiwwMTD/2wBDAQgJCQwKDBcMDBcwIBsgMDAwMDAwMDAwMDAw + MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDD/wAARCAARABEDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD17W9fgsopZJp4o0RWZFeQKZCozgZ61m+E/GEOtafDdI0cMzls + 23mhmABxnHX9KyPHvh2y1HdBqUJaSFZDaP5hQbmHHTryBWB8OPCyaZHbTXUAbXTvRmjlLrtJ446dO9dy + px5Dlc5cx67/AGlB6miqP9iP/wA9RRXPaHc2vMj8a/8AII/4FWb8P+s30ooraP8Au7MpfxUdhRRRXGdJ + /9k= + + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAA+klE + QVQ4T83RMWqEQBiG4a0EQRAEQRBEQRQERRsrSysbCytv4B3sPICVYOsVrDyCrVZiqTfQC3yB7JCNjFk2 + EsK+3cz8/9PMDX/Q/yBJkqDrOnI67ylSliVkWYZhGFjXldzS/Yj0fQ9FUT4RSZIQxzF5oTtFtm2D4zgH + RBRF1HVNJo6dIlmWQdM0ClFVFcuykKlHFNI0DXRdP0UEQUAURWTy0QGZpgmmaT5FeJ5HVVVk494Xsu87 + wjB8CeE4DuM4ks1vSJ7nsCzrZcT3fbJJkLZtYdv2rxCWZVEUxR2Z5xlBEFxCGIbBMAy4pWkK13UvI57n + 0V98pXdBgA8V7mE/Mzv3lQAAAABJRU5ErkJggg== + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAIBAQIBAQICAgICAgICAwUDAwMDAwYEBAMFBwYHBwcGBwcI + CQsJCAgKCAcHCg0KCgsMDAwMBwkODw0MDgsMDAz/2wBDAQICAgMDAwYDAwYMCAcIDAwMDAwMDAwMDAwM + DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAz/wAARCAARAB4DASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD9vPjp+1j8LP2X/wCy/wDhZnxL+H/w7/tzzf7N/wCEn8Q2ekf2 + h5WzzfJ+0SJ5mzzY923O3zEzjcM8B/w9i/ZY/wCjlv2f/wDw4ekf/JFH7c//AAS4+BP/AAUo/wCEW/4X + X4G/4TT/AIQv7X/Y3/E61DTvsf2ryPP/AOPSeLfu+zw/f3Y2cYyc/P8A/wAQuP7Cf/RDP/Lz8Q//ACdQ + B9Af8PYv2WP+jlv2f/8Aw4ekf/JFe3+E/FmlePfCuma7oWp6frWia1aRX+n6hYXCXNrf28qB4popUJSS + N0ZWV1JDAggkGvhD/iFx/YT/AOiGf+Xn4h/+Tq+3/hP8LdC+B3ws8NeCvC1j/ZfhjwfpVromkWXnST/Z + LO2hSGCLzJGaR9saKu52ZjjJJOTQB0FFFFABRRRQB//Z + + + + 102, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAERSURBVDhPrZDbSgJRGIXnpewd6jXsjSQvIrwoI0RQMChU + 0iiDPCGiE3ZCRkvR8VzTeBhnyR5/ccaZNnPhB4t9sdf6Ln5hb8QeathNJFVFKF5C8DqL4ksDVHWGDf7j + LHyPg6NjviSaFqlu5yQYR+KpupaIkrMknCxT3Y7v/NYYb0ITK1c3BarbWWhLQ7IR0cTKReyZ6lZ0XYei + ztHpK4bAc+h1FgQijzSxMptrGIxVSO0xX3AaStFki7bUMVFmaMm/eJMGfIH/MkGzLep0AXn4h/r3CJV3 + mS9gn2bY4UY/UzQ7E9TqfeTFtnuB+XAfzSHKr11kSl/uBebDiZ89ZCst3OUkdwL28sIVsE83ock+EIQV + 2Mz2wxeg6/UAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJHSURBVDhPxZBdSNNhFMb/F110ZZEVhVBgeeHNICiiuggp + olAUyyxI0oSaH1QYC3N+tKnp5ubm1JUua5uuqdNKMwr7kApFItTUkWZqVhSVYmao5Nevvy7UoYR3HXh4 + 4XCe33nOKyy3lAY7l9RWMo0O/raWXxEyo5spVYTNvOGyfIRPfW+ptOkXqaPl6T83hcRmExSdgzAz3NVm + YWyoYla/B+1M9JtxWLPpaH22JORIjI6gKAMB0jyEimIdo4OlbuaprwVMOOMovammpDADc34qppwUrmnl + 5Kni3aFlFg2j3y1z5mnRTJccnNIltQhwq0jFry+mOXNtpWZWDx1Z1NhV3C3JwGFOw25SYjVe5oYhiUKd + HKMmwQUrMWUw/CF3NnZvvYKqUh1TvUroS3fXe7HXkwidMngTS2t5KLbregSzMY2f3Wr4qKW6LJvGR1rX + 0MLor8OhKYTJBn/GHvvxrliCTBrsOqXIoOBHh5K+hmSq7FqmexTQHuUytkaKxuNMNgYyVneA4Qd7GKjc + hjLaRzxH7gIU6JIZaEvgtk1D8wsxSWecCDgNzWFMvwxm/PkhRmr3Mli1nW9lvjRdWc0Jf+/5jzRmyWmv + S+GOLQu6U6BFjPvqKOP1AYw88WOoZif9DgmfLVtxaj1RSLdwNvrkPCA3M54KqxrnvRia9MKcGrUrqFOt + 5H7qKsqT1mGO9+Lqhc2ELdw+U/r0i+gVZ8hMiCDx3DHORwZyKnQ/hw/uYt9uCTskPvh6e7Fp41rWr/Fg + g6eHO+A/lyD8ARfG3mk9fv1YAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIySURBVDhPrZLfS5NRGMfff6H7boIuuq2pMZyL1eAt11CW + DcOKsB9vpFmaLtNExco0av6CbIVLJ61Wk3BSkT/AFCkRZSpZmrmiJQ41xSaCwdfznL15XEUX0Reem5f3 + 8znnec4j/Zc8fxYGla91CS3eRTx0z6OpMYS7jmnU1X6B/VYA18snUVoyjsKCt8jLHcH5c36ouCQR2NUJ + 1Nas4G9ZXlmFKbULh1Kf8lJxSfI+WeCCyopv6q+/h+DQ/DJ2WV5Ao1FgPegRAveDOS4oLfmq/h6dn/DH + 4AJizD4UXJrCAUuzEDgbZrjgou2DiohshIcnQtgme5GTPYbkJKcQ1N8OckHW2REVi+RXuM8fxGaDG4oy + ALPZIQQ11Z+5QDk1oKJ/hjv7P2FTfCMOH3mFxMQ6IbhROYWOdrCnBI4dfwPr0V4+bRoY9UzXppMjcDdS + rC8hy3YhuFI2gTYf2A4Aza4f7N2/o/zaLB8qDYx6zszwr8P7k1thNFYIweXCMXgeAfedq2xxwjClZUeV + Jd2GtDNFETiJwfs8MBjKhMCWN8pgoLoqzE8miH1GjE7G4PsZjE7OQsm9ij2mFg7rdrug1xcJAa2l4w7W + r00Cgk/n38S7wBwC04u4UGxHrMHF4CbEJtyDLj5fCDIzhljfSxzeavRgyw4Zj9t64GvvQ0d3P3pfD2Kv + 2QqNvgFxDN6urYdWmyMElJMnevh60obRktA701PRtGlg1DOdSkXwzrisaMG/RZLWAE60OMW5fNhvAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABBElE + QVQ4T83RwapEYBjG8VmpKaWUUkqUKEVsrCytbCys3IF7sJsLsFK2bsHKJdiykiV3wA085xhfneMYkzPN + Yv4Lhff91dd3wRv6IMS2bVAUhev1CpqmwTAMWJYFx3HgeR6CIEAURciyDEVRoGkadF2HYRiwLAtRFOHS + NM3LiOu66Pt+Pc7tdnsJKctyPc79+Z3jOP9CkiQhm7+Qtm1PI57nYZ5nsvnndrIsO4V0XUc21nZX7Pv+ + U6QoCjL50w4ZhgGSJD1E4jgmU9t2yFKe5zvENE1M00Qmtj1EloIg2CB1XZM/+w6RcRyhquodSdOUfH3c + IbJUVRXCMCRvxz1FzvYGBPgCf+thP16YOusAAAAASUVORK5CYII= + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgFBgcGBQgHBgcJCAgJDBMMDAsLDBgREg4THBgdHRsYGxof + IywlHyEqIRobJjQnKi4vMTIxHiU2OjYwOiwwMTD/2wBDAQgJCQwKDBcMDBcwIBsgMDAwMDAwMDAwMDAw + MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDD/wAARCAARABEDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD17W9fgsopZJp4o0RWZFeQKZCozgZ61m+E/GEOtafDdI0cMzls + 23mhmABxnHX9KyPHvh2y1HdBqUJaSFZDaP5hQbmHHTryBWB8OPCyaZHbTXUAbXTvRmjlLrtJ446dO9dy + px5Dlc5cx67/AGlB6miqP9iP/wA9RRXPaHc2vMj8a/8AII/4FWb8P+s30ooraP8Au7MpfxUdhRRRXGdJ + /9k= + + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg + JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy + MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCACNAJcDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDxyiiiv3E8wKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigD/9k= + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwg + JC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIy + MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCACNAJcDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDxyiiiv3E8wKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACi + iigAooooAKKKKACiiigAooooAKKKKACiiigD/9k= + + + + 325, 136 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABSklEQVQ4T2MYvODuAvb/t+Zx/r86h+v/ + xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHySIFBz3f8/D6r+72gXJ2zApZk8/89O + 5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/q0gV08BTQH/+eVgP1FQLxJX//9wr + AeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VAjQVAjdlAjalAjQn//92KBmoM+//v + RtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n5mn8n5Cl9b87Q/d/e6r+/+ZEQ8Jh + MhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4JwfZwR6Qa0JBn8b4g3/F8Ta/y/MtqE + dAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABb0lEQVQ4T7WQTSjDYRzHd1XeSu3iglo5 + IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/LVLaBf+4PB9jqLW/seJ7eep5vt/P + 7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9JkS7HtFRAXMTipC3hsJcBiM9oe+c + OgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDqPz9s4YXHBc3FgS8ZsxD1edDX8rvw + p9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXisxjg4uh9uXdpfsjy7A8LvL+DVh2P + JUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcgtVUje69DIexuIueqcaZEIXU1gPyk + OGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vwP0ilegWKIwMchCbSyQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABKklEQVQ4T2MYPKBw1vP/TQue/8+c+Pg/ + VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+wKorvefh/6f7///2rL+A2IKHnyf9p + W95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v/PvfJf8AbgMCmx/+r5v/Dq4ouOXu + /0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z+79/17f/OoXv/lskrMdtgH3p3f/Z + k19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v29b9u8DzcBhhm3f4f1vISpyL91Mv/ + NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCrpeWacAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAtklEQVQ4T2MYOiC8/cF/KJN0EN/94H9w + wzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DNreuAtnf+/e+Sf4B4A4Jb7v5ftPf/ + /w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhPehjop5z/b1L04r9K1qf/xpHLSDcA + BAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA0BRgmAS6UFUAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAo0lEQVQ4T2MYfKBw1vP/UCZ5IHfms/8J + 3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDIrkf/p2z79b9k6d//CdP//rfJPUua + IYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhzgX3p3f+BLc/I0wwCFnl3/tsUXCFP + MwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABLElEQVQ4T2MYXKBw1vP/UCYGAMk1LXj+ + P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h6w6GIpDcwn0f/gc3XMNtQELPk/+z + 9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8Tpv/9b5N7Fq4YJNe7+sN/r9ITuA0I + bH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9fMvcdXLOiSw9cMUguf9qb//YZ23Eb + YF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtfw72EFRhm3caqGQRAcmEtL//rBs/D + bYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7Rv7O5DE6cAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + 556, 136 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABSklEQVQ4T2MYvODuAvb/t+Zx/r86h+v/ + xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHySIFBz3f8/D6r+72gXJ2zApZk8/89O + 5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/q0gV08BTQH/+eVgP1FQLxJX//9wr + AeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VAjQVAjdlAjalAjQn//92KBmoM+//v + RtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n5mn8n5Cl9b87Q/d/e6r+/+ZEQ8Jh + MhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4JwfZwR6Qa0JBn8b4g3/F8Ta/y/MtqE + dAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABb0lEQVQ4T7WQTSjDYRzHd1XeSu3iglo5 + IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/LVLaBf+4PB9jqLW/seJ7eep5vt/P + 7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9JkS7HtFRAXMTipC3hsJcBiM9oe+c + OgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDqPz9s4YXHBc3FgS8ZsxD1edDX8rvw + p9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXisxjg4uh9uXdpfsjy7A8LvL+DVh2P + JUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcgtVUje69DIexuIueqcaZEIXU1gPyk + OGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vwP0ilegWKIwMchCbSyQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABKklEQVQ4T2MYPKBw1vP/TQue/8+c+Pg/ + VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+wKorvefh/6f7///2rL+A2IKHnyf9p + W95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v/PvfJf8AbgMCmx/+r5v/Dq4ouOXu + /0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z+79/17f/OoXv/lskrMdtgH3p3f/Z + k19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v29b9u8DzcBhhm3f4f1vISpyL91Mv/ + NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCrpeWacAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAtklEQVQ4T2MYOiC8/cF/KJN0EN/94H9w + wzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DNreuAtnf+/e+Sf4B4A4Jb7v5ftPf/ + /w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhPehjop5z/b1L04r9K1qf/xpHLSDcA + BAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA0BRgmAS6UFUAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAo0lEQVQ4T2MYfKBw1vP/UCZ5IHfms/8J + 3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDIrkf/p2z79b9k6d//CdP//rfJPUua + IYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhzgX3p3f+BLc/I0wwCFnl3/tsUXCFP + MwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABLElEQVQ4T2MYXKBw1vP/UCYGAMk1LXj+ + P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h6w6GIpDcwn0f/gc3XMNtQELPk/+z + 9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8Tpv/9b5N7Fq4YJNe7+sN/r9ITuA0I + bH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9fMvcdXLOiSw9cMUguf9qb//YZ23Eb + YF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtfw72EFRhm3caqGQRAcmEtL//rBs/D + bYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7Rv7O5DE6cAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + 699, 13 + + + 838, 13 + + + 17, 52 + + + 479, 136 + + + 41 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucNG2015.vb b/CasparMediaPlayback/ucNG2015.vb new file mode 100644 index 0000000..9e85ceb --- /dev/null +++ b/CasparMediaPlayback/ucNG2015.vb @@ -0,0 +1,3745 @@ +Imports Svt.Caspar + +Imports System.Net.Sockets + +Imports System.Data.OleDb +Imports System.Data +Imports System.IO +Public Class ucNG2015 + Private Sub NG_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + On Error Resume Next + + gymnasticsdefaultdata() + shootingdefaultdata() + winnerdefaultdat() + defautdataforball() + initialisesetscoreball() + initialisesetscorett() + initialisepol() + End Sub + + Sub initialisepol() + Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Casparcg\mydata\database\cmp.accdb") + cn.Open() + Dim da1 As New OleDbDataAdapter("Select * from porteam1", cn) + Dim tbl As New DataTable + Dim bindingsource1 As New BindingSource + da1.Fill(tbl) + bindingsource1.DataSource = tbl + BindingNavigator1.BindingSource = bindingsource1 + + image1.DataBindings.Add(New Binding("imagelocation", bindingsource1, "imagelocation")) + txtplayera.DataBindings.Add(New Binding("Text", bindingsource1, "playersname")) + txtmatches2.DataBindings.Add(New Binding("Text", bindingsource1, "bt1matches")) + txtwickets2.DataBindings.Add(New Binding("Text", bindingsource1, "bt1wickets")) + txtecon2.DataBindings.Add(New Binding("Text", bindingsource1, "bt1econ")) + txt4w2.DataBindings.Add(New Binding("Text", bindingsource1, "bt13w")) + txt5w2.DataBindings.Add(New Binding("Text", bindingsource1, "bt15w")) + txtbest2.DataBindings.Add(New Binding("Text", bindingsource1, "bt1best")) + txtavg2.DataBindings.Add(New Binding("Text", bindingsource1, "bt1average")) + + + txtmatches4.DataBindings.Add(New Binding("Text", bindingsource1, "bt1matches4")) + txtinnings4.DataBindings.Add(New Binding("Text", bindingsource1, "bt1innings4")) + txtruns4.DataBindings.Add(New Binding("Text", bindingsource1, "bt1runs4")) + txtaverage4.DataBindings.Add(New Binding("Text", bindingsource1, "bt1average4")) + txt50s4.DataBindings.Add(New Binding("Text", bindingsource1, "bt150s4")) + txt100s4.DataBindings.Add(New Binding("Text", bindingsource1, "bt1100s4")) + txthighestscore4.DataBindings.Add(New Binding("Text", bindingsource1, "bt1highestscore4")) + + + Dim da2 As New OleDbDataAdapter("Select * from porteam2", cn) + Dim tb2 As New DataTable + Dim bindingsource2 As New BindingSource + da2.Fill(tb2) + bindingsource2.DataSource = tb2 + BindingNavigator2.BindingSource = bindingsource2 + + image2.DataBindings.Add(New Binding("imagelocation", bindingsource2, "imagelocation")) + txtplayerb.DataBindings.Add(New Binding("Text", bindingsource2, "playersname")) + txtmatches6.DataBindings.Add(New Binding("Text", bindingsource2, "bt1matches")) + txtwickets6.DataBindings.Add(New Binding("Text", bindingsource2, "bt1wickets")) + txtecon6.DataBindings.Add(New Binding("Text", bindingsource2, "bt1econ")) + txt4w6.DataBindings.Add(New Binding("Text", bindingsource2, "bt13w")) + txt5w6.DataBindings.Add(New Binding("Text", bindingsource2, "bt15w")) + txtbest6.DataBindings.Add(New Binding("Text", bindingsource2, "bt1best")) + txtavg6.DataBindings.Add(New Binding("Text", bindingsource2, "bt1average")) + + + txtmatches8.DataBindings.Add(New Binding("Text", bindingsource2, "bt1matches4")) + txtinnings8.DataBindings.Add(New Binding("Text", bindingsource2, "bt1innings4")) + txtruns8.DataBindings.Add(New Binding("Text", bindingsource2, "bt1runs4")) + txtaverage8.DataBindings.Add(New Binding("Text", bindingsource2, "bt1average4")) + txt50s8.DataBindings.Add(New Binding("Text", bindingsource2, "bt150s4")) + txt100s8.DataBindings.Add(New Binding("Text", bindingsource2, "bt1100s4")) + txthighestscore8.DataBindings.Add(New Binding("Text", bindingsource2, "bt1highestscore4")) + + + cn.Close() + End Sub + Private Sub initialisesetscorett() + dgvsetscorett.Rows.Add(2) + For isetscorett = 0 To 1 + For jsetscorett = 0 To 6 + dgvsetscorett.Rows(isetscorett).Cells(jsetscorett).Value = isetscorett & jsetscorett + Next + Next + End Sub + Private Sub initialisesetscoreball() + dgvsetscoreball.Rows.Add(3) + + + For isetscorett = 0 To 2 + If isetscorett = 0 Then + For jsetscorett = 0 To 5 + dgvsetscoreball.Rows(isetscorett).Cells(jsetscorett).Value = dgvsetscoreball.Columns(jsetscorett).HeaderText + Next + Else + For jsetscorett = 0 To 5 + dgvsetscoreball.Rows(isetscorett).Cells(jsetscorett).Value = isetscorett & jsetscorett + Next + End If + + Next + End Sub + + Sub gymnasticsdefaultdata() + On Error Resume Next + + + dgvGymnastics.Rows.Add(12) + + dgvGymnastics.Rows(0).Cells(0).Value = 1 + dgvGymnastics.Rows(0).Cells(1).Value = "MOHAMAD ALGARNI" + dgvGymnastics.Rows(0).Cells(2).Value = "A_N" + dgvGymnastics.Rows(0).Cells(3).Value = 54.91 + + dgvGymnastics.Rows(1).Cells(0).Value = 2 + dgvGymnastics.Rows(1).Cells(1).Value = "SANDEEP KARAN SINGH" + dgvGymnastics.Rows(1).Cells(2).Value = "ARP" + dgvGymnastics.Rows(1).Cells(3).Value = 32.41 + + dgvGymnastics.Rows(2).Cells(0).Value = 3 + dgvGymnastics.Rows(2).Cells(1).Value = "EMAD HAMED NOUR" + dgvGymnastics.Rows(2).Cells(2).Value = "BIH" + dgvGymnastics.Rows(2).Cells(3).Value = 51.25 + + dgvGymnastics.Rows(3).Cells(0).Value = 4 + dgvGymnastics.Rows(3).Cells(1).Value = "RASHEED RAMZI" + dgvGymnastics.Rows(3).Cells(2).Value = "CHA" + dgvGymnastics.Rows(3).Cells(3).Value = 12.25 + + dgvGymnastics.Rows(4).Cells(0).Value = 5 + dgvGymnastics.Rows(4).Cells(1).Value = "HAMZA DRIOUCH" + dgvGymnastics.Rows(4).Cells(2).Value = "DEL" + dgvGymnastics.Rows(4).Cells(3).Value = 52.58 + + dgvGymnastics.Rows(5).Cells(0).Value = 6 + dgvGymnastics.Rows(5).Cells(1).Value = "SANDEEP KARAN SINGH" + dgvGymnastics.Rows(5).Cells(2).Value = "DNH" + dgvGymnastics.Rows(5).Cells(3).Value = 54.25 + + dgvGymnastics.Rows(6).Cells(0).Value = 7 + dgvGymnastics.Rows(6).Cells(1).Value = "ABDULLAH OBAID" + dgvGymnastics.Rows(6).Cells(2).Value = "GOA" + dgvGymnastics.Rows(6).Cells(3).Value = 56.25 + + dgvGymnastics.Rows(7).Cells(0).Value = 8 + dgvGymnastics.Rows(7).Cells(1).Value = "AMASSRI WESAM" + dgvGymnastics.Rows(7).Cells(2).Value = "GUJ" + dgvGymnastics.Rows(7).Cells(3).Value = 52.14 + + dgvGymnastics.Rows(8).Cells(0).Value = 9 + dgvGymnastics.Rows(8).Cells(1).Value = "SAJAD MORADI" + dgvGymnastics.Rows(8).Cells(2).Value = "KER" + dgvGymnastics.Rows(8).Cells(3).Value = 32.36 + + dgvGymnastics.Rows(9).Cells(0).Value = 10 + dgvGymnastics.Rows(9).Cells(1).Value = "PRANJAL GOGOI" + dgvGymnastics.Rows(9).Cells(2).Value = "MAH" + dgvGymnastics.Rows(9).Cells(3).Value = 31.45 + + dgvGymnastics.Rows(10).Cells(0).Value = 11 + dgvGymnastics.Rows(10).Cells(1).Value = "MOHAMMAD ALAZEMI" + dgvGymnastics.Rows(10).Cells(2).Value = "MGA" + dgvGymnastics.Rows(10).Cells(3).Value = 47.18 + + dgvGymnastics.Rows(11).Cells(0).Value = 12 + dgvGymnastics.Rows(11).Cells(1).Value = "YUKI AKIMOTO" + dgvGymnastics.Rows(11).Cells(2).Value = "ORI" + dgvGymnastics.Rows(11).Cells(3).Value = 41.42 + + For i = 0 To dgvGymnastics.RowCount - 2 + For j = 3 To dgvGymnastics.ColumnCount - 1 + dgvGymnastics.Rows(i).Cells(j).Value = Format(i * j, "00.00") + Next + Next + + End Sub + + Private Sub cmdgymnasticsstsrtlist1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdgymnasticsstsrtlist1.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbHeader.Text) + For i = 0 To dgvGymnastics.RowCount - 1 + + + If dgvGymnastics.Rows(i).Cells(0).Value <> "" Then + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("sn" & i + 1, dgvGymnastics.Rows(i).Cells(0).Value) + End If + CasparCGDataCollection.SetData("loader" & i + 1, "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(i).Cells(2).Value & ".png") + End If + CasparCGDataCollection.SetData("name" & i + 1, dgvGymnastics.Rows(i).Cells(1).Value) + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparCGDataCollection.SetData("startlist", cmbSubHeader.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/startlist1", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmdgymnasticsstsrtlist2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdgymnasticsstsrtlist2.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbHeader.Text) + For i = 8 To dgvGymnastics.RowCount - 1 + + If dgvGymnastics.Rows(i).Cells(0).Value <> "" Then + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("sn" & i - 7, dgvGymnastics.Rows(i).Cells(0).Value) + End If + + CasparCGDataCollection.SetData("loader" & i - 7, "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(i).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("name" & i - 7, dgvGymnastics.Rows(i).Cells(1).Value) + End If + + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparCGDataCollection.SetData("startlist", cmbSubHeader.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/startlist1", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + Private Sub cmdresult1gym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresult1gym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbHeader.Text) + For i = 0 To dgvGymnastics.RowCount - 1 + + If dgvGymnastics.Rows(i).Cells(0).Value <> "" Then + CasparCGDataCollection.SetData("sn" & i + 1, i + 1) + CasparCGDataCollection.SetData("loader" & i + 1, "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(i).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("name" & i + 1, dgvGymnastics.Rows(i).Cells(1).Value) + CasparCGDataCollection.SetData("value" & i + 1, dgvGymnastics.Rows(i).Cells(CType(cmbstandingsgym.Text, Integer)).Value) + CasparCGDataCollection.SetData("alpha" & i + 1, 1) + End If + + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparCGDataCollection.SetData("startlist", cmbSubHeader.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/result1", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmdresult2gym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresult2gym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbHeader.Text) + + For i = 8 To dgvGymnastics.RowCount - 1 + + If dgvGymnastics.Rows(i).Cells(0).Value <> "" Then + CasparCGDataCollection.SetData("sn" & i - 7, i + 1) + CasparCGDataCollection.SetData("loader" & i - 7, "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(i).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("name" & i - 7, dgvGymnastics.Rows(i).Cells(1).Value) + CasparCGDataCollection.SetData("value" & i - 7, dgvGymnastics.Rows(i).Cells(CType(cmbstandingsgym.Text, Integer)).Value) + CasparCGDataCollection.SetData("alpha" & i - 7, 1) + + End If + + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparCGDataCollection.SetData("startlist", cmbSubHeader.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/result1", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub gamelogoforgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gamelogo.Click + On Error Resume Next + openimage("C:\casparcg\mydata\games\games logo\", sender) + End Sub + + Private Sub eventlogoforgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eventlogo.Click + On Error Resume Next + openimage("C:\casparcg\mydata\games\event logo\", sender) + End Sub + + Private Sub cmdplayeridgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayeridgym.Click + + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", dgvGymnastics.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("f1", dgvGymnastics.CurrentRow.Cells(1).Value) + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/player_id", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + Private Sub cmdstopgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstopgym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation2() + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(Int(cmblayergames.Text), Int(cmblayergames.Text)) + Threading.Thread.Sleep(1000) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmdvictoryidgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + If chkanimationzym.Checked Then animation1() + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmbSubHeader.Text) + CasparCGDataCollection.SetData("f1", "Victory Ceremony") + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/victory_id", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmdgoldgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", cmbSubHeader.Text) + CasparCGDataCollection.SetData("f1", dgvGymnastics.Rows(0).Cells(1).Value) + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(0).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/medal_g", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmdsilvergym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + If chkanimationzym.Checked Then animation1() + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", cmbSubHeader.Text) + CasparCGDataCollection.SetData("f1", dgvGymnastics.Rows(1).Cells(1).Value) + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(1).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/medal_s", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmdbronzegym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + If chkanimationzym.Checked Then animation1() + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", cmbSubHeader.Text) + CasparCGDataCollection.SetData("f1", dgvGymnastics.Rows(2).Cells(1).Value) + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(2).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/medal_b", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdbronze2gym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmbSubHeader.Text) + CasparCGDataCollection.SetData("f1", dgvGymnastics.Rows(3).Cells(1).Value) + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(3).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/medal_b", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmdmedalallgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + If chkanimationzym.Checked Then animation1() + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("h1", cmbHeader.Text) + CasparCGDataCollection.SetData("h2", cmbSubHeader.Text) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + For imedalall = 0 To 2 + CasparCGDataCollection.SetData("t" & imedalall + 1, dgvGymnastics.Rows(imedalall).Cells(1).Value) + CasparCGDataCollection.SetData("loader" & imedalall + 1, "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(imedalall).Cells(2).Value & ".png") + Next + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/medal_three", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdmedalallbronze2gym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("h1", cmbHeader.Text) + CasparCGDataCollection.SetData("h2", cmbSubHeader.Text) + + For imedalallbronze2 = 0 To 3 + CasparCGDataCollection.SetData("t" & imedalallbronze2 + 1, dgvGymnastics.Rows(imedalallbronze2).Cells(1).Value) + CasparCGDataCollection.SetData("loader" & imedalallbronze2 + 1, "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(imedalallbronze2).Cells(2).Value & ".png") + Next + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/medal_three_bronze2", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + Sub animation1() + Dim x, y As Decimal + If rdoLeftIN.Checked Then + x = -1 + y = 0 + ElseIf rdoRightIN.Checked Then + x = 1 + y = 0 + ElseIf rdoUpIN.Checked Then + x = 0 + y = -1 + ElseIf rdoDownIN.Checked Then + x = 0 + y = 1 + End If + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text & " fill " & x & " " & y & " 1 1 50 easeoutexpo") + End Sub + Sub animationtoscreen() + If chkanimationforhdvan.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text & " fill .12 0 .76 1 50 " & "easeoutexpo") + Else + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text & " fill 0 0 1 1 50 " & "easeoutexpo") + End If + End Sub + Sub animation2() + Dim x, y As Decimal + If rdoleftOut.Checked Then + x = -1 + y = 0 + ElseIf rdoRightOut.Checked Then + x = 1 + y = 0 + ElseIf rdoUpOut.Checked Then + x = 0 + y = -1 + ElseIf rdoDownOut.Checked Then + x = 0 + y = 1 + End If + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text & " fill " & x & " " & y & " 1 1 50 easeoutexpo") + End Sub + + Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gymnastics.Click + + End Sub + + Private Sub newgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newgym.Click + On Error Resume Next + newdata(dgvGymnastics, cmbHeader, cmbSubHeader, lblfilenamegym) + End Sub + + Private Sub opengym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opengym.Click + On Error Resume Next + opendata("C:\casparcg\mydata\games\gymnastics\", dgvGymnastics, cmbHeader, cmbSubHeader, lblfilenamegym) + 'opendata() + End Sub + + Private Sub savegym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savegym.Click + On Error Resume Next + savedata("C:\casparcg\mydata\games\gymnastics\", dgvGymnastics, cmbHeader, cmbSubHeader, lblfilenamegym) + 'savedata() + End Sub + + Private Sub cmdrowupzym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrowupzym.Click + On Error Resume Next + up(dgvGymnastics) + End Sub + + Private Sub cmdrowdowngym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrowdowngym.Click + On Error Resume Next + down(dgvGymnastics) + End Sub + + Private Sub cmdrowinsertgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrowinsertgym.Click + On Error Resume Next + insert(dgvGymnastics) + End Sub + Private Sub cmdrowdeletegym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrowdeletegym.Click + On Error Resume Next + delete(dgvGymnastics) + End Sub + + Private Sub dgvGymnastics_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvGymnastics.CellContentClick + + End Sub + + Private Sub dgvGymnastics_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvGymnastics.CellValueChanged + On Error Resume Next + dgvGymnastics.Rows(e.RowIndex).Cells(9).Value = Format(Val(dgvGymnastics.Rows(e.RowIndex).Cells(3).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(4).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(5).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(6).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(7).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(8).Value), "00.00") + + dgvGymnastics.Rows(e.RowIndex).Cells(14).Value = Format(Val(dgvGymnastics.Rows(e.RowIndex).Cells(10).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(11).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(12).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(13).Value), "00.00") + If rdoaveragevaultgym.Checked Then + dgvGymnastics.Rows(e.RowIndex).Cells(22).Value = Format((Val(dgvGymnastics.Rows(e.RowIndex).Cells(20).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(21).Value)) / 2, "00.00") + + Else + dgvGymnastics.Rows(e.RowIndex).Cells(22).Value = Format(Val(dgvGymnastics.Rows(e.RowIndex).Cells(20).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(21).Value), "00.00") + + End If + + If rdoArtisticsgym.Checked Then + dgvGymnastics.Rows(e.RowIndex).Cells(27).Value = Format(Val(dgvGymnastics.Rows(e.RowIndex).Cells(23).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(25).Value) - Val(dgvGymnastics.Rows(e.RowIndex).Cells(26).Value), "00.00") + + Else + dgvGymnastics.Rows(e.RowIndex).Cells(27).Value = Format(Val(dgvGymnastics.Rows(e.RowIndex).Cells(23).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(24).Value) + Val(dgvGymnastics.Rows(e.RowIndex).Cells(25).Value) - Val(dgvGymnastics.Rows(e.RowIndex).Cells(26).Value), "00.00") + + End If + + + End Sub + + Private Sub dgvGymnastics_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgvGymnastics.DataError + 'dummy dont delete + End Sub + + Private Sub cmdwelcome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdwelcome.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("w1", w1.Text) + CasparCGDataCollection.SetData("w2", w2.Text) + CasparCGDataCollection.SetData("w3", w3.Text) + + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/welcome", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmDvenueid1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmDvenueid1.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtvenueid1.Text) + + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/venue_id", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdrefree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrefree.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtrefreename.Text) + CasparCGDataCollection.SetData("f1", txtrefreedegination.Text) + + + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/official_id", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdcomentator_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcomentator.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("w1", txtcommentatordesignation.Text) + CasparCGDataCollection.SetData("w2", txtcommentatorname1.Text) + CasparCGDataCollection.SetData("w3", txtcommentatorname2.Text) + + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/commentators", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdMedalPresentorId_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMedalPresentorId.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtofficialname.Text) + CasparCGDataCollection.SetData("f1", txtofficialdesignation.Text) + + + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/official_id", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdp1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdp1.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("w1", p1.Text) + CasparCGDataCollection.SetData("w2", p2.Text) + CasparCGDataCollection.SetData("w3", p3.Text) + + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/welcome", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdeventid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdeventid.Click + + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmbHeader.Text) + CasparCGDataCollection.SetData("f1", cmbSubHeader.Text) + + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/event_id", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdVaultStandings1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVaultStandings1.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbHeader.Text) + For i = 0 To dgvGymnastics.RowCount - 1 + If dgvGymnastics.Rows(i).Cells(0).Value <> "" Then + CasparCGDataCollection.SetData("sn" & i + 1, i + 1) + CasparCGDataCollection.SetData("loader" & i + 1, "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(i).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("name" & i + 1, dgvGymnastics.Rows(i).Cells(1).Value) + + CasparCGDataCollection.SetData("vault1" & i + 1, dgvGymnastics.Rows(i).Cells(20).Value) + CasparCGDataCollection.SetData("vault2" & i + 1, dgvGymnastics.Rows(i).Cells(21).Value) + CasparCGDataCollection.SetData("value" & i + 1, dgvGymnastics.Rows(i).Cells(22).Value) + End If + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/vault_standings", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmdVaultStandings2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVaultStandings2.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbHeader.Text) + For i = 8 To dgvGymnastics.RowCount - 1 + If dgvGymnastics.Rows(i).Cells(0).Value <> "" Then + CasparCGDataCollection.SetData("sn" & i - 7, i + 1) + CasparCGDataCollection.SetData("loader" & i - 7, "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(i).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("name" & i - 7, dgvGymnastics.Rows(i).Cells(1).Value) + + CasparCGDataCollection.SetData("vault1" & i - 7, dgvGymnastics.Rows(i).Cells(20).Value) + CasparCGDataCollection.SetData("vault2" & i - 7, dgvGymnastics.Rows(i).Cells(21).Value) + CasparCGDataCollection.SetData("value" & i - 7, dgvGymnastics.Rows(i).Cells(22).Value) + End If + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/vault_standings", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmdteamlist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdteamlist.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("subheader", cmbSubHeader.Text) + For i = 0 To 5 + CasparCGDataCollection.SetData("f" & i, dgvGymnastics.Rows(i).Cells(1).Value) + Next + + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.CurrentRow.Cells(2).Value & ".png") + + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/teamlist", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub dgvGymnastics_DefaultValuesNeeded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowEventArgs) Handles dgvGymnastics.DefaultValuesNeeded + + e.Row.Cells(2).Value = "BLK" + End Sub + Private Sub dgvforheader_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) + + End Sub + + Private Sub cmdeventshedule_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdeventshedule.Click + + + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/event_shedule", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + Private Sub cmdplayerscore1gym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayerscore1gym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f1", dgvGymnastics.CurrentRow.Cells(1).Value) + CasparCGDataCollection.SetData("f2", dgvGymnastics.CurrentRow.Cells(9).Value) + + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("f3", dgvGymnastics.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f3", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/player_score", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdplayerscore2gym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayerscore2gym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f1", dgvGymnastics.CurrentRow.Cells(1).Value) + CasparCGDataCollection.SetData("f2", dgvGymnastics.CurrentRow.Cells(14).Value) + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("f3", dgvGymnastics.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f3", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/player_score", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdplayerscore3gym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayerscore3gym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f1", dgvGymnastics.CurrentRow.Cells(1).Value) + CasparCGDataCollection.SetData("f2", dgvGymnastics.CurrentRow.Cells(19).Value) + + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("f3", dgvGymnastics.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f3", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/player_score", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub Build1gym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Build1gym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", dgvGymnastics.CurrentRow.Cells(1).Value) + For i = 1 To 7 + CasparCGDataCollection.SetData("f" & i, dgvGymnastics.Columns(i + 2).HeaderText) + CasparCGDataCollection.SetData("f" & i + 7, dgvGymnastics.CurrentRow.Cells(i + 2).Value) + Next + + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("f15", dgvGymnastics.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f15", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/build1", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub Build2gym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Build2gym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", dgvGymnastics.CurrentRow.Cells(1).Value) + For i = 1 To 5 + CasparCGDataCollection.SetData("f" & i, dgvGymnastics.Columns(i + 9).HeaderText) + CasparCGDataCollection.SetData("f" & i + 5, dgvGymnastics.CurrentRow.Cells(i + 9).Value) + Next + + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("f15", dgvGymnastics.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f15", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/build2", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub Build3gym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Build3gym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", dgvGymnastics.CurrentRow.Cells(1).Value) + For i = 1 To 5 + CasparCGDataCollection.SetData("f" & i, dgvGymnastics.Columns(i + 14).HeaderText) + CasparCGDataCollection.SetData("f" & i + 5, dgvGymnastics.CurrentRow.Cells(i + 14).Value) + Next + + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("f15", dgvGymnastics.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f15", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/build3", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + Private Sub cmdplayerscorecardgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayerscorecardgym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", dgvGymnastics.CurrentRow.Cells(1).Value) + If rdoArtisticsgym.Checked Then + CasparCGDataCollection.SetData("f1", dgvGymnastics.Columns(23).HeaderText & " " & dgvGymnastics.CurrentRow.Cells(23).Value & " " & dgvGymnastics.Columns(25).HeaderText & " " & dgvGymnastics.CurrentRow.Cells(25).Value & " " & dgvGymnastics.Columns(26).HeaderText & " " & dgvGymnastics.CurrentRow.Cells(26).Value) + CasparCGDataCollection.SetData("f2", dgvGymnastics.Columns(27).HeaderText & " " & dgvGymnastics.CurrentRow.Cells(27).Value) + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("f3", dgvGymnastics.CurrentRow.Index + 1) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f3", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + Else + For i = 23 To 27 + CasparCGDataCollection.SetData("f" & i - 22, dgvGymnastics.Columns(i).HeaderText) + CasparCGDataCollection.SetData("f" & i - 17, dgvGymnastics.CurrentRow.Cells(i).Value) + Next + + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("f15", dgvGymnastics.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f15", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + End If + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + If rdoArtisticsgym.Checked Then + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/PlayerScorecard", True, CasparCGDataCollection.ToAMCPEscapedXml) + Else + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/PlayerScorecard2", True, CasparCGDataCollection.ToAMCPEscapedXml) + End If + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdwinneridgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("h1", cmbHeader.Text) + CasparCGDataCollection.SetData("h2", cmbSubHeader.Text) + CasparCGDataCollection.SetData("t1", dgvGymnastics.Rows(0).Cells(1).Value) + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(0).Cells(2).Value & ".png") + + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/winner", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdofficialsgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdofficialsgym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbHeader.Text) + For i = 0 To dgvGymnastics.RowCount - 1 + + If dgvGymnastics.Rows(i).Cells(0).Value <> "" Then + 'CasparCGDataCollection.SetData("sn" & i + 1, i + 1) + CasparCGDataCollection.SetData("loader" & i + 1, "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(i).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("name" & i + 1, dgvGymnastics.Rows(i).Cells(1).Value) + CasparCGDataCollection.SetData("value" & i + 1, dgvGymnastics.Rows(i).Cells(29).Value) + CasparCGDataCollection.SetData("alpha" & i + 1, 0) + End If + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparCGDataCollection.SetData("startlist", cmbSubHeader.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/Officials", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdteamlistwithgamenamegym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdteamlistwithgamenamegym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbHeader.Text) + For i = 0 To dgvGymnastics.RowCount - 1 + + If dgvGymnastics.Rows(i).Cells(0).Value <> "" Then + 'CasparCGDataCollection.SetData("sn" & i + 1, i + 1) + CasparCGDataCollection.SetData("loader" & i + 1, "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(i).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("name" & i + 1, dgvGymnastics.Rows(i).Cells(1).Value) + CasparCGDataCollection.SetData("value" & i + 1, dgvGymnastics.Rows(i).Cells(28).Value) + CasparCGDataCollection.SetData("alpha" & i + 1, 0) + End If + + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparCGDataCollection.SetData("startlist", cmbSubHeader.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/Officials", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub rdoArtisticsgym_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdoArtisticsgym.CheckedChanged, rdoRhythmicgym.CheckedChanged + On Error Resume Next + For i = 0 To dgvGymnastics.RowCount - 1 + If rdoArtisticsgym.Checked Then + dgvGymnastics.Rows(i).Cells(27).Value = Format(Val(dgvGymnastics.Rows(i).Cells(23).Value) + Val(dgvGymnastics.Rows(i).Cells(25).Value) - Val(dgvGymnastics.Rows(i).Cells(26).Value), "00.000") + + Else + dgvGymnastics.Rows(i).Cells(27).Value = Format(Val(dgvGymnastics.Rows(i).Cells(23).Value) + Val(dgvGymnastics.Rows(i).Cells(24).Value) + Val(dgvGymnastics.Rows(i).Cells(25).Value) - Val(dgvGymnastics.Rows(i).Cells(26).Value), "00.000") + + End If + Next + End Sub + + Private Sub cmdw1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdw1.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/opening", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdtop3standingsgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtop3standingsgym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + For i = 0 To dgvGymnastics.RowCount - 1 + + If dgvGymnastics.Rows(i).Cells(0).Value <> "" Then + 'CasparCGDataCollection.SetData("sn" & i + 1, i + 1) + CasparCGDataCollection.SetData("loader" & i + 1, "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.Rows(i).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("name" & i + 1, dgvGymnastics.Rows(i).Cells(1).Value) + CasparCGDataCollection.SetData("value" & i + 1, dgvGymnastics.Rows(i).Cells(CType(cmbstandingsgym.Text, Integer)).Value) + CasparCGDataCollection.SetData("alpha" & i + 1, 1) + End If + + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparCGDataCollection.SetData("startlist", cmbSubHeader.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/top_three", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdplayerscorecard2ndvaultgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayerscorecard2ndvaultgym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", dgvGymnastics.CurrentRow.Cells(1).Value) + If rdoArtisticsgym.Checked Then + CasparCGDataCollection.SetData("f1", dgvGymnastics.Columns(23).HeaderText & " " & dgvGymnastics.CurrentRow.Cells(23).Value & " " & dgvGymnastics.Columns(25).HeaderText & " " & dgvGymnastics.CurrentRow.Cells(25).Value & " " & dgvGymnastics.Columns(26).HeaderText & " " & dgvGymnastics.CurrentRow.Cells(26).Value) + CasparCGDataCollection.SetData("f2", dgvGymnastics.Columns(27).HeaderText & " " & dgvGymnastics.CurrentRow.Cells(27).Value) + CasparCGDataCollection.SetData("f4", dgvGymnastics.Columns(20).HeaderText & " " & dgvGymnastics.CurrentRow.Cells(20).Value) + If rdoaveragevaultgym.Checked Then + CasparCGDataCollection.SetData("f5", "Total" & " " & (Val(dgvGymnastics.CurrentRow.Cells(27).Value) + Val(dgvGymnastics.CurrentRow.Cells(20).Value)) / 2) + Else + CasparCGDataCollection.SetData("f5", "Total" & " " & (Val(dgvGymnastics.CurrentRow.Cells(27).Value) + Val(dgvGymnastics.CurrentRow.Cells(20).Value))) + + End If + + + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("f3", dgvGymnastics.CurrentRow.Index + 1) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f3", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + Else + For i = 23 To 27 + CasparCGDataCollection.SetData("f" & i - 22, dgvGymnastics.Columns(i).HeaderText) + CasparCGDataCollection.SetData("f" & i - 17, dgvGymnastics.CurrentRow.Cells(i).Value) + Next + + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("f15", dgvGymnastics.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f15", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + End If + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + If rdoArtisticsgym.Checked Then + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/PlayerScorecard2ndvault", True, CasparCGDataCollection.ToAMCPEscapedXml) + Else + 'CasparDevice.Channels(g_int_ChannelNumber-1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/PlayerScorecard2", True, CasparCGDataCollection.ToAMCPEscapedXml) + End If + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + + Private Sub cmdplayergamepointgym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayergamepointgym.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f1", dgvGymnastics.CurrentRow.Cells(1).Value) + CasparCGDataCollection.SetData("f2", dgvGymnastics.Columns(CType(cmbplayergamepointgym.Text, Integer)).HeaderText) + CasparCGDataCollection.SetData("f4", dgvGymnastics.CurrentRow.Cells(CType(cmbplayergamepointgym.Text, Integer)).Value) + + If chkwithnumbergym.Checked Then + CasparCGDataCollection.SetData("f3", dgvGymnastics.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f3", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvGymnastics.CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Gymnastics/player_any_score", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdchangecolumnnamegym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdchangecolumnnamegym.Click + On Error Resume Next + dgvGymnastics.Columns(CType(cmbchangecolumnnamegym.Text, Integer)).HeaderText = txtchangecolumnnamegym.Text + End Sub + + Private Sub cmbgames_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbgames.SelectedIndexChanged + If cmbgames.Text = "Aquatics" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\AQ" & ".png" + If cmbgames.Text = "Atheletics" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\AT" & ".png" + If cmbgames.Text = "Badminton" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\BD" & ".png" + If cmbgames.Text = "Basketball" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\BK" & ".png" + If cmbgames.Text = "Boxing" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\BX" & ".png" + If cmbgames.Text = "Football" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\FB" & ".png" + If cmbgames.Text = "Gymnastics - Artistic" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\Gymnastics - Artistic" & ".png" + If cmbgames.Text = "Gymnastics - Rhythmic" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\Gymnastics - Rhythmic" & ".png" + If cmbgames.Text = "Gymnastics - Trampoline" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\Gymnastics - Trampoline" & ".png" + If cmbgames.Text = "hockey" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\HO" & ".png" + If cmbgames.Text = "Kabaddi" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\KB" & ".png" + If cmbgames.Text = "Shooting" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\SH" & ".png" + If cmbgames.Text = "TableTennis" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\TT" & ".png" + If cmbgames.Text = "Tennis" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\TE" & ".png" + If cmbgames.Text = "Volleyball" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\VB" & ".png" + If cmbgames.Text = "Weight lift" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\WL" & ".png" + If cmbgames.Text = "Wrestling" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\WR" & ".png" + If cmbgames.Text = "Black" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\BLK" & ".png" + If cmbgames.Text = "Handball" Then gamelogo.ImageLocation = "C:\casparcg\mydata\games\games logo\hb" & ".png" + + + End Sub + + Private Sub gamelogo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + Dim picofd As New OpenFileDialog + picofd.InitialDirectory = "C:\casparcg\mydata\games\games logo\" + If (picofd.ShowDialog() = Windows.Forms.DialogResult.OK) Then + gamelogo.ImageLocation = picofd.FileName + End If + End Sub + + Private Sub piceventcg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + Dim picofd As New OpenFileDialog + picofd.InitialDirectory = "C:\casparcg\mydata\games\games logo\" + If (picofd.ShowDialog() = Windows.Forms.DialogResult.OK) Then + eventlogo.ImageLocation = picofd.FileName + End If + End Sub + ' Shooting code---------------------------------------------------------------------------------------------------------------------------------------------------------------- + Private Sub shootingdefaultdata() + On Error Resume Next + + + dgvShooting.Rows.Add(12) + + dgvShooting.Rows(0).Cells(0).Value = 1 + dgvShooting.Rows(0).Cells(1).Value = "MOHAMAD ALGARNI" + dgvShooting.Rows(0).Cells(2).Value = "A_N" + dgvShooting.Rows(0).Cells(3).Value = 54.914 + + dgvShooting.Rows(1).Cells(0).Value = 2 + dgvShooting.Rows(1).Cells(1).Value = "SANDEEP KARAN SINGH" + dgvShooting.Rows(1).Cells(2).Value = "ARP" + dgvShooting.Rows(1).Cells(3).Value = 32.412 + + dgvShooting.Rows(2).Cells(0).Value = 3 + dgvShooting.Rows(2).Cells(1).Value = "EMAD HAMED NOUR" + dgvShooting.Rows(2).Cells(2).Value = "BIH" + dgvShooting.Rows(2).Cells(3).Value = 51.251 + + dgvShooting.Rows(3).Cells(0).Value = 4 + dgvShooting.Rows(3).Cells(1).Value = "RASHEED RAMZI" + dgvShooting.Rows(3).Cells(2).Value = "CHA" + dgvShooting.Rows(3).Cells(3).Value = 12.256 + + dgvShooting.Rows(4).Cells(0).Value = 5 + dgvShooting.Rows(4).Cells(1).Value = "HAMZA DRIOUCH" + dgvShooting.Rows(4).Cells(2).Value = "DEL" + dgvShooting.Rows(4).Cells(3).Value = 52.586 + + dgvShooting.Rows(5).Cells(0).Value = 6 + dgvShooting.Rows(5).Cells(1).Value = "SANDEEP KARAN SINGH" + dgvShooting.Rows(5).Cells(2).Value = "DNH" + dgvShooting.Rows(5).Cells(3).Value = 54.258 + + dgvShooting.Rows(6).Cells(0).Value = 7 + dgvShooting.Rows(6).Cells(1).Value = "ABDULLAH OBAID" + dgvShooting.Rows(6).Cells(2).Value = "GOA" + dgvShooting.Rows(6).Cells(3).Value = 56.258 + + dgvShooting.Rows(7).Cells(0).Value = 8 + dgvShooting.Rows(7).Cells(1).Value = "AMASSRI WESAM" + dgvShooting.Rows(7).Cells(2).Value = "GUJ" + dgvShooting.Rows(7).Cells(3).Value = 52.147 + + dgvShooting.Rows(8).Cells(0).Value = 9 + dgvShooting.Rows(8).Cells(1).Value = "SAJAD MORADI" + dgvShooting.Rows(8).Cells(2).Value = "KER" + dgvShooting.Rows(8).Cells(3).Value = 32.365 + + dgvShooting.Rows(9).Cells(0).Value = 10 + dgvShooting.Rows(9).Cells(1).Value = "PRANJAL GOGOI" + dgvShooting.Rows(9).Cells(2).Value = "MAH" + dgvShooting.Rows(9).Cells(3).Value = 31.457 + + dgvShooting.Rows(10).Cells(0).Value = 11 + dgvShooting.Rows(10).Cells(1).Value = "MOHAMMAD ALAZEMI" + dgvShooting.Rows(10).Cells(2).Value = "MGA" + dgvShooting.Rows(10).Cells(3).Value = 47.185 + + dgvShooting.Rows(11).Cells(0).Value = 12 + dgvShooting.Rows(11).Cells(1).Value = "YUKI AKIMOTO" + dgvShooting.Rows(11).Cells(2).Value = "ORI" + dgvShooting.Rows(11).Cells(3).Value = 41.421 + + For i = 0 To dgvShooting.RowCount - 2 + For j = 3 To 28 + dgvShooting.Rows(i).Cells(j).Value = Format(i * j, "00.0") + Next + Next + + For i = 0 To dgvShooting.RowCount - 2 + For j = 30 To 31 + dgvShooting.Rows(i).Cells(j).Value = 1 + Next + For j = 32 To 33 + dgvShooting.Rows(i).Cells(j).Value = 0 + Next + For j = 34 To 34 + dgvShooting.Rows(i).Cells(j).Value = "" + Next + For j = 35 To 35 + dgvShooting.Rows(i).Cells(j).Value = 2 + Next + Next + End Sub + + Private Sub cmdShootingstartlist1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdShootingstartlist1.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbHeader.Text) + For i = 0 To dgvShooting.RowCount - 1 + + + If dgvShooting.Rows(i).Cells(0).Value <> "" Then + If chkwithnumberShooting.Checked Then + CasparCGDataCollection.SetData("sn" & i + 1, i + 1) + End If + CasparCGDataCollection.SetData("loader" & i + 1, "C:/casparcg/mydata/games/State_Short_Name/" & dgvShooting.Rows(i).Cells(2).Value & ".png") + End If + CasparCGDataCollection.SetData("name" & i + 1, dgvShooting.Rows(i).Cells(1).Value) + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparCGDataCollection.SetData("startlist", cmbSubHeader.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Shooting/startlist1", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdShootingstartlist2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdShootingstartlist2.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbHeader.Text) + For i = 8 To dgvShooting.RowCount - 1 + + If dgvShooting.Rows(i).Cells(0).Value <> "" Then + If chkwithnumberShooting.Checked Then + CasparCGDataCollection.SetData("sn" & i - 7, i + 1) + End If + + CasparCGDataCollection.SetData("loader" & i - 7, "C:/casparcg/mydata/games/State_Short_Name/" & dgvShooting.Rows(i).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("name" & i - 7, dgvShooting.Rows(i).Cells(1).Value) + End If + + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparCGDataCollection.SetData("startlist", cmbSubHeader.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Shooting/startlist1", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdplayeridShooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayeridShooting.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", dgvShooting.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("f1", dgvShooting.CurrentRow.Cells(1).Value) + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvShooting.CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Shooting/player_id", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdeventidShooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmbHeader.Text) + CasparCGDataCollection.SetData("f1", cmbSubHeader.Text) + + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Shooting/event_id", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + + Private Sub cmdrowinsertShooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrowinsertShooting.Click + On Error Resume Next + With dgvShooting + .Rows.Insert(.CurrentRow.Index) + End With + End Sub + Private Sub cmdrowdownShooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrowdownShooting.Click + down(dgvShooting) + End Sub + Private Sub tsShooting_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles tsShooting.ItemClicked + + End Sub + Private Sub cmdrowupShooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrowupShooting.Click + up(dgvShooting) + End Sub + Private Sub cmdrowdeleteShooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrowdeleteShooting.Click + On Error Resume Next + With dgvShooting + .Rows.RemoveAt(.CurrentRow.Index) + + End With + End Sub + + Private Sub newShooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newShooting.Click + On Error Resume Next + dgvShooting.Rows.Clear() + dgvShooting.Rows.Add(11) + lblfilenameShooting.Text = "new" + End Sub + + Private Sub openShooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openShooting.Click + On Error Resume Next + + opendata("C:\casparcg\mydata\games\shooting\", dgvShooting, cmbHeader, cmbSubHeader, lblfilenameShooting) + End Sub + + + Private Sub saveShooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveShooting.Click + savedata("C:\casparcg\mydata\games\shooting\", dgvShooting, cmbHeader, cmbSubHeader, lblfilenameShooting) + End Sub + + Private Sub dgvShooting_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvShooting.CellContentClick + + End Sub + + Private Sub dgvShooting_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvShooting.CellValueChanged + On Error Resume Next + Dim aa As Double = 0.0 + With dgvShooting + + For i = 4 To 28 + aa = Format(aa + Val(.Rows(e.RowIndex).Cells(i).Value), "0.00") + Next + .Rows(e.RowIndex).Cells(29).Value = aa + + End With + End Sub + + Private Sub dgvwinner_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvwinner.CellContentClick + + End Sub + + Private Sub dgvwinner_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvwinner.CellDoubleClick + On Error Resume Next + If e.ColumnIndex = 0 Then + Dim aa As New OpenFileDialog + aa.InitialDirectory = "C:\casparcg\mydata\games\GAMES2015\State_Full_Name\" + If aa.ShowDialog = Windows.Forms.DialogResult.OK Then + With dgvwinner + .Rows(e.RowIndex).Cells(0).Value = System.Drawing.Image.FromFile(aa.FileName) + .Rows(e.RowIndex).Cells(1).Value = UCase(Split(aa.SafeFileName, ".")(0)) + .Rows(e.RowIndex).Cells(2).Value = aa.FileName + End With + aa.Dispose() + End If + End If + End Sub + + Private Sub dgvwinner_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgvwinner.DataError + 'dummy code don't delete + End Sub + + Private Sub winnerdefaultdat() + On Error Resume Next + + With dgvwinner + .Rows.Add(8) + + .Rows(0).Cells(0).Value = Image.FromFile("C:\casparcg\mydata\games\State_Short_Name\bih.png") + .Rows(0).Cells(1).Value = "BIHAR" + .Rows(0).Cells(2).Value = "C:\casparcg\mydata\games\State_Short_Name\bih.png" + + .Rows(1).Cells(0).Value = Image.FromFile("C:\casparcg\mydata\games\State_Short_Name\goa.png") + .Rows(1).Cells(1).Value = "GOA" + .Rows(1).Cells(2).Value = "C:\casparcg\mydata\games\State_Short_Name\GOA.png" + + .Rows(2).Cells(0).Value = Image.FromFile("C:\casparcg\mydata\games\State_Short_Name\DEL.png") + .Rows(2).Cells(1).Value = "DELHI" + .Rows(2).Cells(2).Value = "C:\casparcg\mydata\games\State_Short_Name\DEL.png" + + .Rows(3).Cells(0).Value = Image.FromFile("C:\casparcg\mydata\games\State_Short_Name\KER.png") + .Rows(3).Cells(1).Value = "KERALA" + .Rows(3).Cells(2).Value = "C:\casparcg\mydata\games\State_Short_Name\KER.png" + + + + .Rows(4).Cells(0).Value = Image.FromFile("C:\casparcg\mydata\games\State_Short_Name\ASM.png") + .Rows(4).Cells(1).Value = "ASAM" + .Rows(4).Cells(2).Value = "C:\casparcg\mydata\games\State_Short_Name\ASM.png" + + .Rows(5).Cells(0).Value = Image.FromFile("C:\casparcg\mydata\games\State_Short_Name\CHA.png") + .Rows(5).Cells(1).Value = "CHANDIGARH" + .Rows(5).Cells(2).Value = "C:\casparcg\mydata\games\State_Short_Name\CHA.png" + + + + .Rows(6).Cells(0).Value = Image.FromFile("C:\casparcg\mydata\games\State_Short_Name\A_N.png") + .Rows(6).Cells(1).Value = "ANDAMAN NICOBAR" + .Rows(6).Cells(2).Value = "C:\casparcg\mydata\games\State_Short_Name\A_N.png" + + .Rows(7).Cells(0).Value = Image.FromFile("C:\casparcg\mydata\games\State_Short_Name\PUN.png") + .Rows(7).Cells(1).Value = "PUNJAB" + .Rows(7).Cells(2).Value = "C:\casparcg\mydata\games\State_Short_Name\PUN.png" + + End With + End Sub + + Private Sub cmdRoadToSemiFinal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRoadToSemiFinal.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbheadercg.Text) + CasparCGDataCollection.SetData("header2", cmbsubheadercg.Text) + For i = 0 To 7 + CasparCGDataCollection.SetData("loader" & i + 1, dgvwinner.Rows(i).Cells(2).Value) + CasparCGDataCollection.SetData("name" & i + 1, dgvwinner.Rows(i).Cells(1).Value) + Next + + If rdo0.Checked Then + CasparCGDataCollection.SetData("loader9", dgvwinner.Rows(0).Cells(2).Value) + CasparCGDataCollection.SetData("name9", dgvwinner.Rows(0).Cells(1).Value) + Else + CasparCGDataCollection.SetData("loader9", dgvwinner.Rows(1).Cells(2).Value) + CasparCGDataCollection.SetData("name9", dgvwinner.Rows(1).Cells(1).Value) + End If + + If rdo2.Checked Then + CasparCGDataCollection.SetData("loader10", dgvwinner.Rows(2).Cells(2).Value) + CasparCGDataCollection.SetData("name10", dgvwinner.Rows(2).Cells(1).Value) + Else + CasparCGDataCollection.SetData("loader10", dgvwinner.Rows(3).Cells(2).Value) + CasparCGDataCollection.SetData("name10", dgvwinner.Rows(3).Cells(1).Value) + End If + + If rdo4.Checked Then + CasparCGDataCollection.SetData("loader11", dgvwinner.Rows(4).Cells(2).Value) + CasparCGDataCollection.SetData("name11", dgvwinner.Rows(4).Cells(1).Value) + Else + CasparCGDataCollection.SetData("loader11", dgvwinner.Rows(5).Cells(2).Value) + CasparCGDataCollection.SetData("name11", dgvwinner.Rows(5).Cells(1).Value) + End If + + If rdo6.Checked Then + CasparCGDataCollection.SetData("loader12", dgvwinner.Rows(6).Cells(2).Value) + CasparCGDataCollection.SetData("name12", dgvwinner.Rows(6).Cells(1).Value) + Else + CasparCGDataCollection.SetData("loader12", dgvwinner.Rows(7).Cells(2).Value) + CasparCGDataCollection.SetData("name12", dgvwinner.Rows(7).Cells(1).Value) + End If + + + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/RoadToSemiFinal", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdeventidcg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmbHeader.Text) + CasparCGDataCollection.SetData("f1", cmbSubHeader.Text) + + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/event_id", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdgoldcg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdgoldcg.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", cmbsubheadercg.Text) + CasparCGDataCollection.SetData("f1", dgvwinner.Rows(0).Cells(1).Value) + + CasparCGDataCollection.SetData("loader1", dgvwinner.Rows(0).Cells(2).Value) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/medal_g", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdsilvercg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsilvercg.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", cmbsubheadercg.Text) + CasparCGDataCollection.SetData("f1", dgvwinner.Rows(1).Cells(1).Value) + + CasparCGDataCollection.SetData("loader1", dgvwinner.Rows(1).Cells(2).Value) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/medal_s", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdbronzecg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbronzecg.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", cmbsubheadercg.Text) + CasparCGDataCollection.SetData("f1", dgvwinner.Rows(2).Cells(1).Value) + + CasparCGDataCollection.SetData("loader1", dgvwinner.Rows(2).Cells(2).Value) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/medal_b", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdbronze2cg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbronze2cg.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", cmbsubheadercg.Text) + CasparCGDataCollection.SetData("f1", dgvwinner.Rows(3).Cells(1).Value) + + CasparCGDataCollection.SetData("loader1", dgvwinner.Rows(3).Cells(2).Value) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/medal_b", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdvictoryidcg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdvictoryidcg.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", cmbSubHeader.Text) + CasparCGDataCollection.SetData("f1", "Victory Ceremony") + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/victory_id", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmdrunnerupridcg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrunnerupridcg.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("h1", cmbHeader.Text) + If rdosinglecg.Checked Then + CasparCGDataCollection.SetData("h2", "Runner Up-" & cmbsubheadercg.Text) + Else + CasparCGDataCollection.SetData("h2", "Runners Up-" & cmbsubheadercg.Text) + End If + + + CasparCGDataCollection.SetData("t1", dgvwinner.Rows(1).Cells(1).Value) + + + CasparCGDataCollection.SetData("loader1", dgvwinner.Rows(1).Cells(2).Value) + + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg//winner", True, CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub cmdwinneridcg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdwinneridcg.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("h1", cmbHeader.Text) + If rdosinglecg.Checked Then + CasparCGDataCollection.SetData("h2", "Winner-" & cmbsubheadercg.Text) + Else + CasparCGDataCollection.SetData("h2", "Winners-" & cmbsubheadercg.Text) + End If + + + CasparCGDataCollection.SetData("t1", dgvwinner.Rows(0).Cells(1).Value) + + + CasparCGDataCollection.SetData("loader1", dgvwinner.Rows(0).Cells(2).Value) + + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/winner", True, CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub cmdmedalallcg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmedalallcg.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + + CasparCGDataCollection.Clear() + + + CasparCGDataCollection.SetData("h1", cmbheadercg.Text) + CasparCGDataCollection.SetData("h2", cmbsubheadercg.Text) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + For imedalall = 0 To 2 + CasparCGDataCollection.SetData("t" & imedalall + 1, dgvwinner.Rows(imedalall).Cells(1).Value) + CasparCGDataCollection.SetData("loader" & imedalall + 1, dgvwinner.Rows(imedalall).Cells(2).Value) + Next + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/medal_three", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmdmedalallbronze2cg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmedalallbronze2cg.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("h1", cmbheadercg.Text) + CasparCGDataCollection.SetData("h2", cmbsubheadercg.Text) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + For imedalall = 0 To 3 + CasparCGDataCollection.SetData("t" & imedalall + 1, dgvwinner.Rows(imedalall).Cells(1).Value) + CasparCGDataCollection.SetData("loader" & imedalall + 1, dgvwinner.Rows(imedalall).Cells(2).Value) + Next + + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/medal_three_bronze2", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + + End Sub + + Private Sub cmdplayeridcg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayeridcg.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", dgvwinner.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("f1", dgvwinner.CurrentRow.Cells(1).Value) + + CasparCGDataCollection.SetData("loader1", dgvwinner.CurrentRow.Cells(2).Value) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/player_id", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + + Private Sub cmdplayerqualification_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayerqualification.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + CasparCGDataCollection.Clear() + With dgvShooting + CasparCGDataCollection.SetData("f1", .CurrentRow.Cells(1).Value) + CasparCGDataCollection.SetData("f2", .CurrentRow.Cells(3).Value) + + + If chkwithnumberShooting.Checked Then + CasparCGDataCollection.SetData("f3", .CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f3", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & .CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/shooting/player_score", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End With + End Sub + + Private Sub cmdresult1Shooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresult1Shooting.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbHeader.Text) + For i = 0 To 7 + If dgvShooting.Rows(i).Cells(0).Value <> "" Then + CasparCGDataCollection.SetData("sn" & i + 1, i + 1) + CasparCGDataCollection.SetData("loader" & i + 1, "C:/casparcg/mydata/games/State_Short_Name/" & dgvShooting.Rows(i).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("name" & i + 1, dgvShooting.Rows(i).Cells(1).Value) + CasparCGDataCollection.SetData("value" & i + 1, dgvShooting.Rows(i).Cells(CType(cmbstandingsShooting.Text, Integer)).Value) + CasparCGDataCollection.SetData("alpha" & i + 1, 1) + End If + Next + + For j As Integer = 0 To Int(txteleminationshooting.Text) + CasparCGDataCollection.SetData("alpha" & (17 - j), 1) + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparCGDataCollection.SetData("startlist", cmbSubHeader.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/shooting/result1", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdplayerscorecardShooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayerscorecardShooting.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + With dgvShooting + CasparCGDataCollection.SetData("f0", .CurrentRow.Cells(1).Value) + ' CasparCGDataCollection.SetData("f1", .Columns(3).HeaderText & " " & .CurrentRow.Cells(3).Value & " " & .Columns(24).HeaderText & " " & .CurrentRow.Cells(29).Value) + CasparCGDataCollection.SetData("f2", "Score " & .CurrentRow.Cells(29).Value) + Dim str As String = "" + For i = 4 To 13 + str = str + .CurrentRow.Cells(i).Value + " " + Next + CasparCGDataCollection.SetData("score10", str) + + If chkwithnumberShooting.Checked Then + CasparCGDataCollection.SetData("f3", .CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f3", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & .CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/shooting/PlayerScorecard", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + End With + End Sub + + Private Sub cmdplayerscorecard2Shooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayerscorecard2Shooting.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + With dgvShooting + CasparCGDataCollection.SetData("f0", .CurrentRow.Cells(1).Value) + ' CasparCGDataCollection.SetData("f1", .Columns(3).HeaderText & " " & .CurrentRow.Cells(3).Value & " " & .Columns(24).HeaderText & " " & .CurrentRow.Cells(29).Value) + CasparCGDataCollection.SetData("f2", "Score " & .CurrentRow.Cells(29).Value) + Dim str10 As String = "" + For i = 4 To 13 + str10 = str10 + .CurrentRow.Cells(i).Value + " " + Next + CasparCGDataCollection.SetData("score10", str10) + + Dim str20 As String = "" + For i = 14 To 23 + str20 = str20 + .CurrentRow.Cells(i).Value + " " + Next + CasparCGDataCollection.SetData("score20", str20) + + If chkwithnumberShooting.Checked Then + CasparCGDataCollection.SetData("f3", .CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("alpha", 1) + Else + CasparCGDataCollection.SetData("f3", "") + CasparCGDataCollection.SetData("alpha", 0) + End If + + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & .CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/shooting/PlayerScorecard2", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + End With + End Sub + Private Sub cmdtop3standingsShooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtop3standingsShooting.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + With dgvShooting + For i = 0 To .RowCount - 1 + + If .Rows(i).Cells(0).Value <> "" Then + + CasparCGDataCollection.SetData("loader" & i + 1, "C:/casparcg/mydata/games/State_Short_Name/" & .Rows(i).Cells(2).Value & ".png") + CasparCGDataCollection.SetData("name" & i + 1, .Rows(i).Cells(1).Value) + CasparCGDataCollection.SetData("value" & i + 1, .Rows(i).Cells(CType(cmbstandingsShooting.Text, Integer)).Value) + CasparCGDataCollection.SetData("alpha" & i + 1, 1) + End If + + Next + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparCGDataCollection.SetData("startlist", txttop3.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/shooting/top_three", True, CasparCGDataCollection.ToAMCPEscapedXml) + End With + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdplayergamepointShooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayergamepointShooting.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + With dgvShooting + CasparCGDataCollection.SetData("f1", .CurrentRow.Cells(1).Value) + CasparCGDataCollection.SetData("f2", txtaftershots.Text) + CasparCGDataCollection.SetData("f3", .CurrentRow.Cells(CType(cmbplayergamepointShooting.Text, Integer)).Value) + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & .CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/shooting/player_any_score", True, CasparCGDataCollection.ToAMCPEscapedXml) + + End With + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdaddoutput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdaddoutput.Click + On Error Resume Next + + CasparDevice.SendString("add " & g_int_ChannelNumber & " decklink 1 " & "embedded_audio") + CasparDevice.SendString("add " & g_int_ChannelNumber & " bluefish 1 " & "embedded_audio") + + CasparDevice.SendString("add " & g_int_ChannelNumber & " decklink 2 " & "key_only") ' for key + CasparDevice.SendString("add " & g_int_ChannelNumber & " bluefish 2 " & "key_only") ' for key + End Sub + + Private Sub cmdremoveoutput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremoveoutput.Click + On Error Resume Next + + CasparDevice.SendString("remove " & g_int_ChannelNumber & " decklink 1") + CasparDevice.SendString("remove " & g_int_ChannelNumber & " bluefish 1") + CasparDevice.SendString("remove " & g_int_ChannelNumber & " decklink 2") ' for key + CasparDevice.SendString("remove " & g_int_ChannelNumber & " bluefish 2") ' for key + End Sub + + Private Sub cmdseries1shooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries1shooting.Click + On Error Resume Next + seriestemplate("Series 1", 4, 5, "cmp/games/shooting/series_score1", 6) + End Sub + + Private Sub cmdseries2shooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries2shooting.Click + On Error Resume Next + seriestemplate("Series 2", 7, 8, "cmp/games/shooting/series_score1", 9) + End Sub + + Private Sub cmdseries3shooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries3shooting.Click + On Error Resume Next + seriestemplate("Series 3", 10, 11, "cmp/games/shooting/series_score2") + End Sub + + Private Sub cmdseries4shooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries4shooting.Click + On Error Resume Next + seriestemplate("Series 4", 12, 13, "cmp/games/shooting/series_score2") + End Sub + + Private Sub cmdseries5shooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries5shooting.Click + On Error Resume Next + seriestemplate("Series 5", 14, 15, "cmp/games/shooting/series_score2") + End Sub + + Private Sub cmdseries6shooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries6shooting.Click + On Error Resume Next + seriestemplate("Series 6", 16, 17, "cmp/games/shooting/series_score2") + End Sub + + Private Sub cmdseries7shooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries7shooting.Click + On Error Resume Next + seriestemplate("Series 7", 18, 19, "cmp/games/shooting/series_score2") + + End Sub + + Private Sub cmdseries8shooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries8shooting.Click + On Error Resume Next + seriestemplate("Series 8", 20, 21, "cmp/games/shooting/series_score2") + End Sub + + Private Sub cmdseries9shooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries9shooting.Click + On Error Resume Next + seriestemplate("Series 9", 22, 23, "cmp/games/shooting/series_score2") + End Sub + Sub seriestemplate(ByVal seriesname As String, ByVal col1 As Integer, ByVal col2 As Integer, ByVal templatename As String, Optional ByVal col3 As Integer = 0) + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + With dgvShooting + + CasparCGDataCollection.SetData("f1", cmbHeader.Text) + + CasparCGDataCollection.SetData("f0", .CurrentRow.Cells(1).Value) + CasparCGDataCollection.SetData("f2", seriesname) + CasparCGDataCollection.SetData("f3", .CurrentRow.Cells(col1).Value) + CasparCGDataCollection.SetData("f4", .CurrentRow.Cells(col2).Value) + CasparCGDataCollection.SetData("f5", .CurrentRow.Cells(col3).Value) + CasparCGDataCollection.SetData("f6", .CurrentRow.Cells(29).Value) + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & .CurrentRow.Cells(2).Value & ".png") + + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), templatename, True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End With + End Sub + Sub seriestemplate25m(ByVal seriesname As String, ByVal col1 As Integer, ByVal col2 As Integer, ByVal col3 As Integer, ByVal col4 As Integer, ByVal col5 As Integer, ByVal templatename As String) + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + With dgvShooting + CasparCGDataCollection.SetData("f0", .CurrentRow.Cells(1).Value) + CasparCGDataCollection.SetData("f1", seriesname) + CasparCGDataCollection.SetData("f2", .CurrentRow.Cells(29).Value) + + If .CurrentRow.Cells(col1).Value <> "" Then + CasparCGDataCollection.SetData("g1", .CurrentRow.Cells(col1).Value) + CasparCGDataCollection.SetData("r1", 1 - .CurrentRow.Cells(col1).Value) + End If + If .CurrentRow.Cells(col2).Value <> "" Then + CasparCGDataCollection.SetData("g2", .CurrentRow.Cells(col2).Value) + CasparCGDataCollection.SetData("r2", 1 - .CurrentRow.Cells(col2).Value) + End If + If .CurrentRow.Cells(col3).Value <> "" Then + CasparCGDataCollection.SetData("g3", .CurrentRow.Cells(col3).Value) + CasparCGDataCollection.SetData("r3", 1 - .CurrentRow.Cells(col3).Value) + End If + If .CurrentRow.Cells(col4).Value <> "" Then + CasparCGDataCollection.SetData("g4", .CurrentRow.Cells(col4).Value) + CasparCGDataCollection.SetData("r4", 1 - .CurrentRow.Cells(col4).Value) + End If + If .CurrentRow.Cells(col5).Value <> "" Then + CasparCGDataCollection.SetData("g5", .CurrentRow.Cells(col5).Value) + CasparCGDataCollection.SetData("r5", 1 - .CurrentRow.Cells(col5).Value) + End If + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & .CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), templatename, True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then animationtoscreen() + End With + End Sub + Private Sub cmdseries1shooting25m_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries1shooting25m.Click + On Error Resume Next + seriestemplate25m("Series 1", 4, 5, 6, 7, 8, "cmp/games/shooting/series_score25m") + End Sub + + Private Sub cmdseries2shooting25m_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries2shooting25m.Click + On Error Resume Next + seriestemplate25m("Series 2", 9, 10, 11, 12, 13, "cmp/games/shooting/series_score25m") + + End Sub + + Private Sub cmdseries3shooting25m_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries3shooting25m.Click + On Error Resume Next + seriestemplate25m("Series 3", 14, 15, 16, 17, 18, "cmp/games/shooting/series_score25m") + + End Sub + + Private Sub cmdseries4shooting25m_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries4shooting25m.Click + On Error Resume Next + seriestemplate25m("Series 4", 19, 20, 21, 22, 23, "cmp/games/shooting/series_score25m") + + End Sub + + Private Sub cmdseries5shooting25m_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdseries5shooting25m.Click + On Error Resume Next + seriestemplate25m("Series 5", 24, 25, 26, 27, 28, "cmp/games/shooting/series_score25m") + + End Sub + + Private Sub cmdmedalmatchshooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmedalmatchshooting.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmbHeader.Text) + CasparCGDataCollection.SetData("f1", cmbSubHeader.Text) + + CasparCGDataCollection.SetData("f2", dgvShooting.CurrentRow.Cells(1).Value) + CasparCGDataCollection.SetData("f3", dgvShooting.Rows(dgvShooting.CurrentRow.Index + 1).Cells(1).Value) + + CasparCGDataCollection.SetData("f4", dgvShooting.CurrentRow.Cells(35).Value) + CasparCGDataCollection.SetData("f5", dgvShooting.Rows(dgvShooting.CurrentRow.Index + 1).Cells(35).Value) + + With dgvShooting + For i = 30 To 34 + If .CurrentRow.Cells(i).Value <> "" Then + CasparCGDataCollection.SetData("g" & i - 29, .CurrentRow.Cells(i).Value) + CasparCGDataCollection.SetData("r" & i - 29, 1 - .CurrentRow.Cells(i).Value) + End If + If .Rows(.CurrentRow.Index + 1).Cells(i).Value <> "" Then + CasparCGDataCollection.SetData("g" & i - 24, .Rows(.CurrentRow.Index + 1).Cells(i).Value) + CasparCGDataCollection.SetData("r" & i - 24, 1 - .Rows(.CurrentRow.Index + 1).Cells(i).Value) + End If + Next + End With + + CasparCGDataCollection.SetData("loader1", "C:/casparcg/mydata/games/State_Short_Name/" & dgvShooting.CurrentRow.Cells(2).Value & ".png") + CasparCGDataCollection.SetData("loader2", "C:/casparcg/mydata/games/State_Short_Name/" & dgvShooting.Rows(dgvShooting.CurrentRow.Index + 1).Cells(2).Value & ".png") + + + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/Shooting/medalMatch", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + + Private Sub cmdShootoffshooting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdShootoffshooting.Click + On Error Resume Next + seriestemplate25m("Shoot-Off", 30, 31, 32, 33, 34, "cmp/games/shooting/Shootoffshooting25") + CasparCGDataCollection.SetData("f3", "+" & dgvShooting.CurrentRow.Cells(35).Value) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmblayergames.Text), Int(cmblayergames.Text), CasparCGDataCollection) + + + End Sub + + Private Sub cmdroadtofinal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdroadtofinal.Click + On Error Resume Next + If chkanimationzym.Checked Then animation1() + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbheadercg.Text) + CasparCGDataCollection.SetData("header2", cmbsubheadercg.Text) + For i = 0 To 3 + CasparCGDataCollection.SetData("loader" & i + 1, dgvwinner.Rows(i).Cells(2).Value) + CasparCGDataCollection.SetData("name" & i + 1, dgvwinner.Rows(i).Cells(1).Value) + Next + + If rdo0.Checked Then + CasparCGDataCollection.SetData("loader9", dgvwinner.Rows(0).Cells(2).Value) + CasparCGDataCollection.SetData("name9", dgvwinner.Rows(0).Cells(1).Value) + Else + CasparCGDataCollection.SetData("loader9", dgvwinner.Rows(1).Cells(2).Value) + CasparCGDataCollection.SetData("name9", dgvwinner.Rows(1).Cells(1).Value) + End If + + If rdo2.Checked Then + CasparCGDataCollection.SetData("loader10", dgvwinner.Rows(2).Cells(2).Value) + CasparCGDataCollection.SetData("name10", dgvwinner.Rows(2).Cells(1).Value) + Else + CasparCGDataCollection.SetData("loader10", dgvwinner.Rows(3).Cells(2).Value) + CasparCGDataCollection.SetData("name10", dgvwinner.Rows(3).Cells(1).Value) + End If + + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/cg/RoadToFinal", True, CasparCGDataCollection.ToAMCPEscapedXml) + + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private Sub cmdhd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhd.Click + On Error Resume Next + CasparDevice.SendString("set " & g_int_ChannelNumber & " mode 1080i5000") + + End Sub + Private Sub cmdsd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsd.Click + On Error Resume Next + CasparDevice.SendString("set " & g_int_ChannelNumber & " mode PAL") + End Sub + + Private Sub cmdsqueezeforsafesd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsqueezeforsafesd.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text & " fill .1 0 .8 1 50 easeoutexpo") + + End Sub + + Private Sub cmdfillnormal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdfillnormal.Click + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text & " fill 0 0 1 1 50 easeoutexpo") + + End Sub + + + Private Sub Label24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label24.Click + + End Sub + + Private Sub rdoaveragevaultgym_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdoaveragevaultgym.CheckedChanged, rdoaddvaultgym.CheckedChanged + On Error Resume Next + For i = 0 To dgvGymnastics.RowCount - 1 + If rdoaveragevaultgym.Checked Then + dgvGymnastics.Rows(i).Cells(22).Value = Format((Val(dgvGymnastics.Rows(i).Cells(20).Value) + Val(dgvGymnastics.Rows(i).Cells(21).Value)) / 2, "00.00") + Else + dgvGymnastics.Rows(i).Cells(22).Value = Format(Val(dgvGymnastics.Rows(i).Cells(20).Value) + Val(dgvGymnastics.Rows(i).Cells(21).Value), "00.00") + End If + Next + End Sub + + Private Sub cmdcleardatagym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcleardatagym.Click + On Error Resume Next + For i = 0 To dgvGymnastics.RowCount - 1 + For j = 3 To dgvGymnastics.ColumnCount - 1 + dgvGymnastics.Rows(i).Cells(j).Value = "" + Next + + Next + End Sub + + Private Sub pict1logoball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pict1logoball.Click + On Error Resume Next + txtt1ball.Text = openimage("C:\casparcg\mydata\games\State_Full_Name", sender) + End Sub + Private Sub cmdadjustminball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadjustminball.Click + On Error Resume Next + txtminball.Text = cmbputminuteball.Text + End Sub + + Private Sub cmdadjustsecball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadjustsecball.Click + On Error Resume Next + txtsecball.Text = cmbputsecondball.Text + End Sub + + Function openimage(ByVal defaultdirectory As String, ByVal picname As PictureBox) + On Error Resume Next + Dim picofd As New OpenFileDialog + picofd.InitialDirectory = defaultdirectory + If (picofd.ShowDialog() = Windows.Forms.DialogResult.OK) Then + picname.ImageLocation = picofd.FileName + End If + Return Split(picofd.SafeFileName, ".")(0) + End Function + + Private Sub pict2logoball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pict2logoball.Click + On Error Resume Next + txtt2ball.Text = openimage("C:\casparcg\mydata\games\State_Full_Name", sender) + End Sub + + Private Sub cmdscoreball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdscoreball.Click + On Error Resume Next + + If chkanimationzym.Checked Then CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill -1 0 1 1 50 easeoutexpo") + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtt1ball.Text) + CasparCGDataCollection.SetData("f1", txtt2ball.Text) + CasparCGDataCollection.SetData("f2", txtt1gball.Text) + CasparCGDataCollection.SetData("f3", txtt2gball.Text) + CasparCGDataCollection.SetData("time", txtminball.Text & ":" & txtsecball.Text) + CasparCGDataCollection.SetData("f5", cmbhalfball.Text) + + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader6", pict2logoball.ImageLocation) + + CasparCGDataCollection.SetData("mc1", "0") + CasparCGDataCollection.SetData("mc2", "0") + + + CasparCGDataCollection.SetData("team1color", cmdt1colorball.BackColor.ToArgb) + CasparCGDataCollection.SetData("team2color", cmdt2colorball.BackColor.ToArgb) + + + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text) + 1, Int(cmblayergames.Text) + 1, "cmp/games/ball/score", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then + If chkanimationforhdvan.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill .1 0 .8 1 50 easeoutexpo") + + Else + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill 0 0 1 1 50 easeoutexpo") + + End If + + End If + tmrtimeupdateontemplate.Enabled = True + tmrupdateontemplateextra.Enabled = False + End Sub + + + + Private Sub cmdstartclockball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstartclockball.Click + tmrtimeonform.Enabled = True + aa = Val(Now.Second.ToString) 'new code + End Sub + Dim aa As Integer 'new code + + Private Sub cmdresetclockball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresetclockball.Click + txtminball.Text = "00" + txtsecball.Text = "00" + End Sub + + Private Sub cmdpauseclockball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpauseclockball.Click + tmrtimeonform.Enabled = False + End Sub + Private Sub tmrtimeonform_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrtimeonform.Tick + On Error Resume Next + Dim bb = Val(Now.Second.ToString) + + Dim dif As Integer = (bb - aa) + aa = bb + If dif < 0 Then dif = dif + 60 + + If rdodowncounterball.Checked = True Then + txtsecball.Text = Format(Val(txtsecball.Text - dif), "00") + If Val(txtsecball.Text) < 0 Then + txtsecball.Text = 59 + txtminball.Text = Format(txtminball.Text - 1, "00") + End If + If Val(txtminball.Text) < 0 Then + txtsecball.Text = "00" + txtminball.Text = "00" + End If + End If + If rdoupcounterball.Checked = True Then + txtsecball.Text = Format(Val(txtsecball.Text + dif), "00") + If txtsecball.Text > 59 Then + txtsecball.Text = "00" + txtminball.Text = Format(txtminball.Text + 1, "00") + End If + End If + End Sub + + Private Sub tmrtimeupdateontemplate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrtimeupdateontemplate.Tick + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("time", txtminball.Text & ":" & txtsecball.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmblayergames.Text) + 1, Int(cmblayergames.Text) + 1, CasparCGDataCollection) + + End Sub + + Private Sub tmrupdateontemplateextra_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrupdateontemplateextra.Tick + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("time", txthalftimeball.Text & ":00") + CasparCGDataCollection.SetData("extra", txtminball.Text & ":" & txtsecball.Text) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmblayergames.Text) + 1, Int(cmblayergames.Text) + 1, CasparCGDataCollection) + End Sub + + Private Sub cmdscorewithextraball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdscorewithextraball.Click + On Error Resume Next + + If chkanimationzym.Checked Then CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill -1 0 1 1 50 easeoutexpo") + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtt1ball.Text) + CasparCGDataCollection.SetData("f1", txtt2ball.Text) + CasparCGDataCollection.SetData("f2", txtt1gball.Text) + CasparCGDataCollection.SetData("f3", txtt2gball.Text) + + CasparCGDataCollection.SetData("time", txthalftimeball.Text & ":00") + CasparCGDataCollection.SetData("extra", txtminball.Text & ":" & txtsecball.Text) + + CasparCGDataCollection.SetData("f5", cmbhalfball.Text) + + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader6", pict2logoball.ImageLocation) + + + CasparCGDataCollection.SetData("mc1", "1") + CasparCGDataCollection.SetData("mc2", "0") + CasparCGDataCollection.SetData("extraalpha", "1") + + CasparCGDataCollection.SetData("team1color", cmdt1colorball.BackColor.ToArgb) + CasparCGDataCollection.SetData("team2color", cmdt2colorball.BackColor.ToArgb) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text) + 1, Int(cmblayergames.Text) + 1, "cmp/games/ball/score", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then + If chkanimationforhdvan.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill .1 0 .8 1 50 easeoutexpo") + + Else + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill 0 0 1 1 50 easeoutexpo") + + End If + + End If + tmrtimeupdateontemplate.Enabled = False + tmrupdateontemplateextra.Enabled = True + End Sub + + Private Sub cmdstopscoreball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstopscoreball.Click + On Error Resume Next + If chkanimationzym.Checked Then CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill -1 0 1 1 50 easeoutexpo") + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(Int(cmblayergames.Text) + 1, Int(cmblayergames.Text) + 1) + Threading.Thread.Sleep(2000) + If chkanimationzym.Checked Then + If chkanimationforhdvan.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill .1 0 .8 1 50 easeoutexpo") + Else + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill 0 0 1 1 50 easeoutexpo") + + End If + End If + tmrtimeupdateontemplate.Enabled = False + tmrupdateontemplateextra.Enabled = False + End Sub + + Private Sub defautdataforball() + On Error Resume Next + With dgvt1ball + .Rows.Add(22) + .Rows(0).Cells(0).Value = "21 K Bharadwaja" + .Rows(1).Cells(0).Value = "52 N Sri Sai" + .Rows(2).Cells(0).Value = "73 A K Prajapati" + .Rows(3).Cells(0).Value = "34 Deepesh Sahu" + .Rows(4).Cells(0).Value = "18 Vatsal Reshamwala" + .Rows(5).Cells(0).Value = "22 Devanshu Soni" + .Rows(6).Cells(0).Value = "23 Honey Mehra" + .Rows(7).Cells(0).Value = "24 Mayank Jain" + .Rows(8).Cells(0).Value = "25 Baleshwar Nayak" + .Rows(9).Cells(0).Value = "26 Manoj Thapa" + .Rows(10).Cells(0).Value = "27 Rahul Chitrasen" + + .Rows(11).Cells(0).Value = "28 Vidwath Sundaraju" + .Rows(12).Cells(0).Value = "29 M. Shinoj" + .Rows(13).Cells(0).Value = "06 Bhaskar Das" + .Rows(14).Cells(0).Value = "13 Anuj Rathi" + .Rows(15).Cells(0).Value = "15 Bapi Roy" + .Rows(16).Cells(0).Value = "20 Yogeshwar Singh" + .Rows(17).Cells(0).Value = "22 Devanshu Soni" + .Rows(18).Cells(0).Value = "34 Rajeev R" + .Rows(19).Cells(0).Value = "31 Sarath G.L." + .Rows(20).Cells(0).Value = "32 Sarath Gopal" + .Rows(21).Cells(0).Value = "33 Jithu V. S," + .Rows(22).Cells(0).Value = "Coach-Madhvan Nair" + + End With + With dgvt2ball + .Rows.Add(22) + .Rows(0).Cells(0).Value = "36 Abhishek Chatterjee" + .Rows(1).Cells(0).Value = "37 Ashutosh Verma" + .Rows(2).Cells(0).Value = "38 Bharat Batham" + .Rows(3).Cells(0).Value = "39 Jagat Sharma" + .Rows(4).Cells(0).Value = "40 Narendra Mahawar" + .Rows(5).Cells(0).Value = "41 Rohit Jadhav" + .Rows(6).Cells(0).Value = "42 Sunder Verma" + .Rows(7).Cells(0).Value = "43 Akash Dongre" + .Rows(8).Cells(0).Value = "44 Anish Joshi" + .Rows(9).Cells(0).Value = "45 Narsimha Chavhan" + .Rows(10).Cells(0).Value = "46 Prithviraj Phadnis" + + .Rows(11).Cells(0).Value = "47 Sagar Sawant" + .Rows(12).Cells(0).Value = "48 Vijay Ingle" + .Rows(13).Cells(0).Value = "06 Vimesh Kumar" + .Rows(14).Cells(0).Value = "49 Vinayak Auti" + .Rows(15).Cells(0).Value = "50 B Tulshidas Sharma" + .Rows(16).Cells(0).Value = "51 Ch Meiraba Meitei" + .Rows(17).Cells(0).Value = "52 K Roopakanta Sharma" + .Rows(18).Cells(0).Value = "53 Rajeev Gopinathan" + .Rows(19).Cells(0).Value = "54 M Chandrashekhar" + .Rows(20).Cells(0).Value = "55 Peter Rose" + .Rows(21).Cells(0).Value = "56 V B Hadap" + .Rows(22).Cells(0).Value = "Coach-Ramakrishna Panigrahi" + + End With + + End Sub + Private Sub cmdt1lineupball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt1lineupball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + For i = 0 To 22 + CasparCGDataCollection.SetData("f" & i, dgvt1ball.Rows(i).Cells(0).Value) + Next + CasparCGDataCollection.SetData("header", txtt1ball.Text) + CasparCGDataCollection.SetData("subheader", "Starting Lineup") + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/teamlineup", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + Private Sub cmdt2lineupball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt2lineupball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + For i = 0 To 22 + CasparCGDataCollection.SetData("f" & i, dgvt2ball.Rows(i).Cells(0).Value) + Next + CasparCGDataCollection.SetData("header", txtt2ball.Text) + CasparCGDataCollection.SetData("subheader", "Starting Lineup") + CasparCGDataCollection.SetData("loader1", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/teamlineup", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Sub showtemplate(ByVal templatename As String, ByVal datacollection As String) + On Error Resume Next + If chkanimationzym.Checked Then animation1() + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), templatename, True, datacollection) + If chkanimationzym.Checked Then animationtoscreen() + End Sub + + Private counter As Integer + Private Sub dgvt2ball_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvt2ball.CellDoubleClick + On Error Resume Next + If counter = 0 Then + txtt2inball.Text = sender.CurrentRow.Cells(0).Value + counter = counter + 1 + Else + txtt2outball.Text = sender.CurrentRow.Cells(0).Value + counter = 0 + End If + End Sub + + Private Sub dgvt1ball_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvt1ball.CellDoubleClick + On Error Resume Next + If counter = 0 Then + txtt1inball.Text = sender.CurrentRow.Cells(0).Value + counter = counter + 1 + Else + txtt1outball.Text = sender.CurrentRow.Cells(0).Value + counter = 0 + End If + End Sub + + Private Sub cmdt1yball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt1yball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", dgvt1ball.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/yellow_card", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + Private Sub cmdt2yball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt2yball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", dgvt2ball.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("loader1", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/yellow_card", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + Private Sub cmdt1rball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt1rball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", dgvt1ball.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/red_card", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Private Sub cmdt1gball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt1gball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", dgvt1ball.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/goal", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Private Sub cmdt2rball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt2rball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", dgvt2ball.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("loader1", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/red_card", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Private Sub cmdt2gball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt2gball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", dgvt2ball.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("loader1", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/goal", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + Private Sub cmdt1inoutball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt1inoutball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtt1inball.Text) + CasparCGDataCollection.SetData("f1", txtt1outball.Text) + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/in_out", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub cmdt2inoutball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt2inoutball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtt2inball.Text) + CasparCGDataCollection.SetData("f1", txtt2outball.Text) + CasparCGDataCollection.SetData("loader1", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/in_out", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub cmdteam2inball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdteam2inball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtt2inball.Text) + CasparCGDataCollection.SetData("f1", txtt2outball.Text) + CasparCGDataCollection.SetData("loader1", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/in", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub cmdteam1inball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdteam1inball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtt1inball.Text) + CasparCGDataCollection.SetData("f1", txtt1outball.Text) + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/in", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + + Private Sub cmdteam2outball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdteam2outball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", txtt2outball.Text) + CasparCGDataCollection.SetData("loader1", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/out", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + Private Sub cmdteam1outball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdteam1outball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", txtt1outball.Text) + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/out", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Private Sub cmdvsball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdvsball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmbHeader.Text) + CasparCGDataCollection.SetData("f1", cmbSubHeader.Text) + CasparCGDataCollection.SetData("f2", txtt1ball.Text) + CasparCGDataCollection.SetData("f3", txtt2ball.Text) + + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/cg/versus", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + + Private Sub cmdsavet1ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsavet1ball.Click + On Error Resume Next + savedata("C:\casparcg\mydata\games\ball\", dgvt1ball, cmbHeader, cmbSubHeader, lblfilenamet1ball) + End Sub + + Private Sub cmdnewt1ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdnewt1ball.Click + On Error Resume Next + newdata(dgvt1ball, cmbHeader, cmbSubHeader, lblfilenamet1ball) + End Sub + + Private Sub cmdopent1ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopent1ball.Click + On Error Resume Next + opendata("C:\casparcg\mydata\games\ball\", dgvt1ball, cmbHeader, cmbSubHeader, lblfilenamet1ball) + + End Sub + + Private Sub cmduprowt1ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmduprowt1ball.Click + On Error Resume Next + up(dgvt1ball) + End Sub + + Private Sub cmddownrowt1ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddownrowt1ball.Click + On Error Resume Next + down(dgvt1ball) + End Sub + + Private Sub cmdaddrowt1ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdaddrowt1ball.Click + insert(dgvt1ball) + End Sub + + Private Sub cmdremoverowt1ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremoverowt1ball.Click + delete(dgvt1ball) + End Sub + + Private Sub cmdnewt2ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdnewt2ball.Click + newdata(dgvt2ball, cmbHeader, cmbSubHeader, lblfilenamet2ball) + + End Sub + + Private Sub cmdopent2ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopent2ball.Click + On Error Resume Next + opendata("C:\casparcg\mydata\games\ball\", dgvt2ball, cmbHeader, cmbSubHeader, lblfilenamet2ball) + + End Sub + + Private Sub cmdsavet2ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsavet2ball.Click + On Error Resume Next + savedata("C:\casparcg\mydata\games\ball\", dgvt2ball, cmbHeader, cmbSubHeader, lblfilenamet2ball) + + End Sub + + Private Sub cmduprowt2ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmduprowt2ball.Click + up(dgvt2ball) + End Sub + + Private Sub cmdremoverowt2ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremoverowt2ball.Click + delete(dgvt2ball) + End Sub + + Private Sub cmdaddrowt2ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdaddrowt2ball.Click + insert(dgvt2ball) + End Sub + + Private Sub cmddownrowt2ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddownrowt2ball.Click + down(dgvt2ball) + End Sub + + + Private Sub cmdeventidcg_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdeventidcg.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmbheadercg.Text) + CasparCGDataCollection.SetData("f1", cmbsubheadercg.Text) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/cg/event_id", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Private Sub cmdplayeridt1ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayeridt1ball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f1", dgvt1ball.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/player_id", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Private Sub cmdplayeridt2ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayeridt2ball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f1", dgvt2ball.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("loader1", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/player_id", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Private Sub cmdtteamridt1ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtteamridt1ball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f1", txtt1ball.Text) + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + showtemplate("cmp/games/cg/player_id", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub cmdtteamridt2ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtteamridt2ball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f1", txtt2ball.Text) + CasparCGDataCollection.SetData("loader1", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + showtemplate("cmp/games/cg/player_id", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + + + Private Sub cmd2refereescg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd2refereescg.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmbheadercg.Text) + CasparCGDataCollection.SetData("f1", cmbsubheadercg.Text) + CasparCGDataCollection.SetData("f2", dgvwinner.Rows(0).Cells(1).Value) + CasparCGDataCollection.SetData("f3", dgvwinner.Rows(1).Cells(1).Value) + + CasparCGDataCollection.SetData("loader1", dgvwinner.Rows(0).Cells(2).Value) + CasparCGDataCollection.SetData("loader2", dgvwinner.Rows(1).Cells(2).Value) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/cg/versus", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + + Private Sub cmdclockwithinfoball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + Private Sub cmdt1colorball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt1colorball.Click + On Error Resume Next + Dim cdb As New ColorDialog + If cdb.ShowDialog = DialogResult.OK Then + sender.backcolor = cdb.Color + End If + End Sub + + Private Sub cmdt2colorball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdt2colorball.Click + On Error Resume Next + Dim cdb As New ColorDialog + If cdb.ShowDialog = DialogResult.OK Then + sender.backcolor = cdb.Color + End If + End Sub + + Private Sub cmdadd1t2ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadd1t2ball.Click + txtt2gball.Text += 1 + End Sub + + Private Sub cmdadd1t1ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadd1t1ball.Click + txtt1gball.Text += 1 + End Sub + + Private Sub cmdscoreupdateball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdscoreupdateball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f2", txtt1gball.Text) + CasparCGDataCollection.SetData("f3", txtt2gball.Text) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmblayergames.Text) + 1, Int(cmblayergames.Text) + 1, CasparCGDataCollection) + + End Sub + + Private Sub cmdgoalSummary_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdgoalSummary.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", cmbgoalsummary.Text) + CasparCGDataCollection.SetData("f1", txtt1gball.Text & "-" & txtt2gball.Text) + + CasparCGDataCollection.SetData("f2", txtt1ball.Text) + CasparCGDataCollection.SetData("f3", txtt2ball.Text) + + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2logoball.ImageLocation) + showtemplate("cmp/games/ball/Goal_Summary", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + Private Sub cmdgroupcg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdgroupcg.Click + On Error Resume Next + + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("header1", cmbheadercg.Text) + For i = 0 To 7 + CasparCGDataCollection.SetData("loader" & i + 1, dgvwinner.Rows(i).Cells(2).Value) + CasparCGDataCollection.SetData("name" & i + 1, dgvwinner.Rows(i).Cells(1).Value) + Next + + CasparCGDataCollection.SetData("loader51", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + + + showtemplate("cmp/games/cg/group", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Private Sub tsnewcg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsnewcg.Click + On Error Resume Next + newdata(dgvwinner, cmbheadercg, cmbsubheadercg, lblfilenamecg) + End Sub + + Private Sub tsopencg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsopencg.Click + On Error Resume Next + On Error Resume Next + Dim ofd2 As New OpenFileDialog + + ofd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + ofd2.InitialDirectory = "C:\casparcg\mydata\games\cg\" + If (ofd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sr As StreamReader = New StreamReader(ofd2.FileName) + 'clear list + dgvwinner.Rows.Clear() + 'Loop through and add list to the file. + Dim g As Integer = 0 + Dim li As String = "" + + li = sr.ReadLine() + cmbheadercg.Text = Split(li, ",")(0) + cmbsubheadercg.Text = Split(li, ",")(1) + + li = "" + li = sr.ReadLine() + For i = 0 To dgvwinner.ColumnCount - 1 + dgvwinner.Columns(i).HeaderText = Split(li, ",")(i) + Next + + li = "" + Do Until sr.EndOfStream + li = sr.ReadLine() + dgvwinner.Rows.Add() + Dim xyz As Array = Split(li, ",") + For k = 0 To dgvwinner.ColumnCount - 1 + + If k = 0 Then + dgvwinner.Rows(g).Cells(k).Value = System.Drawing.Image.FromFile(xyz(k)) + + Else + dgvwinner.Rows(g).Cells(k).Value = xyz(k) + End If + + Next + g = g + 1 + Loop + sr.Close() + End Using + lblfilenamecg.Text = ofd2.FileName + End If + End Sub + + Private Sub tssavecg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tssavecg.Click + On Error Resume Next + On Error Resume Next + Dim osd2 As New SaveFileDialog + osd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + osd2.InitialDirectory = "C:\casparcg\mydata\games\cg\" + If (osd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sw As StreamWriter = New StreamWriter(osd2.FileName) + If dgvwinner.Rows.Count = 0 Then + sw.Write("") + Else + 'write header and subheader + sw.WriteLine(cmbheadercg.Text & "," & cmbsubheadercg.Text) + + 'write headers of datagrid + Dim header1 As String = "" + For i = 0 To dgvwinner.ColumnCount - 1 + header1 = header1 & dgvwinner.Columns(i).HeaderText & "," + Next + sw.WriteLine(header1) + + 'Loop through and add list to the file. + Dim f As Integer = 0 + Do Until f = dgvwinner.Rows.Count + Dim str As String = "" + For k = 0 To dgvwinner.ColumnCount - 1 + If k = 0 Then + str = str & dgvwinner.Rows(f).Cells(2).Value & "," + Else + str = str & dgvwinner.Rows(f).Cells(k).Value & "," + End If + + Next + sw.WriteLine(str) + f = f + 1 + Loop + End If + sw.Close() + End Using + lblfilenamecg.Text = osd2.FileName + End If + End Sub + + + Private Sub cmdupcg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdupcg.Click + On Error Resume Next + up(dgvwinner) + End Sub + + Private Sub cmddowncg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddowncg.Click + On Error Resume Next + down(dgvwinner) + End Sub + + Private Sub cmdinsercg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdinsercg.Click + On Error Resume Next + insert(dgvwinner) + End Sub + + Private Sub cmddeleteg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddeleteg.Click + On Error Resume Next + delete(dgvwinner) + End Sub + + Private Sub cmdscorewithclock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdscorewithclock.Click + On Error Resume Next + + If chkanimationzym.Checked Then CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill -1 0 1 1 50 easeoutexpo") + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtt1ball.Text) + CasparCGDataCollection.SetData("f1", txtt2ball.Text) + CasparCGDataCollection.SetData("f2", txtt1gball.Text) + CasparCGDataCollection.SetData("f3", txtt2gball.Text) + CasparCGDataCollection.SetData("time", txtminball.Text & ":" & txtsecball.Text) + CasparCGDataCollection.SetData("f5", cmbhalfball.Text) + + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader6", pict2logoball.ImageLocation) + + CasparCGDataCollection.SetData("mc1", "1") + CasparCGDataCollection.SetData("mc2", "0") + + + + CasparCGDataCollection.SetData("team1color", cmdt1colorball.BackColor.ToArgb) + CasparCGDataCollection.SetData("team2color", cmdt2colorball.BackColor.ToArgb) + + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text) + 1, Int(cmblayergames.Text) + 1, "cmp/games/ball/score", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then + If chkanimationforhdvan.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill .1 0 .8 1 50 easeoutexpo") + + Else + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill 0 0 1 1 50 easeoutexpo") + + End If + End If + tmrtimeupdateontemplate.Enabled = True + tmrupdateontemplateextra.Enabled = False + End Sub + + Private Sub cmdscorewithinfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdscorewithinfo.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("mc1", "0") + CasparCGDataCollection.SetData("mc2", "1") + If chkanimationzym.Checked Then CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill -1 0 1 1 50 easeoutexpo") + + CasparCGDataCollection.SetData("f0", txtt1ball.Text) + CasparCGDataCollection.SetData("f1", txtt2ball.Text) + CasparCGDataCollection.SetData("f2", txtt1gball.Text) + CasparCGDataCollection.SetData("f3", txtt2gball.Text) + CasparCGDataCollection.SetData("time", txtminball.Text & ":" & txtsecball.Text) + CasparCGDataCollection.SetData("f5", cmbhalfball.Text) + + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader6", pict2logoball.ImageLocation) + + + CasparCGDataCollection.SetData("info", cmbinfoball.Text) + + CasparCGDataCollection.SetData("team1color", cmdt1colorball.BackColor.ToArgb) + CasparCGDataCollection.SetData("team2color", cmdt2colorball.BackColor.ToArgb) + + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text) + 1, Int(cmblayergames.Text) + 1, "cmp/games/ball/score", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then + If chkanimationforhdvan.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill .1 0 .8 1 50 easeoutexpo") + Else + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill 0 0 1 1 50 easeoutexpo") + End If + End If + tmrtimeupdateontemplate.Enabled = True + tmrupdateontemplateextra.Enabled = False + End Sub + + Private Sub cmdonelinercg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdonelinercg.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtonelinercg.Text) + showtemplate("cmp/games/cg/oneliner", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + Private Sub cmdleftotopcg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdleftotopcg.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmblefttopcg.Text) + showtemplate("cmp/games/cg/lefttop", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + + + Private Sub cmdscoreresetball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdscoreresetball.Click + On Error Resume Next + For iscore = 1 To 2 + For jscore = 0 To 6 + dgvsetscoreball.Rows(iscore).Cells(jscore).Value = "" + Next + Next + End Sub + + Private Sub cmdshowsetscoreball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdshowsetscoreball.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + For isetscore = 1 To 6 + CasparCGDataCollection.SetData("f" & isetscore, dgvsetscoreball.Rows(0).Cells(isetscore - 1).Value) + Next + + For isetscore = 1 To 2 + For jsetscore = 1 To 6 + CasparCGDataCollection.SetData("f" & isetscore & jsetscore, dgvsetscoreball.Rows(isetscore).Cells(jsetscore - 1).Value) + Next + Next + CasparCGDataCollection.SetData("h1", cmbHeader.Text) + CasparCGDataCollection.SetData("h2", cmbSubHeader.Text) + + CasparCGDataCollection.SetData("t1", txtt1ball.Text) + CasparCGDataCollection.SetData("t2", txtt2ball.Text) + + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2logoball.ImageLocation) + + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/ball/set7", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub Ball_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ball.Click + + End Sub + + Private Sub dgvsetscoreball_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvsetscoreball.CellContentClick + + End Sub + + Private Sub pict1tt_Click(sender As System.Object, e As System.EventArgs) Handles pict1tt.Click + On Error Resume Next + openlogoandcountryfullname(sender, e, txtfullnamet1tt) + End Sub + + Private Sub pict2tt_Click(sender As System.Object, e As System.EventArgs) Handles pict2tt.Click + On Error Resume Next + openlogoandcountryfullname(sender, e, txtfullnamet2tt) + End Sub + + Private Sub cmdpointdecreaset1tt_Click(sender As System.Object, e As System.EventArgs) Handles cmdpointdecreaset1tt.Click + On Error Resume Next + If rdolawntennis.Checked Then + If txtpointt1tt.Text = "0" Then txtpointt1tt.Text = "Ad" : Exit Sub + If txtpointt1tt.Text = "15" Then txtpointt1tt.Text = "0" : Exit Sub + If txtpointt1tt.Text = "30" Then txtpointt1tt.Text = "15" : Exit Sub + If txtpointt1tt.Text = "40" Then txtpointt1tt.Text = "30" : Exit Sub + If txtpointt1tt.Text = "Ad" Then txtpointt1tt.Text = 40 : Exit Sub + Else + txtpointt1tt.Text = txtpointt1tt.Text - 1 + End If + End Sub + + Private Sub cmdpointincreaset1tt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpointincreaset1tt.Click + On Error Resume Next + If rdolawntennis.Checked Then + If txtpointt1tt.Text = "0" Then txtpointt1tt.Text = "15" : Exit Sub + If txtpointt1tt.Text = "15" Then txtpointt1tt.Text = "30" : Exit Sub + If txtpointt1tt.Text = "30" Then txtpointt1tt.Text = "40" : Exit Sub + If txtpointt1tt.Text = "40" Then txtpointt1tt.Text = "Ad" : Exit Sub + If txtpointt1tt.Text = "Ad" Then txtpointt1tt.Text = "0" : Exit Sub + Else + txtpointt1tt.Text = txtpointt1tt.Text + 1 + End If + + End Sub + + Private Sub cmdpointincreaset2tt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpointincreaset2tt.Click + On Error Resume Next + If rdolawntennis.Checked Then + If txtpointt2tt.Text = "0" Then txtpointt2tt.Text = "15" : Exit Sub + If txtpointt2tt.Text = "15" Then txtpointt2tt.Text = "30" : Exit Sub + If txtpointt2tt.Text = "30" Then txtpointt2tt.Text = "40" : Exit Sub + If txtpointt2tt.Text = "40" Then txtpointt2tt.Text = "Ad" : Exit Sub + If txtpointt2tt.Text = "Ad" Then txtpointt2tt.Text = "0" : Exit Sub + + Else + txtpointt2tt.Text = txtpointt2tt.Text + 1 + End If + End Sub + + Private Sub cmdpointdecreaset2tt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpointdecreaset2tt.Click + On Error Resume Next + If rdolawntennis.Checked Then + If txtpointt2tt.Text = "0" Then txtpointt2tt.Text = "Ad" : Exit Sub + If txtpointt2tt.Text = "15" Then txtpointt2tt.Text = "0" : Exit Sub + If txtpointt2tt.Text = "30" Then txtpointt2tt.Text = "15" : Exit Sub + If txtpointt2tt.Text = "40" Then txtpointt2tt.Text = "30" : Exit Sub + If txtpointt2tt.Text = "Ad" Then txtpointt2tt.Text = "40" : Exit Sub + Else + txtpointt2tt.Text = txtpointt2tt.Text - 1 + End If + End Sub + + Private Sub cmdresetscorett_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresetscorett.Click + txtgamet1tt.Text = "0" + txtgamet2tt.Text = "0" + txtpointt1tt.Text = "0" + txtpointt2tt.Text = "0" + txtset1tt.Text = "0" + txtset2tt.Text = "0" + End Sub + + Private Sub cmdshowscorett_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdshowscorett.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("t1", txtshortnamet1tt.Text) + CasparCGDataCollection.SetData("t2", txtshortnamet2tt.Text) + CasparCGDataCollection.SetData("g1", txtgamet1tt.Text) + CasparCGDataCollection.SetData("g2", txtgamet2tt.Text) + CasparCGDataCollection.SetData("p1", txtpointt1tt.Text) + CasparCGDataCollection.SetData("p2", txtpointt2tt.Text) + + CasparCGDataCollection.SetData("s1", txtset1tt.Text) + CasparCGDataCollection.SetData("s2", txtset2tt.Text) + + CasparCGDataCollection.SetData("loader1", pict1tt.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2tt.ImageLocation) + If chkshowservicett.Checked Then + If rdoservicet1tt.Checked Then + CasparCGDataCollection.SetData("loader3", "c:/casparcg/mydata/tt/serve.png") + CasparCGDataCollection.SetData("loader4", "c:/casparcg/mydata/tt/blk.png") + Else + CasparCGDataCollection.SetData("loader3", "c:/casparcg/mydata/tt/blk.png") + CasparCGDataCollection.SetData("loader4", "c:/casparcg/mydata/tt/serve.png") + End If + End If + + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + If chkshowsettt.Checked = False Then + showtemplate("cmp/games/tt/score", CasparCGDataCollection.ToAMCPEscapedXml) + Else + showtemplate("cmp/games/tt/scorewithset", CasparCGDataCollection.ToAMCPEscapedXml) + End If + + End Sub + Private Sub cmdupdatescorett_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdupdatescorett.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("t1", txtshortnamet1tt.Text) + CasparCGDataCollection.SetData("t2", txtshortnamet2tt.Text) + CasparCGDataCollection.SetData("g1", txtgamet1tt.Text) + CasparCGDataCollection.SetData("g2", txtgamet2tt.Text) + CasparCGDataCollection.SetData("p1", txtpointt1tt.Text) + CasparCGDataCollection.SetData("p2", txtpointt2tt.Text) + + CasparCGDataCollection.SetData("s1", txtset1tt.Text) + CasparCGDataCollection.SetData("s2", txtset2tt.Text) + If chkshowservicett.Checked Then + If rdoservicet1tt.Checked Then + CasparCGDataCollection.SetData("loader3", "c:/casparcg/mydata/tt/serve.png") + CasparCGDataCollection.SetData("loader4", "c:/casparcg/mydata/tt/blk.png") + Else + CasparCGDataCollection.SetData("loader3", "c:/casparcg/mydata/tt/blk.png") + CasparCGDataCollection.SetData("loader4", "c:/casparcg/mydata/tt/serve.png") + End If + End If + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmblayergames.Text), Int(cmblayergames.Text), CasparCGDataCollection) + + End Sub + + Private Sub cmdshowscore1tt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdshowscore1tt.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("t1", txtfullnamet1tt.Text) + CasparCGDataCollection.SetData("t2", txtfullnamet2tt.Text) + CasparCGDataCollection.SetData("g1", txtgamet1tt.Text) + CasparCGDataCollection.SetData("g2", txtgamet2tt.Text) + CasparCGDataCollection.SetData("p1", txtpointt1tt.Text) + CasparCGDataCollection.SetData("p2", txtpointt2tt.Text) + CasparCGDataCollection.SetData("s1", txtset1tt.Text) + CasparCGDataCollection.SetData("s2", txtset2tt.Text) + + CasparCGDataCollection.SetData("loader1", pict1tt.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2tt.ImageLocation) + + If chkshowservicett.Checked Then + If rdoservicet1tt.Checked Then + CasparCGDataCollection.SetData("loader3", "c:/casparcg/mydata/tt/serve.png") + CasparCGDataCollection.SetData("loader4", "c:/casparcg/mydata/tt/blk.png") + Else + CasparCGDataCollection.SetData("loader3", "c:/casparcg/mydata/tt/blk.png") + CasparCGDataCollection.SetData("loader4", "c:/casparcg/mydata/tt/serve.png") + End If + End If + + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + If chkshowsettt.Checked = False Then + showtemplate("cmp/games/tt/score1", CasparCGDataCollection.ToAMCPEscapedXml) + Else + showtemplate("cmp/games/tt/score1withset", CasparCGDataCollection.ToAMCPEscapedXml) + End If + End Sub + + Private Sub cmdupdatescore1tt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdupdatescore1tt.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("t1", txtfullnamet1tt.Text) + CasparCGDataCollection.SetData("t2", txtfullnamet2tt.Text) + CasparCGDataCollection.SetData("g1", txtgamet1tt.Text) + CasparCGDataCollection.SetData("g2", txtgamet2tt.Text) + CasparCGDataCollection.SetData("p1", txtpointt1tt.Text) + CasparCGDataCollection.SetData("p2", txtpointt2tt.Text) + + + CasparCGDataCollection.SetData("s1", txtset1tt.Text) + CasparCGDataCollection.SetData("s2", txtset2tt.Text) + If chkshowservicett.Checked Then + If rdoservicet1tt.Checked Then + CasparCGDataCollection.SetData("loader3", "c:/casparcg/mydata/tt/serve.png") + CasparCGDataCollection.SetData("loader4", "c:/casparcg/mydata/tt/blk.png") + Else + CasparCGDataCollection.SetData("loader3", "c:/casparcg/mydata/tt/blk.png") + CasparCGDataCollection.SetData("loader4", "c:/casparcg/mydata/tt/serve.png") + End If + End If + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmblayergames.Text), Int(cmblayergames.Text), CasparCGDataCollection) + + End Sub + + Private Sub cmdversustt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdversustt.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("h1", cmbHeader.Text) + CasparCGDataCollection.SetData("h2", cmbSubHeader.Text) + + CasparCGDataCollection.SetData("t1", txtfullnamet1tt.Text) + CasparCGDataCollection.SetData("t2", txtfullnamet2tt.Text) + + CasparCGDataCollection.SetData("loader1", pict1tt.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2tt.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + showtemplate("cmp/games/tt/verses", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Private Sub cmdshowsetscorett_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdshowsetscorett.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + Dim setscore As Integer + If rdo3settt.Checked Then setscore = 3 + If rdo5settt.Checked Then setscore = 5 + If rdo7settt.Checked Then setscore = 7 + + For isetscore = 1 To setscore + CasparCGDataCollection.SetData("f" & isetscore, dgvsetscorett.Columns(isetscore - 1).HeaderText) + Next + + For isetscore = 1 To 2 + For jsetscore = 1 To setscore + CasparCGDataCollection.SetData("f" & isetscore & jsetscore, dgvsetscorett.Rows(isetscore - 1).Cells(jsetscore - 1).Value) + Next + Next + CasparCGDataCollection.SetData("h1", cmbHeader.Text) + CasparCGDataCollection.SetData("h2", cmbSubHeader.Text) + + CasparCGDataCollection.SetData("t1", txtfullnamet1tt.Text) + CasparCGDataCollection.SetData("t2", txtfullnamet2tt.Text) + + CasparCGDataCollection.SetData("loader1", pict1tt.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2tt.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + showtemplate("cmp/games/tt/set7", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + Private Sub cmdscoreresettt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdscoreresettt.Click + On Error Resume Next + For iscore = 0 To 1 + For jscore = 0 To 6 + dgvsetscorett.Rows(iscore).Cells(jscore).Value = "" + Next + Next + End Sub + Private Sub cmdleftotoptt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdleftotoptt.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmblefttoptt.Text) + + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + + showtemplate("cmp/games/tt/lefttop", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub cmdpontindicatert1tt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpontindicatert1tt.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", cmblefttoptt.Text) + CasparCGDataCollection.SetData("f1", txtfullnamet1tt.Text) + CasparCGDataCollection.SetData("loader1", pict1tt.ImageLocation) + + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + showtemplate("cmp/games/tt/pointindicator", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Private Sub cmdpontindicatert2tt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpontindicatert2tt.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmblefttoptt.Text) + + CasparCGDataCollection.SetData("f1", txtfullnamet2tt.Text) + CasparCGDataCollection.SetData("loader1", pict2tt.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + + showtemplate("cmp/games/tt/pointindicator", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + + Private Sub cmdpositiontt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpositiontt.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + If rdostraightposiontt.Checked Then + CasparCGDataCollection.SetData("f0", txtfullnamet1tt.Text) + CasparCGDataCollection.SetData("f1", txtfullnamet2tt.Text) + + CasparCGDataCollection.SetData("loader1", pict1tt.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2tt.ImageLocation) + Else + CasparCGDataCollection.SetData("f0", txtfullnamet2tt.Text) + CasparCGDataCollection.SetData("f1", txtfullnamet1tt.Text) + + CasparCGDataCollection.SetData("loader1", pict2tt.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict1tt.ImageLocation) + End If + + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparCGDataCollection.SetData("loader7", eventlogo.ImageLocation) + + showtemplate("cmp/games/tt/position", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Private Sub cmdpositionhorizontaltt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpositionhorizontaltt.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + If rdostraightposiontt.Checked Then + CasparCGDataCollection.SetData("f0", txtfullnamet1tt.Text) + CasparCGDataCollection.SetData("f1", txtfullnamet2tt.Text) + + CasparCGDataCollection.SetData("loader1", pict1tt.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2tt.ImageLocation) + Else + CasparCGDataCollection.SetData("f0", txtfullnamet2tt.Text) + CasparCGDataCollection.SetData("f1", txtfullnamet1tt.Text) + + CasparCGDataCollection.SetData("loader1", pict2tt.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict1tt.ImageLocation) + End If + + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparCGDataCollection.SetData("loader7", eventlogo.ImageLocation) + showtemplate("cmp/games/tt/position_horizontal", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Sub capitalisetext(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) + If Char.IsLower(e.KeyChar) Then + 'Convert to uppercase, and put at the caret position in the TextBox. + sender.SelectedText = Char.ToUpper(e.KeyChar) + e.Handled = True + End If + End Sub + + Private Sub txtshortnamet1tt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) + On Error Resume Next + capitalisetext(sender, e) + End Sub + + Private Sub txtshortnamet2tt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) + On Error Resume Next + capitalisetext(sender, e) + End Sub + + + Private Sub txtfullnamet2tt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) + On Error Resume Next + capitalisetext(sender, e) + End Sub + + + Private Sub txtfullnamet1tt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) + On Error Resume Next + capitalisetext(sender, e) + End Sub + + Private Sub dgvtt_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) + + End Sub + + Private Sub cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd1.Click + CasparCGDataCollection.SetData("f0", Me.txtteama.Text) + CasparCGDataCollection.SetData("f1", Me.txtplayera.Text) + CasparCGDataCollection.SetData("f2", Me.txtcareer1.Text) + CasparCGDataCollection.SetData("f3", Me.txtmatches1.Text) + CasparCGDataCollection.SetData("f4", Me.txtwickets1.Text) + CasparCGDataCollection.SetData("f5", Me.txtecon1.Text) + CasparCGDataCollection.SetData("f6", Me.txt4w1.Text) + CasparCGDataCollection.SetData("f7", Me.txt5w1.Text) + CasparCGDataCollection.SetData("f8", Me.txtbest1.Text) + CasparCGDataCollection.SetData("f9", Me.txtavg1.Text) + CasparCGDataCollection.SetData("f33", Me.txtmatches2.Text) + CasparCGDataCollection.SetData("f44", Me.txtwickets2.Text) + CasparCGDataCollection.SetData("f55", Me.txtecon2.Text) + CasparCGDataCollection.SetData("f66", Me.txt4w2.Text) + CasparCGDataCollection.SetData("f77", Me.txt5w2.Text) + CasparCGDataCollection.SetData("f88", Me.txtbest2.Text) + CasparCGDataCollection.SetData("f99", Me.txtavg2.Text) + CasparCGDataCollection.SetData("logo1", Replace(Me.logo1.ImageLocation, "\", "/")) + CasparCGDataCollection.SetData("image1", Replace(Me.image1.ImageLocation, "\", "/")) + showtemplate("CMP/games/por/Statics", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + + Private Sub cmd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd2.Click + CasparCGDataCollection.SetData("f0", Me.txtteama.Text) + CasparCGDataCollection.SetData("f1", Me.txtplayera.Text) + CasparCGDataCollection.SetData("f2", Me.txtcareer1.Text) + CasparCGDataCollection.SetData("f3", Me.txtmatches3.Text) + CasparCGDataCollection.SetData("f4", Me.txtinnings3.Text) + CasparCGDataCollection.SetData("f5", Me.txtruns3.Text) + CasparCGDataCollection.SetData("f6", Me.txtaverage3.Text) + CasparCGDataCollection.SetData("f7", Me.txt50s3.Text) + CasparCGDataCollection.SetData("f8", Me.txt100s3.Text) + CasparCGDataCollection.SetData("f9", Me.txthighestscore3.Text) + CasparCGDataCollection.SetData("f33", Me.txtmatches4.Text) + CasparCGDataCollection.SetData("f44", Me.txtinnings4.Text) + CasparCGDataCollection.SetData("f55", Me.txtruns4.Text) + CasparCGDataCollection.SetData("f66", Me.txtaverage4.Text) + CasparCGDataCollection.SetData("f77", Me.txt50s4.Text) + CasparCGDataCollection.SetData("f88", Me.txt100s4.Text) + CasparCGDataCollection.SetData("f99", Me.txthighestscore4.Text) + CasparCGDataCollection.SetData("logo1", Replace(Me.logo1.ImageLocation, "\", "/")) + CasparCGDataCollection.SetData("image1", Replace(Me.image1.ImageLocation, "\", "/")) + showtemplate("CMP/games/por/Statics", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub cmd3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd3.Click + CasparCGDataCollection.SetData("f0", Me.txtteamb.Text) + CasparCGDataCollection.SetData("f1", Me.txtplayerb.Text) + CasparCGDataCollection.SetData("f2", Me.txtcareer2.Text) + CasparCGDataCollection.SetData("f3", Me.txtmatches5.Text) + CasparCGDataCollection.SetData("f4", Me.txtwickets5.Text) + CasparCGDataCollection.SetData("f5", Me.txtecon5.Text) + CasparCGDataCollection.SetData("f6", Me.txt4w5.Text) + CasparCGDataCollection.SetData("f7", Me.txt5w5.Text) + CasparCGDataCollection.SetData("f8", Me.txtbest5.Text) + CasparCGDataCollection.SetData("f9", Me.txtavg5.Text) + CasparCGDataCollection.SetData("f33", Me.txtmatches6.Text) + CasparCGDataCollection.SetData("f44", Me.txtwickets6.Text) + CasparCGDataCollection.SetData("f55", Me.txtecon6.Text) + CasparCGDataCollection.SetData("f66", Me.txt4w6.Text) + CasparCGDataCollection.SetData("f77", Me.txt5w6.Text) + CasparCGDataCollection.SetData("f88", Me.txtbest6.Text) + CasparCGDataCollection.SetData("f99", Me.txtavg6.Text) + CasparCGDataCollection.SetData("logo1", Replace(Me.logo2.ImageLocation, "\", "/")) + CasparCGDataCollection.SetData("image1", Replace(Me.image2.ImageLocation, "\", "/")) + showtemplate("CMP/games/por/Statics", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub cmd4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd4.Click + CasparCGDataCollection.SetData("f0", Me.txtteamb.Text) + CasparCGDataCollection.SetData("f1", Me.txtplayerb.Text) + CasparCGDataCollection.SetData("f2", Me.txtcareer2.Text) + CasparCGDataCollection.SetData("f3", Me.txtmatches7.Text) + CasparCGDataCollection.SetData("f4", Me.txtinnings7.Text) + CasparCGDataCollection.SetData("f5", Me.txtruns7.Text) + CasparCGDataCollection.SetData("f6", Me.txtaverage7.Text) + CasparCGDataCollection.SetData("f7", Me.txt50s7.Text) + CasparCGDataCollection.SetData("f8", Me.txt100s7.Text) + CasparCGDataCollection.SetData("f9", Me.txthighestscore7.Text) + CasparCGDataCollection.SetData("f33", Me.txtmatches8.Text) + CasparCGDataCollection.SetData("f44", Me.txtinnings8.Text) + CasparCGDataCollection.SetData("f55", Me.txtruns8.Text) + CasparCGDataCollection.SetData("f66", Me.txtaverage8.Text) + CasparCGDataCollection.SetData("f77", Me.txt50s8.Text) + CasparCGDataCollection.SetData("f88", Me.txt100s8.Text) + CasparCGDataCollection.SetData("f99", Me.txthighestscore8.Text) + CasparCGDataCollection.SetData("logo1", Replace(Me.logo2.ImageLocation, "\", "/")) + CasparCGDataCollection.SetData("image1", Replace(Me.image2.ImageLocation, "\", "/")) + showtemplate("CMP/games/por/Statics", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub logo1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles logo1.Click + If (ofd1.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Me.logo1.ImageLocation = Me.ofd1.FileName + End If + End Sub + Private Sub image1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles image1.Click + If (ofd1.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Me.image1.ImageLocation = Me.ofd1.FileName + End If + End Sub + + Private Sub logo2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles logo2.Click + If (ofd1.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Me.logo2.ImageLocation = Me.ofd1.FileName + End If + End Sub + Private Sub image2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles image2.Click + If (ofd1.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Me.image2.ImageLocation = Me.ofd1.FileName + End If + End Sub + + Private Sub cmdscoreboxing_Click(sender As Object, e As EventArgs) Handles cmdscoreboxing.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("mc1", "0") + CasparCGDataCollection.SetData("mc2", "1") + + + If chkanimationzym.Checked Then CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill -1 0 1 1 50 easeoutexpo") + + + CasparCGDataCollection.SetData("f0", txtt1ball.Text) + CasparCGDataCollection.SetData("f1", txtt2ball.Text) + CasparCGDataCollection.SetData("time", txtminball.Text & ":" & txtsecball.Text) + CasparCGDataCollection.SetData("f5", cmbhalfball.Text) + + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader6", pict2logoball.ImageLocation) + + + CasparCGDataCollection.SetData("info", cmbinfoball.Text) + + CasparCGDataCollection.SetData("team1color", cmdt1colorball.BackColor.ToArgb) + CasparCGDataCollection.SetData("team2color", cmdt2colorball.BackColor.ToArgb) + + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text) + 1, Int(cmblayergames.Text) + 1, "cmp/games/boxing/score", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then + If chkanimationforhdvan.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill .1 0 .8 1 50 easeoutexpo") + Else + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill 0 0 1 1 50 easeoutexpo") + End If + End If + tmrtimeupdateontemplate.Enabled = True + tmrupdateontemplateextra.Enabled = False + End Sub + + Private Sub cmdversusboxing_Click(sender As Object, e As EventArgs) Handles cmdversusboxing.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmbHeader.Text) + CasparCGDataCollection.SetData("f1", cmbSubHeader.Text) + CasparCGDataCollection.SetData("f2", txtt1ball.Text) + CasparCGDataCollection.SetData("f3", txtt2ball.Text) + + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + showtemplate("cmp/games/boxing/versus", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + Private Sub cmdplayeridboxing_Click(sender As Object, e As EventArgs) Handles cmdplayeridboxing.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader52", eventlogo.ImageLocation) + If rdoTeamARed.Checked Then + CasparCGDataCollection.SetData("f1", dgvt1ball.CurrentRow.Cells(0).Value) + showtemplate("cmp/games/boxing/player_id_red", CasparCGDataCollection.ToAMCPEscapedXml) + Else + CasparCGDataCollection.SetData("f1", dgvt2ball.CurrentRow.Cells(0).Value) + showtemplate("cmp/games/boxing/player_id_blue", CasparCGDataCollection.ToAMCPEscapedXml) + End If + + End Sub + Private Sub cmdwinnerBoxing_Click(sender As Object, e As EventArgs) Handles cmdwinnerBoxing.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("h1", cmbHeader.Text) + If rdosinglecg.Checked Then + CasparCGDataCollection.SetData("h2", "Winner-" & cmbSubHeader.Text) + Else + CasparCGDataCollection.SetData("h2", "Winners-" & cmbSubHeader.Text) + End If + + If rdoTeamARed.Checked Then + CasparCGDataCollection.SetData("t1", dgvt1ball.CurrentRow.Cells(0).Value & " " & cmbwinningmethodboxing.Text) + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + Else + CasparCGDataCollection.SetData("t1", dgvt2ball.CurrentRow.Cells(0).Value & " " & cmbwinningmethodboxing.Text) + CasparCGDataCollection.SetData("loader1", pict2logoball.ImageLocation) + End If + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text), Int(cmblayergames.Text), "cmp/games/boxing/winner", True, CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + Private Sub cmdscorewithclockboxing_Click(sender As Object, e As EventArgs) Handles cmdscorewithclockboxing.Click + On Error Resume Next + + If chkanimationzym.Checked Then CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill -1 0 1 1 50 easeoutexpo") + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtt1ball.Text) + CasparCGDataCollection.SetData("f1", txtt2ball.Text) + CasparCGDataCollection.SetData("time", txtminball.Text & ":" & txtsecball.Text) + CasparCGDataCollection.SetData("f5", cmbhalfball.Text) + + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader6", pict2logoball.ImageLocation) + + CasparCGDataCollection.SetData("mc1", "1") + CasparCGDataCollection.SetData("mc2", "0") + CasparCGDataCollection.SetData("team1color", cmdt1colorball.BackColor.ToArgb) + CasparCGDataCollection.SetData("team2color", cmdt2colorball.BackColor.ToArgb) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayergames.Text) + 1, Int(cmblayergames.Text) + 1, "cmp/games/boxing/score", True, CasparCGDataCollection.ToAMCPEscapedXml) + If chkanimationzym.Checked Then + If chkanimationforhdvan.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill .1 0 .8 1 50 easeoutexpo") + + Else + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmblayergames.Text + 1 & " fill 0 0 1 1 50 easeoutexpo") + + End If + End If + tmrtimeupdateontemplate.Enabled = True + tmrupdateontemplateextra.Enabled = False + End Sub + + Private Sub cmdsetscoreboxing_Click(sender As Object, e As EventArgs) Handles cmdsetscoreboxing.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + For isetscore = 1 To 6 + CasparCGDataCollection.SetData("f" & isetscore, dgvsetscoreball.Rows(0).Cells(isetscore - 1).Value) + Next + + For isetscore = 1 To 2 + For jsetscore = 1 To 6 + CasparCGDataCollection.SetData("f" & isetscore & jsetscore, dgvsetscoreball.Rows(isetscore).Cells(jsetscore - 1).Value) + Next + Next + CasparCGDataCollection.SetData("h1", cmbHeader.Text) + CasparCGDataCollection.SetData("h2", cmbSubHeader.Text) + + CasparCGDataCollection.SetData("t1", txtt1ball.Text) + CasparCGDataCollection.SetData("t2", txtt2ball.Text) + + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2logoball.ImageLocation) + CasparCGDataCollection.SetData("loader5", gamelogo.ImageLocation) + CasparCGDataCollection.SetData("loader6", eventlogo.ImageLocation) + + showtemplate("cmp/games/boxing/set7", CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + Private Sub cmdroundscoreboxing_Click(sender As Object, e As EventArgs) Handles cmdroundscoreboxing.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", cmbgoalsummary.Text) + CasparCGDataCollection.SetData("f1", txtt1gball.Text & "-" & txtt2gball.Text) + CasparCGDataCollection.SetData("f2", txtt1ball.Text) + CasparCGDataCollection.SetData("f3", txtt2ball.Text) + CasparCGDataCollection.SetData("loader1", pict1logoball.ImageLocation) + CasparCGDataCollection.SetData("loader2", pict2logoball.ImageLocation) + showtemplate("cmp/games/boxing/Goal_Summary", CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + Private Sub cmdhide_Click(sender As Object, e As EventArgs) + Hide() + End Sub +End Class + diff --git a/CasparMediaPlayback/ucOSC.designer.vb b/CasparMediaPlayback/ucOSC.designer.vb new file mode 100644 index 0000000..71f1ac9 --- /dev/null +++ b/CasparMediaPlayback/ucOSC.designer.vb @@ -0,0 +1,420 @@ + _ +Partial Class ucOSC + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.gbosc = New System.Windows.Forms.GroupBox() + Me.cmboscport = New System.Windows.Forms.ComboBox() + Me.lbloscport = New System.Windows.Forms.Label() + Me.cmdoscstop = New System.Windows.Forms.Button() + Me.dgvosc = New System.Windows.Forms.DataGridView() + Me.Method_Name = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Method_Value = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Expected_Value = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column11 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column12 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column13 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column14 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.cmdoscconnect = New System.Windows.Forms.Button() + Me.lbloscbackgroundFile = New System.Windows.Forms.Label() + Me.lbloscVideoFrame = New System.Windows.Forms.Label() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn11 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn12 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn13 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn14 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn15 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn16 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn17 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.gbosc.SuspendLayout() + CType(Me.dgvosc, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbosc + ' + Me.gbosc.BackColor = System.Drawing.Color.MistyRose + Me.gbosc.Controls.Add(Me.cmboscport) + Me.gbosc.Controls.Add(Me.lbloscport) + Me.gbosc.Controls.Add(Me.cmdoscstop) + Me.gbosc.Controls.Add(Me.dgvosc) + Me.gbosc.Controls.Add(Me.cmdoscconnect) + Me.gbosc.Controls.Add(Me.lbloscbackgroundFile) + Me.gbosc.Controls.Add(Me.lbloscVideoFrame) + Me.gbosc.Location = New System.Drawing.Point(2, 2) + Me.gbosc.Name = "gbosc" + Me.gbosc.Size = New System.Drawing.Size(642, 913) + Me.gbosc.TabIndex = 605 + Me.gbosc.TabStop = False + ' + 'cmboscport + ' + Me.cmboscport.FormattingEnabled = True + Me.cmboscport.Items.AddRange(New Object() {"6250", "6251", "6252", "6253", "5253"}) + Me.cmboscport.Location = New System.Drawing.Point(242, 11) + Me.cmboscport.Name = "cmboscport" + Me.cmboscport.Size = New System.Drawing.Size(56, 21) + Me.cmboscport.TabIndex = 613 + Me.cmboscport.Text = "6250" + ' + 'lbloscport + ' + Me.lbloscport.AutoSize = True + Me.lbloscport.Location = New System.Drawing.Point(215, 14) + Me.lbloscport.Name = "lbloscport" + Me.lbloscport.Size = New System.Drawing.Size(26, 13) + Me.lbloscport.TabIndex = 321 + Me.lbloscport.Text = "Port" + ' + 'cmdoscstop + ' + Me.cmdoscstop.Location = New System.Drawing.Point(343, 11) + Me.cmdoscstop.Name = "cmdoscstop" + Me.cmdoscstop.Size = New System.Drawing.Size(50, 23) + Me.cmdoscstop.TabIndex = 610 + Me.cmdoscstop.Text = "Stop" + Me.cmdoscstop.UseVisualStyleBackColor = True + ' + 'dgvosc + ' + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.dgvosc.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvosc.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 + Me.dgvosc.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvosc.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Method_Name, Me.Method_Value, Me.Expected_Value, Me.Column1, Me.Column2, Me.Column3, Me.Column4, Me.Column5, Me.Column6, Me.Column7, Me.Column8, Me.Column9, Me.Column10, Me.Column11, Me.Column12, Me.Column13, Me.Column14}) + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvosc.DefaultCellStyle = DataGridViewCellStyle3 + Me.dgvosc.Location = New System.Drawing.Point(8, 35) + Me.dgvosc.Name = "dgvosc" + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvosc.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvosc.Size = New System.Drawing.Size(624, 874) + Me.dgvosc.TabIndex = 609 + ' + 'Method_Name + ' + Me.Method_Name.HeaderText = "Method Name" + Me.Method_Name.Name = "Method_Name" + Me.Method_Name.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.Method_Name.Width = 250 + ' + 'Method_Value + ' + Me.Method_Value.HeaderText = "Method_Value" + Me.Method_Value.Name = "Method_Value" + Me.Method_Value.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.Method_Value.Width = 225 + ' + 'Expected_Value + ' + Me.Expected_Value.HeaderText = "" + Me.Expected_Value.Name = "Expected_Value" + Me.Expected_Value.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + ' + 'Column1 + ' + Me.Column1.HeaderText = "Column1" + Me.Column1.Name = "Column1" + ' + 'Column2 + ' + Me.Column2.HeaderText = "Column2" + Me.Column2.Name = "Column2" + ' + 'Column3 + ' + Me.Column3.HeaderText = "Column3" + Me.Column3.Name = "Column3" + ' + 'Column4 + ' + Me.Column4.HeaderText = "Column4" + Me.Column4.Name = "Column4" + ' + 'Column5 + ' + Me.Column5.HeaderText = "Column5" + Me.Column5.Name = "Column5" + ' + 'Column6 + ' + Me.Column6.HeaderText = "Column6" + Me.Column6.Name = "Column6" + ' + 'Column7 + ' + Me.Column7.HeaderText = "Column7" + Me.Column7.Name = "Column7" + ' + 'Column8 + ' + Me.Column8.HeaderText = "Column8" + Me.Column8.Name = "Column8" + ' + 'Column9 + ' + Me.Column9.HeaderText = "Column9" + Me.Column9.Name = "Column9" + ' + 'Column10 + ' + Me.Column10.HeaderText = "Column10" + Me.Column10.Name = "Column10" + ' + 'Column11 + ' + Me.Column11.HeaderText = "Column11" + Me.Column11.Name = "Column11" + ' + 'Column12 + ' + Me.Column12.HeaderText = "Column12" + Me.Column12.Name = "Column12" + ' + 'Column13 + ' + Me.Column13.HeaderText = "Column13" + Me.Column13.Name = "Column13" + ' + 'Column14 + ' + Me.Column14.HeaderText = "Column14" + Me.Column14.Name = "Column14" + ' + 'cmdoscconnect + ' + Me.cmdoscconnect.Location = New System.Drawing.Point(298, 10) + Me.cmdoscconnect.Name = "cmdoscconnect" + Me.cmdoscconnect.Size = New System.Drawing.Size(46, 23) + Me.cmdoscconnect.TabIndex = 603 + Me.cmdoscconnect.Text = "Start" + Me.cmdoscconnect.UseVisualStyleBackColor = True + ' + 'lbloscbackgroundFile + ' + Me.lbloscbackgroundFile.AutoSize = True + Me.lbloscbackgroundFile.Location = New System.Drawing.Point(16, 352) + Me.lbloscbackgroundFile.Name = "lbloscbackgroundFile" + Me.lbloscbackgroundFile.Size = New System.Drawing.Size(84, 13) + Me.lbloscbackgroundFile.TabIndex = 602 + Me.lbloscbackgroundFile.Text = "Background File" + ' + 'lbloscVideoFrame + ' + Me.lbloscVideoFrame.AutoSize = True + Me.lbloscVideoFrame.Location = New System.Drawing.Point(16, 328) + Me.lbloscVideoFrame.Name = "lbloscVideoFrame" + Me.lbloscVideoFrame.Size = New System.Drawing.Size(63, 13) + Me.lbloscVideoFrame.TabIndex = 601 + Me.lbloscVideoFrame.Text = "Video frame" + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.HeaderText = "Method Name" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn1.Width = 250 + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.HeaderText = "Method_Value" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn2.Width = 225 + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.HeaderText = "" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.HeaderText = "Column1" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.HeaderText = "Column2" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.HeaderText = "Column3" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.HeaderText = "Column4" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.HeaderText = "Column5" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.HeaderText = "Column6" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + ' + 'DataGridViewTextBoxColumn10 + ' + Me.DataGridViewTextBoxColumn10.HeaderText = "Column7" + Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" + ' + 'DataGridViewTextBoxColumn11 + ' + Me.DataGridViewTextBoxColumn11.HeaderText = "Column8" + Me.DataGridViewTextBoxColumn11.Name = "DataGridViewTextBoxColumn11" + ' + 'DataGridViewTextBoxColumn12 + ' + Me.DataGridViewTextBoxColumn12.HeaderText = "Column9" + Me.DataGridViewTextBoxColumn12.Name = "DataGridViewTextBoxColumn12" + ' + 'DataGridViewTextBoxColumn13 + ' + Me.DataGridViewTextBoxColumn13.HeaderText = "Column10" + Me.DataGridViewTextBoxColumn13.Name = "DataGridViewTextBoxColumn13" + ' + 'DataGridViewTextBoxColumn14 + ' + Me.DataGridViewTextBoxColumn14.HeaderText = "Column11" + Me.DataGridViewTextBoxColumn14.Name = "DataGridViewTextBoxColumn14" + ' + 'DataGridViewTextBoxColumn15 + ' + Me.DataGridViewTextBoxColumn15.HeaderText = "Column12" + Me.DataGridViewTextBoxColumn15.Name = "DataGridViewTextBoxColumn15" + ' + 'DataGridViewTextBoxColumn16 + ' + Me.DataGridViewTextBoxColumn16.HeaderText = "Column13" + Me.DataGridViewTextBoxColumn16.Name = "DataGridViewTextBoxColumn16" + ' + 'DataGridViewTextBoxColumn17 + ' + Me.DataGridViewTextBoxColumn17.HeaderText = "Column14" + Me.DataGridViewTextBoxColumn17.Name = "DataGridViewTextBoxColumn17" + ' + 'ucOSC + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(651, 935) + Me.Controls.Add(Me.gbosc) + Me.HideOnClose = True + Me.Name = "ucOSC" + Me.Text = "OSC" + Me.gbosc.ResumeLayout(False) + Me.gbosc.PerformLayout() + CType(Me.dgvosc, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbosc As System.Windows.Forms.GroupBox + Friend WithEvents cmboscport As System.Windows.Forms.ComboBox + Friend WithEvents lbloscport As System.Windows.Forms.Label + Friend WithEvents cmdoscstop As System.Windows.Forms.Button + Friend WithEvents dgvosc As System.Windows.Forms.DataGridView + Friend WithEvents cmdoscconnect As System.Windows.Forms.Button + Friend WithEvents lbloscbackgroundFile As System.Windows.Forms.Label + Friend WithEvents lbloscVideoFrame As System.Windows.Forms.Label + Friend WithEvents Method_Name As DataGridViewTextBoxColumn + Friend WithEvents Method_Value As DataGridViewTextBoxColumn + Friend WithEvents Expected_Value As DataGridViewTextBoxColumn + Friend WithEvents Column1 As DataGridViewTextBoxColumn + Friend WithEvents Column2 As DataGridViewTextBoxColumn + Friend WithEvents Column3 As DataGridViewTextBoxColumn + Friend WithEvents Column4 As DataGridViewTextBoxColumn + Friend WithEvents Column5 As DataGridViewTextBoxColumn + Friend WithEvents Column6 As DataGridViewTextBoxColumn + Friend WithEvents Column7 As DataGridViewTextBoxColumn + Friend WithEvents Column8 As DataGridViewTextBoxColumn + Friend WithEvents Column9 As DataGridViewTextBoxColumn + Friend WithEvents Column10 As DataGridViewTextBoxColumn + Friend WithEvents Column11 As DataGridViewTextBoxColumn + Friend WithEvents Column12 As DataGridViewTextBoxColumn + Friend WithEvents Column13 As DataGridViewTextBoxColumn + Friend WithEvents Column14 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn10 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn11 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn12 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn13 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn14 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn15 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn16 As DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn17 As DataGridViewTextBoxColumn +End Class diff --git a/CasparMediaPlayback/ucOSC.resx b/CasparMediaPlayback/ucOSC.resx new file mode 100644 index 0000000..e00b426 --- /dev/null +++ b/CasparMediaPlayback/ucOSC.resx @@ -0,0 +1,171 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucOSC.vb b/CasparMediaPlayback/ucOSC.vb new file mode 100644 index 0000000..f79b7bb --- /dev/null +++ b/CasparMediaPlayback/ucOSC.vb @@ -0,0 +1,284 @@ + +Imports Bespoke.Common.Osc +Imports System.Net +Public Class ucOSC + + Dim ttype As Integer = 1 'udp + Dim WithEvents sOscServer As OscServer 'for osc + Dim hh1, hh2, kk1 As Integer + Sub oscstartandregister() + On Error Resume Next + If sOscServer Is Nothing Then + OscPacket.LittleEndianByteOrder = False + sOscServer = New OscServer(ttype, IPAddress.Any, cmboscport.Text) + sOscServer.Start() + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/output/port/500/type") + If ServerVersion = 2.1 Then + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/output/port/601/type") + Else + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/output/port/600/type") + End If + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/profiler/time") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/format") + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/profiler/time") + + If ServerVersion > 2.1 Then + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/foreground/file/time") + Else + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/time") + End If + + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/frame") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/fps") + + + If ServerVersion > 2.1 Then + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/foreground/file/path") + Else + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/path") + End If + + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/time") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/frame") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/type") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/background/type") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/profiler/time") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/transition/frame") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/transition/type") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/video/width") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/video/height") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/video/codec") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/audio/sample-rate") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/audio/channels") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/audio/format") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/audio/codec") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/loop") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/host/path") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/host/width") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/host/height") + + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/host/fps") + + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/host/buffer") + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/" & "nb_channels") + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/1/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/2/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/3/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/4/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/5/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/6/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/7/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/8/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/9/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/10/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/11/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/12/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/13/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/14/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/15/dBFS") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/16/dBFS") + + + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/output/port/200/frame") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/output/port/200/path") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/output/port/200/fps") + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/paused") + + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/output/port/150/file/frame") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/output/port/150/file/path") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/output/port/150/file/fps") + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/vframe") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/file/speed") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/output/file/frame") + + 'for server 2.2 start + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/foreground/file/name") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/mixer/audio/volume") + + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/foreground/file/streams/0/fps") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/buffer") + sOscServer.RegisterMethod("/channel/" & g_int_ChannelNumber & "/stage/layer/" & g_int_PlaylistLayer & "/foreground/file/stime") + 'for server 2.2 end + + sOscServer.FilterRegisteredMethods = False 'false so that if we change by hand the method name in client it will react to new method. + + dgvosc.RowTemplate.Height = 18 + dgvosc.Rows.Clear() + dgvosc.Rows.Add(sOscServer.RegisteredMethods.Count) + + Dim iregisteredmethods As Integer + For iregisteredmethods = 0 To sOscServer.RegisteredMethods.Count - 1 + dgvosc.Rows(iregisteredmethods).Cells(0).Value = sOscServer.RegisteredMethods(iregisteredmethods) + Next + End If + + If dgvosc.Rows(7).Cells(1).Value = "" Then + dgvosc.Rows(7).Cells(1).Value = fps + End If + + End Sub + + Private Sub invokeControls1(ByVal e As OscMessageReceivedEventArgs) + On Error Resume Next + If Me.InvokeRequired Then + Me.Invoke(New invokeControlsDelegate1(AddressOf Me.invokeControls1), e) + Else + Dim jregisteredmethods As Integer + For jregisteredmethods = 0 To sOscServer.RegisteredMethods.Count - 1 + If dgvosc.Rows(jregisteredmethods).Cells(0).Value = e.Message.Address Then + dgvosc.Rows(jregisteredmethods).Cells(1).Value = e.Message.Data(0) + dgvosc.Rows(jregisteredmethods).Cells(2).Value = e.Message.Data(1) + dgvosc.Rows(jregisteredmethods).Cells(3).Value = e.Message.Data(2) + dgvosc.Rows(jregisteredmethods).Cells(4).Value = e.Message.Data(3) + dgvosc.Rows(jregisteredmethods).Cells(5).Value = e.Message.Data(4) + dgvosc.Rows(jregisteredmethods).Cells(6).Value = e.Message.Data(5) + dgvosc.Rows(jregisteredmethods).Cells(7).Value = e.Message.Data(6) + dgvosc.Rows(jregisteredmethods).Cells(8).Value = e.Message.Data(7) + dgvosc.Rows(jregisteredmethods).Cells(9).Value = e.Message.Data(8) + dgvosc.Rows(jregisteredmethods).Cells(10).Value = e.Message.Data(9) + dgvosc.Rows(jregisteredmethods).Cells(11).Value = e.Message.Data(10) + dgvosc.Rows(jregisteredmethods).Cells(12).Value = e.Message.Data(11) + dgvosc.Rows(jregisteredmethods).Cells(13).Value = e.Message.Data(12) + dgvosc.Rows(jregisteredmethods).Cells(14).Value = e.Message.Data(13) + dgvosc.Rows(jregisteredmethods).Cells(15).Value = e.Message.Data(14) + dgvosc.Rows(jregisteredmethods).Cells(16).Value = e.Message.Data(15) + dgvosc.Rows(jregisteredmethods).Cells(17).Value = e.Message.Data(16) + + End If + Next + If ServerVersion > 2.1 Then + If dgvosc.Rows(5).Cells(0).Value = e.Message.Address Then + hh1 = e.Message.Data(0) + hh2 = e.Message.Data(1) + End If + If dgvosc.Rows(56).Cells(0).Value = e.Message.Address Then + playingfilename = e.Message.Data(0) + End If + If dgvosc.Rows(57).Cells(0).Value = e.Message.Address Then + audiovalue1 = ValuetodBFS(e.Message.Data(0)) + audiovalue2 = ValuetodBFS(e.Message.Data(1)) + End If + If dgvosc.Rows(58).Cells(0).Value = e.Message.Address Then + kk1 = e.Message.Data(0) 'fps + fps = e.Message.Data(0) + End If + framesPlayed = Int(hh1 * kk1) + framesTotal = Int(hh2 * kk1) + + dgvosc.Rows(6).Cells(1).Value = framesPlayed + dgvosc.Rows(6).Cells(2).Value = framesTotal + Else + If dgvosc.Rows(30).Cells(0).Value = e.Message.Address Then + audiovalue1 = e.Message.Data(0) + End If + If dgvosc.Rows(31).Cells(0).Value = e.Message.Address Then + audiovalue2 = e.Message.Data(0) + End If + If dgvosc.Rows(6).Cells(0).Value = e.Message.Address Then + framesPlayed = (e.Message.Data(0)) + framesTotal = (e.Message.Data(1)) + End If + If dgvosc.Rows(7).Cells(0).Value = e.Message.Address Then + fps = e.Message.Data(0) + End If + + If dgvosc.Rows(8).Cells(0).Value = e.Message.Address Then + playingfilename = e.Message.Data(0) + End If + End If + End If + + + End Sub + Private Sub invokeControls2(ByVal e As OscBundleReceivedEventArgs) + On Error Resume Next + If Me.InvokeRequired Then + Me.Invoke(New invokeControlsDelegate2(AddressOf Me.invokeControls2), e) + Else + Dim jregisteredmethods As Integer + For jregisteredmethods = 0 To sOscServer.RegisteredMethods.Count - 1 + If dgvosc.Rows(jregisteredmethods).Cells(0).Value = e.Bundle.Address Then + dgvosc.Rows(jregisteredmethods).Cells(1).Value = e.Bundle.Data(0) + dgvosc.Rows(jregisteredmethods).Cells(2).Value = e.Bundle.Data(1) + If jregisteredmethods = 6 And e.Bundle.Data(0) <> "" Then + dgvosc.Rows(6).Cells(1).Value = Int((dgvosc.Rows(5).Cells(1).Value) * (dgvosc.Rows(7).Cells(1).Value)) + dgvosc.Rows(6).Cells(2).Value = Int((dgvosc.Rows(5).Cells(2).Value) * (dgvosc.Rows(7).Cells(1).Value)) + End If + End If + Next + End If + + End Sub + Private Sub invokeControls3(ByVal e As OscPacketReceivedEventArgs) + On Error Resume Next + If Me.InvokeRequired Then + Me.Invoke(New invokeControlsDelegate3(AddressOf Me.invokeControls3), e) + Else + Dim jregisteredmethods As Integer + For jregisteredmethods = 0 To sOscServer.RegisteredMethods.Count - 1 + If dgvosc.Rows(jregisteredmethods).Cells(0).Value = e.Packet.Address Then + dgvosc.Rows(jregisteredmethods).Cells(1).Value = e.Packet.Data(0) + dgvosc.Rows(jregisteredmethods).Cells(2).Value = e.Packet.Data(1) + If jregisteredmethods = 6 And e.Packet.Data(0) <> "" Then + dgvosc.Rows(6).Cells(1).Value = Int((dgvosc.Rows(5).Cells(1).Value) * (dgvosc.Rows(7).Cells(1).Value)) + dgvosc.Rows(6).Cells(2).Value = Int((dgvosc.Rows(5).Cells(2).Value) * (dgvosc.Rows(7).Cells(1).Value)) + End If + End If + Next + End If + + End Sub + Private Delegate Sub invokeControlsDelegate1(ByVal e As OscMessageReceivedEventArgs) + Private Delegate Sub invokeControlsDelegate2(ByVal e As OscBundleReceivedEventArgs) + Private Delegate Sub invokeControlsDelegate3(ByVal e As OscPacketReceivedEventArgs) + + Private Sub sOscServer_MessageReceived(ByVal sender As Object, ByVal e As OscMessageReceivedEventArgs) Handles sOscServer.MessageReceived + On Error Resume Next + Me.invokeControls1(e) + End Sub + + Private Sub sOscServer_BundleReceived(ByVal sender As Object, ByVal e As OscBundleReceivedEventArgs) Handles sOscServer.BundleReceived + On Error Resume Next + 'Me.invokeControls2(e) + End Sub + Private Sub sOscServer_PacketReceived(ByVal sender As Object, ByVal e As OscPacketReceivedEventArgs) Handles sOscServer.PacketReceived + On Error Resume Next + 'Me.invokeControls3(e) + End Sub + Sub stoposcserver() + On Error Resume Next + If sOscServer IsNot Nothing Then + sOscServer.Stop() + sOscServer.ClearMethods() + sOscServer = Nothing + End If + + End Sub + + Private Sub cmdoscconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdoscconnect.Click + oscstartandregister() + End Sub + Private Sub cmdoscstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdoscstop.Click, MyBase.DockStateChanged + On Error Resume Next + stoposcserver() + End Sub + + Private Sub ucOSC_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + End Sub +End Class diff --git a/CasparMediaPlayback/ucOSD.designer.vb b/CasparMediaPlayback/ucOSD.designer.vb new file mode 100644 index 0000000..ba52515 --- /dev/null +++ b/CasparMediaPlayback/ucOSD.designer.vb @@ -0,0 +1,310 @@ + _ +Partial Class ucOSD + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.rdoNone = New System.Windows.Forms.RadioButton() + Me.rdoWhite = New System.Windows.Forms.RadioButton() + Me.rdoBlack = New System.Windows.Forms.RadioButton() + Me.rdoOrange = New System.Windows.Forms.RadioButton() + Me.rdoYellow = New System.Windows.Forms.RadioButton() + Me.rdoRed = New System.Windows.Forms.RadioButton() + Me.rdoBlue = New System.Windows.Forms.RadioButton() + Me.rdoGreen = New System.Windows.Forms.RadioButton() + Me.cmdClear = New System.Windows.Forms.Button() + Me.cmdStartDrawing = New System.Windows.Forms.Button() + Me.lbllayerhtml = New System.Windows.Forms.Label() + Me.cmblayerOSD = New System.Windows.Forms.ComboBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.cmdStopDrawing = New System.Windows.Forms.Button() + Me.nBrushWidth = New System.Windows.Forms.NumericUpDown() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label274 = New System.Windows.Forms.Label() + Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() + Me.Label3 = New System.Windows.Forms.Label() + Me.txOSDlTemplate = New System.Windows.Forms.TextBox() + Me.GroupBox1.SuspendLayout() + CType(Me.nBrushWidth, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.rdoNone) + Me.GroupBox1.Controls.Add(Me.rdoWhite) + Me.GroupBox1.Controls.Add(Me.rdoBlack) + Me.GroupBox1.Controls.Add(Me.rdoOrange) + Me.GroupBox1.Controls.Add(Me.rdoYellow) + Me.GroupBox1.Controls.Add(Me.rdoRed) + Me.GroupBox1.Controls.Add(Me.rdoBlue) + Me.GroupBox1.Controls.Add(Me.rdoGreen) + Me.GroupBox1.Location = New System.Drawing.Point(15, 100) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(85, 214) + Me.GroupBox1.TabIndex = 0 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Color" + ' + 'rdoNone + ' + Me.rdoNone.AutoSize = True + Me.rdoNone.Location = New System.Drawing.Point(10, 181) + Me.rdoNone.Name = "rdoNone" + Me.rdoNone.Size = New System.Drawing.Size(51, 17) + Me.rdoNone.TabIndex = 7 + Me.rdoNone.Text = "None" + Me.rdoNone.UseVisualStyleBackColor = True + ' + 'rdoWhite + ' + Me.rdoWhite.AutoSize = True + Me.rdoWhite.Location = New System.Drawing.Point(9, 158) + Me.rdoWhite.Name = "rdoWhite" + Me.rdoWhite.Size = New System.Drawing.Size(53, 17) + Me.rdoWhite.TabIndex = 6 + Me.rdoWhite.Text = "White" + Me.rdoWhite.UseVisualStyleBackColor = True + ' + 'rdoBlack + ' + Me.rdoBlack.AutoSize = True + Me.rdoBlack.Location = New System.Drawing.Point(9, 135) + Me.rdoBlack.Name = "rdoBlack" + Me.rdoBlack.Size = New System.Drawing.Size(52, 17) + Me.rdoBlack.TabIndex = 5 + Me.rdoBlack.Text = "Black" + Me.rdoBlack.UseVisualStyleBackColor = True + ' + 'rdoOrange + ' + Me.rdoOrange.AutoSize = True + Me.rdoOrange.Location = New System.Drawing.Point(9, 112) + Me.rdoOrange.Name = "rdoOrange" + Me.rdoOrange.Size = New System.Drawing.Size(60, 17) + Me.rdoOrange.TabIndex = 4 + Me.rdoOrange.Text = "Orange" + Me.rdoOrange.UseVisualStyleBackColor = True + ' + 'rdoYellow + ' + Me.rdoYellow.AutoSize = True + Me.rdoYellow.Checked = True + Me.rdoYellow.Location = New System.Drawing.Point(9, 89) + Me.rdoYellow.Name = "rdoYellow" + Me.rdoYellow.Size = New System.Drawing.Size(56, 17) + Me.rdoYellow.TabIndex = 3 + Me.rdoYellow.TabStop = True + Me.rdoYellow.Text = "Yellow" + Me.rdoYellow.UseVisualStyleBackColor = True + ' + 'rdoRed + ' + Me.rdoRed.AutoSize = True + Me.rdoRed.Location = New System.Drawing.Point(9, 66) + Me.rdoRed.Name = "rdoRed" + Me.rdoRed.Size = New System.Drawing.Size(45, 17) + Me.rdoRed.TabIndex = 2 + Me.rdoRed.Text = "Red" + Me.rdoRed.UseVisualStyleBackColor = True + ' + 'rdoBlue + ' + Me.rdoBlue.AutoSize = True + Me.rdoBlue.Location = New System.Drawing.Point(9, 43) + Me.rdoBlue.Name = "rdoBlue" + Me.rdoBlue.Size = New System.Drawing.Size(46, 17) + Me.rdoBlue.TabIndex = 1 + Me.rdoBlue.Text = "Blue" + Me.rdoBlue.UseVisualStyleBackColor = True + ' + 'rdoGreen + ' + Me.rdoGreen.AutoSize = True + Me.rdoGreen.Location = New System.Drawing.Point(9, 20) + Me.rdoGreen.Name = "rdoGreen" + Me.rdoGreen.Size = New System.Drawing.Size(54, 17) + Me.rdoGreen.TabIndex = 0 + Me.rdoGreen.Text = "Green" + Me.rdoGreen.UseVisualStyleBackColor = True + ' + 'cmdClear + ' + Me.cmdClear.Location = New System.Drawing.Point(106, 189) + Me.cmdClear.Name = "cmdClear" + Me.cmdClear.Size = New System.Drawing.Size(75, 23) + Me.cmdClear.TabIndex = 1 + Me.cmdClear.Text = "Clear" + Me.cmdClear.UseVisualStyleBackColor = True + ' + 'cmdStartDrawing + ' + Me.cmdStartDrawing.Location = New System.Drawing.Point(106, 163) + Me.cmdStartDrawing.Name = "cmdStartDrawing" + Me.cmdStartDrawing.Size = New System.Drawing.Size(82, 23) + Me.cmdStartDrawing.TabIndex = 2 + Me.cmdStartDrawing.Text = "Start Drawing" + Me.cmdStartDrawing.UseVisualStyleBackColor = True + ' + 'lbllayerhtml + ' + Me.lbllayerhtml.AutoSize = True + Me.lbllayerhtml.Location = New System.Drawing.Point(71, 16) + Me.lbllayerhtml.Name = "lbllayerhtml" + Me.lbllayerhtml.Size = New System.Drawing.Size(33, 13) + Me.lbllayerhtml.TabIndex = 323 + Me.lbllayerhtml.Text = "Layer" + ' + 'cmblayerOSD + ' + Me.cmblayerOSD.FormattingEnabled = True + Me.cmblayerOSD.Items.AddRange(New Object() {"106", "107", "108", "109", "110"}) + Me.cmblayerOSD.Location = New System.Drawing.Point(113, 12) + Me.cmblayerOSD.Name = "cmblayerOSD" + Me.cmblayerOSD.Size = New System.Drawing.Size(50, 21) + Me.cmblayerOSD.TabIndex = 324 + Me.cmblayerOSD.Text = Global.caspar_media_playback.My.MySettings.Default.cmblayerosd + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(113, 104) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(65, 13) + Me.Label1.TabIndex = 719 + Me.Label1.Text = "Brush Width" + ' + 'cmdStopDrawing + ' + Me.cmdStopDrawing.Location = New System.Drawing.Point(106, 218) + Me.cmdStopDrawing.Name = "cmdStopDrawing" + Me.cmdStopDrawing.Size = New System.Drawing.Size(82, 23) + Me.cmdStopDrawing.TabIndex = 721 + Me.cmdStopDrawing.Text = "Stop Drawing" + Me.cmdStopDrawing.UseVisualStyleBackColor = True + ' + 'nBrushWidth + ' + Me.nBrushWidth.Location = New System.Drawing.Point(114, 124) + Me.nBrushWidth.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) + Me.nBrushWidth.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nBrushWidth.Name = "nBrushWidth" + Me.nBrushWidth.Size = New System.Drawing.Size(62, 20) + Me.nBrushWidth.TabIndex = 722 + Me.nBrushWidth.Value = New Decimal(New Integer() {5, 0, 0, 0}) + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(12, 72) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(163, 13) + Me.Label2.TabIndex = 723 + Me.Label2.Text = "On Screen Drawing in Server 2.1" + ' + 'Label274 + ' + Me.Label274.AutoSize = True + Me.Label274.Location = New System.Drawing.Point(181, 62) + Me.Label274.Name = "Label274" + Me.Label274.Size = New System.Drawing.Size(137, 13) + Me.Label274.TabIndex = 1176 + Me.Label274.Text = "Download server from here." + ' + 'LinkLabel3 + ' + Me.LinkLabel3.AutoSize = True + Me.LinkLabel3.Location = New System.Drawing.Point(181, 75) + Me.LinkLabel3.Name = "LinkLabel3" + Me.LinkLabel3.Size = New System.Drawing.Size(140, 13) + Me.LinkLabel3.TabIndex = 1175 + Me.LinkLabel3.TabStop = True + Me.LinkLabel3.Text = "http://builds.casparcg.com/" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(13, 42) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(51, 13) + Me.Label3.TabIndex = 1178 + Me.Label3.Text = "Template" + ' + 'txOSDlTemplate + ' + Me.txOSDlTemplate.Location = New System.Drawing.Point(70, 39) + Me.txOSDlTemplate.Name = "txOSDlTemplate" + Me.txOSDlTemplate.Size = New System.Drawing.Size(247, 20) + Me.txOSDlTemplate.TabIndex = 1177 + Me.txOSDlTemplate.Text = "C:/casparcg/mydata/OSD/OnScreenDrawing.html" + ' + 'ucOSD + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Linen + Me.ClientSize = New System.Drawing.Size(334, 322) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txOSDlTemplate) + Me.Controls.Add(Me.Label274) + Me.Controls.Add(Me.LinkLabel3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.nBrushWidth) + Me.Controls.Add(Me.cmdStopDrawing) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.cmblayerOSD) + Me.Controls.Add(Me.lbllayerhtml) + Me.Controls.Add(Me.cmdStartDrawing) + Me.Controls.Add(Me.cmdClear) + Me.Controls.Add(Me.GroupBox1) + Me.HideOnClose = True + Me.Name = "ucOSD" + Me.Text = "OSD" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.nBrushWidth, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents rdoWhite As System.Windows.Forms.RadioButton + Friend WithEvents rdoBlack As System.Windows.Forms.RadioButton + Friend WithEvents rdoOrange As System.Windows.Forms.RadioButton + Friend WithEvents rdoYellow As System.Windows.Forms.RadioButton + Friend WithEvents rdoRed As System.Windows.Forms.RadioButton + Friend WithEvents rdoBlue As System.Windows.Forms.RadioButton + Friend WithEvents rdoGreen As System.Windows.Forms.RadioButton + Friend WithEvents cmdClear As System.Windows.Forms.Button + Friend WithEvents cmdStartDrawing As System.Windows.Forms.Button + Friend WithEvents cmblayerOSD As System.Windows.Forms.ComboBox + Friend WithEvents lbllayerhtml As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents rdoNone As System.Windows.Forms.RadioButton + Friend WithEvents cmdStopDrawing As System.Windows.Forms.Button + Friend WithEvents nBrushWidth As System.Windows.Forms.NumericUpDown + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label274 As System.Windows.Forms.Label + Friend WithEvents LinkLabel3 As System.Windows.Forms.LinkLabel + Friend WithEvents Label3 As Label + Friend WithEvents txOSDlTemplate As TextBox +End Class diff --git a/CasparMediaPlayback/ucOSD.resx b/CasparMediaPlayback/ucOSD.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/CasparMediaPlayback/ucOSD.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucOSD.vb b/CasparMediaPlayback/ucOSD.vb new file mode 100644 index 0000000..e28b272 --- /dev/null +++ b/CasparMediaPlayback/ucOSD.vb @@ -0,0 +1,42 @@ +Public Class ucOSD + Dim selectedcolor As String = "yellow" + Private Sub cmdStartDrawing_Click(sender As Object, e As EventArgs) Handles cmdStartDrawing.Click + On Error Resume Next + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & cmblayerOSD.Text & " [HTML] " & """" & txOSDlTemplate.Text & """") + + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerOSD.Text & " color(" & selectedcolor & ")") + + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerOSD.Text & " sety(" & nBrushWidth.Value & ")") + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerOSD.Text & " resizecanvas()") + + End Sub + Private Sub cmdClear_Click(sender As Object, e As EventArgs) Handles cmdClear.Click + On Error Resume Next + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerOSD.Text & " erase()") + End Sub + Private Sub myevent(sender As Object, e As EventArgs) Handles rdoBlack.CheckedChanged, rdoBlue.CheckedChanged, rdoGreen.CheckedChanged, rdoOrange.CheckedChanged, rdoRed.CheckedChanged, rdoWhite.CheckedChanged, rdoYellow.CheckedChanged, rdoNone.CheckedChanged + If rdoBlack.Checked Then selectedcolor = "black" + If rdoBlue.Checked Then selectedcolor = "blue" + If rdoGreen.Checked Then selectedcolor = "green" + If rdoOrange.Checked Then selectedcolor = "orange" + If rdoRed.Checked Then selectedcolor = "red" + If rdoWhite.Checked Then selectedcolor = "white" + If rdoYellow.Checked Then selectedcolor = "yellow" + If rdoNone.Checked Then selectedcolor = "none" + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerOSD.Text & " color(" & selectedcolor & ")") + + End Sub + + Private Sub cmdhideOSD_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub + Private Sub cmdStopDrawing_Click(sender As Object, e As EventArgs) Handles cmdStopDrawing.Click + On Error Resume Next + CasparDevice.SendString("stop " & g_int_ChannelNumber & "-" & cmblayerOSD.Text) + End Sub + Private Sub nBrushWidth_ValueChanged(sender As Object, e As EventArgs) Handles nBrushWidth.ValueChanged + + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & cmblayerOSD.Text & " sety(" & nBrushWidth.Value & ")") + + End Sub +End Class diff --git a/CasparMediaPlayback/ucOffAirLogger.designer.vb b/CasparMediaPlayback/ucOffAirLogger.designer.vb new file mode 100644 index 0000000..54e1c19 --- /dev/null +++ b/CasparMediaPlayback/ucOffAirLogger.designer.vb @@ -0,0 +1,61 @@ + +Partial Class ucOffAirLogger + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.tmrrecordedfileinfooal = New System.Windows.Forms.Timer(Me.components) + Me.tmroal = New System.Windows.Forms.Timer(Me.components) + Me.UcnewOffAirLogger1 = New caspar_media_playback.ucnewOffAirLogger() + Me.SuspendLayout() + ' + 'tmrrecordedfileinfooal + ' + Me.tmrrecordedfileinfooal.Interval = 1000 + ' + 'UcnewOffAirLogger1 + ' + Me.UcnewOffAirLogger1.BackColor = System.Drawing.Color.LightGray + Me.UcnewOffAirLogger1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.UcnewOffAirLogger1.Location = New System.Drawing.Point(2, 4) + Me.UcnewOffAirLogger1.Name = "UcnewOffAirLogger1" + Me.UcnewOffAirLogger1.Size = New System.Drawing.Size(608, 428) + Me.UcnewOffAirLogger1.TabIndex = 0 + ' + 'ucOffAirLogger + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(614, 436) + Me.Controls.Add(Me.UcnewOffAirLogger1) + Me.HideOnClose = True + Me.Name = "ucOffAirLogger" + Me.Text = "Off Air Logger" + Me.ResumeLayout(False) + + End Sub + Friend WithEvents tmrrecordedfileinfooal As System.Windows.Forms.Timer + Friend WithEvents tmroal As System.Windows.Forms.Timer + Friend WithEvents UcnewOffAirLogger1 As ucnewOffAirLogger +End Class diff --git a/CasparMediaPlayback/ucOffAirLogger.resx b/CasparMediaPlayback/ucOffAirLogger.resx new file mode 100644 index 0000000..fd4abec --- /dev/null +++ b/CasparMediaPlayback/ucOffAirLogger.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 186, 146 + + + 360, 146 + + + 30 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucOffAirLogger.vb b/CasparMediaPlayback/ucOffAirLogger.vb new file mode 100644 index 0000000..a1461d8 --- /dev/null +++ b/CasparMediaPlayback/ucOffAirLogger.vb @@ -0,0 +1,22 @@ + +Public Class ucOffAirLogger + Private Sub ucOffAirLogger_Load(sender As Object, e As EventArgs) Handles MyBase.Load + With UcnewOffAirLogger1 + .ichannel = g_int_ChannelNumber + .cmbcasparcgwindowtitlerecording.Text = "Screen consumer [" & .ichannel & "|PAL]" + .oscstartandregister(.ichannel, 6250 + .ichannel) + .txtmediadirectoryoal.Text = mediafullpath & "ch" & .ichannel & "/" + .cmbliveoal.Text = .ichannel + .lblChannel.Text = "Channel " & .ichannel + End With + End Sub + Private Sub UcnewOffAirLogger1_Load(sender As Object, e As EventArgs) Handles UcnewOffAirLogger1.Load + End Sub + Private Sub cmdhideoffairlogger_Click(sender As Object, e As EventArgs) + UcnewOffAirLogger1.stoprecordoal() + UcnewOffAirLogger1.cmdoutcasparcgwindowrecording.PerformClick() + UcnewOffAirLogger1.stoposcserver() + Parent.Controls.Remove(Me) + + End Sub +End Class diff --git a/CasparMediaPlayback/ucOffAirLoggers.Designer.vb b/CasparMediaPlayback/ucOffAirLoggers.Designer.vb new file mode 100644 index 0000000..6c792d4 --- /dev/null +++ b/CasparMediaPlayback/ucOffAirLoggers.Designer.vb @@ -0,0 +1,151 @@ + _ +Partial Class ucOffAirLoggers + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucOffAirLoggers)) + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmdhideoffairlogger4 = New System.Windows.Forms.Button() + Me.cmdhideoffairlogger3 = New System.Windows.Forms.Button() + Me.cmdhideoffairlogger2 = New System.Windows.Forms.Button() + Me.cmdhideoffairlogger1 = New System.Windows.Forms.Button() + Me.UcnewOffAirLogger3 = New caspar_media_playback.ucnewOffAirLogger() + Me.UcnewOffAirLogger4 = New caspar_media_playback.ucnewOffAirLogger() + Me.UcnewOffAirLogger2 = New caspar_media_playback.ucnewOffAirLogger() + Me.UcnewOffAirLogger1 = New caspar_media_playback.ucnewOffAirLogger() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'GroupBox1 + ' + Me.GroupBox1.BackColor = System.Drawing.Color.Wheat + Me.GroupBox1.Controls.Add(Me.cmdhideoffairlogger4) + Me.GroupBox1.Controls.Add(Me.cmdhideoffairlogger3) + Me.GroupBox1.Controls.Add(Me.cmdhideoffairlogger2) + Me.GroupBox1.Controls.Add(Me.cmdhideoffairlogger1) + Me.GroupBox1.Controls.Add(Me.UcnewOffAirLogger3) + Me.GroupBox1.Controls.Add(Me.UcnewOffAirLogger4) + Me.GroupBox1.Controls.Add(Me.UcnewOffAirLogger2) + Me.GroupBox1.Controls.Add(Me.UcnewOffAirLogger1) + Me.GroupBox1.Location = New System.Drawing.Point(3, 4) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(1220, 866) + Me.GroupBox1.TabIndex = 0 + Me.GroupBox1.TabStop = False + ' + 'cmdhideoffairlogger4 + ' + Me.cmdhideoffairlogger4.Image = CType(resources.GetObject("cmdhideoffairlogger4.Image"), System.Drawing.Image) + Me.cmdhideoffairlogger4.Location = New System.Drawing.Point(1184, 449) + Me.cmdhideoffairlogger4.Name = "cmdhideoffairlogger4" + Me.cmdhideoffairlogger4.Size = New System.Drawing.Size(28, 27) + Me.cmdhideoffairlogger4.TabIndex = 728 + Me.cmdhideoffairlogger4.UseVisualStyleBackColor = True + ' + 'cmdhideoffairlogger3 + ' + Me.cmdhideoffairlogger3.Image = CType(resources.GetObject("cmdhideoffairlogger3.Image"), System.Drawing.Image) + Me.cmdhideoffairlogger3.Location = New System.Drawing.Point(575, 453) + Me.cmdhideoffairlogger3.Name = "cmdhideoffairlogger3" + Me.cmdhideoffairlogger3.Size = New System.Drawing.Size(28, 27) + Me.cmdhideoffairlogger3.TabIndex = 727 + Me.cmdhideoffairlogger3.UseVisualStyleBackColor = True + ' + 'cmdhideoffairlogger2 + ' + Me.cmdhideoffairlogger2.Image = CType(resources.GetObject("cmdhideoffairlogger2.Image"), System.Drawing.Image) + Me.cmdhideoffairlogger2.Location = New System.Drawing.Point(1188, 16) + Me.cmdhideoffairlogger2.Name = "cmdhideoffairlogger2" + Me.cmdhideoffairlogger2.Size = New System.Drawing.Size(28, 27) + Me.cmdhideoffairlogger2.TabIndex = 726 + Me.cmdhideoffairlogger2.UseVisualStyleBackColor = True + ' + 'cmdhideoffairlogger1 + ' + Me.cmdhideoffairlogger1.Image = CType(resources.GetObject("cmdhideoffairlogger1.Image"), System.Drawing.Image) + Me.cmdhideoffairlogger1.Location = New System.Drawing.Point(568, 16) + Me.cmdhideoffairlogger1.Name = "cmdhideoffairlogger1" + Me.cmdhideoffairlogger1.Size = New System.Drawing.Size(28, 27) + Me.cmdhideoffairlogger1.TabIndex = 725 + Me.cmdhideoffairlogger1.UseVisualStyleBackColor = True + ' + 'UcnewOffAirLogger3 + ' + Me.UcnewOffAirLogger3.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.UcnewOffAirLogger3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.UcnewOffAirLogger3.Location = New System.Drawing.Point(613, 432) + Me.UcnewOffAirLogger3.Name = "UcnewOffAirLogger3" + Me.UcnewOffAirLogger3.Size = New System.Drawing.Size(606, 429) + Me.UcnewOffAirLogger3.TabIndex = 3 + ' + 'UcnewOffAirLogger4 + ' + Me.UcnewOffAirLogger4.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.UcnewOffAirLogger4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.UcnewOffAirLogger4.Location = New System.Drawing.Point(3, 433) + Me.UcnewOffAirLogger4.Name = "UcnewOffAirLogger4" + Me.UcnewOffAirLogger4.Size = New System.Drawing.Size(606, 429) + Me.UcnewOffAirLogger4.TabIndex = 2 + ' + 'UcnewOffAirLogger2 + ' + Me.UcnewOffAirLogger2.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.UcnewOffAirLogger2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.UcnewOffAirLogger2.Location = New System.Drawing.Point(613, 0) + Me.UcnewOffAirLogger2.Name = "UcnewOffAirLogger2" + Me.UcnewOffAirLogger2.Size = New System.Drawing.Size(606, 429) + Me.UcnewOffAirLogger2.TabIndex = 1 + ' + 'UcnewOffAirLogger1 + ' + Me.UcnewOffAirLogger1.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.UcnewOffAirLogger1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.UcnewOffAirLogger1.Location = New System.Drawing.Point(1, 1) + Me.UcnewOffAirLogger1.Name = "UcnewOffAirLogger1" + Me.UcnewOffAirLogger1.Size = New System.Drawing.Size(606, 429) + Me.UcnewOffAirLogger1.TabIndex = 0 + ' + 'ucOffAirLoggers + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(1227, 875) + Me.Controls.Add(Me.GroupBox1) + Me.HideOnClose = True + Me.Name = "ucOffAirLoggers" + Me.Text = "Four Channel Off Air Logger" + Me.GroupBox1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents UcnewOffAirLogger1 As ucnewOffAirLogger + Friend WithEvents UcnewOffAirLogger3 As ucnewOffAirLogger + Friend WithEvents UcnewOffAirLogger4 As ucnewOffAirLogger + Friend WithEvents UcnewOffAirLogger2 As ucnewOffAirLogger + Friend WithEvents cmdhideoffairlogger4 As Button + Friend WithEvents cmdhideoffairlogger3 As Button + Friend WithEvents cmdhideoffairlogger2 As Button + Friend WithEvents cmdhideoffairlogger1 As Button +End Class diff --git a/CasparMediaPlayback/ucOffAirLoggers.resx b/CasparMediaPlayback/ucOffAirLoggers.resx new file mode 100644 index 0000000..2277a1e --- /dev/null +++ b/CasparMediaPlayback/ucOffAirLoggers.resx @@ -0,0 +1,193 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAkGBggGBQkIBwgKCQkKDRYODQwMDRoTFBAWHxwhIB8cHh4j + JzIqIyUvJR4eKzssLzM1ODg4ISo9QTw2QTI3ODX/2wBDAQkKCg0LDRkODhk1JB4kNTU1NTU1NTU1NTU1 + NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTX/wAARCAASABIDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDupNTmvNduLKKZhNGW2oJCoIHp71Dc6hc2dgt3cvPCjvsUSSkM + fw9K5HVL+y074kXlzqSXDRQyGREiOCzgArn2qr4m8WweJ7GGaeGSDUYnK4RsxGP8e9cbqb66n0kcJJ8r + jH3bK7sux6fFqdyYUIkyCowTRVCzDfYoMo3+rXt7UVXMzh+rwLGu20EmolnhjZiOpUE1Ris7fzlPkRZy + P4BRRUP4jqofwV6HYIi7F+UdPSiiiug8F7n/2Q== + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAkGBggGBQkIBwgKCQkKDRYODQwMDRoTFBAWHxwhIB8cHh4j + JzIqIyUvJR4eKzssLzM1ODg4ISo9QTw2QTI3ODX/2wBDAQkKCg0LDRkODhk1JB4kNTU1NTU1NTU1NTU1 + NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTX/wAARCAASABIDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDupNTmvNduLKKZhNGW2oJCoIHp71Dc6hc2dgt3cvPCjvsUSSkM + fw9K5HVL+y074kXlzqSXDRQyGREiOCzgArn2qr4m8WweJ7GGaeGSDUYnK4RsxGP8e9cbqb66n0kcJJ8r + jH3bK7sux6fFqdyYUIkyCowTRVCzDfYoMo3+rXt7UVXMzh+rwLGu20EmolnhjZiOpUE1Ris7fzlPkRZy + P4BRRUP4jqofwV6HYIi7F+UdPSiiiug8F7n/2Q== + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAkGBggGBQkIBwgKCQkKDRYODQwMDRoTFBAWHxwhIB8cHh4j + JzIqIyUvJR4eKzssLzM1ODg4ISo9QTw2QTI3ODX/2wBDAQkKCg0LDRkODhk1JB4kNTU1NTU1NTU1NTU1 + NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTX/wAARCAASABIDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDupNTmvNduLKKZhNGW2oJCoIHp71Dc6hc2dgt3cvPCjvsUSSkM + fw9K5HVL+y074kXlzqSXDRQyGREiOCzgArn2qr4m8WweJ7GGaeGSDUYnK4RsxGP8e9cbqb66n0kcJJ8r + jH3bK7sux6fFqdyYUIkyCowTRVCzDfYoMo3+rXt7UVXMzh+rwLGu20EmolnhjZiOpUE1Ris7fzlPkRZy + P4BRRUP4jqofwV6HYIi7F+UdPSiiiug8F7n/2Q== + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAkGBggGBQkIBwgKCQkKDRYODQwMDRoTFBAWHxwhIB8cHh4j + JzIqIyUvJR4eKzssLzM1ODg4ISo9QTw2QTI3ODX/2wBDAQkKCg0LDRkODhk1JB4kNTU1NTU1NTU1NTU1 + NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTX/wAARCAASABIDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDupNTmvNduLKKZhNGW2oJCoIHp71Dc6hc2dgt3cvPCjvsUSSkM + fw9K5HVL+y074kXlzqSXDRQyGREiOCzgArn2qr4m8WweJ7GGaeGSDUYnK4RsxGP8e9cbqb66n0kcJJ8r + jH3bK7sux6fFqdyYUIkyCowTRVCzDfYoMo3+rXt7UVXMzh+rwLGu20EmolnhjZiOpUE1Ris7fzlPkRZy + P4BRRUP4jqofwV6HYIi7F+UdPSiiiug8F7n/2Q== + + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucOffAirLoggers.vb b/CasparMediaPlayback/ucOffAirLoggers.vb new file mode 100644 index 0000000..b8637fa --- /dev/null +++ b/CasparMediaPlayback/ucOffAirLoggers.vb @@ -0,0 +1,106 @@ +Public Class ucOffAirLoggers + Private Sub UcOffAirLoggers_Load(sender As Object, e As EventArgs) Handles MyBase.Load + With UcnewOffAirLogger1 + .ichannel = 1 + .cmbcasparcgwindowtitlerecording.Text = "Screen consumer [" & .ichannel & "|PAL]" + .oscstartandregister(.ichannel, 6250 + .ichannel) + .txtmediadirectoryoal.Text = mediafullpath & "ch" & .ichannel & "/" + .cmbliveoal.Text = .ichannel + .lblChannel.Text = "Channel " & .ichannel + End With + + With UcnewOffAirLogger2 + .ichannel = 2 + .cmbcasparcgwindowtitlerecording.Text = "Screen consumer [" & .ichannel & "|PAL]" + .oscstartandregister(.ichannel, 6250 + .ichannel) + .txtmediadirectoryoal.Text = mediafullpath & "ch" & .ichannel & "/" + .cmbliveoal.Text = .ichannel + .lblChannel.Text = "Channel " & .ichannel + End With + + With UcnewOffAirLogger3 + .ichannel = 3 + .cmbcasparcgwindowtitlerecording.Text = "Screen consumer [" & .ichannel & "|PAL]" + .oscstartandregister(.ichannel, 6250 + .ichannel) + .txtmediadirectoryoal.Text = mediafullpath & "ch" & .ichannel & "/" + .cmbliveoal.Text = .ichannel + .lblChannel.Text = "Channel " & .ichannel + End With + + With UcnewOffAirLogger4 + .ichannel = 4 + .cmbcasparcgwindowtitlerecording.Text = "Screen consumer [" & .ichannel & "|PAL]" + .oscstartandregister(.ichannel, 6250 + .ichannel) + .txtmediadirectoryoal.Text = mediafullpath & "ch" & .ichannel & "/" + .cmbliveoal.Text = .ichannel + .lblChannel.Text = "Channel " & .ichannel + End With + End Sub + + Private Sub cmdhideoffairlogger1_Click(sender As Object, e As EventArgs) Handles cmdhideoffairlogger1.Click + 'On Error Resume Next + UcnewOffAirLogger1.stoprecordoal() + UcnewOffAirLogger1.cmdoutcasparcgwindowrecording.PerformClick() + UcnewOffAirLogger1.stoposcserver() + + UcnewOffAirLogger1.Hide() + sender.Hide() + + End Sub + + Private Sub cmdhideoffairlogger2_Click(sender As Object, e As EventArgs) Handles cmdhideoffairlogger2.Click + On Error Resume Next + UcnewOffAirLogger2.stoprecordoal() + UcnewOffAirLogger2.cmdoutcasparcgwindowrecording.PerformClick() + UcnewOffAirLogger2.stoposcserver() + + UcnewOffAirLogger2.Hide() + sender.Hide() + End Sub + + Private Sub cmdhideoffairlogger3_Click(sender As Object, e As EventArgs) Handles cmdhideoffairlogger3.Click + On Error Resume Next + UcnewOffAirLogger3.stoprecordoal() + UcnewOffAirLogger3.cmdoutcasparcgwindowrecording.PerformClick() + UcnewOffAirLogger3.stoposcserver() + + UcnewOffAirLogger3.Hide() + sender.Hide() + + End Sub + + Private Sub cmdhideoffairlogger4_Click(sender As Object, e As EventArgs) Handles cmdhideoffairlogger4.Click + On Error Resume Next + UcnewOffAirLogger4.stoprecordoal() + UcnewOffAirLogger4.cmdoutcasparcgwindowrecording.PerformClick() + UcnewOffAirLogger4.stoposcserver() + + UcnewOffAirLogger4.Hide() + sender.Hide() + End Sub + + Private Sub Cmdhideoffairlogger_Click(sender As Object, e As EventArgs) + On Error Resume Next + If Not UcnewOffAirLogger1.parentedProcess1 Is Nothing Then + SetParent(UcnewOffAirLogger1.parentedProcess1.MainWindowHandle, Nothing) + End If + + If Not UcnewOffAirLogger2.parentedProcess1 Is Nothing Then + SetParent(UcnewOffAirLogger2.parentedProcess1.MainWindowHandle, Nothing) + End If + + If Not UcnewOffAirLogger3.parentedProcess1 Is Nothing Then + SetParent(UcnewOffAirLogger3.parentedProcess1.MainWindowHandle, Nothing) + End If + If Not UcnewOffAirLogger4.parentedProcess1 Is Nothing Then + SetParent(UcnewOffAirLogger4.parentedProcess1.MainWindowHandle, Nothing) + End If + + UcnewOffAirLogger1.stoposcserver() + UcnewOffAirLogger2.stoposcserver() + UcnewOffAirLogger3.stoposcserver() + UcnewOffAirLogger4.stoposcserver() + + Me.Parent.Controls("ucOffAirLoggers1").Dispose() + End Sub +End Class diff --git a/CasparMediaPlayback/ucOneLiner.Designer.vb b/CasparMediaPlayback/ucOneLiner.Designer.vb new file mode 100644 index 0000000..f0558c7 --- /dev/null +++ b/CasparMediaPlayback/ucOneLiner.Designer.vb @@ -0,0 +1,828 @@ + _ +Partial Class ucOneLiner + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucOneLiner)) + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.gboneliner = New System.Windows.Forms.GroupBox() + Me.cmdGetLanguage = New System.Windows.Forms.Button() + Me.chkPlayFromTraslatedGrigFlash = New System.Windows.Forms.CheckBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.cmblanguage = New System.Windows.Forms.ComboBox() + Me.cmdTranslate = New System.Windows.Forms.Button() + Me.dgvonelinesuperTranslated = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.txtvariable1 = New System.Windows.Forms.TextBox() + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.chkPlayFromTraslatedGrigHTML = New System.Windows.Forms.CheckBox() + Me.Strip = New System.Windows.Forms.GroupBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.nheighthtmloneliner = New System.Windows.Forms.NumericUpDown() + Me.Label162 = New System.Windows.Forms.Label() + Me.cmdstripcolorhtmloneliner = New System.Windows.Forms.Button() + Me.Label163 = New System.Windows.Forms.Label() + Me.nyhtmloneliner = New System.Windows.Forms.NumericUpDown() + Me.Label1 = New System.Windows.Forms.Label() + Me.cmdcolorhtmloneliner = New System.Windows.Forms.Button() + Me.chkBold = New System.Windows.Forms.CheckBox() + Me.chkitalic = New System.Windows.Forms.CheckBox() + Me.nyhtmltextoneliner = New System.Windows.Forms.NumericUpDown() + Me.chkbase64htmloneliner = New System.Windows.Forms.CheckBox() + Me.Label190 = New System.Windows.Forms.Label() + Me.cmdonelinesuperplayhtml = New System.Windows.Forms.Button() + Me.Label157 = New System.Windows.Forms.Label() + Me.cmdonelinesuperstophtml = New System.Windows.Forms.Button() + Me.cmbfonthtmloneliner = New System.Windows.Forms.ComboBox() + Me.nsizehtmloneliner = New System.Windows.Forms.NumericUpDown() + Me.Label160 = New System.Windows.Forms.Label() + Me.Label273 = New System.Windows.Forms.Label() + Me.cmbTemplateOneliner = New System.Windows.Forms.ComboBox() + Me.Label270 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.cmblayeronelinesuper = New System.Windows.Forms.ComboBox() + Me.removetsoneliner = New System.Windows.Forms.Button() + Me.uptsoneliner = New System.Windows.Forms.Button() + Me.downtsoneliner = New System.Windows.Forms.Button() + Me.addtsoneliner = New System.Windows.Forms.Button() + Me.dgvonelinesuper = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.colTranslate = New System.Windows.Forms.DataGridViewButtonColumn() + Me.cmdonelinesuperplay = New System.Windows.Forms.Button() + Me.cmdonelinesupernext = New System.Windows.Forms.Button() + Me.cmdonelinesuperstop = New System.Windows.Forms.Button() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.gboneliner.SuspendLayout() + CType(Me.dgvonelinesuperTranslated, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MenuStrip1.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.Strip.SuspendLayout() + CType(Me.nheighthtmloneliner, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nyhtmloneliner, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nyhtmltextoneliner, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nsizehtmloneliner, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvonelinesuper, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gboneliner + ' + Me.gboneliner.BackColor = System.Drawing.Color.LightSkyBlue + Me.gboneliner.Controls.Add(Me.cmdGetLanguage) + Me.gboneliner.Controls.Add(Me.chkPlayFromTraslatedGrigFlash) + Me.gboneliner.Controls.Add(Me.Label3) + Me.gboneliner.Controls.Add(Me.cmblanguage) + Me.gboneliner.Controls.Add(Me.cmdTranslate) + Me.gboneliner.Controls.Add(Me.dgvonelinesuperTranslated) + Me.gboneliner.Controls.Add(Me.txtvariable1) + Me.gboneliner.Controls.Add(Me.MenuStrip1) + Me.gboneliner.Controls.Add(Me.GroupBox1) + Me.gboneliner.Controls.Add(Me.Label273) + Me.gboneliner.Controls.Add(Me.cmbTemplateOneliner) + Me.gboneliner.Controls.Add(Me.Label270) + Me.gboneliner.Controls.Add(Me.Label26) + Me.gboneliner.Controls.Add(Me.cmblayeronelinesuper) + Me.gboneliner.Controls.Add(Me.removetsoneliner) + Me.gboneliner.Controls.Add(Me.uptsoneliner) + Me.gboneliner.Controls.Add(Me.downtsoneliner) + Me.gboneliner.Controls.Add(Me.addtsoneliner) + Me.gboneliner.Controls.Add(Me.dgvonelinesuper) + Me.gboneliner.Controls.Add(Me.cmdonelinesuperplay) + Me.gboneliner.Controls.Add(Me.cmdonelinesupernext) + Me.gboneliner.Controls.Add(Me.cmdonelinesuperstop) + Me.gboneliner.Location = New System.Drawing.Point(3, 3) + Me.gboneliner.Name = "gboneliner" + Me.gboneliner.Size = New System.Drawing.Size(660, 605) + Me.gboneliner.TabIndex = 536 + Me.gboneliner.TabStop = False + Me.gboneliner.Text = " " + ' + 'cmdGetLanguage + ' + Me.cmdGetLanguage.Location = New System.Drawing.Point(559, 134) + Me.cmdGetLanguage.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdGetLanguage.Name = "cmdGetLanguage" + Me.cmdGetLanguage.Size = New System.Drawing.Size(99, 30) + Me.cmdGetLanguage.TabIndex = 748 + Me.cmdGetLanguage.Text = "Get Language" + Me.cmdGetLanguage.UseVisualStyleBackColor = True + ' + 'chkPlayFromTraslatedGrigFlash + ' + Me.chkPlayFromTraslatedGrigFlash.AutoSize = True + Me.chkPlayFromTraslatedGrigFlash.Location = New System.Drawing.Point(514, 42) + Me.chkPlayFromTraslatedGrigFlash.Name = "chkPlayFromTraslatedGrigFlash" + Me.chkPlayFromTraslatedGrigFlash.Size = New System.Drawing.Size(144, 17) + Me.chkPlayFromTraslatedGrigFlash.TabIndex = 747 + Me.chkPlayFromTraslatedGrigFlash.Text = "Play from Translated Grid" + Me.chkPlayFromTraslatedGrigFlash.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(562, 95) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(94, 13) + Me.Label3.TabIndex = 729 + Me.Label3.Text = "Target Languages" + ' + 'cmblanguage + ' + Me.cmblanguage.FormattingEnabled = True + Me.cmblanguage.Location = New System.Drawing.Point(559, 111) + Me.cmblanguage.Name = "cmblanguage" + Me.cmblanguage.Size = New System.Drawing.Size(91, 21) + Me.cmblanguage.TabIndex = 728 + Me.cmblanguage.Text = "mr (Marathi)" + ' + 'cmdTranslate + ' + Me.cmdTranslate.Location = New System.Drawing.Point(561, 167) + Me.cmdTranslate.Name = "cmdTranslate" + Me.cmdTranslate.Size = New System.Drawing.Size(97, 49) + Me.cmdTranslate.TabIndex = 727 + Me.cmdTranslate.Text = "Translate All with Google Translator" + Me.cmdTranslate.UseVisualStyleBackColor = True + ' + 'dgvonelinesuperTranslated + ' + Me.dgvonelinesuperTranslated.AllowDrop = True + Me.dgvonelinesuperTranslated.AllowUserToOrderColumns = True + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.dgvonelinesuperTranslated.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvonelinesuperTranslated.BackgroundColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvonelinesuperTranslated.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 + Me.dgvonelinesuperTranslated.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvonelinesuperTranslated.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1}) + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvonelinesuperTranslated.DefaultCellStyle = DataGridViewCellStyle3 + Me.dgvonelinesuperTranslated.Location = New System.Drawing.Point(7, 257) + Me.dgvonelinesuperTranslated.MultiSelect = False + Me.dgvonelinesuperTranslated.Name = "dgvonelinesuperTranslated" + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvonelinesuperTranslated.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvonelinesuperTranslated.RowHeadersWidth = 25 + Me.dgvonelinesuperTranslated.Size = New System.Drawing.Size(545, 191) + Me.dgvonelinesuperTranslated.TabIndex = 726 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.Frozen = True + Me.DataGridViewTextBoxColumn1.HeaderText = "Oneline Super" + Me.DataGridViewTextBoxColumn1.MinimumWidth = 600 + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn1.Width = 600 + ' + 'txtvariable1 + ' + Me.txtvariable1.Location = New System.Drawing.Point(98, 39) + Me.txtvariable1.Name = "txtvariable1" + Me.txtvariable1.Size = New System.Drawing.Size(57, 20) + Me.txtvariable1.TabIndex = 725 + Me.txtvariable1.Text = "f0" + Me.txtvariable1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.EditToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(6, 16) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(84, 24) + Me.MenuStrip1.TabIndex = 724 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'FileToolStripMenuItem + ' + Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.SaveToolStripMenuItem}) + Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" + Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20) + Me.FileToolStripMenuItem.Text = "File" + ' + 'NewToolStripMenuItem + ' + Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" + Me.NewToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.NewToolStripMenuItem.Text = "New" + ' + 'OpenToolStripMenuItem + ' + Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" + Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.OpenToolStripMenuItem.Text = "Open" + ' + 'SaveToolStripMenuItem + ' + Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" + Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.SaveToolStripMenuItem.Text = "Save" + ' + 'EditToolStripMenuItem + ' + Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CutToolStripMenuItem, Me.CopyToolStripMenuItem, Me.PasteToolStripMenuItem}) + Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem" + Me.EditToolStripMenuItem.Size = New System.Drawing.Size(39, 20) + Me.EditToolStripMenuItem.Text = "Edit" + ' + 'CutToolStripMenuItem + ' + Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem" + Me.CutToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.CutToolStripMenuItem.Text = "Cut" + ' + 'CopyToolStripMenuItem + ' + Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem" + Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.CopyToolStripMenuItem.Text = "Copy" + ' + 'PasteToolStripMenuItem + ' + Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem" + Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.PasteToolStripMenuItem.Text = "Paste" + ' + 'GroupBox1 + ' + Me.GroupBox1.BackColor = System.Drawing.Color.PowderBlue + Me.GroupBox1.Controls.Add(Me.chkPlayFromTraslatedGrigHTML) + Me.GroupBox1.Controls.Add(Me.Strip) + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(Me.cmdcolorhtmloneliner) + Me.GroupBox1.Controls.Add(Me.chkBold) + Me.GroupBox1.Controls.Add(Me.chkitalic) + Me.GroupBox1.Controls.Add(Me.nyhtmltextoneliner) + Me.GroupBox1.Controls.Add(Me.chkbase64htmloneliner) + Me.GroupBox1.Controls.Add(Me.Label190) + Me.GroupBox1.Controls.Add(Me.cmdonelinesuperplayhtml) + Me.GroupBox1.Controls.Add(Me.Label157) + Me.GroupBox1.Controls.Add(Me.cmdonelinesuperstophtml) + Me.GroupBox1.Controls.Add(Me.cmbfonthtmloneliner) + Me.GroupBox1.Controls.Add(Me.nsizehtmloneliner) + Me.GroupBox1.Controls.Add(Me.Label160) + Me.GroupBox1.Location = New System.Drawing.Point(5, 480) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(649, 117) + Me.GroupBox1.TabIndex = 723 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "HTML Template" + ' + 'chkPlayFromTraslatedGrigHTML + ' + Me.chkPlayFromTraslatedGrigHTML.AutoSize = True + Me.chkPlayFromTraslatedGrigHTML.Location = New System.Drawing.Point(445, 11) + Me.chkPlayFromTraslatedGrigHTML.Name = "chkPlayFromTraslatedGrigHTML" + Me.chkPlayFromTraslatedGrigHTML.Size = New System.Drawing.Size(144, 17) + Me.chkPlayFromTraslatedGrigHTML.TabIndex = 746 + Me.chkPlayFromTraslatedGrigHTML.Text = "Play from Translated Grid" + Me.chkPlayFromTraslatedGrigHTML.UseVisualStyleBackColor = True + ' + 'Strip + ' + Me.Strip.Controls.Add(Me.Label2) + Me.Strip.Controls.Add(Me.nheighthtmloneliner) + Me.Strip.Controls.Add(Me.Label162) + Me.Strip.Controls.Add(Me.cmdstripcolorhtmloneliner) + Me.Strip.Controls.Add(Me.Label163) + Me.Strip.Controls.Add(Me.nyhtmloneliner) + Me.Strip.Location = New System.Drawing.Point(294, 40) + Me.Strip.Name = "Strip" + Me.Strip.Size = New System.Drawing.Size(283, 65) + Me.Strip.TabIndex = 745 + Me.Strip.TabStop = False + Me.Strip.Text = "Strip" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(15, 17) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(73, 13) + Me.Label2.TabIndex = 743 + Me.Label2.Text = "Strip Height %" + ' + 'nheighthtmloneliner + ' + Me.nheighthtmloneliner.Location = New System.Drawing.Point(88, 14) + Me.nheighthtmloneliner.Maximum = New Decimal(New Integer() {4000, 0, 0, 0}) + Me.nheighthtmloneliner.Minimum = New Decimal(New Integer() {4000, 0, 0, -2147483648}) + Me.nheighthtmloneliner.Name = "nheighthtmloneliner" + Me.nheighthtmloneliner.Size = New System.Drawing.Size(54, 20) + Me.nheighthtmloneliner.TabIndex = 744 + Me.nheighthtmloneliner.Value = New Decimal(New Integer() {8, 0, 0, 0}) + ' + 'Label162 + ' + Me.Label162.AutoSize = True + Me.Label162.Location = New System.Drawing.Point(159, 17) + Me.Label162.Name = "Label162" + Me.Label162.Size = New System.Drawing.Size(54, 13) + Me.Label162.TabIndex = 739 + Me.Label162.Text = "Strip color" + ' + 'cmdstripcolorhtmloneliner + ' + Me.cmdstripcolorhtmloneliner.BackColor = System.Drawing.Color.Purple + Me.cmdstripcolorhtmloneliner.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdstripcolorhtmloneliner.ForeColor = System.Drawing.Color.Yellow + Me.cmdstripcolorhtmloneliner.Location = New System.Drawing.Point(218, 17) + Me.cmdstripcolorhtmloneliner.Name = "cmdstripcolorhtmloneliner" + Me.cmdstripcolorhtmloneliner.Size = New System.Drawing.Size(59, 23) + Me.cmdstripcolorhtmloneliner.TabIndex = 740 + Me.cmdstripcolorhtmloneliner.Text = "color" + Me.cmdstripcolorhtmloneliner.UseVisualStyleBackColor = False + ' + 'Label163 + ' + Me.Label163.AutoSize = True + Me.Label163.Location = New System.Drawing.Point(6, 38) + Me.Label163.Name = "Label163" + Me.Label163.Size = New System.Drawing.Size(81, 13) + Me.Label163.TabIndex = 730 + Me.Label163.Text = "Strip Y Position" + ' + 'nyhtmloneliner + ' + Me.nyhtmloneliner.Location = New System.Drawing.Point(88, 36) + Me.nyhtmloneliner.Maximum = New Decimal(New Integer() {4000, 0, 0, 0}) + Me.nyhtmloneliner.Minimum = New Decimal(New Integer() {4000, 0, 0, -2147483648}) + Me.nyhtmloneliner.Name = "nyhtmloneliner" + Me.nyhtmloneliner.Size = New System.Drawing.Size(54, 20) + Me.nyhtmloneliner.TabIndex = 731 + Me.nyhtmloneliner.Value = New Decimal(New Integer() {83, 0, 0, 0}) + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(169, 87) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(51, 13) + Me.Label1.TabIndex = 742 + Me.Label1.Text = "font color" + ' + 'cmdcolorhtmloneliner + ' + Me.cmdcolorhtmloneliner.BackColor = System.Drawing.Color.Purple + Me.cmdcolorhtmloneliner.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdcolorhtmloneliner.ForeColor = System.Drawing.Color.Yellow + Me.cmdcolorhtmloneliner.Location = New System.Drawing.Point(229, 82) + Me.cmdcolorhtmloneliner.Name = "cmdcolorhtmloneliner" + Me.cmdcolorhtmloneliner.Size = New System.Drawing.Size(59, 23) + Me.cmdcolorhtmloneliner.TabIndex = 741 + Me.cmdcolorhtmloneliner.Text = "Color" + Me.cmdcolorhtmloneliner.UseVisualStyleBackColor = False + ' + 'chkBold + ' + Me.chkBold.AutoSize = True + Me.chkBold.Checked = True + Me.chkBold.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkBold.Location = New System.Drawing.Point(229, 63) + Me.chkBold.Name = "chkBold" + Me.chkBold.Size = New System.Drawing.Size(47, 17) + Me.chkBold.TabIndex = 738 + Me.chkBold.Text = "Bold" + Me.chkBold.UseVisualStyleBackColor = True + ' + 'chkitalic + ' + Me.chkitalic.AutoSize = True + Me.chkitalic.Checked = True + Me.chkitalic.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkitalic.Location = New System.Drawing.Point(171, 64) + Me.chkitalic.Name = "chkitalic" + Me.chkitalic.Size = New System.Drawing.Size(48, 17) + Me.chkitalic.TabIndex = 737 + Me.chkitalic.Text = "Italic" + Me.chkitalic.UseVisualStyleBackColor = True + ' + 'nyhtmltextoneliner + ' + Me.nyhtmltextoneliner.Location = New System.Drawing.Point(97, 87) + Me.nyhtmltextoneliner.Maximum = New Decimal(New Integer() {4000, 0, 0, 0}) + Me.nyhtmltextoneliner.Minimum = New Decimal(New Integer() {4000, 0, 0, -2147483648}) + Me.nyhtmltextoneliner.Name = "nyhtmltextoneliner" + Me.nyhtmltextoneliner.Size = New System.Drawing.Size(54, 20) + Me.nyhtmltextoneliner.TabIndex = 736 + Me.nyhtmltextoneliner.Value = New Decimal(New Integer() {83, 0, 0, 0}) + ' + 'chkbase64htmloneliner + ' + Me.chkbase64htmloneliner.AutoSize = True + Me.chkbase64htmloneliner.Location = New System.Drawing.Point(97, 11) + Me.chkbase64htmloneliner.Name = "chkbase64htmloneliner" + Me.chkbase64htmloneliner.Size = New System.Drawing.Size(62, 17) + Me.chkbase64htmloneliner.TabIndex = 730 + Me.chkbase64htmloneliner.Text = "Base64" + Me.chkbase64htmloneliner.UseVisualStyleBackColor = True + ' + 'Label190 + ' + Me.Label190.AutoSize = True + Me.Label190.Location = New System.Drawing.Point(8, 89) + Me.Label190.Name = "Label190" + Me.Label190.Size = New System.Drawing.Size(81, 13) + Me.Label190.TabIndex = 735 + Me.Label190.Text = "Text Y Position" + ' + 'cmdonelinesuperplayhtml + ' + Me.cmdonelinesuperplayhtml.BackColor = System.Drawing.Color.Green + Me.cmdonelinesuperplayhtml.ForeColor = System.Drawing.Color.White + Me.cmdonelinesuperplayhtml.Location = New System.Drawing.Point(595, 11) + Me.cmdonelinesuperplayhtml.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdonelinesuperplayhtml.Name = "cmdonelinesuperplayhtml" + Me.cmdonelinesuperplayhtml.Size = New System.Drawing.Size(47, 53) + Me.cmdonelinesuperplayhtml.TabIndex = 721 + Me.cmdonelinesuperplayhtml.Text = "Play" + Me.cmdonelinesuperplayhtml.UseVisualStyleBackColor = False + ' + 'Label157 + ' + Me.Label157.AutoSize = True + Me.Label157.Location = New System.Drawing.Point(71, 63) + Me.Label157.Name = "Label157" + Me.Label157.Size = New System.Drawing.Size(27, 13) + Me.Label157.TabIndex = 734 + Me.Label157.Text = "Size" + ' + 'cmdonelinesuperstophtml + ' + Me.cmdonelinesuperstophtml.BackColor = System.Drawing.Color.Red + Me.cmdonelinesuperstophtml.ForeColor = System.Drawing.Color.White + Me.cmdonelinesuperstophtml.Location = New System.Drawing.Point(595, 64) + Me.cmdonelinesuperstophtml.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdonelinesuperstophtml.Name = "cmdonelinesuperstophtml" + Me.cmdonelinesuperstophtml.Size = New System.Drawing.Size(47, 49) + Me.cmdonelinesuperstophtml.TabIndex = 722 + Me.cmdonelinesuperstophtml.Text = "Stop" + Me.cmdonelinesuperstophtml.UseVisualStyleBackColor = False + ' + 'cmbfonthtmloneliner + ' + Me.cmbfonthtmloneliner.FormattingEnabled = True + Me.cmbfonthtmloneliner.Location = New System.Drawing.Point(97, 34) + Me.cmbfonthtmloneliner.Name = "cmbfonthtmloneliner" + Me.cmbfonthtmloneliner.Size = New System.Drawing.Size(173, 21) + Me.cmbfonthtmloneliner.TabIndex = 733 + Me.cmbfonthtmloneliner.Text = "DVOT-Bhima" + ' + 'nsizehtmloneliner + ' + Me.nsizehtmloneliner.DecimalPlaces = 1 + Me.nsizehtmloneliner.Increment = New Decimal(New Integer() {5, 0, 0, 65536}) + Me.nsizehtmloneliner.Location = New System.Drawing.Point(96, 60) + Me.nsizehtmloneliner.Maximum = New Decimal(New Integer() {1000, 0, 0, 0}) + Me.nsizehtmloneliner.Name = "nsizehtmloneliner" + Me.nsizehtmloneliner.Size = New System.Drawing.Size(54, 20) + Me.nsizehtmloneliner.TabIndex = 729 + Me.nsizehtmloneliner.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'Label160 + ' + Me.Label160.AutoSize = True + Me.Label160.Location = New System.Drawing.Point(63, 37) + Me.Label160.Name = "Label160" + Me.Label160.Size = New System.Drawing.Size(28, 13) + Me.Label160.TabIndex = 732 + Me.Label160.Text = "Font" + ' + 'Label273 + ' + Me.Label273.AutoSize = True + Me.Label273.Location = New System.Drawing.Point(19, 43) + Me.Label273.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label273.Name = "Label273" + Me.Label273.Size = New System.Drawing.Size(76, 13) + Me.Label273.TabIndex = 720 + Me.Label273.Text = "Variable Name" + ' + 'cmbTemplateOneliner + ' + Me.cmbTemplateOneliner.FormattingEnabled = True + Me.cmbTemplateOneliner.Items.AddRange(New Object() {"cmp/oneliner/oneliner", "", "CMP/games2/cg/ONELINER", "CMP/games/cg/ONELINER", "CMP/election/rigional_language/onelinesuper/ONELINESUPER", "CMP/games/cricket/PLAYER_ID", "CMP/games/tt/PLAYER_ID", "CMP/cg_template/HEADLINES", "CMP/cg2/1LINE", "CMP/games/cricket/1LINE"}) + Me.cmbTemplateOneliner.Location = New System.Drawing.Point(205, 10) + Me.cmbTemplateOneliner.Name = "cmbTemplateOneliner" + Me.cmbTemplateOneliner.Size = New System.Drawing.Size(249, 21) + Me.cmbTemplateOneliner.TabIndex = 716 + Me.cmbTemplateOneliner.Text = "cmp/oneliner/oneliner" + ' + 'Label270 + ' + Me.Label270.AutoSize = True + Me.Label270.Location = New System.Drawing.Point(101, 13) + Me.Label270.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label270.Name = "Label270" + Me.Label270.Size = New System.Drawing.Size(102, 13) + Me.Label270.TabIndex = 714 + Me.Label270.Text = "Template for Onliner" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(465, 14) + Me.Label26.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(108, 13) + Me.Label26.TabIndex = 517 + Me.Label26.Text = "video layer-flash layer" + ' + 'cmblayeronelinesuper + ' + Me.cmblayeronelinesuper.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmblayeronelinesuper", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmblayeronelinesuper.FormattingEnabled = True + Me.cmblayeronelinesuper.Items.AddRange(New Object() {"61", "62", "63", "64", "65"}) + Me.cmblayeronelinesuper.Location = New System.Drawing.Point(581, 10) + Me.cmblayeronelinesuper.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmblayeronelinesuper.Name = "cmblayeronelinesuper" + Me.cmblayeronelinesuper.Size = New System.Drawing.Size(40, 21) + Me.cmblayeronelinesuper.TabIndex = 516 + Me.cmblayeronelinesuper.Text = "61" + ' + 'removetsoneliner + ' + Me.removetsoneliner.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.removetsoneliner.Image = Global.caspar_media_playback.My.Resources.Resources.minus + Me.removetsoneliner.Location = New System.Drawing.Point(289, 36) + Me.removetsoneliner.Name = "removetsoneliner" + Me.removetsoneliner.Size = New System.Drawing.Size(33, 22) + Me.removetsoneliner.TabIndex = 514 + Me.removetsoneliner.UseVisualStyleBackColor = True + ' + 'uptsoneliner + ' + Me.uptsoneliner.Image = CType(resources.GetObject("uptsoneliner.Image"), System.Drawing.Image) + Me.uptsoneliner.Location = New System.Drawing.Point(173, 36) + Me.uptsoneliner.Name = "uptsoneliner" + Me.uptsoneliner.Size = New System.Drawing.Size(28, 23) + Me.uptsoneliner.TabIndex = 512 + Me.uptsoneliner.UseVisualStyleBackColor = True + ' + 'downtsoneliner + ' + Me.downtsoneliner.Image = CType(resources.GetObject("downtsoneliner.Image"), System.Drawing.Image) + Me.downtsoneliner.Location = New System.Drawing.Point(205, 36) + Me.downtsoneliner.Name = "downtsoneliner" + Me.downtsoneliner.Size = New System.Drawing.Size(36, 23) + Me.downtsoneliner.TabIndex = 513 + Me.downtsoneliner.UseVisualStyleBackColor = True + ' + 'addtsoneliner + ' + Me.addtsoneliner.Image = CType(resources.GetObject("addtsoneliner.Image"), System.Drawing.Image) + Me.addtsoneliner.Location = New System.Drawing.Point(242, 36) + Me.addtsoneliner.Name = "addtsoneliner" + Me.addtsoneliner.Size = New System.Drawing.Size(41, 23) + Me.addtsoneliner.TabIndex = 511 + Me.addtsoneliner.UseVisualStyleBackColor = True + ' + 'dgvonelinesuper + ' + Me.dgvonelinesuper.AllowDrop = True + Me.dgvonelinesuper.AllowUserToOrderColumns = True + DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.dgvonelinesuper.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 + Me.dgvonelinesuper.BackgroundColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvonelinesuper.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6 + Me.dgvonelinesuper.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvonelinesuper.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn3, Me.colTranslate}) + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvonelinesuper.DefaultCellStyle = DataGridViewCellStyle8 + Me.dgvonelinesuper.Location = New System.Drawing.Point(5, 64) + Me.dgvonelinesuper.MultiSelect = False + Me.dgvonelinesuper.Name = "dgvonelinesuper" + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvonelinesuper.RowHeadersDefaultCellStyle = DataGridViewCellStyle9 + Me.dgvonelinesuper.RowHeadersWidth = 25 + Me.dgvonelinesuper.Size = New System.Drawing.Size(547, 187) + Me.dgvonelinesuper.TabIndex = 510 + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.Frozen = True + Me.DataGridViewTextBoxColumn3.HeaderText = "Oneline Super" + Me.DataGridViewTextBoxColumn3.MinimumWidth = 400 + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewTextBoxColumn3.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn3.Width = 400 + ' + 'colTranslate + ' + DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.colTranslate.DefaultCellStyle = DataGridViewCellStyle7 + Me.colTranslate.HeaderText = "Translate This" + Me.colTranslate.Name = "colTranslate" + Me.colTranslate.Text = "Translate This" + Me.colTranslate.ToolTipText = "Translate ony This Line" + Me.colTranslate.UseColumnTextForButtonValue = True + ' + 'cmdonelinesuperplay + ' + Me.cmdonelinesuperplay.BackColor = System.Drawing.Color.Green + Me.cmdonelinesuperplay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdonelinesuperplay.ForeColor = System.Drawing.Color.White + Me.cmdonelinesuperplay.Location = New System.Drawing.Point(328, 33) + Me.cmdonelinesuperplay.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdonelinesuperplay.Name = "cmdonelinesuperplay" + Me.cmdonelinesuperplay.Size = New System.Drawing.Size(58, 30) + Me.cmdonelinesuperplay.TabIndex = 507 + Me.cmdonelinesuperplay.Text = "Play" + Me.cmdonelinesuperplay.UseVisualStyleBackColor = False + ' + 'cmdonelinesupernext + ' + Me.cmdonelinesupernext.BackColor = System.Drawing.Color.Yellow + Me.cmdonelinesupernext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdonelinesupernext.Location = New System.Drawing.Point(387, 33) + Me.cmdonelinesupernext.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdonelinesupernext.Name = "cmdonelinesupernext" + Me.cmdonelinesupernext.Size = New System.Drawing.Size(75, 30) + Me.cmdonelinesupernext.TabIndex = 509 + Me.cmdonelinesupernext.Text = "Next Step" + Me.cmdonelinesupernext.UseVisualStyleBackColor = False + ' + 'cmdonelinesuperstop + ' + Me.cmdonelinesuperstop.BackColor = System.Drawing.Color.Red + Me.cmdonelinesuperstop.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdonelinesuperstop.ForeColor = System.Drawing.Color.White + Me.cmdonelinesuperstop.Location = New System.Drawing.Point(461, 33) + Me.cmdonelinesuperstop.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdonelinesuperstop.Name = "cmdonelinesuperstop" + Me.cmdonelinesuperstop.Size = New System.Drawing.Size(46, 30) + Me.cmdonelinesuperstop.TabIndex = 508 + Me.cmdonelinesuperstop.Text = "Stop" + Me.cmdonelinesuperstop.UseVisualStyleBackColor = False + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.Frozen = True + Me.DataGridViewTextBoxColumn2.HeaderText = "Oneline Super" + Me.DataGridViewTextBoxColumn2.MinimumWidth = 600 + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewTextBoxColumn2.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn2.Width = 600 + ' + 'ucOneLiner + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(668, 612) + Me.Controls.Add(Me.gboneliner) + Me.HideOnClose = True + Me.Name = "ucOneLiner" + Me.Text = "OneLiner" + Me.gboneliner.ResumeLayout(False) + Me.gboneliner.PerformLayout() + CType(Me.dgvonelinesuperTranslated, System.ComponentModel.ISupportInitialize).EndInit() + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.Strip.ResumeLayout(False) + Me.Strip.PerformLayout() + CType(Me.nheighthtmloneliner, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nyhtmloneliner, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nyhtmltextoneliner, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nsizehtmloneliner, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvonelinesuper, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gboneliner As System.Windows.Forms.GroupBox + Friend WithEvents Label273 As System.Windows.Forms.Label + Friend WithEvents cmbTemplateOneliner As System.Windows.Forms.ComboBox + Friend WithEvents Label270 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents cmblayeronelinesuper As System.Windows.Forms.ComboBox + Friend WithEvents removetsoneliner As System.Windows.Forms.Button + Friend WithEvents uptsoneliner As System.Windows.Forms.Button + Friend WithEvents downtsoneliner As System.Windows.Forms.Button + Friend WithEvents addtsoneliner As System.Windows.Forms.Button + Friend WithEvents dgvonelinesuper As System.Windows.Forms.DataGridView + Friend WithEvents cmdonelinesuperplay As System.Windows.Forms.Button + Friend WithEvents cmdonelinesupernext As System.Windows.Forms.Button + Friend WithEvents cmdonelinesuperstop As System.Windows.Forms.Button + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents cmdonelinesuperplayhtml As Button + Friend WithEvents cmdonelinesuperstophtml As Button + Friend WithEvents chkbase64htmloneliner As CheckBox + Friend WithEvents nyhtmltextoneliner As NumericUpDown + Friend WithEvents Label190 As Label + Friend WithEvents Label157 As Label + Friend WithEvents cmbfonthtmloneliner As ComboBox + Friend WithEvents nsizehtmloneliner As NumericUpDown + Friend WithEvents Label160 As Label + Friend WithEvents Label163 As Label + Friend WithEvents nyhtmloneliner As NumericUpDown + Friend WithEvents chkBold As CheckBox + Friend WithEvents chkitalic As CheckBox + Friend WithEvents Label1 As Label + Friend WithEvents cmdcolorhtmloneliner As Button + Friend WithEvents cmdstripcolorhtmloneliner As Button + Friend WithEvents Label162 As Label + Friend WithEvents Label2 As Label + Friend WithEvents nheighthtmloneliner As NumericUpDown + Friend WithEvents Strip As GroupBox + Friend WithEvents MenuStrip1 As MenuStrip + Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem + Friend WithEvents NewToolStripMenuItem As ToolStripMenuItem + Friend WithEvents OpenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SaveToolStripMenuItem As ToolStripMenuItem + Friend WithEvents EditToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CutToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CopyToolStripMenuItem As ToolStripMenuItem + Friend WithEvents PasteToolStripMenuItem As ToolStripMenuItem + Friend WithEvents txtvariable1 As TextBox + Friend WithEvents cmdTranslate As Button + Friend WithEvents dgvonelinesuperTranslated As DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn + Friend WithEvents Label3 As Label + Friend WithEvents cmblanguage As ComboBox + Friend WithEvents chkPlayFromTraslatedGrigFlash As CheckBox + Friend WithEvents chkPlayFromTraslatedGrigHTML As CheckBox + Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn + Friend WithEvents cmdGetLanguage As Button + Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn + Friend WithEvents colTranslate As DataGridViewButtonColumn +End Class diff --git a/CasparMediaPlayback/ucOneLiner.resx b/CasparMediaPlayback/ucOneLiner.resx new file mode 100644 index 0000000..0f7c3ea --- /dev/null +++ b/CasparMediaPlayback/ucOneLiner.resx @@ -0,0 +1,176 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + 743, 41 + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAA+klE + QVQ4T83RMWqEQBiG4a0EQRAEQRBEQRQERRsrSysbCytv4B3sPICVYOsVrDyCrVZiqTfQC3yB7JCNjFk2 + EsK+3cz8/9PMDX/Q/yBJkqDrOnI67ylSliVkWYZhGFjXldzS/Yj0fQ9FUT4RSZIQxzF5oTtFtm2D4zgH + RBRF1HVNJo6dIlmWQdM0ClFVFcuykKlHFNI0DXRdP0UEQUAURWTy0QGZpgmmaT5FeJ5HVVVk494Xsu87 + wjB8CeE4DuM4ks1vSJ7nsCzrZcT3fbJJkLZtYdv2rxCWZVEUxR2Z5xlBEFxCGIbBMAy4pWkK13UvI57n + 0V98pXdBgA8V7mE/Mzv3lQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABBElE + QVQ4T83RwapEYBjG8VmpKaWUUkqUKEVsrCytbCys3IF7sJsLsFK2bsHKJdiykiV3wA085xhfneMYkzPN + Yv4Lhff91dd3wRv6IMS2bVAUhev1CpqmwTAMWJYFx3HgeR6CIEAURciyDEVRoGkadF2HYRiwLAtRFOHS + NM3LiOu66Pt+Pc7tdnsJKctyPc79+Z3jOP9CkiQhm7+Qtm1PI57nYZ5nsvnndrIsO4V0XUc21nZX7Pv+ + U6QoCjL50w4ZhgGSJD1E4jgmU9t2yFKe5zvENE1M00Qmtj1EloIg2CB1XZM/+w6RcRyhquodSdOUfH3c + IbJUVRXCMCRvxz1FzvYGBPgCf+thP16YOusAAAAASUVORK5CYII= + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgFBgcGBQgHBgcJCAgJDBMMDAsLDBgREg4THBgdHRsYGxof + IywlHyEqIRobJjQnKi4vMTIxHiU2OjYwOiwwMTD/2wBDAQgJCQwKDBcMDBcwIBsgMDAwMDAwMDAwMDAw + MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDD/wAARCAARABEDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD17W9fgsopZJp4o0RWZFeQKZCozgZ61m+E/GEOtafDdI0cMzls + 23mhmABxnHX9KyPHvh2y1HdBqUJaSFZDaP5hQbmHHTryBWB8OPCyaZHbTXUAbXTvRmjlLrtJ446dO9dy + px5Dlc5cx67/AGlB6miqP9iP/wA9RRXPaHc2vMj8a/8AII/4FWb8P+s30ooraP8Au7MpfxUdhRRRXGdJ + /9k= + + + + True + + + True + + + 25 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucOneLiner.vb b/CasparMediaPlayback/ucOneLiner.vb new file mode 100644 index 0000000..3707874 --- /dev/null +++ b/CasparMediaPlayback/ucOneLiner.vb @@ -0,0 +1,425 @@ +Imports System.IO +Imports System.Net + +Imports Google.Cloud.Translation.V2 +Imports System +Public Class ucOneLiner + Dim client As TranslationClient + Sub newdgvoneliner() + On Error Resume Next + dgvonelinesuper.Rows.Clear() + dgvonelinesuper.Rows.Add(7) + Me.dgvonelinesuper.Columns(0).HeaderText = "new playlist" + End Sub + Private Sub opentsoneliner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + End Sub + Sub openfileoneliner() + On Error Resume Next + ofd2.InitialDirectory = "c:\casparcg\mydata\oneliner\" + ofd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + If (ofd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sr As StreamReader = New StreamReader(ofd2.FileName) + dgvonelinesuper.Rows.Clear() + Dim g As Integer = 0 + Dim li As String + Do Until sr.EndOfStream = True + li = sr.ReadLine() + dgvonelinesuper.Rows.Add() + Dim xyz As Array = Split(li, Chr(2)) + dgvonelinesuper.Rows(g).Cells(0).Value = xyz(0) + + g = g + 1 + Loop + sr.Close() + End Using + Me.dgvonelinesuper.Columns(0).HeaderText = ofd2.FileName + End If + End Sub + + Private Sub savetsoneliner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + Sub savefileoneliner() + + On Error Resume Next + + osd2.InitialDirectory = "c:\casparcg\mydata\oneliner\" + osd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + osd2.FileName = "" + If (osd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sw As StreamWriter = New StreamWriter(osd2.FileName) + If dgvonelinesuper.Rows.Count = 0 Then + sw.Write("") + Else + + Dim f As Integer = 0 + Do Until f = dgvonelinesuper.Rows.Count + + sw.WriteLine(dgvonelinesuper.Rows(f).Cells(0).Value & Chr(2)) + f = f + 1 + Loop + End If + sw.Close() + End Using + Me.dgvonelinesuper.Columns(0).HeaderText = osd2.FileName + End If + End Sub + + + Sub deletecliponeliner() + On Error Resume Next + dgvonelinesuper.Rows.RemoveAt(dgvonelinesuper.CurrentRow.Index) + End Sub + + Private Sub copytsoneliner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + Sub copyoneliner() + On Error Resume Next + tempRow = Me.dgvonelinesuper.CurrentRow + End Sub + Private Sub pasteoneliner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + + Sub insertcopiedoneliner() + On Error Resume Next + Dim curRow As Integer = Me.dgvonelinesuper.CurrentCell.RowIndex + dgvonelinesuper.Rows.Insert(dgvonelinesuper.CurrentRow.Index) + dgvonelinesuper.CurrentCell = dgvonelinesuper.Rows(curRow).Cells(0) + Me.dgvonelinesuper.Item(0, curRow).Value = tempRow.Cells(0).Value + Me.dgvonelinesuper.Item(1, curRow).Value = tempRow.Cells(1).Value + End Sub + + Private Sub uptsoneliner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uptsoneliner.Click + On Error Resume Next + clipmoveuponeliner() + End Sub + + + Private Sub downtsoneliner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles downtsoneliner.Click + On Error Resume Next + clipmovedownoneliner() + End Sub + Sub clipmovedownoneliner() + On Error Resume Next + If Me.dgvonelinesuper.CurrentCell.RowIndex <> dgvonelinesuper.Rows.Count - 2 Then + Dim curRow As Integer = Me.dgvonelinesuper.CurrentCell.RowIndex + Dim myRow As DataGridViewRow = Me.dgvonelinesuper.CurrentRow + Me.dgvonelinesuper.Rows.Remove(myRow) + Me.dgvonelinesuper.Rows.Insert(curRow + 1, myRow) + dgvonelinesuper.CurrentCell = dgvonelinesuper.Rows(curRow + 1).Cells(0) + + End If + End Sub + + Private Sub addtsoneliner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addtsoneliner.Click + On Error Resume Next + clipinsertoneliner() + End Sub + Sub clipinsertoneliner() + On Error Resume Next + dgvonelinesuper.Rows.Insert(dgvonelinesuper.CurrentRow.Index) + + End Sub + + Private Sub removetsoneliner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles removetsoneliner.Click + On Error Resume Next + deletecliponeliner() + End Sub + + + Sub clipmoveuponeliner() + On Error Resume Next + If Me.dgvonelinesuper.CurrentCell.RowIndex <> 0 Then + Dim curRow As Integer = Me.dgvonelinesuper.CurrentCell.RowIndex + Dim myRow As DataGridViewRow = Me.dgvonelinesuper.CurrentRow + Me.dgvonelinesuper.Rows.Remove(myRow) + Me.dgvonelinesuper.Rows.Insert(curRow - 1, myRow) + dgvonelinesuper.CurrentCell = dgvonelinesuper.Rows(curRow - 1).Cells(0) + End If + End Sub + + + Private Sub deletetsoneliner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + Private Sub cmdonelinesuperstop_Click(sender As Object, e As EventArgs) Handles cmdonelinesuperstop.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(Int(cmblayeronelinesuper.Text), Int(cmblayeronelinesuper.Text)) + + End Sub + Private Sub cmdonelinesupernext_Click(sender As Object, e As EventArgs) Handles cmdonelinesupernext.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Next(Int(cmblayeronelinesuper.Text), Int(cmblayeronelinesuper.Text)) + + End Sub + Private Sub cmdonelinesuperplay_Click(sender As Object, e As EventArgs) Handles cmdonelinesuperplay.Click + On Error Resume Next + CasparCGDataCollection.Clear() + If chkPlayFromTraslatedGrigFlash.Checked Then + Dim array() As Byte = System.Text.Encoding.UTF8.GetBytes(dgvonelinesuperTranslated.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("base64", System.Convert.ToBase64String(array)) + CasparCGDataCollection.SetData(txtvariable1.Text, dgvonelinesuperTranslated.CurrentRow.Cells(0).Value) + + Else + Dim array() As Byte = System.Text.Encoding.UTF8.GetBytes(dgvonelinesuper.CurrentRow.Cells(0).Value) + CasparCGDataCollection.SetData("base64", System.Convert.ToBase64String(array)) + CasparCGDataCollection.SetData(txtvariable1.Text, dgvonelinesuper.CurrentRow.Cells(0).Value) + End If + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayeronelinesuper.Text), Int(cmblayeronelinesuper.Text), (cmbTemplateOneliner.Text), True, CasparCGDataCollection.ToAMCPEscapedXml) + End Sub + + + Private Sub ucOneLiner_Load(sender As Object, e As EventArgs) Handles MyBase.Load + initialiseonelinerdata() + enumeratefontsforall() + + System.Environment.SetEnvironmentVariable("GOOGLE_APPLICATION_CREDENTIALS", "C:\casparcg\mydata\GoogleTranslate\Quickstart-4d2796c29251.json") + client = TranslationClient.Create() + ListLanguageNames() + End Sub + Public Function ListLanguageNames() As IList(Of Language) + cmblanguage.Items.Clear() + Dim languages As IList(Of Language) + Try + languages = client.ListLanguages(target:="en") + For Each language In languages + cmblanguage.Items.Add(language.Code & " (" & language.Name & ")") + Next + Return languages + Catch ex As Exception + 'Return "" + End Try + + End Function + + + Sub enumeratefontsforall() + On Error Resume Next + Dim InstalledFonts As New Drawing.Text.InstalledFontCollection + Dim fontfamilies() As FontFamily = InstalledFonts.Families() + For Each fontFamily As FontFamily In fontfamilies + cmbfonthtmloneliner.Items.Add(fontFamily.Name) + Next + End Sub + Sub initialiseonelinerdata() + On Error Resume Next + dgvonelinesuper.Rows.Add(8) + dgvonelinesuperTranslated.Rows.Add(8) + Me.dgvonelinesuper.Item(0, 0).Value = "When nothing is sure, Everything is possible." + Me.dgvonelinesuper.Item(0, 1).Value = "People lie, Actions don't." + Me.dgvonelinesuper.Item(0, 2).Value = "Hurt me with the truth but don't comfort me with a lie" + Me.dgvonelinesuper.Item(0, 3).Value = "When you start believing, it seems to happen." + Me.dgvonelinesuper.Item(0, 4).Value = "The best apology Is Changed Behavior." + Me.dgvonelinesuper.Item(0, 5).Value = "our mind knows everything, you learn to ask." + End Sub + + Private Sub cmdhidegboneliner_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub + Private Sub cmdonelinesuperstophtml_Click(sender As Object, e As EventArgs) Handles cmdonelinesuperstophtml.Click + On Error Resume Next + CasparDevice.SendString("stop " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text)) + + End Sub + + Function replacestring(str As String) As String + str = Replace(str, " ", Chr(2)) + str = Replace(str, "\", Chr(5)) + Return str + End Function + Private Sub cmdonelinesuperplayhtml_Click(sender As Object, e As EventArgs) Handles cmdonelinesuperplayhtml.Click + On Error Resume Next + + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " [HTML] " & """" & "file:///C:/casparcg/mydata/html/oneliner.html" & """") + + If chkPlayFromTraslatedGrigHTML.Checked Then + If chkbase64htmloneliner.Checked Then + Dim array() As Byte = System.Text.Encoding.UTF8.GetBytes((replacestring(dgvonelinesuperTranslated.CurrentRow.Cells(0).Value))) + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " marqueedatabase64('" & System.Convert.ToBase64String(array) & "')") + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " marqueedata('" & (replacestring1(dgvonelinesuperTranslated.CurrentRow.Cells(0).Value)) & "')") + End If + Else + If chkbase64htmloneliner.Checked Then + Dim array() As Byte = System.Text.Encoding.UTF8.GetBytes((replacestring(dgvonelinesuper.CurrentRow.Cells(0).Value))) + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " marqueedatabase64('" & System.Convert.ToBase64String(array) & "')") + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " marqueedata('" & (replacestring1(dgvonelinesuper.CurrentRow.Cells(0).Value)) & "')") + End If + End If + + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " stripy('" & nyhtmloneliner.Value & "%')") + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " Tickery('" & nyhtmltextoneliner.Value & "%')") + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " fontsize('" & nsizehtmloneliner.Value & "')") + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " font('" & Replace(cmbfonthtmloneliner.Text, " ", Chr(2)) & "')") + + If chkitalic.Checked Then + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " fontitalic('" & "italic" & "')") + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " fontitalic('" & "normal" & "')") + End If + + If chkBold.Checked Then + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " fontbold('" & "bold" & "')") + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " fontbold('" & "normal" & "')") + End If + + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " fontcolor('" & ColorTranslator.ToHtml(cmdstripcolorhtmloneliner.ForeColor) & "')") + + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " stripcolor('" & ColorTranslator.ToHtml(cmdstripcolorhtmloneliner.BackColor) & "')") + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " stripheight('" & nheighthtmloneliner.Value & "')") + + End Sub + + Private Sub nyhtmloneliner_ValueChanged(sender As Object, e As EventArgs) Handles nyhtmloneliner.ValueChanged + On Error Resume Next + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " stripy('" & nyhtmloneliner.Value & "%')") + + End Sub + + Private Sub nyhtmltextoneliner_ValueChanged(sender As Object, e As EventArgs) Handles nyhtmltextoneliner.ValueChanged + On Error Resume Next + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " Tickery('" & nyhtmltextoneliner.Value & "%')") + + End Sub + + Private Sub nsizehtmloneliner_ValueChanged(sender As Object, e As EventArgs) Handles nsizehtmloneliner.ValueChanged + On Error Resume Next + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " fontsize('" & nsizehtmloneliner.Value & "')") + + + End Sub + + Private Sub cmbfonthtmloneliner_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbfonthtmloneliner.SelectedIndexChanged + On Error Resume Next + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " font('" & Replace(cmbfonthtmloneliner.Text, " ", Chr(2)) & "')") + + End Sub + + Private Sub chkitalic_CheckedChanged(sender As Object, e As EventArgs) Handles chkitalic.CheckedChanged + On Error Resume Next + If chkitalic.Checked Then + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " fontitalic('" & "italic" & "')") + + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " fontitalic('" & "normal" & "')") + + End If + + End Sub + + Private Sub chkBold_CheckedChanged(sender As Object, e As EventArgs) Handles chkBold.CheckedChanged + On Error Resume Next + If chkBold.Checked Then + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " fontbold('" & "bold" & "')") + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " fontbold('" & "normal" & "')") + End If + End Sub + + Private Sub cmdcolorhtmloneliner_Click(sender As Object, e As EventArgs) Handles cmdcolorhtmloneliner.Click + On Error Resume Next + + Dim aa As New ColorDialog + If (aa.ShowDialog() = Windows.Forms.DialogResult.OK) Then + cmdcolorhtmloneliner.ForeColor = aa.Color + cmdstripcolorhtmloneliner.ForeColor = aa.Color + + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " fontcolor('" & ColorTranslator.ToHtml(cmdstripcolorhtmloneliner.ForeColor) & "')") + End If + End Sub + + Private Sub cmdstripcolorhtmloneliner_Click(sender As Object, e As EventArgs) Handles cmdstripcolorhtmloneliner.Click + On Error Resume Next + + Dim aa As New ColorDialog + If (aa.ShowDialog() = Windows.Forms.DialogResult.OK) Then + cmdcolorhtmloneliner.BackColor = aa.Color + cmdstripcolorhtmloneliner.BackColor = aa.Color + + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " stripcolor('" & ColorTranslator.ToHtml(cmdstripcolorhtmloneliner.BackColor) & "')") + End If + End Sub + + Private Sub nheighthtmloneliner_ValueChanged(sender As Object, e As EventArgs) Handles nheighthtmloneliner.ValueChanged + On Error Resume Next + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " stripheight('" & nheighthtmloneliner.Value & "')") + + End Sub + + Private Sub chkbase64htmloneliner_CheckedChanged(sender As Object, e As EventArgs) Handles chkbase64htmloneliner.CheckedChanged + On Error Resume Next + If chkbase64htmloneliner.Checked Then + Dim array() As Byte = System.Text.Encoding.UTF8.GetBytes(dgvonelinesuper.CurrentRow.Cells(0).Value) + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " marqueedatabase64('" & System.Convert.ToBase64String(array) & "')") + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & Int(cmblayeronelinesuper.Text) & " marqueedata('" & WebUtility.HtmlEncode(dgvonelinesuper.CurrentRow.Cells(0).Value) & "')") + End If + End Sub + + Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click + On Error Resume Next + newdgvoneliner() + End Sub + + Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click + On Error Resume Next + openfileoneliner() + End Sub + + Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click + On Error Resume Next + savefileoneliner() + End Sub + + Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click + On Error Resume Next + deletecliponeliner() + End Sub + + Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click + On Error Resume Next + copyoneliner() + End Sub + + Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click + insertcopiedoneliner() + End Sub + + Private Sub MenuStrip1_MouseHover(sender As Object, e As EventArgs) Handles MenuStrip1.MouseHover + MakeMenuDropDownWhenParrented(sender) + End Sub + + Private Async Sub cmdTranslate_Click(sender As Object, e As EventArgs) Handles cmdTranslate.Click + dgvonelinesuperTranslated.Rows.Clear() + dgvonelinesuperTranslated.Rows.Add(dgvonelinesuper.RowCount) + Try + For i = 0 To dgvonelinesuper.RowCount - 1 + dgvonelinesuperTranslated.Rows(i).Cells(0).Value = Await translate(dgvonelinesuper.Rows(i).Cells(0).Value) + Next + Catch ex As Exception + End Try + End Sub + Async Function translate(bb As String) As Threading.Tasks.Task(Of String) + Dim aa As String = (Await client.TranslateTextAsync(bb, Split(cmblanguage.Text, " ")(0))).TranslatedText + Return aa + End Function + + Private Sub cmdGetLanguage_Click(sender As Object, e As EventArgs) Handles cmdGetLanguage.Click + ListLanguageNames() + End Sub + + Private Async Sub dgvonelinesuper_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvonelinesuper.CellContentClick + Try + If dgvonelinesuper.Columns(e.ColumnIndex).Name = "colTranslate" Then + dgvonelinesuperTranslated.Rows(dgvonelinesuper.CurrentRow.Index).Cells(0).Value = Await translate(dgvonelinesuper.CurrentRow.Cells(0).Value) + End If + Catch ex As Exception + + End Try + End Sub +End Class diff --git a/CasparMediaPlayback/ucPlayFromAnyWhere.Designer.vb b/CasparMediaPlayback/ucPlayFromAnyWhere.Designer.vb new file mode 100644 index 0000000..39520de --- /dev/null +++ b/CasparMediaPlayback/ucPlayFromAnyWhere.Designer.vb @@ -0,0 +1,158 @@ + _ +Partial Class ucPlayFromAnyWhere + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.lblFileName = New System.Windows.Forms.Label() + Me.cmdPlayFromAnywhere = New System.Windows.Forms.Button() + Me.cmdRefresh = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.cmdCue = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.chkloop = New System.Windows.Forms.CheckBox() + Me.cmdOpenFromAnyWhere = New System.Windows.Forms.Button() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.cmdfileinfo = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'lblFileName + ' + Me.lblFileName.Location = New System.Drawing.Point(12, 5) + Me.lblFileName.Name = "lblFileName" + Me.lblFileName.Size = New System.Drawing.Size(309, 48) + Me.lblFileName.TabIndex = 0 + Me.lblFileName.Text = "FileName" + ' + 'cmdPlayFromAnywhere + ' + Me.cmdPlayFromAnywhere.BackColor = System.Drawing.Color.Green + Me.cmdPlayFromAnywhere.ForeColor = System.Drawing.Color.White + Me.cmdPlayFromAnywhere.Location = New System.Drawing.Point(510, 1) + Me.cmdPlayFromAnywhere.Name = "cmdPlayFromAnywhere" + Me.cmdPlayFromAnywhere.Size = New System.Drawing.Size(60, 23) + Me.cmdPlayFromAnywhere.TabIndex = 2 + Me.cmdPlayFromAnywhere.Text = "Play" + Me.cmdPlayFromAnywhere.UseVisualStyleBackColor = False + ' + 'cmdRefresh + ' + Me.cmdRefresh.Location = New System.Drawing.Point(4, 52) + Me.cmdRefresh.Name = "cmdRefresh" + Me.cmdRefresh.Size = New System.Drawing.Size(60, 23) + Me.cmdRefresh.TabIndex = 3 + Me.cmdRefresh.Text = "Refresh" + Me.cmdRefresh.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(331, 27) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(268, 26) + Me.Label1.TabIndex = 4 + Me.Label1.Text = "For Scrubbing Go to ""Playlist Setting"" module and" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Deselect check box ""send file " & + "name without extension""" + ' + 'cmdCue + ' + Me.cmdCue.Location = New System.Drawing.Point(451, 1) + Me.cmdCue.Name = "cmdCue" + Me.cmdCue.Size = New System.Drawing.Size(56, 23) + Me.cmdCue.TabIndex = 713 + Me.cmdCue.Text = "Cue" + Me.cmdCue.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(67, 57) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(492, 13) + Me.Label2.TabIndex = 714 + Me.Label2.Text = "Files in root drives are not shown in This Explorer. For this, right button can " & + "be used." + ' + 'chkloop + ' + Me.chkloop.AutoSize = True + Me.chkloop.Location = New System.Drawing.Point(573, 5) + Me.chkloop.Name = "chkloop" + Me.chkloop.Size = New System.Drawing.Size(50, 17) + Me.chkloop.TabIndex = 715 + Me.chkloop.Text = "Loop" + Me.chkloop.UseVisualStyleBackColor = True + ' + 'cmdOpenFromAnyWhere + ' + Me.cmdOpenFromAnyWhere.Location = New System.Drawing.Point(520, 73) + Me.cmdOpenFromAnyWhere.Name = "cmdOpenFromAnyWhere" + Me.cmdOpenFromAnyWhere.Size = New System.Drawing.Size(134, 23) + Me.cmdOpenFromAnyWhere.TabIndex = 716 + Me.cmdOpenFromAnyWhere.Text = "Open From Any Where" + Me.ToolTip1.SetToolTip(Me.cmdOpenFromAnyWhere, "Open From Any Where") + Me.cmdOpenFromAnyWhere.UseVisualStyleBackColor = True + ' + 'cmdfileinfo + ' + Me.cmdfileinfo.Location = New System.Drawing.Point(327, 1) + Me.cmdfileinfo.Name = "cmdfileinfo" + Me.cmdfileinfo.Size = New System.Drawing.Size(121, 23) + Me.cmdfileinfo.TabIndex = 717 + Me.cmdfileinfo.Text = "Show File Information" + Me.cmdfileinfo.UseVisualStyleBackColor = True + ' + 'ucPlayFromAnyWhere + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.LightSalmon + Me.ClientSize = New System.Drawing.Size(662, 623) + Me.Controls.Add(Me.cmdfileinfo) + Me.Controls.Add(Me.cmdOpenFromAnyWhere) + Me.Controls.Add(Me.chkloop) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.cmdCue) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.cmdRefresh) + Me.Controls.Add(Me.cmdPlayFromAnywhere) + Me.Controls.Add(Me.lblFileName) + Me.HideOnClose = True + Me.Name = "ucPlayFromAnyWhere" + Me.Text = "Play From Anywhere" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lblFileName As System.Windows.Forms.Label + Friend WithEvents cmdPlayFromAnywhere As System.Windows.Forms.Button + Friend WithEvents cmdRefresh As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents cmdCue As System.Windows.Forms.Button + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents chkloop As System.Windows.Forms.CheckBox + Friend WithEvents cmdOpenFromAnyWhere As System.Windows.Forms.Button + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents cmdfileinfo As Button +End Class diff --git a/CasparMediaPlayback/ucPlayFromAnyWhere.resx b/CasparMediaPlayback/ucPlayFromAnyWhere.resx new file mode 100644 index 0000000..89ddf5c --- /dev/null +++ b/CasparMediaPlayback/ucPlayFromAnyWhere.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucPlayFromAnyWhere.vb b/CasparMediaPlayback/ucPlayFromAnyWhere.vb new file mode 100644 index 0000000..d2e89bd --- /dev/null +++ b/CasparMediaPlayback/ucPlayFromAnyWhere.vb @@ -0,0 +1,54 @@ +Imports MasaSam.Forms.Controls +Public Class ucPlayFromAnyWhere + Dim WithEvents aa As MasaSam.Forms.Controls.FileSystemTree + Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load + On Error Resume Next + addcontrol() + End Sub + Sub addcontrol() + On Error Resume Next + aa = New MasaSam.Forms.Controls.FileSystemTree + aa.Size = New Size(600, 450) + aa.Location = New Point(10, 100) + Me.Controls.Add(aa) + aa.Show() + End Sub + Private Sub aa_FileSelected(sender As Object, e As FileInfoEventArgs) Handles aa.FileSelected + On Error Resume Next + lblFileName.Text = Replace(Replace(aa.GetSelectedFiles(0).FullName, ":", ":\"), "\", "/") + End Sub + Private Sub cmdPlayFromAnywhere_Click(sender As Object, e As EventArgs) Handles cmdPlayFromAnywhere.Click + On Error Resume Next + If chkloop.Checked = False Then + 'SendString(NetStream, "Play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & lblFileName.Text & """" & vbCrLf) + CasparDevice.SendString("Play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & lblFileName.Text & """") + Else + 'SendString(NetStream, "Play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & lblFileName.Text & """" & " loop" & vbCrLf) + CasparDevice.SendString("Play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & lblFileName.Text & """" & " loop") + End If + End Sub + Private Sub cmdRefresh_Click(sender As Object, e As EventArgs) Handles cmdRefresh.Click + On Error Resume Next + Me.Controls.Remove(aa) + addcontrol() + End Sub + + Private Sub cmdCue_Click(sender As Object, e As EventArgs) Handles cmdCue.Click + On Error Resume Next + 'SendString(NetStream, "load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & lblFileName.Text & """" & vbCrLf) + CasparDevice.SendString("load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & lblFileName.Text & """") + End Sub + + Private Sub cmdOpenFromAnyWhere_Click(sender As Object, e As EventArgs) Handles cmdOpenFromAnyWhere.Click + On Error Resume Next + Dim aa As New OpenFileDialog + If aa.ShowDialog = DialogResult.OK Then + lblFileName.Text = Replace(Replace(aa.FileName, ":", ":\"), "\", "/") + End If + End Sub + + Private Sub cmdfileinfo_Click(sender As Object, e As EventArgs) Handles cmdfileinfo.Click + On Error Resume Next + showfileinformation(Replace(lblFileName.Text, "//", "/")) + End Sub +End Class diff --git a/CasparMediaPlayback/ucPlayers.designer.vb b/CasparMediaPlayback/ucPlayers.designer.vb new file mode 100644 index 0000000..4850005 --- /dev/null +++ b/CasparMediaPlayback/ucPlayers.designer.vb @@ -0,0 +1,293 @@ + _ +Partial Class ucPlayers + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.picflag = New System.Windows.Forms.PictureBox() + Me.picPhoto = New System.Windows.Forms.PictureBox() + Me.txtName = New System.Windows.Forms.TextBox() + Me.cmdShowID = New System.Windows.Forms.Button() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.TextBox3 = New System.Windows.Forms.TextBox() + Me.TextBox4 = New System.Windows.Forms.TextBox() + Me.TextBox5 = New System.Windows.Forms.TextBox() + Me.TextBox6 = New System.Windows.Forms.TextBox() + Me.TextBox7 = New System.Windows.Forms.TextBox() + Me.TextBox8 = New System.Windows.Forms.TextBox() + Me.txtdebut = New System.Windows.Forms.TextBox() + Me.txtsinglelosses = New System.Windows.Forms.TextBox() + Me.txtsinglewin = New System.Windows.Forms.TextBox() + Me.txtappearance = New System.Windows.Forms.TextBox() + Me.txtwr = New System.Windows.Forms.TextBox() + Me.txtweight = New System.Windows.Forms.TextBox() + Me.txtheight = New System.Windows.Forms.TextBox() + Me.txtage = New System.Windows.Forms.TextBox() + Me.txtCountry = New System.Windows.Forms.TextBox() + Me.cmdProfile = New System.Windows.Forms.Button() + CType(Me.picflag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picPhoto, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'picflag + ' + Me.picflag.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.picflag.ImageLocation = "C:\casparcg\mydata\games4\country\india.PNG" + Me.picflag.Location = New System.Drawing.Point(5, 52) + Me.picflag.Name = "picflag" + Me.picflag.Size = New System.Drawing.Size(30, 26) + Me.picflag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picflag.TabIndex = 442 + Me.picflag.TabStop = False + ' + 'picPhoto + ' + Me.picPhoto.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.picPhoto.ImageLocation = "C:\casparcg\mydata\games4\country\india.PNG" + Me.picPhoto.Location = New System.Drawing.Point(0, 0) + Me.picPhoto.Name = "picPhoto" + Me.picPhoto.Size = New System.Drawing.Size(55, 48) + Me.picPhoto.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.picPhoto.TabIndex = 443 + Me.picPhoto.TabStop = False + ' + 'txtName + ' + Me.txtName.Location = New System.Drawing.Point(45, 54) + Me.txtName.Name = "txtName" + Me.txtName.Size = New System.Drawing.Size(144, 20) + Me.txtName.TabIndex = 444 + Me.txtName.Text = "Name" + ' + 'cmdShowID + ' + Me.cmdShowID.Location = New System.Drawing.Point(61, 12) + Me.cmdShowID.Name = "cmdShowID" + Me.cmdShowID.Size = New System.Drawing.Size(47, 36) + Me.cmdShowID.TabIndex = 446 + Me.cmdShowID.Text = "ID" + Me.cmdShowID.UseVisualStyleBackColor = True + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(3, 106) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(88, 20) + Me.TextBox1.TabIndex = 447 + Me.TextBox1.Text = "Age" + ' + 'TextBox2 + ' + Me.TextBox2.Location = New System.Drawing.Point(3, 126) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(88, 20) + Me.TextBox2.TabIndex = 448 + Me.TextBox2.Text = "Height" + ' + 'TextBox3 + ' + Me.TextBox3.Location = New System.Drawing.Point(3, 170) + Me.TextBox3.Name = "TextBox3" + Me.TextBox3.Size = New System.Drawing.Size(88, 20) + Me.TextBox3.TabIndex = 450 + Me.TextBox3.Text = "World Ranking" + ' + 'TextBox4 + ' + Me.TextBox4.Location = New System.Drawing.Point(3, 148) + Me.TextBox4.Name = "TextBox4" + Me.TextBox4.Size = New System.Drawing.Size(88, 20) + Me.TextBox4.TabIndex = 449 + Me.TextBox4.Text = "Weight " + ' + 'TextBox5 + ' + Me.TextBox5.Location = New System.Drawing.Point(3, 264) + Me.TextBox5.Name = "TextBox5" + Me.TextBox5.Size = New System.Drawing.Size(88, 20) + Me.TextBox5.TabIndex = 454 + Me.TextBox5.Text = "Debut" + ' + 'TextBox6 + ' + Me.TextBox6.Location = New System.Drawing.Point(3, 241) + Me.TextBox6.Name = "TextBox6" + Me.TextBox6.Size = New System.Drawing.Size(88, 20) + Me.TextBox6.TabIndex = 453 + Me.TextBox6.Text = "Singles losses" + ' + 'TextBox7 + ' + Me.TextBox7.Location = New System.Drawing.Point(3, 217) + Me.TextBox7.Name = "TextBox7" + Me.TextBox7.Size = New System.Drawing.Size(88, 20) + Me.TextBox7.TabIndex = 452 + Me.TextBox7.Text = "Singles wins" + ' + 'TextBox8 + ' + Me.TextBox8.Location = New System.Drawing.Point(3, 193) + Me.TextBox8.Name = "TextBox8" + Me.TextBox8.Size = New System.Drawing.Size(88, 20) + Me.TextBox8.TabIndex = 451 + Me.TextBox8.Text = "Appearances " + ' + 'txtdebut + ' + Me.txtdebut.Location = New System.Drawing.Point(94, 264) + Me.txtdebut.Name = "txtdebut" + Me.txtdebut.Size = New System.Drawing.Size(88, 20) + Me.txtdebut.TabIndex = 463 + Me.txtdebut.Text = "Debut" + ' + 'txtsinglelosses + ' + Me.txtsinglelosses.Location = New System.Drawing.Point(94, 241) + Me.txtsinglelosses.Name = "txtsinglelosses" + Me.txtsinglelosses.Size = New System.Drawing.Size(88, 20) + Me.txtsinglelosses.TabIndex = 462 + Me.txtsinglelosses.Text = "Singles losses" + ' + 'txtsinglewin + ' + Me.txtsinglewin.Location = New System.Drawing.Point(94, 217) + Me.txtsinglewin.Name = "txtsinglewin" + Me.txtsinglewin.Size = New System.Drawing.Size(88, 20) + Me.txtsinglewin.TabIndex = 461 + Me.txtsinglewin.Text = "Singles wins" + ' + 'txtappearance + ' + Me.txtappearance.Location = New System.Drawing.Point(94, 193) + Me.txtappearance.Name = "txtappearance" + Me.txtappearance.Size = New System.Drawing.Size(88, 20) + Me.txtappearance.TabIndex = 460 + Me.txtappearance.Text = "Appearances " + ' + 'txtwr + ' + Me.txtwr.Location = New System.Drawing.Point(94, 170) + Me.txtwr.Name = "txtwr" + Me.txtwr.Size = New System.Drawing.Size(88, 20) + Me.txtwr.TabIndex = 459 + Me.txtwr.Text = "World Ranking" + ' + 'txtweight + ' + Me.txtweight.Location = New System.Drawing.Point(94, 148) + Me.txtweight.Name = "txtweight" + Me.txtweight.Size = New System.Drawing.Size(88, 20) + Me.txtweight.TabIndex = 458 + Me.txtweight.Text = "Weight " + ' + 'txtheight + ' + Me.txtheight.Location = New System.Drawing.Point(94, 126) + Me.txtheight.Name = "txtheight" + Me.txtheight.Size = New System.Drawing.Size(88, 20) + Me.txtheight.TabIndex = 457 + Me.txtheight.Text = "Height" + ' + 'txtage + ' + Me.txtage.Location = New System.Drawing.Point(94, 106) + Me.txtage.Name = "txtage" + Me.txtage.Size = New System.Drawing.Size(88, 20) + Me.txtage.TabIndex = 456 + Me.txtage.Text = "Age" + ' + 'txtCountry + ' + Me.txtCountry.Location = New System.Drawing.Point(0, 82) + Me.txtCountry.Name = "txtCountry" + Me.txtCountry.Size = New System.Drawing.Size(92, 20) + Me.txtCountry.TabIndex = 445 + Me.txtCountry.Text = "Nation" + ' + 'cmdProfile + ' + Me.cmdProfile.Location = New System.Drawing.Point(110, 19) + Me.cmdProfile.Name = "cmdProfile" + Me.cmdProfile.Size = New System.Drawing.Size(67, 29) + Me.cmdProfile.TabIndex = 464 + Me.cmdProfile.Text = "Profile" + Me.cmdProfile.UseVisualStyleBackColor = True + ' + 'ucPlayers + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.PaleGreen + Me.Controls.Add(Me.cmdProfile) + Me.Controls.Add(Me.txtdebut) + Me.Controls.Add(Me.txtsinglelosses) + Me.Controls.Add(Me.txtsinglewin) + Me.Controls.Add(Me.txtappearance) + Me.Controls.Add(Me.txtwr) + Me.Controls.Add(Me.txtweight) + Me.Controls.Add(Me.txtheight) + Me.Controls.Add(Me.txtage) + Me.Controls.Add(Me.TextBox5) + Me.Controls.Add(Me.TextBox6) + Me.Controls.Add(Me.TextBox7) + Me.Controls.Add(Me.TextBox8) + Me.Controls.Add(Me.TextBox3) + Me.Controls.Add(Me.TextBox4) + Me.Controls.Add(Me.TextBox2) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.cmdShowID) + Me.Controls.Add(Me.txtCountry) + Me.Controls.Add(Me.txtName) + Me.Controls.Add(Me.picPhoto) + Me.Controls.Add(Me.picflag) + Me.Name = "ucPlayers" + Me.Size = New System.Drawing.Size(188, 292) + CType(Me.picflag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picPhoto, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents picflag As PictureBox + Friend WithEvents picPhoto As PictureBox + Friend WithEvents txtName As TextBox + Friend WithEvents cmdShowID As Button + Friend WithEvents TextBox1 As TextBox + Friend WithEvents TextBox2 As TextBox + Friend WithEvents TextBox3 As TextBox + Friend WithEvents TextBox4 As TextBox + Friend WithEvents TextBox5 As TextBox + Friend WithEvents TextBox6 As TextBox + Friend WithEvents TextBox7 As TextBox + Friend WithEvents TextBox8 As TextBox + Friend WithEvents txtdebut As TextBox + Friend WithEvents txtsinglelosses As TextBox + Friend WithEvents txtsinglewin As TextBox + Friend WithEvents txtappearance As TextBox + Friend WithEvents txtwr As TextBox + Friend WithEvents txtweight As TextBox + Friend WithEvents txtheight As TextBox + Friend WithEvents txtage As TextBox + Friend WithEvents txtCountry As TextBox + Friend WithEvents cmdProfile As Button +End Class diff --git a/CasparMediaPlayback/ucPlayers.resx b/CasparMediaPlayback/ucPlayers.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/CasparMediaPlayback/ucPlayers.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucPlayers.vb b/CasparMediaPlayback/ucPlayers.vb new file mode 100644 index 0000000..d80390d --- /dev/null +++ b/CasparMediaPlayback/ucPlayers.vb @@ -0,0 +1,68 @@ + +Public Class ucPlayers + Private Sub picPhoto_Click(sender As Object, e As EventArgs) Handles picPhoto.Click + On Error Resume Next + Dim aa As New OpenFileDialog + aa.InitialDirectory = "c:\casparcg\mydata\games4\player\" + If aa.ShowDialog = Windows.Forms.DialogResult.OK Then + sender.ImageLocation = aa.FileName + txtName.Text = UCase(Split(aa.SafeFileName, ".")(0)) + txtName.Tag = aa.FileName + aa.Dispose() + End If + End Sub + Private Sub picflag_Click(sender As Object, e As EventArgs) Handles picflag.Click + On Error Resume Next + Dim aa As New OpenFileDialog + aa.InitialDirectory = "c:\casparcg\mydata\games4\country\" + If aa.ShowDialog = Windows.Forms.DialogResult.OK Then + sender.ImageLocation = aa.FileName + txtCountry.Text = UCase(Split(aa.SafeFileName, ".")(0)) + txtCountry.Tag = aa.FileName + aa.Dispose() + End If + End Sub + Private Sub ucPlayers_Load(sender As Object, e As EventArgs) Handles MyBase.Load + End Sub + Sub openlogoandcountryfullnamesg1(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal txt As TextBox) + On Error Resume Next + Dim aa As New OpenFileDialog + aa.InitialDirectory = "c:\casparcg\mydata\games4\player\" + If aa.ShowDialog = Windows.Forms.DialogResult.OK Then + sender.ImageLocation = aa.FileName + txt.Text = UCase(Split(aa.SafeFileName, ".")(0)) + txt.Tag = aa.FileName + aa.Dispose() + End If + End Sub + Private Sub cmdShowID_Click(sender As Object, e As EventArgs) Handles cmdShowID.Click + On Error Resume Next + If ucdc.chkanimationzym.Checked Then ucdc.animation1() + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f1", txtName.Text) + CasparCGDataCollection.SetData("f2", txtCountry.Text) + CasparCGDataCollection.SetData("loader1", txtCountry.Tag) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(ucdc.cmblayergames.Text), Int(ucdc.cmblayergames.Text), "cmp/games4/davis_cup/dc_namestrap", True, CasparCGDataCollection.ToAMCPEscapedXml) + If ucdc.chkanimationzym.Checked Then ucdc.animationtoscreen() + End Sub + Private Sub cmdProfile_Click(sender As Object, e As EventArgs) Handles cmdProfile.Click + On Error Resume Next + If ucdc.chkanimationzym.Checked Then ucdc.animation1() + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", txtName.Text) + CasparCGDataCollection.SetData("f1", txtCountry.Text) + CasparCGDataCollection.SetData("f2", txtage.Text) + CasparCGDataCollection.SetData("f3", txtheight.Text) + CasparCGDataCollection.SetData("f4", txtweight.Text) + CasparCGDataCollection.SetData("f5", txtwr.Text) + CasparCGDataCollection.SetData("f6", txtappearance.Text) + CasparCGDataCollection.SetData("f7", txtsinglewin.Text) + CasparCGDataCollection.SetData("f8", txtsinglelosses.Text) + CasparCGDataCollection.SetData("f9", txtdebut.Text) + + CasparCGDataCollection.SetData("loader1", txtCountry.Tag) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(ucdc.cmblayergames.Text), Int(ucdc.cmblayergames.Text), "cmp/games4/davis_cup/dc_playerprofile", True, CasparCGDataCollection.ToAMCPEscapedXml) + If ucdc.chkanimationzym.Checked Then ucdc.animationtoscreen() + End Sub +End Class diff --git a/CasparMediaPlayback/ucPlaylist.Designer.vb b/CasparMediaPlayback/ucPlaylist.Designer.vb new file mode 100644 index 0000000..836b350 --- /dev/null +++ b/CasparMediaPlayback/ucPlaylist.Designer.vb @@ -0,0 +1,1667 @@ + +Partial Class ucPlaylist + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucPlaylist)) + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.gbplaylist = New System.Windows.Forms.GroupBox() + Me.chktemplatewithplaylist = New System.Windows.Forms.CheckBox() + Me.chkcheckfilesinplaylist = New System.Windows.Forms.CheckBox() + Me.chkshowthumbnail = New System.Windows.Forms.CheckBox() + Me.gbnowplaing = New System.Windows.Forms.GroupBox() + Me.txtbackin = New System.Windows.Forms.TextBox() + Me.cmdbackin = New System.Windows.Forms.Button() + Me.cmdstopnowplaying = New System.Windows.Forms.Button() + Me.txtcommingupnext = New System.Windows.Forms.TextBox() + Me.cmdnowplaying = New System.Windows.Forms.Button() + Me.cmdcommingupnext = New System.Windows.Forms.Button() + Me.cmdremainingdurationofplaylist = New System.Windows.Forms.Button() + Me.txtremaingdurationofplaylist = New System.Windows.Forms.TextBox() + Me.cmddurationofplaylist = New System.Windows.Forms.Button() + Me.txtdurationofplalist = New System.Windows.Forms.TextBox() + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SaveAsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.dgv1 = New System.Windows.Forms.DataGridView() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.StopF1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PlayToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.CueToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.PauseToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.ResumeToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.NextToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.PlayNextF6ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.InsertBlankToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DeleteToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.CopyToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.PasteToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.MoveUpToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.MoveDownToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.PlayInVLCToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CheckFilesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OpenInTrimmerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FileInformationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.InsertDecklinkToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.InsertDecklinkToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.InsertDecklinkToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.InsertDecklinkToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() + Me.InsertDecklinkToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() + Me.InsertDecklinkToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem() + Me.InsertDecklinkToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() + Me.InsertDecklinkToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() + Me.InsertDecklinkToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem() + Me.ShowLiveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ShowLiveToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.ShowLiveToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.ShowLiveToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() + Me.ShowLiveToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() + Me.ShowLiveToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem() + Me.ShowLiveToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() + Me.ShowLiveToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() + Me.ShowLiveToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem() + Me.RefreshThumbnailToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.InserEndToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DeSelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SetStartTimeAcoordingToCurrentRowToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.InserPlaylistToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.InsertFilterForIMXFile = New System.Windows.Forms.ToolStripMenuItem() + Me.ChangeAllTransitionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.MIXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.WIPEToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PUSHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SLIDEToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuPlayinffplay = New System.Windows.Forms.ToolStripMenuItem() + Me.txtfps = New System.Windows.Forms.TextBox() + Me.lblfps = New System.Windows.Forms.Label() + Me.Label75 = New System.Windows.Forms.Label() + Me.lblplalistname = New System.Windows.Forms.Label() + Me.cmddeleteclip = New System.Windows.Forms.Button() + Me.chkplaylistlock = New System.Windows.Forms.CheckBox() + Me.cmdmoveup = New System.Windows.Forms.Button() + Me.cmdmovedown = New System.Windows.Forms.Button() + Me.cmdinsert = New System.Windows.Forms.Button() + Me.cmdstartplaylist = New System.Windows.Forms.Button() + Me.btnstartattime = New System.Windows.Forms.Button() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.gbcliplist = New System.Windows.Forms.GroupBox() + Me.cmdSmallScreen = New System.Windows.Forms.Button() + Me.cmdFullScreen = New System.Windows.Forms.Button() + Me.lblsearch = New System.Windows.Forms.Label() + Me.Label237 = New System.Windows.Forms.Label() + Me.pbclipsearchstatus = New System.Windows.Forms.ProgressBar() + Me.cmdrefreshtvclips = New System.Windows.Forms.Button() + Me.tvclips = New System.Windows.Forms.TreeView() + Me.labelclips = New System.Windows.Forms.Label() + Me.chkclipduration = New System.Windows.Forms.CheckBox() + Me.dgvclips = New System.Windows.Forms.DataGridView() + Me.cmsdgvclips = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.CueInCsparcgToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PlayInCasparcgToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.FileInformationToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.cmdclipsearch = New System.Windows.Forms.Button() + Me.txtsearch = New System.Windows.Forms.TextBox() + Me.gbplayerforclipgrid = New System.Windows.Forms.GroupBox() + Me.cmdplaynextforclipgrid = New System.Windows.Forms.Button() + Me.cmdcuenextforclipgrid = New System.Windows.Forms.Button() + Me.cmdstopforclipgrid = New System.Windows.Forms.Button() + Me.cmdresumeforclipgrid = New System.Windows.Forms.Button() + Me.cmdforwardoneframeforclipgrid = New System.Windows.Forms.Button() + Me.cmdplayforclipgrid = New System.Windows.Forms.Button() + Me.cmdbackoneframeforclipgrid = New System.Windows.Forms.Button() + Me.cmdcueforclipgrid = New System.Windows.Forms.Button() + Me.cmdpauseforclipgrid = New System.Windows.Forms.Button() + Me.chkDeinterlace = New System.Windows.Forms.CheckBox() + Me.chkclipcountdown = New System.Windows.Forms.CheckBox() + Me.chknextcuefor2ndchannel = New System.Windows.Forms.CheckBox() + Me.Label220 = New System.Windows.Forms.Label() + Me.Label221 = New System.Windows.Forms.Label() + Me.Label222 = New System.Windows.Forms.Label() + Me.tmrduration = New System.Windows.Forms.Timer(Me.components) + Me.tmrnextclip = New System.Windows.Forms.Timer(Me.components) + Me.tmrclipcountdown = New System.Windows.Forms.Timer(Me.components) + Me.tmrfornotskiping = New System.Windows.Forms.Timer(Me.components) + Me.tmrcheckfilesinplaylist = New System.Windows.Forms.Timer(Me.components) + Me.tmrstartattime = New System.Windows.Forms.Timer(Me.components) + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.File_Name = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Start_Time = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.x = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.Clip_Duration = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Conversion = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.FileType = New System.Windows.Forms.DataGridViewComboBoxColumn() + Me.LoopVideo = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.Column3 = New System.Windows.Forms.DataGridViewImageColumn() + Me.Transition = New System.Windows.Forms.DataGridViewComboBoxColumn() + Me.T_Duration = New System.Windows.Forms.DataGridViewComboBoxColumn() + Me.Column11 = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.AudioLevel = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmFilter = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Template_File = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.BackIn = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.AMCPCommands = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.gbplaylist.SuspendLayout() + Me.gbnowplaing.SuspendLayout() + Me.MenuStrip1.SuspendLayout() + CType(Me.dgv1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.gbcliplist.SuspendLayout() + CType(Me.dgvclips, System.ComponentModel.ISupportInitialize).BeginInit() + Me.cmsdgvclips.SuspendLayout() + Me.gbplayerforclipgrid.SuspendLayout() + Me.SuspendLayout() + ' + 'gbplaylist + ' + Me.gbplaylist.BackColor = System.Drawing.Color.SkyBlue + Me.gbplaylist.Controls.Add(Me.chktemplatewithplaylist) + Me.gbplaylist.Controls.Add(Me.chkcheckfilesinplaylist) + Me.gbplaylist.Controls.Add(Me.chkshowthumbnail) + Me.gbplaylist.Controls.Add(Me.gbnowplaing) + Me.gbplaylist.Controls.Add(Me.cmdremainingdurationofplaylist) + Me.gbplaylist.Controls.Add(Me.txtremaingdurationofplaylist) + Me.gbplaylist.Controls.Add(Me.cmddurationofplaylist) + Me.gbplaylist.Controls.Add(Me.txtdurationofplalist) + Me.gbplaylist.Controls.Add(Me.MenuStrip1) + Me.gbplaylist.Controls.Add(Me.dgv1) + Me.gbplaylist.Controls.Add(Me.txtfps) + Me.gbplaylist.Controls.Add(Me.lblfps) + Me.gbplaylist.Controls.Add(Me.Label75) + Me.gbplaylist.Controls.Add(Me.lblplalistname) + Me.gbplaylist.Controls.Add(Me.cmddeleteclip) + Me.gbplaylist.Controls.Add(Me.chkplaylistlock) + Me.gbplaylist.Controls.Add(Me.cmdmoveup) + Me.gbplaylist.Controls.Add(Me.cmdmovedown) + Me.gbplaylist.Controls.Add(Me.cmdinsert) + Me.gbplaylist.Controls.Add(Me.cmdstartplaylist) + Me.gbplaylist.Controls.Add(Me.btnstartattime) + Me.gbplaylist.Controls.Add(Me.DateTimePicker1) + Me.gbplaylist.Controls.Add(Me.gbcliplist) + Me.gbplaylist.Location = New System.Drawing.Point(2, 2) + Me.gbplaylist.Name = "gbplaylist" + Me.gbplaylist.Size = New System.Drawing.Size(1220, 950) + Me.gbplaylist.TabIndex = 433 + Me.gbplaylist.TabStop = False + ' + 'chktemplatewithplaylist + ' + Me.chktemplatewithplaylist.AutoSize = True + Me.chktemplatewithplaylist.Location = New System.Drawing.Point(561, 12) + Me.chktemplatewithplaylist.Name = "chktemplatewithplaylist" + Me.chktemplatewithplaylist.Size = New System.Drawing.Size(150, 17) + Me.chktemplatewithplaylist.TabIndex = 1172 + Me.chktemplatewithplaylist.Text = "Play Template with Playlist" + Me.chktemplatewithplaylist.UseVisualStyleBackColor = True + ' + 'chkcheckfilesinplaylist + ' + Me.chkcheckfilesinplaylist.AutoSize = True + Me.chkcheckfilesinplaylist.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkcheckfilesinplaylist.Location = New System.Drawing.Point(728, 47) + Me.chkcheckfilesinplaylist.Name = "chkcheckfilesinplaylist" + Me.chkcheckfilesinplaylist.Size = New System.Drawing.Size(73, 16) + Me.chkcheckfilesinplaylist.TabIndex = 727 + Me.chkcheckfilesinplaylist.Text = "Check Files" + Me.ToolTip1.SetToolTip(Me.chkcheckfilesinplaylist, "Will check files on disk in interval of 10 second") + Me.chkcheckfilesinplaylist.UseVisualStyleBackColor = True + ' + 'chkshowthumbnail + ' + Me.chkshowthumbnail.AutoSize = True + Me.chkshowthumbnail.Checked = True + Me.chkshowthumbnail.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkshowthumbnail.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkshowthumbnail.Location = New System.Drawing.Point(728, 29) + Me.chkshowthumbnail.Name = "chkshowthumbnail" + Me.chkshowthumbnail.Size = New System.Drawing.Size(66, 16) + Me.chkshowthumbnail.TabIndex = 726 + Me.chkshowthumbnail.Text = "Thumbnail" + Me.ToolTip1.SetToolTip(Me.chkshowthumbnail, "Show or not Thumnail on open playlist") + Me.chkshowthumbnail.UseVisualStyleBackColor = True + ' + 'gbnowplaing + ' + Me.gbnowplaing.BackColor = System.Drawing.Color.DeepSkyBlue + Me.gbnowplaing.Controls.Add(Me.txtbackin) + Me.gbnowplaing.Controls.Add(Me.cmdbackin) + Me.gbnowplaing.Controls.Add(Me.cmdstopnowplaying) + Me.gbnowplaing.Controls.Add(Me.txtcommingupnext) + Me.gbnowplaing.Controls.Add(Me.cmdnowplaying) + Me.gbnowplaing.Controls.Add(Me.cmdcommingupnext) + Me.gbnowplaing.Location = New System.Drawing.Point(826, 0) + Me.gbnowplaing.Name = "gbnowplaing" + Me.gbnowplaing.Size = New System.Drawing.Size(170, 63) + Me.gbnowplaing.TabIndex = 724 + Me.gbnowplaing.TabStop = False + ' + 'txtbackin + ' + Me.txtbackin.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtbackin.Location = New System.Drawing.Point(131, 34) + Me.txtbackin.Name = "txtbackin" + Me.txtbackin.Size = New System.Drawing.Size(31, 18) + Me.txtbackin.TabIndex = 725 + Me.txtbackin.Text = "1" + Me.ToolTip1.SetToolTip(Me.txtbackin, "Clip Number in Playlist") + ' + 'cmdbackin + ' + Me.cmdbackin.BackColor = System.Drawing.SystemColors.Control + Me.cmdbackin.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdbackin.Location = New System.Drawing.Point(85, 33) + Me.cmdbackin.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdbackin.Name = "cmdbackin" + Me.cmdbackin.Size = New System.Drawing.Size(43, 21) + Me.cmdbackin.TabIndex = 724 + Me.cmdbackin.Text = "Back in" + Me.cmdbackin.UseVisualStyleBackColor = False + ' + 'cmdstopnowplaying + ' + Me.cmdstopnowplaying.BackColor = System.Drawing.SystemColors.Control + Me.cmdstopnowplaying.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdstopnowplaying.Location = New System.Drawing.Point(41, 12) + Me.cmdstopnowplaying.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdstopnowplaying.Name = "cmdstopnowplaying" + Me.cmdstopnowplaying.Size = New System.Drawing.Size(42, 22) + Me.cmdstopnowplaying.TabIndex = 723 + Me.cmdstopnowplaying.Text = "Stop" + Me.cmdstopnowplaying.UseVisualStyleBackColor = False + ' + 'txtcommingupnext + ' + Me.txtcommingupnext.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtcommingupnext.Location = New System.Drawing.Point(49, 35) + Me.txtcommingupnext.Name = "txtcommingupnext" + Me.txtcommingupnext.Size = New System.Drawing.Size(31, 18) + Me.txtcommingupnext.TabIndex = 722 + Me.txtcommingupnext.Text = "1" + Me.ToolTip1.SetToolTip(Me.txtcommingupnext, "Clip Number in Playlist") + ' + 'cmdnowplaying + ' + Me.cmdnowplaying.BackColor = System.Drawing.SystemColors.Control + Me.cmdnowplaying.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdnowplaying.Location = New System.Drawing.Point(5, 12) + Me.cmdnowplaying.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdnowplaying.Name = "cmdnowplaying" + Me.cmdnowplaying.Size = New System.Drawing.Size(41, 22) + Me.cmdnowplaying.TabIndex = 721 + Me.cmdnowplaying.Text = "Now" + Me.cmdnowplaying.UseVisualStyleBackColor = False + ' + 'cmdcommingupnext + ' + Me.cmdcommingupnext.BackColor = System.Drawing.SystemColors.Control + Me.cmdcommingupnext.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdcommingupnext.Location = New System.Drawing.Point(5, 34) + Me.cmdcommingupnext.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdcommingupnext.Name = "cmdcommingupnext" + Me.cmdcommingupnext.Size = New System.Drawing.Size(43, 21) + Me.cmdcommingupnext.TabIndex = 720 + Me.cmdcommingupnext.Text = "Next" + Me.cmdcommingupnext.UseVisualStyleBackColor = False + ' + 'cmdremainingdurationofplaylist + ' + Me.cmdremainingdurationofplaylist.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdremainingdurationofplaylist.Location = New System.Drawing.Point(1019, 32) + Me.cmdremainingdurationofplaylist.Name = "cmdremainingdurationofplaylist" + Me.cmdremainingdurationofplaylist.Size = New System.Drawing.Size(135, 21) + Me.cmdremainingdurationofplaylist.TabIndex = 645 + Me.cmdremainingdurationofplaylist.Text = "Get Remaining Duration" + Me.ToolTip1.SetToolTip(Me.cmdremainingdurationofplaylist, "Remaining Duration") + Me.cmdremainingdurationofplaylist.UseVisualStyleBackColor = True + ' + 'txtremaingdurationofplaylist + ' + Me.txtremaingdurationofplaylist.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtremaingdurationofplaylist.Location = New System.Drawing.Point(1156, 32) + Me.txtremaingdurationofplaylist.Name = "txtremaingdurationofplaylist" + Me.txtremaingdurationofplaylist.Size = New System.Drawing.Size(56, 20) + Me.txtremaingdurationofplaylist.TabIndex = 644 + ' + 'cmddurationofplaylist + ' + Me.cmddurationofplaylist.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmddurationofplaylist.Location = New System.Drawing.Point(1019, 10) + Me.cmddurationofplaylist.Name = "cmddurationofplaylist" + Me.cmddurationofplaylist.Size = New System.Drawing.Size(135, 21) + Me.cmddurationofplaylist.TabIndex = 643 + Me.cmddurationofplaylist.Text = "Get Total Duration" + Me.ToolTip1.SetToolTip(Me.cmddurationofplaylist, "Total Duration") + Me.cmddurationofplaylist.UseVisualStyleBackColor = True + ' + 'txtdurationofplalist + ' + Me.txtdurationofplalist.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtdurationofplalist.Location = New System.Drawing.Point(1156, 10) + Me.txtdurationofplalist.Name = "txtdurationofplalist" + Me.txtdurationofplalist.Size = New System.Drawing.Size(56, 20) + Me.txtdurationofplalist.TabIndex = 642 + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(3, 15) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(45, 24) + Me.MenuStrip1.TabIndex = 188 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'FileToolStripMenuItem + ' + Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.SaveToolStripMenuItem, Me.SaveAsToolStripMenuItem}) + Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" + Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20) + Me.FileToolStripMenuItem.Text = "File" + ' + 'NewToolStripMenuItem + ' + Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" + Me.NewToolStripMenuItem.Size = New System.Drawing.Size(114, 22) + Me.NewToolStripMenuItem.Text = "New" + ' + 'OpenToolStripMenuItem + ' + Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" + Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(114, 22) + Me.OpenToolStripMenuItem.Text = "Open" + ' + 'SaveToolStripMenuItem + ' + Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" + Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(114, 22) + Me.SaveToolStripMenuItem.Text = "Save" + ' + 'SaveAsToolStripMenuItem + ' + Me.SaveAsToolStripMenuItem.Name = "SaveAsToolStripMenuItem" + Me.SaveAsToolStripMenuItem.Size = New System.Drawing.Size(114, 22) + Me.SaveAsToolStripMenuItem.Text = "Save As" + ' + 'dgv1 + ' + Me.dgv1.AllowDrop = True + DataGridViewCellStyle1.BackColor = System.Drawing.Color.White + Me.dgv1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.dgv1.BackgroundColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgv1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 + Me.dgv1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgv1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.File_Name, Me.Start_Time, Me.x, Me.Clip_Duration, Me.Conversion, Me.FileType, Me.LoopVideo, Me.Column3, Me.Transition, Me.T_Duration, Me.Column11, Me.AudioLevel, Me.clmFilter, Me.Template_File, Me.BackIn, Me.AMCPCommands}) + Me.dgv1.ContextMenuStrip = Me.ContextMenuStrip1 + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgv1.DefaultCellStyle = DataGridViewCellStyle4 + Me.dgv1.Location = New System.Drawing.Point(5, 65) + Me.dgv1.MultiSelect = False + Me.dgv1.Name = "dgv1" + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgv1.RowHeadersDefaultCellStyle = DataGridViewCellStyle5 + Me.dgv1.RowHeadersWidth = 50 + Me.dgv1.RowTemplate.Height = 30 + Me.dgv1.Size = New System.Drawing.Size(1209, 497) + Me.dgv1.TabIndex = 634 + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StopF1ToolStripMenuItem, Me.PlayToolStripMenuItem1, Me.CueToolStripMenuItem1, Me.PauseToolStripMenuItem1, Me.ResumeToolStripMenuItem1, Me.NextToolStripMenuItem1, Me.PlayNextF6ToolStripMenuItem, Me.InsertBlankToolStripMenuItem, Me.DeleteToolStripMenuItem1, Me.CopyToolStripMenuItem1, Me.PasteToolStripMenuItem1, Me.MoveUpToolStripMenuItem1, Me.MoveDownToolStripMenuItem1, Me.PlayInVLCToolStripMenuItem, Me.CheckFilesToolStripMenuItem, Me.OpenInTrimmerToolStripMenuItem, Me.FileInformationToolStripMenuItem, Me.InsertDecklinkToolStripMenuItem, Me.ShowLiveToolStripMenuItem, Me.RefreshThumbnailToolStripMenuItem, Me.InserEndToolStripMenuItem, Me.SelectAllToolStripMenuItem, Me.DeSelectAllToolStripMenuItem, Me.SetStartTimeAcoordingToCurrentRowToolStripMenuItem, Me.InserPlaylistToolStripMenuItem, Me.InsertFilterForIMXFile, Me.ChangeAllTransitionToolStripMenuItem, Me.mnuPlayinffplay}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(289, 620) + ' + 'StopF1ToolStripMenuItem + ' + Me.StopF1ToolStripMenuItem.Name = "StopF1ToolStripMenuItem" + Me.StopF1ToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.StopF1ToolStripMenuItem.Text = "Stop F1" + ' + 'PlayToolStripMenuItem1 + ' + Me.PlayToolStripMenuItem1.Name = "PlayToolStripMenuItem1" + Me.PlayToolStripMenuItem1.Size = New System.Drawing.Size(288, 22) + Me.PlayToolStripMenuItem1.Text = "Play F2" + ' + 'CueToolStripMenuItem1 + ' + Me.CueToolStripMenuItem1.Name = "CueToolStripMenuItem1" + Me.CueToolStripMenuItem1.Size = New System.Drawing.Size(288, 22) + Me.CueToolStripMenuItem1.Text = "Cue F3" + ' + 'PauseToolStripMenuItem1 + ' + Me.PauseToolStripMenuItem1.Name = "PauseToolStripMenuItem1" + Me.PauseToolStripMenuItem1.Size = New System.Drawing.Size(288, 22) + Me.PauseToolStripMenuItem1.Text = "Pause F4" + ' + 'ResumeToolStripMenuItem1 + ' + Me.ResumeToolStripMenuItem1.Name = "ResumeToolStripMenuItem1" + Me.ResumeToolStripMenuItem1.Size = New System.Drawing.Size(288, 22) + Me.ResumeToolStripMenuItem1.Text = "Resume F4" + ' + 'NextToolStripMenuItem1 + ' + Me.NextToolStripMenuItem1.Name = "NextToolStripMenuItem1" + Me.NextToolStripMenuItem1.Size = New System.Drawing.Size(288, 22) + Me.NextToolStripMenuItem1.Text = "Cue Next F5" + ' + 'PlayNextF6ToolStripMenuItem + ' + Me.PlayNextF6ToolStripMenuItem.Name = "PlayNextF6ToolStripMenuItem" + Me.PlayNextF6ToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.PlayNextF6ToolStripMenuItem.Text = "Play Next F6" + ' + 'InsertBlankToolStripMenuItem + ' + Me.InsertBlankToolStripMenuItem.Name = "InsertBlankToolStripMenuItem" + Me.InsertBlankToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.InsertBlankToolStripMenuItem.Text = "Insert Blank" + ' + 'DeleteToolStripMenuItem1 + ' + Me.DeleteToolStripMenuItem1.Name = "DeleteToolStripMenuItem1" + Me.DeleteToolStripMenuItem1.Size = New System.Drawing.Size(288, 22) + Me.DeleteToolStripMenuItem1.Text = "Delete" + ' + 'CopyToolStripMenuItem1 + ' + Me.CopyToolStripMenuItem1.Name = "CopyToolStripMenuItem1" + Me.CopyToolStripMenuItem1.Size = New System.Drawing.Size(288, 22) + Me.CopyToolStripMenuItem1.Text = "Copy" + ' + 'PasteToolStripMenuItem1 + ' + Me.PasteToolStripMenuItem1.Name = "PasteToolStripMenuItem1" + Me.PasteToolStripMenuItem1.Size = New System.Drawing.Size(288, 22) + Me.PasteToolStripMenuItem1.Text = "Paste" + ' + 'MoveUpToolStripMenuItem1 + ' + Me.MoveUpToolStripMenuItem1.Name = "MoveUpToolStripMenuItem1" + Me.MoveUpToolStripMenuItem1.Size = New System.Drawing.Size(288, 22) + Me.MoveUpToolStripMenuItem1.Text = "Move Up" + ' + 'MoveDownToolStripMenuItem1 + ' + Me.MoveDownToolStripMenuItem1.Name = "MoveDownToolStripMenuItem1" + Me.MoveDownToolStripMenuItem1.Size = New System.Drawing.Size(288, 22) + Me.MoveDownToolStripMenuItem1.Text = "Move Down" + ' + 'PlayInVLCToolStripMenuItem + ' + Me.PlayInVLCToolStripMenuItem.Name = "PlayInVLCToolStripMenuItem" + Me.PlayInVLCToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.PlayInVLCToolStripMenuItem.Text = "Play in VLC" + ' + 'CheckFilesToolStripMenuItem + ' + Me.CheckFilesToolStripMenuItem.Name = "CheckFilesToolStripMenuItem" + Me.CheckFilesToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.CheckFilesToolStripMenuItem.Text = "Check Files" + ' + 'OpenInTrimmerToolStripMenuItem + ' + Me.OpenInTrimmerToolStripMenuItem.Name = "OpenInTrimmerToolStripMenuItem" + Me.OpenInTrimmerToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.OpenInTrimmerToolStripMenuItem.Text = "Open in Trimmer" + ' + 'FileInformationToolStripMenuItem + ' + Me.FileInformationToolStripMenuItem.Name = "FileInformationToolStripMenuItem" + Me.FileInformationToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.FileInformationToolStripMenuItem.Text = "File information" + ' + 'InsertDecklinkToolStripMenuItem + ' + Me.InsertDecklinkToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InsertDecklinkToolStripMenuItem1, Me.InsertDecklinkToolStripMenuItem2, Me.InsertDecklinkToolStripMenuItem3, Me.InsertDecklinkToolStripMenuItem4, Me.InsertDecklinkToolStripMenuItem5, Me.InsertDecklinkToolStripMenuItem6, Me.InsertDecklinkToolStripMenuItem7, Me.InsertDecklinkToolStripMenuItem8}) + Me.InsertDecklinkToolStripMenuItem.Name = "InsertDecklinkToolStripMenuItem" + Me.InsertDecklinkToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.InsertDecklinkToolStripMenuItem.Text = "Insert Decklink" + ' + 'InsertDecklinkToolStripMenuItem1 + ' + Me.InsertDecklinkToolStripMenuItem1.Name = "InsertDecklinkToolStripMenuItem1" + Me.InsertDecklinkToolStripMenuItem1.Size = New System.Drawing.Size(80, 22) + Me.InsertDecklinkToolStripMenuItem1.Text = "1" + ' + 'InsertDecklinkToolStripMenuItem2 + ' + Me.InsertDecklinkToolStripMenuItem2.Name = "InsertDecklinkToolStripMenuItem2" + Me.InsertDecklinkToolStripMenuItem2.Size = New System.Drawing.Size(80, 22) + Me.InsertDecklinkToolStripMenuItem2.Text = "2" + ' + 'InsertDecklinkToolStripMenuItem3 + ' + Me.InsertDecklinkToolStripMenuItem3.Name = "InsertDecklinkToolStripMenuItem3" + Me.InsertDecklinkToolStripMenuItem3.Size = New System.Drawing.Size(80, 22) + Me.InsertDecklinkToolStripMenuItem3.Text = "3" + ' + 'InsertDecklinkToolStripMenuItem4 + ' + Me.InsertDecklinkToolStripMenuItem4.Name = "InsertDecklinkToolStripMenuItem4" + Me.InsertDecklinkToolStripMenuItem4.Size = New System.Drawing.Size(80, 22) + Me.InsertDecklinkToolStripMenuItem4.Text = "4" + ' + 'InsertDecklinkToolStripMenuItem5 + ' + Me.InsertDecklinkToolStripMenuItem5.Name = "InsertDecklinkToolStripMenuItem5" + Me.InsertDecklinkToolStripMenuItem5.Size = New System.Drawing.Size(80, 22) + Me.InsertDecklinkToolStripMenuItem5.Text = "5" + ' + 'InsertDecklinkToolStripMenuItem6 + ' + Me.InsertDecklinkToolStripMenuItem6.Name = "InsertDecklinkToolStripMenuItem6" + Me.InsertDecklinkToolStripMenuItem6.Size = New System.Drawing.Size(80, 22) + Me.InsertDecklinkToolStripMenuItem6.Text = "6" + ' + 'InsertDecklinkToolStripMenuItem7 + ' + Me.InsertDecklinkToolStripMenuItem7.Name = "InsertDecklinkToolStripMenuItem7" + Me.InsertDecklinkToolStripMenuItem7.Size = New System.Drawing.Size(80, 22) + Me.InsertDecklinkToolStripMenuItem7.Text = "7" + ' + 'InsertDecklinkToolStripMenuItem8 + ' + Me.InsertDecklinkToolStripMenuItem8.Name = "InsertDecklinkToolStripMenuItem8" + Me.InsertDecklinkToolStripMenuItem8.Size = New System.Drawing.Size(80, 22) + Me.InsertDecklinkToolStripMenuItem8.Text = "8" + ' + 'ShowLiveToolStripMenuItem + ' + Me.ShowLiveToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShowLiveToolStripMenuItem1, Me.ShowLiveToolStripMenuItem2, Me.ShowLiveToolStripMenuItem3, Me.ShowLiveToolStripMenuItem4, Me.ShowLiveToolStripMenuItem5, Me.ShowLiveToolStripMenuItem6, Me.ShowLiveToolStripMenuItem7, Me.ShowLiveToolStripMenuItem8}) + Me.ShowLiveToolStripMenuItem.Name = "ShowLiveToolStripMenuItem" + Me.ShowLiveToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.ShowLiveToolStripMenuItem.Text = "Show Live Decklink" + ' + 'ShowLiveToolStripMenuItem1 + ' + Me.ShowLiveToolStripMenuItem1.Name = "ShowLiveToolStripMenuItem1" + Me.ShowLiveToolStripMenuItem1.Size = New System.Drawing.Size(80, 22) + Me.ShowLiveToolStripMenuItem1.Text = "1" + ' + 'ShowLiveToolStripMenuItem2 + ' + Me.ShowLiveToolStripMenuItem2.Name = "ShowLiveToolStripMenuItem2" + Me.ShowLiveToolStripMenuItem2.Size = New System.Drawing.Size(80, 22) + Me.ShowLiveToolStripMenuItem2.Text = "2" + ' + 'ShowLiveToolStripMenuItem3 + ' + Me.ShowLiveToolStripMenuItem3.Name = "ShowLiveToolStripMenuItem3" + Me.ShowLiveToolStripMenuItem3.Size = New System.Drawing.Size(80, 22) + Me.ShowLiveToolStripMenuItem3.Text = "3" + ' + 'ShowLiveToolStripMenuItem4 + ' + Me.ShowLiveToolStripMenuItem4.Name = "ShowLiveToolStripMenuItem4" + Me.ShowLiveToolStripMenuItem4.Size = New System.Drawing.Size(80, 22) + Me.ShowLiveToolStripMenuItem4.Text = "4" + ' + 'ShowLiveToolStripMenuItem5 + ' + Me.ShowLiveToolStripMenuItem5.Name = "ShowLiveToolStripMenuItem5" + Me.ShowLiveToolStripMenuItem5.Size = New System.Drawing.Size(80, 22) + Me.ShowLiveToolStripMenuItem5.Text = "5" + ' + 'ShowLiveToolStripMenuItem6 + ' + Me.ShowLiveToolStripMenuItem6.Name = "ShowLiveToolStripMenuItem6" + Me.ShowLiveToolStripMenuItem6.Size = New System.Drawing.Size(80, 22) + Me.ShowLiveToolStripMenuItem6.Text = "6" + ' + 'ShowLiveToolStripMenuItem7 + ' + Me.ShowLiveToolStripMenuItem7.Name = "ShowLiveToolStripMenuItem7" + Me.ShowLiveToolStripMenuItem7.Size = New System.Drawing.Size(80, 22) + Me.ShowLiveToolStripMenuItem7.Text = "7" + ' + 'ShowLiveToolStripMenuItem8 + ' + Me.ShowLiveToolStripMenuItem8.Name = "ShowLiveToolStripMenuItem8" + Me.ShowLiveToolStripMenuItem8.Size = New System.Drawing.Size(80, 22) + Me.ShowLiveToolStripMenuItem8.Text = "8" + ' + 'RefreshThumbnailToolStripMenuItem + ' + Me.RefreshThumbnailToolStripMenuItem.Name = "RefreshThumbnailToolStripMenuItem" + Me.RefreshThumbnailToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.RefreshThumbnailToolStripMenuItem.Text = "Refresh Thumbnail" + ' + 'InserEndToolStripMenuItem + ' + Me.InserEndToolStripMenuItem.Name = "InserEndToolStripMenuItem" + Me.InserEndToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.InserEndToolStripMenuItem.Text = "Inser End" + ' + 'SelectAllToolStripMenuItem + ' + Me.SelectAllToolStripMenuItem.Name = "SelectAllToolStripMenuItem" + Me.SelectAllToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.SelectAllToolStripMenuItem.Text = "Select All" + ' + 'DeSelectAllToolStripMenuItem + ' + Me.DeSelectAllToolStripMenuItem.Name = "DeSelectAllToolStripMenuItem" + Me.DeSelectAllToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.DeSelectAllToolStripMenuItem.Text = "De Select All" + ' + 'SetStartTimeAcoordingToCurrentRowToolStripMenuItem + ' + Me.SetStartTimeAcoordingToCurrentRowToolStripMenuItem.Name = "SetStartTimeAcoordingToCurrentRowToolStripMenuItem" + Me.SetStartTimeAcoordingToCurrentRowToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.SetStartTimeAcoordingToCurrentRowToolStripMenuItem.Text = "Set Start Time Acoording To CurrentRow" + ' + 'InserPlaylistToolStripMenuItem + ' + Me.InserPlaylistToolStripMenuItem.Name = "InserPlaylistToolStripMenuItem" + Me.InserPlaylistToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.InserPlaylistToolStripMenuItem.Text = "Insert Playlist" + ' + 'InsertFilterForIMXFile + ' + Me.InsertFilterForIMXFile.Name = "InsertFilterForIMXFile" + Me.InsertFilterForIMXFile.Size = New System.Drawing.Size(288, 22) + Me.InsertFilterForIMXFile.Text = "Insert Filter for IMX file" + ' + 'ChangeAllTransitionToolStripMenuItem + ' + Me.ChangeAllTransitionToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MIXToolStripMenuItem, Me.CutToolStripMenuItem, Me.WIPEToolStripMenuItem, Me.PUSHToolStripMenuItem, Me.SLIDEToolStripMenuItem}) + Me.ChangeAllTransitionToolStripMenuItem.Name = "ChangeAllTransitionToolStripMenuItem" + Me.ChangeAllTransitionToolStripMenuItem.Size = New System.Drawing.Size(288, 22) + Me.ChangeAllTransitionToolStripMenuItem.Text = "Change All Transition" + ' + 'MIXToolStripMenuItem + ' + Me.MIXToolStripMenuItem.Name = "MIXToolStripMenuItem" + Me.MIXToolStripMenuItem.Size = New System.Drawing.Size(104, 22) + Me.MIXToolStripMenuItem.Text = "MIX" + ' + 'CutToolStripMenuItem + ' + Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem" + Me.CutToolStripMenuItem.Size = New System.Drawing.Size(104, 22) + Me.CutToolStripMenuItem.Text = "CUT" + ' + 'WIPEToolStripMenuItem + ' + Me.WIPEToolStripMenuItem.Name = "WIPEToolStripMenuItem" + Me.WIPEToolStripMenuItem.Size = New System.Drawing.Size(104, 22) + Me.WIPEToolStripMenuItem.Text = "WIPE" + ' + 'PUSHToolStripMenuItem + ' + Me.PUSHToolStripMenuItem.Name = "PUSHToolStripMenuItem" + Me.PUSHToolStripMenuItem.Size = New System.Drawing.Size(104, 22) + Me.PUSHToolStripMenuItem.Text = "PUSH" + ' + 'SLIDEToolStripMenuItem + ' + Me.SLIDEToolStripMenuItem.Name = "SLIDEToolStripMenuItem" + Me.SLIDEToolStripMenuItem.Size = New System.Drawing.Size(104, 22) + Me.SLIDEToolStripMenuItem.Text = "SLIDE" + ' + 'mnuPlayinffplay + ' + Me.mnuPlayinffplay.Name = "mnuPlayinffplay" + Me.mnuPlayinffplay.Size = New System.Drawing.Size(288, 22) + Me.mnuPlayinffplay.Text = "Play in ffplay" + ' + 'txtfps + ' + Me.txtfps.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtfps", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtfps.Location = New System.Drawing.Point(210, 37) + Me.txtfps.Name = "txtfps" + Me.txtfps.Size = New System.Drawing.Size(42, 20) + Me.txtfps.TabIndex = 446 + Me.txtfps.Text = "25" + Me.txtfps.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.txtfps, "Channel FrameRate") + ' + 'lblfps + ' + Me.lblfps.AutoSize = True + Me.lblfps.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblfps.Location = New System.Drawing.Point(176, 41) + Me.lblfps.Name = "lblfps" + Me.lblfps.Size = New System.Drawing.Size(30, 13) + Me.lblfps.TabIndex = 445 + Me.lblfps.Text = "FPS" + ' + 'Label75 + ' + Me.Label75.Location = New System.Drawing.Point(447, 347) + Me.Label75.MaximumSize = New System.Drawing.Size(300, 0) + Me.Label75.Name = "Label75" + Me.Label75.Size = New System.Drawing.Size(200, 0) + Me.Label75.TabIndex = 438 + Me.Label75.Text = "Template will be played from template module's rundown's current row" + ' + 'lblplalistname + ' + Me.lblplalistname.AutoSize = True + Me.lblplalistname.Location = New System.Drawing.Point(53, 9) + Me.lblplalistname.MaximumSize = New System.Drawing.Size(510, 0) + Me.lblplalistname.Name = "lblplalistname" + Me.lblplalistname.Size = New System.Drawing.Size(76, 13) + Me.lblplalistname.TabIndex = 434 + Me.lblplalistname.Text = "Default Playlist" + ' + 'cmddeleteclip + ' + Me.cmddeleteclip.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmddeleteclip.Image = Global.caspar_media_playback.My.Resources.Resources.minus + Me.cmddeleteclip.Location = New System.Drawing.Point(406, 37) + Me.cmddeleteclip.Name = "cmddeleteclip" + Me.cmddeleteclip.Size = New System.Drawing.Size(52, 22) + Me.cmddeleteclip.TabIndex = 429 + Me.ToolTip1.SetToolTip(Me.cmddeleteclip, "Remove Selected Row") + Me.cmddeleteclip.UseVisualStyleBackColor = True + ' + 'chkplaylistlock + ' + Me.chkplaylistlock.AutoSize = True + Me.chkplaylistlock.Checked = Global.caspar_media_playback.My.MySettings.Default.chkplaylistlock + Me.chkplaylistlock.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.caspar_media_playback.My.MySettings.Default, "chkplaylistlock", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.chkplaylistlock.Location = New System.Drawing.Point(727, 11) + Me.chkplaylistlock.Name = "chkplaylistlock" + Me.chkplaylistlock.Size = New System.Drawing.Size(50, 17) + Me.chkplaylistlock.TabIndex = 428 + Me.chkplaylistlock.Text = "Lock" + Me.ToolTip1.SetToolTip(Me.chkplaylistlock, "Lock The Playlist") + Me.chkplaylistlock.UseVisualStyleBackColor = True + ' + 'cmdmoveup + ' + Me.cmdmoveup.Image = Global.caspar_media_playback.My.Resources.Resources.UP + Me.cmdmoveup.Location = New System.Drawing.Point(252, 37) + Me.cmdmoveup.Name = "cmdmoveup" + Me.cmdmoveup.Size = New System.Drawing.Size(49, 23) + Me.cmdmoveup.TabIndex = 163 + Me.ToolTip1.SetToolTip(Me.cmdmoveup, "Move Up Selected Row") + Me.cmdmoveup.UseVisualStyleBackColor = True + ' + 'cmdmovedown + ' + Me.cmdmovedown.Image = Global.caspar_media_playback.My.Resources.Resources.Down + Me.cmdmovedown.Location = New System.Drawing.Point(301, 37) + Me.cmdmovedown.Name = "cmdmovedown" + Me.cmdmovedown.Size = New System.Drawing.Size(50, 23) + Me.cmdmovedown.TabIndex = 164 + Me.ToolTip1.SetToolTip(Me.cmdmovedown, "Move down Selected Row") + Me.cmdmovedown.UseVisualStyleBackColor = True + ' + 'cmdinsert + ' + Me.cmdinsert.Image = Global.caspar_media_playback.My.Resources.Resources.Add + Me.cmdinsert.Location = New System.Drawing.Point(353, 37) + Me.cmdinsert.Name = "cmdinsert" + Me.cmdinsert.Size = New System.Drawing.Size(49, 23) + Me.cmdinsert.TabIndex = 161 + Me.ToolTip1.SetToolTip(Me.cmdinsert, "Insert A new Row Below Selected Row") + Me.cmdinsert.UseVisualStyleBackColor = True + ' + 'cmdstartplaylist + ' + Me.cmdstartplaylist.Location = New System.Drawing.Point(87, 37) + Me.cmdstartplaylist.Name = "cmdstartplaylist" + Me.cmdstartplaylist.Size = New System.Drawing.Size(89, 23) + Me.cmdstartplaylist.TabIndex = 81 + Me.cmdstartplaylist.Text = "Start Playlist" + Me.cmdstartplaylist.UseVisualStyleBackColor = True + ' + 'btnstartattime + ' + Me.btnstartattime.Location = New System.Drawing.Point(468, 36) + Me.btnstartattime.Name = "btnstartattime" + Me.btnstartattime.Size = New System.Drawing.Size(96, 23) + Me.btnstartattime.TabIndex = 83 + Me.btnstartattime.Text = "Start Playlist at" + Me.btnstartattime.UseVisualStyleBackColor = True + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.CalendarFont = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DateTimePicker1.Checked = False + Me.DateTimePicker1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker1.Location = New System.Drawing.Point(566, 37) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.ShowUpDown = True + Me.DateTimePicker1.Size = New System.Drawing.Size(145, 22) + Me.DateTimePicker1.TabIndex = 84 + Me.DateTimePicker1.Value = New Date(2014, 10, 3, 0, 0, 0, 0) + ' + 'gbcliplist + ' + Me.gbcliplist.BackColor = System.Drawing.Color.Thistle + Me.gbcliplist.Controls.Add(Me.cmdSmallScreen) + Me.gbcliplist.Controls.Add(Me.cmdFullScreen) + Me.gbcliplist.Controls.Add(Me.lblsearch) + Me.gbcliplist.Controls.Add(Me.Label237) + Me.gbcliplist.Controls.Add(Me.pbclipsearchstatus) + Me.gbcliplist.Controls.Add(Me.cmdrefreshtvclips) + Me.gbcliplist.Controls.Add(Me.tvclips) + Me.gbcliplist.Controls.Add(Me.labelclips) + Me.gbcliplist.Controls.Add(Me.chkclipduration) + Me.gbcliplist.Controls.Add(Me.dgvclips) + Me.gbcliplist.Controls.Add(Me.cmdclipsearch) + Me.gbcliplist.Controls.Add(Me.txtsearch) + Me.gbcliplist.Controls.Add(Me.gbplayerforclipgrid) + Me.gbcliplist.Location = New System.Drawing.Point(8, 565) + Me.gbcliplist.Name = "gbcliplist" + Me.gbcliplist.Size = New System.Drawing.Size(1206, 373) + Me.gbcliplist.TabIndex = 1171 + Me.gbcliplist.TabStop = False + Me.gbcliplist.Text = "ClipGrid" + ' + 'cmdSmallScreen + ' + Me.cmdSmallScreen.Location = New System.Drawing.Point(1124, 10) + Me.cmdSmallScreen.Name = "cmdSmallScreen" + Me.cmdSmallScreen.Size = New System.Drawing.Size(83, 23) + Me.cmdSmallScreen.TabIndex = 1172 + Me.cmdSmallScreen.Text = "Small Screen" + Me.cmdSmallScreen.UseVisualStyleBackColor = True + ' + 'cmdFullScreen + ' + Me.cmdFullScreen.Location = New System.Drawing.Point(1041, 9) + Me.cmdFullScreen.Name = "cmdFullScreen" + Me.cmdFullScreen.Size = New System.Drawing.Size(75, 23) + Me.cmdFullScreen.TabIndex = 1171 + Me.cmdFullScreen.Text = "Full Screen" + Me.cmdFullScreen.UseVisualStyleBackColor = True + ' + 'lblsearch + ' + Me.lblsearch.AutoSize = True + Me.lblsearch.Location = New System.Drawing.Point(101, 13) + Me.lblsearch.Name = "lblsearch" + Me.lblsearch.Size = New System.Drawing.Size(0, 13) + Me.lblsearch.TabIndex = 187 + ' + 'Label237 + ' + Me.Label237.AutoSize = True + Me.Label237.Location = New System.Drawing.Point(710, 13) + Me.Label237.Name = "Label237" + Me.Label237.Size = New System.Drawing.Size(31, 13) + Me.Label237.TabIndex = 186 + Me.Label237.Text = "Total" + ' + 'pbclipsearchstatus + ' + Me.pbclipsearchstatus.Location = New System.Drawing.Point(301, 32) + Me.pbclipsearchstatus.Name = "pbclipsearchstatus" + Me.pbclipsearchstatus.Size = New System.Drawing.Size(905, 6) + Me.pbclipsearchstatus.TabIndex = 185 + ' + 'cmdrefreshtvclips + ' + Me.cmdrefreshtvclips.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdrefreshtvclips.Location = New System.Drawing.Point(5, 14) + Me.cmdrefreshtvclips.Name = "cmdrefreshtvclips" + Me.cmdrefreshtvclips.Size = New System.Drawing.Size(94, 21) + Me.cmdrefreshtvclips.TabIndex = 184 + Me.cmdrefreshtvclips.Text = "Refresh Folders" + Me.ToolTip1.SetToolTip(Me.cmdrefreshtvclips, "Refresh If new Folders has been Created") + Me.cmdrefreshtvclips.UseVisualStyleBackColor = True + ' + 'tvclips + ' + Me.tvclips.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tvclips.Location = New System.Drawing.Point(6, 40) + Me.tvclips.Name = "tvclips" + Me.tvclips.Size = New System.Drawing.Size(291, 289) + Me.tvclips.TabIndex = 183 + Me.ToolTip1.SetToolTip(Me.tvclips, "Folders in Media Directory") + ' + 'labelclips + ' + Me.labelclips.AutoSize = True + Me.labelclips.Location = New System.Drawing.Point(748, 12) + Me.labelclips.Name = "labelclips" + Me.labelclips.Size = New System.Drawing.Size(29, 13) + Me.labelclips.TabIndex = 182 + Me.labelclips.Text = "Clips" + ' + 'chkclipduration + ' + Me.chkclipduration.AutoSize = True + Me.chkclipduration.Location = New System.Drawing.Point(804, 12) + Me.chkclipduration.Name = "chkclipduration" + Me.chkclipduration.Size = New System.Drawing.Size(213, 17) + Me.chkclipduration.TabIndex = 178 + Me.chkclipduration.Text = "Duration And SIze (Will take more time)" + Me.chkclipduration.UseVisualStyleBackColor = True + ' + 'dgvclips + ' + DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.dgvclips.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvclips.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7 + Me.dgvclips.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvclips.ContextMenuStrip = Me.cmsdgvclips + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvclips.DefaultCellStyle = DataGridViewCellStyle8 + Me.dgvclips.Location = New System.Drawing.Point(301, 41) + Me.dgvclips.MultiSelect = False + Me.dgvclips.Name = "dgvclips" + Me.dgvclips.ReadOnly = True + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvclips.RowHeadersDefaultCellStyle = DataGridViewCellStyle9 + Me.dgvclips.RowHeadersWidth = 25 + Me.dgvclips.RowTemplate.Height = 30 + Me.dgvclips.Size = New System.Drawing.Size(905, 219) + Me.dgvclips.TabIndex = 177 + ' + 'cmsdgvclips + ' + Me.cmsdgvclips.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CueInCsparcgToolStripMenuItem, Me.PlayInCasparcgToolStripMenuItem, Me.ToolStripMenuItem1, Me.FileInformationToolStripMenuItem1}) + Me.cmsdgvclips.Name = "ContextMenuStrip2" + Me.cmsdgvclips.Size = New System.Drawing.Size(159, 92) + ' + 'CueInCsparcgToolStripMenuItem + ' + Me.CueInCsparcgToolStripMenuItem.Name = "CueInCsparcgToolStripMenuItem" + Me.CueInCsparcgToolStripMenuItem.Size = New System.Drawing.Size(158, 22) + Me.CueInCsparcgToolStripMenuItem.Text = "Cue" + ' + 'PlayInCasparcgToolStripMenuItem + ' + Me.PlayInCasparcgToolStripMenuItem.Name = "PlayInCasparcgToolStripMenuItem" + Me.PlayInCasparcgToolStripMenuItem.Size = New System.Drawing.Size(158, 22) + Me.PlayInCasparcgToolStripMenuItem.Text = "Play" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(158, 22) + Me.ToolStripMenuItem1.Text = "Play in VLC" + ' + 'FileInformationToolStripMenuItem1 + ' + Me.FileInformationToolStripMenuItem1.Name = "FileInformationToolStripMenuItem1" + Me.FileInformationToolStripMenuItem1.Size = New System.Drawing.Size(158, 22) + Me.FileInformationToolStripMenuItem1.Text = "File Information" + ' + 'cmdclipsearch + ' + Me.cmdclipsearch.Location = New System.Drawing.Point(627, 8) + Me.cmdclipsearch.Name = "cmdclipsearch" + Me.cmdclipsearch.Size = New System.Drawing.Size(76, 25) + Me.cmdclipsearch.TabIndex = 176 + Me.cmdclipsearch.Text = "Search Clips" + Me.cmdclipsearch.UseVisualStyleBackColor = True + ' + 'txtsearch + ' + Me.txtsearch.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtsearch", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtsearch.Location = New System.Drawing.Point(405, 9) + Me.txtsearch.Name = "txtsearch" + Me.txtsearch.Size = New System.Drawing.Size(219, 20) + Me.txtsearch.TabIndex = 175 + Me.txtsearch.Text = Global.caspar_media_playback.My.MySettings.Default.txtsearch + Me.ToolTip1.SetToolTip(Me.txtsearch, "Few letters to search") + ' + 'gbplayerforclipgrid + ' + Me.gbplayerforclipgrid.BackColor = System.Drawing.Color.Turquoise + Me.gbplayerforclipgrid.Controls.Add(Me.cmdplaynextforclipgrid) + Me.gbplayerforclipgrid.Controls.Add(Me.cmdcuenextforclipgrid) + Me.gbplayerforclipgrid.Controls.Add(Me.cmdstopforclipgrid) + Me.gbplayerforclipgrid.Controls.Add(Me.cmdresumeforclipgrid) + Me.gbplayerforclipgrid.Controls.Add(Me.cmdforwardoneframeforclipgrid) + Me.gbplayerforclipgrid.Controls.Add(Me.cmdplayforclipgrid) + Me.gbplayerforclipgrid.Controls.Add(Me.cmdbackoneframeforclipgrid) + Me.gbplayerforclipgrid.Controls.Add(Me.cmdcueforclipgrid) + Me.gbplayerforclipgrid.Controls.Add(Me.cmdpauseforclipgrid) + Me.gbplayerforclipgrid.Controls.Add(Me.chkDeinterlace) + Me.gbplayerforclipgrid.Controls.Add(Me.chkclipcountdown) + Me.gbplayerforclipgrid.Controls.Add(Me.chknextcuefor2ndchannel) + Me.gbplayerforclipgrid.Controls.Add(Me.Label220) + Me.gbplayerforclipgrid.Controls.Add(Me.Label221) + Me.gbplayerforclipgrid.Controls.Add(Me.Label222) + Me.gbplayerforclipgrid.Location = New System.Drawing.Point(301, 261) + Me.gbplayerforclipgrid.Name = "gbplayerforclipgrid" + Me.gbplayerforclipgrid.Size = New System.Drawing.Size(906, 70) + Me.gbplayerforclipgrid.TabIndex = 1170 + Me.gbplayerforclipgrid.TabStop = False + ' + 'cmdplaynextforclipgrid + ' + Me.cmdplaynextforclipgrid.Image = CType(resources.GetObject("cmdplaynextforclipgrid.Image"), System.Drawing.Image) + Me.cmdplaynextforclipgrid.Location = New System.Drawing.Point(849, 16) + Me.cmdplaynextforclipgrid.Name = "cmdplaynextforclipgrid" + Me.cmdplaynextforclipgrid.Size = New System.Drawing.Size(47, 37) + Me.cmdplaynextforclipgrid.TabIndex = 1188 + Me.ToolTip1.SetToolTip(Me.cmdplaynextforclipgrid, "Play Next") + Me.cmdplaynextforclipgrid.UseVisualStyleBackColor = True + ' + 'cmdcuenextforclipgrid + ' + Me.cmdcuenextforclipgrid.Image = CType(resources.GetObject("cmdcuenextforclipgrid.Image"), System.Drawing.Image) + Me.cmdcuenextforclipgrid.Location = New System.Drawing.Point(779, 16) + Me.cmdcuenextforclipgrid.Name = "cmdcuenextforclipgrid" + Me.cmdcuenextforclipgrid.Size = New System.Drawing.Size(47, 37) + Me.cmdcuenextforclipgrid.TabIndex = 1187 + Me.ToolTip1.SetToolTip(Me.cmdcuenextforclipgrid, "Cue Next") + Me.cmdcuenextforclipgrid.UseVisualStyleBackColor = True + ' + 'cmdstopforclipgrid + ' + Me.cmdstopforclipgrid.Image = CType(resources.GetObject("cmdstopforclipgrid.Image"), System.Drawing.Image) + Me.cmdstopforclipgrid.Location = New System.Drawing.Point(711, 16) + Me.cmdstopforclipgrid.Name = "cmdstopforclipgrid" + Me.cmdstopforclipgrid.Size = New System.Drawing.Size(47, 37) + Me.cmdstopforclipgrid.TabIndex = 1186 + Me.ToolTip1.SetToolTip(Me.cmdstopforclipgrid, "Stop") + Me.cmdstopforclipgrid.UseVisualStyleBackColor = True + ' + 'cmdresumeforclipgrid + ' + Me.cmdresumeforclipgrid.Image = CType(resources.GetObject("cmdresumeforclipgrid.Image"), System.Drawing.Image) + Me.cmdresumeforclipgrid.Location = New System.Drawing.Point(640, 16) + Me.cmdresumeforclipgrid.Name = "cmdresumeforclipgrid" + Me.cmdresumeforclipgrid.Size = New System.Drawing.Size(47, 37) + Me.cmdresumeforclipgrid.TabIndex = 1185 + Me.ToolTip1.SetToolTip(Me.cmdresumeforclipgrid, "Resume") + Me.cmdresumeforclipgrid.UseVisualStyleBackColor = True + ' + 'cmdforwardoneframeforclipgrid + ' + Me.cmdforwardoneframeforclipgrid.Image = CType(resources.GetObject("cmdforwardoneframeforclipgrid.Image"), System.Drawing.Image) + Me.cmdforwardoneframeforclipgrid.Location = New System.Drawing.Point(502, 16) + Me.cmdforwardoneframeforclipgrid.Name = "cmdforwardoneframeforclipgrid" + Me.cmdforwardoneframeforclipgrid.Size = New System.Drawing.Size(47, 37) + Me.cmdforwardoneframeforclipgrid.TabIndex = 1184 + Me.ToolTip1.SetToolTip(Me.cmdforwardoneframeforclipgrid, "1 Frame Forward") + Me.cmdforwardoneframeforclipgrid.UseVisualStyleBackColor = True + ' + 'cmdplayforclipgrid + ' + Me.cmdplayforclipgrid.Image = CType(resources.GetObject("cmdplayforclipgrid.Image"), System.Drawing.Image) + Me.cmdplayforclipgrid.Location = New System.Drawing.Point(435, 16) + Me.cmdplayforclipgrid.Name = "cmdplayforclipgrid" + Me.cmdplayforclipgrid.Size = New System.Drawing.Size(47, 37) + Me.cmdplayforclipgrid.TabIndex = 1183 + Me.ToolTip1.SetToolTip(Me.cmdplayforclipgrid, "Play From Start") + Me.cmdplayforclipgrid.UseVisualStyleBackColor = True + ' + 'cmdbackoneframeforclipgrid + ' + Me.cmdbackoneframeforclipgrid.Image = CType(resources.GetObject("cmdbackoneframeforclipgrid.Image"), System.Drawing.Image) + Me.cmdbackoneframeforclipgrid.Location = New System.Drawing.Point(366, 16) + Me.cmdbackoneframeforclipgrid.Name = "cmdbackoneframeforclipgrid" + Me.cmdbackoneframeforclipgrid.Size = New System.Drawing.Size(47, 37) + Me.cmdbackoneframeforclipgrid.TabIndex = 1182 + Me.ToolTip1.SetToolTip(Me.cmdbackoneframeforclipgrid, "1 Frame Back") + Me.cmdbackoneframeforclipgrid.UseVisualStyleBackColor = True + ' + 'cmdcueforclipgrid + ' + Me.cmdcueforclipgrid.Image = CType(resources.GetObject("cmdcueforclipgrid.Image"), System.Drawing.Image) + Me.cmdcueforclipgrid.Location = New System.Drawing.Point(302, 16) + Me.cmdcueforclipgrid.Name = "cmdcueforclipgrid" + Me.cmdcueforclipgrid.Size = New System.Drawing.Size(47, 37) + Me.cmdcueforclipgrid.TabIndex = 1181 + Me.ToolTip1.SetToolTip(Me.cmdcueforclipgrid, "Cue (Go to 1st Frame)") + Me.cmdcueforclipgrid.UseVisualStyleBackColor = True + ' + 'cmdpauseforclipgrid + ' + Me.cmdpauseforclipgrid.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.cmdpauseforclipgrid.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdpauseforclipgrid.Image = Global.caspar_media_playback.My.Resources.Resources.pause3 + Me.cmdpauseforclipgrid.Location = New System.Drawing.Point(561, 16) + Me.cmdpauseforclipgrid.Name = "cmdpauseforclipgrid" + Me.cmdpauseforclipgrid.Size = New System.Drawing.Size(47, 37) + Me.cmdpauseforclipgrid.TabIndex = 159 + Me.cmdpauseforclipgrid.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.ToolTip1.SetToolTip(Me.cmdpauseforclipgrid, "Pause") + Me.cmdpauseforclipgrid.UseVisualStyleBackColor = True + ' + 'chkDeinterlace + ' + Me.chkDeinterlace.AutoSize = True + Me.chkDeinterlace.Checked = True + Me.chkDeinterlace.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkDeinterlace.ForeColor = System.Drawing.SystemColors.ActiveCaptionText + Me.chkDeinterlace.Location = New System.Drawing.Point(12, 29) + Me.chkDeinterlace.Name = "chkDeinterlace" + Me.chkDeinterlace.Size = New System.Drawing.Size(80, 17) + Me.chkDeinterlace.TabIndex = 737 + Me.chkDeinterlace.Text = "Deinterlace" + Me.chkDeinterlace.UseVisualStyleBackColor = True + ' + 'chkclipcountdown + ' + Me.chkclipcountdown.AutoSize = True + Me.chkclipcountdown.ForeColor = System.Drawing.SystemColors.ActiveCaptionText + Me.chkclipcountdown.Location = New System.Drawing.Point(12, 46) + Me.chkclipcountdown.Name = "chkclipcountdown" + Me.chkclipcountdown.Size = New System.Drawing.Size(217, 17) + Me.chkclipcountdown.TabIndex = 736 + Me.chkclipcountdown.Text = "Clip Count Down on next Upper Channel" + Me.chkclipcountdown.UseVisualStyleBackColor = True + ' + 'chknextcuefor2ndchannel + ' + Me.chknextcuefor2ndchannel.AutoSize = True + Me.chknextcuefor2ndchannel.ForeColor = System.Drawing.SystemColors.ActiveCaptionText + Me.chknextcuefor2ndchannel.Location = New System.Drawing.Point(12, 13) + Me.chknextcuefor2ndchannel.Name = "chknextcuefor2ndchannel" + Me.chknextcuefor2ndchannel.Size = New System.Drawing.Size(257, 17) + Me.chknextcuefor2ndchannel.TabIndex = 735 + Me.chknextcuefor2ndchannel.Text = "Next clip 10 sec loop play on next upper Channel" + Me.chknextcuefor2ndchannel.UseVisualStyleBackColor = True + ' + 'Label220 + ' + Me.Label220.AutoSize = True + Me.Label220.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label220.Location = New System.Drawing.Point(629, 10) + Me.Label220.Name = "Label220" + Me.Label220.Size = New System.Drawing.Size(10, 13) + Me.Label220.TabIndex = 352 + Me.Label220.Text = "." + Me.Label220.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label221 + ' + Me.Label221.AutoSize = True + Me.Label221.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label221.Location = New System.Drawing.Point(29, 13) + Me.Label221.Name = "Label221" + Me.Label221.Size = New System.Drawing.Size(10, 13) + Me.Label221.TabIndex = 335 + Me.Label221.Text = "." + Me.Label221.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label222 + ' + Me.Label222.AutoSize = True + Me.Label222.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label222.Location = New System.Drawing.Point(822, 10) + Me.Label222.Name = "Label222" + Me.Label222.Size = New System.Drawing.Size(10, 13) + Me.Label222.TabIndex = 0 + Me.Label222.Text = "." + Me.Label222.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tmrduration + ' + Me.tmrduration.Enabled = True + Me.tmrduration.Interval = 500 + ' + 'tmrnextclip + ' + Me.tmrnextclip.Interval = 1000 + ' + 'tmrclipcountdown + ' + Me.tmrclipcountdown.Interval = 1000 + ' + 'tmrfornotskiping + ' + Me.tmrfornotskiping.Interval = 6000 + ' + 'tmrcheckfilesinplaylist + ' + Me.tmrcheckfilesinplaylist.Interval = 10000 + ' + 'tmrstartattime + ' + Me.tmrstartattime.Interval = 2000 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.Frozen = True + Me.DataGridViewTextBoxColumn1.HeaderText = "File_Name" + Me.DataGridViewTextBoxColumn1.MinimumWidth = 210 + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewTextBoxColumn1.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn1.Width = 210 + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.FillWeight = 50.0! + Me.DataGridViewTextBoxColumn2.HeaderText = "Remaining Time" + Me.DataGridViewTextBoxColumn2.MinimumWidth = 50 + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + Me.DataGridViewTextBoxColumn2.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn2.Width = 50 + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.HeaderText = "Start_Time" + Me.DataGridViewTextBoxColumn3.MinimumWidth = 50 + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn3.Width = 60 + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.HeaderText = "Duration" + Me.DataGridViewTextBoxColumn4.MinimumWidth = 50 + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn4.Width = 50 + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.HeaderText = "Audio Level" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn5.Width = 40 + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.HeaderText = "Filter" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn6.Width = 500 + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.HeaderText = "Template File" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn7.Width = 400 + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.HeaderText = "AMCP Commands" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + ' + 'File_Name + ' + Me.File_Name.Frozen = True + Me.File_Name.HeaderText = "File_Name" + Me.File_Name.MinimumWidth = 280 + Me.File_Name.Name = "File_Name" + Me.File_Name.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.File_Name.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.File_Name.Width = 710 + ' + 'Start_Time + ' + Me.Start_Time.HeaderText = "Start_Time" + Me.Start_Time.MinimumWidth = 10 + Me.Start_Time.Name = "Start_Time" + Me.Start_Time.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.Start_Time.Width = 120 + ' + 'x + ' + Me.x.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + Me.x.DefaultCellStyle = DataGridViewCellStyle3 + Me.x.FalseValue = "0" + Me.x.FillWeight = 20.0! + Me.x.HeaderText = "Play" + Me.x.Name = "x" + Me.x.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.x.TrueValue = "1" + Me.x.Width = 30 + ' + 'Clip_Duration + ' + Me.Clip_Duration.HeaderText = "Duration" + Me.Clip_Duration.MinimumWidth = 10 + Me.Clip_Duration.Name = "Clip_Duration" + Me.Clip_Duration.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.Clip_Duration.Width = 120 + ' + 'Conversion + ' + Me.Conversion.FalseValue = "0" + Me.Conversion.HeaderText = "Cnvrsn" + Me.Conversion.MinimumWidth = 45 + Me.Conversion.Name = "Conversion" + Me.Conversion.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.Conversion.TrueValue = "1" + Me.Conversion.Width = 45 + ' + 'FileType + ' + Me.FileType.HeaderText = "FileType" + Me.FileType.Items.AddRange(New Object() {"Program", "Promo", "Commercial", "Others"}) + Me.FileType.Name = "FileType" + Me.FileType.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.FileType.Width = 90 + ' + 'LoopVideo + ' + Me.LoopVideo.HeaderText = "Loop" + Me.LoopVideo.Name = "LoopVideo" + Me.LoopVideo.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.LoopVideo.TrueValue = "loop" + Me.LoopVideo.Width = 35 + ' + 'Column3 + ' + Me.Column3.HeaderText = "Thumbnail" + Me.Column3.ImageLayout = System.Windows.Forms.DataGridViewImageCellLayout.Stretch + Me.Column3.MinimumWidth = 70 + Me.Column3.Name = "Column3" + Me.Column3.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.Column3.Width = 70 + ' + 'Transition + ' + Me.Transition.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.Transition.HeaderText = "Transition" + Me.Transition.Items.AddRange(New Object() {"CUT", "MIX", "PUSH", "WIPE", "SLIDE"}) + Me.Transition.Name = "Transition" + Me.Transition.Width = 60 + ' + 'T_Duration + ' + Me.T_Duration.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.T_Duration.HeaderText = "frame" + Me.T_Duration.Items.AddRange(New Object() {"10", "15", "20", "25", "30", "35", "40", "45", "50"}) + Me.T_Duration.Name = "T_Duration" + Me.T_Duration.Width = 50 + ' + 'Column11 + ' + Me.Column11.HeaderText = "Follow Duration" + Me.Column11.Name = "Column11" + Me.Column11.Width = 50 + ' + 'AudioLevel + ' + Me.AudioLevel.HeaderText = "Audio Level" + Me.AudioLevel.Name = "AudioLevel" + Me.AudioLevel.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.AudioLevel.Width = 40 + ' + 'clmFilter + ' + Me.clmFilter.HeaderText = "Filter" + Me.clmFilter.Name = "clmFilter" + Me.clmFilter.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + ' + 'Template_File + ' + Me.Template_File.HeaderText = "Template File" + Me.Template_File.Name = "Template_File" + Me.Template_File.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.Template_File.Width = 200 + ' + 'BackIn + ' + Me.BackIn.FalseValue = "0" + Me.BackIn.HeaderText = "Back In" + Me.BackIn.Name = "BackIn" + Me.BackIn.TrueValue = "1" + Me.BackIn.Width = 35 + ' + 'AMCPCommands + ' + Me.AMCPCommands.HeaderText = "AMCP Commands" + Me.AMCPCommands.Name = "AMCPCommands" + Me.AMCPCommands.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + ' + 'ucPlaylist + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(1221, 918) + Me.Controls.Add(Me.gbplaylist) + Me.HideOnClose = True + Me.Name = "ucPlaylist" + Me.Text = "Playlist" + Me.gbplaylist.ResumeLayout(False) + Me.gbplaylist.PerformLayout() + Me.gbnowplaing.ResumeLayout(False) + Me.gbnowplaing.PerformLayout() + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + CType(Me.dgv1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.gbcliplist.ResumeLayout(False) + Me.gbcliplist.PerformLayout() + CType(Me.dgvclips, System.ComponentModel.ISupportInitialize).EndInit() + Me.cmsdgvclips.ResumeLayout(False) + Me.gbplayerforclipgrid.ResumeLayout(False) + Me.gbplayerforclipgrid.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbplaylist As System.Windows.Forms.GroupBox + Friend WithEvents chkcheckfilesinplaylist As System.Windows.Forms.CheckBox + Friend WithEvents chkshowthumbnail As System.Windows.Forms.CheckBox + Friend WithEvents gbnowplaing As System.Windows.Forms.GroupBox + Friend WithEvents txtbackin As System.Windows.Forms.TextBox + Friend WithEvents cmdbackin As System.Windows.Forms.Button + Friend WithEvents cmdstopnowplaying As System.Windows.Forms.Button + Friend WithEvents txtcommingupnext As System.Windows.Forms.TextBox + Friend WithEvents cmdnowplaying As System.Windows.Forms.Button + Friend WithEvents cmdcommingupnext As System.Windows.Forms.Button + Friend WithEvents cmdremainingdurationofplaylist As System.Windows.Forms.Button + Friend WithEvents txtremaingdurationofplaylist As System.Windows.Forms.TextBox + Friend WithEvents cmddurationofplaylist As System.Windows.Forms.Button + Friend WithEvents txtdurationofplalist As System.Windows.Forms.TextBox + Friend WithEvents dgv1 As System.Windows.Forms.DataGridView + Friend WithEvents txtfps As System.Windows.Forms.TextBox + Friend WithEvents lblfps As System.Windows.Forms.Label + Friend WithEvents Label75 As System.Windows.Forms.Label + Friend WithEvents lblplalistname As System.Windows.Forms.Label + Friend WithEvents cmddeleteclip As System.Windows.Forms.Button + Friend WithEvents chkplaylistlock As System.Windows.Forms.CheckBox + Friend WithEvents cmdmoveup As System.Windows.Forms.Button + Friend WithEvents cmdmovedown As System.Windows.Forms.Button + Friend WithEvents cmdinsert As System.Windows.Forms.Button + Friend WithEvents cmdstartplaylist As System.Windows.Forms.Button + Friend WithEvents btnstartattime As System.Windows.Forms.Button + Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker + Friend WithEvents gbcliplist As System.Windows.Forms.GroupBox + Friend WithEvents lblsearch As System.Windows.Forms.Label + Friend WithEvents Label237 As System.Windows.Forms.Label + Friend WithEvents pbclipsearchstatus As System.Windows.Forms.ProgressBar + Friend WithEvents cmdrefreshtvclips As System.Windows.Forms.Button + Friend WithEvents tvclips As System.Windows.Forms.TreeView + Friend WithEvents labelclips As System.Windows.Forms.Label + Friend WithEvents chkclipduration As System.Windows.Forms.CheckBox + Friend WithEvents dgvclips As System.Windows.Forms.DataGridView + Friend WithEvents cmdclipsearch As System.Windows.Forms.Button + Friend WithEvents txtsearch As System.Windows.Forms.TextBox + Friend WithEvents gbplayerforclipgrid As System.Windows.Forms.GroupBox + Friend WithEvents chkclipcountdown As System.Windows.Forms.CheckBox + Friend WithEvents chknextcuefor2ndchannel As System.Windows.Forms.CheckBox + Friend WithEvents Label220 As System.Windows.Forms.Label + Friend WithEvents Label221 As System.Windows.Forms.Label + Friend WithEvents Label222 As System.Windows.Forms.Label + Friend WithEvents cmdpauseforclipgrid As System.Windows.Forms.Button + Friend WithEvents tmrduration As System.Windows.Forms.Timer + Friend WithEvents tmrnextclip As System.Windows.Forms.Timer + Friend WithEvents tmrclipcountdown As System.Windows.Forms.Timer + Friend WithEvents tmrfornotskiping As System.Windows.Forms.Timer + Friend WithEvents cmsdgvclips As System.Windows.Forms.ContextMenuStrip + Friend WithEvents CueInCsparcgToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PlayInCasparcgToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents FileInformationToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents tmrcheckfilesinplaylist As System.Windows.Forms.Timer + Friend WithEvents tmrstartattime As System.Windows.Forms.Timer + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents StopF1ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PlayToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CueToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PauseToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ResumeToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents NextToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PlayNextF6ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents InsertBlankToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DeleteToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CopyToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PasteToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents MoveUpToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents MoveDownToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PlayInVLCToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CheckFilesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents OpenInTrimmerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents FileInformationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents InsertDecklinkToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents InsertDecklinkToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents InsertDecklinkToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents InsertDecklinkToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShowLiveToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShowLiveToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShowLiveToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShowLiveToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShowLiveToolStripMenuItem4 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShowLiveToolStripMenuItem5 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShowLiveToolStripMenuItem6 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShowLiveToolStripMenuItem7 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShowLiveToolStripMenuItem8 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents InsertDecklinkToolStripMenuItem4 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents InsertDecklinkToolStripMenuItem6 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents InsertDecklinkToolStripMenuItem7 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents InsertDecklinkToolStripMenuItem8 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents InsertDecklinkToolStripMenuItem5 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents InserEndToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SelectAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DeSelectAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SetStartTimeAcoordingToCurrentRowToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents RefreshThumbnailToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents InserPlaylistToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents chktemplatewithplaylist As System.Windows.Forms.CheckBox + Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn + Friend WithEvents InsertFilterForIMXFile As ToolStripMenuItem + Friend WithEvents chkDeinterlace As CheckBox + Friend WithEvents ChangeAllTransitionToolStripMenuItem As ToolStripMenuItem + Friend WithEvents MIXToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CutToolStripMenuItem As ToolStripMenuItem + Friend WithEvents WIPEToolStripMenuItem As ToolStripMenuItem + Friend WithEvents PUSHToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SLIDEToolStripMenuItem As ToolStripMenuItem + Friend WithEvents MenuStrip1 As MenuStrip + Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem + Friend WithEvents NewToolStripMenuItem As ToolStripMenuItem + Friend WithEvents OpenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SaveToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SaveAsToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuPlayinffplay As ToolStripMenuItem + Friend WithEvents cmdSmallScreen As Button + Friend WithEvents cmdFullScreen As Button + Friend WithEvents cmdcueforclipgrid As Button + Friend WithEvents cmdbackoneframeforclipgrid As Button + Friend WithEvents cmdplayforclipgrid As Button + Friend WithEvents cmdforwardoneframeforclipgrid As Button + Friend WithEvents cmdresumeforclipgrid As Button + Friend WithEvents cmdstopforclipgrid As Button + Friend WithEvents cmdcuenextforclipgrid As Button + Friend WithEvents cmdplaynextforclipgrid As Button + Friend WithEvents File_Name As DataGridViewTextBoxColumn + Friend WithEvents Start_Time As DataGridViewTextBoxColumn + Friend WithEvents x As DataGridViewCheckBoxColumn + Friend WithEvents Clip_Duration As DataGridViewTextBoxColumn + Friend WithEvents Conversion As DataGridViewCheckBoxColumn + Friend WithEvents FileType As DataGridViewComboBoxColumn + Friend WithEvents LoopVideo As DataGridViewCheckBoxColumn + Friend WithEvents Column3 As DataGridViewImageColumn + Friend WithEvents Transition As DataGridViewComboBoxColumn + Friend WithEvents T_Duration As DataGridViewComboBoxColumn + Friend WithEvents Column11 As DataGridViewCheckBoxColumn + Friend WithEvents AudioLevel As DataGridViewTextBoxColumn + Friend WithEvents clmFilter As DataGridViewTextBoxColumn + Friend WithEvents Template_File As DataGridViewTextBoxColumn + Friend WithEvents BackIn As DataGridViewCheckBoxColumn + Friend WithEvents AMCPCommands As DataGridViewTextBoxColumn +End Class diff --git a/CasparMediaPlayback/ucPlaylist.resx b/CasparMediaPlayback/ucPlaylist.resx new file mode 100644 index 0000000..2f451b1 --- /dev/null +++ b/CasparMediaPlayback/ucPlaylist.resx @@ -0,0 +1,293 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 299, 41 + + + 398, 41 + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + 748, 21 + + + 637, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAACEAAAASCAIAAABaaCA7AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAASxJREFUSEu1lLGuREAUhjcShVKvEgmdKPRki9uJTkmi1EroJV5CodErPIhH8Qju + 2T1n7WDu2CX3q4yc839k5sxt/n9Wjr7voyj6OUvTNBS05u1o2/Z2DcdxuCZyXBcsgGmjeTimaSqK4n4K + SKRshizLMB25uufDMOxN5x1lWcZxPI4jrRnAxGpOOtI0hWbLsmi9o6oqFABnHCgA8jynV2vgF3Vdxxpg + U3bsCIIAO1VV9X0fR4FF0zQsQAzDoM4XBw7btrFTlmV8ELMXACKHaZrUKkRRFDharuuGYUida/50eJ5H + GU8kSYINf47EG0EuC9/RdR1lM+wH+EP4Djjv8I2UzQAa3OevZKL9qOuae1UAoOEOIxeRA9gM8EKSJFTx + AQcOAG8kYJF9JZjn+RemzHoEM5fy8QAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABCElE + QVQ4T42SQapFYBSAmdwopZRSSpQoRUyMDO/IxNgO7MHMAoyUqS1YhSkjGbIDNnBe976T++Qez1ff4P/P + 6etPGPhDmqYwTROerlEUBRiGAY7j4BDxfR+iKIK2bfGG5hXYxbs3ruvu5nkO27bh5AwZcRzn4PP5hHEc + cXqEZdnvEdu2v9o0DW58IF9imiZplmWwrituXkQMw7jU8zzouu69S0Y0TbtlWZZ0RFXV25KR1w90R8uy + 6Igsy/+aJAksy0JHJEki1XUd6rrGzYsPK4riV+M4hnmecesXMiIIwsmqqnB6hIzwPL8bhiEMw4CTM2Tk + 8Xi8LYoCb2jISBAE0Pc9nq75RBj4ASUmzAjdGrvOAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr/AAAK/wE0YpqCAAAAXElE + QVQ4T6XDAQYAIQBE0SGWiIiIiFgiIvb+Z/t7iHk8fd+HW/de3Drn4NbeG7fWWrj1vi9uzTlxa4yBW713 + 3Gqt4VatFbdKKbiVc8atlBJuxRhx63ke3Aoh4A38dSp7YNcNmvAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACIAAAARCAYAAAC4qX7BAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr/AAAK/wE0YpqCAAABl0lE + QVRIS53QjYkCUQwE4AVBEARlQRAEURAEQViwgSvhSrgSLCGlXAlXgiVYwpWwHeRmHpvFDOvfCR+EJCN5 + W7l7cTqdXBiwT6zTPHIKsys0+FXH47E4HA7Vfr+vdrtdsd1uq/V6Xa1Wqz7XFwi6MGCfWKd55FQ3b+Hr + X4cg4MIgXsU6zSOnZO8b5m8dgmUXBuU1XZ3mkVO6B7/QvHwIFl0YlJd0dZpHTunejfNLh2DBhUG8gnWa + R07pnviB+cNDMHRhUK7v6jSPnNK9AS183D0EAxcG5fKuTvPIKd17wAYPQdNFWeywTvPIKd174hK5/g+W + y6ULA/aJdZpHTuneAy18Rq7/g8Vi4cKAfWKd5pFTunfHBTY4pM/1RV3XLgzYJ9ZpHjmle6KFM44oDxw8 + ZDabuTBgn1ineeSU7t24wAaHxFcePmQ6nbowYJ9Yp3nklO51zjiiPOrpIZPJxIUB+8Q6zSOnZO8KDQ6J + L/v8kPF47MKAfWKd5pFTNzv9Q946ZDQauTBgn1ineeQUZldocEh8zRcO8eoPf7l/sEceTHUAAAAASUVO + RK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABkAAAARCAIAAACn2JBZAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAbpJREFUOE+Fk7/LQVEYx68dRRaDwd+gDDaSKCmbRVksJtxikKJQBouJQYl/RBnE + oCyUlN1C5Ef59X7f93ne073uxWd6zvf53u859/Qc6ang8Xhw9QYYPng4a7lcHg4HqrVuKPP5/HQ6UU2i + Fs4qlUo+n288HtNS+0E6nQ4Gg9PplJa6iZxVqVQkSTKbzdVqlfZ/IZPJwGCz2RqNxvl8ZlUNZ9VqNVgJ + v98/Go1Ix/50BFmWuS1JoVBIHPB+v1MBdLIADlgsFvf7PXWBMgtYrVb8yvF45PYf+lmEx+MZDAZkyGaz + JBoMBiqA1+sVfwA+ZQGTyVQoFLbbbT6fZ0mNxWIpl8u73e57FuF2uyORCC8UiDO6XK7FYvE9y2g0YmIS + iQSvNeByYdhsNl+yAoHAcDiEIZfLsaQmHA5PJhMKeZuFUarX65fLhQzi7gV2u73ZbF6vV3RpbvSzotHo + bDajFqGcCVxTLBbDq+LeP69ZDoej1WrdbjeItBshspxOZ6/XY1Xt4SxMJnzxeHy1WpHyQiqVgiGZTK7X + a5Y0cFa32+10OlT/vhrN02232/1+n2pdA+As3Z7g3ccqns8fy5Eabj5nOr0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr2AAAK9gHCr3ADAAAA0UlE + QVQ4T5XU0QmDMBSF4YIgCIJFEARBKgiCIARcoCN0hI7QETpKR+gIjuAIHSEbnF6hlHskmvjwPfzRRILR + E4C/cRxnYfRYCApjDIQVdz3uQzEMA5SXOOvrWyj6vsfKR3i3R9F1HTY89H1rFG3bYsdbOLdH0TQNPKy4 + 6jkLirquEeip59EiVVXhgMm5SFmWCGTFzblIURQIMImLnkeL5HmOHVY4XzVFlmXYMAl6ukaRpikcdg/a + giJJEiizCPqiKeI4xg+dAx+KKIpmcfB/gtMXXxuG1ZI+Sc0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABkAAAARCAIAAACn2JBZAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAb1JREFUOE99k73LgVEYxo8dRRaDwd+gDDaSKCmbRVksJh/FIEWhDBYTgxL/iDKI + QVkoKbuFyEfh9d6v+3ac8zjP+xt0znVfrufqPOdhTx1+XtBGB43hvyz4PZ/Pi8XiO5Qrx+NxtVrhWpHF + fbPZLBgMptNp3HK4YTKZ+Hy+crmMW3Wvy+XSbDZtNhtjLJPJkCoAfWu1mtlsBkO1WkXxk/V4PHABdUKh + EJiQXC4HInThdcbjsd/vpzFj9XoddanX6XSCh1itVnK9wCzkcDiUSiWsw1FkwdO8Xi/NGTMYDLjIZrNo + GA6HHo8HRREpa7/fVyoVi8VCQ5lCobDb7YrFoslkIknmk7VcLl0uF6q8i0gkEnG73bRR8cnabrfwUjVH + IJJIJMBgNBpp/4X2vKbTaTgcpqFMPp8Hw2g0CgQCJMlIWfiyb7dbq9Wy2+1kecPP/nq9NhoNvHQi2l4c + +GJisZh4cOKdAObzeTQapdkLRRa/ikC/33c6nWgVs9Bzv9/b7bbD4UCDbi/OZrNJJpNgTaVSJMms1+t4 + PA4GuL2oKLL+PpZ3x8Fg0Ol0cM0RDd1ut9fr4Vq3F0f8pxKaPp+//Qgabux5RP0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABUAAAARCAYAAAAyhueAAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABGElE + QVQ4T62TMYqDQBhG1yZEEARBCAiiIBEERRsrSysba2/gHdJ5gFRCWq+QU9gmlVjqDeIFvv2VGEhW47jJ + B6+ZefO6+aFh5HXb7XY43+1295P3q+saSZL0b+aj7+5edz6fEQQBXNft/c+iXdfhcDjAtu0H5C9HOY67 + nzyvqiqEYQjLsp6gN8vRqbuiKGCa5iTkr4vebjekaQrDMGYhnz1aliUcx4Gu628hny16PB6hqioT5LNF + FUVhhny26H6/Hz4BC+SzRdu2RRzHkGV5EfLZouNOpxM0TYMkSbOQvy7ar2kaRFEEURQnIX99dFye5xAE + 4Q/k/z/a73q9wvd98Dz/gPzPouOyLMNmsxkg/zvRfpfLBZ7n4RcaEUKgZ0R90QAAAABJRU5ErkJggg== + + + + 124, 15 + + + 241, 15 + + + 354, 15 + + + 505, 15 + + + 16, 41 + + + 169, 41 + + + 128 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucPlaylist.vb b/CasparMediaPlayback/ucPlaylist.vb new file mode 100644 index 0000000..116c7a7 --- /dev/null +++ b/CasparMediaPlayback/ucPlaylist.vb @@ -0,0 +1,2387 @@ +Imports System.IO +Imports System.Data +Public Class ucPlaylist + Public i As Integer 'for loop + Public j As Integer + Public k As Integer + Public jj As Integer + Private Sub dgvclips_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvclips.CellContentClick + End Sub + Private Sub cmdrefreshtvclips_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrefreshtvclips.Click + On Error Resume Next + initialisetvclips() + End Sub + Sub initialisetvclips() + On Error Resume Next + tvclips.Nodes.Clear() + Dim xx As String = "" + If frmmediaplayer.ucTab1.UcPlaylistSetting1.rdoclipfromfilesystem.Checked Then + tvclips.Nodes.Add(mediafullpath) + PopulateTreeView(mediafullpath, tvclips.Nodes(0)) + ElseIf frmmediaplayer.uctab1.UcPlaylistSetting1.rdoclipfromserver.Checked Then + Dim aa() As String + If ServerVersion = 2.1 Then 'added because server 2.1 sends each files as indivisual , no folder name. 150119 + 'MsgBox("from 2.1") + CasparDevice.RefreshMediafiles() + Threading.Thread.Sleep(500) + ReDim aa(CasparDevice.Mediafiles.Count) + For iclips = 0 To CasparDevice.Mediafiles.Count - 1 + Dim foldername As String = "" + foldername = Mid(CasparDevice.Mediafiles.Item(iclips).Name, 1, Len(CasparDevice.Mediafiles.Item(iclips).Name) - Len(Split(CasparDevice.Mediafiles.Item(iclips).Name, "/").Last) - 1) + aa(iclips) = "Clips\" & Replace(foldername, "/", "\") + Next + ElseIf ServerVersion = 2.0 Then + 'MsgBox("from 2.07") + CasparDevice.RefreshMediafiles() + Threading.Thread.Sleep(500) + ReDim aa(CasparDevice.Mediafiles.Count) + For iclips = 0 To CasparDevice.Mediafiles.Count - 1 + aa(iclips) = "Clips\" & CasparDevice.Mediafiles.Item(iclips).Folder + Next + + ElseIf ServerVersion > 2.1 Then + 'MsgBox("from 2.2 or 2.3") + Dim webClient As New System.Net.WebClient + Dim result As String = webClient.DownloadString("http://" & frmmediaplayer.cmbhost.Text & ":8000/cls") + Dim bb() = Split(result, vbNewLine) + ReDim aa(bb.Count) + For iclips = 0 To bb.Count - 1 + Dim foldername As String = "" + Dim clipname As String = Replace(Replace(Split(bb(iclips), " ")(0), "\", "/"), """", "") + foldername = Mid(clipname, 1, Len(clipname) - Len(Split(clipname, "/").Last) - 1) + aa(iclips) = "Clips\" & Replace(foldername, "/", "\") + Next + End If +50: + createTreeview(aa) + End If + tvclips.Sort() '210515 + tvclips.Nodes(0).Expand() + End Sub + Sub createTreeview(aa() As String) + + Dim nodeData As New List(Of String)(aa) + Dim TN As TreeNode + For Each nodePath As String In nodeData + TN = Nothing + For Each node As String In nodePath.Split("\"c) + If node <> "" Then + If IsNothing(TN) Then + If tvclips.Nodes.ContainsKey(node) Then + TN = tvclips.Nodes(node) + Else + TN = tvclips.Nodes.Add(node, node) + End If + Else + If TN.Nodes.ContainsKey(node) Then + TN = TN.Nodes(node) + Else + TN = TN.Nodes.Add(node, node) + End If + End If + End If + Next + Next + + End Sub + + Private Sub PopulateTreeView(ByVal dir As String, ByVal parentNode As TreeNode) + On Error Resume Next + Dim folder As String = String.Empty + Dim folders() As String = Directory.GetDirectories(dir) + If folders.Length <> 0 Then + Dim childNode As TreeNode = Nothing + For Each folder In folders + childNode = New TreeNode(IO.Path.GetFileName(folder)) + parentNode.Nodes.Add(childNode) + PopulateTreeView(folder, childNode) + Next + End If + + End Sub + + Private Sub tvclips_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvclips.AfterSelect + On Error Resume Next + If frmmediaplayer.ucTab1.UcPlaylistSetting1.rdoclipfromfilesystem.Checked Then + lblsearch.Text = Replace(Mid(tvclips.SelectedNode.FullPath, Len(mediafullpath) + 2), "\", "/") & "/" + ElseIf frmmediaplayer.uctab1.UcPlaylistSetting1.rdoclipfromserver.Checked Then + lblsearch.Text = Replace(Mid(tvclips.SelectedNode.FullPath, 5 + 2), "\", "/") & "/" + End If + If lblsearch.Text = "/" Then lblsearch.Text = "" + txtsearch.Text = "" + End Sub + Sub initialiseplaylistdata() + On Error Resume Next + Me.DateTimePicker1.Value = Now + Me.DateTimePicker1.CustomFormat = "dd/MMM HH:mm:ss" + + dgv1.Rows.Add(15) + Me.dgv1.Item("File_Name", 0).Value = "go1080p25.mp4" + Me.dgv1.Item("File_Name", 1).Value = "CG1080i50.mp4" + Me.dgv1.Item("File_Name", 2).Value = "amb.mp4" + Me.dgv1.Item("File_Name", 3).Value = "CG1080i50_A.mp4" + Me.dgv1.Item("File_Name", 4).Value = "go1080p25.mp4" + Me.dgv1.Item("File_Name", 5).Value = "CG1080i50.mp4" + Me.dgv1.Item("File_Name", 6).Value = "amb.mp4" + + Me.dgv1.Item("Clip_Duration", 0).Value = "00:00:17" + Me.dgv1.Item("Clip_Duration", 1).Value = "00:00:10" + Me.dgv1.Item("Clip_Duration", 2).Value = "00:00:10" + Me.dgv1.Item("Clip_Duration", 3).Value = "00:00:10" + Me.dgv1.Item("Clip_Duration", 4).Value = "00:00:17" + Me.dgv1.Item("Clip_Duration", 5).Value = "00:00:10" + Me.dgv1.Item("Clip_Duration", 6).Value = "00:00:10" + + Me.dgv1.Item("Column3", 0).Value = System.Drawing.Image.FromFile(thumbnailsfullpath & "go1080p25.png") + Me.dgv1.Item("Column3", 1).Value = System.Drawing.Image.FromFile(thumbnailsfullpath & "CG1080i50.png") + Me.dgv1.Item("Column3", 2).Value = System.Drawing.Image.FromFile(thumbnailsfullpath & "amb.png") + Me.dgv1.Item("Column3", 3).Value = System.Drawing.Image.FromFile(thumbnailsfullpath & "CG1080i50_A.png") + Me.dgv1.Item("Column3", 4).Value = System.Drawing.Image.FromFile(thumbnailsfullpath & "go1080p25.png") + Me.dgv1.Item("Column3", 5).Value = System.Drawing.Image.FromFile(thumbnailsfullpath & "CG1080i50.png") + Me.dgv1.Item("Column3", 6).Value = System.Drawing.Image.FromFile(thumbnailsfullpath & "amb.png") + + Me.dgv1.Item("Template_File", 0).Value = "C:\casparcg\mydata\rundown\File_Based_Graphics_List.txt" + + Dim i As Integer + For i = 0 To dgv1.Rows.Count - 1 + dgv1.Item("x", i).Value = 1 + dgv1.Item("Transition", i).Value = "CUT" + dgv1.Item("T_Duration", i).Value = 10 + dgv1.Item("AudioLevel", i).Value = 1.0 + + Next + + Me.dgv1.Item("FileType", 0).Value = "Others" + Me.dgv1.Item("FileType", 1).Value = "Program" + Me.dgv1.Item("FileType", 2).Value = "Promo" + Me.dgv1.Item("FileType", 3).Value = "Commercial" + Me.dgv1.Item("FileType", 4).Value = "Others" + Me.dgv1.Item("FileType", 5).Value = "Program" + Me.dgv1.Item("FileType", 6).Value = "Promo" + + End Sub + + Sub enableplaylist() + On Error Resume Next + chkplaylistlock.Checked = False + End Sub + Sub disableplaylist() + On Error Resume Next + chkplaylistlock.Checked = True + End Sub + + Private Sub cmdstartplaylist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstartplaylist.Click + On Error Resume Next + 'if nothing is selected + Dim bbb As Integer = 0 + For aaa = 0 To dgv1.RowCount - 1 + bbb = bbb + dgv1.Item("x", aaa).Value + Next + If bbb = 0 Then MsgBox("no clip is selected") : Exit Sub + + playlist() + chkplaylistlock.Checked = True + txtdurationofplalist.Focus() 'Remove focus from startplaylist button, so that enter button should not click it again. + + iclippauseresume = 1 + End Sub + + Sub playlist() + On Error Resume Next + + currrow = Me.dgv1.CurrentRow.Index + + If dgv1.CurrentRow.Cells("x").Value = 1 Then + If (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 8)).ToUpper = "DECKLINK" Then + + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & dgv1.CurrentRow.Cells("File_Name").Value & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + GoTo 30 + End If + + If (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "HTTP" Then + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " [HTML] " & dgv1.CurrentRow.Cells("File_Name").Value & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + GoTo 30 + End If + If (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "UDP:" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTP:" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "TCP:" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTMP" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTSP" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTCP" Then + + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & dgv1.CurrentRow.Cells("File_Name").Value & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + GoTo 30 + End If + + If frmmediaplayer.ucTab1.UcPlaylistSetting1.chkLoadbg.Checked Then + If System.IO.Path.GetExtension(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) = ".txt" Then + readsubclip(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) + If ServerVersion > 2.1 Then + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek * 2 & " length " & cliplength * 2 & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + Else + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek & " length " & cliplength & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + End If + CasparDevice.SendString("loadbg " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgv1.Rows(dgv1.CurrentRow.Index + 1).Cells("File_Name").Value) & """") + Else + + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgv1.CurrentRow.Cells("File_Name").Value) & """" & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + CasparDevice.SendString("loadbg " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgv1.Rows(dgv1.CurrentRow.Index + 1).Cells("File_Name").Value) & """") + End If + Else + If System.IO.Path.GetExtension(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) = ".txt" Then + readsubclip(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek & " length " & cliplength & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + Else + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgv1.CurrentRow.Cells("File_Name").Value) & """" & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + End If + End If + +30: sendmixercommandforclip() 'decklink play was not sending amcp command 'reported by forum member mrvdberg 11112019 + + End If + createasrunlog() + If dgv1.Rows(currrow).Cells("Column11").Value = True Then + calculateinterval() + Else + tmrnextclip.Interval = 1000 + End If + tmrduration.Enabled = True + + tmrfornotskiping.Enabled = True + + Me.tmrstartattime.Enabled = False + chkplaylistlock.Checked = True + adjusttimeofplaylist() + + linktemplatetoplaylist() + End Sub + + Sub sendmixercommandforclip() + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " volume " & dgv1.CurrentRow.Cells("AudioLevel").Value) + Threading.Thread.Sleep(frmmediaplayer.ucTab1.UcPlaylistSetting1.txtmixercommandforconversion.Text) + If dgv1.CurrentRow.Cells("Conversion").Value = 1 Then 'for conversion + + 'With ucPlaylistSetting + With frmmediaplayer.ucTab1.UcPlaylistSetting1 + If .rdocentercutsetting.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " fill " & .txtcentercutsetting.Text) + ElseIf .rdoletterboxsettings.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " fill " & .txtletterboxsettings.Text) + ElseIf .rdopillarboxsettings.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " fill " & .txtpillarboxsettings.Text) + ElseIf .rdocropsettings.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " fill " & .txtcropsettings.Text) + ElseIf .rdoanamorphic.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " fill " & .txtanamorphic.Text) + End If + End With + Else + + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " fill 0 0 1 1") + End If + + If dgv1.Rows(currrow).Cells("AMCPCommands").Value <> "" Then + + Dim aa() = Split(dgv1.Rows(currrow).Cells("AMCPCommands").Value, ",,") + For inumberofcommands = 0 To aa.Count - 1 + CasparDevice.SendString(aa(inumberofcommands)) + Next + + End If + + End Sub + Sub calculateinterval() + Dim dH As Integer + Dim dM As Integer + Dim dS As Integer + Dim dd As Array = Split(dgv1.Rows(currrow).Cells("Clip_Duration").Value, ":") + dH = dd(0) + dM = dd(1) + dS = dd(2) + Dim totalsecond As Integer = dH * 3600 + dM * 60 + dS + tmrnextclip.Interval = totalsecond * 1000 - tmrfornotskiping.Interval + End Sub + Sub createasrunlog() + Dim filename As String = "c:/casparcg/mydata/asrunlog/asrunlog_" & DateTime.Now.ToString("ddMMyy") & ".txt" + If System.IO.File.Exists(filename) = False Then + System.IO.File.Create(filename) + End If + GC.Collect() + GC.WaitForPendingFinalizers() + Using sw As StreamWriter = System.IO.File.AppendText(filename) + sw.WriteLine(Now & vbTab & dgv1.CurrentRow.Cells("Clip_Duration").Value & vbTab & vbTab & dgv1.CurrentRow.Cells("File_Name").Value) + sw.Close() + End Using + End Sub + + Sub openfile() + ' On Error Resume Next + ofd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + ofd2.InitialDirectory = "c:\casparcg\mydata\playlist\" + If (ofd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + SaveToolStripMenuItem.Enabled = True + Using sr As StreamReader = New StreamReader(ofd2.FileName) + 'clear list + dgv1.Rows.Clear() + 'Loop through and add list to the file. + Dim g As Integer = 0 + Dim li As String + Do Until sr.EndOfStream = True + li = sr.ReadLine() + dgv1.Rows.Add() + Dim xyz As Array = Split(li, Chr(2)) + dgv1.Rows(g).Cells("File_Name").Value = xyz(0) + dgv1.Rows(g).Cells("Start_Time").Value = xyz(1) + dgv1.Rows(g).Cells("x").Value = xyz(2) + dgv1.Rows(g).Cells("Transition").Value = xyz(3) + dgv1.Rows(g).Cells("T_Duration").Value = xyz(4) + dgv1.Rows(g).Cells("LoopVideo").Value = xyz(5) + dgv1.Rows(g).Cells("Clip_Duration").Value = xyz(6) + If chkshowthumbnail.Checked Then + Dim aa As Array = Split(xyz(0), ".") + If aa.Length = 2 Then + If aa(1) = "txt" Then + readsubclip(mediafullpath & xyz(0)) + If System.IO.File.Exists(thumbnailsfullpath & Split(masterfilename, ".")(0) & ".png") Then + dgv1.Rows(g).Cells("Column3").Value = System.Drawing.Image.FromFile(thumbnailsfullpath & Split(masterfilename, ".")(0) & ".png") + End If + Else + If System.IO.File.Exists(thumbnailsfullpath & aa(0) & ".png") Then + dgv1.Rows(g).Cells("Column3").Value = System.Drawing.Image.FromFile(thumbnailsfullpath & aa(0) & ".png") + End If + End If + End If + End If + + dgv1.Rows(g).Cells("Column11").Value = xyz(7) + dgv1.Rows(g).Cells("AudioLevel").Value = xyz(8) + dgv1.Rows(g).Cells("Conversion").Value = xyz(9) + dgv1.Rows(g).Cells("clmFilter").Value = xyz(10) + dgv1.Rows(g).Cells("Template_File").Value = xyz(11) + dgv1.Rows(g).Cells("FileType").Value = xyz(12) + dgv1.Rows(g).Cells("BackIn").Value = xyz(13) + dgv1.Rows(g).Cells("AMCPCommands").Value = xyz(14) + g = g + 1 + Loop + sr.Close() + End Using + Me.lblplalistname.Text = "playlist= " & ofd2.FileName + End If + End Sub + + Sub openfile(filename As String) + ' On Error Resume Next + ofd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + ofd2.InitialDirectory = "c:\casparcg\mydata\playlist\" + + SaveToolStripMenuItem.Enabled = True + Using sr As StreamReader = New StreamReader(filename) + 'clear list + dgv1.Rows.Clear() + 'Loop through and add list to the file. + Dim g As Integer = 0 + Dim li As String + Do Until sr.EndOfStream = True + li = sr.ReadLine() + dgv1.Rows.Add() + Dim xyz As Array = Split(li, Chr(2)) + dgv1.Rows(g).Cells("File_Name").Value = xyz(0) + dgv1.Rows(g).Cells("Start_Time").Value = xyz(1) + dgv1.Rows(g).Cells("x").Value = xyz(2) + dgv1.Rows(g).Cells("Transition").Value = xyz(3) + dgv1.Rows(g).Cells("T_Duration").Value = xyz(4) + dgv1.Rows(g).Cells("LoopVideo").Value = xyz(5) + dgv1.Rows(g).Cells("Clip_Duration").Value = xyz(6) + If chkshowthumbnail.Checked Then + Dim aa As Array = Split(xyz(0), ".") + If aa.Length = 2 Then + If aa(1) = "txt" Then + readsubclip(mediafullpath & xyz(0)) + If System.IO.File.Exists(thumbnailsfullpath & Split(masterfilename, ".")(0) & ".png") Then + dgv1.Rows(g).Cells("Column3").Value = System.Drawing.Image.FromFile(thumbnailsfullpath & Split(masterfilename, ".")(0) & ".png") + End If + Else + If System.IO.File.Exists(thumbnailsfullpath & aa(0) & ".png") Then + dgv1.Rows(g).Cells("Column3").Value = System.Drawing.Image.FromFile(thumbnailsfullpath & aa(0) & ".png") + End If + End If + End If + End If + + dgv1.Rows(g).Cells("Column11").Value = xyz(7) + dgv1.Rows(g).Cells("AudioLevel").Value = xyz(8) + dgv1.Rows(g).Cells("Conversion").Value = xyz(9) + dgv1.Rows(g).Cells("clmFilter").Value = xyz(10) + g = g + 1 + Loop + sr.Close() + End Using + Me.lblplalistname.Text = "playlist= " & ofd2.FileName + + End Sub + + + Sub insertfile() + On Error Resume Next + ofd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + ofd2.InitialDirectory = "c:\casparcg\mydata\playlist\" + If (ofd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sr As StreamReader = New StreamReader(ofd2.FileName) + + Dim g As Integer = dgv1.CurrentRow.Index + Dim li As String + Do Until sr.EndOfStream = True + li = sr.ReadLine() + dgv1.Rows.Insert(dgv1.CurrentRow.Index, 1) + Dim xyz As Array = Split(li, Chr(2)) + dgv1.Rows(g).Cells("File_Name").Value = xyz(0) + dgv1.Rows(g).Cells("Start_Time").Value = xyz(1) + dgv1.Rows(g).Cells("x").Value = xyz(2) + dgv1.Rows(g).Cells("Transition").Value = xyz(3) + dgv1.Rows(g).Cells("T_Duration").Value = xyz(4) + dgv1.Rows(g).Cells("LoopVideo").Value = xyz(5) + dgv1.Rows(g).Cells("Clip_Duration").Value = xyz(6) + If chkshowthumbnail.Checked Then + Dim aa As Array = Split(xyz(0), ".") + If aa.Length = 2 Then + If aa(1) = "txt" Then + readsubclip(mediafullpath & xyz(0)) + If System.IO.File.Exists(thumbnailsfullpath & Split(masterfilename, ".")(0) & ".png") Then + dgv1.Rows(g).Cells("Column3").Value = System.Drawing.Image.FromFile(thumbnailsfullpath & Split(masterfilename, ".")(0) & ".png") + End If + Else + If System.IO.File.Exists(thumbnailsfullpath & aa(0) & ".png") Then + dgv1.Rows(g).Cells("Column3").Value = System.Drawing.Image.FromFile(thumbnailsfullpath & aa(0) & ".png") + End If + End If + End If + End If + dgv1.Rows(g).Cells("Column11").Value = xyz(7) + dgv1.Rows(g).Cells("AudioLevel").Value = xyz(8) + dgv1.Rows(g).Cells("Conversion").Value = xyz(9) + dgv1.Rows(g).Cells("clmFilter").Value = xyz(10) + dgv1.Rows(g).Cells("Template_File").Value = xyz(11) + dgv1.Rows(g).Cells("FileType").Value = xyz(12) + dgv1.Rows(g).Cells("BackIn").Value = xyz(13) + dgv1.Rows(g).Cells("AMCPCommands").Value = xyz(14) + g = g + 1 + Loop + sr.Close() + End Using + Me.lblplalistname.Text = "playlist= " & Me.lblplalistname.Text & " + " & ofd2.FileName + End If + End Sub + + Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + savefile() + End Sub + Sub savefile() + On Error Resume Next + osd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + osd2.InitialDirectory = "c:\casparcg\mydata\playlist\" + + osd2.FileName = Globalization.CultureInfo.CurrentCulture.DateTimeFormat.GetDayName((Date.Today).DayOfWeek) & "_" & (Date.Today).Day & "_" & (Date.Today).Month & "_" & (Date.Today).Year & "_" & (TimeOfDay.Hour + 1) & "HRS" + If (osd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sw As StreamWriter = New StreamWriter(osd2.FileName) + If dgv1.Rows.Count = 0 Then + sw.Write("") + Else + 'Loop through and add list to the file. + Dim f As Integer = 0 + Do Until f = dgv1.Rows.Count + If dgv1.Rows(f).Cells("x").Value = False Then dgv1.Rows(f).Cells("x").Value = "0" + If dgv1.Rows(f).Cells("Column11").Value = False Then dgv1.Rows(f).Cells("Column11").Value = "0" + If dgv1.Rows(f).Cells("Conversion").Value = False Then dgv1.Rows(f).Cells("Conversion").Value = "0" + If dgv1.Rows(f).Cells("BackIn").Value = False Then dgv1.Rows(f).Cells("BackIn").Value = "0" + + sw.WriteLine(dgv1.Rows(f).Cells("File_Name").Value & Chr(2) & dgv1.Rows(f).Cells("Start_Time").Value & Chr(2) & dgv1.Rows(f).Cells("x").Value & Chr(2) & dgv1.Rows(f).Cells("Transition").Value & Chr(2) & dgv1.Rows(f).Cells("T_Duration").Value & Chr(2) & dgv1.Rows(f).Cells("LoopVideo").Value & Chr(2) & dgv1.Rows(f).Cells("Clip_Duration").Value & Chr(2) & dgv1.Rows(f).Cells("Column11").Value & Chr(2) & dgv1.Rows(f).Cells("AudioLevel").Value & Chr(2) & dgv1.Rows(f).Cells("Conversion").Value & Chr(2) & dgv1.Rows(f).Cells("clmFilter").Value & Chr(2) & dgv1.Rows(f).Cells("Template_File").Value & Chr(2) & dgv1.Rows(f).Cells("FileType").Value & Chr(2) & dgv1.Rows(f).Cells("BackIn").Value & Chr(2) & dgv1.Rows(f).Cells("AMCPCommands").Value) + f = f + 1 + Loop + End If + sw.Close() + End Using + Me.lblplalistname.Text = "playlist= " & osd2.FileName + SaveToolStripMenuItem.Enabled = True + End If + End Sub + + Sub showlivedecklink(devicenumber As Integer) + On Error Resume Next + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " decklink " & devicenumber) + End Sub + Private Sub btnstartattime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstartattime.Click + On Error Resume Next + 'if nothing is selected + Dim bbb As Integer = 0 + For aaa = 0 To dgv1.RowCount - 1 + bbb = bbb + dgv1.Rows(aaa).Cells("x").Value + Next + If bbb = 0 Then MsgBox("no clip is selected") : Exit Sub + + Dim aa As Date = DateTimePicker1.Value + Dim elapsed As Integer + elapsed = (aa.Date - Now.Date).Days + If ((23 < elapsed) Or (0 > elapsed)) Then + MsgBox("value must be less than 23 days" & "Your value is " & elapsed) + Exit Sub + End If + + timeinterval = (86400000 * elapsed) + (aa.Hour - Now.Hour) * 3600000 + (aa.Minute - Now.Minute) * 60000 + (aa.Second - Now.Second) * 1000 + If timeinterval < 0 Then + MsgBox("Past time is not allowed") + Exit Sub + End If + + Me.tmrstartattime.Interval = timeinterval + Me.tmrstartattime.Enabled = True + + chkplaylistlock.Checked = True + End Sub + + Private Sub tmrstartattime_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrstartattime.Tick + On Error Resume Next + Me.tmrstartattime.Enabled = False + playlist() + End Sub + + Private Sub cmddurationofplaylist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddurationofplaylist.Click + On Error Resume Next + Dim dH As Integer = 0 + Dim dM As Integer = 0 + Dim dS As Integer = 0 + + For iduration = 0 To dgv1.Rows.Count - 1 + If dgv1.Rows(iduration).Cells("x").Value = 1 Then + Dim dd As Array = Split(dgv1.Rows(iduration).Cells("Clip_Duration").Value, ":") + dH = dH + dd(0) + dM = dM + dd(1) + dS = dS + dd(2) + End If + Next + Dim totalsecond As Integer = dH * 3600 + dM * 60 + dS + Dim aa = TimeSpan.FromSeconds(totalsecond) + + txtdurationofplalist.Text = aa.Hours & ":" & aa.Minutes & ":" & aa.Seconds + End Sub + Private Sub cmdremainingdurationofplaylist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremainingdurationofplaylist.Click + On Error Resume Next + Dim dH As Integer = Split(frmmediaplayer.lblremainintime.Text, ":")(0) ' Split(dgv1.CurrentRow.Cells("Duration").Value, ":")(0) + Dim dM As Integer = Split(frmmediaplayer.lblremainintime.Text, ":")(1) + Dim dS As Integer = Split(frmmediaplayer.lblremainintime.Text, ":")(2) + + For iduration = ((dgv1.CurrentRow.Index) + 1) To dgv1.Rows.Count - 1 + If dgv1.Rows(iduration).Cells("x").Value = 1 Then + Dim dd As Array = Split(dgv1.Rows(iduration).Cells("Clip_Duration").Value, ":") + dH = dH + dd(0) + dM = dM + dd(1) + dS = dS + dd(2) + End If + Next + + Dim totalsecond As Integer = dH * 3600 + dM * 60 + dS + Dim aa = TimeSpan.FromSeconds(totalsecond) + + txtremaingdurationofplaylist.Text = aa.Hours & ":" & aa.Minutes & ":" & aa.Seconds + End Sub + + Public Sub PlaySingleClip() + On Error Resume Next + currrow = dgv1.CurrentRow.Index + If dgv1.CurrentRow.Cells("File_Name").Value = "" Then Exit Sub + + playcommand() + + sendmixercommandforclip() + tmrduration.Enabled = True + createasrunlog() + + iclippauseresume = 1 + End Sub + + Sub playcommand() + If (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 8)).ToUpper = "DECKLINK" Then + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & dgv1.CurrentRow.Cells("File_Name").Value & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + ElseIf (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "HTTP" Then + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " [HTML] " & dgv1.CurrentRow.Cells("File_Name").Value & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + ElseIf (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "UDP:" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTP:" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "TCP:" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTMP" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTSP" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTCP" Then + + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & dgv1.CurrentRow.Cells("File_Name").Value & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + + ElseIf System.IO.Path.GetExtension(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) = ".txt" Then + readsubclip(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) + + frmmediaplayer.ucCasparcgWindow1.txtmarkin.Text = clipseek + frmmediaplayer.ucCasparcgWindow1.txtmarkout.Text = cliplength + clipseek + If ServerVersion > 2.1 Then ' + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & (clipseek) * 2 & " length " & (cliplength) * 2 & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + Else + + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek & " length " & cliplength & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + End If + Else + + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgv1.CurrentRow.Cells("File_Name").Value) & """" & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + End If + linktemplatetoplaylist() + + End Sub + + Sub linktemplatetoplaylist() + + If chktemplatewithplaylist.Checked Then + dgv1.CurrentRow.Cells("Start_Time").Value = Format(Now, "HH:mm:ss") + + ucTemplate.stopshedule() + ucTemplate.dgvrundown.Rows.Clear() + + If dgv1.CurrentRow.Cells("Template_File").Value <> "" And File.Exists(dgv1.CurrentRow.Cells("Template_File").Value) Then + ucTemplate.openfilerundown(dgv1.CurrentRow.Cells("Template_File").Value) + ucTemplate.txtadjusttimeofrundownmin.Text = (Mid(dgv1.CurrentRow.Cells("Start_Time").Value, 1, 2)) * 60 + Mid(dgv1.CurrentRow.Cells("Start_Time").Value, 4, 2) + ucTemplate.txtadjusttimeofrundownsec.Text = Mid(dgv1.CurrentRow.Cells("Start_Time").Value, 7, 2) + ucTemplate.adjusttimeofrundown() + ucTemplate.sheduletemplate() + End If + End If + End Sub + Sub nextclipplay() + On Error Resume Next + 'if nothing is selected + Dim bbb As Integer = 0 + For aaa = 0 To dgv1.RowCount - 1 + bbb = bbb + dgv1.Rows(aaa).Cells("x").Value + Next + If bbb = 0 Then MsgBox("no clip is selected") : Exit Sub + + On Error Resume Next +20: + Dim i As Integer + i = dgv1.CurrentRow.Index + If i = (dgv1.Rows.Count - 1) Then + dgv1.CurrentCell = dgv1.Rows(0).Cells("File_Name") + currrow = 0 + Else + dgv1.CurrentCell = dgv1.Rows(i + 1).Cells("File_Name") + currrow = currrow + 1 + End If + If dgv1.CurrentRow.Cells("File_Name").Value = "" Or dgv1.CurrentRow.Cells("x").Value = 0 Then GoTo 20 + + playcommand() + + sendmixercommandforclip() + tmrduration.Enabled = True + End Sub + + Sub nextclip() + On Error Resume Next +20: + Dim i As Integer + i = dgv1.CurrentRow.Index + If i = (dgv1.Rows.Count - 1) Then + dgv1.CurrentCell = dgv1.Rows(0).Cells("File_Name") + currrow = 0 + Else + dgv1.CurrentCell = dgv1.Rows(i + 1).Cells("File_Name") + currrow = currrow + 1 + End If + + If dgv1.CurrentRow.Cells("File_Name").Value = "" Or dgv1.CurrentRow.Cells("x").Value = 0 Then GoTo 20 + + If (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 8)).ToUpper = "DECKLINK" Then + CasparDevice.SendString("load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & dgv1.CurrentRow.Cells("File_Name").Value & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + ElseIf (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "HTTP" Then + CasparDevice.SendString("load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " [HTML] " & dgv1.CurrentRow.Cells("File_Name").Value & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + ElseIf (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "UDP:" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTP:" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "TCP:" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTMP" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTSP" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTCP" Then + + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & dgv1.CurrentRow.Cells("File_Name").Value & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + ElseIf System.IO.Path.GetExtension(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) = ".txt" Then + readsubclip(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) + + frmmediaplayer.ucCasparcgWindow1.txtmarkin.Text = clipseek + frmmediaplayer.ucCasparcgWindow1.txtmarkout.Text = cliplength + clipseek + If ServerVersion > 2.1 Then + CasparDevice.SendString("load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek * 2 & " length " & cliplength * 2 & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + Else + CasparDevice.SendString("load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek & " length " & cliplength & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + End If + Else + CasparDevice.SendString("load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgv1.CurrentRow.Cells("File_Name").Value) & """" & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + End If + sendmixercommandforclip() + tmrduration.Enabled = True + + End Sub + + Sub clipstop() + On Error Resume Next + + CasparDevice.SendString("stop " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer) + + End Sub + + Sub clippause() + On Error Resume Next + + If dgv1.CurrentRow.Cells("File_Name").Value = "" Then Exit Sub + If Microsoft.VisualBasic.Strings.Right(frmmediaplayer.ucCasparcgWindow1.lblplaying.Text, 3) <> "mav" Then + CasparDevice.SendString("pause " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer) + + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " pause") + End If + End Sub + + Sub clipresume() + On Error Resume Next + + If iclippauseresume = 1 Then + If Microsoft.VisualBasic.Strings.Right(frmmediaplayer.ucCasparcgWindow1.lblplaying.Text, 3) <> "mav" Then + CasparDevice.SendString("pause " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer) + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " speed 0") 'for slow motion + End If + + Else + If Microsoft.VisualBasic.Strings.Right(frmmediaplayer.ucCasparcgWindow1.lblplaying.Text, 3) <> "mav" Then + CasparDevice.SendString("resume " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer) + Else + CasparDevice.SendString("call " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " speed 1") 'for slow motion + End If + + End If + iclippauseresume = iclippauseresume + 1 + If iclippauseresume = 3 Then iclippauseresume = 1 + + tmrduration.Enabled = True + End Sub + Private Sub tmrnextclip_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrnextclip.Tick + On Error Resume Next + If dgv1.Rows(currrow).Cells("File_Name").Value = "end" Then + tmrnextclip.Enabled = False + Else + nextclipofplaylist() + End If + End Sub + Sub nextclipofplaylist() + + On Error Resume Next + 'if nothing is selected + Dim bbb As Integer = 0 + For aaa = 0 To dgv1.RowCount - 1 + bbb = bbb + dgv1.Rows(aaa).Cells("x").Value + Next + If bbb = 0 Then tmrnextclip.Enabled = False : Exit Sub + + If ((clipsleftduration < 1.0) And (dgv1.Rows(currrow).Cells("LoopVideo").Value <> "loop")) Or (dgv1.Rows(currrow).Cells("x").Value = 0) Or tmrnextclip.Interval > 1000 Then + Dim tempcurrentrow As Integer = dgv1.CurrentRow.Index ' for selected row to remain same. Suggested by srk 04.06.18 + +20: + Dim inextclipofplaylist As Integer + inextclipofplaylist = dgv1.Rows(currrow).Index + If inextclipofplaylist = (dgv1.Rows.Count - 1) Then + dgv1.CurrentCell = dgv1.Rows(0).Cells("File_Name") + currrow = 0 + Else + dgv1.CurrentCell = dgv1.Rows(inextclipofplaylist + 1).Cells("File_Name") + currrow = currrow + 1 + End If + If dgv1.Rows(currrow).Cells("File_Name").Value = "" Or dgv1.Rows(currrow).Cells("x").Value = 0 Then GoTo 20 + + If Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 8) = "decklink" Then + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & dgv1.CurrentRow.Cells("File_Name").Value & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + GoTo 30 + End If + + If (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "HTTP" Then + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " [HTML] " & dgv1.CurrentRow.Cells("File_Name").Value & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + GoTo 30 + End If + + If (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "UDP:" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTP:" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "TCP:" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTMP" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTSP" Or + (Mid(dgv1.CurrentRow.Cells("File_Name").Value, 1, 4)).ToUpper = "RTCP" Then + + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & dgv1.CurrentRow.Cells("File_Name").Value & " " & dgv1.CurrentRow.Cells("Transition").Value & " " & dgv1.CurrentRow.Cells("T_Duration").Value & " " & dgv1.CurrentRow.Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + GoTo 30 + End If + + If frmmediaplayer.ucTab1.UcPlaylistSetting1.chkLoadbg.Checked Then + If System.IO.Path.GetExtension(mediafullpath & dgv1.Rows(currrow).Cells("File_Name").Value.ToString) = ".txt" Then + readsubclip(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) + If ServerVersion > 2.1 Then + CasparDevice.SendString("PLAY " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek * 2 & " length " & cliplength * 2 & " " & dgv1.Rows(currrow).Cells("Transition").Value & " " & dgv1.Rows(currrow).Cells("T_Duration").Value & " " & dgv1.Rows(currrow).Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + Else + CasparDevice.SendString("PLAY " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek & " length " & cliplength & " " & dgv1.Rows(currrow).Cells("Transition").Value & " " & dgv1.Rows(currrow).Cells("T_Duration").Value & " " & dgv1.Rows(currrow).Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + End If + CasparDevice.SendString("loadbg " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgv1.Rows(currrow + 1).Cells("File_Name").Value) & """") + + Else + + CasparDevice.SendString("PLAY " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgv1.Rows(currrow).Cells("File_Name").Value) & """" & " " & dgv1.Rows(currrow).Cells("Transition").Value & " " & dgv1.Rows(currrow).Cells("T_Duration").Value & " " & dgv1.Rows(currrow).Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + CasparDevice.SendString("loadbg " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgv1.Rows(currrow + 1).Cells("File_Name").Value) & """") + + End If + Else + If System.IO.Path.GetExtension(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) = ".txt" Then + readsubclip(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) + CasparDevice.SendString("PLAY " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek & " length " & cliplength & " " & dgv1.Rows(currrow).Cells("Transition").Value & " " & dgv1.Rows(currrow).Cells("T_Duration").Value & " " & dgv1.Rows(currrow).Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + Else + + CasparDevice.SendString("PLAY " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgv1.Rows(currrow).Cells("File_Name").Value) & """" & " " & dgv1.Rows(currrow).Cells("Transition").Value & " " & dgv1.Rows(currrow).Cells("T_Duration").Value & " " & dgv1.Rows(currrow).Cells("LoopVideo").Value & " " & dgv1.CurrentRow.Cells("clmFilter").Value) + + End If + End If + +30: + sendmixercommandforclip() + If dgv1.Rows(currrow).Cells("File_Name").Value <> "end" Then 'no chance to enable tmrnextclip + tmrfornotskiping.Enabled = True + End If + + If dgv1.Rows(currrow).Cells("Column11").Value = True Then + calculateinterval() + Else + tmrnextclip.Interval = 1000 + End If + + adjusttimeofplaylist() + tmrnextclip.Enabled = False + + createasrunlog() + + linktemplatetoplaylist() + + If frmmediaplayer.ucTab1.UcPlaylistSetting1.chkStayOnSelected.Checked Then + dgv1.CurrentCell = dgv1.Rows(tempcurrentrow).Cells("File_Name") ' for selected row to remain same. Suggested by srk 04.06.18 + End If + + End If + + End Sub + Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + newdgv() + End Sub + Sub newdgv() + On Error Resume Next + dgv1.Rows.Clear() + dgv1.Rows.Add(20) + Me.lblplalistname.Text = "playlist= " & "new playlist" + End Sub + + Sub insertend() + On Error Resume Next + dgv1.Rows.Insert(dgv1.CurrentRow.Index + 1) + dgv1.CurrentCell = dgv1.Rows(dgv1.CurrentRow.Index + 1).Cells("File_Name") + + dgv1.Rows(dgv1.CurrentRow.Index).Cells("File_Name").Value = "end" + dgv1.Rows(dgv1.CurrentRow.Index).Cells("x").Value = 1 + dgv1.Rows(dgv1.CurrentRow.Index).Cells("Transition").Value = "CUT" + dgv1.Rows(dgv1.CurrentRow.Index).Cells("T_Duration").Value = 10 + End Sub + Sub insertlivedecklink(devicenumber As Integer) + On Error Resume Next + dgv1.Rows.Insert(dgv1.CurrentRow.Index + 1) + dgv1.CurrentCell = dgv1.Rows(dgv1.CurrentRow.Index + 1).Cells("File_Name") + + dgv1.Rows(dgv1.CurrentRow.Index).Cells("File_Name").Value = "decklink " & devicenumber + dgv1.Rows(dgv1.CurrentRow.Index).Cells("x").Value = 1 + dgv1.Rows(dgv1.CurrentRow.Index).Cells("Transition").Value = "CUT" + dgv1.Rows(dgv1.CurrentRow.Index).Cells("T_Duration").Value = 10 + + dgv1.Rows(dgv1.CurrentRow.Index).Cells("Clip_Duration").Value = "00:30:00" + dgv1.Rows(dgv1.CurrentRow.Index).Cells("Column11").Value = True + dgv1.Rows(dgv1.CurrentRow.Index).Cells("AudioLevel").Value = 1.0 + dgv1.CurrentRow.Cells("FileType").Value = "Others" + End Sub + 'ttt + Private Sub cmdinsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdinsert.Click + On Error Resume Next + clipinsert() + End Sub + Sub clipinsert() + On Error Resume Next + If dgv1.CurrentRow.Index < currrow Then + currrow = currrow + 1 + End If + dgv1.NotifyCurrentCellDirty(True) + dgv1.NotifyCurrentCellDirty(False) + + dgv1.Rows.Insert(dgv1.CurrentRow.Index + 1) + dgv1.Rows(dgv1.CurrentRow.Index + 1).Cells("x").Value = 1 + dgv1.Rows(dgv1.CurrentRow.Index + 1).Cells("Transition").Value = "CUT" + dgv1.Rows(dgv1.CurrentRow.Index + 1).Cells("T_Duration").Value = 10 + + dgv1.Rows(dgv1.CurrentRow.Index + 1).Cells("AudioLevel").Value = 1.0 + + End Sub + Sub deleteclip() + On Error Resume Next + If dgv1.CurrentRow.DefaultCellStyle.BackColor <> Color.LightGreen Then + If dgv1.CurrentRow.Index < currrow Then + currrow = currrow - 1 + End If + + dgv1.NotifyCurrentCellDirty(True) + dgv1.NotifyCurrentCellDirty(False) + + dgv1.Rows.RemoveAt(dgv1.CurrentRow.Index) + adjusttimeofplaylistfornewclip(dgv1.CurrentRow.Index) + Else + MsgBox("Online clip cann't be deleted.") + End If + End Sub + Private Sub CasparcgWindowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + frmmediaplayer.ucCasparcgWindow1.SetProcessParent("casparcg") + End Sub + Private Sub StartToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + playlist() + End Sub + + Private Sub NextToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + nextclip() + End Sub + + Private Sub PauseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + clippause() + End Sub + + + Private Sub ResumeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + clipresume() + End Sub + + Private Sub InToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + clipinsert() + End Sub + Private Sub DeleteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + deleteclip() + End Sub + Private Sub cmdmoveup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmoveup.Click + On Error Resume Next + clipmoveup() + End Sub + Sub clipmoveup() + On Error Resume Next + If Me.dgv1.CurrentCell.RowIndex <> 0 Then + + Dim curRow As Integer = Me.dgv1.CurrentCell.RowIndex + If curRow = currrow Then + currrow = currrow - 1 + ElseIf curRow = currrow + 1 Then + currrow = currrow + 1 + End If + + Dim aaa2 As String = dgv1.Rows(curRow - 1).Cells("Start_Time").Value + + Dim myRow As DataGridViewRow = Me.dgv1.CurrentRow + + dgv1.NotifyCurrentCellDirty(True) + dgv1.NotifyCurrentCellDirty(False) + + Me.dgv1.Rows.Remove(myRow) + Me.dgv1.Rows.Insert(curRow - 1, myRow) + dgv1.CurrentCell = dgv1.Rows(curRow - 1).Cells("File_Name") + + dgv1.Rows(curRow - 1).Cells("Start_Time").Value = aaa2 + + Dim xxx As Integer + + xxx = (Mid(dgv1.Rows(curRow - 1).Cells("Clip_Duration").Value, 1, 2)) * 3600 + (Mid(dgv1.Rows(curRow - 1).Cells("Clip_Duration").Value, 4, 2)) * 60 + (Mid(dgv1.Rows(curRow - 1).Cells("Clip_Duration").Value, 7, 2)) + Dim aa As Date = dgv1.Rows(curRow - 1).Cells("Start_Time").Value + dgv1.Rows(curRow).Cells("Start_Time").Value = Format(aa.AddSeconds(xxx), "HH:mm:ss") + + End If + End Sub + Private Sub cmdmovedown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmovedown.Click + clipmovedown() + End Sub + Sub clipmovedown() + On Error Resume Next + If Me.dgv1.CurrentCell.RowIndex <> dgv1.Rows.Count - 2 Then + + Dim curRow As Integer = Me.dgv1.CurrentCell.RowIndex + If curRow = currrow Then + currrow = currrow + 1 + ElseIf curRow = currrow - 1 Then + currrow = currrow - 1 + End If + + Dim aaa2 As String = dgv1.Rows(curRow).Cells("Start_Time").Value + + Dim myRow As DataGridViewRow = Me.dgv1.CurrentRow + Me.dgv1.Rows.Remove(myRow) + Me.dgv1.Rows.Insert(curRow + 1, myRow) + dgv1.CurrentCell = dgv1.Rows(curRow + 1).Cells("File_Name") + + dgv1.Rows(curRow).Cells("Start_Time").Value = aaa2 + + Dim xxx As Integer + + xxx = (Mid(dgv1.Rows(curRow).Cells("Clip_Duration").Value, 1, 2)) * 3600 + (Mid(dgv1.Rows(curRow).Cells("Clip_Duration").Value, 4, 2)) * 60 + (Mid(dgv1.Rows(curRow).Cells("Clip_Duration").Value, 7, 2)) + Dim aa As Date = dgv1.Rows(curRow).Cells("Start_Time").Value + dgv1.Rows(curRow + 1).Cells("Start_Time").Value = Format(aa.AddSeconds(xxx), "HH:mm:ss") + End If + End Sub + Sub getdurationbyosc() + On Error Resume Next + With frmmediaplayer + ucOSC.oscstartandregister() + + .ucCasparcgWindow1.TrackBarseek.Maximum = framesTotal + .ucCasparcgWindow1.TrackBarseek.Value = framesPlayed + .ucCasparcgWindow1.lblmax.Text = framesTotal + .ucCasparcgWindow1.lblmin.Text = .ucCasparcgWindow1.TrackBarseek.Minimum + .ucCasparcgWindow1.lblcurrentframe.Text = framesPlayed + .ucCasparcgWindow1.lblhmsf.Text = FToHMSF(framesPlayed) + .ucCasparcgWindow1.lblplaying.Text = playingfilename + + ucSlowMotion.lblplayhead.Text = ucOSC.dgvosc.Rows(53).Cells(1).Value + ucSlowMotion.lblspeedofslowmotion.Text = ucOSC.dgvosc.Rows(54).Cells(1).Value + + If dgv1.Rows(currrow).Cells("File_Name").Value.ToString = "" Then + GoTo 30 + End If + + If System.IO.Path.GetExtension(mediafullpath & dgv1.Rows(currrow).Cells("File_Name").Value.ToString) = ".txt" Then + readsubclip(mediafullpath & dgv1.Rows(currrow).Cells("File_Name").Value.ToString) + clipsleftduration = (cliplength + clipseek - framesPlayed) / fps + + ElseIf (Mid(dgv1.Rows(currrow).Cells("File_Name").Value, 1, 8)).ToUpper = "DECKLINK" Then + clipsleftduration = 0.6 + Else +30: + clipsleftduration = ((framesTotal - framesPlayed)) / fps + End If + + .lblremainintime.Text = mstohms(clipsleftduration * 1000) + + End With + + End Sub + + + + Sub clipcopy() + On Error Resume Next + tempRow = Me.dgv1.CurrentRow + End Sub + + Sub insertcopied() + On Error Resume Next + Dim curRow As Integer = Me.dgv1.CurrentCell.RowIndex + dgv1.Rows.Insert(dgv1.CurrentRow.Index) + dgv1.CurrentCell = dgv1.Rows(curRow).Cells("File_Name") + For cc = 0 To dgv1.ColumnCount - 1 + Me.dgv1.Item(cc, curRow).Value = tempRow.Cells(cc).Value + Next + adjusttimeofplaylistfornewclip(dgv1.CurrentRow.Index) + End Sub + Sub cueclip() + On Error Resume Next + If dgv1.CurrentRow.Cells("File_Name").Value = "" Then Exit Sub + frmmediaplayer.ucCasparcgWindow1.txtmarkin.Text = "" + frmmediaplayer.ucCasparcgWindow1.txtmarkout.Text = "" + + If System.IO.Path.GetExtension(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) = ".txt" Then + readsubclip(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) + frmmediaplayer.ucCasparcgWindow1.txtmarkin.Text = clipseek + frmmediaplayer.ucCasparcgWindow1.txtmarkout.Text = cliplength + clipseek + If ServerVersion > 2.1 Then + SendString(NetStream, "load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek * 2 & " length " & cliplength * 2 & vbCrLf) + + Else + SendString(NetStream, "load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek & " length " & cliplength & vbCrLf) + + End If + Else + SendString(NetStream, "load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgv1.CurrentRow.Cells("File_Name").Value) & """" + vbCrLf) + End If + + sendmixercommandforclip() + + currrow = dgv1.CurrentRow.Index + End Sub + Private Sub CueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + cueclip() + End Sub + Private Sub PlayNextF6ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PlayNextF6ToolStripMenuItem.Click + nextclipplay() + End Sub + Private Sub StopF1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StopF1ToolStripMenuItem.Click + clipstop() + End Sub + Private Sub PlayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + PlaySingleClip() + End Sub + Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + clipcopy() + End Sub + Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + insertcopied() + End Sub + Private Sub MoveUPToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + clipmoveup() + End Sub + Private Sub MoveDownToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + clipmovedown() + End Sub + Private Sub CueToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CueToolStripMenuItem1.Click + On Error Resume Next + cueclip() + End Sub + Private Sub PlayToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayToolStripMenuItem1.Click + On Error Resume Next + PlaySingleClip() + End Sub + Private Sub PauseToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PauseToolStripMenuItem1.Click + On Error Resume Next + clippause() + End Sub + Private Sub ResumeToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResumeToolStripMenuItem1.Click + On Error Resume Next + clipresume() + End Sub + Private Sub NextToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NextToolStripMenuItem1.Click + On Error Resume Next + nextclip() + End Sub + + Private Sub InsertBlankToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsertBlankToolStripMenuItem.Click + On Error Resume Next + clipinsert() + End Sub + Private Sub DeleteToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteToolStripMenuItem1.Click + On Error Resume Next + deleteclip() + End Sub + Private Sub CopyToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem1.Click + On Error Resume Next + clipcopy() + End Sub + Private Sub PasteToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem1.Click + On Error Resume Next + insertcopied() + End Sub + Private Sub MoveUpToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MoveUpToolStripMenuItem1.Click + On Error Resume Next + clipmoveup() + End Sub + + Private Sub MoveDownToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MoveDownToolStripMenuItem1.Click + On Error Resume Next + clipmovedown() + End Sub + Private Sub NewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + newdgv() + End Sub + Private Sub SaveAsToolStripButton_Click(sender As Object, e As EventArgs) + savefile() + End Sub + Sub saveplaylist(filename As String) + On Error Resume Next + Using sw As StreamWriter = New StreamWriter(Mid(filename, 11)) + If dgv1.Rows.Count = 0 Then + sw.Write("") + Else + 'Loop through and add list to the file. + Dim f As Integer = 0 + Do Until f = dgv1.Rows.Count + If dgv1.Rows(f).Cells("x").Value = False Then dgv1.Rows(f).Cells("x").Value = "0" + If dgv1.Rows(f).Cells("Column11").Value = False Then dgv1.Rows(f).Cells("Column11").Value = "0" + + If dgv1.Rows(f).Cells("Conversion").Value = False Then dgv1.Rows(f).Cells("Conversion").Value = "0" + If dgv1.Rows(f).Cells("BackIn").Value = False Then dgv1.Rows(f).Cells("BackIn").Value = "0" + sw.WriteLine(dgv1.Rows(f).Cells("File_Name").Value & Chr(2) & dgv1.Rows(f).Cells("Start_Time").Value & Chr(2) & dgv1.Rows(f).Cells("x").Value & Chr(2) & dgv1.Rows(f).Cells("Transition").Value & Chr(2) & dgv1.Rows(f).Cells("T_Duration").Value & Chr(2) & dgv1.Rows(f).Cells("LoopVideo").Value & Chr(2) & dgv1.Rows(f).Cells("Clip_Duration").Value & Chr(2) & dgv1.Rows(f).Cells("Column11").Value & Chr(2) & dgv1.Rows(f).Cells("AudioLevel").Value & Chr(2) & dgv1.Rows(f).Cells("Conversion").Value & Chr(2) & dgv1.Rows(f).Cells("clmFilter").Value & Chr(2) & dgv1.Rows(f).Cells("Template_File").Value & Chr(2) & dgv1.Rows(f).Cells("FileType").Value & Chr(2) & dgv1.Rows(f).Cells("BackIn").Value & Chr(2) & dgv1.Rows(f).Cells("AMCPCommands").Value) + f = f + 1 + Loop + End If + sw.Close() + End Using + End Sub + Private Sub OpenToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + openfile() + End Sub + + Private Sub SaveToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + saveplaylist(lblplalistname.Text) + + End Sub + Private Sub dgv1_CellMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) + On Error Resume Next + If e.Button = Windows.Forms.MouseButtons.Right Then + dgv1.CurrentCell = dgv1.Rows(e.RowIndex).Cells("File_Name") + End If + End Sub + Private Sub dgv1_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) + 'nothing + End Sub + Sub SetStartTimeAccordingToCurrentRow() + On Error Resume Next + Dim i As Integer + Dim curRow As Integer = Me.dgv1.CurrentCell.RowIndex + + For i = curRow To dgv1.RowCount - 1 + Dim aa As Date = dgv1.Rows(i).Cells("Start_Time").Value + If dgv1.Rows(i).Cells("x").Value = 0 Then + dgv1.Rows(i + 1).Cells("Start_Time").Value = Format(aa, "HH:mm:ss") + Else + Dim xxx As Integer + xxx = (Mid(dgv1.Rows(i).Cells("Clip_Duration").Value, 1, 2)) * 3600 + (Mid(dgv1.Rows(i).Cells("Clip_Duration").Value, 4, 2)) * 60 + (Mid(dgv1.Rows(i).Cells("Clip_Duration").Value, 7, 2)) + dgv1.Rows(i + 1).Cells("Start_Time").Value = Format(aa.AddSeconds(xxx), "HH:mm:ss") + End If + Next + End Sub + Sub adjusttimeofplaylist() + On Error Resume Next + Dim i As Integer + Dim curRow As Integer = Me.dgv1.CurrentCell.RowIndex + dgv1.CurrentRow.Cells("Start_Time").Value = Format(Now, "HH:mm:ss") + + For i = curRow To dgv1.RowCount - 1 + Dim aa As Date = dgv1.Rows(i).Cells("Start_Time").Value + If dgv1.Rows(i).Cells("x").Value = 0 Then + dgv1.Rows(i + 1).Cells("Start_Time").Value = Format(aa, "HH:mm:ss") + Else + Dim xxx As Integer + xxx = (Mid(dgv1.Rows(i).Cells("Clip_Duration").Value, 1, 2)) * 3600 + (Mid(dgv1.Rows(i).Cells("Clip_Duration").Value, 4, 2)) * 60 + (Mid(dgv1.Rows(i).Cells("Clip_Duration").Value, 7, 2)) + dgv1.Rows(i + 1).Cells("Start_Time").Value = Format(aa.AddSeconds(xxx), "HH:mm:ss") + End If + Next + End Sub + Sub adjusttimeofplaylistfornewclip(ByVal hitrow As Integer) + On Error Resume Next + Dim i As Integer + For i = hitrow - 1 To dgv1.RowCount - 1 + Dim aa As Date = dgv1.Rows(i).Cells("Start_Time").Value + If dgv1.Rows(i).Cells("x").Value = 0 Then + dgv1.Rows(i + 1).Cells("Start_Time").Value = Format(aa, "HH:mm:ss") + Else + Dim xxx As Integer + xxx = (Mid(dgv1.Rows(i).Cells("Clip_Duration").Value, 1, 2)) * 3600 + (Mid(dgv1.Rows(i).Cells("Clip_Duration").Value, 4, 2)) * 60 + (Mid(dgv1.Rows(i).Cells("Clip_Duration").Value, 7, 2)) + dgv1.Rows(i + 1).Cells("Start_Time").Value = Format(aa.AddSeconds(xxx), "HH:mm:ss") + End If + Next + End Sub + Private Async Sub txtsearch_KeyPressAsync(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtsearch.KeyPress + If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) And cmdclipsearch.Enabled = True Then + labelclips.Text = "" + refreshclips1() + End If + End Sub + Private Async Sub cmdclipsearch_ClickAsync(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdclipsearch.Click + 'On Error Resume Next + labelclips.Text = "" + refreshclips1() + End Sub + Private Function CheckFileHasCopied(FilePath As String) As Boolean + Try + If 5 = 5 Then + Using File.OpenRead(FilePath) + Return True + End Using + Else + Return False + End If + Catch generatedExceptionName As Exception + Return False + End Try + End Function + + Dim dt As New DataTable() + Dim strcurrentrowcell0value As String + Dim searchnumber As Integer = 1 + Async Sub refreshclips1() + Try + 'cmdclipsearch.Enabled = False + Control.CheckForIllegalCrossThreadCalls = False + If dt.Columns.Contains("File_Name") = True Then ' And dgvclips.CurrentRow.Cells("File_Name").Value <> DBNull.Value Then '0 Then 'dt.Columns.Contains("File_Name") = True And + 'MsgBox(dgvclips.Rows.Count) + If dgvclips.Rows.Count > 1 Then ' 1 is important + strcurrentrowcell0value = dgvclips.CurrentRow.Cells("File_Name").Value + End If + End If + + Dim dr As DataRow + dt.Clear() + + If frmmediaplayer.ucTab1.UcPlaylistSetting1.rdoclipfromfilesystem.Checked = True Then + 'MsgBox("from file sysytem") + Dim s1 As [String]() + s1 = Directory.GetFiles(mediafullpath & lblsearch.Text, "*.*", 1) + 'If s1.Count = 0 Then Exit Sub + pbclipsearchstatus.Maximum = s1.Length - 1 + For i As Integer = 0 To s1.Length - 1 + If i = 0 Then + If dt.Columns.Contains("File_Name") = False Then + dt.Columns.Add("File_Name") + dt.Columns.Add("Duration") + dt.Columns.Add("Size") + End If + + End If + + Dim f1 As New FileInfo(s1(i)) + dr = dt.NewRow() + If (Path.GetExtension(f1.FullName).ToUpper = ".MXF") Or (Path.GetExtension(f1.FullName).ToUpper = ".TS") Then + GoTo 40 + End If + + If (f1.Attributes And FileAttributes.Hidden) <> 0 Or CheckFileHasCopied(f1.FullName) = False Then + GoTo 50 + End If +40: If UCase(Replace(f1.FullName.Substring(Len(mediafullpath)), "\", "/").ToString) Like "*" & UCase(Replace(txtsearch.Text, "\", "/")) & "*" Then + + dr("File_Name") = Replace(f1.FullName.Substring(Len(mediafullpath)), "\", "/").ToString + If chkclipduration.Checked Then + 'Dim dd As String = getallvaules(f1.FullName) + Dim dd As String = Await getallvaluesAsync(f1.FullName) + dr("Duration") = Split(dd, Chr(2))(0) + dr("Size") = Split(dd, Chr(2))(1) + End If + dt.Rows.Add(dr) + End If +50: 'hidden file + pbclipsearchstatus.Value = i + labelclips.Text = dt.Rows.Count + Next + ElseIf frmmediaplayer.ucTab1.UcPlaylistSetting1.rdoclipfromserver.Checked = True Then + If ServerVersion > 2.1 Then + 'MsgBox("from 2.2 or 2.3") + Dim webClient As New System.Net.WebClient + Dim result As String = webClient.DownloadString("http://" & frmmediaplayer.cmbhost.Text & ":8000/cls") + Dim aa() = Split(result, vbNewLine) + + pbclipsearchstatus.Maximum = aa.Count - 3 + For ss = 1 To aa.Count - 3 + If ss = 1 Then + If dt.Columns.Contains("File_Name") = False Then + dt.Columns.Add("File_Name") + dt.Columns.Add("Duration") + End If + + End If + If UCase(Replace(Replace(Split(aa(ss), " ")(0), "\", "/"), """", "")) Like lblsearch.Text & "*" & UCase(Replace(txtsearch.Text, "\", "/")) & "*" Then + dr = dt.NewRow() + dr("File_Name") = Replace(Replace(Split(aa(ss), " ")(0), "\", "/"), """", "") + + Dim singleclip() = Split(aa(ss), " ") + Dim duration As String = "" + duration = Split(singleclip(2), " ")(2) + If duration = "NaN" Then + duration = "100" + End If + dr("Duration") = FToHMS(duration) + + dt.Rows.Add(dr) + End If + + pbclipsearchstatus.Value = ss + labelclips.Text = dt.Rows.Count + Next + + Else + 'MsgBox("from 2.1") + CasparDevice.RefreshMediafiles() + Threading.Thread.Sleep(250) + pbclipsearchstatus.Maximum = CasparDevice.Mediafiles.Count - 1 + Dim i As Integer + For i = 1 To CasparDevice.Mediafiles.Count - 1 + 'MsgBox(CasparDevice.Mediafiles.Count) + If dt.Columns.Contains("File_Name") = False Then + dt.Columns.Add("File_Name") + dt.Columns.Add("Duration") + End If + If UCase(Replace(CasparDevice.Mediafiles.Item(i).ToString, "\", "/").ToString) Like lblsearch.Text & "*" & UCase(Replace(txtsearch.Text, "\", "/")) & "*" Then + + dr = dt.NewRow() + dr("File_Name") = Replace(CasparDevice.Mediafiles.Item(i).ToString, "\", "/") + dr("Duration") = Mid(CasparDevice.Mediafiles.Item(i).Timecode, 1, 8) + dt.Rows.Add(dr) + End If + + pbclipsearchstatus.Value = i + labelclips.Text = dt.Rows.Count + Next + End If + End If + clipsearchcomplete() + searchnumber = searchnumber + 1 + Catch ex As Exception + 'MsgBox(ex.ToString) + End Try + End Sub + Sub clipsearchcomplete() + On Error Resume Next + + Me.dgvclips.DataSource = dt + dgvclips.Columns(0).Width = 725 + dgvclips.Columns(1).Width = 62 + dgvclips.Columns(2).Width = 73 + + dgvclips.Sort(dgvclips.Columns("File_Name"), System.ComponentModel.ListSortDirection.Ascending) + + For iii = 0 To dgvclips.RowCount - 1 + If dgvclips.Rows(iii).Cells("File_Name").Value = strcurrentrowcell0value Then + dgvclips.CurrentCell = dgvclips.Rows(iii).Cells("File_Name") + Exit For + End If + Next + cmdclipsearch.Enabled = True + pbclipsearchstatus.Value = 0 + dgvclips.Columns("File_Name").DefaultCellStyle.Font = New Font("Arial Black", frmmediaplayer.nfontsizeforall.Value, FontStyle.Regular) + End Sub + Private Sub chkplaylistlock_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkplaylistlock.CheckedChanged + On Error Resume Next + If chkplaylistlock.Checked = True Then + dgv1.Enabled = False + frmmediaplayer.ucCasparcgWindow1.gbplayer.Enabled = False + Else + dgv1.Enabled = True + frmmediaplayer.ucCasparcgWindow1.gbplayer.Enabled = True + End If + End Sub + Sub selectAll() + On Error Resume Next + Dim iplalistselectall As Integer + For iplalistselectall = 0 To dgv1.RowCount - 1 + dgv1.Rows(iplalistselectall).Cells("x").Value = 1 + Next + End Sub + Sub deselectAll() + On Error Resume Next + Dim iplalistdeselectall As Integer + For iplalistdeselectall = 0 To dgv1.RowCount - 1 + dgv1.Rows(iplalistdeselectall).Cells("x").Value = 0 + Next + End Sub + + Private Sub cmddeleteclip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddeleteclip.Click + + On Error Resume Next + deleteclip() + End Sub + + + Private Sub dgv1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv1.CellContentClick + On Error Resume Next + 'If dgv1.CurrentCell.ColumnIndex = 2 Then + If sender.columns(e.ColumnIndex).headercell.value = "Play" Then + dgv1.EndEdit() + adjusttimeofplaylistfornewclip(dgv1.CurrentRow.Index) + End If + + End Sub + + Private Sub dgv1_DataError1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgv1.DataError + 'dummy data dont delete + End Sub + + Private Sub dgv1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles dgv1.DragDrop + On Error Resume Next + + Dim clientPoint As Point = dgv1.PointToClient(New Point(e.X, e.Y)) + Dim datatocopy As Array + + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + Dim files() As String = e.Data.GetData(DataFormats.FileDrop) + + If (Directory.Exists(files(0))) Then + Dim di As New DirectoryInfo(files(0)) + Dim fiArr As FileInfo() = di.GetFiles() + Dim path As FileInfo + + Dim xx As Integer = 0 + For Each path In fiArr + + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("File_Name").Value = Replace(Replace(path.FullName, ":", ":\"), "\", "/") + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("Clip_Duration").Value = getdurationofclip(path.FullName) + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("Column3").Value = "" + + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("x").Value = 1 + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("Transition").Value = "CUT" + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("T_Duration").Value = 10 + + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("Column11").Value = 0 'follow duration + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("AudioLevel").Value = "1" 'audio lavel + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("Conversion").Value = 0 'conversion + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("clmFilter").Value = "" 'filter + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("Template_File").Value = "" 'template + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("FileType").Value = "Others" 'file type + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("BackIn").Value = 0 ' back in + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("AMCPCommands").Value = "" ' amcp commands + + If xx < fiArr.Count - 1 Then + dgv1.Rows.Insert(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx + 1) + xx = xx + 1 + End If + Next + GoTo 20 + + Else + Dim xx As Integer = 0 + For Each path In files + + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("File_Name").Value = Replace(Replace(path, ":", ":\"), "\", "/") + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("Clip_Duration").Value = getdurationofclip(path) + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("Column3").Value = "" + + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("x").Value = 1 + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("Transition").Value = "CUT" + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("T_Duration").Value = 10 + + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("Column11").Value = 0 'follow duration + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("AudioLevel").Value = "1" 'audio lavel + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("Conversion").Value = 0 'conversion + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("clmFilter").Value = "" 'filter + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("Template_File").Value = "" 'template + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("FileType").Value = "Others" 'file type + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("BackIn").Value = 0 ' back in + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx).Cells("AMCPCommands").Value = "" ' amcp commands + + If xx < files.Count - 1 Then + dgv1.Rows.Insert(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + xx + 1) + xx = xx + 1 + End If + Next + GoTo 20 + End If + + + Else + datatocopy = Split(e.Data.GetData("System.String"), Chr(2)) + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("File_Name").Value = datatocopy(0) + End If + + If System.IO.Path.GetExtension(mediafullpath & datatocopy(0)) = ".txt" Then + Using sr As StreamReader = New StreamReader(mediafullpath & datatocopy(0).ToString) + Dim str As Array = Split(sr.ReadLine, Chr(2)) + masterfilename = str(0) + clipseek = str(1) + cliplength = str(2) - str(1) + End Using + Dim aa As Array = Split(masterfilename, ".") + dropedclipsleftduration = cliplength / fps + + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("Clip_Duration").Value = mstohms(cliplength * 1000 / fps) + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("Column3").Value = System.Drawing.Image.FromFile(thumbnailsfullpath & aa(0) & ".png") + Else + + If datatocopy(1) = "" Then + Dim f1 As FileSystemInfo = New FileInfo(mediafullpath & "/" & datatocopy(0)) + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("Clip_Duration").Value = getdurationofclip(f1.FullName) 'mstohms(mediainfofile.duratio + Else + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("Clip_Duration").Value = datatocopy(1) + End If + + Dim aa As Array = Split(e.Data.GetData("System.String"), ".") + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("Column3").Value = System.Drawing.Image.FromFile(thumbnailsfullpath & aa(0) & ".png") + + End If + + + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("x").Value = 1 + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("Transition").Value = "CUT" + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("T_Duration").Value = 10 + + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("Column11").Value = 0 'follow duration + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("AudioLevel").Value = "1" 'audio lavel + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("Conversion").Value = 0 'conversion + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("clmFilter").Value = "" 'filter + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("Template_File").Value = "" 'template + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("FileType").Value = "Others" 'file type + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("BackIn").Value = 0 ' back in + dgv1.Rows(dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex).Cells("AMCPCommands").Value = "" ' amcp commands +20: + Dim hitrow As Integer = dgv1.HitTest(clientPoint.X, clientPoint.Y).RowIndex + adjusttimeofplaylistfornewclip(hitrow) + End Sub + + Private Sub dgv1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles dgv1.DragEnter + On Error Resume Next + + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + e.Effect = DragDropEffects.Copy + Else + e.Effect = DragDropEffects.Copy + End If + End Sub + Private Sub dgvclips_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvclips.CellContentDoubleClick + End Sub + Private Sub dgvclips_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvclips.CellDoubleClick + End Sub + Private Sub dgvclips_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgvclips.DoubleClick + On Error Resume Next + Dim cellX, cellY As Integer + Dim grvScreenLocation As Point = dgvclips.PointToScreen(dgvclips.Location) + Dim tempX As Integer = DataGridView.MousePosition.X - grvScreenLocation.X + dgvclips.Left + Dim tempY As Integer = DataGridView.MousePosition.Y - grvScreenLocation.Y + dgvclips.Top + Dim hit As DataGridView.HitTestInfo = dgvclips.HitTest(tempX, tempY) + cellX = hit.RowIndex + cellY = hit.ColumnIndex + If hit.Type <> DataGridViewHitTestType.ColumnHeader Then + dgvclips.CurrentCell = dgvclips.Rows(cellX).Cells("File_Name") + + If dgv1.CurrentRow.Index = 0 And dgv1.Rows(0).Cells("File_Name").Value = "" Then + 'do not insert new row + Else + clipinsert() + dgv1.CurrentCell = dgv1.Rows(dgv1.CurrentRow.Index + 1).Cells("File_Name") + End If + dgv1.CurrentRow.Cells("File_Name").Value = dgvclips.CurrentRow.Cells("File_Name").Value + dgv1.CurrentRow.Cells("x").Value = 1 + dgv1.CurrentRow.Cells("Transition").Value = "CUT" + dgv1.CurrentRow.Cells("T_Duration").Value = 10 + dgv1.CurrentRow.Cells("AudioLevel").Value = 1.0 + dgv1.CurrentRow.Cells("FileType").Value = "Others" + dgv1.CurrentRow.Cells("BackIn").Value = 0 + dgv1.CurrentRow.Cells("AMCPCommands").Value = "" 'AMCP Commands + + If dgvclips.CurrentRow.Cells("Duration").Value = "" Then + + If System.IO.Path.GetExtension(mediafullpath & "/" & dgvclips.CurrentRow.Cells("File_Name").Value) = ".txt" Then + Using sr As StreamReader = New StreamReader(mediafullpath & dgvclips.CurrentRow.Cells("File_Name").Value.ToString) + Dim str As Array = Split(sr.ReadLine, Chr(2)) + cliplength = str(2) - str(1) + End Using + dgv1.CurrentRow.Cells("Clip_Duration").Value = mstohms(cliplength * 1000 / fps) + Else + + Dim f1 As FileSystemInfo = New FileInfo(mediafullpath & "/" & dgvclips.CurrentRow.Cells("File_Name").Value) + dgv1.CurrentRow.Cells("Clip_Duration").Value = getdurationofclip(f1.FullName) + End If + Else + dgv1.CurrentRow.Cells("Clip_Duration").Value = dgvclips.CurrentRow.Cells("Duration").Value + End If + If System.IO.Path.GetExtension(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value) = ".txt" Then + Using sr As StreamReader = New StreamReader(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) + Dim str As Array = Split(sr.ReadLine, Chr(2)) + masterfilename = str(0) + clipseek = str(1) + cliplength = str(2) - str(1) + End Using + + Dim aa As Array = Split(masterfilename, ".") + dgv1.CurrentRow.Cells("Column3").Value = System.Drawing.Image.FromFile(thumbnailsfullpath & aa(0) & ".png") + Else + + Dim aa As Array = Split(dgv1.CurrentRow.Cells("File_Name").Value, ".") + dgv1.CurrentRow.Cells("Column3").Value = System.Drawing.Image.FromFile(thumbnailsfullpath & aa(0) & ".png") + End If + End If + + Dim hitrow As Integer = dgv1.CurrentRow.Index + adjusttimeofplaylistfornewclip(hitrow) + + End Sub + + Private MouseDownPos As Point + Private MouseIsDown As Boolean = False + Private Sub dgvclips_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgvclips.MouseDown + On Error Resume Next + MouseDownPos = e.Location + If dgvclips.Cursor = System.Windows.Forms.Cursors.SizeWE Then + MouseIsDown = False + Else + MouseIsDown = True + End If + End Sub + Private Sub dgvclips_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgvclips.MouseMove + On Error Resume Next + If e.Button = MouseButtons.Left Then + Dim dx = e.X - MouseDownPos.X + Dim dy = e.Y - MouseDownPos.Y + If Math.Abs(dx) >= SystemInformation.DoubleClickSize.Width OrElse + Math.Abs(dy) >= SystemInformation.DoubleClickSize.Height Then + If e.Button = Windows.Forms.MouseButtons.Right Then + cmsdgvclips.Show(MousePosition) + Else + Dim cellX, cellY As Integer + + Dim grvScreenLocation As Point = dgvclips.PointToScreen(dgvclips.Location) + Dim tempX As Integer = DataGridView.MousePosition.X - grvScreenLocation.X + dgvclips.Left + Dim tempY As Integer = DataGridView.MousePosition.Y - grvScreenLocation.Y + dgvclips.Top + Dim hit As DataGridView.HitTestInfo = dgvclips.HitTest(tempX, tempY) + cellX = hit.RowIndex + cellY = hit.ColumnIndex + dgvclips.CurrentCell = dgvclips.Rows(cellX).Cells("File_Name") + + Dim datatocopy As String = dgvclips.CurrentRow.Cells("File_Name").Value & Chr(2) & dgvclips.CurrentRow.Cells("Duration").Value + If MouseIsDown = True And dgv1.Cursor <> System.Windows.Forms.Cursors.SizeWE Then + dgvclips.DoDragDrop(datatocopy, DragDropEffects.Copy) + MouseIsDown = False + End If + End If + End If + End If + + End Sub + + Private Sub PlayInVLCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayInVLCToolStripMenuItem.Click + On Error Resume Next + If dgv1.CurrentRow.Cells("File_Name").Value.ToString.Contains("://") Then + + playinvlc(Replace(dgv1.CurrentRow.Cells("File_Name").Value.ToString, "://", ":/")) + Else + playinvlc(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) + End If + End Sub + + Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click + On Error Resume Next + playinvlc(mediafullpath & dgvclips.CurrentRow.Cells("File_Name").Value.ToString) + End Sub + Private Sub PlayInCasparcgToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayInCasparcgToolStripMenuItem.Click + playfromclipgrid() + End Sub + Sub playfromclipgrid() + On Error Resume Next + + If dgvclips.CurrentRow.Cells("File_Name").Value = "" Then Exit Sub + If System.IO.Path.GetExtension(mediafullpath & dgvclips.CurrentRow.Cells("File_Name").Value.ToString) = ".txt" Then + readsubclip(mediafullpath & dgvclips.CurrentRow.Cells("File_Name").Value.ToString) + If ServerVersion > 2.1 Then + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek * 2 & " length " & cliplength * 2 & deinterlaced) + Else + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek & " length " & cliplength & deinterlaced) + End If + Else + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgvclips.CurrentRow.Cells("File_Name").Value) & """" & deinterlaced) + End If + + palyloopinsecondchannel() + tmrduration.Enabled = True + lastclickedbutton(cmdplayforclipgrid) + End Sub + + Sub palyloopinsecondchannel() + If chknextcuefor2ndchannel.Checked Then + CasparDevice.SendString("play " & g_int_ChannelNumber + 1 & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgvclips.Rows(dgvclips.CurrentRow.Index + 1).Cells("File_Name").Value) & """" & " length 250 loop ") + seconndchannelloopvideoname = ModifyFilename(dgvclips.Rows(dgvclips.CurrentRow.Index + 1).Cells("File_Name").Value) + End If + End Sub + + Private Sub tmrcheckfilesinplaylist_Tick(sender As Object, e As EventArgs) Handles tmrcheckfilesinplaylist.Tick + checkfilesinpaylist() + End Sub + + Private Sub CheckFilesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckFilesToolStripMenuItem.Click + checkfilesinpaylist() + End Sub + Sub checkfilesinpaylist() + On Error Resume Next + For iCheckFiles = 0 To dgv1.Rows.Count - 1 + If System.IO.File.Exists(mediafullpath & dgv1.Rows(iCheckFiles).Cells("File_Name").Value) = False And dgv1.Rows(iCheckFiles).Cells("File_Name").Value <> "" Then + dgv1.Rows(iCheckFiles).DefaultCellStyle.BackColor = Color.Red + Else + If dgv1.Rows(iCheckFiles).DefaultCellStyle.BackColor <> Color.LightGreen Then + dgv1.Rows(iCheckFiles).DefaultCellStyle.BackColor = Color.White() + colorchange(iCheckFiles) + End If + + End If + Next + End Sub + Private Sub chkcheckfilesinplaylist_CheckedChanged(sender As Object, e As EventArgs) Handles chkcheckfilesinplaylist.CheckedChanged + If sender.checked Then + tmrcheckfilesinplaylist.Enabled = True + Else + tmrcheckfilesinplaylist.Enabled = False + End If + End Sub + Private Sub CueInCsparcgToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CueInCsparcgToolStripMenuItem.Click + On Error Resume Next + cuefromclipgrid() + End Sub + Sub cuefromclipgrid() + On Error Resume Next + If dgvclips.CurrentRow.Cells("File_Name").Value = "" Then Exit Sub + If System.IO.Path.GetExtension(mediafullpath & dgvclips.CurrentRow.Cells("File_Name").Value.ToString) = ".txt" Then + readsubclip(mediafullpath & dgvclips.CurrentRow.Cells("File_Name").Value.ToString) + If ServerVersion > 2.1 Then + SendString(NetStream, "load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek * 2 & deinterlaced & vbCrLf) + + Else + SendString(NetStream, "load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek & deinterlaced & vbCrLf) + + End If + + Else + SendString(NetStream, "load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgvclips.CurrentRow.Cells("File_Name").Value) & """" & deinterlaced + vbCrLf) + + End If + palyloopinsecondchannel() + lastclickedbutton(cmdcueforclipgrid) + End Sub + + Private Sub cmdclosegbplaylist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + On Error Resume Next + Me.Hide() + End Sub + Sub RefreshThumbnail() + On Error Resume Next + For g = 0 To dgv1.Rows.Count - 1 + Dim aa As Array = Split(dgv1.Rows(g).Cells("File_Name").Value, ".") + If aa.Length = 2 Then + If aa(1) = "txt" Then + readsubclip(mediafullpath & dgv1.Rows(g).Cells("File_Name").Value) + If System.IO.File.Exists(thumbnailsfullpath & Split(masterfilename, ".")(0) & ".png") Then + dgv1.Rows(g).Cells("Column3").Value = System.Drawing.Image.FromFile(thumbnailsfullpath & Split(masterfilename, ".")(0) & ".png") + End If + Else + If System.IO.File.Exists(thumbnailsfullpath & aa(0) & ".png") Then + dgv1.Rows(g).Cells("Column3").Value = System.Drawing.Image.FromFile(thumbnailsfullpath & aa(0) & ".png") + End If + End If + End If + Next + End Sub + Private Sub cmdnowplaying_Click(sender As System.Object, e As System.EventArgs) Handles cmdnowplaying.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", "Showing Now") + + Dim aa1 As Array = Split(Replace(dgv1.Rows(currrow).Cells("File_Name").Value, "\", "/"), "/") + CasparCGDataCollection.SetData("f1", Split((aa1(aa1.Length - 1)), ".")(0)) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(8, "CMP/cg_template/commingupnext", True, CasparCGDataCollection.ToAMCPEscapedXml) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Play(8) + End Sub + Private Sub cmdcommingupnext_Click(sender As System.Object, e As System.EventArgs) Handles cmdcommingupnext.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", "Comming Up Next") + + Dim aa1 As Array = Split(Replace(dgv1.Rows(currrow + txtcommingupnext.Text).Cells("File_Name").Value, "\", "/"), "/") + CasparCGDataCollection.SetData("f1", Split((aa1(aa1.Length - 1)), ".")(0)) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(8, "CMP/cg_template/commingupnext", True, CasparCGDataCollection.ToAMCPEscapedXml) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Play(8) + End Sub + Private Sub cmdstopnowplaying_Click(sender As System.Object, e As System.EventArgs) Handles cmdstopnowplaying.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(8) + End Sub + + Private Sub cmdbackin_Click(sender As System.Object, e As System.EventArgs) Handles cmdbackin.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + CasparCGDataCollection.SetData("f0", "Back In") + + Dim dH As Integer = 0 + Dim dM As Integer = 0 + Dim dS As Integer = 0 + + Dim dd As Array = Split(dgv1.Rows(dgv1.CurrentRow.Index + txtbackin.Text).Cells("Start_Time").Value, ":") + dH = dH + dd(0) + dM = dM + dd(1) + dS = dS + dd(2) + + Dim totalsecond As Integer = dH * 3600 + dM * 60 + dS + Dim aa = TimeSpan.FromSeconds(totalsecond) + Dim date1 As New Date(Now.Year, Now.Month, Now.Day, dH, dM, dS) + + Dim bb As TimeSpan = date1 - Now + + CasparCGDataCollection.SetData("initialvalue", bb.TotalMilliseconds) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(8, "CMP/cg_template/backin", True, CasparCGDataCollection.ToAMCPEscapedXml) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Play(8) + End Sub + + Sub lastclickedbutton(sender As Object) + cmdcueforclipgrid.BackColor = SystemColors.Control + cmdcueforclipgrid.ForeColor = Color.Black + + cmdcuenextforclipgrid.BackColor = SystemColors.Control + cmdcuenextforclipgrid.ForeColor = Color.Black + + cmdstopforclipgrid.BackColor = SystemColors.Control + cmdstopforclipgrid.ForeColor = Color.Black + + cmdresumeforclipgrid.BackColor = SystemColors.Control + cmdresumeforclipgrid.ForeColor = Color.Black + + cmdforwardoneframeforclipgrid.BackColor = SystemColors.Control + cmdforwardoneframeforclipgrid.ForeColor = Color.Black + + cmdplayforclipgrid.BackColor = SystemColors.Control + cmdplayforclipgrid.ForeColor = Color.Black + + cmdplaynextforclipgrid.BackColor = SystemColors.Control + cmdplaynextforclipgrid.ForeColor = Color.Black + + cmdbackoneframeforclipgrid.BackColor = SystemColors.Control + cmdbackoneframeforclipgrid.ForeColor = Color.Black + + cmdpauseforclipgrid.BackColor = SystemColors.Control + cmdpauseforclipgrid.ForeColor = Color.Black + + sender.BackColor = Color.Green + sender.ForeColor = Color.White + End Sub + + Private Sub cmdpauseforclipgrid_Click(sender As Object, e As EventArgs) Handles cmdpauseforclipgrid.Click + On Error Resume Next + CasparDevice.SendString("pause " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer) + lastclickedbutton(sender) + End Sub + Private Sub OpenInTrimmerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenInTrimmerToolStripMenuItem.Click + On Error Resume Next + + If dgv1.CurrentRow.Cells("File_Name").Value.ToString.Contains("://") Then + ucTrimmer.UcnewTrimmer11.openfileintrimmer(Replace(dgv1.CurrentRow.Cells("File_Name").Value, "://", ":/")) + Else + ucTrimmer.UcnewTrimmer11.openfileintrimmer(Replace(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value, "\", "/")) + End If + ucTrimmer.DockAreas = WeifenLuo.WinFormsUI.Docking.DockAreas.Document + ucTrimmer.Show(frmmediaplayer.DockPanel1, WeifenLuo.WinFormsUI.Docking.DockState.Document) + ucTrimmer.Focus() + End Sub + + + Private Async Sub FileInformationToolStripMenuItem1_ClickAsync(sender As Object, e As EventArgs) Handles FileInformationToolStripMenuItem1.Click + showfileinformation(mediafullpath & dgvclips.CurrentRow.Cells("File_Name").Value.ToString) + End Sub + + Private Sub FileInformationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FileInformationToolStripMenuItem.Click + On Error Resume Next + If dgv1.CurrentRow.Cells("File_Name").Value.ToString.Contains("://") Then + + showfileinformation(Replace(dgv1.CurrentRow.Cells("File_Name").Value.ToString, "://", ":/")) + Else + showfileinformation(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) + End If + + End Sub + + Private Sub dgvclips_DataError(sender As Object, e As DataGridViewDataErrorEventArgs) Handles dgv1.DataError, dgvclips.DataError + 'dummy code Don't delete. + End Sub + + + + Private Sub chkclipcountdown_CheckedChanged(sender As Object, e As EventArgs) Handles chkclipcountdown.CheckedChanged + On Error Resume Next + If chkclipcountdown.Checked Then + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", mstohms(clipsleftduration * 1000)) + CasparDevice.Channels(g_int_ChannelNumber).CG.Add(12, 12, "cmp/clipcountdown/clipcountdown1", True, CasparCGDataCollection.ToAMCPEscapedXml) + tmrclipcountdown.Enabled = True + Else + CasparDevice.Channels(g_int_ChannelNumber).CG.Stop(12, 12) + tmrclipcountdown.Enabled = False + End If + End Sub + Private Sub chknextcuefor2ndchannel_CheckedChanged(sender As Object, e As EventArgs) Handles chknextcuefor2ndchannel.CheckedChanged + + If chknextcuefor2ndchannel.Checked Then + Else + CasparDevice.SendString("stop " & g_int_ChannelNumber + 1 & "-" & g_int_PlaylistLayer) + End If + End Sub + Private Sub cmdplaylistfullscreen_Click(sender As Object, e As EventArgs) + Me.Size = New Size(1372, 620) + Me.Location = New Point(0, 60) + + gbplaylist.Size = New Size(1360, 610) + + gbplaylist.Location = New Point(3, 3) + + gbcliplist.Hide() + tvclips.Hide() + gbplayerforclipgrid.Hide() + + dgv1.Height = 510 + dgv1.Width = 1360 + frmmediaplayer.ucCasparcgWindow1.Location = casparwindowstartpoint + + Me.BringToFront() + End Sub + + Private Sub ucPlaylist_Load(sender As Object, e As EventArgs) Handles MyBase.Load + On Error Resume Next + initialiseplaylistdata() + initialisetvclips() + + dgv1.Columns("File_Name").DefaultCellStyle.Font = New Font("Arial Black", 13, FontStyle.Regular) + dgvclips.Columns("File_Name").DefaultCellStyle.Font = New Font("Arial Black", 13, FontStyle.Regular) + tvclips.Font = New Font("Arial Black", 13, FontStyle.Regular) + End Sub + Private Sub dgv1_DefaultValuesNeeded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowEventArgs) + On Error Resume Next + e.Row.Cells("x").Value = 1 + e.Row.Cells("Transition").Value = "CUT" + e.Row.Cells("T_Duration").Value = 10 + + e.Row.Cells("AudioLevel").Value = 1.0 + e.Row.Cells("FileType").Value = "Others" + + End Sub + Sub colorchange(i As Integer) + If dgv1.Rows(i).Cells("FileType").Value = "Program" Then dgv1.Rows(i).DefaultCellStyle.BackColor = Color.Yellow : dgv1.Rows(i).Cells(0).Style.BackColor = Color.Yellow + If dgv1.Rows(i).Cells("FileType").Value = "Promo" Then dgv1.Rows(i).DefaultCellStyle.BackColor = Color.Pink : dgv1.Rows(i).Cells(0).Style.BackColor = Color.Pink + If dgv1.Rows(i).Cells("FileType").Value = "Commercial" Then dgv1.Rows(i).DefaultCellStyle.BackColor = Color.Orange : dgv1.Rows(i).Cells(0).Style.BackColor = Color.Orange + If dgv1.Rows(i).Cells("FileType").Value = "Others" Then dgv1.Rows(i).DefaultCellStyle.BackColor = Color.White : dgv1.Rows(i).Cells(0).Style.BackColor = Color.White + If dgv1.Rows(i).Cells("FileType").Value = "" Then dgv1.Rows(i).DefaultCellStyle.BackColor = Color.White : dgv1.Rows(i).Cells(0).Style.BackColor = Color.White + End Sub + Private Sub tmrduration_Tick(sender As Object, e As EventArgs) Handles tmrduration.Tick + On Error Resume Next + getdurationbyosc() + For i As Integer = 0 To dgv1.Rows.Count - 1 + If i = currrow Then + dgv1.Rows(currrow).Cells(0).Style.BackColor = Color.LightGreen + Else + If dgv1.Rows(i).DefaultCellStyle.BackColor <> Color.Red Then + colorchange(i) + End If + + End If + Next i + If chktemplatewithplaylist.Checked = True Then + If dgv1.Rows(currrow).Cells("BackIn").Value = 1 Then + Dim backinduration As Double = Val(frmmediaplayer.ucTab1.UcPlaylistSetting1.txtBackinTimer.Text) + If clipsleftduration > (backinduration + 1.7) And clipsleftduration < (backinduration + 2.3) Then + + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("initialvalue", (backinduration + 2) * 1000) + CasparCGDataCollection.SetData("f0", "Back In") + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(8, "CMP/cg_template/backin", True, CasparCGDataCollection.ToAMCPEscapedXml) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Play(8) + End If + End If + End If + End Sub + + Private Sub tmrclipcountdown_Tick(sender As Object, e As EventArgs) Handles tmrclipcountdown.Tick + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("f0", mstohms(clipsleftduration * 1000)) + + Dim aa1 As Array = Split(Replace(dgvclips.CurrentRow.Cells("File_Name").Value, "\", "/"), "/") + CasparCGDataCollection.SetData("f1", Split((aa1(aa1.Length - 1)), ".")(0)) + + Dim aa2 As Array = Split(Replace(seconndchannelloopvideoname, "\", "/"), "/") + CasparCGDataCollection.SetData("f2", Split((aa2(aa2.Length - 1)), ".")(0)) + + CasparDevice.Channels(g_int_ChannelNumber).CG.Update(12, 12, CasparCGDataCollection) + End Sub + + Private Sub tmrfornotskiping_Tick(sender As Object, e As EventArgs) Handles tmrfornotskiping.Tick + On Error Resume Next + tmrnextclip.Enabled = True + tmrfornotskiping.Enabled = False + End Sub + Private Sub InsertDecklinkToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles InsertDecklinkToolStripMenuItem1.Click, InsertDecklinkToolStripMenuItem2.Click, InsertDecklinkToolStripMenuItem3.Click, InsertDecklinkToolStripMenuItem4.Click, InsertDecklinkToolStripMenuItem5.Click, InsertDecklinkToolStripMenuItem6.Click, InsertDecklinkToolStripMenuItem7.Click, InsertDecklinkToolStripMenuItem8.Click + On Error Resume Next + insertlivedecklink(sender.text) + End Sub + + Private Sub ShowLiveToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ShowLiveToolStripMenuItem1.Click, ShowLiveToolStripMenuItem2.Click, ShowLiveToolStripMenuItem3.Click, ShowLiveToolStripMenuItem4.Click, ShowLiveToolStripMenuItem5.Click, ShowLiveToolStripMenuItem6.Click, ShowLiveToolStripMenuItem7.Click, ShowLiveToolStripMenuItem8.Click + On Error Resume Next + showlivedecklink(sender.text) + End Sub + Private Sub InserEndToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InserEndToolStripMenuItem.Click + On Error Resume Next + insertend() + End Sub + + Private Sub DeSelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeSelectAllToolStripMenuItem.Click + On Error Resume Next + deselectAll() + End Sub + Private Sub SelectAllToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SelectAllToolStripMenuItem.Click + On Error Resume Next + selectAll() + End Sub + Private Sub SetStartTimeAcoordingToCurrentRowToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SetStartTimeAcoordingToCurrentRowToolStripMenuItem.Click + On Error Resume Next + SetStartTimeAccordingToCurrentRow() + End Sub + + Private Sub RefreshThumbnailToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RefreshThumbnailToolStripMenuItem.Click + On Error Resume Next + RefreshThumbnail() + End Sub + + Private Sub InserPlaylistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InserPlaylistToolStripMenuItem.Click + On Error Resume Next + insertfile() + End Sub + + Private Sub txtfps_TextChanged(sender As Object, e As EventArgs) Handles txtfps.TextChanged + On Error Resume Next + fps = txtfps.Text + End Sub + + + Function makedoubledigit(number As String) + If number < 10 Then number = "0" & number + Return number + End Function + + Function getfilenamewithoutdirectoty(aa As String) + On Error Resume Next + Dim bb As New OpenFileDialog + bb.FileName = aa + Dim cc As String = bb.SafeFileName + Return cc + End Function + + Private Sub dgv1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv1.CellDoubleClick + 'If e.ColumnIndex = 13 Then + If sender.columns(e.ColumnIndex).headercell.value = "Template File" Then + Dim aa As New OpenFileDialog + aa.InitialDirectory = "c:\casparcg\mydata\rundown\" + If aa.ShowDialog = DialogResult.OK Then + dgv1.CurrentCell.Value = aa.FileName + End If + End If + End Sub + Private Sub dgv1_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles dgv1.RowsAdded + updaterownumber() + End Sub + + Private Sub dgv1_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles dgv1.RowsRemoved + updaterownumber() + End Sub + Sub updaterownumber() + On Error Resume Next + For irownumberupdate = 0 To dgv1.Rows.Count - 1 + dgv1.Rows(irownumberupdate).HeaderCell.Value = irownumberupdate.ToString + Next + End Sub + Private Sub chktemplatewithplaylist_CheckedChanged(sender As Object, e As EventArgs) Handles chktemplatewithplaylist.CheckedChanged + + End Sub + Private Sub InsertFilterForIMXFile_Click(sender As Object, e As EventArgs) Handles InsertFilterForIMXFile.Click + If ServerVersion > 2.1 Then + dgv1.CurrentRow.Cells("clmFilter").Value = "vf crop=720:576:0:32" + Else + dgv1.CurrentRow.Cells("clmFilter").Value = "filter crop=720:576:0:32" + End If + End Sub + Private Sub gbplaylist_DoubleClick(sender As Object, e As EventArgs) Handles gbplaylist.DoubleClick + Changebackcolor(sender) + End Sub + + Private Sub chkDeinterlace_CheckedChanged(sender As Object, e As EventArgs) Handles chkDeinterlace.CheckedChanged + If ServerVersion > 2.1 Then + If sender.checked = True Then + deinterlaced = " vf yadif=1:0" + Else + deinterlaced = "" + End If + Else + If sender.checked = True Then + deinterlaced = " filter yadif=1:0" + Else + deinterlaced = "" + End If + End If + End Sub + Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click + On Error Resume Next + For i = 0 To dgv1.Rows.Count - 1 + dgv1.Rows(i).Cells("Transition").Value = "CUT" + Next + End Sub + Private Sub MIXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MIXToolStripMenuItem.Click + On Error Resume Next + For i = 0 To dgv1.Rows.Count - 1 + dgv1.Rows(i).Cells("Transition").Value = "MIX" + Next + End Sub + Private Sub WIPEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WIPEToolStripMenuItem.Click + On Error Resume Next + For i = 0 To dgv1.Rows.Count - 1 + dgv1.Rows(i).Cells("Transition").Value = "WIPE" + Next + End Sub + + Private Sub PUSHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PUSHToolStripMenuItem.Click + On Error Resume Next + For i = 0 To dgv1.Rows.Count - 1 + dgv1.Rows(i).Cells("Transition").Value = "PUSH" + Next + End Sub + + Private Sub SLIDEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SLIDEToolStripMenuItem.Click + On Error Resume Next + For i = 0 To dgv1.Rows.Count - 1 + dgv1.Rows(i).Cells("Transition").Value = "SLIDE" + Next + End Sub + + Private Sub NewToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click + On Error Resume Next + newdgv() + End Sub + + Private Sub OpenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click + On Error Resume Next + openfile() + End Sub + Private Sub SaveToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click + On Error Resume Next + saveplaylist(lblplalistname.Text) + End Sub + + Private Sub SaveAsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveAsToolStripMenuItem.Click + savefile() + End Sub + Private Sub MenuStrip1_MouseHover(sender As Object, e As EventArgs) Handles MenuStrip1.MouseHover + MakeMenuDropDownWhenParrented(sender) + End Sub + + Private Sub MnuPlayinffplay_Click(sender As Object, e As EventArgs) Handles mnuPlayinffplay.Click + On Error Resume Next + playinffplay(mediafullpath & dgv1.CurrentRow.Cells("File_Name").Value.ToString) + End Sub + Private Sub Txtsearch_TextChanged(sender As Object, e As EventArgs) Handles txtsearch.TextChanged + End Sub + Private Sub InsertDecklinkToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InsertDecklinkToolStripMenuItem.Click + End Sub + Private Sub cmdFullScreen_Click(sender As Object, e As EventArgs) Handles cmdFullScreen.Click + gbcliplist.BringToFront() + gbcliplist.Size = modulegbsize + gbcliplist.Top = 0 'frmmediaplayer.pnlServer.Height + 1 + tvclips.Height = 296 + 560 + dgvclips.Height = 223 + 560 + gbplayerforclipgrid.Top = dgvclips.Height + dgvclips.Top + 2 + End Sub + + Private Sub cmdSmallScreen_Click(sender As Object, e As EventArgs) Handles cmdSmallScreen.Click + gbcliplist.Size = New Size(1221, 373) ' modulegbsize + gbcliplist.Location = New Point(8, 565) ' New Point(8, 579) 'modulestartpoint + tvclips.Height = 296 ' + 500 + dgvclips.Height = 223 ' + 500 + gbplayerforclipgrid.Top = dgvclips.Height + dgvclips.Top + 2 + End Sub + + Private Sub Cmdcueclip_Click(sender As Object, e As EventArgs) Handles cmdcueforclipgrid.Click + On Error Resume Next + cuefromclipgrid() + End Sub + Private Sub Cmdbackoneframe_Click(sender As Object, e As EventArgs) Handles cmdbackoneframeforclipgrid.Click + On Error Resume Next + CasparDevice.SendString("load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(ucOSC.dgvosc.Rows(8).Cells(1).Value) & """" + " seek " & frmmediaplayer.ucCasparcgWindow1.lblcurrentframe.Text - 1) + lastclickedbutton(sender) + End Sub + Private Sub CmdPlaySingleClip_Click(sender As Object, e As EventArgs) Handles cmdplayforclipgrid.Click + On Error Resume Next + playfromclipgrid() + + End Sub + + Private Sub cmdforwardoneframeforclipgrid_Click(sender As Object, e As EventArgs) Handles cmdforwardoneframeforclipgrid.Click + On Error Resume Next + CasparDevice.SendString("load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(ucOSC.dgvosc.Rows(8).Cells(1).Value) & """" + " seek " & frmmediaplayer.ucCasparcgWindow1.lblcurrentframe.Text + 1) + lastclickedbutton(sender) + End Sub + + Private Sub cmdresumeforclipgrid_Click(sender As Object, e As EventArgs) Handles cmdresumeforclipgrid.Click + On Error Resume Next + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer) + lastclickedbutton(sender) + End Sub + + Private Sub cmdstopforclipgrid_Click(sender As Object, e As EventArgs) Handles cmdstopforclipgrid.Click + On Error Resume Next + CasparDevice.SendString("stop " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer) + lastclickedbutton(sender) + End Sub + Private Sub cmdcuenextforclipgrid_Click(sender As Object, e As EventArgs) Handles cmdcuenextforclipgrid.Click + On Error Resume Next + Dim i As Integer + i = dgvclips.CurrentRow.Index + If i = (dgvclips.Rows.Count - 1) Then + dgvclips.CurrentCell = dgvclips.Rows(0).Cells("File_Name") + Else + dgvclips.CurrentCell = dgvclips.Rows(i + 1).Cells("File_Name") + End If + + If System.IO.Path.GetExtension(mediafullpath & dgvclips.CurrentRow.Cells("File_Name").Value.ToString) = ".txt" Then + readsubclip(mediafullpath & dgvclips.CurrentRow.Cells("File_Name").Value.ToString) + CasparDevice.SendString("load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek & " length " & cliplength & deinterlaced) + Else + CasparDevice.SendString("load " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgvclips.CurrentRow.Cells("File_Name").Value) & """" & deinterlaced) + End If + tmrduration.Enabled = True + palyloopinsecondchannel() + + lastclickedbutton(sender) + End Sub + Private Sub cmdplaynextforclipgrid_Click(sender As Object, e As EventArgs) Handles cmdplaynextforclipgrid.Click + On Error Resume Next + Dim i As Integer + i = dgvclips.CurrentRow.Index + If i = (dgvclips.Rows.Count - 1) Then + dgvclips.CurrentCell = dgvclips.Rows(0).Cells("File_Name") + Else + dgvclips.CurrentCell = dgvclips.Rows(i + 1).Cells("File_Name") + End If + + If System.IO.Path.GetExtension(mediafullpath & dgvclips.CurrentRow.Cells("File_Name").Value.ToString) = ".txt" Then + readsubclip(mediafullpath & dgvclips.CurrentRow.Cells("File_Name").Value.ToString) + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(masterfilename) & """" + " seek " & clipseek & " length " & cliplength & deinterlaced) + Else + CasparDevice.SendString("play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " " & """" & ModifyFilename(dgvclips.CurrentRow.Cells("File_Name").Value) & """" & deinterlaced) + End If + tmrduration.Enabled = True + palyloopinsecondchannel() + lastclickedbutton(sender) + End Sub + Private Sub dgvclips_DragEnter(sender As Object, e As DragEventArgs) Handles dgvclips.DragEnter + End Sub + Private Sub dgvclips_DragDrop(sender As Object, e As DragEventArgs) Handles dgvclips.DragDrop + End Sub +End Class diff --git a/CasparMediaPlayback/ucPlaylistSetting.Designer.vb b/CasparMediaPlayback/ucPlaylistSetting.Designer.vb new file mode 100644 index 0000000..a1f8aa3 --- /dev/null +++ b/CasparMediaPlayback/ucPlaylistSetting.Designer.vb @@ -0,0 +1,519 @@ + +Partial Class ucPlaylistSetting + Inherits System.Windows.Forms.UserControl + 'Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.GroupBox11 = New System.Windows.Forms.GroupBox() + Me.txtanamorphic = New System.Windows.Forms.TextBox() + Me.rdoanamorphic = New System.Windows.Forms.RadioButton() + Me.txtpillarboxsettings = New System.Windows.Forms.TextBox() + Me.txtcropsettings = New System.Windows.Forms.TextBox() + Me.txtletterboxsettings = New System.Windows.Forms.TextBox() + Me.txtcentercutsetting = New System.Windows.Forms.TextBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label246 = New System.Windows.Forms.Label() + Me.rdocropsettings = New System.Windows.Forms.RadioButton() + Me.rdopillarboxsettings = New System.Windows.Forms.RadioButton() + Me.rdoletterboxsettings = New System.Windows.Forms.RadioButton() + Me.rdocentercutsetting = New System.Windows.Forms.RadioButton() + Me.GroupBox12 = New System.Windows.Forms.GroupBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtmixercommandforconversion = New System.Windows.Forms.TextBox() + Me.chkStayOnSelected = New System.Windows.Forms.CheckBox() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.rdotemplatefromserver = New System.Windows.Forms.RadioButton() + Me.rdotemplatefromfilesystem = New System.Windows.Forms.RadioButton() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.gbClipSearchMethod = New System.Windows.Forms.GroupBox() + Me.rdoclipfromserver = New System.Windows.Forms.RadioButton() + Me.rdoclipfromfilesystem = New System.Windows.Forms.RadioButton() + Me.chkLoadbg = New System.Windows.Forms.CheckBox() + Me.txtscrubbingtimerinterval = New System.Windows.Forms.TextBox() + Me.Label225 = New System.Windows.Forms.Label() + Me.chkSendFileNameWithoutExtension = New System.Windows.Forms.CheckBox() + Me.ttPlayListSetting = New System.Windows.Forms.ToolTip(Me.components) + Me.GbNewInstancesetting = New System.Windows.Forms.GroupBox() + Me.SetChannel = New System.Windows.Forms.Button() + Me.cmbchannelnewinstance = New System.Windows.Forms.ComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.GBPlaylistCGSetting = New System.Windows.Forms.GroupBox() + Me.txtBackinTimer = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.tmrSilenceDetect = New System.Windows.Forms.Timer(Me.components) + Me.GroupBox11.SuspendLayout() + Me.GroupBox12.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.gbClipSearchMethod.SuspendLayout() + Me.GbNewInstancesetting.SuspendLayout() + Me.GBPlaylistCGSetting.SuspendLayout() + Me.SuspendLayout() + ' + 'GroupBox11 + ' + Me.GroupBox11.BackColor = System.Drawing.Color.Goldenrod + Me.GroupBox11.Controls.Add(Me.txtanamorphic) + Me.GroupBox11.Controls.Add(Me.rdoanamorphic) + Me.GroupBox11.Controls.Add(Me.txtpillarboxsettings) + Me.GroupBox11.Controls.Add(Me.txtcropsettings) + Me.GroupBox11.Controls.Add(Me.txtletterboxsettings) + Me.GroupBox11.Controls.Add(Me.txtcentercutsetting) + Me.GroupBox11.Controls.Add(Me.Label16) + Me.GroupBox11.Controls.Add(Me.Label246) + Me.GroupBox11.Controls.Add(Me.rdocropsettings) + Me.GroupBox11.Controls.Add(Me.rdopillarboxsettings) + Me.GroupBox11.Controls.Add(Me.rdoletterboxsettings) + Me.GroupBox11.Controls.Add(Me.rdocentercutsetting) + Me.GroupBox11.Location = New System.Drawing.Point(256, 3) + Me.GroupBox11.Name = "GroupBox11" + Me.GroupBox11.Size = New System.Drawing.Size(212, 168) + Me.GroupBox11.TabIndex = 715 + Me.GroupBox11.TabStop = False + Me.GroupBox11.Text = "Conversion Setting" + ' + 'txtanamorphic + ' + Me.txtanamorphic.Location = New System.Drawing.Point(6, 142) + Me.txtanamorphic.Name = "txtanamorphic" + Me.txtanamorphic.Size = New System.Drawing.Size(100, 20) + Me.txtanamorphic.TabIndex = 11 + Me.txtanamorphic.Text = "0 0 1 1" + ' + 'rdoanamorphic + ' + Me.rdoanamorphic.AutoSize = True + Me.rdoanamorphic.Location = New System.Drawing.Point(112, 142) + Me.rdoanamorphic.Name = "rdoanamorphic" + Me.rdoanamorphic.Size = New System.Drawing.Size(81, 17) + Me.rdoanamorphic.TabIndex = 10 + Me.rdoanamorphic.TabStop = True + Me.rdoanamorphic.Text = "Anamorphic" + Me.rdoanamorphic.UseVisualStyleBackColor = True + ' + 'txtpillarboxsettings + ' + Me.txtpillarboxsettings.Location = New System.Drawing.Point(6, 115) + Me.txtpillarboxsettings.Name = "txtpillarboxsettings" + Me.txtpillarboxsettings.Size = New System.Drawing.Size(100, 20) + Me.txtpillarboxsettings.TabIndex = 9 + Me.txtpillarboxsettings.Text = "0.12 0.0 0.76 1.0" + ' + 'txtcropsettings + ' + Me.txtcropsettings.Location = New System.Drawing.Point(6, 92) + Me.txtcropsettings.Name = "txtcropsettings" + Me.txtcropsettings.Size = New System.Drawing.Size(100, 20) + Me.txtcropsettings.TabIndex = 8 + Me.txtcropsettings.Text = "0.0 -0.12 1.0 1.24" + ' + 'txtletterboxsettings + ' + Me.txtletterboxsettings.Location = New System.Drawing.Point(8, 51) + Me.txtletterboxsettings.Name = "txtletterboxsettings" + Me.txtletterboxsettings.Size = New System.Drawing.Size(100, 20) + Me.txtletterboxsettings.TabIndex = 7 + Me.txtletterboxsettings.Text = "0.0 0.12 1.0 0.76" + ' + 'txtcentercutsetting + ' + Me.txtcentercutsetting.Location = New System.Drawing.Point(8, 28) + Me.txtcentercutsetting.Name = "txtcentercutsetting" + Me.txtcentercutsetting.Size = New System.Drawing.Size(100, 20) + Me.txtcentercutsetting.TabIndex = 6 + Me.txtcentercutsetting.Text = "-0.17 0.0 1.34 1.0" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(3, 76) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(83, 13) + Me.Label16.TabIndex = 5 + Me.Label16.Text = "For HD Channel" + ' + 'Label246 + ' + Me.Label246.AutoSize = True + Me.Label246.Location = New System.Drawing.Point(5, 13) + Me.Label246.Name = "Label246" + Me.Label246.Size = New System.Drawing.Size(82, 13) + Me.Label246.TabIndex = 4 + Me.Label246.Text = "For SD Channel" + ' + 'rdocropsettings + ' + Me.rdocropsettings.AutoSize = True + Me.rdocropsettings.Location = New System.Drawing.Point(112, 95) + Me.rdocropsettings.Name = "rdocropsettings" + Me.rdocropsettings.Size = New System.Drawing.Size(47, 17) + Me.rdocropsettings.TabIndex = 3 + Me.rdocropsettings.TabStop = True + Me.rdocropsettings.Text = "Crop" + Me.rdocropsettings.UseVisualStyleBackColor = True + ' + 'rdopillarboxsettings + ' + Me.rdopillarboxsettings.AutoSize = True + Me.rdopillarboxsettings.Location = New System.Drawing.Point(112, 115) + Me.rdopillarboxsettings.Name = "rdopillarboxsettings" + Me.rdopillarboxsettings.Size = New System.Drawing.Size(68, 17) + Me.rdopillarboxsettings.TabIndex = 2 + Me.rdopillarboxsettings.TabStop = True + Me.rdopillarboxsettings.Text = "Pillar Box" + Me.rdopillarboxsettings.UseVisualStyleBackColor = True + ' + 'rdoletterboxsettings + ' + Me.rdoletterboxsettings.AutoSize = True + Me.rdoletterboxsettings.Location = New System.Drawing.Point(111, 49) + Me.rdoletterboxsettings.Name = "rdoletterboxsettings" + Me.rdoletterboxsettings.Size = New System.Drawing.Size(69, 17) + Me.rdoletterboxsettings.TabIndex = 1 + Me.rdoletterboxsettings.TabStop = True + Me.rdoletterboxsettings.Text = "Letterbox" + Me.rdoletterboxsettings.UseVisualStyleBackColor = True + ' + 'rdocentercutsetting + ' + Me.rdocentercutsetting.AutoSize = True + Me.rdocentercutsetting.Checked = True + Me.rdocentercutsetting.Location = New System.Drawing.Point(112, 30) + Me.rdocentercutsetting.Name = "rdocentercutsetting" + Me.rdocentercutsetting.Size = New System.Drawing.Size(102, 17) + Me.rdocentercutsetting.TabIndex = 0 + Me.rdocentercutsetting.TabStop = True + Me.rdocentercutsetting.Text = "Crop (Centercut)" + Me.rdocentercutsetting.UseVisualStyleBackColor = True + ' + 'GroupBox12 + ' + Me.GroupBox12.BackColor = System.Drawing.Color.LightCoral + Me.GroupBox12.Controls.Add(Me.Label5) + Me.GroupBox12.Controls.Add(Me.txtmixercommandforconversion) + Me.GroupBox12.Controls.Add(Me.chkStayOnSelected) + Me.GroupBox12.Controls.Add(Me.GroupBox3) + Me.GroupBox12.Controls.Add(Me.GroupBox2) + Me.GroupBox12.Controls.Add(Me.chkLoadbg) + Me.GroupBox12.Controls.Add(Me.txtscrubbingtimerinterval) + Me.GroupBox12.Controls.Add(Me.Label225) + Me.GroupBox12.Controls.Add(Me.chkSendFileNameWithoutExtension) + Me.GroupBox12.Location = New System.Drawing.Point(2, 2) + Me.GroupBox12.Name = "GroupBox12" + Me.GroupBox12.Size = New System.Drawing.Size(240, 233) + Me.GroupBox12.TabIndex = 731 + Me.GroupBox12.TabStop = False + Me.GroupBox12.Text = "Playlist Settings" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(6, 201) + Me.Label5.MaximumSize = New System.Drawing.Size(150, 0) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(139, 26) + Me.Label5.TabIndex = 1185 + Me.Label5.Text = "Delay in mixer command for conversion (ms)" + ' + 'txtmixercommandforconversion + ' + Me.txtmixercommandforconversion.Location = New System.Drawing.Point(161, 206) + Me.txtmixercommandforconversion.Name = "txtmixercommandforconversion" + Me.txtmixercommandforconversion.Size = New System.Drawing.Size(40, 20) + Me.txtmixercommandforconversion.TabIndex = 1184 + Me.txtmixercommandforconversion.Text = "400" + Me.txtmixercommandforconversion.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'chkStayOnSelected + ' + Me.chkStayOnSelected.AutoSize = True + Me.chkStayOnSelected.Checked = True + Me.chkStayOnSelected.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkStayOnSelected.Location = New System.Drawing.Point(11, 178) + Me.chkStayOnSelected.Name = "chkStayOnSelected" + Me.chkStayOnSelected.Size = New System.Drawing.Size(127, 17) + Me.chkStayOnSelected.TabIndex = 1183 + Me.chkStayOnSelected.Text = "Stay on Selected Clip" + Me.chkStayOnSelected.UseVisualStyleBackColor = True + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.rdotemplatefromserver) + Me.GroupBox3.Controls.Add(Me.rdotemplatefromfilesystem) + Me.GroupBox3.Location = New System.Drawing.Point(6, 134) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(217, 41) + Me.GroupBox3.TabIndex = 1182 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Template Search Method" + ' + 'rdotemplatefromserver + ' + Me.rdotemplatefromserver.AutoSize = True + Me.rdotemplatefromserver.Location = New System.Drawing.Point(114, 18) + Me.rdotemplatefromserver.Name = "rdotemplatefromserver" + Me.rdotemplatefromserver.Size = New System.Drawing.Size(56, 17) + Me.rdotemplatefromserver.TabIndex = 1 + Me.rdotemplatefromserver.Text = "Server" + Me.rdotemplatefromserver.UseVisualStyleBackColor = True + ' + 'rdotemplatefromfilesystem + ' + Me.rdotemplatefromfilesystem.AutoSize = True + Me.rdotemplatefromfilesystem.Checked = True + Me.rdotemplatefromfilesystem.Location = New System.Drawing.Point(18, 18) + Me.rdotemplatefromfilesystem.Name = "rdotemplatefromfilesystem" + Me.rdotemplatefromfilesystem.Size = New System.Drawing.Size(78, 17) + Me.rdotemplatefromfilesystem.TabIndex = 0 + Me.rdotemplatefromfilesystem.TabStop = True + Me.rdotemplatefromfilesystem.Text = "File System" + Me.rdotemplatefromfilesystem.UseVisualStyleBackColor = True + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.gbClipSearchMethod) + Me.GroupBox2.Location = New System.Drawing.Point(6, 69) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(217, 60) + Me.GroupBox2.TabIndex = 1181 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = " " + ' + 'gbClipSearchMethod + ' + Me.gbClipSearchMethod.Controls.Add(Me.rdoclipfromserver) + Me.gbClipSearchMethod.Controls.Add(Me.rdoclipfromfilesystem) + Me.gbClipSearchMethod.Location = New System.Drawing.Point(16, 14) + Me.gbClipSearchMethod.Name = "gbClipSearchMethod" + Me.gbClipSearchMethod.Size = New System.Drawing.Size(169, 35) + Me.gbClipSearchMethod.TabIndex = 1177 + Me.gbClipSearchMethod.TabStop = False + Me.gbClipSearchMethod.Text = "Clip Serach Method" + ' + 'rdoclipfromserver + ' + Me.rdoclipfromserver.AutoSize = True + Me.rdoclipfromserver.Location = New System.Drawing.Point(87, 13) + Me.rdoclipfromserver.Name = "rdoclipfromserver" + Me.rdoclipfromserver.Size = New System.Drawing.Size(56, 17) + Me.rdoclipfromserver.TabIndex = 1176 + Me.rdoclipfromserver.Text = "Server" + Me.ttPlayListSetting.SetToolTip(Me.rdoclipfromserver, "use this when server is remote and no symlinked folder") + Me.rdoclipfromserver.UseVisualStyleBackColor = True + ' + 'rdoclipfromfilesystem + ' + Me.rdoclipfromfilesystem.AutoSize = True + Me.rdoclipfromfilesystem.Checked = True + Me.rdoclipfromfilesystem.Location = New System.Drawing.Point(6, 14) + Me.rdoclipfromfilesystem.Name = "rdoclipfromfilesystem" + Me.rdoclipfromfilesystem.Size = New System.Drawing.Size(78, 17) + Me.rdoclipfromfilesystem.TabIndex = 1175 + Me.rdoclipfromfilesystem.TabStop = True + Me.rdoclipfromfilesystem.Text = "File System" + Me.ttPlayListSetting.SetToolTip(Me.rdoclipfromfilesystem, "Use this when server is lical") + Me.rdoclipfromfilesystem.UseVisualStyleBackColor = True + ' + 'chkLoadbg + ' + Me.chkLoadbg.AutoSize = True + Me.chkLoadbg.Checked = True + Me.chkLoadbg.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkLoadbg.Location = New System.Drawing.Point(6, 31) + Me.chkLoadbg.Name = "chkLoadbg" + Me.chkLoadbg.Size = New System.Drawing.Size(90, 17) + Me.chkLoadbg.TabIndex = 734 + Me.chkLoadbg.Text = "Send Loadbg" + Me.chkLoadbg.UseVisualStyleBackColor = True + ' + 'txtscrubbingtimerinterval + ' + Me.txtscrubbingtimerinterval.Location = New System.Drawing.Point(145, 46) + Me.txtscrubbingtimerinterval.Name = "txtscrubbingtimerinterval" + Me.txtscrubbingtimerinterval.Size = New System.Drawing.Size(32, 20) + Me.txtscrubbingtimerinterval.TabIndex = 733 + Me.txtscrubbingtimerinterval.Text = "100" + ' + 'Label225 + ' + Me.Label225.AutoSize = True + Me.Label225.Location = New System.Drawing.Point(5, 50) + Me.Label225.Name = "Label225" + Me.Label225.Size = New System.Drawing.Size(137, 13) + Me.Label225.TabIndex = 732 + Me.Label225.Text = "Scrubbing Timer interval ms" + ' + 'chkSendFileNameWithoutExtension + ' + Me.chkSendFileNameWithoutExtension.AutoSize = True + Me.chkSendFileNameWithoutExtension.Checked = True + Me.chkSendFileNameWithoutExtension.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkSendFileNameWithoutExtension.Location = New System.Drawing.Point(6, 14) + Me.chkSendFileNameWithoutExtension.Name = "chkSendFileNameWithoutExtension" + Me.chkSendFileNameWithoutExtension.Size = New System.Drawing.Size(181, 17) + Me.chkSendFileNameWithoutExtension.TabIndex = 729 + Me.chkSendFileNameWithoutExtension.Text = "Send FileNme Without Extension" + Me.chkSendFileNameWithoutExtension.UseVisualStyleBackColor = True + ' + 'GbNewInstancesetting + ' + Me.GbNewInstancesetting.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.GbNewInstancesetting.Controls.Add(Me.SetChannel) + Me.GbNewInstancesetting.Controls.Add(Me.cmbchannelnewinstance) + Me.GbNewInstancesetting.Controls.Add(Me.Label2) + Me.GbNewInstancesetting.Location = New System.Drawing.Point(477, 8) + Me.GbNewInstancesetting.Name = "GbNewInstancesetting" + Me.GbNewInstancesetting.Size = New System.Drawing.Size(139, 71) + Me.GbNewInstancesetting.TabIndex = 734 + Me.GbNewInstancesetting.TabStop = False + Me.GbNewInstancesetting.Text = "New Instance setting" + ' + 'SetChannel + ' + Me.SetChannel.Location = New System.Drawing.Point(42, 36) + Me.SetChannel.Name = "SetChannel" + Me.SetChannel.Size = New System.Drawing.Size(75, 23) + Me.SetChannel.TabIndex = 320 + Me.SetChannel.Text = "Set Channel" + Me.SetChannel.UseVisualStyleBackColor = True + ' + 'cmbchannelnewinstance + ' + Me.cmbchannelnewinstance.FormattingEnabled = True + Me.cmbchannelnewinstance.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8"}) + Me.cmbchannelnewinstance.Location = New System.Drawing.Point(6, 36) + Me.cmbchannelnewinstance.Name = "cmbchannelnewinstance" + Me.cmbchannelnewinstance.Size = New System.Drawing.Size(30, 21) + Me.cmbchannelnewinstance.TabIndex = 319 + Me.cmbchannelnewinstance.Text = "2" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(7, 20) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(109, 13) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "Configure for Channel" + ' + 'GBPlaylistCGSetting + ' + Me.GBPlaylistCGSetting.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.GBPlaylistCGSetting.Controls.Add(Me.txtBackinTimer) + Me.GBPlaylistCGSetting.Controls.Add(Me.Label3) + Me.GBPlaylistCGSetting.Location = New System.Drawing.Point(476, 89) + Me.GBPlaylistCGSetting.Name = "GBPlaylistCGSetting" + Me.GBPlaylistCGSetting.Size = New System.Drawing.Size(141, 81) + Me.GBPlaylistCGSetting.TabIndex = 735 + Me.GBPlaylistCGSetting.TabStop = False + Me.GBPlaylistCGSetting.Text = "Playlist CG Setting" + ' + 'txtBackinTimer + ' + Me.txtBackinTimer.Location = New System.Drawing.Point(12, 53) + Me.txtBackinTimer.Name = "txtBackinTimer" + Me.txtBackinTimer.Size = New System.Drawing.Size(47, 20) + Me.txtBackinTimer.TabIndex = 322 + Me.txtBackinTimer.Text = "8" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(9, 24) + Me.Label3.MaximumSize = New System.Drawing.Size(140, 0) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(130, 26) + Me.Label3.TabIndex = 321 + Me.Label3.Text = "Back In Timer Duration in Second" + ' + 'tmrSilenceDetect + ' + Me.tmrSilenceDetect.Interval = 1000 + ' + 'ucPlaylistSetting + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(624, 240) + Me.Controls.Add(Me.GBPlaylistCGSetting) + Me.Controls.Add(Me.GbNewInstancesetting) + Me.Controls.Add(Me.GroupBox12) + Me.Controls.Add(Me.GroupBox11) + 'Me.HideOnClose = True + Me.Name = "ucPlaylistSetting" + Me.Text = "Play List Setting" + Me.GroupBox11.ResumeLayout(False) + Me.GroupBox11.PerformLayout() + Me.GroupBox12.ResumeLayout(False) + Me.GroupBox12.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.gbClipSearchMethod.ResumeLayout(False) + Me.gbClipSearchMethod.PerformLayout() + Me.GbNewInstancesetting.ResumeLayout(False) + Me.GbNewInstancesetting.PerformLayout() + Me.GBPlaylistCGSetting.ResumeLayout(False) + Me.GBPlaylistCGSetting.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox + Friend WithEvents txtpillarboxsettings As System.Windows.Forms.TextBox + Friend WithEvents txtcropsettings As System.Windows.Forms.TextBox + Friend WithEvents txtletterboxsettings As System.Windows.Forms.TextBox + Friend WithEvents txtcentercutsetting As System.Windows.Forms.TextBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents Label246 As System.Windows.Forms.Label + Friend WithEvents rdocropsettings As System.Windows.Forms.RadioButton + Friend WithEvents rdopillarboxsettings As System.Windows.Forms.RadioButton + Friend WithEvents rdoletterboxsettings As System.Windows.Forms.RadioButton + Friend WithEvents rdocentercutsetting As System.Windows.Forms.RadioButton + Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox + Friend WithEvents gbClipSearchMethod As System.Windows.Forms.GroupBox + Friend WithEvents rdoclipfromserver As System.Windows.Forms.RadioButton + Friend WithEvents rdoclipfromfilesystem As System.Windows.Forms.RadioButton + Friend WithEvents chkLoadbg As System.Windows.Forms.CheckBox + Friend WithEvents txtscrubbingtimerinterval As System.Windows.Forms.TextBox + Friend WithEvents Label225 As System.Windows.Forms.Label + Friend WithEvents chkSendFileNameWithoutExtension As System.Windows.Forms.CheckBox + Friend WithEvents ttPlayListSetting As System.Windows.Forms.ToolTip + Friend WithEvents txtanamorphic As System.Windows.Forms.TextBox + Friend WithEvents rdoanamorphic As System.Windows.Forms.RadioButton + Friend WithEvents GbNewInstancesetting As System.Windows.Forms.GroupBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents cmbchannelnewinstance As System.Windows.Forms.ComboBox + Friend WithEvents SetChannel As System.Windows.Forms.Button + Friend WithEvents GBPlaylistCGSetting As GroupBox + Friend WithEvents txtBackinTimer As TextBox + Friend WithEvents Label3 As Label + Friend WithEvents GroupBox3 As GroupBox + Friend WithEvents rdotemplatefromserver As RadioButton + Friend WithEvents rdotemplatefromfilesystem As RadioButton + Friend WithEvents GroupBox2 As GroupBox + Friend WithEvents chkStayOnSelected As CheckBox + Friend WithEvents tmrSilenceDetect As Timer + Friend WithEvents Label5 As Label + Friend WithEvents txtmixercommandforconversion As TextBox +End Class diff --git a/CasparMediaPlayback/ucPlaylistSetting.resx b/CasparMediaPlayback/ucPlaylistSetting.resx new file mode 100644 index 0000000..6f8de15 --- /dev/null +++ b/CasparMediaPlayback/ucPlaylistSetting.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 17, 17 + + + 156, 17 + + + 77 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucPlaylistSetting.vb b/CasparMediaPlayback/ucPlaylistSetting.vb new file mode 100644 index 0000000..a9f6bc6 --- /dev/null +++ b/CasparMediaPlayback/ucPlaylistSetting.vb @@ -0,0 +1,52 @@ + +Public Class ucPlaylistSetting + Private Sub ucPlaylistSetting_Load(sender As Object, e As EventArgs) Handles MyBase.Load + End Sub + Sub resizeoptions() Handles rdocentercutsetting.CheckedChanged, rdoletterboxsettings.CheckedChanged, rdopillarboxsettings.CheckedChanged, rdocentercutsetting.CheckedChanged, rdoanamorphic.CheckedChanged + On Error Resume Next + If rdocentercutsetting.Checked And rdocentercutsetting.IsHandleCreated Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " fill " & txtcentercutsetting.Text) + ElseIf rdoletterboxsettings.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " fill " & txtletterboxsettings.Text) + ElseIf rdopillarboxsettings.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " fill " & txtpillarboxsettings.Text) + ElseIf rdocropsettings.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " fill " & txtcropsettings.Text) + ElseIf rdoanamorphic.Checked Then + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " fill " & txtanamorphic.Text) + + End If + End Sub + + Function folderbrowsing(originaldirectory As String) + On Error Resume Next + Dim fbd As New FolderBrowserDialog + If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then + Return fbd.SelectedPath & "\" + Else + Return originaldirectory + End If + End Function + Private Sub SetChannel_Click(sender As Object, e As EventArgs) Handles SetChannel.Click + On Error Resume Next + setchannelnumber(cmbchannelnewinstance.Text) + End Sub + Public Sub setchannelnumber(chn As Integer) + With frmmediaplayer + .cmbchannel.Text = chn + .cmbchannel.Enabled = False + ucOSC.stoposcserver() + ucOSC.cmboscport.Text = 6249 + chn + ucOSC.cmboscport.Enabled = False + ucOSC.oscstartandregister() + .ucCasparcgWindow1.cmbcasparcgwindowtitle.Text = "Screen consumer [" & chn & "|PAL]" + End With + End Sub + Private Sub chkSendFileNameWithoutExtension_CheckedChanged(sender As Object, e As EventArgs) Handles chkSendFileNameWithoutExtension.CheckedChanged + If chkSendFileNameWithoutExtension.Checked = True Then + filenamewithoutextensioncheck = True + Else + filenamewithoutextensioncheck = False + End If + End Sub +End Class diff --git a/CasparMediaPlayback/ucPositionAndSize.Designer.vb b/CasparMediaPlayback/ucPositionAndSize.Designer.vb new file mode 100644 index 0000000..11d935f --- /dev/null +++ b/CasparMediaPlayback/ucPositionAndSize.Designer.vb @@ -0,0 +1,217 @@ + _ +Partial Class ucPositionAndSize + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucPositionAndSize)) + Me.nfillx = New System.Windows.Forms.NumericUpDown() + Me.nfilly = New System.Windows.Forms.NumericUpDown() + Me.Label43 = New System.Windows.Forms.Label() + Me.Label44 = New System.Windows.Forms.Label() + Me.nfillwidth = New System.Windows.Forms.NumericUpDown() + Me.nfillheight = New System.Windows.Forms.NumericUpDown() + Me.Label45 = New System.Windows.Forms.Label() + Me.Label46 = New System.Windows.Forms.Label() + Me.cmdfill = New System.Windows.Forms.Button() + Me.cmbVideoLayerforPositionAndSize = New System.Windows.Forms.ComboBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.cmdhidegboscmonitor = New System.Windows.Forms.Button() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + CType(Me.nfillx, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nfilly, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nfillwidth, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nfillheight, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'nfillx + ' + Me.nfillx.DecimalPlaces = 2 + Me.nfillx.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nfillx.Location = New System.Drawing.Point(58, 30) + Me.nfillx.Maximum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.nfillx.Minimum = New Decimal(New Integer() {2, 0, 0, -2147483648}) + Me.nfillx.Name = "nfillx" + Me.nfillx.Size = New System.Drawing.Size(46, 20) + Me.nfillx.TabIndex = 417 + Me.nfillx.Value = Global.caspar_media_playback.My.MySettings.Default.nfillx + ' + 'nfilly + ' + Me.nfilly.DecimalPlaces = 2 + Me.nfilly.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nfilly.Location = New System.Drawing.Point(58, 54) + Me.nfilly.Maximum = New Decimal(New Integer() {2, 0, 0, 0}) + Me.nfilly.Minimum = New Decimal(New Integer() {2, 0, 0, -2147483648}) + Me.nfilly.Name = "nfilly" + Me.nfilly.Size = New System.Drawing.Size(46, 20) + Me.nfilly.TabIndex = 416 + Me.nfilly.Value = Global.caspar_media_playback.My.MySettings.Default.nfilly + ' + 'Label43 + ' + Me.Label43.AutoSize = True + Me.Label43.Location = New System.Drawing.Point(13, 103) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(44, 13) + Me.Label43.TabIndex = 415 + Me.Label43.Text = "Y Scale" + ' + 'Label44 + ' + Me.Label44.AutoSize = True + Me.Label44.Location = New System.Drawing.Point(13, 83) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(44, 13) + Me.Label44.TabIndex = 414 + Me.Label44.Text = "X Scale" + ' + 'nfillwidth + ' + Me.nfillwidth.DecimalPlaces = 2 + Me.nfillwidth.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nfillwidth.Location = New System.Drawing.Point(58, 78) + Me.nfillwidth.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nfillwidth.Name = "nfillwidth" + Me.nfillwidth.Size = New System.Drawing.Size(46, 20) + Me.nfillwidth.TabIndex = 413 + Me.nfillwidth.Value = Global.caspar_media_playback.My.MySettings.Default.nfillwidth + ' + 'nfillheight + ' + Me.nfillheight.DecimalPlaces = 2 + Me.nfillheight.Increment = New Decimal(New Integer() {1, 0, 0, 131072}) + Me.nfillheight.Location = New System.Drawing.Point(58, 102) + Me.nfillheight.Minimum = New Decimal(New Integer() {100, 0, 0, -2147483648}) + Me.nfillheight.Name = "nfillheight" + Me.nfillheight.Size = New System.Drawing.Size(46, 20) + Me.nfillheight.TabIndex = 412 + Me.nfillheight.Value = Global.caspar_media_playback.My.MySettings.Default.nfillheight + ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.Location = New System.Drawing.Point(42, 57) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(14, 13) + Me.Label45.TabIndex = 410 + Me.Label45.Text = "Y" + ' + 'Label46 + ' + Me.Label46.AutoSize = True + Me.Label46.Location = New System.Drawing.Point(40, 36) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(14, 13) + Me.Label46.TabIndex = 408 + Me.Label46.Text = "X" + ' + 'cmdfill + ' + Me.cmdfill.Location = New System.Drawing.Point(107, 28) + Me.cmdfill.Name = "cmdfill" + Me.cmdfill.Size = New System.Drawing.Size(21, 94) + Me.cmdfill.TabIndex = 407 + Me.cmdfill.Text = "R" + Me.cmdfill.UseVisualStyleBackColor = True + ' + 'cmbVideoLayerforPositionAndSize + ' + Me.cmbVideoLayerforPositionAndSize.FormattingEnabled = True + Me.cmbVideoLayerforPositionAndSize.Items.AddRange(New Object() {"1", "2", "3", "4"}) + Me.cmbVideoLayerforPositionAndSize.Location = New System.Drawing.Point(71, 4) + Me.cmbVideoLayerforPositionAndSize.Name = "cmbVideoLayerforPositionAndSize" + Me.cmbVideoLayerforPositionAndSize.Size = New System.Drawing.Size(37, 21) + Me.cmbVideoLayerforPositionAndSize.TabIndex = 418 + Me.cmbVideoLayerforPositionAndSize.Text = "1" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(5, 7) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(63, 13) + Me.Label1.TabIndex = 419 + Me.Label1.Text = "Video Layer" + ' + 'cmdhidegboscmonitor + ' + Me.cmdhidegboscmonitor.Image = CType(resources.GetObject("cmdhidegboscmonitor.Image"), System.Drawing.Image) + Me.cmdhidegboscmonitor.Location = New System.Drawing.Point(111, 0) + Me.cmdhidegboscmonitor.Name = "cmdhidegboscmonitor" + Me.cmdhidegboscmonitor.Size = New System.Drawing.Size(28, 27) + Me.cmdhidegboscmonitor.TabIndex = 726 + Me.cmdhidegboscmonitor.UseVisualStyleBackColor = True + ' + 'GroupBox1 + ' + Me.GroupBox1.BackColor = System.Drawing.Color.PaleGoldenrod + Me.GroupBox1.Controls.Add(Me.cmdhidegboscmonitor) + Me.GroupBox1.Controls.Add(Me.nfillwidth) + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(Me.Label44) + Me.GroupBox1.Controls.Add(Me.cmbVideoLayerforPositionAndSize) + Me.GroupBox1.Controls.Add(Me.nfillheight) + Me.GroupBox1.Controls.Add(Me.cmdfill) + Me.GroupBox1.Controls.Add(Me.Label43) + Me.GroupBox1.Controls.Add(Me.nfillx) + Me.GroupBox1.Controls.Add(Me.Label45) + Me.GroupBox1.Controls.Add(Me.Label46) + Me.GroupBox1.Controls.Add(Me.nfilly) + Me.GroupBox1.Location = New System.Drawing.Point(1, 1) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(145, 126) + Me.GroupBox1.TabIndex = 727 + Me.GroupBox1.TabStop = False + ' + 'ucPositionAndSize + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Controls.Add(Me.GroupBox1) + Me.Name = "ucPositionAndSize" + Me.Size = New System.Drawing.Size(149, 130) + CType(Me.nfillx, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nfilly, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nfillwidth, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nfillheight, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Label1 As Label + Friend WithEvents cmbVideoLayerforPositionAndSize As ComboBox + Friend WithEvents nfillx As NumericUpDown + Friend WithEvents nfilly As NumericUpDown + Friend WithEvents Label43 As Label + Friend WithEvents Label44 As Label + Friend WithEvents nfillwidth As NumericUpDown + Friend WithEvents nfillheight As NumericUpDown + Friend WithEvents Label45 As Label + Friend WithEvents Label46 As Label + Friend WithEvents cmdfill As Button + Friend WithEvents cmdhidegboscmonitor As Button + Friend WithEvents GroupBox1 As GroupBox +End Class diff --git a/CasparMediaPlayback/ucPositionAndSize.resx b/CasparMediaPlayback/ucPositionAndSize.resx new file mode 100644 index 0000000..57e5fbe --- /dev/null +++ b/CasparMediaPlayback/ucPositionAndSize.resx @@ -0,0 +1,139 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAkGBggGBQkIBwgKCQkKDRYODQwMDRoTFBAWHxwhIB8cHh4j + JzIqIyUvJR4eKzssLzM1ODg4ISo9QTw2QTI3ODX/2wBDAQkKCg0LDRkODhk1JB4kNTU1NTU1NTU1NTU1 + NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTX/wAARCAASABIDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDupNTmvNduLKKZhNGW2oJCoIHp71Dc6hc2dgt3cvPCjvsUSSkM + fw9K5HVL+y074kXlzqSXDRQyGREiOCzgArn2qr4m8WweJ7GGaeGSDUYnK4RsxGP8e9cbqb66n0kcJJ8r + jH3bK7sux6fFqdyYUIkyCowTRVCzDfYoMo3+rXt7UVXMzh+rwLGu20EmolnhjZiOpUE1Ris7fzlPkRZy + P4BRRUP4jqofwV6HYIi7F+UdPSiiiug8F7n/2Q== + + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucPositionAndSize.vb b/CasparMediaPlayback/ucPositionAndSize.vb new file mode 100644 index 0000000..c7e2f14 --- /dev/null +++ b/CasparMediaPlayback/ucPositionAndSize.vb @@ -0,0 +1,21 @@ +Public Class ucPositionAndSize + Private Sub cmdfill_Click(sender As Object, e As EventArgs) Handles cmdfill.Click + On Error Resume Next + mixerfillreset() + End Sub + Sub mixerfillreset() + On Error Resume Next + nfillx.Value = 0 + nfilly.Value = 0 + nfillwidth.Value = 1 + nfillheight.Value = 1 + End Sub + + Private Sub nfillx_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nfillx.ValueChanged, nfilly.ValueChanged, nfillwidth.ValueChanged, nfillheight.ValueChanged + On Error Resume Next + CasparDevice.SendString("mixer " & g_int_ChannelNumber & "-" & cmbVideoLayerforPositionAndSize.Text & " fill " & Replace(nfillx.Value, ",", ".") & " " & Replace(nfilly.Value, ",", ".") & " " & Replace(nfillwidth.Value, ",", ".") & " " & Replace(nfillheight.Value, ",", ".")) + End Sub + Private Sub cmdhidegboscmonitor_Click(sender As Object, e As EventArgs) Handles cmdhidegboscmonitor.Click + Parent.Controls.Remove(Me) + End Sub +End Class diff --git a/CasparMediaPlayback/ucPowerPoint.Designer.vb b/CasparMediaPlayback/ucPowerPoint.Designer.vb new file mode 100644 index 0000000..0f91044 --- /dev/null +++ b/CasparMediaPlayback/ucPowerPoint.Designer.vb @@ -0,0 +1,375 @@ + _ +Partial Class ucPowerPoint + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucPowerPoint)) + Me.gbPowerPoint = New System.Windows.Forms.GroupBox() + Me.GroupBox10 = New System.Windows.Forms.GroupBox() + Me.rdopng = New System.Windows.Forms.RadioButton() + Me.rdojpg = New System.Windows.Forms.RadioButton() + Me.cmdstoppowerpointoutput = New System.Windows.Forms.Button() + Me.cmdstarPowerPointoutput = New System.Windows.Forms.Button() + Me.Label123 = New System.Windows.Forms.Label() + Me.cmbdirectionforppt = New System.Windows.Forms.ComboBox() + Me.Label124 = New System.Windows.Forms.Label() + Me.cmbtweentypeforppt = New System.Windows.Forms.ComboBox() + Me.Label125 = New System.Windows.Forms.Label() + Me.Label126 = New System.Windows.Forms.Label() + Me.ntransitiondurationforppt = New System.Windows.Forms.NumericUpDown() + Me.cmbtransitionforppt = New System.Windows.Forms.ComboBox() + Me.cmblayervideoforppt = New System.Windows.Forms.ComboBox() + Me.Label107 = New System.Windows.Forms.Label() + Me.cmdoutexcelfromwindow = New System.Windows.Forms.Button() + Me.cmdshowexcellinwindow = New System.Windows.Forms.Button() + Me.cmdstartexcell = New System.Windows.Forms.Button() + Me.cmdoutPowerPointwindow = New System.Windows.Forms.Button() + Me.cmdshowpowerpointwindow = New System.Windows.Forms.Button() + Me.cmdstartpowerpoint = New System.Windows.Forms.Button() + Me.Panelpowerpoint = New System.Windows.Forms.Panel() + Me.txtpowerpointreame = New System.Windows.Forms.TextBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.gbPowerPoint.SuspendLayout() + Me.GroupBox10.SuspendLayout() + CType(Me.ntransitiondurationforppt, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panelpowerpoint.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbPowerPoint + ' + Me.gbPowerPoint.BackColor = System.Drawing.Color.Yellow + Me.gbPowerPoint.Controls.Add(Me.GroupBox10) + Me.gbPowerPoint.Controls.Add(Me.cmdstoppowerpointoutput) + Me.gbPowerPoint.Controls.Add(Me.cmdstarPowerPointoutput) + Me.gbPowerPoint.Controls.Add(Me.Label123) + Me.gbPowerPoint.Controls.Add(Me.cmbdirectionforppt) + Me.gbPowerPoint.Controls.Add(Me.Label124) + Me.gbPowerPoint.Controls.Add(Me.cmbtweentypeforppt) + Me.gbPowerPoint.Controls.Add(Me.Label125) + Me.gbPowerPoint.Controls.Add(Me.Label126) + Me.gbPowerPoint.Controls.Add(Me.ntransitiondurationforppt) + Me.gbPowerPoint.Controls.Add(Me.cmbtransitionforppt) + Me.gbPowerPoint.Controls.Add(Me.cmblayervideoforppt) + Me.gbPowerPoint.Controls.Add(Me.Label107) + Me.gbPowerPoint.Controls.Add(Me.cmdoutexcelfromwindow) + Me.gbPowerPoint.Controls.Add(Me.cmdshowexcellinwindow) + Me.gbPowerPoint.Controls.Add(Me.cmdstartexcell) + Me.gbPowerPoint.Controls.Add(Me.cmdoutPowerPointwindow) + Me.gbPowerPoint.Controls.Add(Me.cmdshowpowerpointwindow) + Me.gbPowerPoint.Controls.Add(Me.cmdstartpowerpoint) + Me.gbPowerPoint.Controls.Add(Me.Panelpowerpoint) + Me.gbPowerPoint.Location = New System.Drawing.Point(3, 3) + Me.gbPowerPoint.Name = "gbPowerPoint" + Me.gbPowerPoint.Size = New System.Drawing.Size(1184, 874) + Me.gbPowerPoint.TabIndex = 538 + Me.gbPowerPoint.TabStop = False + Me.gbPowerPoint.Text = " " + ' + 'GroupBox10 + ' + Me.GroupBox10.Controls.Add(Me.rdopng) + Me.GroupBox10.Controls.Add(Me.rdojpg) + Me.GroupBox10.Location = New System.Drawing.Point(999, -1) + Me.GroupBox10.Name = "GroupBox10" + Me.GroupBox10.Size = New System.Drawing.Size(63, 48) + Me.GroupBox10.TabIndex = 716 + Me.GroupBox10.TabStop = False + ' + 'rdopng + ' + Me.rdopng.AutoSize = True + Me.rdopng.Location = New System.Drawing.Point(7, 25) + Me.rdopng.Name = "rdopng" + Me.rdopng.Size = New System.Drawing.Size(43, 17) + Me.rdopng.TabIndex = 1 + Me.rdopng.TabStop = True + Me.rdopng.Text = "png" + Me.rdopng.UseVisualStyleBackColor = True + ' + 'rdojpg + ' + Me.rdojpg.AutoSize = True + Me.rdojpg.Checked = True + Me.rdojpg.Location = New System.Drawing.Point(7, 7) + Me.rdojpg.Name = "rdojpg" + Me.rdojpg.Size = New System.Drawing.Size(39, 17) + Me.rdojpg.TabIndex = 0 + Me.rdojpg.TabStop = True + Me.rdojpg.Text = "jpg" + Me.rdojpg.UseVisualStyleBackColor = True + ' + 'cmdstoppowerpointoutput + ' + Me.cmdstoppowerpointoutput.BackColor = System.Drawing.Color.Red + Me.cmdstoppowerpointoutput.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdstoppowerpointoutput.ForeColor = System.Drawing.Color.White + Me.cmdstoppowerpointoutput.Location = New System.Drawing.Point(1123, 12) + Me.cmdstoppowerpointoutput.Name = "cmdstoppowerpointoutput" + Me.cmdstoppowerpointoutput.Size = New System.Drawing.Size(53, 25) + Me.cmdstoppowerpointoutput.TabIndex = 65 + Me.cmdstoppowerpointoutput.Text = "Stop" + Me.cmdstoppowerpointoutput.UseVisualStyleBackColor = False + ' + 'cmdstarPowerPointoutput + ' + Me.cmdstarPowerPointoutput.BackColor = System.Drawing.Color.Green + Me.cmdstarPowerPointoutput.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdstarPowerPointoutput.ForeColor = System.Drawing.Color.White + Me.cmdstarPowerPointoutput.Location = New System.Drawing.Point(1068, 12) + Me.cmdstarPowerPointoutput.Name = "cmdstarPowerPointoutput" + Me.cmdstarPowerPointoutput.Size = New System.Drawing.Size(49, 25) + Me.cmdstarPowerPointoutput.TabIndex = 66 + Me.cmdstarPowerPointoutput.Text = "Play" + Me.cmdstarPowerPointoutput.UseVisualStyleBackColor = False + ' + 'Label123 + ' + Me.Label123.AutoSize = True + Me.Label123.Location = New System.Drawing.Point(887, 9) + Me.Label123.Name = "Label123" + Me.Label123.Size = New System.Drawing.Size(49, 13) + Me.Label123.TabIndex = 618 + Me.Label123.Text = "Direction" + ' + 'cmbdirectionforppt + ' + Me.cmbdirectionforppt.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmbdirectionforppt", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmbdirectionforppt.FormattingEnabled = True + Me.cmbdirectionforppt.Items.AddRange(New Object() {"LEFT", "RIGHT"}) + Me.cmbdirectionforppt.Location = New System.Drawing.Point(890, 25) + Me.cmbdirectionforppt.Name = "cmbdirectionforppt" + Me.cmbdirectionforppt.Size = New System.Drawing.Size(103, 21) + Me.cmbdirectionforppt.TabIndex = 617 + Me.cmbdirectionforppt.Text = Global.caspar_media_playback.My.MySettings.Default.cmbdirectionforppt + ' + 'Label124 + ' + Me.Label124.AutoSize = True + Me.Label124.Location = New System.Drawing.Point(753, 8) + Me.Label124.Name = "Label124" + Me.Label124.Size = New System.Drawing.Size(40, 13) + Me.Label124.TabIndex = 616 + Me.Label124.Text = "Tween" + ' + 'cmbtweentypeforppt + ' + Me.cmbtweentypeforppt.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmbtweentypeforppt", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmbtweentypeforppt.FormattingEnabled = True + Me.cmbtweentypeforppt.Items.AddRange(New Object() {"linear", "easenone", "easeinquad", "easeoutquad", "easeinoutquad", "easeoutinquad", "easeincubic", "easeoutcubic", "easeinoutcubic", "easeoutincubic", "easeinquart", "easeoutquart", "easeinoutquart", "easeoutinquart", "easeinquint", "easeoutquint", "easeinoutquint", "easeoutinquint", "easeinsine", "easeoutsine", "easeinoutsine", "easeoutinsine", "easeinexpo", "easeoutexpo", "easeinoutexpo", "easeoutinexpo", "easeincirc", "easeoutcirc", "easeinoutcirc", "easeoutincirc", "easeinelastic", "easeoutelastic", "easeinoutelastic", "easeoutinelastic", "easeinback", "easeoutback", "easeinoutback", "easeoutintback", "easeoutbounce", "easeinbounce", "easeinoutbounce", "easeoutinbounce"}) + Me.cmbtweentypeforppt.Location = New System.Drawing.Point(756, 23) + Me.cmbtweentypeforppt.Name = "cmbtweentypeforppt" + Me.cmbtweentypeforppt.Size = New System.Drawing.Size(103, 21) + Me.cmbtweentypeforppt.TabIndex = 615 + Me.cmbtweentypeforppt.Text = Global.caspar_media_playback.My.MySettings.Default.cmbtweentypeforppt + ' + 'Label125 + ' + Me.Label125.AutoSize = True + Me.Label125.Location = New System.Drawing.Point(640, 8) + Me.Label125.Name = "Label125" + Me.Label125.Size = New System.Drawing.Size(96, 13) + Me.Label125.TabIndex = 614 + Me.Label125.Text = "Transition Duration" + ' + 'Label126 + ' + Me.Label126.AutoSize = True + Me.Label126.Location = New System.Drawing.Point(530, 8) + Me.Label126.Name = "Label126" + Me.Label126.Size = New System.Drawing.Size(80, 13) + Me.Label126.TabIndex = 613 + Me.Label126.Text = "Transition Type" + ' + 'ntransitiondurationforppt + ' + Me.ntransitiondurationforppt.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.caspar_media_playback.My.MySettings.Default, "ntransitiondurationforppt", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.ntransitiondurationforppt.Location = New System.Drawing.Point(644, 24) + Me.ntransitiondurationforppt.Maximum = New Decimal(New Integer() {50, 0, 0, 0}) + Me.ntransitiondurationforppt.Name = "ntransitiondurationforppt" + Me.ntransitiondurationforppt.Size = New System.Drawing.Size(38, 20) + Me.ntransitiondurationforppt.TabIndex = 611 + Me.ntransitiondurationforppt.Value = New Decimal(New Integer() {10, 0, 0, 0}) + ' + 'cmbtransitionforppt + ' + Me.cmbtransitionforppt.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmbtransitionforppt", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmbtransitionforppt.FormattingEnabled = True + Me.cmbtransitionforppt.Items.AddRange(New Object() {"CUT", "MIX", "PUSH", "WIPE", "SLIDE"}) + Me.cmbtransitionforppt.Location = New System.Drawing.Point(533, 26) + Me.cmbtransitionforppt.Name = "cmbtransitionforppt" + Me.cmbtransitionforppt.Size = New System.Drawing.Size(103, 21) + Me.cmbtransitionforppt.TabIndex = 612 + Me.cmbtransitionforppt.Text = Global.caspar_media_playback.My.MySettings.Default.cmbtransitionforppt + ' + 'cmblayervideoforppt + ' + Me.cmblayervideoforppt.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmblayervideoforppt", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmblayervideoforppt.FormattingEnabled = True + Me.cmblayervideoforppt.Items.AddRange(New Object() {"11", "12", "13", "14", "15"}) + Me.cmblayervideoforppt.Location = New System.Drawing.Point(479, 13) + Me.cmblayervideoforppt.Name = "cmblayervideoforppt" + Me.cmblayervideoforppt.Size = New System.Drawing.Size(38, 21) + Me.cmblayervideoforppt.TabIndex = 610 + Me.cmblayervideoforppt.Text = "11" + ' + 'Label107 + ' + Me.Label107.AutoSize = True + Me.Label107.Location = New System.Drawing.Point(410, 16) + Me.Label107.Name = "Label107" + Me.Label107.Size = New System.Drawing.Size(63, 13) + Me.Label107.TabIndex = 609 + Me.Label107.Text = "Video Layer" + ' + 'cmdoutexcelfromwindow + ' + Me.cmdoutexcelfromwindow.Location = New System.Drawing.Point(358, 14) + Me.cmdoutexcelfromwindow.Name = "cmdoutexcelfromwindow" + Me.cmdoutexcelfromwindow.Size = New System.Drawing.Size(49, 23) + Me.cmdoutexcelfromwindow.TabIndex = 335 + Me.cmdoutexcelfromwindow.Text = "OUT" + Me.cmdoutexcelfromwindow.UseVisualStyleBackColor = True + ' + 'cmdshowexcellinwindow + ' + Me.cmdshowexcellinwindow.Location = New System.Drawing.Point(317, 14) + Me.cmdshowexcellinwindow.Name = "cmdshowexcellinwindow" + Me.cmdshowexcellinwindow.Size = New System.Drawing.Size(35, 23) + Me.cmdshowexcellinwindow.TabIndex = 334 + Me.cmdshowexcellinwindow.Text = "IN" + Me.cmdshowexcellinwindow.UseVisualStyleBackColor = True + ' + 'cmdstartexcell + ' + Me.cmdstartexcell.Location = New System.Drawing.Point(211, 14) + Me.cmdstartexcell.Name = "cmdstartexcell" + Me.cmdstartexcell.Size = New System.Drawing.Size(100, 24) + Me.cmdstartexcell.TabIndex = 333 + Me.cmdstartexcell.Text = "Start Excel" + Me.cmdstartexcell.UseVisualStyleBackColor = True + ' + 'cmdoutPowerPointwindow + ' + Me.cmdoutPowerPointwindow.Location = New System.Drawing.Point(156, 14) + Me.cmdoutPowerPointwindow.Name = "cmdoutPowerPointwindow" + Me.cmdoutPowerPointwindow.Size = New System.Drawing.Size(49, 23) + Me.cmdoutPowerPointwindow.TabIndex = 331 + Me.cmdoutPowerPointwindow.Text = "OUT" + Me.cmdoutPowerPointwindow.UseVisualStyleBackColor = True + ' + 'cmdshowpowerpointwindow + ' + Me.cmdshowpowerpointwindow.Location = New System.Drawing.Point(115, 14) + Me.cmdshowpowerpointwindow.Name = "cmdshowpowerpointwindow" + Me.cmdshowpowerpointwindow.Size = New System.Drawing.Size(35, 23) + Me.cmdshowpowerpointwindow.TabIndex = 330 + Me.cmdshowpowerpointwindow.Text = "IN" + Me.cmdshowpowerpointwindow.UseVisualStyleBackColor = True + ' + 'cmdstartpowerpoint + ' + Me.cmdstartpowerpoint.Location = New System.Drawing.Point(9, 14) + Me.cmdstartpowerpoint.Name = "cmdstartpowerpoint" + Me.cmdstartpowerpoint.Size = New System.Drawing.Size(100, 24) + Me.cmdstartpowerpoint.TabIndex = 332 + Me.cmdstartpowerpoint.Text = "Start PowerPoint" + Me.cmdstartpowerpoint.UseVisualStyleBackColor = True + ' + 'Panelpowerpoint + ' + Me.Panelpowerpoint.Controls.Add(Me.txtpowerpointreame) + Me.Panelpowerpoint.Controls.Add(Me.PictureBox1) + Me.Panelpowerpoint.Location = New System.Drawing.Point(11, 49) + Me.Panelpowerpoint.Name = "Panelpowerpoint" + Me.Panelpowerpoint.Size = New System.Drawing.Size(1165, 815) + Me.Panelpowerpoint.TabIndex = 76 + ' + 'txtpowerpointreame + ' + Me.txtpowerpointreame.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtpowerpointreame.Location = New System.Drawing.Point(4, 55) + Me.txtpowerpointreame.Multiline = True + Me.txtpowerpointreame.Name = "txtpowerpointreame" + Me.txtpowerpointreame.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.txtpowerpointreame.Size = New System.Drawing.Size(941, 114) + Me.txtpowerpointreame.TabIndex = 337 + Me.txtpowerpointreame.Text = resources.GetString("txtpowerpointreame.Text") + ' + 'PictureBox1 + ' + Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) + Me.PictureBox1.Location = New System.Drawing.Point(3, 2) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(226, 48) + Me.PictureBox1.TabIndex = 336 + Me.PictureBox1.TabStop = False + ' + 'ucPowerPoint + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(1194, 880) + Me.Controls.Add(Me.gbPowerPoint) + Me.HideOnClose = True + Me.Name = "ucPowerPoint" + Me.Text = "Power Point to Casparcg" + Me.gbPowerPoint.ResumeLayout(False) + Me.gbPowerPoint.PerformLayout() + Me.GroupBox10.ResumeLayout(False) + Me.GroupBox10.PerformLayout() + CType(Me.ntransitiondurationforppt, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panelpowerpoint.ResumeLayout(False) + Me.Panelpowerpoint.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbPowerPoint As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox + Friend WithEvents rdopng As System.Windows.Forms.RadioButton + Friend WithEvents rdojpg As System.Windows.Forms.RadioButton + Friend WithEvents Label123 As System.Windows.Forms.Label + Friend WithEvents cmbdirectionforppt As System.Windows.Forms.ComboBox + Friend WithEvents Label124 As System.Windows.Forms.Label + Friend WithEvents cmbtweentypeforppt As System.Windows.Forms.ComboBox + Friend WithEvents Label125 As System.Windows.Forms.Label + Friend WithEvents Label126 As System.Windows.Forms.Label + Friend WithEvents ntransitiondurationforppt As System.Windows.Forms.NumericUpDown + Friend WithEvents cmbtransitionforppt As System.Windows.Forms.ComboBox + Friend WithEvents cmblayervideoforppt As System.Windows.Forms.ComboBox + Friend WithEvents Label107 As System.Windows.Forms.Label + Friend WithEvents cmdoutexcelfromwindow As System.Windows.Forms.Button + Friend WithEvents cmdshowexcellinwindow As System.Windows.Forms.Button + Friend WithEvents cmdstartexcell As System.Windows.Forms.Button + Friend WithEvents cmdoutPowerPointwindow As System.Windows.Forms.Button + Friend WithEvents cmdshowpowerpointwindow As System.Windows.Forms.Button + Friend WithEvents cmdstartpowerpoint As System.Windows.Forms.Button + Friend WithEvents Panelpowerpoint As System.Windows.Forms.Panel + Friend WithEvents txtpowerpointreame As System.Windows.Forms.TextBox + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents cmdstarPowerPointoutput As System.Windows.Forms.Button + Friend WithEvents cmdstoppowerpointoutput As System.Windows.Forms.Button + +End Class diff --git a/CasparMediaPlayback/ucPowerPoint.resx b/CasparMediaPlayback/ucPowerPoint.resx new file mode 100644 index 0000000..fa9e561 --- /dev/null +++ b/CasparMediaPlayback/ucPowerPoint.resx @@ -0,0 +1,458 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + In PPT Right click on top. Customise Quick accesstoolbar. Choose commands from- macros-- select 'pptm.pptma !exportasjpeg' --- add--ok.Add all other 5 macros as well. icons will appear on top as shown. When powerpoint will start, security warning will be shown macros has been disabled. Click options and select enable this content. Now Select any slide and click on that quick access button as shown. A file jpg.jpg will be created in c:/casparcg/_media folder. The slide will be shown on casparcg. Media folder must be c:/casparcg/_media. For changing the directory , goto powerpoint menu, select --view-- macros-- edit + + + + + iVBORw0KGgoAAAANSUhEUgAAASwAAABLCAIAAABFmS10AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAATO5JREFUeF7tvQd4G9ed6Mub3W+zecl9e9/el3e/Lfdt+XL3rTc3iZzEsRMntqw4 + tqxK9WZJVLOoziaJTRQlkRJFUuy9d4IEAQJsAEmAqEQjQIAAUVgBsIG9U2yS8P5nBgDBYZHs2Int1fjn + +c6cOXNmMJgf/v8zM5Jc0sistFJWagkrlcRKKWYnF3OSSNwEEv/mw3R3v+i7MZQcmowt7VK3D3b2jpkt + Ez2WCShoOgY5TV35lU0hSTTPe0n+EVkJJYJUmjy9ojm9QmGjUpFR1ZxVpcqqbrn3JD0iIYspNzJk3Qxp + F06NpBOneoUOR9mxtkYCLRF4fRWio0qMqAREQHsFos1Oe0Uj0OaALlwFTWigCTCg4KiHZqiTDgewaKeD + 1thOE3bQhO3lwg6AikERAO1l/DYyz1DC0ZEatMUsTWG9uqBWlcdozq1R5FTLs6vlWZVNmZWyzAoZzDMq + mjIqZBmVTRmVcgw4RQps3gyny0FahSIVI4Uud5AM0Gwk2WhKKm9KpMoAtsXK6rfW9VprzVamyXrIP++Q + H+KgX/7hgCJmr7Wu31rbZ4PZZ40li2JLG2PJjTGlgCi2TBxZwD7kdt3rTqpnHOPYPcrxe+XH79OOP6Cd + eEA/EQJUnEBl2gmovF8ODY4Flw3907+P/eOPgEN3ig/eKToYaONAQNEB/8L9fgX7fPNcb+W63srB5rmu + t4G8fX4F+/2hTfHBwJJDd0oPBZEPB5VhkNFiYMnBgOIDfoX7fQv23cI3z3O9nY9RsPd2IbDndtHuW0U7 + bxZ+4l3wsVfBHzzyfn89d+vV7PcuZ73rnvHOhbS3zib/wi3xzVPxP/s09qcnov/3sSfAT449+dnxJ1tO + RP38ZPRbbnHvnEt892LKe5fSt17N3HY950PP/I+8Cj7yLvzYp2j7zeLtN0nbbzkBi3Y+XqH4S8Elh1qf + U1aXTa7LLq3LKqnPKGEHR+Vc8Y+NK+Dxm02WkenlZ8+t9ukF8AJmtglWDY/NilTmlBKhT0h6UHQuqJhG + k6XT5UAazCvQdZZVrcqsVgU+SohIyK5TmGqknZiEMAfBOhxUiztozEkEDYM0mZMzmZNiionBCDMFB5uC + fVUegIcKk7C9StRWiVHRaLAhtM8x6EJDAcecUjWUVzdWwB0q4vWXC9ppAr0z0AYBumIO25QWY9jcRh7a + 6USI0Zwm6qQ24ja2lfH0pRwtia0pqm8pYCrzGIrc6qbsSlkW0k+SQUek0yTpMEcFKalO1dDUxWg0EChk + KNMqmtLoTan0phQcGpon01aRRJMhqIA0kSpJoIjZ/VYWZiCj21rTaT10K8tq5WDfEu+wfz6zx1rXhzy0 + 0WuNIzciSoWxpUKYx5U1xlOkkfn1n+xzexBfcT6M/umD8pMhtFOh9FOhtNOh9NMP6adDYZF2KgTqqZ/e + LzsRXJq17zIYSPvw2OGgwkN3CmwEFgIHAwoP+Ofv983ddyt7360sVzuwCJUH/PIP+hccCig6HFh85E7J + 0aBSAAqwCD8Zh/wLDvrm7b+Vs+9m5j6fzH03s/bdhE5y9uFC3srfe6tgz62CXTcLdvoUYB7mg4fbMA9/ + Bx5eTH/nfOpbZ5N+4Zbw5qm4n30a89PjUcDPTkRt+TT65ydjfnk69u1zib/5LOV3yMCsbTdyP/Qs+Min + ePutku23Sj+5Td7hW7bDrwzN7XyyCjK0AbZ/SbgUljMLqcxCCqOQzMgvZXoFRNxLoHPl3dOz8/AFLi0/ + ezq/NPt0cXZucQaxgIHKUAmroAE0g3Kj0hieXutzL+5xZmVSmTC1XIohS4fffuShMrtadTPocUJWSZ3C + yMQMZCD32mvEbdV2wD0u1xoTg108a6bJBavrUa7bURqA9EOy6VcQ6Ogr6DF0kdSh4BSTT7rJJ97km2R8 + kGeKKzWVcQ3lPC1A5WlpfB1NYIMOnUCfIkOlGBN7FeBkB0ZnpaSrwg5dDHTG0CZjSJPBQI7JI8XkFqPK + q5HnVsmyKiSZdHEmTZRe3piGQ4W5iFSr7BtdHJ21EhiYWObKjRl0WUq5NKVckkKVJJdLkmGOkeQMBZFI + ESeWiRPKRAnkxvoeK9OI9Ktqt1a2Wfd7p2LnrA7+P3g7i2FGEtY7QBIK48gCRCmax5OFCZTGhHLp3bii + A8ev30mpPx1COR1KdQulnnlY7gAW3UIpp0PKTt4rORFcdCyo4OidvCN38g4H5h7CCcg7FJh/OLAAOOif + e8A3e/8tsCgdcPVJw9l3K2P/7awDvjkH/XIP+UOgLjgSWHQ0sOhIQMFhFMBzD97OPnAzcz809kpx9Uxx + 9Up19U7b55Ph6pPp6pO11yd7782cPT65u3xyd3rn7fDO2+6V95Fn3oc3cm0eXsr8zWdpb59PeevMioc/ + +zT6zZMxPz8V+4vTsb86k/DrC8m/dccNzPsQAqBP8Se3SzH3KDv9qTsDyncF0HY641++A8ePivOJDQrC + 95XYvgEupfSa0vLqEmpVXiHFwz88gyo19Y8/f/7i6fzi1MzTyem58am58cn1mZiagwbQDBo/f/Gif2gy + l97kcz/pfnxRPImbUtaYQhGDihkV8qyq5uyallSK4LKXf62sA2BIOxiSthqxoVoE6KswbBKGTWIX0KoJ + DJycnNzqyt2yxc31KK0SiaerEGjpAF9L47XSeJpyngbmbmHcfKYaaryTVG5hqsMhLVvduVvdaW9/VvFR + oAk8fJihKmtooQAcNZULaKiwIR/rCvps1FeK9BWrMKB4C2ZKOiohGZZ2pTMGQvNMxdzOSml3haQbN9Aj + Z9ItzHQtUVVUq8ivacqpFGfRRZm0xvRyQRpVkErhpyCgIGTLukC5oalnYB0OOAlzQ88UZB+0Bk1aOTjW + mFSGSCwTYawUEnDIGKBQKT+WxGd2WWs6rFVt1kqdtUL7fO+NhL03Evd6JLp6JR+4lcEwoujH6kOwMRKQ + eDh8KCeUCVGfVFEiVXz4nGdgBMk9vPxMSNnZ0LJzDynnHlHPPaKcfQiL5DOhpW4PSKeCC0/czTsWmH0k + IBM4HJB5yD/zoH/WoYCcw4GgZf6RwPxD/jkHfbMO3Erf75O6zyfF1Tt5r1cSAIV9Pqn7b6bBgR28nXnI + N/uwXw5w6HbWwVuZB26mwy/IPq9kV4/EvTfi9l6PQ58Fyp7Jez1T9nqm7vFK2+OVsdsrc5dX1k6v7B1e + uZ945X7smQvB8MMbeR9cy33vStZv3TN+fSHtV+eS3zqT+IvT8W+ejAV+firul25xb52Jf+dc0rsX0967 + AlkoHgNJEI52+lFBvF2B9N3AnYrddyoxKnYBgYidgfSdAYgdAbQd/jhIy08Avy/Odr9ylzJaZVl5ZWEx + 2SswoqRWPTH9dH5heWxybnRiZmRseggYRQyOThHA66EBNIPGsAkExum5BSpbc/thxt3ovLhCVhJZmEoR + p9OasqoUOTWqvFr1o4T8sNiMOnkXGMgQG2pE+mqRrkqIqBTqckhIQkg7bebZJ9xA0+DkFldasK/J1TUH + 6cdvpfORdeXclnJOCxWD3KB2C+b6Zqju5ag8YlSuwaqtHmAgd+9txh6/qq1uOa7Bpof5KjKrGcFWlrGV + lAYVBduWxteAhxVCbUUjqKhDkiMndeBkpRiFRxiLVks7SXxzOGkMfNvrU1PdZKySGbEAOOkWM7nV13T8 + gTCmtKmgpikXJKQ1ZtIE6VR+KoWXUoZILuPlVkjxMOhsII5MOwASitV9JXXKRHCjdBXxpXzwDVHCjyPh + 8GKLuUBMEaem3VplsFZqn9M0y+WapfJWmC/DFUzXodgIQRKiH6SsDXYSykA8QSLMyWieWCYE7ZOpjakV + srsx+W4X7/jEVp4PJZ9/SL7wiHwhrAzm5x+Wngst+eG2CGcO+6Ye8k07iEg/6JdxKCD7SGDu0aD8o3cg + xOUcskmYss87ydULfhTi93jE7fWMd/VMgMV9Xkn7vVMO+KQevJl20CftgHfKfq+kfZ6Jrh7xe6/H7rkW + vfvqk91Xnuy+Gr3nWsye63F7rsfvvp6w+0bSrhvJO2+k7vRI3+GRucMz+xPPHJDwI488NDi8kYcHQ5SU + Xkh92+7hL06DgfEQA1EiegES0Yyt12AciGehpRAAQb89dyr2BFXuCarae7ca2AMEAVW7gTtVu+5U7gqs + 3Ak2BgCg4oqNn/xxuFDKKyhUulfA49I6zdTM/OT0UxBsYHiyf3CiD6N3cLzXsh6D433AEGrTPzQBmwyO + Tk9Mz0FqWg4ehqTejc6PK2rAJJRlVipyGao8Zks+U3nFO7CQzmFK7RI2goFaHBgEgoQevqskdBioMkxu + 2U6DASFIiAyE8MUFeVQApaGZwm4uY6M5RD+3GGTF4cjxrW404GY8l8xSZFdJ3z6Z91GAyj+ls6ROXlLb + BPPSejmsQhs2KKlc8FBNF7YiD9EcR1spQh5WiQ1VkDzLOqMrBiHobfVQvXO0gKEwA5CCgu0QZre6q7a4 + cc8/YBcy5HlVkiw6SChEEiIDuclkLkhYwWslGGgenoe5cXCuUdUDEgLVAj2kEnHF3DiY4xRzcN8woMwB + 8WKKGmIK2UB0IbtKb61ofU4D91oWEOrF3Vdj4ey5eiRVdyAJUQwcsDZYrByLlWuxgnKJFBAPkYz0E6WU + i1Jp4vQKSQKpYf+xK8FJ1RcfkS+Gkd2Bx+SLj0s/e1Ry4WGxYvV0+HbyYd+UQ76p4OEhv4zDAdlH7+Qe + u1uAMtXA3MN+WQdvpx/AJfQEA2P33IjBiN2LiAPf9nkk7PNEQNn1euxe8O1qFHLvcsSuS+EIKCAVo3Zd + jdl1NXbn1bgdV+N3XEvccT1lx430TzwyP/HI3o48hKQ0/0OP/G3Xct+/kg3BEJLSd86nvH026a0zCW+5 + JfzqbCLEwF9fSPmte9r7V7JA14+8iz65VbrTj7I7gLY3qNL1brVrcI1rMMP1HsCEwl5EzZ67NWAjqLgL + U3GnXUXMQ/oOfzpBqs+LSxmF7ncnNLNcNjI+C5g6e8TeV3hvfU/48x+I3vqB6J0fiH/zA8l7P5Bu+4Hs + 999Txt1oa+/q6hk29o04MQqY+kfN/WNg5vD4DITT/Iqmm8GxDxLJSaUCkDCrsjmP0ZLLaClgtjxOLrof + mVwnhzGhgSHW1zTqqhu1VQBImGJCEnqocP1gcjaQqzL989YcN3dcQhQAHfpR2IoylhwAo8AHCHcQl0CV + w1fzw/OFJfXgWxOptglC4kc+Kv/MThJThgMqYh7KD9+hO1Mh1FQINGgu1FTCsWES1kjbGU1dEAbBcCRb + qKBW2QuA9v5pyiuRMjBzixvt48slxXXN+TUyFAzpjRk0SEf5eBhMpwqV7cMOCXEDcTRdo7iBQDKJF1fc + AMQCRQ2M1ZNdPFZ0ASIqH6ivaH1B1yzT1EtU1SKwBzNwL3YOD93KrDUjA5F+g1Y+MGQF65LLRSk0JF4a + uEcXZ8AItlKWVSXLqJAeP+cdnEC9Fkm9Gkm5GlkGXIkgXw4vufSYdPFR0YXQgrP3c04FZZ4ISD3ml3LU + P/WIf9ph/3TIS4/eyTl+Nx+Gi2jECEmpf/ah2xkHbqbuRxImgHt7rkNMi3YiZq8dCH2YfpHIusvhOy+F + 73R/jIACqnmy60rUzivRO67EfHIl9pMr8Z9cS/rkeuonHhm4hNs98z6G0Z1nwe+vQzDMee8ySkrBw19j + HgLvnE/+zYXU30Iiejnzg+u5f/As3H6zxGHgvuCa/feY++8Dtfvv1wH77te63gOYoCLy8G7N7qBqzMMq + 3MMddg8/QR7iEAVbl+2rcYmOSQ5JqujqHRsam+nqHRHeukn/H3/J+rvvCf/2e5L/97uKH39X85u/Muz8 + bvfJvxzy/4vuy/9FEX1W09bTZhxsNw2tpcM83N07AiGxxzIRm8f2Do6JzKrJoEmzq5pza1rya9UFdeoC + hvyza7fq5V210jYm5iFDpIeQCMTEIAlBM+ziIRrIlZj+2zs5bm5c1+0xNJ4apaANkExCAAQDFWRwCcPV + V7XFA0LTJJYimrIqNaRaGQ6SMMAYlN1ezJAimFIsHiIPh6cXHQZCGdfPJqFIWyXWV0sMNbIOprw7JH/S + DZMwpbqTpR4AXH25zOae2HIt2rUb7e0j+aXsFnxkmFstyaqAXKARhoUwJiSzVOsaCEAWihtYI9RH5NQi + tfJYMUVsYGxszOYfgwFl3D0E0o/1BFFP1z6ntz7fey1uz9W4Pdfi4ey5YudwPzY/fqfg5L2S0yFl/BGr + cNTaOGZNpUvT6NJ09LxEllnVlFUtz6mR5zIUuUxFXq3qgkdwcCzZJ77SO67CK47uFUfzjC33iKFejyoj + pKOg4qdBWSeCso8HgX55J4ILPr1ffPJBycn7JcfvFtqCIZ6R4ukoeGhTEbPOAeiHBcBdl3EJI5B7OGgx + EgzcdSV6tYTJn1xPs2ekMDLM3+5d+LFX4Yc3bMEQktLfXkz/zQXkIfDuZ2Bg+nuQiF7NhoD5sQ9pp2/Z + 7oDyvXeQgQfu1x4MqTsYUo/BOhDC2v+gfv8DULEOVNwbbFPR7iGKhzvW93Aztq/CLuGNgGhBswkMNBiH + WjsHqt78Uf3/81eSv/1u4xYX8a9cJL9zkX7kIt/jojziMhH2F1MJ31Ee+a5MadB29IKHhm6Lvguh67Ro + OwZaO/pbOwag3GYcAg8lLaagJ/kB4VkQDLOrlHlMdX6tBiQsZWv9HsQk5tEgGKKbNNJ2SE0x2mPCTFym + lca0urmpXEG2o1x0J8aVBlkoxECbgVDpkBBFQiVKREFCu4cQjhDuXPBhy1HaFtcY3MAUiggqIUg+yFEU + M2UAiYlnpGhb6Af3EOZgHUQ/jFYUBsW6GjAQ8uemztpmo01Cd24ao71BO9igHWK3Dta3DGTWQkg0gZwg + IYWnK21QF9crC5iK3BoYEksz6KCiqE7cgevnbCAkoqqOYUcumlDEjcipC8+pA7vsaScH9xAZiCWfUQU2 + nhSwEPmsCp0V2OeRDINAKOz3SgP3DmAGHg0sYPVbOcPWM49ojRNW8aRVNmXNqJJnViuyGc05TCVYl1/f + UshSF7EBTTFHe933cWhS+Z2M+oD0uoC0Wv80pl8qwzel+mZSFaSgDgOhfOFh4bmHRWdDi90QJLfQUreH + ZW4PKadDy07eIx0PKjwakHvYF/PwZqqrdzIaGXom7PUAQMg4BAz/0AgQnIyB4R8GJuQK0bth1bXY3dfi + dl2L33ktfsfVhB3XknagYWHGTs/snV65O73zd3gX7vAp+sS7CILhh9fzPria+/7l7PcuZf7uYsa7n6UB + v3PPeB9iIBh4I+9j76Idt8l7Aspdgyr3B9ccfFB7OJR1+CH78MMGnEMPGw6GsjEbcRVXQiJ4iKemtnjo + rOLnwm6mSzJJ0DM4oe8eVBl6m7U9tf/2ffk//KXoxy5VdcI6rrRBqOA0NgNckbI90OVp1ne6b3xPIFGp + DWZMQuShrnMADNS097cYepX6HqW+t6WtT9812D80mV0uvhkcHZ5RnVXRnM8EA1uL6ltLGnTxeVX+ITEs + RTdL3gUhEajDCA420WhWICfHGhMzGRw2iT0bNEGC6uGuwg10daVhEkI6qqZyWtBtlQZ0fwXGddjtFjAK + zUtZipJ6OamuGbJQTMKm0AzWVl8TeFJcKyfZgDbQWFnWAANLdGMGDKwS6SDugXiogGKgrlqiRwZCGFR0 + 1ynNQXlmdA8GDilOxdWP8PSjHP0wu3UosnIMj5Dbr5bRRR0UPnpyWMxWF9apcpnN2TVySPbyaxSVPG0p + U0mqURRWNeXRpTCnsTWcpm7cwFpRW0QOKyIXEVUA6SgvBt13QYCBMI8u4kQXcqIQDXbQYqUBPZk44J0B + 88p2a1Wn9eDtHDDwsH9BXZ+1YdDKG7Wee1wpnrLKZq2Kp9Yshiq3Vp1Xrylka4sadMUcXQlPX8o3kIUG + skDv4RsZkVsXWiR8UCB4UMC/X8C7l88NzuUE5TTcyWbjHsLcM77ieiz9ajT9chTN/Qnts0jahQj6+XD6 + ufCKM2E0CLyf3iMdu1NwJCD3kF/2wduZ+2+m7/NJ2+cNNqa4eiW7eibtBTwgQibsvQHJKmi5FtxYaJO0 + B5G8+0byrhspu26k7vLM2OWVtcs7d5dP/i6fgl03i3beLN7hU/yxZ+EfbuT//lruB1dytl7Oes8defie + ewaUt4GB13PB0h03S3b7UfbdqThwr/rQA+bh0PqjjxqOhXGO2uAeecTBVGQfDF3fQ3s8rFg1PrRD9G1T + XHgKY1fvqLy1R9JiBOr+4/uqH/2V+BcuTI5EJNc1a7qUrd0qbbdKZzT4uczEf6fjyvf4YiVI2G4adARD + 8BDCIEio0PbINCaZ2qTQ9nb2jDYqu+9G5vqFZaVRxAW1rYX1umKWrpRjILPVFz38G5RmAsG+KhrJZqDr + UY8V3Dzc3IPtBtK2bg2m8fFnEugZAwWp2FKGUJWxEWS2EihhNZfUK0h1oCLiwG2+a9hkQKqYVN8MgH6l + LBUZf1CBP6IQ6iph4Cdpg7EfWFcjhTIEQANDhmIgE/LnZhOrpfdBYS9kuZB5HrmjDi0aKBENlUnGUuom + QsgvIMxC7L0SIaqSGeniLqqwncwzkBq0hSxNXm1LDqMZgk9uJXIvtYSfUMCJyWUBUAb3cAnTKY3hOezI + /IaoIm5ciSAWIKEnEEAMDtJyHQ7dygHrgEO+cMXn1RitDJP1SGARGMi2WE+H0s4+qrgQUXMpinktrl79 + zJpb35rP1hVxDCR+W6mwo6yxkyLuKpd002XGMqHBwy8qmSaPoimflDc/KVdEUhURFHl4WdNjsuxRqTSU + JAYD7+bxA7I5vhkNt9LY3iksj6T6awl1V+JqL8UwL0YxLkRUnUUeUk4ElxwLKoJofDgAewbom33gNpC1 + /xY4mYFpiZuJk2onDVXagAbQMmPfTfxRYeZe78w93ll7fXL23szbe6tg7+2iPbeL99wm7b5VsusmaYd3 + EfLwOvJw29WcD65kg34fXM76/bWcP9zI244MJO3xK9t3h3bwXvWREObRh/XHwxpOhHM/jeCfAML5x8N5 + xx/zjoVxj+IqhrIgRz3wAAaKtftsN2xgiIjfOEVPMhyPMbAnGdjDjM+Di65rSKHrFTZ3CxSdjcqu+p98 + v/XNv5C868Liy8FAcAwN/4yDHaZBvRfKSNs/+65Qooqt1rxfpvt5DuLvww3/l0djRJmyWWuSt5rBQLGq + W6wyQrdtpuHEArb33ZiYfBZIWMyCK7KNwu+sEhsvewfxNH18TT/MeWiO8PBVOWIguOfi4rJl61YYEKpM + k26+wUg/ZGAOSEgX6EAboJzXCgpRuRoKwAHUZQ04LWS2CjQDFXNq1PeylTBKPHyzpQRq2C0wZoMfAnKD + msJtpUI/Ah29ET2EqJF2MGTgGwJCH0PWjgIgLCq6IRGtV/aw1f0lgr4Lj9HwD93+CTOBkBAYYfyJG7jj + OjW7rpPR3Fcl76mQGqmirjJBO4lrKGLrIOzkMFuyGMqiGmU2VQz6PcmqA+LzG2CRJemk1KujCrlPCngA + +JZAFsWTG4G4UgR6y8yGMLZU4AR66+VIQIHVKsLST8nRO6Ra7P2Y+gFkIJaIVlitOmxtl0cSF0r5bH0x + t71E0Fkm6qZKjDSpuaKpp1LRW9MyUFQrD3yYlc1uS64FDElMQJ/I0CXU6OJqtLHVrdGV6kia6jGl+WGp + /EGx7G6BJDBP5JvdeDND4JXKvZHUcDWe5R5deyGy+mwY/VQI5dN7ZKTiXdLRO0VHAgsPA+i5fP4hBDIT + kzNnFVilnTzUDGt/0C//gG/+fhy/wv1+xfv9Sfv9S/b7l+7zK3X1I++9Xbob83C7Z+HHN/I/up73h+t5 + H17L/cP13O0ekLIW7bpF2utH3n+n/PC9qmOhzBNh9ScfN5yK4J5+InCLEp5+Ijz1RACcjOR/GsEDM48/ + hsDYcOQRJKv1h2DQ+KD2wAPm/vuMffdqXIOrXYOrXO9W7b1biUCPNz4XFTgu+u4hMJAr6+A1dSAJt3zf + 8P5fNH3kAokoBED8BkyHeairZ1j1mUv/re/oz/xXkazlv10TedQa9yQ0HcxQvB+l+ChJ9vfXG8Vyg1zT + DZFQpOwWKrpgDp2XMBR+D+IepZTnMtSkhnYyt7O80VgjM9+8FyXQDQr1gwKdBQo4kHbmpFjxLBQkBAM9 + fGNMJnRvxiM4ZgvSLwfN3wnG3kpDr8WgV8/4IKSuHIFegqEiLVudhGyJL2uFGAgJZEgWH8QjczRlnNYy + rhZGblS+niY00EXoQXy1tJPR1FWrMIJvdc3dtSCeAhZhbqxTmsBAVktfg8bC0Q3FUDuPBkog80TDTgdH + c3beoMZSNSzNYG2LhdHcXyXvrZCaqeJusrCTxGsratDns7Q5teosRktmtTK9UpFa0RRTIows4Iah6MeN + LhYAUUX8uFJRElWaRJUkotdiJAkO0PsxK8Q7ceJeKeaYAv7/9D6FPYhSUM6QlTtiFYxZz4fXYGu74H+f + NGGb1VrEbScJuspExnJpD13eW6noq27uZ6gsterBuKzKRBI/X9CTxTNn8UxZXFMm15jJMaZzutMaulPZ + XcmszsTa9jiGIbpKF0lvDaOqQ0qVwcWKwHyZb7bYJ13okcy7Fs++FFP3WWTN2bAKt4cQEstPPqCgl91A + yHvk48GliLtgJpLzWNB6QD0Cb2MnqORoUMkR4A7MS48EkY8ElR0JohwOohy6QzkUSDkQULYPqViy26d4 + l3fRTsCrcIdXwU7vwj23il19S6HBoaDyY/crP33IOB1efyay4WwU71y04Hxs4/lYEXAupvFsTOOZaKFb + lOD0E/6pSN7JCM6n4Q0nHrOPh7GOPqo/+rDuSGjt4RDmoRDGoQcwnqw5eL/6gDP3MAiVOGhVFQEXddsA + r6mTI2sHCUEb1lvf797znabdLjAOhBQU6deLnkOY+kdbcz06vF1kieflSl1AQcv/8hJ4pUt4IoVArDxQ + 0vX3dyUwbpS1dDZpzNCPQNEFbqvbB1jituDIrMDIvKxKBRhYJuiuEPcwm/sDHiWK20cknaONhiEHMPBD + YTDY9M/baf+8ZSuNyQW4XBVXonJ1dQX9EO+AhB6218oc74vi738Kba+DYkKCYKAZyKaJpnbfylDn16rL + ONoyHnIP14+K3uFGr6Th78EwmrqZyDdzvQ1TPYp+oJ+ZpUIGQhhsaLVwtEM8w2gRr+9GjGznJeo7RxMB + KFyP4RVwzA26EVbrUJ0aeVjT3F8p76UjD41kYReJ117UYAAPc2s1WUx1Zo0qo7o5qRx//1OKZCtbAb2x + vfKyqIwA2mo1bqE0xEM6zM88pPNHkXuAcMIK40D3J8zLMfXX4xu8Uvi3M8XgYjG/k9wIMdBMbwID+6uV + Awy1pb51GM5MZDK1tNFU0Nifj5GH6MsVInIEvdn83kxeTzrHlMI2JtZ3xTE7oqoM4TTdQ4rmfokqqFDu + nyO9mdHolcK7ntBwJbbu4hNITavPP64EG888ooOQCPQ+armNEOr6hAL2NnZOhSBOPsBAb7HSTobQgU8f + 0E/cp5+4RzsWTDsSRD0cSDnoTz7gVwrs9yvZ71tywL/0cGDZ0bvU4/foJ0Or3MIY5yLrP4vmuMfyL8UL + LyWILieKLydJLidKLiWK3RPEF+NFn8U1XogVno8RnIvmnY3innnCcYtsOB3BPhXBOhle/+njuk/Dak9g + HH/EdILh4NhGPFyFS7OuD5OwQyDvlLYY2W99t+/T7zQfcYGBn8Zgxg0094/2DIwZewZbDd3NLQZtm7HD + OABlRYu+Rduhbe85Tun6SVgjV9QsV3c1a9HwEiIhSAidi5TGR4kkn/tJGeVSisBY3miulPXVNg/cj8kS + d45Ju8ZFbcPitmGYA+SaXjd3rutRmqtrjo3tMVtxtgZDAMTw2PKOB/bnLZz/LEW77U1uZGbbKieRjbiT + epxygQFAf36iEb0RWinpqpJ21zQZmQpTXbO5HvnWy2rpQeKhcg+7pZeNG6gZaGgdBAnR/RjDqJ0xgGsY + 5QD60QbtMKt1uF4zBCGFqRyoVvRVNvVAskcR4fEQ9xBSU0xFBmSnqtQKufMr2mAmkF6JSEMoXgXJtFUy + hTFtleLMWGUz1qY5dBtGuWBtWbK2vrAasGhotlpLIAyKIQvtqZD3VTUPMFsG61qH6dLuhOwqUn0ruWmw + UGxxpkA0kI8BTuYK+7P5fRm8njSOOZllTKjtiqluj6zQh1FbQ0pVwYWKgFypb6bIJ43vmcy5Hs+6Glt3 + Oab2UjTT/Qnj4pOai5GIzyKrV4hYg/NaZyKqQWknanAg1J9/XHMurPrso2q30MrTIRUn79NP3qN9aufU + A/h5gh+C6vPhcAx1l2LYV+O515MEHikiz1SxZ5rUK70J8Exv8kiTATdSpddTJNeSxVeTRFcSGy8nCC/F + C9zj+RfjeBdjuZ/FcC7ENFyIbjgfzQbORQGsL8IT1tknLBeFtrfRFrhQAsne/j973b8zcvMvOkJd2u+5 + tAW66G656EkeXWbLYGX44F4XQ2Fce3f/49quv7nTcp/bqe/oja3oPkvVv5vQ1CCQS5UdMCyUomGhSdJi + Uur75Nqe6Ay6Z1BMBlVMazRXSHprmvpZLZaHifnSjjFZ57i4fRhCorgNsNkIIRGlqVoLv3WAq+7jgAOQ + Cjab6iFMyY21EK8AWRcDwP9IlA3bn4HC5URmYnKuvIRt/3MStj+shBqgAFgj62ZgBtY2m+tQztnLUoNy + q9EMABAGcQk5umGOfphrYwSARagEAzEJh+o1g3gwZCj7q2wemqii7jJBZwm/vRiGiA36ArYuv16bV6fJ + BWo1kKbaYCKyES2rYKyA2buKlkWrjSWEGlhGaJ5Ztc/RcBD067BauzED+61WbCgIYbCnWtnPaBlktFho + 4q64THpJjbJKOQzWFa3GoSKQ1ziAPBT0ZfJ60znmFJYxsbYrtqY9qkIfXt76kNxyv1hxN18WmCP2y2y8 + lcb3SeF6J3O8kho8E9keOAmsG18ObEQ8+zoQx7oWy7oaU38luu5yVO2lyFr3SCZwCePyk1pYBW08Ehq8 + kng+qYJb6SLfLKlfTpN/jtw/VxGQ1xyQp/TPa/bLbfbLUfjmKG5ny29lNd3MlN3MkPpkSLzTxV5pIsAz + tdEjVeiRIryRIriRjLiezF8hyY5zJQFHGwyXGr6uhq8tZ7XQ2C0MgbbO/6T2zF/NPv4viwUu8ykuM09c + LHe+C1loe1fP0AGXnjCXzg9djOaBH3hLfpfZ8V+DVIYOM+SlgY39v8+SsvhNgiY9ZLYMga6K21rXaKgX + tTGF+vTieo87UZk0caW0t7oJwqCFrR6KSCXJusZl3ePSjlFAgtMOjGAeDjfqh4QwXNQO8Fr7uZp+DozH + VD3IRkgUIV7ZMNVB+MKolQNGHGaTEXJLhAwcwxTFCtVSBFhnA5rJTUyFuba5B/SrV/WxULhDEY8DtDpj + 4YB+uIFa5BsXPMTnYKDOBi4h2+YhJKWWWhV4CPGwHzyEvJQmMVEau8uEnWRBRwmvjcRtAyGLOXpwEqeQ + iA7BtgHeroK1AfYGhWzUCcTeYo6hmNsGcbhU0Fkm7KLAUBAMlPVUNffVKPurm/tK2JrwBFIZQ1mnGSXo + 5wxSEfMQ0lTwMEfQl8XrzeCYU1nGpLquBEZHTJXhCV0bTlE/IqtCSc33i5qC86VBeZI7ueLAHFFgdmMA + kIXwRwg3BW/zEmxdZSL8MoSAb7rgdprgVir/VgoGFFL5t9P4sCogC45BHJQrvZvfdK9Q8aBYGUJqCSlp + CSlVh5ZqQkshkmselADq+yT1/eKWe8Wq4CKI7cq7hc1BBYDiTr4cCMxvCswDZAFA7gr+uVIHzvUE/Fch + dYkv5GeUiQsqm0BCltjQyBfzbm7jHPie+sZfKy//tfyz78kv/ff2rEtd3WZD5kPt1u+ZH2w1mXsyG7q+ + 5yb2L5B3dJmCizvAw8ckiUimblJ3NTZ3gXhldar8iqZUsojKUudROZ5BT3IqpUzFQK1ysF41yG0djkwj + iQ2DgFA74ES/QNvPb8VvmfZx1b2clh6OytygNLGbTaxmIwsFw26c2qYuHCaODMGQdTqA2IjRAdjSVzyD + xf9kMEROBJIT6SrvZoLAWEaKklIlmsP4EKOnToWh7K1TIerRvM+ZWgfKXmYzgtHcW6PoqZabq5pMFTIj + ZHoQaqiNnRRhR5mgjcxvK+UZSrj6Eo6exNEBxUDDJmidKWJvCjRA6NADQAwS2ou+hGso5beB//ArQBV1 + 0cTddKmxUmaKzih/klhSJ+5itY4WY7LBvFgyuJYVG0VYgoqFxBx+Xxa3B1RMYxmT67oSGR1x1W0xlfoo + ujayXBNBUT8uUz0mq8LIykelykclzTgP/wgelUA/WG842CJaRUKEFitCixQhCDkGKkMlrAorVT4mt4SX + qSOomshybRRdF1VhiEa0RVcCEMzbcJ7Q4dfEEEnTAxHlOiC8XBtO1T6mtiIomjAHZWqcR044KsPKoIEz + zqtsuKSWinJpslKmsoan5cs7FVqz2mBq0bardW06fUd7R3dnl9FoMg8ODk9MTg0ODZt7egYsg1AeHhnt + 6+sfGh4ZG5/o6RvQGTphrNja3tukMTdI2is4rSRGc3a5tJLTmk9t8L4XU8BQsNTDbPUwp3WEqx31CY58 + EpUdk5Afm1ToICaxwEF0Yn50AiIqHsgDnsTlRSJyEbE2IhzE5IbbyFkhGvF4heyw6Gy8HOaojMkF0Iax + eYi4vAhEPoajgAh/NR4DsYgwICbvUXTew+jch1G5oVE5IU+yQyKzHyCyHkRk3QfCM3HuEXi8mnUrXwV7 + h/fDsd1FZMHe4RhCnuSERsGnzk/OoDG4GlnXZGXzMKafzTfSejjZiITEElQLqJgn7M/l92XzejM55owG + UxqrO7WuK7m2M4nZkchoT6hpi682AHFVgB4nttKBbgOc22DYt8X6WSHeebESwBpXOFGph0pollDdllDT + Dj8TSczO5NqulLpuRL0Rw4RhTKmDnxKgO6kW6EpkAp0IRmeCjQ4C8c7U2AqENpvgkkmVQBik1rdA9ihR + GbWdA8a+kV5ZrrV+i7X+TSvn58vifePaArBu0ZS0UL1lSp4M5RpV3sWcXxXyUianpnMbAy5n/96z9Fc+ + Wa7cZl6z1syXd0GWS65T5VXIa4V6Ujk7OiFdomrrHX2KGJvvHXs6MDo3MDS9Ef02phz0DW5GL47FmUmg + ZyMGnOYrTK0wiOFceBnmdRmYMiEmEf0IY/+Ejb516P7KsO0C7RqOAQGHZJmc7xtf6BqcMwzMrmCZa9sU + aLDCANpWD/QjdP0zur4Zbd+0thfR2jvV2rOCZoVJG2aEGjFhB1/EVjmarcK5n1X94xAa4Kw06J3Cjw2B + DnU97A1aAedtncHX4p+RiGPVK+FSUCkvrm6mN2ggfMlbzR3m4aHR6VnKj5/3hVnH0q1TJOtcPXhoGRya + r3pzqTfcSv43iIHnMn9B6/vxjSJUvpy9rbr7KKllT7Lg4+t52+TqTqGis7bRAIkoiaHkyTujk7Lf3rpj + 19ELh855OnPc/eZxd5/jFzGggIAarBKrP+bMZzaOYtgWCW1Wg7fcHEcn9l3fPHHploNPgcuvyG0nUA3e + w3F3AH2itUe1yfE72jhDaOOMrc2aepwH+09KfvZOzM4jxy7aPqMDwjcCHAbOewFHgAuAtxNYJbZ2XQ6d + c7Cqz4M4Zx14ODhw5gbC7cb+1djqz3gccGq8Bqw3rHPi7lb2RVjrfJCrWXX8AL65x0E4Bpw1+3XqlgCh + q5fgQq1Xk2qUVTwtr6lTZegzD4xPTM3NUX9sHQi19j4E/YAhaSRkoePNceDhcGNob29fIS/Bq/TfMuqC + oZzJ9/UmvZ0q+DiB8/GJhLdECq1Q0cESt9PYGnC7Udkdm0G6n0iligc5HdbX/CmRF/Isv9w6+k//39g/ + /mj0n9+AMtDmESKQDhNavubPiEuDtKOEqWQI9MLmrtZOS//Q5Pjk3NPSf7H2+IJ+Wp2+vaOz22iCSIiP + CcE6GAdOTc+MjIxCeRjKU9ODg0M3SrbcLfvgaOzboiaNuBk9eKQ3tHJknTJ1d8CjpKg8dqVigrBvnEr1 + Qg5/NJnZn8GyZLItMMdJB+oH0nDqBlLrBlKAWkQyoj+JiUgEGIgEO7HVfbFViBiMaKCyN8qJJxUvIb5m + IF8wwdAuEQ71G8fQT3+N/21oiP/5vxzl0X/98WsVvz64KA0DNHZrrdAgVpn03UN9g5OjE7Pzxf9gbf9s + ifsBGAjiwcBvdu7prDbZyv94Up0AixXNqR7Fv6NIE8DAp/MLc3NPL+X/xCv73YNPfiWSaaSqbp68q5qv + b9b3Mbiy60FxafTm2tZ5wr6BKvVCQuNI2/Di5FPr7OL6zCxsyPR6TM2vz+Ranq7P4NRzacccyFytXiQc + 8DcICIMO68ZBPHvZGQiMqgQKYcPX/Ilx0XYO8uVdTKFBqjaDhJCOjozPLuT/d6vywHPW291GI7ols7QM + zArOPJ/XvOBvHxoavlX+U6r+mEfRbyEeor9bZunZuaz/fSHuV64RvxRI1LiEwmZju2koOrUwMLqohGdu + aHtO2HdD+4sc3qhobHlm0Tq3tDGLL3BmN2XGwcKrMj2/ITPzLxTmp9ncUThIwmF/U1gVBjGgUpFd1791 + t3MlREXnrV7zp8eFXifq6BmDpFSiNrd2WIx9Y0Nj0/OZf7lc9W/Win8iSGidSrRS/sFs7gEJi1X70xq3 + Xy3acjH3Z+cyf3og5Gc7/X+y7e5PuWIVpKNgYGfPiLyl7VpAVEwht6p5krBjuLhBy6iKHjUSzLqwvCHz + 67K0IU//CBzmQ9k88/xJZU+FfJxw5N8UVkzDxoSAI/8kqKgLiHVs9Zo/PS45VfKu3mF993Cj0qRuH+js + GbWMTM2luCwU/81EyT89I/2tlfp3Lxg/fsb8pXUg3Doc9oL+r0ajCSTMke2JZX0cXLbNK/u3FxLe3uH3 + k/evv7Hz4S84IiW/qR2C6uj4zMPoDP/I/EJ2J8uwTNgxGAiVMABTLkOsgyTwhYMJAnM2xjdgDGfWxujL + GJl5OdBh29wLODx60+jaGP71B7xyOGbafxYvtDwpcm4Dw0JHGwBSU0KD1/xpcGGoZ/PLOdNzy62dgwpd + b7t5eGB4cjrnb6azvw8eLlH/frnmDavsD1bdYetAkHU0YIb27yBhXsOj8xm/Opn088MxWw5E/mxP2E+3 + 3f3JjgdvJtXeYAuUCq3p6cJSdT3vamBMQkljtXJqbVIHV3a9btEuIdE3Z8bnnhOZRYxtwOiMjZFXYNiZ + 6RXA7ZanSMJy6TDb8Ixw8F9zwCWHWt2nPGDUh5d7dp1wbsbVLjj8dPA6Kv7pcQEZKKIBlkCx/NwK4Qvo + H56aMBbMFf7f0+n/x3T6/zmb8dczxX83mf9PM8X/Y6Jii7H2QX9//9TU1OjoWE9PLwgJdHYZ9W2dKo1B + 1NQqU7VPz84Z2ruu+EU8TKssa+xf9yKGyjrtAlzlqmXr7MJ6ptkhOIYz6ozdOoJ7a9VyZmgdnjmA/crm + MQklQ2vD+NcZeSFv+N9/jhsFjoFpfOUUDPzwGhlZ4twY1naev42vcvD6bs2fGBf4v16/VFBvaFLqnr2w + 9g5O9g1ODo9NWQbRG2omE3LMZDID+NTfPzA+PrGwsLiwsDA7Ozc9PTM1NTMxMTU0Mm7qG+rqGZyZfWoy + 93nceRIUQypgdYBpzvtzABLWts6vSIgFt/VD3MwznNENGJlexbCDqRWGXoFBYNLGxNxz4QKSkCoehPND + OPivM873Y8AxvNJ49JJDMEelM4So+PpuzZ8SJCEAPuQyNEIZ+rsGp2bnx6fmpmZAsNmpqemZmVkAm+Zg + mp+fX1paevbs+fPnL2C+vPwMWFxcmplbmJ5dePb8haG9GwwMeFKQXdPKVM9tdHcRwotDwpkFkO2ZjXWU + 01/clhVueDZi8w1b1K32zQm7VMuDGzFpw7IxE3PPuItWXMKNfkfWJdIP+5vITomL1qz6/LQf3pbtJSBU + vgSHSB2X7zgqBdJhR3h0rseAvaBj/ocPwjJ+vHODNusCG1ZGEiv/fAjE77z8dH2xY3b+Ir78T22TEFRh + ap7m1erLqnlg1/MX1sVFdEcUBMN8Q8phkxUDTagZ8vAZNFkCFZ89gxW1DULIQiEGgoE1LTOb3N93SNiC + SeikHBG7dcsj0zi2xeHp5eGpFcA6HIdjBAia2ZhYBf43ggIgIccu4bpPODfG+Qv7I/kiXeEWAYR6x8gQ + gATVaZXzXsa8TkX80K/dae03hqK47MN+le/EjRHqvwy+xO90HWwSAiAMXG3FXGNyIVOj64CQ+MJqBQPx + oIdN6G8pQfV2D2FyrDOa+54k5V0NjIFxIGShm8RAHMjxHBJOzz8fnV4G7JqtYnhK/xlunc03tPhYhyk3 + CWX878DMeqzFZdNf2JZ1ITgLKj/IHCQFY2uDdQMTSxi6C3h7qBlfAvo3YHz2GWfJJiH8PBEOflMcXxhW + iKvEDi/CcXHAtYLVOH5NoRl2SLZLH2112C/7h6ey38HrnbZ9Kc63ZAirAMdjCRg3OtUTrjDnRcKxEQ5+ + nZbvxIntldjaNR//KwN+PuCo2g+v5CDrHoDjmFEBnWdslS1/sX1M7JdoZSvbR3NaXHN+VtW8ype+ihUJ + ccANisiSRBanFVY1KbXzC4s28zaYIBLqDJ2pueTrgdH+kfkJJY1ljf2Qv21uILBaQgh3mG+rgxvO0JTO + bpoDUG5pcHKpJDjig6xBy+SSpY7+w7NCycSSBdPs/czBAa3w/W0RF2qX+luhQCdhaoGT56Fm3PLobNaj + 1sW+8dWMrTA2u8z9EiS0f69k+FYcF+6qbwK+/sNkKMAXv7LVmivmlXC+JdN9yoOwFnA8k2i9l+JUT9gL + ugSxQ1r32JwPfmVDaIkfM3a1rXyQNR//KwNyUWxf9mMG1j0AxzGjteiYURKLbYIKhIOENoStVpUdnxr1 + b5MfdfvSL50AUUKgoe05ZJIQEuOKBeFplGxSFYsnVWvbu839/ZZhAP/Tg3yRPK+k8m5E2vWguMDoophC + biG7s1o59Yo39B0SqpetU0+fDU8tERhyMAkS2qzDcCyCb1lhWhAPdy/rkXZxYEJ7Hgqti/3jxELfGBRW + TD5fu8o6oNeJsRknCdVzhIPfFMeXtO43h/3K4l+SrX7lkLCrZ92tXol1b8k448hIjUcvOdUT9uKQcO2x + rT14fMN1j3ndyq+KFffg0rcd4eZHtUkB9wf/4GtWrdv+JZWE80ZkHQlxYMxWrZouFfRmVKqi8htCkml3 + oov9wnNvhWUBUADx7idSo/LY6RXKEp65qnkSNnlpAHSwroR261axYt0EjsM9W8GeZyLTBhzuIeWyHmrA + LmJhRbbRDRmb/ookRGDhYu1PLM6GW70Ux3OIjW6riBk6vIHll1ud6lfvZSUgrL/39Q5+3WNet/IrAvpf + +b1Y79yuPaqNC6vCGqHNF6tEOJ03IhtKiANREXJLEKxcMkQW9oFsJK4JgAIswgVaqZgAl77AOyUNhqV6 + 7VO4yiEdnZp7hsm2molFHMuEFpMNCuAY0szu2yKkl+9nWvrHF/trUToqHnO4t2BTTr3QO+ooWB6eiXg/ + w9IzurDCyDqYRxZGp5dwCcvFllrNLOHgN+Xl34dTgod+Ix0jhzUtCVu9BEgyNzEQxyGq0x+hIOzRcTxr + jw3HcfCODZ1aohhCWEsofwWsRD+EPSquewCvUHD09rLPskE6uk5LDMd5I/ISCb862PrFei2KhKpl6+Tc + 8uDkIgCaOTNgY8U6XEKQ6lHrQv84AGX8xw8Xb5V757ZlharBNEdhoUctgIEi1p5eMDJv3piR6SX7jRmQ + 8HNEQvhiUP/oK1n3+4AC1sBx0WBjkg1+v229rWfCF2S9V9jsh4RhS+pw1jk2bHFtvudo6Vfp9EnXfvyv + hJVcFMdm0boH8IoFwmdx/iIczZxarqpZW3Z0uPJL4cyfTUJHOqpctk7MLtuUs2lmA4U4Gwv9SLB16AVG + V+GIZk6sEsyEM7whxuF5yI1xCSliC0P9uSLh15qNXmH7skBJ18r9yde8En9+CZsxCQfGFwiAdQ5syo0S + sYs3j9MzYsPmm9O//gcQTLMx9NSB0Ylvq4TOr7DBEJGw9guDDXgIMeE1r8rXQsLx2WWib2uUcwQ6GyPA + inU299b6NrSCkYhduUEb3U4MT347JQQcr7Ctvkf6mj8bf34JFcvWsZmlvrH5vlEbjsjmoAeHoJwzyL2n + JjtGwOGYnW4CTsp1rWFoctEmoejbJqHjHumXGwxf84X5c0rIVM/H1Q4ol16MTi+t+LbaNAdOsq2OdTZW + 5ZNrNXNAkK3LguhcxRwAY1TBwosktoUsHPiWSQi8DoZfK/5sEtZqF3J4o5SOmbb554MTC3bTniKGV+GI + b7hpa8dvOE6mzXU5sKyA20VkYIUOJyDXVc49oxlnk6s7q5XThIP/pvM6GH6tcIGM689CUoOlpvdp5/zz + /qnFDZUDNrYOx9k9nFcXz9m6NcwaxxbAw/LOmScVnYSD/xag3OmGSwgFwqrX/IlxsUwsvOY/IYNilSMY + Qpmw9jV/SlyMo/Ov+c/J0MnPcAmhQFj1mj8lLo1q47cPVeegeXjOGaghtHmNvJzlCIZQJqwlIL+73dF4 + BbdiWPX6bP+RuAxOzI9NL3zLELZ0N7dbjENzOFCGmm/lJ/1jOX3RphMUCKsIxK7620pX+Di56dXPNt0b + 22r3mPpllf+ZcIH/Hbc0vk0IWrot4/PO5W/rJ/1jMPGaHTpBmbDWGXMELuHuAZmtpveSbcNB8iufbbIX + oZMNK/8z4dJpmf1WwlN2jU4trC2/hsDgCdvIEAqEVc4Yw3dhzXb1S+yVpbg8P7KU4me4rf8PaHHs/TD7 + 2dbaav6QYLTM9rhjZWfcq9ettPXv2NyG067tq0bCtY7DsC3aGnyTcOkYmPlWwlV0jkzNry2/hkA3V+64 + iKFMWOug2y5hn8RWY7b542m2nWF9n03CR6O2s6211fwhoXulvRPu1etWom0lCcOEegxLCb53e89rsDf4 + JuHS3j/zhZGouxNzSPF55HxaDbmaJdUY9T2ThDZ/LjiKjpHJ+bXl16zFcuKC7Qo+cYGwykHXY1zC1XyY + 0IWtxc6wvu9DrPL9h6O2s6211dibtZM8sQ2RyXi3G1TaN1yprLagRcDTvKoBkhY1cEiLL36jcGnrn/nC + pBZSedIW/C+buXj7fmpOoaJtQNczSWj2heGJdUXlTLxsgkG/yZxeQHWs3ZwGRcfw5Pza8tcEWdtwDlNl + gwZwVyDZiMGoErURtv3S6eSsBMP2tgHCWpzOdSVE7OqV4GdY32uXEH7ysK20tpoPEzrxfuy+wSaOntep + tBs1/FjraGY/ALzZmp7hCsGDqlPNNwUXQ9/05kj5VRzSA0RJCMy5pBBOSSiHFArz2/fDQT9K4rV7N/ap + jRO3g8O55IcAr/QRggyE8cmPABGnutU0ru+dInS+OTJ9f0xKjtxggXLf+AKNxi1lip0bbAJL3g7irS0T + sNS9Ma85bp3PsM6LrMtsq36/peYN6zwbLc4Xzut3WBreIGzypQDu4T9ea6fJBTuTVtOk1c03RmMaJ2z+ + pTO4fR92if+ou4xJWIXT4XBAbK8Ux9uCz4fxjegMr5IQa6OxqxLfgW/i8M3RybqVtpofWUhrm+GVa3ru + mzZeJNZ8U3DR905vDoinFpKWzfkIU34DjwbJJ05ITCpcNGAgJeGqoWfK584jqMFXNXBoS93Zi0BXlqzi + pojsL9P2aozgIbH/zYlJoZUyJW1wii2Tbh7BDRItocFG1Mvahybm15YJzGvOgYcTmuPzMxnzM9W4hBMT + 1fMTNgPnm35N2ORLAZcwJodrIwWgBQMxtOAwmgcQjAAJt2x3I2z7VdDrE4Rf4ubQWMIqnI4wm4Q9opVK + 23X/j7u0dDjD+h5cjPceDtvOtsZWA2Lgm9h9c+5knUq7bwOktc3wyjU9Ow7GqeabgouuZ3pzIACCe/NK + nwXVzQWVz43bwdjvNXGyTFvlHcMifT9fbU4pLD9/zXtGfNGBmOzPa2pXtg8TOn8pFRX8mJgctcHElahc + 3TzYYi2hwUbUydpAvLVlAtZ5yoTmXHfaG1bjDusyxdp7vLv0DWRjxzZdEjJwfiSEsMmXAqSgcNJoTO7m + mAaRhKu3VZ3elnlX6lzzJdCdUohf4k37LxBW4axI2LhS2b0iIZxhh4ShICHWwEkVfJNiu29OnaxT2Rg/ + hGp+NBSmcTRbfQBrenYcjFPNNwUXbc/U5oCES8b8eZU3GLig9PG+8xCunsGJhdQ8an45M7+MmUeuySiq + iMsuCU/KxonPJp+76rlKwlJ/tlSnaB8kdP5SaLVKyEhzS6s8gmOOHHUnrN0EplQ/OPF0bZkApJ3zM4XW + kSvdWf9itSZYZ7znm960WjO60/4FPAQDLcZqwiZfCjD2Qz9dThMhCwX9cEDC1duqTm3LDJI613wJtLGa + sEv8R8afv0dYhdNmd8DcaK9sjMNVGfswjoed4S6bkx+PqNDZti/+aOzdAFa9iA5E2N4ab4/AFjespKre + xbd1E+E1BQG9q7qyN3D0XC8SHSXWfN2oFJvXxaXVPLU53JLQJWPegtJ7HiM17o7bZY+Tl66duerp4Nw1 + zzPXvFH5mieshULI3fPOEopK/FkSnbxtkND5S+HLO0E/SEQhDF67fY+wdhMYEv3g+NO1ZQIwDpyfYaPR + oLXaatWhwkik1dpstRbOz1dPjFAAwiZfCriEhLgHBtoT0Rw3X4TKhCRcvS0mocSxaA46jf+9EhG/TTLj + i6do2Coa9YenuUzbJngbx4bOneDllfe5sX7wVYjDd+iAl+v7jgar2WUW2M9wkceatRgfxU7YJvq4c/1V + +oaVtHW72jmuwraYaBn/CKtZ6Xli/Cqx5psyuWhMU5vDLX0IEs43e843ewFPmz2fKjyfym/MNV2fa7o6 + K7syK708K7k0I1lRbi2NJX71Yl2TYZDQ+avw2a2HYKCre3BuuYiwahNqxAbL+NO1ZQLzyv0ADAutxv2Y + hxYMirVjh6Xm15YGRGRm1asTGl9cLdSqusbVxknCvpxZX8LVMRAMxCVcva3q5LbMOxLnGhyop6abphiJ + mT8MUEENFH6baIZCekAEXtCUIy0ZtsaOTmxlx7WOVa4wPL24oYSfVeJtVs5w4Yo8/YVTtijnLIazXdEt + m1US5Fxl17dLQrhWNodX+mjJmDuv8Hiq8JgH/aCAGyi75mSgO8E6Ao0k3zqRVqa3EDrfHFbz5IO8Sddg + k29ym6uv6khQS3BWR0GtidBsXapEOsvY07VlAtaRAIRlv3U50roMEkIMtFiXCyEvRZXG4whscvqXcKzP + gGcvlp89X1p+vrj8fGHp2fzi86cLz+YWnlU1SK8FJ0q0/crOMcK+nMkhrSMhGAhh0A0Pgx4oDOISrt5W + iZwRO9VQqfa/ZAmrF3N+e5pTYzTdOY03c27vKK9T6bjcV3q2g3sIc0K9g43ONuRgtgvt9bTx5NJinNwc + HvnRUncOiOcADHwquzYnc4RB91nxyyQsvg0SSvUWQuebUN88+VnC5JFQ0/bTBb8/k779Fh883OrOvZvM + J7Rcl0qRbmDs6doyAes8e36iGum3nIHSUUuAdb4QqbicYLVCjqoD8H8IB+n3wor+IarnSL/l5RfIwCUE + MnDxGZJw/tns/PL+i0FcRZe8bZiwL2c2ktA5BjokXL0tciZQbF8EA5FyzvWmwNOZgVTOu8R65/I6lWP/ + +gYuoUbRaevcCTCQUOPMRmf7tYSvMrmIDWObAxIudmVjyec1h35zSD/MQCkWBl8WCQWFN+lcNUfVR+h8 + E3xy+lzDTFvdaVtcY075l4GBzKahBIoOFgkt16VcoDUPz64tE0A3ZiYKrcYd3Xn/AlnoRMMb1pkA6zIF + 3aexnJuYoVgs4CFuIAIzEIHHQMzAZ7iBs8D88szT5V1nblUL9dyWfsK+nIkhoREgUcJBKz4UhDAIuLrb + xoSrt20+ti3zFs++WEL5oW+zrWCvp8RmHvOl/Dq2C28T6xthK0ObUw0UVNl161TEsRJ7D9iGPfsO4hLq + ItLxDV+djc72awlfZXq5hPyysMWuLEw8GxAA56SXK7hqOqeF1tBCZSsprGZynQKflzKbSAxZYbWkoKIx + j96IS8gv+NwSgoE08TCFbwbr2EoLSEhrtERkC7ds9SC0XBcqf+VScC4TsM4UTij369JAuSsQAC3UN8G9 + +XkRDBF1aW9M6K/Mz1BaDRa1vr9F16ds7VFozPIWo0zVLWnuFCs6GpvaBDIDX6LjirWzT5GB03N/lISq + 1WFwAwnx5DMC08++6EtZkdNJyNWbrLZ39YbauDxcQu6v99s3fFU2OtuvJXyV6VUkfLzQlWmPe1dmZTC/ + PCO5VMG1vbDmPKHMzfYPiaLokUsTRmVSulg3+Pk+n1vCYBNYl1AKoS8YFi88lmx1o23Z6vbGf7zr3Gwj + qDzNymXhVCYABqKH9cod8zMi67JuQvAmGiJau6E8bwyxVLwx33FFYxgACVXa3maQUG1qajFKlV0SRadI + 3i6UtQmkeh5IKGqdmUcGTn0eCW13YtbLQh2skfDlQCS0R7zPgUxuGv3X/8A9VJXUE9ZuzkZn+7WErzK9 + XEIBJXyhEyS8hIH0m0W4QxjExXNM6K4FmmEFLHnLLhcUVnDvRudUZQZ8XgkvPNYi61xjfrnzHCxCIvrO + B+5vfOAeksF2brYRryghbuDEBMUyonNIOD+jm59pRo8o9AHgoT0M9jajMGiCMChdEwY5IOFTMHBpavaV + JKTy21zdg0GwlxKVyyBsuykoz1wdBj8H5pOXcQkHtu6QqC2EtZvwWsI/ZnqFSEh5vNCRYRv4SdxBP2wE + 6E5rsL39aDKZjCZzt9GMzxHdZvwf086m8lo7BhLyK64GxRZVSznKXkLnmwDWbbuYDuKFpLySdQTI3JVL + wbm8EZGZVfjHgcnQOazvGNa1D2nbLI4wiHJRRxhsxsIgSGgLg9qGRg0Kg7NLk7NLryLh1xOZuN0RDA2h + iYS1m7DR2X4t4UYTw2lykRjGNgeLhBlgnR3bvZbyBqXtmsWnF9bnWAx8/tx2C/HZsxdZFN7I5KK200Kr + lx6/dq+coxG2DhH6/4oo47X2DM+uLW+Es4T6zmFdx5C2fbAVJNQPQBhEuSiEQTUeBruwMAi5KIRBPQ8L + gyAhMnBmaXxmEZeQ19JP2MU3AnAPlxBsbBK3E9ZuxEZn+7WEG01jY2M2BV9JQmr4fEeawz0HVLZNQjz0 + dXbb5kBHlxkMBA8zyrgwJvSPyDjrEwYSAmy5sVE7TNjFVwGZq3ZcCs7ljVhHwrZBexjEbsmozU0tRpk9 + DKJcFA+DIGGjhi1UQwycmFmamP5mSyhVWyxbd+AeQnZKWLsRG53t1xJuMuEewvxVJIxYV0IKqxkCn30M + CNHPHgCxGIjdx3+OP85ewufLz0HCaoGOrx4g7OKrgMzRrFwWTuWNwCV8gUa2CJROv7BiDySwTwEsOR7K + P5/DHwnabocuwVAQN3B8enHsGy4h0FJS7wiGhFUbsdHZfi3h5hMYCPOXSygECdvXkbCsHiRE/0Hca+/u + aetE8/YuVDB0mJcx6+wP056hwhKSsIKr5qr6CLv4Kih1uhScyxsBEtoeymN3mHAD0a8J9lAeMxBJiL8W + M7ewPIM9EnSMAzEDl8amlr4FEgK4hAChfiM2OtuvJXyVyUXSNrY5QmrkfHsqwUCAXKewxw10Dwa7ZCFo + YDEQf5sEu3bBPbh28SsYSchTc1v6CLv4KrBdCmvKG4EiIR4DX7zQYaPB5ecvWnTYkwkNdktGhW7JwGgQ + ezJh4EMuKkZPJmA0CLkoS9AC+o1NLY5OYhI26nnqfsIuvkGsSLhm1bpsdLZfS/gqk4u0bWxzNpKwlNmE + GwhxT9/Ro8Pn7aig7ehpbevVdPRo2no0erPG0LOwiBI5XEJeSx9hF18FJdilsLa8ESgSIgORhM+eW22v + xTyzvRazsPh8fsHxYtozPAbawiAeA7FEdHRqYWRyASSsadTz1f2EXXyDcEhIqN+Ijc72awlfZXoFCcuf + rCthcY3UEQDxt5nhYsWAuGd7oRkxjy5cnK+5hKAfTPCJ0E1Rw8DSsxcvfUDvCIP1fNXo1OLI5OLwxGsJ + X0v4+aZXkJD2EglfJRLOPX0293T56y8hfBzsTowtBmJZNHo/G8IgHgNnnWIguhc6s4huxkAWisXAzyuh + R4ppq6+KUPl1wPG0UC5pJ6xal9cSfvFpYuL/BzVmYoNRalyIAAAAAElFTkSuQmCC + + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucPowerPoint.vb b/CasparMediaPlayback/ucPowerPoint.vb new file mode 100644 index 0000000..56aa5ac --- /dev/null +++ b/CasparMediaPlayback/ucPowerPoint.vb @@ -0,0 +1,91 @@ +Imports System.IO +Public Class ucPowerPoint + Dim strpowerpoint As String + Dim fsw As New FileSystemWatcher + Private Sub cmdhidegbppt_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub + Private Sub cmdstarPowerPointoutput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstarPowerPointoutput.Click + On Error Resume Next + If rdojpg.Checked Then + strpowerpoint = "play " & g_int_ChannelNumber & "-" & cmblayervideoforppt.Text & " jpg" & g_int_ChannelNumber & " " & cmbtransitionforppt.Text & " " & ntransitiondurationforppt.Value & " " & cmbtweentypeforppt.Text & " " & cmbdirectionforppt.Text + Else + strpowerpoint = "play " & g_int_ChannelNumber & "-" & cmblayervideoforppt.Text & " png" & g_int_ChannelNumber & " " & cmbtransitionforppt.Text & " " & ntransitiondurationforppt.Value & " " & cmbtweentypeforppt.Text & " " & cmbdirectionforppt.Text + End If + CasparDevice.SendString(strpowerpoint) + addfilesytemwatcherforpowerpoint() + End Sub + Sub addfilesytemwatcherforpowerpoint() + On Error Resume Next + fsw.Path = mediafullpath + fsw.EnableRaisingEvents = True + AddHandler fsw.Changed, AddressOf filemodified + End Sub + + Sub filemodified(ByVal sender As Object, ByVal e As FileSystemEventArgs) + 'On Error Resume Next + If e.Name = "jpg" & g_int_ChannelNumber & ".jpg" Or e.Name = "png" & g_int_ChannelNumber & ".png" Then + SendString(NetStream, strpowerpoint & vbCrLf) + End If + End Sub + + Private Sub cmdstoppowerpointoutput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstoppowerpointoutput.Click + On Error Resume Next + CasparDevice.SendString("stop " & g_int_ChannelNumber & "-" & cmblayervideoforppt.Text) + removefilesytemwatcherforpowerpoint() + End Sub + Sub removefilesytemwatcherforpowerpoint() + On Error Resume Next + fsw.EnableRaisingEvents = False + End Sub + + Private Sub cmdstartpowerpoint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstartpowerpoint.Click + On Error Resume Next + Process.Start("c:/casparcg/mydata/ppt/pptm.pptm") + Threading.Thread.Sleep(1000) + SetProcessParent2("powerpnt", Panelpowerpoint) + End Sub + Private Sub SetProcessParent2(ByVal processName As String, ByVal cc As Control) + On Error Resume Next + Dim processes() As Process = Process.GetProcessesByName(processName) + If processes.Length = 0 Then + MessageBox.Show(processName & " Application is not running") + Else + If Not parentedProcess2 Is Nothing Then + SetParent(parentedProcess2.MainWindowHandle, Nothing) + End If + parentedProcess2 = processes(0) + SetParent(parentedProcess2.MainWindowHandle, cc.Handle) + SendMessage(parentedProcess2.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0) + End If + End Sub + + Private Sub cmdshowpowerpointwindow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdshowpowerpointwindow.Click + On Error Resume Next + SetProcessParent2("powerpnt", Panelpowerpoint) + End Sub + + Private Sub cmdoutPowerPointwindow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdoutPowerPointwindow.Click + outpptorexcell() + End Sub + + Private Sub cmdstartexcell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstartexcell.Click + On Error Resume Next + Process.Start("c:/casparcg/mydata/excel/chart.xlsm") + End Sub + + Private Sub cmdshowexcellinwindow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdshowexcellinwindow.Click + On Error Resume Next + SetProcessParent2("excel", Panelpowerpoint) + End Sub + + Private Sub cmdoutexcelfromwindow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdoutexcelfromwindow.Click + outpptorexcell() + End Sub + Sub outpptorexcell() + On Error Resume Next + If Not parentedProcess2 Is Nothing Then + SetParent(parentedProcess2.MainWindowHandle, Nothing) + End If + End Sub +End Class diff --git a/CasparMediaPlayback/ucPreview.Designer.vb b/CasparMediaPlayback/ucPreview.Designer.vb new file mode 100644 index 0000000..1224846 --- /dev/null +++ b/CasparMediaPlayback/ucPreview.Designer.vb @@ -0,0 +1,145 @@ + _ +Partial Class ucPreview + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucPreview)) + Me.gbpreview = New System.Windows.Forms.GroupBox() + Me.cmbippreview = New System.Windows.Forms.ComboBox() + Me.cmdWaveformluma = New System.Windows.Forms.Button() + Me.cmdpreviewkey = New System.Windows.Forms.Button() + Me.txtoptionspreview = New System.Windows.Forms.TextBox() + Me.cmdremovepreview = New System.Windows.Forms.Button() + Me.cmdpreview = New System.Windows.Forms.Button() + Me.vlcpreview = New Vlc.DotNet.Forms.VlcControl() + Me.gbpreview.SuspendLayout() + CType(Me.vlcpreview, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbpreview + ' + Me.gbpreview.BackColor = System.Drawing.Color.PeachPuff + Me.gbpreview.Controls.Add(Me.vlcpreview) + Me.gbpreview.Controls.Add(Me.cmbippreview) + Me.gbpreview.Controls.Add(Me.cmdWaveformluma) + Me.gbpreview.Controls.Add(Me.cmdpreviewkey) + Me.gbpreview.Controls.Add(Me.txtoptionspreview) + Me.gbpreview.Controls.Add(Me.cmdremovepreview) + Me.gbpreview.Controls.Add(Me.cmdpreview) + Me.gbpreview.Location = New System.Drawing.Point(1, 1) + Me.gbpreview.Name = "gbpreview" + Me.gbpreview.Size = New System.Drawing.Size(596, 446) + Me.gbpreview.TabIndex = 1168 + Me.gbpreview.TabStop = False + ' + 'cmbippreview + ' + Me.cmbippreview.FormattingEnabled = True + Me.cmbippreview.Items.AddRange(New Object() {"224.0.0.1:5004", "127.0.0.1:5004", "192.168.1.1:5004", "192.168.1.2:5004", "192.168.1.3:5004"}) + Me.cmbippreview.Location = New System.Drawing.Point(2, 2) + Me.cmbippreview.Name = "cmbippreview" + Me.cmbippreview.Size = New System.Drawing.Size(99, 21) + Me.cmbippreview.TabIndex = 1173 + Me.cmbippreview.Text = "224.0.0.1:5004" + ' + 'cmdWaveformluma + ' + Me.cmdWaveformluma.Location = New System.Drawing.Point(457, 22) + Me.cmdWaveformluma.Name = "cmdWaveformluma" + Me.cmdWaveformluma.Size = New System.Drawing.Size(132, 24) + Me.cmdWaveformluma.TabIndex = 1172 + Me.cmdWaveformluma.Text = "Show Luma Waveform" + Me.cmdWaveformluma.UseVisualStyleBackColor = True + ' + 'cmdpreviewkey + ' + Me.cmdpreviewkey.Location = New System.Drawing.Point(206, 22) + Me.cmdpreviewkey.Name = "cmdpreviewkey" + Me.cmdpreviewkey.Size = New System.Drawing.Size(74, 22) + Me.cmdpreviewkey.TabIndex = 1171 + Me.cmdpreviewkey.Text = "Preview Key" + Me.cmdpreviewkey.UseVisualStyleBackColor = True + ' + 'txtoptionspreview + ' + Me.txtoptionspreview.Location = New System.Drawing.Point(106, 1) + Me.txtoptionspreview.Multiline = True + Me.txtoptionspreview.Name = "txtoptionspreview" + Me.txtoptionspreview.Size = New System.Drawing.Size(484, 20) + Me.txtoptionspreview.TabIndex = 1170 + Me.txtoptionspreview.Text = "-vcodec libx264 -tune zerolatency -preset ultrafast -crf 25 -format mpegts scale=" & + "240:180" + ' + 'cmdremovepreview + ' + Me.cmdremovepreview.Location = New System.Drawing.Point(302, 22) + Me.cmdremovepreview.Name = "cmdremovepreview" + Me.cmdremovepreview.Size = New System.Drawing.Size(124, 22) + Me.cmdremovepreview.TabIndex = 1168 + Me.cmdremovepreview.Text = "Remove Preview" + Me.cmdremovepreview.UseVisualStyleBackColor = True + ' + 'cmdpreview + ' + Me.cmdpreview.Location = New System.Drawing.Point(107, 22) + Me.cmdpreview.Name = "cmdpreview" + Me.cmdpreview.Size = New System.Drawing.Size(80, 22) + Me.cmdpreview.TabIndex = 1167 + Me.cmdpreview.Text = "Preview Fill" + Me.cmdpreview.UseVisualStyleBackColor = True + ' + 'vlcpreview + ' + Me.vlcpreview.BackColor = System.Drawing.Color.Black + Me.vlcpreview.Location = New System.Drawing.Point(3, 47) + Me.vlcpreview.Name = "vlcpreview" + Me.vlcpreview.Size = New System.Drawing.Size(588, 396) + Me.vlcpreview.Spu = -1 + Me.vlcpreview.TabIndex = 1174 + Me.vlcpreview.Text = "VlcControl1" + Me.vlcpreview.VlcLibDirectory = CType(resources.GetObject("vlcpreview.VlcLibDirectory"), System.IO.DirectoryInfo) + Me.vlcpreview.VlcMediaplayerOptions = Nothing + ' + 'ucPreview + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Controls.Add(Me.gbpreview) + Me.Name = "ucPreview" + Me.Size = New System.Drawing.Size(600, 450) + Me.gbpreview.ResumeLayout(False) + Me.gbpreview.PerformLayout() + CType(Me.vlcpreview, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbpreview As System.Windows.Forms.GroupBox + Friend WithEvents cmbippreview As System.Windows.Forms.ComboBox + Friend WithEvents cmdWaveformluma As System.Windows.Forms.Button + Friend WithEvents cmdpreviewkey As System.Windows.Forms.Button + Friend WithEvents txtoptionspreview As System.Windows.Forms.TextBox + Friend WithEvents cmdremovepreview As System.Windows.Forms.Button + Friend WithEvents cmdpreview As System.Windows.Forms.Button + Friend WithEvents vlcpreview As Vlc.DotNet.Forms.VlcControl +End Class diff --git a/CasparMediaPlayback/ucPreview.resx b/CasparMediaPlayback/ucPreview.resx new file mode 100644 index 0000000..975ebb3 --- /dev/null +++ b/CasparMediaPlayback/ucPreview.resx @@ -0,0 +1,127 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABdTeXN0ZW0uSU8uRGlyZWN0b3J5SW5mbwIAAAAMT3JpZ2luYWxQ + YXRoCEZ1bGxQYXRoAQEGAgAAADBDOlxjYXNwYXJjZ1xteWRhdGFcdmxjXHZsYy0yLjIuMS13aW4zMlx2 + bGMtMi4yLjEJAgAAAAs= + + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucPreview.vb b/CasparMediaPlayback/ucPreview.vb new file mode 100644 index 0000000..b919792 --- /dev/null +++ b/CasparMediaPlayback/ucPreview.vb @@ -0,0 +1,72 @@ +Public Class ucPreview + Dim isplaying As Boolean = False + Private Sub cmdWaveformluma_Click(sender As Object, e As EventArgs) Handles cmdWaveformluma.Click + On Error Resume Next + + CasparDevice.SendString("ADD " & g_int_ChannelNumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text) + Threading.Thread.Sleep(2000) + + Process.Start("CMD", "/K " & "C:/casparcg/mydata/ffmpeg/ffplay.exe " & "udp://" & cmbippreview.Text & " " & "-vf waveform=filter=lowpass:scale=ire:graticule=green:flags=numbers+dots") + Threading.Thread.Sleep(2000) + + CasparDevice.SendString("remove " & g_int_ChannelNumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text) + Threading.Thread.Sleep(4000) + + + CasparDevice.SendString("ADD " & g_int_ChannelNumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text) + Threading.Thread.Sleep(4000) + + CasparDevice.SendString("remove " & g_int_ChannelNumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text) + Threading.Thread.Sleep(4000) + + + CasparDevice.SendString("ADD " & g_int_ChannelNumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text) + Threading.Thread.Sleep(4000) + + CasparDevice.SendString("remove " & g_int_ChannelNumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text) + Threading.Thread.Sleep(4000) + + + CasparDevice.SendString("ADD " & g_int_ChannelNumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text) + Threading.Thread.Sleep(4000) + + CasparDevice.SendString("remove " & g_int_ChannelNumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text) + Threading.Thread.Sleep(4000) + + + CasparDevice.SendString("ADD " & g_int_ChannelNumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text) + Threading.Thread.Sleep(4000) + End Sub + + Private Sub cmdpreviewkey_Click(sender As Object, e As EventArgs) Handles cmdpreviewkey.Click + On Error Resume Next + If ServerVersion > 2.1 Then + CasparDevice.SendString("ADD " & g_int_ChannelNumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text & " -filter:v alphaextract") + Else + CasparDevice.SendString("ADD " & g_int_ChannelNumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text & " -vf alphaextract") + End If + + If isplaying = True Then vlcpreview.VlcMediaPlayer.Stop() + vlcpreview.VlcMediaPlayer.SetMedia(New Uri("udp://@" & cmbippreview.Text)) + vlcpreview.VlcMediaPlayer.Play() + isplaying = True + End Sub + + Private Sub cmdpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpreview.Click + On Error Resume Next + CasparDevice.SendString("ADD " & g_int_ChannelNumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text) + 'Threading.Thread.Sleep(2000) + If isplaying = True Then vlcpreview.VlcMediaPlayer.Stop() + vlcpreview.VlcMediaPlayer.SetMedia(New Uri("udp://@" & cmbippreview.Text)) + vlcpreview.VlcMediaPlayer.Play() + isplaying = True + End Sub + + Private Sub cmdremovepreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremovepreview.Click + On Error Resume Next + CasparDevice.SendString("remove " & g_int_ChannelNumber & " stream " & "udp://" & cmbippreview.Text) + vlcpreview.VlcMediaPlayer.Stop() + isplaying = False + End Sub + +End Class diff --git a/CasparMediaPlayback/ucQuiz.Designer.vb b/CasparMediaPlayback/ucQuiz.Designer.vb new file mode 100644 index 0000000..e28378e --- /dev/null +++ b/CasparMediaPlayback/ucQuiz.Designer.vb @@ -0,0 +1,435 @@ + _ +Partial Class ucQuiz + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucQuiz)) + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.gbquiz = New System.Windows.Forms.GroupBox() + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtQuizTemplate = New System.Windows.Forms.TextBox() + Me.cmdplayanswerquiz = New System.Windows.Forms.Button() + Me.cmdpausetimerquiz = New System.Windows.Forms.Button() + Me.cmdstoptimerquiz = New System.Windows.Forms.Button() + Me.cmdplaytimerquiz = New System.Windows.Forms.Button() + Me.cmbvideolayerquiz = New System.Windows.Forms.ComboBox() + Me.cmdanswerquiz = New System.Windows.Forms.Button() + Me.lblfilenamequiz = New System.Windows.Forms.Label() + Me.cmdcutquiz = New System.Windows.Forms.Button() + Me.cmdupquiz = New System.Windows.Forms.Button() + Me.cmddownquiz = New System.Windows.Forms.Button() + Me.cmdaddquiz = New System.Windows.Forms.Button() + Me.dgvquiz = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn16 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewCheckBoxColumn3 = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.cmdplayquiz = New System.Windows.Forms.Button() + Me.cmdstopquiz = New System.Windows.Forms.Button() + Me.Label195 = New System.Windows.Forms.Label() + Me.gbquiz.SuspendLayout() + Me.MenuStrip1.SuspendLayout() + CType(Me.dgvquiz, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbquiz + ' + Me.gbquiz.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.gbquiz.Controls.Add(Me.MenuStrip1) + Me.gbquiz.Controls.Add(Me.Label3) + Me.gbquiz.Controls.Add(Me.txtQuizTemplate) + Me.gbquiz.Controls.Add(Me.cmdplayanswerquiz) + Me.gbquiz.Controls.Add(Me.cmdpausetimerquiz) + Me.gbquiz.Controls.Add(Me.cmdstoptimerquiz) + Me.gbquiz.Controls.Add(Me.cmdplaytimerquiz) + Me.gbquiz.Controls.Add(Me.cmbvideolayerquiz) + Me.gbquiz.Controls.Add(Me.cmdanswerquiz) + Me.gbquiz.Controls.Add(Me.lblfilenamequiz) + Me.gbquiz.Controls.Add(Me.cmdcutquiz) + Me.gbquiz.Controls.Add(Me.cmdupquiz) + Me.gbquiz.Controls.Add(Me.cmddownquiz) + Me.gbquiz.Controls.Add(Me.cmdaddquiz) + Me.gbquiz.Controls.Add(Me.dgvquiz) + Me.gbquiz.Controls.Add(Me.cmdplayquiz) + Me.gbquiz.Controls.Add(Me.cmdstopquiz) + Me.gbquiz.Controls.Add(Me.Label195) + Me.gbquiz.Location = New System.Drawing.Point(3, 3) + Me.gbquiz.Name = "gbquiz" + Me.gbquiz.Size = New System.Drawing.Size(660, 605) + Me.gbquiz.TabIndex = 714 + Me.gbquiz.TabStop = False + Me.gbquiz.Text = " " + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.EditToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(9, 80) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(84, 24) + Me.MenuStrip1.TabIndex = 1181 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'FileToolStripMenuItem + ' + Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.SaveToolStripMenuItem}) + Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" + Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20) + Me.FileToolStripMenuItem.Text = "File" + ' + 'NewToolStripMenuItem + ' + Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" + Me.NewToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.NewToolStripMenuItem.Text = "New" + ' + 'OpenToolStripMenuItem + ' + Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" + Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.OpenToolStripMenuItem.Text = "Open" + ' + 'SaveToolStripMenuItem + ' + Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" + Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.SaveToolStripMenuItem.Text = "Save" + ' + 'EditToolStripMenuItem + ' + Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CutToolStripMenuItem, Me.CopyToolStripMenuItem, Me.PasteToolStripMenuItem}) + Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem" + Me.EditToolStripMenuItem.Size = New System.Drawing.Size(39, 20) + Me.EditToolStripMenuItem.Text = "Edit" + ' + 'CutToolStripMenuItem + ' + Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem" + Me.CutToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.CutToolStripMenuItem.Text = "Cut" + ' + 'CopyToolStripMenuItem + ' + Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem" + Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.CopyToolStripMenuItem.Text = "Copy" + ' + 'PasteToolStripMenuItem + ' + Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem" + Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.PasteToolStripMenuItem.Text = "Paste" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(12, 22) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(80, 13) + Me.Label3.TabIndex = 1180 + Me.Label3.Text = "Template folder" + ' + 'txtQuizTemplate + ' + Me.txtQuizTemplate.Location = New System.Drawing.Point(98, 19) + Me.txtQuizTemplate.Name = "txtQuizTemplate" + Me.txtQuizTemplate.Size = New System.Drawing.Size(226, 20) + Me.txtQuizTemplate.TabIndex = 1179 + Me.txtQuizTemplate.Text = "cmp/quiz" + ' + 'cmdplayanswerquiz + ' + Me.cmdplayanswerquiz.BackColor = System.Drawing.Color.Green + Me.cmdplayanswerquiz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdplayanswerquiz.ForeColor = System.Drawing.Color.White + Me.cmdplayanswerquiz.Location = New System.Drawing.Point(410, 81) + Me.cmdplayanswerquiz.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayanswerquiz.Name = "cmdplayanswerquiz" + Me.cmdplayanswerquiz.Size = New System.Drawing.Size(86, 30) + Me.cmdplayanswerquiz.TabIndex = 718 + Me.cmdplayanswerquiz.Text = "Play Answer" + Me.cmdplayanswerquiz.UseVisualStyleBackColor = False + ' + 'cmdpausetimerquiz + ' + Me.cmdpausetimerquiz.BackColor = System.Drawing.Color.Yellow + Me.cmdpausetimerquiz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdpausetimerquiz.Location = New System.Drawing.Point(481, 39) + Me.cmdpausetimerquiz.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdpausetimerquiz.Name = "cmdpausetimerquiz" + Me.cmdpausetimerquiz.Size = New System.Drawing.Size(51, 30) + Me.cmdpausetimerquiz.TabIndex = 717 + Me.cmdpausetimerquiz.Text = "Pause" + Me.cmdpausetimerquiz.UseVisualStyleBackColor = False + ' + 'cmdstoptimerquiz + ' + Me.cmdstoptimerquiz.BackColor = System.Drawing.Color.Red + Me.cmdstoptimerquiz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdstoptimerquiz.ForeColor = System.Drawing.Color.White + Me.cmdstoptimerquiz.Location = New System.Drawing.Point(536, 39) + Me.cmdstoptimerquiz.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdstoptimerquiz.Name = "cmdstoptimerquiz" + Me.cmdstoptimerquiz.Size = New System.Drawing.Size(56, 30) + Me.cmdstoptimerquiz.TabIndex = 716 + Me.cmdstoptimerquiz.Text = "Stop" + Me.cmdstoptimerquiz.UseVisualStyleBackColor = False + ' + 'cmdplaytimerquiz + ' + Me.cmdplaytimerquiz.BackColor = System.Drawing.Color.Green + Me.cmdplaytimerquiz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdplaytimerquiz.ForeColor = System.Drawing.Color.White + Me.cmdplaytimerquiz.Location = New System.Drawing.Point(395, 39) + Me.cmdplaytimerquiz.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplaytimerquiz.Name = "cmdplaytimerquiz" + Me.cmdplaytimerquiz.Size = New System.Drawing.Size(81, 30) + Me.cmdplaytimerquiz.TabIndex = 715 + Me.cmdplaytimerquiz.Text = "Play Timer" + Me.cmdplaytimerquiz.UseVisualStyleBackColor = False + ' + 'cmbvideolayerquiz + ' + Me.cmbvideolayerquiz.FormattingEnabled = True + Me.cmbvideolayerquiz.Items.AddRange(New Object() {"301", "302", "303", "304", "305"}) + Me.cmbvideolayerquiz.Location = New System.Drawing.Point(519, 9) + Me.cmbvideolayerquiz.Name = "cmbvideolayerquiz" + Me.cmbvideolayerquiz.Size = New System.Drawing.Size(77, 21) + Me.cmbvideolayerquiz.TabIndex = 714 + Me.cmbvideolayerquiz.Text = "301" + ' + 'cmdanswerquiz + ' + Me.cmdanswerquiz.BackColor = System.Drawing.Color.Green + Me.cmdanswerquiz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdanswerquiz.ForeColor = System.Drawing.Color.White + Me.cmdanswerquiz.Location = New System.Drawing.Point(499, 81) + Me.cmdanswerquiz.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdanswerquiz.Name = "cmdanswerquiz" + Me.cmdanswerquiz.Size = New System.Drawing.Size(93, 30) + Me.cmdanswerquiz.TabIndex = 713 + Me.cmdanswerquiz.Text = "Show Answer" + Me.cmdanswerquiz.UseVisualStyleBackColor = False + ' + 'lblfilenamequiz + ' + Me.lblfilenamequiz.AutoSize = True + Me.lblfilenamequiz.Location = New System.Drawing.Point(11, 61) + Me.lblfilenamequiz.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblfilenamequiz.Name = "lblfilenamequiz" + Me.lblfilenamequiz.Size = New System.Drawing.Size(23, 13) + Me.lblfilenamequiz.TabIndex = 712 + Me.lblfilenamequiz.Text = "File" + ' + 'cmdcutquiz + ' + Me.cmdcutquiz.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdcutquiz.Image = Global.caspar_media_playback.My.Resources.Resources.minus + Me.cmdcutquiz.Location = New System.Drawing.Point(263, 82) + Me.cmdcutquiz.Name = "cmdcutquiz" + Me.cmdcutquiz.Size = New System.Drawing.Size(33, 22) + Me.cmdcutquiz.TabIndex = 490 + Me.cmdcutquiz.UseVisualStyleBackColor = True + ' + 'cmdupquiz + ' + Me.cmdupquiz.Image = CType(resources.GetObject("cmdupquiz.Image"), System.Drawing.Image) + Me.cmdupquiz.Location = New System.Drawing.Point(157, 82) + Me.cmdupquiz.Name = "cmdupquiz" + Me.cmdupquiz.Size = New System.Drawing.Size(28, 23) + Me.cmdupquiz.TabIndex = 488 + Me.cmdupquiz.UseVisualStyleBackColor = True + ' + 'cmddownquiz + ' + Me.cmddownquiz.Image = CType(resources.GetObject("cmddownquiz.Image"), System.Drawing.Image) + Me.cmddownquiz.Location = New System.Drawing.Point(185, 82) + Me.cmddownquiz.Name = "cmddownquiz" + Me.cmddownquiz.Size = New System.Drawing.Size(36, 23) + Me.cmddownquiz.TabIndex = 489 + Me.cmddownquiz.UseVisualStyleBackColor = True + ' + 'cmdaddquiz + ' + Me.cmdaddquiz.Image = CType(resources.GetObject("cmdaddquiz.Image"), System.Drawing.Image) + Me.cmdaddquiz.Location = New System.Drawing.Point(221, 82) + Me.cmdaddquiz.Name = "cmdaddquiz" + Me.cmdaddquiz.Size = New System.Drawing.Size(41, 23) + Me.cmdaddquiz.TabIndex = 487 + Me.cmdaddquiz.UseVisualStyleBackColor = True + ' + 'dgvquiz + ' + Me.dgvquiz.AllowDrop = True + Me.dgvquiz.AllowUserToOrderColumns = True + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.dgvquiz.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvquiz.BackgroundColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvquiz.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 + Me.dgvquiz.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvquiz.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn16, Me.DataGridViewCheckBoxColumn3}) + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvquiz.DefaultCellStyle = DataGridViewCellStyle3 + Me.dgvquiz.EditMode = System.Windows.Forms.DataGridViewEditMode.EditOnEnter + Me.dgvquiz.Location = New System.Drawing.Point(10, 117) + Me.dgvquiz.MultiSelect = False + Me.dgvquiz.Name = "dgvquiz" + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvquiz.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvquiz.RowHeadersWidth = 25 + Me.dgvquiz.Size = New System.Drawing.Size(644, 482) + Me.dgvquiz.TabIndex = 486 + ' + 'DataGridViewTextBoxColumn16 + ' + Me.DataGridViewTextBoxColumn16.Frozen = True + Me.DataGridViewTextBoxColumn16.HeaderText = "Quiz" + Me.DataGridViewTextBoxColumn16.MinimumWidth = 350 + Me.DataGridViewTextBoxColumn16.Name = "DataGridViewTextBoxColumn16" + Me.DataGridViewTextBoxColumn16.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewTextBoxColumn16.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable + Me.DataGridViewTextBoxColumn16.Width = 500 + ' + 'DataGridViewCheckBoxColumn3 + ' + Me.DataGridViewCheckBoxColumn3.FalseValue = "0" + Me.DataGridViewCheckBoxColumn3.FillWeight = 20.0! + Me.DataGridViewCheckBoxColumn3.HeaderText = "Answer" + Me.DataGridViewCheckBoxColumn3.Name = "DataGridViewCheckBoxColumn3" + Me.DataGridViewCheckBoxColumn3.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridViewCheckBoxColumn3.TrueValue = "1" + Me.DataGridViewCheckBoxColumn3.Width = 50 + ' + 'cmdplayquiz + ' + Me.cmdplayquiz.BackColor = System.Drawing.Color.Green + Me.cmdplayquiz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdplayquiz.ForeColor = System.Drawing.Color.White + Me.cmdplayquiz.Location = New System.Drawing.Point(303, 81) + Me.cmdplayquiz.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplayquiz.Name = "cmdplayquiz" + Me.cmdplayquiz.Size = New System.Drawing.Size(105, 30) + Me.cmdplayquiz.TabIndex = 434 + Me.cmdplayquiz.Text = "Play Question" + Me.cmdplayquiz.UseVisualStyleBackColor = False + ' + 'cmdstopquiz + ' + Me.cmdstopquiz.BackColor = System.Drawing.Color.Red + Me.cmdstopquiz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdstopquiz.ForeColor = System.Drawing.Color.White + Me.cmdstopquiz.Location = New System.Drawing.Point(592, 81) + Me.cmdstopquiz.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdstopquiz.Name = "cmdstopquiz" + Me.cmdstopquiz.Size = New System.Drawing.Size(44, 30) + Me.cmdstopquiz.TabIndex = 435 + Me.cmdstopquiz.Text = "Stop" + Me.cmdstopquiz.UseVisualStyleBackColor = False + ' + 'Label195 + ' + Me.Label195.AutoSize = True + Me.Label195.Location = New System.Drawing.Point(407, 12) + Me.Label195.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label195.Name = "Label195" + Me.Label195.Size = New System.Drawing.Size(108, 13) + Me.Label195.TabIndex = 431 + Me.Label195.Text = "video layer-flash layer" + ' + 'ucQuiz + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(668, 612) + Me.Controls.Add(Me.gbquiz) + Me.HideOnClose = True + Me.Name = "ucQuiz" + Me.Text = "Quiz" + Me.gbquiz.ResumeLayout(False) + Me.gbquiz.PerformLayout() + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + CType(Me.dgvquiz, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbquiz As System.Windows.Forms.GroupBox + Friend WithEvents cmdplayanswerquiz As System.Windows.Forms.Button + Friend WithEvents cmdpausetimerquiz As System.Windows.Forms.Button + Friend WithEvents cmdstoptimerquiz As System.Windows.Forms.Button + Friend WithEvents cmdplaytimerquiz As System.Windows.Forms.Button + Friend WithEvents cmbvideolayerquiz As System.Windows.Forms.ComboBox + Friend WithEvents cmdanswerquiz As System.Windows.Forms.Button + Friend WithEvents lblfilenamequiz As System.Windows.Forms.Label + Friend WithEvents cmdcutquiz As System.Windows.Forms.Button + Friend WithEvents cmdupquiz As System.Windows.Forms.Button + Friend WithEvents cmddownquiz As System.Windows.Forms.Button + Friend WithEvents cmdaddquiz As System.Windows.Forms.Button + Friend WithEvents dgvquiz As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn16 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewCheckBoxColumn3 As System.Windows.Forms.DataGridViewCheckBoxColumn + Friend WithEvents cmdplayquiz As System.Windows.Forms.Button + Friend WithEvents cmdstopquiz As System.Windows.Forms.Button + Friend WithEvents Label195 As System.Windows.Forms.Label + Friend WithEvents Label3 As Label + Friend WithEvents txtQuizTemplate As TextBox + Friend WithEvents MenuStrip1 As MenuStrip + Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem + Friend WithEvents NewToolStripMenuItem As ToolStripMenuItem + Friend WithEvents OpenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SaveToolStripMenuItem As ToolStripMenuItem + Friend WithEvents EditToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CutToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CopyToolStripMenuItem As ToolStripMenuItem + Friend WithEvents PasteToolStripMenuItem As ToolStripMenuItem +End Class diff --git a/CasparMediaPlayback/ucQuiz.resx b/CasparMediaPlayback/ucQuiz.resx new file mode 100644 index 0000000..d8d0a1b --- /dev/null +++ b/CasparMediaPlayback/ucQuiz.resx @@ -0,0 +1,170 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 743, 41 + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAA+klE + QVQ4T83RMWqEQBiG4a0EQRAEQRBEQRQERRsrSysbCytv4B3sPICVYOsVrDyCrVZiqTfQC3yB7JCNjFk2 + EsK+3cz8/9PMDX/Q/yBJkqDrOnI67ylSliVkWYZhGFjXldzS/Yj0fQ9FUT4RSZIQxzF5oTtFtm2D4zgH + RBRF1HVNJo6dIlmWQdM0ClFVFcuykKlHFNI0DXRdP0UEQUAURWTy0QGZpgmmaT5FeJ5HVVVk494Xsu87 + wjB8CeE4DuM4ks1vSJ7nsCzrZcT3fbJJkLZtYdv2rxCWZVEUxR2Z5xlBEFxCGIbBMAy4pWkK13UvI57n + 0V98pXdBgA8V7mE/Mzv3lQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABBElE + QVQ4T83RwapEYBjG8VmpKaWUUkqUKEVsrCytbCys3IF7sJsLsFK2bsHKJdiykiV3wA085xhfneMYkzPN + Yv4Lhff91dd3wRv6IMS2bVAUhev1CpqmwTAMWJYFx3HgeR6CIEAURciyDEVRoGkadF2HYRiwLAtRFOHS + NM3LiOu66Pt+Pc7tdnsJKctyPc79+Z3jOP9CkiQhm7+Qtm1PI57nYZ5nsvnndrIsO4V0XUc21nZX7Pv+ + U6QoCjL50w4ZhgGSJD1E4jgmU9t2yFKe5zvENE1M00Qmtj1EloIg2CB1XZM/+w6RcRyhquodSdOUfH3c + IbJUVRXCMCRvxz1FzvYGBPgCf+thP16YOusAAAAASUVORK5CYII= + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgFBgcGBQgHBgcJCAgJDBMMDAsLDBgREg4THBgdHRsYGxof + IywlHyEqIRobJjQnKi4vMTIxHiU2OjYwOiwwMTD/2wBDAQgJCQwKDBcMDBcwIBsgMDAwMDAwMDAwMDAw + MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDD/wAARCAARABEDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD17W9fgsopZJp4o0RWZFeQKZCozgZ61m+E/GEOtafDdI0cMzls + 23mhmABxnHX9KyPHvh2y1HdBqUJaSFZDaP5hQbmHHTryBWB8OPCyaZHbTXUAbXTvRmjlLrtJ446dO9dy + px5Dlc5cx67/AGlB6miqP9iP/wA9RRXPaHc2vMj8a/8AII/4FWb8P+s30ooraP8Au7MpfxUdhRRRXGdJ + /9k= + + + + True + + + True + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucQuiz.vb b/CasparMediaPlayback/ucQuiz.vb new file mode 100644 index 0000000..d0e1d3a --- /dev/null +++ b/CasparMediaPlayback/ucQuiz.vb @@ -0,0 +1,265 @@ +Imports System.IO + +Public Class ucQuiz + Private Sub cmdplayquiz_Click(sender As System.Object, e As System.EventArgs) Handles cmdplayquiz.Click + On Error Resume Next + CasparCGDataCollection.Clear() + Dim cr As Integer = dgvquiz.CurrentRow.Index + Dim array() As Byte = System.Text.Encoding.UTF8.GetBytes(dgvquiz.Rows(cr).Cells(0).Value) + CasparCGDataCollection.SetData("xf0", System.Convert.ToBase64String(array)) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmbvideolayerquiz.Text), Int(cmbvideolayerquiz.Text), txtQuizTemplate.Text & "/quiz", True, CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + Private Sub cmdstopquiz_Click(sender As System.Object, e As System.EventArgs) Handles cmdstopquiz.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(Int(cmbvideolayerquiz.Text), Int(cmbvideolayerquiz.Text)) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(Int(cmbvideolayerquiz.Text) + 1, Int(cmbvideolayerquiz.Text) + 1) + End Sub + + Private Sub cmdanswerquiz_Click(sender As System.Object, e As System.EventArgs) Handles cmdanswerquiz.Click + On Error Resume Next + Dim cr As Integer = dgvquiz.CurrentRow.Index + If dgvquiz.Rows(cr + 1).Cells(1).Value = 1 Then + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Invoke(Int(cmbvideolayerquiz.Text) + 1, Int(cmbvideolayerquiz.Text) + 1, "A") + + ElseIf dgvquiz.Rows(cr + 2).Cells(1).Value = 1 Then + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Invoke(Int(cmbvideolayerquiz.Text) + 1, Int(cmbvideolayerquiz.Text) + 1, "B") + + ElseIf dgvquiz.Rows(cr + 3).Cells(1).Value = 1 Then + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Invoke(Int(cmbvideolayerquiz.Text) + 1, Int(cmbvideolayerquiz.Text) + 1, "C") + + ElseIf dgvquiz.Rows(cr + 4).Cells(1).Value = 1 Then + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Invoke(Int(cmbvideolayerquiz.Text) + 1, Int(cmbvideolayerquiz.Text) + 1, "D") + + End If + End Sub + + Private Sub tsnewquiz_Click(sender As System.Object, e As System.EventArgs) + End Sub + Sub newdgvquiz() + + On Error Resume Next + dgvquiz.Rows.Clear() + dgvquiz.Rows.Add(10) + lblfilenamequiz.Text = "new" + End Sub + + Private Sub tsopenquiz_Click(sender As System.Object, e As System.EventArgs) + End Sub + Sub openfilequiz() + On Error Resume Next + Dim ofd2 As New OpenFileDialog + ofd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + ofd2.InitialDirectory = "c:\casparcg\mydata\quiz\" + If (ofd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sr As StreamReader = New StreamReader(ofd2.FileName) + 'clear list + dgvquiz.Rows.Clear() + 'Loop through and add list to the file. + Dim g As Integer = 0 + Dim li As String + Do Until sr.EndOfStream = True + li = sr.ReadLine() + dgvquiz.Rows.Add() + Dim xyz As Array = Split(li, Chr(2)) + dgvquiz.Rows(g).Cells(0).Value = xyz(0) + dgvquiz.Rows(g).Cells(1).Value = xyz(1) + g = g + 1 + Loop + sr.Close() + End Using + lblfilenamequiz.Text = ofd2.FileName + End If + End Sub + + Private Sub tssavequiz_Click(sender As System.Object, e As System.EventArgs) + + End Sub + Sub savefilequiz() + On Error Resume Next + osd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + osd2.InitialDirectory = "c:\casparcg\mydata\quiz\" + osd2.FileName = "" + If (osd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sw As StreamWriter = New StreamWriter(osd2.FileName) + If dgvquiz.Rows.Count = 0 Then + sw.Write("") + Else + 'Loop through and add list to the file. + Dim f As Integer = 0 + Do Until f = dgvquiz.Rows.Count + If dgvquiz.Rows(f).Cells(1).Value = False Then dgvquiz.Rows(f).Cells(1).Value = "0" + sw.WriteLine(dgvquiz.Rows(f).Cells(0).Value & Chr(2) & dgvquiz.Rows(f).Cells(1).Value) + f = f + 1 + Loop + End If + sw.Close() + End Using + lblfilenamequiz.Text = osd2.FileName + End If + End Sub + Private Sub tscutquiz_Click(sender As System.Object, e As System.EventArgs) + + End Sub + Sub deleteclipquiz() + On Error Resume Next + dgvquiz.Rows.RemoveAt(dgvquiz.CurrentRow.Index) + End Sub + + Private Sub cmdaddquiz_Click(sender As System.Object, e As System.EventArgs) Handles cmdaddquiz.Click + On Error Resume Next + clipinsertquiz() + End Sub + Sub clipinsertquiz() + On Error Resume Next + dgvquiz.Rows.Insert(dgvquiz.CurrentRow.Index) + dgvquiz.Rows(dgvquiz.CurrentRow.Index - 1).Cells(3).Value = 1 + End Sub + + Private Sub cmddownquiz_Click(sender As System.Object, e As System.EventArgs) Handles cmddownquiz.Click + On Error Resume Next + clipmovedownquiz() + End Sub + Sub clipmovedownquiz() + On Error Resume Next + If Me.dgvquiz.CurrentCell.RowIndex <> dgvquiz.Rows.Count - 2 Then + Dim curRow As Integer = Me.dgvquiz.CurrentCell.RowIndex + Dim myRow As DataGridViewRow = Me.dgvquiz.CurrentRow + Me.dgvquiz.Rows.Remove(myRow) + Me.dgvquiz.Rows.Insert(curRow + 1, myRow) + dgvquiz.CurrentCell = dgvquiz.Rows(curRow + 1).Cells(0) + + End If + End Sub + + Private Sub cmdupquiz_Click(sender As System.Object, e As System.EventArgs) Handles cmdupquiz.Click + On Error Resume Next + clipmoveupquiz() + End Sub + Sub clipmoveupquiz() + On Error Resume Next + If Me.dgvquiz.CurrentCell.RowIndex <> 0 Then + Dim curRow As Integer = Me.dgvquiz.CurrentCell.RowIndex + Dim myRow As DataGridViewRow = Me.dgvquiz.CurrentRow + Me.dgvquiz.Rows.Remove(myRow) + Me.dgvquiz.Rows.Insert(curRow - 1, myRow) + dgvquiz.CurrentCell = dgvquiz.Rows(curRow - 1).Cells(0) + End If + End Sub + + Private Sub tspastequiz_Click(sender As System.Object, e As System.EventArgs) + + End Sub + Sub insertcopiedquiz() + On Error Resume Next + Dim curRow As Integer = Me.dgvquiz.CurrentCell.RowIndex + dgvquiz.Rows.Insert(dgvquiz.CurrentRow.Index) + dgvquiz.CurrentCell = dgvquiz.Rows(curRow).Cells(0) + Me.dgvquiz.Item(0, curRow).Value = tempRow.Cells(0).Value + Me.dgvquiz.Item(1, curRow).Value = tempRow.Cells(1).Value + End Sub + Private Sub cmdcutquiz_Click(sender As System.Object, e As System.EventArgs) Handles cmdcutquiz.Click + On Error Resume Next + deleteclipquiz() + End Sub + + Private Sub tscopyquiz_Click(sender As System.Object, e As System.EventArgs) + + End Sub + Sub copyquiz() + On Error Resume Next + tempRow = Me.dgvquiz.CurrentRow + End Sub + + Private Sub cmdplaytimerquiz_Click(sender As System.Object, e As System.EventArgs) Handles cmdplaytimerquiz.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmbvideolayerquiz.Text) + 2, Int(cmbvideolayerquiz.Text) + 2, txtQuizTemplate.Text & "/timer", True, CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub cmdstoptimerquiz_Click(sender As System.Object, e As System.EventArgs) Handles cmdstoptimerquiz.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(Int(cmbvideolayerquiz.Text) + 2, Int(cmbvideolayerquiz.Text) + 2) + + End Sub + + Private Sub cmdpausetimerquiz_Click(sender As System.Object, e As System.EventArgs) Handles cmdpausetimerquiz.Click + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("stoptimer", "") + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmbvideolayerquiz.Text) + 2, Int(cmbvideolayerquiz.Text) + 2, CasparCGDataCollection) + + End Sub + Private Sub cmdplayanswerquiz_Click(sender As System.Object, e As System.EventArgs) Handles cmdplayanswerquiz.Click + On Error Resume Next + CasparCGDataCollection.Clear() + + Dim cr As Integer = dgvquiz.CurrentRow.Index + Dim array1() As Byte = System.Text.Encoding.UTF8.GetBytes("A: " & dgvquiz.Rows(cr + 1).Cells(0).Value) + Dim array2() As Byte = System.Text.Encoding.UTF8.GetBytes("B: " & dgvquiz.Rows(cr + 2).Cells(0).Value) + Dim array3() As Byte = System.Text.Encoding.UTF8.GetBytes("C: " & dgvquiz.Rows(cr + 3).Cells(0).Value) + Dim array4() As Byte = System.Text.Encoding.UTF8.GetBytes("D: " & dgvquiz.Rows(cr + 4).Cells(0).Value) + + + CasparCGDataCollection.SetData("xf1", System.Convert.ToBase64String(array1)) + CasparCGDataCollection.SetData("xf2", System.Convert.ToBase64String(array2)) + CasparCGDataCollection.SetData("xf3", System.Convert.ToBase64String(array3)) + CasparCGDataCollection.SetData("xf4", System.Convert.ToBase64String(array4)) + + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmbvideolayerquiz.Text) + 1, Int(cmbvideolayerquiz.Text) + 1, txtQuizTemplate.Text & "/quiz1", True, CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub cmdhidequiz_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub + Sub initialisquizdata() + On Error Resume Next + dgvquiz.Rows.Add(10) + dgvquiz.Item(0, 0).Value = "Where is Mumbai? " + dgvquiz.Item(0, 1).Value = "America" + dgvquiz.Item(0, 2).Value = "England" + dgvquiz.Item(0, 3).Value = "India" + dgvquiz.Item(0, 4).Value = "Japan" + dgvquiz.Item(1, 3).Value = 1 + End Sub + + Private Sub ucQuiz_Load(sender As Object, e As EventArgs) Handles MyBase.Load + initialisquizdata() + End Sub + + Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click + On Error Resume Next + newdgvquiz() + End Sub + + Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click + On Error Resume Next + openfilequiz() + End Sub + + Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click + On Error Resume Next + savefilequiz() + End Sub + + Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click + On Error Resume Next + deleteclipquiz() + End Sub + + Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click + On Error Resume Next + copyquiz() + End Sub + + Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click + On Error Resume Next + insertcopiedquiz() + End Sub + + Private Sub MenuStrip1_MouseHover(sender As Object, e As EventArgs) Handles MenuStrip1.MouseHover + MakeMenuDropDownWhenParrented(sender) + End Sub +End Class diff --git a/CasparMediaPlayback/ucRSS.Designer.vb b/CasparMediaPlayback/ucRSS.Designer.vb new file mode 100644 index 0000000..641e53f --- /dev/null +++ b/CasparMediaPlayback/ucRSS.Designer.vb @@ -0,0 +1,638 @@ + _ +Partial Class ucRssFeed + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.gbrss = New System.Windows.Forms.GroupBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtbnTemplate = New System.Windows.Forms.TextBox() + Me.txtbreakingnewsupdateinterval = New System.Windows.Forms.TextBox() + Me.Label113 = New System.Windows.Forms.Label() + Me.cmdplaybreakingnews = New System.Windows.Forms.Button() + Me.cmdstopbrekingnews = New System.Windows.Forms.Button() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Label50 = New System.Windows.Forms.Label() + Me.cmblayertimerss = New System.Windows.Forms.ComboBox() + Me.cmdhidetime = New System.Windows.Forms.Button() + Me.cmdshowtime = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtRSSTemplate = New System.Windows.Forms.TextBox() + Me.cmdrssmanuallyadd = New System.Windows.Forms.Button() + Me.nrsstable = New System.Windows.Forms.NumericUpDown() + Me.Label167 = New System.Windows.Forms.Label() + Me.cmdselectallrssfeed = New System.Windows.Forms.Button() + Me.cmddeselectallrssfedd = New System.Windows.Forms.Button() + Me.chkrssdescription = New System.Windows.Forms.CheckBox() + Me.chkrsstitle = New System.Windows.Forms.CheckBox() + Me.chkautomaticupdaterss = New System.Windows.Forms.CheckBox() + Me.chkautomaticreadrss = New System.Windows.Forms.CheckBox() + Me.txtrsstimerinterval = New System.Windows.Forms.TextBox() + Me.lblrsstimerinterval = New System.Windows.Forms.Label() + Me.txtrssdelemeter = New System.Windows.Forms.TextBox() + Me.lblrssdelimeter = New System.Windows.Forms.Label() + Me.cmdrssresume = New System.Windows.Forms.Button() + Me.cmdrsspause = New System.Windows.Forms.Button() + Me.cmdrssplay = New System.Windows.Forms.Button() + Me.cmdrssstop = New System.Windows.Forms.Button() + Me.nrssspeed = New System.Windows.Forms.NumericUpDown() + Me.lblrssspeed = New System.Windows.Forms.Label() + Me.cmbrssvideoflashlayer = New System.Windows.Forms.ComboBox() + Me.lblrssvideoflashlayer = New System.Windows.Forms.Label() + Me.dgvrss = New System.Windows.Forms.DataGridView() + Me.cmdrssread = New System.Windows.Forms.Button() + Me.lblrssaddress = New System.Windows.Forms.Label() + Me.txtrssaddress = New System.Windows.Forms.TextBox() + Me.tmrshowdatarss = New System.Windows.Forms.Timer(Me.components) + Me.tmrshowdata = New System.Windows.Forms.Timer(Me.components) + Me.gbrss.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + CType(Me.nrsstable, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nrssspeed, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvrss, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbrss + ' + Me.gbrss.BackColor = System.Drawing.Color.RosyBrown + Me.gbrss.Controls.Add(Me.GroupBox1) + Me.gbrss.Controls.Add(Me.GroupBox2) + Me.gbrss.Controls.Add(Me.Label1) + Me.gbrss.Controls.Add(Me.txtRSSTemplate) + Me.gbrss.Controls.Add(Me.cmdrssmanuallyadd) + Me.gbrss.Controls.Add(Me.nrsstable) + Me.gbrss.Controls.Add(Me.Label167) + Me.gbrss.Controls.Add(Me.cmdselectallrssfeed) + Me.gbrss.Controls.Add(Me.cmddeselectallrssfedd) + Me.gbrss.Controls.Add(Me.chkrssdescription) + Me.gbrss.Controls.Add(Me.chkrsstitle) + Me.gbrss.Controls.Add(Me.chkautomaticupdaterss) + Me.gbrss.Controls.Add(Me.chkautomaticreadrss) + Me.gbrss.Controls.Add(Me.txtrsstimerinterval) + Me.gbrss.Controls.Add(Me.lblrsstimerinterval) + Me.gbrss.Controls.Add(Me.txtrssdelemeter) + Me.gbrss.Controls.Add(Me.lblrssdelimeter) + Me.gbrss.Controls.Add(Me.cmdrssresume) + Me.gbrss.Controls.Add(Me.cmdrsspause) + Me.gbrss.Controls.Add(Me.cmdrssplay) + Me.gbrss.Controls.Add(Me.cmdrssstop) + Me.gbrss.Controls.Add(Me.nrssspeed) + Me.gbrss.Controls.Add(Me.lblrssspeed) + Me.gbrss.Controls.Add(Me.cmbrssvideoflashlayer) + Me.gbrss.Controls.Add(Me.lblrssvideoflashlayer) + Me.gbrss.Controls.Add(Me.dgvrss) + Me.gbrss.Controls.Add(Me.cmdrssread) + Me.gbrss.Controls.Add(Me.lblrssaddress) + Me.gbrss.Controls.Add(Me.txtrssaddress) + Me.gbrss.Location = New System.Drawing.Point(3, 3) + Me.gbrss.Name = "gbrss" + Me.gbrss.Size = New System.Drawing.Size(660, 605) + Me.gbrss.TabIndex = 619 + Me.gbrss.TabStop = False + Me.gbrss.Text = " " + ' + 'GroupBox1 + ' + Me.GroupBox1.BackColor = System.Drawing.Color.LightCoral + Me.GroupBox1.Controls.Add(Me.Label2) + Me.GroupBox1.Controls.Add(Me.txtbnTemplate) + Me.GroupBox1.Controls.Add(Me.txtbreakingnewsupdateinterval) + Me.GroupBox1.Controls.Add(Me.Label113) + Me.GroupBox1.Controls.Add(Me.cmdplaybreakingnews) + Me.GroupBox1.Controls.Add(Me.cmdstopbrekingnews) + Me.GroupBox1.Location = New System.Drawing.Point(6, 524) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(352, 70) + Me.GroupBox1.TabIndex = 729 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Show as Breaking news" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(0, 44) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(51, 13) + Me.Label2.TabIndex = 727 + Me.Label2.Text = "Template" + ' + 'txtbnTemplate + ' + Me.txtbnTemplate.Location = New System.Drawing.Point(53, 42) + Me.txtbnTemplate.Name = "txtbnTemplate" + Me.txtbnTemplate.Size = New System.Drawing.Size(293, 20) + Me.txtbnTemplate.TabIndex = 726 + Me.txtbnTemplate.Text = "CMP/BreakingNews/BreakingNews" + ' + 'txtbreakingnewsupdateinterval + ' + Me.txtbreakingnewsupdateinterval.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtbreakingnewsupdateinterval", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtbreakingnewsupdateinterval.Location = New System.Drawing.Point(114, 19) + Me.txtbreakingnewsupdateinterval.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.txtbreakingnewsupdateinterval.Name = "txtbreakingnewsupdateinterval" + Me.txtbreakingnewsupdateinterval.Size = New System.Drawing.Size(32, 20) + Me.txtbreakingnewsupdateinterval.TabIndex = 725 + Me.txtbreakingnewsupdateinterval.Text = "4000" + ' + 'Label113 + ' + Me.Label113.AutoSize = True + Me.Label113.Location = New System.Drawing.Point(7, 23) + Me.Label113.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label113.Name = "Label113" + Me.Label113.Size = New System.Drawing.Size(99, 13) + Me.Label113.TabIndex = 724 + Me.Label113.Text = "Update Interval(ms)" + ' + 'cmdplaybreakingnews + ' + Me.cmdplaybreakingnews.BackColor = System.Drawing.Color.Green + Me.cmdplaybreakingnews.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdplaybreakingnews.ForeColor = System.Drawing.Color.White + Me.cmdplaybreakingnews.Location = New System.Drawing.Point(233, 10) + Me.cmdplaybreakingnews.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdplaybreakingnews.Name = "cmdplaybreakingnews" + Me.cmdplaybreakingnews.Size = New System.Drawing.Size(51, 30) + Me.cmdplaybreakingnews.TabIndex = 722 + Me.cmdplaybreakingnews.Text = "Play" + Me.cmdplaybreakingnews.UseVisualStyleBackColor = False + ' + 'cmdstopbrekingnews + ' + Me.cmdstopbrekingnews.BackColor = System.Drawing.Color.Red + Me.cmdstopbrekingnews.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdstopbrekingnews.ForeColor = System.Drawing.Color.White + Me.cmdstopbrekingnews.Location = New System.Drawing.Point(292, 9) + Me.cmdstopbrekingnews.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdstopbrekingnews.Name = "cmdstopbrekingnews" + Me.cmdstopbrekingnews.Size = New System.Drawing.Size(54, 30) + Me.cmdstopbrekingnews.TabIndex = 723 + Me.cmdstopbrekingnews.Text = "Stop" + Me.cmdstopbrekingnews.UseVisualStyleBackColor = False + ' + 'GroupBox2 + ' + Me.GroupBox2.BackColor = System.Drawing.Color.Coral + Me.GroupBox2.Controls.Add(Me.Label50) + Me.GroupBox2.Controls.Add(Me.cmblayertimerss) + Me.GroupBox2.Controls.Add(Me.cmdhidetime) + Me.GroupBox2.Controls.Add(Me.cmdshowtime) + Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox2.Location = New System.Drawing.Point(364, 524) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(283, 70) + Me.GroupBox2.TabIndex = 728 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Time Day Date Month" + ' + 'Label50 + ' + Me.Label50.AutoSize = True + Me.Label50.Location = New System.Drawing.Point(3, 20) + Me.Label50.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(124, 15) + Me.Label50.TabIndex = 505 + Me.Label50.Text = "video layer-flash layer" + ' + 'cmblayertimerss + ' + Me.cmblayertimerss.FormattingEnabled = True + Me.cmblayertimerss.Items.AddRange(New Object() {"56", "57", "58", "59", "60"}) + Me.cmblayertimerss.Location = New System.Drawing.Point(127, 17) + Me.cmblayertimerss.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmblayertimerss.Name = "cmblayertimerss" + Me.cmblayertimerss.Size = New System.Drawing.Size(40, 23) + Me.cmblayertimerss.TabIndex = 504 + Me.cmblayertimerss.Text = "78" + ' + 'cmdhidetime + ' + Me.cmdhidetime.BackColor = System.Drawing.Color.Red + Me.cmdhidetime.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdhidetime.ForeColor = System.Drawing.Color.White + Me.cmdhidetime.Location = New System.Drawing.Point(232, 14) + Me.cmdhidetime.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdhidetime.Name = "cmdhidetime" + Me.cmdhidetime.Size = New System.Drawing.Size(47, 31) + Me.cmdhidetime.TabIndex = 503 + Me.cmdhidetime.Text = "Stop" + Me.cmdhidetime.UseVisualStyleBackColor = False + ' + 'cmdshowtime + ' + Me.cmdshowtime.BackColor = System.Drawing.Color.Green + Me.cmdshowtime.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdshowtime.ForeColor = System.Drawing.Color.White + Me.cmdshowtime.Location = New System.Drawing.Point(171, 14) + Me.cmdshowtime.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdshowtime.Name = "cmdshowtime" + Me.cmdshowtime.Size = New System.Drawing.Size(59, 29) + Me.cmdshowtime.TabIndex = 502 + Me.cmdshowtime.Text = "Play" + Me.cmdshowtime.UseVisualStyleBackColor = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(8, 25) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(51, 13) + Me.Label1.TabIndex = 721 + Me.Label1.Text = "Template" + ' + 'txtRSSTemplate + ' + Me.txtRSSTemplate.Location = New System.Drawing.Point(61, 22) + Me.txtRSSTemplate.Name = "txtRSSTemplate" + Me.txtRSSTemplate.Size = New System.Drawing.Size(375, 20) + Me.txtRSSTemplate.TabIndex = 720 + Me.txtRSSTemplate.Text = "CMP/rss/scroll" + ' + 'cmdrssmanuallyadd + ' + Me.cmdrssmanuallyadd.Location = New System.Drawing.Point(126, 162) + Me.cmdrssmanuallyadd.Name = "cmdrssmanuallyadd" + Me.cmdrssmanuallyadd.Size = New System.Drawing.Size(92, 23) + Me.cmdrssmanuallyadd.TabIndex = 719 + Me.cmdrssmanuallyadd.Text = "Manually Add" + Me.cmdrssmanuallyadd.UseVisualStyleBackColor = True + ' + 'nrsstable + ' + Me.nrsstable.Location = New System.Drawing.Point(488, 67) + Me.nrsstable.Name = "nrsstable" + Me.nrsstable.Size = New System.Drawing.Size(46, 20) + Me.nrsstable.TabIndex = 639 + Me.nrsstable.Value = New Decimal(New Integer() {2, 0, 0, 0}) + ' + 'Label167 + ' + Me.Label167.AutoSize = True + Me.Label167.Location = New System.Drawing.Point(451, 70) + Me.Label167.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label167.Name = "Label167" + Me.Label167.Size = New System.Drawing.Size(34, 13) + Me.Label167.TabIndex = 638 + Me.Label167.Text = "Table" + ' + 'cmdselectallrssfeed + ' + Me.cmdselectallrssfeed.Location = New System.Drawing.Point(493, 166) + Me.cmdselectallrssfeed.Name = "cmdselectallrssfeed" + Me.cmdselectallrssfeed.Size = New System.Drawing.Size(75, 23) + Me.cmdselectallrssfeed.TabIndex = 637 + Me.cmdselectallrssfeed.Text = "Select All" + Me.cmdselectallrssfeed.UseVisualStyleBackColor = True + ' + 'cmddeselectallrssfedd + ' + Me.cmddeselectallrssfedd.Location = New System.Drawing.Point(572, 165) + Me.cmddeselectallrssfedd.Name = "cmddeselectallrssfedd" + Me.cmddeselectallrssfedd.Size = New System.Drawing.Size(75, 23) + Me.cmddeselectallrssfedd.TabIndex = 636 + Me.cmddeselectallrssfedd.Text = "Deselect All" + Me.cmddeselectallrssfedd.UseVisualStyleBackColor = True + ' + 'chkrssdescription + ' + Me.chkrssdescription.AutoSize = True + Me.chkrssdescription.Checked = Global.caspar_media_playback.My.MySettings.Default.chkrssdescription + Me.chkrssdescription.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.caspar_media_playback.My.MySettings.Default, "chkrssdescription", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.chkrssdescription.Location = New System.Drawing.Point(258, 170) + Me.chkrssdescription.Name = "chkrssdescription" + Me.chkrssdescription.Size = New System.Drawing.Size(79, 17) + Me.chkrssdescription.TabIndex = 635 + Me.chkrssdescription.Text = "Description" + Me.chkrssdescription.UseVisualStyleBackColor = True + ' + 'chkrsstitle + ' + Me.chkrsstitle.AutoSize = True + Me.chkrsstitle.Checked = Global.caspar_media_playback.My.MySettings.Default.chkrsstitle + Me.chkrsstitle.CheckState = System.Windows.Forms.CheckState.Checked + Me.chkrsstitle.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.caspar_media_playback.My.MySettings.Default, "chkrsstitle", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.chkrsstitle.Location = New System.Drawing.Point(61, 170) + Me.chkrsstitle.Name = "chkrsstitle" + Me.chkrsstitle.Size = New System.Drawing.Size(46, 17) + Me.chkrsstitle.TabIndex = 634 + Me.chkrsstitle.Text = "Title" + Me.chkrsstitle.UseVisualStyleBackColor = True + ' + 'chkautomaticupdaterss + ' + Me.chkautomaticupdaterss.AutoSize = True + Me.chkautomaticupdaterss.Checked = Global.caspar_media_playback.My.MySettings.Default.chkautomaticupdaterss + Me.chkautomaticupdaterss.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.caspar_media_playback.My.MySettings.Default, "chkautomaticupdaterss", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.chkautomaticupdaterss.Location = New System.Drawing.Point(542, 142) + Me.chkautomaticupdaterss.Name = "chkautomaticupdaterss" + Me.chkautomaticupdaterss.Size = New System.Drawing.Size(111, 17) + Me.chkautomaticupdaterss.TabIndex = 633 + Me.chkautomaticupdaterss.Text = "Automatic Update" + Me.chkautomaticupdaterss.UseVisualStyleBackColor = True + ' + 'chkautomaticreadrss + ' + Me.chkautomaticreadrss.AutoSize = True + Me.chkautomaticreadrss.Checked = Global.caspar_media_playback.My.MySettings.Default.chkautomaticreadrss + Me.chkautomaticreadrss.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.caspar_media_playback.My.MySettings.Default, "chkautomaticreadrss", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.chkautomaticreadrss.Location = New System.Drawing.Point(542, 119) + Me.chkautomaticreadrss.Name = "chkautomaticreadrss" + Me.chkautomaticreadrss.Size = New System.Drawing.Size(102, 17) + Me.chkautomaticreadrss.TabIndex = 632 + Me.chkautomaticreadrss.Text = "Automatic Read" + Me.chkautomaticreadrss.UseVisualStyleBackColor = True + ' + 'txtrsstimerinterval + ' + Me.txtrsstimerinterval.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtrsstimerinterval", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtrsstimerinterval.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtrsstimerinterval.Location = New System.Drawing.Point(161, 126) + Me.txtrsstimerinterval.Name = "txtrsstimerinterval" + Me.txtrsstimerinterval.Size = New System.Drawing.Size(69, 22) + Me.txtrsstimerinterval.TabIndex = 631 + Me.txtrsstimerinterval.Text = "10000" + Me.txtrsstimerinterval.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblrsstimerinterval + ' + Me.lblrsstimerinterval.AutoSize = True + Me.lblrsstimerinterval.Location = New System.Drawing.Point(5, 130) + Me.lblrsstimerinterval.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblrsstimerinterval.Name = "lblrsstimerinterval" + Me.lblrsstimerinterval.Size = New System.Drawing.Size(152, 13) + Me.lblrsstimerinterval.TabIndex = 630 + Me.lblrsstimerinterval.Text = "Read and Update Interval (ms)" + ' + 'txtrssdelemeter + ' + Me.txtrssdelemeter.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "rss_delimeter", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtrssdelemeter.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtrssdelemeter.Location = New System.Drawing.Point(162, 102) + Me.txtrssdelemeter.Name = "txtrssdelemeter" + Me.txtrssdelemeter.Size = New System.Drawing.Size(69, 22) + Me.txtrssdelemeter.TabIndex = 627 + Me.txtrssdelemeter.Text = Global.caspar_media_playback.My.MySettings.Default.rss_delimeter + Me.txtrssdelemeter.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblrssdelimeter + ' + Me.lblrssdelimeter.AutoSize = True + Me.lblrssdelimeter.Location = New System.Drawing.Point(33, 106) + Me.lblrssdelimeter.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblrssdelimeter.Name = "lblrssdelimeter" + Me.lblrssdelimeter.Size = New System.Drawing.Size(122, 13) + Me.lblrssdelimeter.TabIndex = 626 + Me.lblrssdelimeter.Text = "Delimeter between items" + ' + 'cmdrssresume + ' + Me.cmdrssresume.BackColor = System.Drawing.Color.Yellow + Me.cmdrssresume.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdrssresume.Location = New System.Drawing.Point(367, 134) + Me.cmdrssresume.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdrssresume.Name = "cmdrssresume" + Me.cmdrssresume.Size = New System.Drawing.Size(79, 30) + Me.cmdrssresume.TabIndex = 625 + Me.cmdrssresume.Text = "Resume" + Me.cmdrssresume.UseVisualStyleBackColor = False + ' + 'cmdrsspause + ' + Me.cmdrsspause.BackColor = System.Drawing.Color.Yellow + Me.cmdrsspause.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdrsspause.Location = New System.Drawing.Point(295, 133) + Me.cmdrsspause.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdrsspause.Name = "cmdrsspause" + Me.cmdrsspause.Size = New System.Drawing.Size(64, 30) + Me.cmdrsspause.TabIndex = 624 + Me.cmdrsspause.Text = "Pause" + Me.cmdrsspause.UseVisualStyleBackColor = False + ' + 'cmdrssplay + ' + Me.cmdrssplay.BackColor = System.Drawing.Color.Green + Me.cmdrssplay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdrssplay.ForeColor = System.Drawing.Color.White + Me.cmdrssplay.Location = New System.Drawing.Point(239, 134) + Me.cmdrssplay.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdrssplay.Name = "cmdrssplay" + Me.cmdrssplay.Size = New System.Drawing.Size(52, 30) + Me.cmdrssplay.TabIndex = 622 + Me.cmdrssplay.Text = "Play" + Me.cmdrssplay.UseVisualStyleBackColor = False + ' + 'cmdrssstop + ' + Me.cmdrssstop.BackColor = System.Drawing.Color.Red + Me.cmdrssstop.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdrssstop.ForeColor = System.Drawing.Color.White + Me.cmdrssstop.Location = New System.Drawing.Point(454, 134) + Me.cmdrssstop.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmdrssstop.Name = "cmdrssstop" + Me.cmdrssstop.Size = New System.Drawing.Size(55, 30) + Me.cmdrssstop.TabIndex = 623 + Me.cmdrssstop.Text = "Stop" + Me.cmdrssstop.UseVisualStyleBackColor = False + ' + 'nrssspeed + ' + Me.nrssspeed.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.caspar_media_playback.My.MySettings.Default, "nrssspeed", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.nrssspeed.Location = New System.Drawing.Point(282, 105) + Me.nrssspeed.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.nrssspeed.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) + Me.nrssspeed.Minimum = New Decimal(New Integer() {10, 0, 0, -2147483648}) + Me.nrssspeed.Name = "nrssspeed" + Me.nrssspeed.Size = New System.Drawing.Size(32, 20) + Me.nrssspeed.TabIndex = 621 + Me.nrssspeed.Value = New Decimal(New Integer() {3, 0, 0, 0}) + ' + 'lblrssspeed + ' + Me.lblrssspeed.AutoSize = True + Me.lblrssspeed.Location = New System.Drawing.Point(244, 104) + Me.lblrssspeed.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblrssspeed.Name = "lblrssspeed" + Me.lblrssspeed.Size = New System.Drawing.Size(36, 13) + Me.lblrssspeed.TabIndex = 620 + Me.lblrssspeed.Text = "speed" + ' + 'cmbrssvideoflashlayer + ' + Me.cmbrssvideoflashlayer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmbrssvideoflashlayer", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmbrssvideoflashlayer.FormattingEnabled = True + Me.cmbrssvideoflashlayer.Items.AddRange(New Object() {"76", "77", "78", "79", "80"}) + Me.cmbrssvideoflashlayer.Location = New System.Drawing.Point(572, 19) + Me.cmbrssvideoflashlayer.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.cmbrssvideoflashlayer.Name = "cmbrssvideoflashlayer" + Me.cmbrssvideoflashlayer.Size = New System.Drawing.Size(40, 21) + Me.cmbrssvideoflashlayer.TabIndex = 619 + Me.cmbrssvideoflashlayer.Text = "76" + ' + 'lblrssvideoflashlayer + ' + Me.lblrssvideoflashlayer.AutoSize = True + Me.lblrssvideoflashlayer.Location = New System.Drawing.Point(456, 22) + Me.lblrssvideoflashlayer.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblrssvideoflashlayer.Name = "lblrssvideoflashlayer" + Me.lblrssvideoflashlayer.Size = New System.Drawing.Size(108, 13) + Me.lblrssvideoflashlayer.TabIndex = 618 + Me.lblrssvideoflashlayer.Text = "video layer-flash layer" + ' + 'dgvrss + ' + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvrss.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvrss.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvrss.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvrss.Location = New System.Drawing.Point(13, 195) + Me.dgvrss.Name = "dgvrss" + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvrss.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvrss.Size = New System.Drawing.Size(636, 314) + Me.dgvrss.TabIndex = 617 + ' + 'cmdrssread + ' + Me.cmdrssread.Location = New System.Drawing.Point(546, 66) + Me.cmdrssread.Name = "cmdrssread" + Me.cmdrssread.Size = New System.Drawing.Size(75, 23) + Me.cmdrssread.TabIndex = 616 + Me.cmdrssread.Text = "Read" + Me.cmdrssread.UseVisualStyleBackColor = True + ' + 'lblrssaddress + ' + Me.lblrssaddress.AutoSize = True + Me.lblrssaddress.Location = New System.Drawing.Point(24, 66) + Me.lblrssaddress.Name = "lblrssaddress" + Me.lblrssaddress.Size = New System.Drawing.Size(29, 13) + Me.lblrssaddress.TabIndex = 615 + Me.lblrssaddress.Text = "URL" + ' + 'txtrssaddress + ' + Me.txtrssaddress.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "rss", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtrssaddress.Location = New System.Drawing.Point(59, 63) + Me.txtrssaddress.Name = "txtrssaddress" + Me.txtrssaddress.Size = New System.Drawing.Size(377, 20) + Me.txtrssaddress.TabIndex = 614 + Me.txtrssaddress.Text = Global.caspar_media_playback.My.MySettings.Default.rss + ' + 'tmrshowdatarss + ' + Me.tmrshowdatarss.Interval = 4000 + ' + 'tmrshowdata + ' + Me.tmrshowdata.Interval = 4000 + ' + 'ucRssFeed + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(667, 612) + Me.Controls.Add(Me.gbrss) + Me.HideOnClose = True + Me.Name = "ucRssFeed" + Me.Text = "RSS Feed" + Me.gbrss.ResumeLayout(False) + Me.gbrss.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.nrsstable, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nrssspeed, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvrss, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbrss As System.Windows.Forms.GroupBox + Friend WithEvents cmdrssmanuallyadd As System.Windows.Forms.Button + Friend WithEvents nrsstable As System.Windows.Forms.NumericUpDown + Friend WithEvents Label167 As System.Windows.Forms.Label + Friend WithEvents cmdselectallrssfeed As System.Windows.Forms.Button + Friend WithEvents cmddeselectallrssfedd As System.Windows.Forms.Button + Friend WithEvents chkrssdescription As System.Windows.Forms.CheckBox + Friend WithEvents chkrsstitle As System.Windows.Forms.CheckBox + Friend WithEvents chkautomaticupdaterss As System.Windows.Forms.CheckBox + Friend WithEvents chkautomaticreadrss As System.Windows.Forms.CheckBox + Friend WithEvents txtrsstimerinterval As System.Windows.Forms.TextBox + Friend WithEvents lblrsstimerinterval As System.Windows.Forms.Label + Friend WithEvents txtrssdelemeter As System.Windows.Forms.TextBox + Friend WithEvents lblrssdelimeter As System.Windows.Forms.Label + Friend WithEvents cmdrssresume As System.Windows.Forms.Button + Friend WithEvents cmdrsspause As System.Windows.Forms.Button + Friend WithEvents cmdrssplay As System.Windows.Forms.Button + Friend WithEvents cmdrssstop As System.Windows.Forms.Button + Friend WithEvents nrssspeed As System.Windows.Forms.NumericUpDown + Friend WithEvents lblrssspeed As System.Windows.Forms.Label + Friend WithEvents cmbrssvideoflashlayer As System.Windows.Forms.ComboBox + Friend WithEvents lblrssvideoflashlayer As System.Windows.Forms.Label + Friend WithEvents dgvrss As System.Windows.Forms.DataGridView + Friend WithEvents cmdrssread As System.Windows.Forms.Button + Friend WithEvents lblrssaddress As System.Windows.Forms.Label + Friend WithEvents txtrssaddress As System.Windows.Forms.TextBox + Friend WithEvents tmrshowdatarss As System.Windows.Forms.Timer + Friend WithEvents Label1 As Label + Friend WithEvents txtRSSTemplate As TextBox + Friend WithEvents cmdplaybreakingnews As Button + Friend WithEvents cmdstopbrekingnews As Button + Friend WithEvents txtbreakingnewsupdateinterval As TextBox + Friend WithEvents Label113 As Label + Friend WithEvents tmrshowdata As Timer + Friend WithEvents Label2 As Label + Friend WithEvents txtbnTemplate As TextBox + Friend WithEvents GroupBox2 As GroupBox + Friend WithEvents Label50 As Label + Friend WithEvents cmblayertimerss As ComboBox + Friend WithEvents cmdhidetime As Button + Friend WithEvents cmdshowtime As Button + Friend WithEvents GroupBox1 As GroupBox +End Class diff --git a/CasparMediaPlayback/ucRSS.resx b/CasparMediaPlayback/ucRSS.resx new file mode 100644 index 0000000..38343c0 --- /dev/null +++ b/CasparMediaPlayback/ucRSS.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 24, 17 + + + 163, 21 + + + 29 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucRSS.vb b/CasparMediaPlayback/ucRSS.vb new file mode 100644 index 0000000..e885bed --- /dev/null +++ b/CasparMediaPlayback/ucRSS.vb @@ -0,0 +1,250 @@ +'for rss +Imports System.Data.DataSet +Imports System.Web +Imports System.Data +'for rss ends +Public Class ucRssFeed + Dim ibreakingnews As Integer + Dim jbreakingnews As Integer + Dim kbreakingnews As Integer + + Dim ar1() As String + Dim ar2() As String + Dim ar3() As String + Dim ar4() As String + Dim ar5() As String + Dim ar6() As String + Private Sub cmdhidegbrssfeed_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub + Private Sub cmdrssmanuallyadd_Click(sender As Object, e As EventArgs) Handles cmdrssmanuallyadd.Click + On Error Resume Next + dgvrss.Rows.Clear() + dgvrss.Columns.Clear() + + If dgvrss.Columns.Count < 2 Then + dgvrss.Columns.Add("title", "title") + dgvrss.Columns.Add("description", "description") + Dim chkBox As New DataGridViewCheckBoxColumn(False) + + dgvrss.Columns.Insert(0, chkBox) + + For jrss = 0 To dgvrss.RowCount - 1 + dgvrss.Rows(jrss).Cells(0).Value = vbTrue + Next + dgvrss.Columns(0).Width = 40 + dgvrss.Columns(1).Width = 500 + + dgvrss.Rows.Add(1) + End If + + End Sub + + Private Sub cmdrssread_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrssread.Click + On Error Resume Next + readrssdata() + End Sub + Sub readrssdata() + On Error Resume Next + Dim objDataset As DataSet = New DataSet + dgvrss.Rows.Clear() + dgvrss.Columns.Clear() + + If Me.txtrssaddress.Text.Trim <> vbNullString Then + objDataset.ReadXml(Me.txtrssaddress.Text.Trim, System.Data.XmlReadMode.Auto) + Dim aa As Integer = nrsstable.Value + dgvrss.DataSource = objDataset.Tables(aa) + End If + objDataset.Dispose() + Dim chkBox As New DataGridViewCheckBoxColumn(False) + + dgvrss.Columns.Insert(0, chkBox) + + For jrss = 0 To dgvrss.RowCount - 1 + dgvrss.Rows(jrss).Cells(0).Value = vbTrue + Next + dgvrss.Columns(0).Width = 25 + dgvrss.Columns(1).Width = 500 + End Sub + + Private Sub cmdselectallrssfeed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdselectallrssfeed.Click + On Error Resume Next + For irss = 0 To dgvrss.Rows.Count - 1 + dgvrss.Rows(irss).Cells(0).Value = vbTrue + Next + End Sub + + Private Sub cmddeselectallrssfedd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddeselectallrssfedd.Click + On Error Resume Next + For irss = 0 To dgvrss.Rows.Count - 1 + dgvrss.Rows(irss).Cells(0).Value = vbFalse + Next + End Sub + Private Sub cmdrssplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrssplay.Click + On Error Resume Next + setdataofrss() + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmbrssvideoflashlayer.Text), Int(cmbrssvideoflashlayer.Text), txtRSSTemplate.Text, True, CasparCGDataCollection.ToAMCPEscapedXml) + tmrshowdatarss.Interval = txtrsstimerinterval.Text + tmrshowdatarss.Enabled = True + End Sub + Private Sub dgvrss_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgvrss.DataError + ' dummy code + End Sub + Sub setdataofrss() + + + Dim str As String = "" + + If chkrsstitle.Checked = True And chkrssdescription.Checked = False Then + For jrss = 0 To dgvrss.RowCount - 1 + If dgvrss.Rows(jrss).Cells(0).Value = vbTrue Then + str = str + Replace(dgvrss.Rows(jrss).Cells("title").Value, vbLf, vbNullString) + txtrssdelemeter.Text + End If + Next + End If + If chkrsstitle.Checked = False And chkrssdescription.Checked = True Then + For jrss = 0 To dgvrss.RowCount - 1 + If dgvrss.Rows(jrss).Cells(0).Value = vbTrue Then + str = str + Replace(dgvrss.Rows(jrss).Cells("description").Value, vbLf, vbNullString) + txtrssdelemeter.Text + End If + Next + End If + If chkrsstitle.Checked = True And chkrssdescription.Checked = True Then + For jrss = 0 To dgvrss.RowCount - 1 + If dgvrss.Rows(jrss).Cells(0).Value = vbTrue Then + str = str + Replace(dgvrss.Rows(jrss).Cells("title").Value, vbLf, vbNullString) + txtrssdelemeter.Text + Replace(dgvrss.Rows(jrss).Cells("description").Value, vbLf, vbNullString) + txtrssdelemeter.Text + End If + Next + End If + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("speed", nrssspeed.Value) + CasparCGDataCollection.SetData("scrolldata", str) + End Sub + + + + Sub updatedatarss() + On Error Resume Next + setdataofrss() + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmbrssvideoflashlayer.Text), Int(cmbrssvideoflashlayer.Text), CasparCGDataCollection) + + End Sub + Private Sub cmdrsspause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrsspause.Click + On Error Resume Next + nrssspeed.Value = 0 + End Sub + + Private Sub cmdrssresume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrssresume.Click + On Error Resume Next + nrssspeed.Value = 3 + End Sub + + Private Sub cmdrssstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrssstop.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(Int(cmbrssvideoflashlayer.Text), Int(cmbrssvideoflashlayer.Text)) + tmrshowdatarss.Enabled = False + End Sub + + Private Sub nrssspeed_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nrssspeed.ValueChanged + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("speed", nrssspeed.Value) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmbrssvideoflashlayer.Text), Int(cmbrssvideoflashlayer.Text), CasparCGDataCollection) + End Sub + + + Private Sub tmrshowdatarss_Tick(sender As Object, e As EventArgs) Handles tmrshowdatarss.Tick + On Error Resume Next + If chkautomaticupdaterss.Checked Then updatedatarss() + If chkautomaticreadrss.Checked Then readrssdata() + End Sub + + Private Sub cmdplaybreakingnews_Click(sender As Object, e As EventArgs) Handles cmdplaybreakingnews.Click + On Error Resume Next + makearray() + setdataofbreakingnews() + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmbrssvideoflashlayer.Text), Int(cmbrssvideoflashlayer.Text), txtbnTemplate.Text, True, CasparCGDataCollection.ToAMCPEscapedXml) + tmrshowdata.Interval = Val(txtbreakingnewsupdateinterval.Text) + tmrshowdata.Enabled = True + End Sub + Sub makearray() + On Error Resume Next + ibreakingnews = 0 + jbreakingnews = 0 + kbreakingnews = 0 + Dim ar1(dgvrss.Rows.Count - 1) As String + Dim ar3(dgvrss.Rows.Count - 1) As String + Dim ar5(dgvrss.Rows.Count - 1) As String + + For Me.ibreakingnews = 0 To dgvrss.Rows.Count - 1 + If dgvrss.Rows(ibreakingnews).Cells(0).Value = True Then + + ar1(jbreakingnews) = dgvrss.Rows(ibreakingnews).Cells(1).Value + ar3(jbreakingnews) = dgvrss.Rows(ibreakingnews).Cells(2).Value + ar5(jbreakingnews) = dgvrss.Rows(ibreakingnews).Cells(3).Value + + jbreakingnews = jbreakingnews + 1 + End If + Next + ar2 = ar1 + ar4 = ar3 + ar6 = ar5 + End Sub + + Sub setdataofbreakingnews() + On Error Resume Next + CasparCGDataCollection.Clear() + CasparCGDataCollection.SetData("xf0", (ar4(kbreakingnews))) + CasparCGDataCollection.SetData("xf1", (ar6(kbreakingnews))) + CasparCGDataCollection.SetData("xf2", (ar2(kbreakingnews))) + End Sub + Private Sub gbrss_Enter(sender As Object, e As EventArgs) Handles gbrss.Enter + + End Sub + + Private Sub tmrshowdata_Tick(sender As Object, e As EventArgs) Handles tmrshowdata.Tick + On Error Resume Next + If chkautomaticupdaterss.Checked Then updatedatarss() + If chkautomaticreadrss.Checked Then readrssdata() + + kbreakingnews = kbreakingnews + 1 + If ar2(kbreakingnews) = "" Then + makearray() + End If + updatedata() + End Sub + Sub updatedata() + On Error Resume Next + setdataofbreakingnews() + 'CasparDevice.Channels(cmbchannel.Text-1).CG.Invoke(Int(cmblayerbreakingnews.Text), Int(cmblayerbreakingnews.Text), "loop") + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Update(Int(cmbrssvideoflashlayer.Text), Int(cmbrssvideoflashlayer.Text), CasparCGDataCollection) + End Sub + + Private Sub cmdstopbrekingnews_Click(sender As Object, e As EventArgs) Handles cmdstopbrekingnews.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Invoke(Int(cmbrssvideoflashlayer.Text), Int(cmbrssvideoflashlayer.Text), "out") + Threading.Thread.Sleep(500) + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(Int(cmbrssvideoflashlayer.Text), Int(cmbrssvideoflashlayer.Text)) + tmrshowdata.Enabled = False + End Sub + + Private Sub cmdshowtime_Click(sender As Object, e As EventArgs) Handles cmdshowtime.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Add(Int(cmblayertimerss.Text), Int(cmblayertimerss.Text), ("CMP/time/time"), True, CasparCGDataCollection.ToAMCPEscapedXml) + + End Sub + + Private Sub cmdhidetime_Click(sender As Object, e As EventArgs) Handles cmdhidetime.Click + On Error Resume Next + CasparDevice.Channels(g_int_ChannelNumber - 1).CG.Stop(Int(cmblayertimerss.Text), Int(cmblayertimerss.Text)) + + End Sub + + Private Sub chkautomaticreadrss_CheckedChanged(sender As Object, e As EventArgs) Handles chkautomaticreadrss.CheckedChanged + + End Sub + + Private Sub chkautomaticupdaterss_CheckedChanged(sender As Object, e As EventArgs) Handles chkautomaticupdaterss.CheckedChanged + + End Sub +End Class diff --git a/CasparMediaPlayback/ucRecorder.Designer.vb b/CasparMediaPlayback/ucRecorder.Designer.vb new file mode 100644 index 0000000..ab0ee64 --- /dev/null +++ b/CasparMediaPlayback/ucRecorder.Designer.vb @@ -0,0 +1,1147 @@ + +Partial Class ucRecorder + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.gbrecording = New System.Windows.Forms.GroupBox() + Me.Label241 = New System.Windows.Forms.Label() + Me.Label240 = New System.Windows.Forms.Label() + Me.cmbaudiocodec = New System.Windows.Forms.ComboBox() + Me.cmbvideocodec = New System.Windows.Forms.ComboBox() + Me.cmbRecordingProfile = New System.Windows.Forms.ComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.pnlrecording = New System.Windows.Forms.Panel() + Me.cmbcasparcgwindowtitlerecording = New System.Windows.Forms.ComboBox() + Me.cmdoutcasparcgwindowrecording = New System.Windows.Forms.Button() + Me.cmdshowcasparcgwindowrecording = New System.Windows.Forms.Button() + Me.Label233 = New System.Windows.Forms.Label() + Me.cmbdecklinkforrecording = New System.Windows.Forms.ComboBox() + Me.cmdopenintrimmer = New System.Windows.Forms.Button() + Me.lblRecordingFolder = New System.Windows.Forms.Label() + Me.cmdOpenFolderforRecording = New System.Windows.Forms.Button() + Me.gbSynchRecording = New System.Windows.Forms.GroupBox() + Me.cmdstopsr = New System.Windows.Forms.Button() + Me.cmdstartsr = New System.Windows.Forms.Button() + Me.txtoutpointsr = New System.Windows.Forms.TextBox() + Me.txtinpointsr = New System.Windows.Forms.TextBox() + Me.cmdoutpointsr = New System.Windows.Forms.Button() + Me.cmdinpointsr = New System.Windows.Forms.Button() + Me.Label173 = New System.Windows.Forms.Label() + Me.cmdassembleoffvtr = New System.Windows.Forms.Button() + Me.cmdassembleonvtr = New System.Windows.Forms.Button() + Me.cmdplusoneframevtr = New System.Windows.Forms.Button() + Me.cmdminusoneframevtr = New System.Windows.Forms.Button() + Me.lbloutpointvtr = New System.Windows.Forms.Label() + Me.lblinpointvtr = New System.Windows.Forms.Label() + Me.cmdReviewvtr = New System.Windows.Forms.Button() + Me.cmdpreviewvtr = New System.Windows.Forms.Button() + Me.cmdautoeditvtr = New System.Windows.Forms.Button() + Me.cmdrecordvtr = New System.Windows.Forms.Button() + Me.lbljogvtr = New System.Windows.Forms.Label() + Me.HScrollBarjogvtr = New System.Windows.Forms.HScrollBar() + Me.lblshuttlevtr = New System.Windows.Forms.Label() + Me.HScrollBarshuttlevtr = New System.Windows.Forms.HScrollBar() + Me.lblvariablevtr = New System.Windows.Forms.Label() + Me.HScrollBarvtr = New System.Windows.Forms.HScrollBar() + Me.dgvcuepointsvtr = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.cmdmarkvtr = New System.Windows.Forms.Button() + Me.cmdcuevtr = New System.Windows.Forms.Button() + Me.cmdPreRollvtr = New System.Windows.Forms.Button() + Me.cmdejectvtr = New System.Windows.Forms.Button() + Me.cmdstandbyoffvtr = New System.Windows.Forms.Button() + Me.cmdstandbyonvtr = New System.Windows.Forms.Button() + Me.lbltimecode = New System.Windows.Forms.Label() + Me.cmdffvtr = New System.Windows.Forms.Button() + Me.cmdstopvtr = New System.Windows.Forms.Button() + Me.cmdrewindvtr = New System.Windows.Forms.Button() + Me.cmdoutpointvtr = New System.Windows.Forms.Button() + Me.cmdinpointvtr = New System.Windows.Forms.Button() + Me.cmdplayvtr = New System.Windows.Forms.Button() + Me.cmdopenportsvtr = New System.Windows.Forms.Button() + Me.lblcomportsvtr = New System.Windows.Forms.Label() + Me.cmbportsvtr = New System.Windows.Forms.ComboBox() + Me.Button5 = New System.Windows.Forms.Button() + Me.Label152 = New System.Windows.Forms.Label() + Me.lblfreespace = New System.Windows.Forms.Label() + Me.cmdlocaterecordingfile = New System.Windows.Forms.Button() + Me.Label128 = New System.Windows.Forms.Label() + Me.Label129 = New System.Windows.Forms.Label() + Me.Label130 = New System.Windows.Forms.Label() + Me.lblRecordedSize = New System.Windows.Forms.Label() + Me.lblRecordedduration = New System.Windows.Forms.Label() + Me.lblrecordingfilename = New System.Windows.Forms.Label() + Me.chksinglecliprecord = New System.Windows.Forms.CheckBox() + Me.txtextrarecordoptions = New System.Windows.Forms.TextBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.txtfilename = New System.Windows.Forms.TextBox() + Me.cmdremove_input = New System.Windows.Forms.Button() + Me.mp4 = New System.Windows.Forms.ComboBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtbitrate = New System.Windows.Forms.TextBox() + Me.cmdlooprecord = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.cmdstoplooprecord = New System.Windows.Forms.Button() + Me.txtinterval = New System.Windows.Forms.TextBox() + Me.lblinterval = New System.Windows.Forms.Label() + Me.cmdinput = New System.Windows.Forms.Button() + Me.tmrsr = New System.Windows.Forms.Timer(Me.components) + Me.tmrrecorder = New System.Windows.Forms.Timer(Me.components) + Me.tmrrecordedfileinfo = New System.Windows.Forms.Timer(Me.components) + Me.sp = New System.IO.Ports.SerialPort(Me.components) + Me.tmrgettc = New System.Windows.Forms.Timer(Me.components) + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.gbrecording.SuspendLayout() + Me.gbSynchRecording.SuspendLayout() + CType(Me.dgvcuepointsvtr, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbrecording + ' + Me.gbrecording.BackColor = System.Drawing.Color.LightGoldenrodYellow + Me.gbrecording.Controls.Add(Me.Label241) + Me.gbrecording.Controls.Add(Me.Label240) + Me.gbrecording.Controls.Add(Me.cmbaudiocodec) + Me.gbrecording.Controls.Add(Me.cmbvideocodec) + Me.gbrecording.Controls.Add(Me.cmbRecordingProfile) + Me.gbrecording.Controls.Add(Me.Label2) + Me.gbrecording.Controls.Add(Me.pnlrecording) + Me.gbrecording.Controls.Add(Me.cmbcasparcgwindowtitlerecording) + Me.gbrecording.Controls.Add(Me.cmdoutcasparcgwindowrecording) + Me.gbrecording.Controls.Add(Me.cmdshowcasparcgwindowrecording) + Me.gbrecording.Controls.Add(Me.Label233) + Me.gbrecording.Controls.Add(Me.cmbdecklinkforrecording) + Me.gbrecording.Controls.Add(Me.cmdopenintrimmer) + Me.gbrecording.Controls.Add(Me.lblRecordingFolder) + Me.gbrecording.Controls.Add(Me.cmdOpenFolderforRecording) + Me.gbrecording.Controls.Add(Me.gbSynchRecording) + Me.gbrecording.Controls.Add(Me.Label173) + Me.gbrecording.Controls.Add(Me.cmdassembleoffvtr) + Me.gbrecording.Controls.Add(Me.cmdassembleonvtr) + Me.gbrecording.Controls.Add(Me.cmdplusoneframevtr) + Me.gbrecording.Controls.Add(Me.cmdminusoneframevtr) + Me.gbrecording.Controls.Add(Me.lbloutpointvtr) + Me.gbrecording.Controls.Add(Me.lblinpointvtr) + Me.gbrecording.Controls.Add(Me.cmdReviewvtr) + Me.gbrecording.Controls.Add(Me.cmdpreviewvtr) + Me.gbrecording.Controls.Add(Me.cmdautoeditvtr) + Me.gbrecording.Controls.Add(Me.cmdrecordvtr) + Me.gbrecording.Controls.Add(Me.lbljogvtr) + Me.gbrecording.Controls.Add(Me.HScrollBarjogvtr) + Me.gbrecording.Controls.Add(Me.lblshuttlevtr) + Me.gbrecording.Controls.Add(Me.HScrollBarshuttlevtr) + Me.gbrecording.Controls.Add(Me.lblvariablevtr) + Me.gbrecording.Controls.Add(Me.HScrollBarvtr) + Me.gbrecording.Controls.Add(Me.dgvcuepointsvtr) + Me.gbrecording.Controls.Add(Me.cmdmarkvtr) + Me.gbrecording.Controls.Add(Me.cmdcuevtr) + Me.gbrecording.Controls.Add(Me.cmdPreRollvtr) + Me.gbrecording.Controls.Add(Me.cmdejectvtr) + Me.gbrecording.Controls.Add(Me.cmdstandbyoffvtr) + Me.gbrecording.Controls.Add(Me.cmdstandbyonvtr) + Me.gbrecording.Controls.Add(Me.lbltimecode) + Me.gbrecording.Controls.Add(Me.cmdffvtr) + Me.gbrecording.Controls.Add(Me.cmdstopvtr) + Me.gbrecording.Controls.Add(Me.cmdrewindvtr) + Me.gbrecording.Controls.Add(Me.cmdoutpointvtr) + Me.gbrecording.Controls.Add(Me.cmdinpointvtr) + Me.gbrecording.Controls.Add(Me.cmdplayvtr) + Me.gbrecording.Controls.Add(Me.cmdopenportsvtr) + Me.gbrecording.Controls.Add(Me.lblcomportsvtr) + Me.gbrecording.Controls.Add(Me.cmbportsvtr) + Me.gbrecording.Controls.Add(Me.Button5) + Me.gbrecording.Controls.Add(Me.Label152) + Me.gbrecording.Controls.Add(Me.lblfreespace) + Me.gbrecording.Controls.Add(Me.cmdlocaterecordingfile) + Me.gbrecording.Controls.Add(Me.Label128) + Me.gbrecording.Controls.Add(Me.Label129) + Me.gbrecording.Controls.Add(Me.Label130) + Me.gbrecording.Controls.Add(Me.lblRecordedSize) + Me.gbrecording.Controls.Add(Me.lblRecordedduration) + Me.gbrecording.Controls.Add(Me.lblrecordingfilename) + Me.gbrecording.Controls.Add(Me.chksinglecliprecord) + Me.gbrecording.Controls.Add(Me.txtextrarecordoptions) + Me.gbrecording.Controls.Add(Me.Label22) + Me.gbrecording.Controls.Add(Me.txtfilename) + Me.gbrecording.Controls.Add(Me.cmdremove_input) + Me.gbrecording.Controls.Add(Me.mp4) + Me.gbrecording.Controls.Add(Me.Label4) + Me.gbrecording.Controls.Add(Me.Label1) + Me.gbrecording.Controls.Add(Me.txtbitrate) + Me.gbrecording.Controls.Add(Me.cmdlooprecord) + Me.gbrecording.Controls.Add(Me.Label3) + Me.gbrecording.Controls.Add(Me.cmdstoplooprecord) + Me.gbrecording.Controls.Add(Me.txtinterval) + Me.gbrecording.Controls.Add(Me.lblinterval) + Me.gbrecording.Controls.Add(Me.cmdinput) + Me.gbrecording.ForeColor = System.Drawing.Color.Black + Me.gbrecording.Location = New System.Drawing.Point(3, 3) + Me.gbrecording.Name = "gbrecording" + Me.gbrecording.Size = New System.Drawing.Size(660, 573) + Me.gbrecording.TabIndex = 178 + Me.gbrecording.TabStop = False + Me.gbrecording.Text = " " + ' + 'Label241 + ' + Me.Label241.AutoSize = True + Me.Label241.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label241.Location = New System.Drawing.Point(566, 86) + Me.Label241.Name = "Label241" + Me.Label241.Size = New System.Drawing.Size(68, 13) + Me.Label241.TabIndex = 748 + Me.Label241.Text = "Audio Codec" + Me.Label241.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label240 + ' + Me.Label240.AutoSize = True + Me.Label240.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label240.Location = New System.Drawing.Point(453, 86) + Me.Label240.Name = "Label240" + Me.Label240.Size = New System.Drawing.Size(68, 13) + Me.Label240.TabIndex = 747 + Me.Label240.Text = "Video Codec" + Me.Label240.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'cmbaudiocodec + ' + Me.cmbaudiocodec.FormattingEnabled = True + Me.cmbaudiocodec.Items.AddRange(New Object() {"aac", "ac3", "ac3_fixed", "adpcm_adx", "adpcm_ima_qt", "adpcm_ima_wav", "adpcm_ms", "adpcm_swf", "adpcm_yamaha", "alac", "comfortnoise", "eac3", "flac", "g722", "g723_1", "g726", "libgsm", "libgsm_ms", "libilbc", "libmp3lame", "libopencore_amrnb", "libopus", "libspeex", "libtwolame", "libvo_aacenc", "libvo_amrwbenc", "libvorbis", "libwavpack", "mp2", "mp2fixed", "nellymoser", "pcm_alaw", "pcm_f32be", "pcm_f32le", "pcm_f64be", "pcm_f64le", "pcm_mulaw", "pcm_s16be", "pcm_s16be_planar", "pcm_s16le", "pcm_s16le_planar", "pcm_s24be", "pcm_s24daud", "pcm_s24le", "pcm_s24le_planar", "pcm_s32be", "pcm_s32le", "pcm_s32le_planar", "pcm_s8", "pcm_s8_planar", "pcm_u16be", "pcm_u16le", "pcm_u24be", "pcm_u24le", "pcm_u32be", "pcm_u32le", "pcm_u8", "real_144", "roq_dpcm", "tta", "wavpack", "wmav1", "wmav2"}) + Me.cmbaudiocodec.Location = New System.Drawing.Point(569, 102) + Me.cmbaudiocodec.Name = "cmbaudiocodec" + Me.cmbaudiocodec.Size = New System.Drawing.Size(87, 21) + Me.cmbaudiocodec.Sorted = True + Me.cmbaudiocodec.TabIndex = 746 + ' + 'cmbvideocodec + ' + Me.cmbvideocodec.FormattingEnabled = True + Me.cmbvideocodec.Items.AddRange(New Object() {"a64multi", "a64multi5", "alias_pix", "amv", "apng", "asv1", "asv2", "avrp", "avui", "ayuv", "bmp", "cinepak", "cljr", "dnxhd", "dpx", "dvvideo", "ffv1", "ffvhuff", "flashsv", "flashsv2", "flv", "gif", "h261", "h263", "h263p", "huffyuv", "jpeg2000", "jpegls", "libopenjpeg", "libschroedinger", "libtheora", "libvpx", "libvpx-vp9", "libwebp", "libx264", "libx264rgb", "libx265", "libxavs", "libxvid", "ljpeg", "mjpeg", "mpeg1video", "mpeg2video", "mpeg4", "msmpeg4", "msmpeg4v2", "msvideo1", "pam", "pbm", "pcx", "pgm", "pgmyuv", "png", "ppm", "prores", "prores_aw", "prores_ks", "qtrle", "r10k", "r210", "rawvideo", "roqvideo", "rv10", "rv20", "sgi", "snow", "sunrast", "svq1", "targa", "tiff", "utvideo", "v210", "v308", "v408", "v410", "wmv1", "wmv2", "xbm", "xface", "xwd", "y41p", "yuv4", "zlib", "zmbv"}) + Me.cmbvideocodec.Location = New System.Drawing.Point(456, 102) + Me.cmbvideocodec.Name = "cmbvideocodec" + Me.cmbvideocodec.Size = New System.Drawing.Size(107, 21) + Me.cmbvideocodec.Sorted = True + Me.cmbvideocodec.TabIndex = 745 + ' + 'cmbRecordingProfile + ' + Me.cmbRecordingProfile.FormattingEnabled = True + Me.cmbRecordingProfile.Items.AddRange(New Object() {"dvcam", "dvcpro", "dvcpro50", "dvcproHD", "AlphaVideo", "H264", "H265", "XDCAMHD422", "IMX30", "IMX40", "IMX50", "MP3 Audio only"}) + Me.cmbRecordingProfile.Location = New System.Drawing.Point(329, 102) + Me.cmbRecordingProfile.Name = "cmbRecordingProfile" + Me.cmbRecordingProfile.Size = New System.Drawing.Size(121, 21) + Me.cmbRecordingProfile.TabIndex = 744 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(326, 85) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(88, 13) + Me.Label2.TabIndex = 743 + Me.Label2.Text = "Recording Profile" + ' + 'pnlrecording + ' + Me.pnlrecording.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.pnlrecording.Location = New System.Drawing.Point(381, 246) + Me.pnlrecording.Name = "pnlrecording" + Me.pnlrecording.Size = New System.Drawing.Size(275, 210) + Me.pnlrecording.TabIndex = 157 + ' + 'cmbcasparcgwindowtitlerecording + ' + Me.cmbcasparcgwindowtitlerecording.FormattingEnabled = True + Me.cmbcasparcgwindowtitlerecording.Items.AddRange(New Object() {"Screen consumer [1|PAL]", "Screen consumer [2|PAL]", "Screen consumer [1|NTSC]", "Screen consumer [1|1080i5000]", "Screen consumer [1|1080i5994]", "Screen consumer [1|1080i6000]", "Screen consumer [1|1080p2398]", "Screen consumer [1|1080p2400]", "Screen consumer [1|1080p2500]", "Screen consumer [1|1080p2997]", "Screen consumer [1|1080p3000]", "Screen consumer [1|1080p5000]", "Screen consumer [1|1080p5994]", "Screen consumer [1|1080p6000]", "Screen consumer [1|1556p2398]", "Screen consumer [1|1556p2400]", "Screen consumer [1|1556p2500]", "Screen consumer [1|2160p2398]", "Screen consumer [1|2160p2400]", "Screen consumer [1|2160p2500]", "Screen consumer [1| 2160p2997]", "Screen consumer [1|2160p3000]", "Screen consumer [1|576p2500]", "Screen consumer [1|720p2398]", "Screen consumer [1|720p2400]", "Screen consumer [1|720p2500]", "Screen consumer [1|720p2997]", "Screen consumer [1|720p3000]", "Screen consumer [1|720p5000]", "Screen consumer [1|720p5994]", "Screen consumer [1|720p6000]"}) + Me.cmbcasparcgwindowtitlerecording.Location = New System.Drawing.Point(417, 221) + Me.cmbcasparcgwindowtitlerecording.Name = "cmbcasparcgwindowtitlerecording" + Me.cmbcasparcgwindowtitlerecording.Size = New System.Drawing.Size(150, 21) + Me.cmbcasparcgwindowtitlerecording.TabIndex = 733 + Me.cmbcasparcgwindowtitlerecording.Text = "Screen consumer [1|PAL]" + ' + 'cmdoutcasparcgwindowrecording + ' + Me.cmdoutcasparcgwindowrecording.Location = New System.Drawing.Point(605, 218) + Me.cmdoutcasparcgwindowrecording.Name = "cmdoutcasparcgwindowrecording" + Me.cmdoutcasparcgwindowrecording.Size = New System.Drawing.Size(47, 23) + Me.cmdoutcasparcgwindowrecording.TabIndex = 732 + Me.cmdoutcasparcgwindowrecording.Text = "OUT" + Me.cmdoutcasparcgwindowrecording.UseVisualStyleBackColor = True + ' + 'cmdshowcasparcgwindowrecording + ' + Me.cmdshowcasparcgwindowrecording.Location = New System.Drawing.Point(572, 218) + Me.cmdshowcasparcgwindowrecording.Name = "cmdshowcasparcgwindowrecording" + Me.cmdshowcasparcgwindowrecording.Size = New System.Drawing.Size(32, 23) + Me.cmdshowcasparcgwindowrecording.TabIndex = 731 + Me.cmdshowcasparcgwindowrecording.Text = "IN" + Me.cmdshowcasparcgwindowrecording.UseVisualStyleBackColor = True + ' + 'Label233 + ' + Me.Label233.AutoSize = True + Me.Label233.Location = New System.Drawing.Point(1, 18) + Me.Label233.Name = "Label233" + Me.Label233.Size = New System.Drawing.Size(49, 13) + Me.Label233.TabIndex = 713 + Me.Label233.Text = "Decklink" + ' + 'cmbdecklinkforrecording + ' + Me.cmbdecklinkforrecording.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmbliveoal", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.cmbdecklinkforrecording.FormattingEnabled = True + Me.cmbdecklinkforrecording.Items.AddRange(New Object() {"1", "2", "3", "4"}) + Me.cmbdecklinkforrecording.Location = New System.Drawing.Point(4, 36) + Me.cmbdecklinkforrecording.Name = "cmbdecklinkforrecording" + Me.cmbdecklinkforrecording.Size = New System.Drawing.Size(39, 21) + Me.cmbdecklinkforrecording.TabIndex = 712 + Me.cmbdecklinkforrecording.Text = "1" + ' + 'cmdopenintrimmer + ' + Me.cmdopenintrimmer.Location = New System.Drawing.Point(219, 39) + Me.cmdopenintrimmer.Name = "cmdopenintrimmer" + Me.cmdopenintrimmer.Size = New System.Drawing.Size(93, 23) + Me.cmdopenintrimmer.TabIndex = 711 + Me.cmdopenintrimmer.Text = "Open in Trimmer" + Me.cmdopenintrimmer.UseVisualStyleBackColor = True + ' + 'lblRecordingFolder + ' + Me.lblRecordingFolder.AutoSize = True + Me.lblRecordingFolder.Location = New System.Drawing.Point(96, 187) + Me.lblRecordingFolder.Name = "lblRecordingFolder" + Me.lblRecordingFolder.Size = New System.Drawing.Size(104, 13) + Me.lblRecordingFolder.TabIndex = 709 + Me.lblRecordingFolder.Text = "c:\casparcg\_media" + ' + 'cmdOpenFolderforRecording + ' + Me.cmdOpenFolderforRecording.Location = New System.Drawing.Point(8, 182) + Me.cmdOpenFolderforRecording.Name = "cmdOpenFolderforRecording" + Me.cmdOpenFolderforRecording.Size = New System.Drawing.Size(85, 23) + Me.cmdOpenFolderforRecording.TabIndex = 708 + Me.cmdOpenFolderforRecording.Text = "Select Folder" + Me.cmdOpenFolderforRecording.UseVisualStyleBackColor = True + ' + 'gbSynchRecording + ' + Me.gbSynchRecording.BackColor = System.Drawing.Color.DarkSalmon + Me.gbSynchRecording.Controls.Add(Me.cmdstopsr) + Me.gbSynchRecording.Controls.Add(Me.cmdstartsr) + Me.gbSynchRecording.Controls.Add(Me.txtoutpointsr) + Me.gbSynchRecording.Controls.Add(Me.txtinpointsr) + Me.gbSynchRecording.Controls.Add(Me.cmdoutpointsr) + Me.gbSynchRecording.Controls.Add(Me.cmdinpointsr) + Me.gbSynchRecording.Location = New System.Drawing.Point(212, 478) + Me.gbSynchRecording.Name = "gbSynchRecording" + Me.gbSynchRecording.Size = New System.Drawing.Size(168, 86) + Me.gbSynchRecording.TabIndex = 707 + Me.gbSynchRecording.TabStop = False + Me.gbSynchRecording.Text = "Synch Recording from VTR" + ' + 'cmdstopsr + ' + Me.cmdstopsr.Location = New System.Drawing.Point(87, 58) + Me.cmdstopsr.Name = "cmdstopsr" + Me.cmdstopsr.Size = New System.Drawing.Size(75, 23) + Me.cmdstopsr.TabIndex = 5 + Me.cmdstopsr.Text = "Stop" + Me.cmdstopsr.UseVisualStyleBackColor = True + ' + 'cmdstartsr + ' + Me.cmdstartsr.Location = New System.Drawing.Point(6, 58) + Me.cmdstartsr.Name = "cmdstartsr" + Me.cmdstartsr.Size = New System.Drawing.Size(75, 23) + Me.cmdstartsr.TabIndex = 4 + Me.cmdstartsr.Text = "Record" + Me.cmdstartsr.UseVisualStyleBackColor = True + ' + 'txtoutpointsr + ' + Me.txtoutpointsr.Location = New System.Drawing.Point(87, 15) + Me.txtoutpointsr.Name = "txtoutpointsr" + Me.txtoutpointsr.Size = New System.Drawing.Size(75, 20) + Me.txtoutpointsr.TabIndex = 3 + Me.txtoutpointsr.Text = "00:02:20:00" + Me.txtoutpointsr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtinpointsr + ' + Me.txtinpointsr.Location = New System.Drawing.Point(6, 15) + Me.txtinpointsr.Name = "txtinpointsr" + Me.txtinpointsr.Size = New System.Drawing.Size(75, 20) + Me.txtinpointsr.TabIndex = 2 + Me.txtinpointsr.Text = "00:02:00:00" + Me.txtinpointsr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmdoutpointsr + ' + Me.cmdoutpointsr.Location = New System.Drawing.Point(87, 35) + Me.cmdoutpointsr.Name = "cmdoutpointsr" + Me.cmdoutpointsr.Size = New System.Drawing.Size(75, 23) + Me.cmdoutpointsr.TabIndex = 1 + Me.cmdoutpointsr.Text = "OUT" + Me.cmdoutpointsr.UseVisualStyleBackColor = True + ' + 'cmdinpointsr + ' + Me.cmdinpointsr.Location = New System.Drawing.Point(6, 35) + Me.cmdinpointsr.Name = "cmdinpointsr" + Me.cmdinpointsr.Size = New System.Drawing.Size(75, 23) + Me.cmdinpointsr.TabIndex = 0 + Me.cmdinpointsr.Text = "IN" + Me.cmdinpointsr.UseVisualStyleBackColor = True + ' + 'Label173 + ' + Me.Label173.AutoSize = True + Me.Label173.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label173.Location = New System.Drawing.Point(13, 225) + Me.Label173.Name = "Label173" + Me.Label173.Size = New System.Drawing.Size(178, 24) + Me.Label173.TabIndex = 705 + Me.Label173.Text = "RS 422 VTR Control" + ' + 'cmdassembleoffvtr + ' + Me.cmdassembleoffvtr.Location = New System.Drawing.Point(108, 423) + Me.cmdassembleoffvtr.Name = "cmdassembleoffvtr" + Me.cmdassembleoffvtr.Size = New System.Drawing.Size(86, 23) + Me.cmdassembleoffvtr.TabIndex = 704 + Me.cmdassembleoffvtr.Text = "Assemble Off" + Me.cmdassembleoffvtr.UseVisualStyleBackColor = True + ' + 'cmdassembleonvtr + ' + Me.cmdassembleonvtr.Location = New System.Drawing.Point(25, 423) + Me.cmdassembleonvtr.Name = "cmdassembleonvtr" + Me.cmdassembleonvtr.Size = New System.Drawing.Size(78, 23) + Me.cmdassembleonvtr.TabIndex = 703 + Me.cmdassembleonvtr.Text = "Assemble On" + Me.cmdassembleonvtr.UseVisualStyleBackColor = True + ' + 'cmdplusoneframevtr + ' + Me.cmdplusoneframevtr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdplusoneframevtr.Location = New System.Drawing.Point(301, 268) + Me.cmdplusoneframevtr.Name = "cmdplusoneframevtr" + Me.cmdplusoneframevtr.Size = New System.Drawing.Size(28, 25) + Me.cmdplusoneframevtr.TabIndex = 702 + Me.cmdplusoneframevtr.Text = "+" + Me.cmdplusoneframevtr.UseVisualStyleBackColor = True + ' + 'cmdminusoneframevtr + ' + Me.cmdminusoneframevtr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdminusoneframevtr.Location = New System.Drawing.Point(202, 269) + Me.cmdminusoneframevtr.Name = "cmdminusoneframevtr" + Me.cmdminusoneframevtr.Size = New System.Drawing.Size(28, 25) + Me.cmdminusoneframevtr.TabIndex = 701 + Me.cmdminusoneframevtr.Text = "-" + Me.cmdminusoneframevtr.UseVisualStyleBackColor = True + ' + 'lbloutpointvtr + ' + Me.lbloutpointvtr.AutoSize = True + Me.lbloutpointvtr.Location = New System.Drawing.Point(123, 334) + Me.lbloutpointvtr.Name = "lbloutpointvtr" + Me.lbloutpointvtr.Size = New System.Drawing.Size(64, 13) + Me.lbloutpointvtr.TabIndex = 700 + Me.lbloutpointvtr.Text = "00:02:20:00" + ' + 'lblinpointvtr + ' + Me.lblinpointvtr.AutoSize = True + Me.lblinpointvtr.Location = New System.Drawing.Point(25, 334) + Me.lblinpointvtr.Name = "lblinpointvtr" + Me.lblinpointvtr.Size = New System.Drawing.Size(64, 13) + Me.lblinpointvtr.TabIndex = 699 + Me.lblinpointvtr.Text = "00:02:00:00" + ' + 'cmdReviewvtr + ' + Me.cmdReviewvtr.Location = New System.Drawing.Point(108, 471) + Me.cmdReviewvtr.Name = "cmdReviewvtr" + Me.cmdReviewvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdReviewvtr.TabIndex = 698 + Me.cmdReviewvtr.Text = "Review" + Me.cmdReviewvtr.UseVisualStyleBackColor = True + ' + 'cmdpreviewvtr + ' + Me.cmdpreviewvtr.Location = New System.Drawing.Point(25, 474) + Me.cmdpreviewvtr.Name = "cmdpreviewvtr" + Me.cmdpreviewvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdpreviewvtr.TabIndex = 697 + Me.cmdpreviewvtr.Text = "Preview" + Me.cmdpreviewvtr.UseVisualStyleBackColor = True + ' + 'cmdautoeditvtr + ' + Me.cmdautoeditvtr.Location = New System.Drawing.Point(108, 447) + Me.cmdautoeditvtr.Name = "cmdautoeditvtr" + Me.cmdautoeditvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdautoeditvtr.TabIndex = 696 + Me.cmdautoeditvtr.Text = "Auto Edit" + Me.cmdautoeditvtr.UseVisualStyleBackColor = True + ' + 'cmdrecordvtr + ' + Me.cmdrecordvtr.Location = New System.Drawing.Point(25, 447) + Me.cmdrecordvtr.Name = "cmdrecordvtr" + Me.cmdrecordvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdrecordvtr.TabIndex = 695 + Me.cmdrecordvtr.Text = "Record" + Me.cmdrecordvtr.UseVisualStyleBackColor = True + ' + 'lbljogvtr + ' + Me.lbljogvtr.AutoSize = True + Me.lbljogvtr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbljogvtr.Location = New System.Drawing.Point(154, 502) + Me.lbljogvtr.Name = "lbljogvtr" + Me.lbljogvtr.Size = New System.Drawing.Size(35, 20) + Me.lbljogvtr.TabIndex = 694 + Me.lbljogvtr.Text = "Jog" + ' + 'HScrollBarjogvtr + ' + Me.HScrollBarjogvtr.LargeChange = 1 + Me.HScrollBarjogvtr.Location = New System.Drawing.Point(16, 502) + Me.HScrollBarjogvtr.Maximum = 118 + Me.HScrollBarjogvtr.Minimum = -118 + Me.HScrollBarjogvtr.Name = "HScrollBarjogvtr" + Me.HScrollBarjogvtr.Size = New System.Drawing.Size(134, 13) + Me.HScrollBarjogvtr.TabIndex = 693 + ' + 'lblshuttlevtr + ' + Me.lblshuttlevtr.AutoSize = True + Me.lblshuttlevtr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblshuttlevtr.Location = New System.Drawing.Point(154, 541) + Me.lblshuttlevtr.Name = "lblshuttlevtr" + Me.lblshuttlevtr.Size = New System.Drawing.Size(60, 20) + Me.lblshuttlevtr.TabIndex = 692 + Me.lblshuttlevtr.Text = "Shuttle" + ' + 'HScrollBarshuttlevtr + ' + Me.HScrollBarshuttlevtr.LargeChange = 1 + Me.HScrollBarshuttlevtr.Location = New System.Drawing.Point(16, 545) + Me.HScrollBarshuttlevtr.Maximum = 118 + Me.HScrollBarshuttlevtr.Minimum = -118 + Me.HScrollBarshuttlevtr.Name = "HScrollBarshuttlevtr" + Me.HScrollBarshuttlevtr.Size = New System.Drawing.Size(134, 13) + Me.HScrollBarshuttlevtr.TabIndex = 691 + ' + 'lblvariablevtr + ' + Me.lblvariablevtr.AutoSize = True + Me.lblvariablevtr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblvariablevtr.Location = New System.Drawing.Point(154, 521) + Me.lblvariablevtr.Name = "lblvariablevtr" + Me.lblvariablevtr.Size = New System.Drawing.Size(48, 20) + Me.lblvariablevtr.TabIndex = 690 + Me.lblvariablevtr.Text = "Var F" + ' + 'HScrollBarvtr + ' + Me.HScrollBarvtr.LargeChange = 1 + Me.HScrollBarvtr.Location = New System.Drawing.Point(16, 526) + Me.HScrollBarvtr.Maximum = 118 + Me.HScrollBarvtr.Minimum = -118 + Me.HScrollBarvtr.Name = "HScrollBarvtr" + Me.HScrollBarvtr.Size = New System.Drawing.Size(134, 13) + Me.HScrollBarvtr.TabIndex = 689 + ' + 'dgvcuepointsvtr + ' + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvcuepointsvtr.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvcuepointsvtr.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvcuepointsvtr.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn9}) + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.Color.Black + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvcuepointsvtr.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvcuepointsvtr.Location = New System.Drawing.Point(199, 300) + Me.dgvcuepointsvtr.Name = "dgvcuepointsvtr" + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvcuepointsvtr.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvcuepointsvtr.Size = New System.Drawing.Size(139, 163) + Me.dgvcuepointsvtr.TabIndex = 688 + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.HeaderText = "Time Code" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.Width = 70 + ' + 'cmdmarkvtr + ' + Me.cmdmarkvtr.Location = New System.Drawing.Point(239, 268) + Me.cmdmarkvtr.Name = "cmdmarkvtr" + Me.cmdmarkvtr.Size = New System.Drawing.Size(53, 27) + Me.cmdmarkvtr.TabIndex = 687 + Me.cmdmarkvtr.Text = "Mark" + Me.cmdmarkvtr.UseVisualStyleBackColor = True + ' + 'cmdcuevtr + ' + Me.cmdcuevtr.Location = New System.Drawing.Point(343, 297) + Me.cmdcuevtr.Name = "cmdcuevtr" + Me.cmdcuevtr.Size = New System.Drawing.Size(34, 169) + Me.cmdcuevtr.TabIndex = 686 + Me.cmdcuevtr.Text = "Cue" + Me.cmdcuevtr.UseVisualStyleBackColor = True + ' + 'cmdPreRollvtr + ' + Me.cmdPreRollvtr.Location = New System.Drawing.Point(25, 373) + Me.cmdPreRollvtr.Name = "cmdPreRollvtr" + Me.cmdPreRollvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdPreRollvtr.TabIndex = 685 + Me.cmdPreRollvtr.Text = "PreRoll" + Me.cmdPreRollvtr.UseVisualStyleBackColor = True + ' + 'cmdejectvtr + ' + Me.cmdejectvtr.Location = New System.Drawing.Point(108, 373) + Me.cmdejectvtr.Name = "cmdejectvtr" + Me.cmdejectvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdejectvtr.TabIndex = 684 + Me.cmdejectvtr.Text = "Eject" + Me.cmdejectvtr.UseVisualStyleBackColor = True + ' + 'cmdstandbyoffvtr + ' + Me.cmdstandbyoffvtr.Location = New System.Drawing.Point(108, 398) + Me.cmdstandbyoffvtr.Name = "cmdstandbyoffvtr" + Me.cmdstandbyoffvtr.Size = New System.Drawing.Size(86, 23) + Me.cmdstandbyoffvtr.TabIndex = 683 + Me.cmdstandbyoffvtr.Text = "Standby OFF" + Me.cmdstandbyoffvtr.UseVisualStyleBackColor = True + ' + 'cmdstandbyonvtr + ' + Me.cmdstandbyonvtr.Location = New System.Drawing.Point(25, 398) + Me.cmdstandbyonvtr.Name = "cmdstandbyonvtr" + Me.cmdstandbyonvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdstandbyonvtr.TabIndex = 682 + Me.cmdstandbyonvtr.Text = "Standby ON" + Me.cmdstandbyonvtr.UseVisualStyleBackColor = True + ' + 'lbltimecode + ' + Me.lbltimecode.AutoSize = True + Me.lbltimecode.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltimecode.Location = New System.Drawing.Point(201, 237) + Me.lbltimecode.Name = "lbltimecode" + Me.lbltimecode.Size = New System.Drawing.Size(134, 29) + Me.lbltimecode.TabIndex = 681 + Me.lbltimecode.Text = "Time Code" + ' + 'cmdffvtr + ' + Me.cmdffvtr.Location = New System.Drawing.Point(108, 309) + Me.cmdffvtr.Name = "cmdffvtr" + Me.cmdffvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdffvtr.TabIndex = 680 + Me.cmdffvtr.Text = "Fast FW" + Me.cmdffvtr.UseVisualStyleBackColor = True + ' + 'cmdstopvtr + ' + Me.cmdstopvtr.Location = New System.Drawing.Point(108, 286) + Me.cmdstopvtr.Name = "cmdstopvtr" + Me.cmdstopvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdstopvtr.TabIndex = 679 + Me.cmdstopvtr.Text = "Stop" + Me.cmdstopvtr.UseVisualStyleBackColor = True + ' + 'cmdrewindvtr + ' + Me.cmdrewindvtr.Location = New System.Drawing.Point(25, 309) + Me.cmdrewindvtr.Name = "cmdrewindvtr" + Me.cmdrewindvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdrewindvtr.TabIndex = 678 + Me.cmdrewindvtr.Text = "Rewind" + Me.cmdrewindvtr.UseVisualStyleBackColor = True + ' + 'cmdoutpointvtr + ' + Me.cmdoutpointvtr.Location = New System.Drawing.Point(108, 349) + Me.cmdoutpointvtr.Name = "cmdoutpointvtr" + Me.cmdoutpointvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdoutpointvtr.TabIndex = 677 + Me.cmdoutpointvtr.Text = "Out" + Me.cmdoutpointvtr.UseVisualStyleBackColor = True + ' + 'cmdinpointvtr + ' + Me.cmdinpointvtr.Location = New System.Drawing.Point(25, 349) + Me.cmdinpointvtr.Name = "cmdinpointvtr" + Me.cmdinpointvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdinpointvtr.TabIndex = 676 + Me.cmdinpointvtr.Text = "In" + Me.cmdinpointvtr.UseVisualStyleBackColor = True + ' + 'cmdplayvtr + ' + Me.cmdplayvtr.Location = New System.Drawing.Point(25, 286) + Me.cmdplayvtr.Name = "cmdplayvtr" + Me.cmdplayvtr.Size = New System.Drawing.Size(75, 23) + Me.cmdplayvtr.TabIndex = 675 + Me.cmdplayvtr.Text = "Play" + Me.cmdplayvtr.UseVisualStyleBackColor = True + ' + 'cmdopenportsvtr + ' + Me.cmdopenportsvtr.Location = New System.Drawing.Point(120, 260) + Me.cmdopenportsvtr.Name = "cmdopenportsvtr" + Me.cmdopenportsvtr.Size = New System.Drawing.Size(53, 23) + Me.cmdopenportsvtr.TabIndex = 674 + Me.cmdopenportsvtr.Text = "Open" + Me.cmdopenportsvtr.UseVisualStyleBackColor = True + ' + 'lblcomportsvtr + ' + Me.lblcomportsvtr.AutoSize = True + Me.lblcomportsvtr.Location = New System.Drawing.Point(22, 264) + Me.lblcomportsvtr.Name = "lblcomportsvtr" + Me.lblcomportsvtr.Size = New System.Drawing.Size(31, 13) + Me.lblcomportsvtr.TabIndex = 673 + Me.lblcomportsvtr.Text = "Ports" + ' + 'cmbportsvtr + ' + Me.cmbportsvtr.FormattingEnabled = True + Me.cmbportsvtr.Location = New System.Drawing.Point(60, 261) + Me.cmbportsvtr.Name = "cmbportsvtr" + Me.cmbportsvtr.Size = New System.Drawing.Size(55, 21) + Me.cmbportsvtr.TabIndex = 672 + Me.cmbportsvtr.Text = "COM3" + ' + 'Button5 + ' + Me.Button5.BackColor = System.Drawing.SystemColors.ActiveCaptionText + Me.Button5.Location = New System.Drawing.Point(7, 205) + Me.Button5.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(663, 10) + Me.Button5.TabIndex = 671 + Me.Button5.UseVisualStyleBackColor = False + ' + 'Label152 + ' + Me.Label152.AutoSize = True + Me.Label152.Location = New System.Drawing.Point(457, 68) + Me.Label152.Name = "Label152" + Me.Label152.Size = New System.Drawing.Size(62, 13) + Me.Label152.TabIndex = 168 + Me.Label152.Text = "Free Space" + ' + 'lblfreespace + ' + Me.lblfreespace.AutoSize = True + Me.lblfreespace.Location = New System.Drawing.Point(525, 67) + Me.lblfreespace.Name = "lblfreespace" + Me.lblfreespace.Size = New System.Drawing.Size(103, 13) + Me.lblfreespace.TabIndex = 167 + Me.lblfreespace.Text = "lblfreespacerecorcer" + ' + 'cmdlocaterecordingfile + ' + Me.cmdlocaterecordingfile.Location = New System.Drawing.Point(579, 10) + Me.cmdlocaterecordingfile.Name = "cmdlocaterecordingfile" + Me.cmdlocaterecordingfile.Size = New System.Drawing.Size(51, 20) + Me.cmdlocaterecordingfile.TabIndex = 166 + Me.cmdlocaterecordingfile.Text = "Locate" + Me.cmdlocaterecordingfile.UseVisualStyleBackColor = True + ' + 'Label128 + ' + Me.Label128.AutoSize = True + Me.Label128.Location = New System.Drawing.Point(441, 52) + Me.Label128.Name = "Label128" + Me.Label128.Size = New System.Drawing.Size(77, 13) + Me.Label128.TabIndex = 165 + Me.Label128.Text = "Recorded Size" + ' + 'Label129 + ' + Me.Label129.AutoSize = True + Me.Label129.Location = New System.Drawing.Point(423, 38) + Me.Label129.Name = "Label129" + Me.Label129.Size = New System.Drawing.Size(97, 13) + Me.Label129.TabIndex = 164 + Me.Label129.Text = "Recorded Duration" + ' + 'Label130 + ' + Me.Label130.AutoSize = True + Me.Label130.Location = New System.Drawing.Point(220, 12) + Me.Label130.Name = "Label130" + Me.Label130.Size = New System.Drawing.Size(23, 13) + Me.Label130.TabIndex = 163 + Me.Label130.Text = "File" + ' + 'lblRecordedSize + ' + Me.lblRecordedSize.AutoSize = True + Me.lblRecordedSize.Location = New System.Drawing.Point(521, 53) + Me.lblRecordedSize.Name = "lblRecordedSize" + Me.lblRecordedSize.Size = New System.Drawing.Size(77, 13) + Me.lblRecordedSize.TabIndex = 162 + Me.lblRecordedSize.Text = "Recorded Size" + ' + 'lblRecordedduration + ' + Me.lblRecordedduration.AutoSize = True + Me.lblRecordedduration.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblRecordedduration.ForeColor = System.Drawing.Color.DarkRed + Me.lblRecordedduration.Location = New System.Drawing.Point(520, 37) + Me.lblRecordedduration.Name = "lblRecordedduration" + Me.lblRecordedduration.Size = New System.Drawing.Size(139, 16) + Me.lblRecordedduration.TabIndex = 161 + Me.lblRecordedduration.Text = "Recorded Duration" + ' + 'lblrecordingfilename + ' + Me.lblrecordingfilename.AutoSize = True + Me.lblrecordingfilename.Location = New System.Drawing.Point(242, 13) + Me.lblrecordingfilename.MaximumSize = New System.Drawing.Size(300, 0) + Me.lblrecordingfilename.Name = "lblrecordingfilename" + Me.lblrecordingfilename.Size = New System.Drawing.Size(297, 13) + Me.lblrecordingfilename.TabIndex = 160 + Me.lblrecordingfilename.Text = "D:\CasparCG Server020715\CasparCG Server\Server/media" + ' + 'chksinglecliprecord + ' + Me.chksinglecliprecord.AutoSize = True + Me.chksinglecliprecord.Checked = Global.caspar_media_playback.My.MySettings.Default.chksinglecliprecord + Me.chksinglecliprecord.CheckState = System.Windows.Forms.CheckState.Checked + Me.chksinglecliprecord.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.caspar_media_playback.My.MySettings.Default, "chksinglecliprecord", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.chksinglecliprecord.Location = New System.Drawing.Point(179, 65) + Me.chksinglecliprecord.Name = "chksinglecliprecord" + Me.chksinglecliprecord.Size = New System.Drawing.Size(75, 17) + Me.chksinglecliprecord.TabIndex = 159 + Me.chksinglecliprecord.Text = "Single Clip" + Me.chksinglecliprecord.UseVisualStyleBackColor = True + ' + 'txtextrarecordoptions + ' + Me.txtextrarecordoptions.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtextrarecordoptions", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtextrarecordoptions.Location = New System.Drawing.Point(255, 130) + Me.txtextrarecordoptions.Multiline = True + Me.txtextrarecordoptions.Name = "txtextrarecordoptions" + Me.txtextrarecordoptions.Size = New System.Drawing.Size(401, 57) + Me.txtextrarecordoptions.TabIndex = 158 + Me.txtextrarecordoptions.Text = Global.caspar_media_playback.My.MySettings.Default.txtextrarecordoptions + Me.txtextrarecordoptions.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(255, 116) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(68, 13) + Me.Label22.TabIndex = 157 + Me.Label22.Text = "Extra options" + ' + 'txtfilename + ' + Me.txtfilename.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtfilename", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtfilename.Location = New System.Drawing.Point(120, 132) + Me.txtfilename.Name = "txtfilename" + Me.txtfilename.Size = New System.Drawing.Size(129, 20) + Me.txtfilename.TabIndex = 156 + Me.txtfilename.Text = Global.caspar_media_playback.My.MySettings.Default.txtfilename + Me.txtfilename.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmdremove_input + ' + Me.cmdremove_input.Location = New System.Drawing.Point(123, 12) + Me.cmdremove_input.Name = "cmdremove_input" + Me.cmdremove_input.Size = New System.Drawing.Size(92, 27) + Me.cmdremove_input.TabIndex = 155 + Me.cmdremove_input.Text = "Remove Input" + Me.cmdremove_input.UseVisualStyleBackColor = True + ' + 'mp4 + ' + Me.mp4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "cmbrecordformat", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.mp4.FormattingEnabled = True + Me.mp4.Items.AddRange(New Object() {"avi", "dv", "mov", "mp3", "mp4", "mxf", "ogg", "ts", "wav"}) + Me.mp4.Location = New System.Drawing.Point(120, 107) + Me.mp4.Name = "mp4" + Me.mp4.Size = New System.Drawing.Size(53, 21) + Me.mp4.Sorted = True + Me.mp4.TabIndex = 155 + Me.mp4.Text = Global.caspar_media_playback.My.MySettings.Default.cmbrecordformat + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(57, 110) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(58, 13) + Me.Label4.TabIndex = 153 + Me.Label4.Text = "File Format" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(66, 135) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(49, 13) + Me.Label1.TabIndex = 141 + Me.Label1.Text = "Filename" + ' + 'txtbitrate + ' + Me.txtbitrate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtbitrate", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtbitrate.Location = New System.Drawing.Point(120, 85) + Me.txtbitrate.Name = "txtbitrate" + Me.txtbitrate.Size = New System.Drawing.Size(53, 20) + Me.txtbitrate.TabIndex = 142 + Me.txtbitrate.Text = "8" + Me.txtbitrate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmdlooprecord + ' + Me.cmdlooprecord.BackColor = System.Drawing.Color.Red + Me.cmdlooprecord.Location = New System.Drawing.Point(47, 39) + Me.cmdlooprecord.Name = "cmdlooprecord" + Me.cmdlooprecord.Size = New System.Drawing.Size(73, 23) + Me.cmdlooprecord.TabIndex = 139 + Me.cmdlooprecord.Text = "Record" + Me.cmdlooprecord.UseVisualStyleBackColor = False + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(41, 87) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(74, 13) + Me.Label3.TabIndex = 142 + Me.Label3.Text = "Bit Rate Mbps" + ' + 'cmdstoplooprecord + ' + Me.cmdstoplooprecord.Location = New System.Drawing.Point(122, 38) + Me.cmdstoplooprecord.Name = "cmdstoplooprecord" + Me.cmdstoplooprecord.Size = New System.Drawing.Size(93, 23) + Me.cmdstoplooprecord.TabIndex = 140 + Me.cmdstoplooprecord.Text = "Stop Record" + Me.cmdstoplooprecord.UseVisualStyleBackColor = True + ' + 'txtinterval + ' + Me.txtinterval.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.caspar_media_playback.My.MySettings.Default, "txtinterval", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) + Me.txtinterval.Location = New System.Drawing.Point(120, 64) + Me.txtinterval.Name = "txtinterval" + Me.txtinterval.Size = New System.Drawing.Size(53, 20) + Me.txtinterval.TabIndex = 138 + Me.txtinterval.Text = "3600" + Me.txtinterval.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblinterval + ' + Me.lblinterval.AutoSize = True + Me.lblinterval.Location = New System.Drawing.Point(5, 66) + Me.lblinterval.Name = "lblinterval" + Me.lblinterval.Size = New System.Drawing.Size(110, 13) + Me.lblinterval.TabIndex = 138 + Me.lblinterval.Text = "File Length in Second" + ' + 'cmdinput + ' + Me.cmdinput.Location = New System.Drawing.Point(49, 12) + Me.cmdinput.Name = "cmdinput" + Me.cmdinput.Size = New System.Drawing.Size(70, 27) + Me.cmdinput.TabIndex = 142 + Me.cmdinput.Text = "Show input" + Me.cmdinput.UseVisualStyleBackColor = True + ' + 'tmrsr + ' + Me.tmrsr.Interval = 40 + ' + 'tmrrecorder + ' + ' + 'tmrrecordedfileinfo + ' + Me.tmrrecordedfileinfo.Interval = 1000 + ' + 'sp + ' + Me.sp.BaudRate = 38400 + Me.sp.DtrEnable = True + Me.sp.Parity = System.IO.Ports.Parity.Odd + Me.sp.PortName = "COM3" + Me.sp.RtsEnable = True + ' + 'tmrgettc + ' + Me.tmrgettc.Interval = 40 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.HeaderText = "Time Code" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.Width = 70 + ' + 'ucRecorder + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(666, 578) + Me.Controls.Add(Me.gbrecording) + Me.HideOnClose = True + Me.Name = "ucRecorder" + Me.Text = "General Recorder" + Me.gbrecording.ResumeLayout(False) + Me.gbrecording.PerformLayout() + Me.gbSynchRecording.ResumeLayout(False) + Me.gbSynchRecording.PerformLayout() + CType(Me.dgvcuepointsvtr, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbrecording As System.Windows.Forms.GroupBox + Friend WithEvents pnlrecording As System.Windows.Forms.Panel + Friend WithEvents cmbcasparcgwindowtitlerecording As System.Windows.Forms.ComboBox + Friend WithEvents cmdoutcasparcgwindowrecording As System.Windows.Forms.Button + Friend WithEvents cmdshowcasparcgwindowrecording As System.Windows.Forms.Button + Friend WithEvents Label233 As System.Windows.Forms.Label + Friend WithEvents cmbdecklinkforrecording As System.Windows.Forms.ComboBox + Friend WithEvents cmdopenintrimmer As System.Windows.Forms.Button + Friend WithEvents lblRecordingFolder As System.Windows.Forms.Label + Friend WithEvents cmdOpenFolderforRecording As System.Windows.Forms.Button + Friend WithEvents gbSynchRecording As System.Windows.Forms.GroupBox + Friend WithEvents cmdstopsr As System.Windows.Forms.Button + Friend WithEvents cmdstartsr As System.Windows.Forms.Button + Friend WithEvents txtoutpointsr As System.Windows.Forms.TextBox + Friend WithEvents txtinpointsr As System.Windows.Forms.TextBox + Friend WithEvents cmdoutpointsr As System.Windows.Forms.Button + Friend WithEvents cmdinpointsr As System.Windows.Forms.Button + Friend WithEvents Label173 As System.Windows.Forms.Label + Friend WithEvents cmdassembleoffvtr As System.Windows.Forms.Button + Friend WithEvents cmdassembleonvtr As System.Windows.Forms.Button + Friend WithEvents cmdplusoneframevtr As System.Windows.Forms.Button + Friend WithEvents cmdminusoneframevtr As System.Windows.Forms.Button + Friend WithEvents lbloutpointvtr As System.Windows.Forms.Label + Friend WithEvents lblinpointvtr As System.Windows.Forms.Label + Friend WithEvents cmdReviewvtr As System.Windows.Forms.Button + Friend WithEvents cmdpreviewvtr As System.Windows.Forms.Button + Friend WithEvents cmdautoeditvtr As System.Windows.Forms.Button + Friend WithEvents cmdrecordvtr As System.Windows.Forms.Button + Friend WithEvents lbljogvtr As System.Windows.Forms.Label + Friend WithEvents HScrollBarjogvtr As System.Windows.Forms.HScrollBar + Friend WithEvents lblshuttlevtr As System.Windows.Forms.Label + Friend WithEvents HScrollBarshuttlevtr As System.Windows.Forms.HScrollBar + Friend WithEvents lblvariablevtr As System.Windows.Forms.Label + Friend WithEvents HScrollBarvtr As System.Windows.Forms.HScrollBar + Friend WithEvents dgvcuepointsvtr As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents cmdmarkvtr As System.Windows.Forms.Button + Friend WithEvents cmdcuevtr As System.Windows.Forms.Button + Friend WithEvents cmdPreRollvtr As System.Windows.Forms.Button + Friend WithEvents cmdejectvtr As System.Windows.Forms.Button + Friend WithEvents cmdstandbyoffvtr As System.Windows.Forms.Button + Friend WithEvents cmdstandbyonvtr As System.Windows.Forms.Button + Friend WithEvents lbltimecode As System.Windows.Forms.Label + Friend WithEvents cmdffvtr As System.Windows.Forms.Button + Friend WithEvents cmdstopvtr As System.Windows.Forms.Button + Friend WithEvents cmdrewindvtr As System.Windows.Forms.Button + Friend WithEvents cmdoutpointvtr As System.Windows.Forms.Button + Friend WithEvents cmdinpointvtr As System.Windows.Forms.Button + Friend WithEvents cmdplayvtr As System.Windows.Forms.Button + Friend WithEvents cmdopenportsvtr As System.Windows.Forms.Button + Friend WithEvents lblcomportsvtr As System.Windows.Forms.Label + Friend WithEvents cmbportsvtr As System.Windows.Forms.ComboBox + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Label152 As System.Windows.Forms.Label + Friend WithEvents lblfreespace As System.Windows.Forms.Label + Friend WithEvents cmdlocaterecordingfile As System.Windows.Forms.Button + Friend WithEvents Label128 As System.Windows.Forms.Label + Friend WithEvents Label129 As System.Windows.Forms.Label + Friend WithEvents Label130 As System.Windows.Forms.Label + Friend WithEvents lblRecordedSize As System.Windows.Forms.Label + Friend WithEvents lblRecordedduration As System.Windows.Forms.Label + Friend WithEvents lblrecordingfilename As System.Windows.Forms.Label + Friend WithEvents chksinglecliprecord As System.Windows.Forms.CheckBox + Friend WithEvents txtextrarecordoptions As System.Windows.Forms.TextBox + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents txtfilename As System.Windows.Forms.TextBox + Friend WithEvents cmdremove_input As System.Windows.Forms.Button + Friend WithEvents mp4 As System.Windows.Forms.ComboBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtbitrate As System.Windows.Forms.TextBox + Friend WithEvents cmdlooprecord As System.Windows.Forms.Button + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents cmdstoplooprecord As System.Windows.Forms.Button + Friend WithEvents txtinterval As System.Windows.Forms.TextBox + Friend WithEvents lblinterval As System.Windows.Forms.Label + Friend WithEvents cmdinput As System.Windows.Forms.Button + Friend WithEvents tmrsr As System.Windows.Forms.Timer + Friend WithEvents tmrrecorder As System.Windows.Forms.Timer + Friend WithEvents tmrrecordedfileinfo As System.Windows.Forms.Timer + Friend WithEvents sp As System.IO.Ports.SerialPort + Friend WithEvents tmrgettc As System.Windows.Forms.Timer + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Label241 As System.Windows.Forms.Label + Friend WithEvents Label240 As System.Windows.Forms.Label + Friend WithEvents cmbaudiocodec As System.Windows.Forms.ComboBox + Friend WithEvents cmbvideocodec As System.Windows.Forms.ComboBox + Friend WithEvents cmbRecordingProfile As System.Windows.Forms.ComboBox + Friend WithEvents Label2 As System.Windows.Forms.Label +End Class diff --git a/CasparMediaPlayback/ucRecorder.resx b/CasparMediaPlayback/ucRecorder.resx new file mode 100644 index 0000000..27ae55f --- /dev/null +++ b/CasparMediaPlayback/ucRecorder.resx @@ -0,0 +1,141 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + 24, 9 + + + 104, 9 + + + 221, 9 + + + 378, 9 + + + 442, 9 + + + 25 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucRecorder.vb b/CasparMediaPlayback/ucRecorder.vb new file mode 100644 index 0000000..033612f --- /dev/null +++ b/CasparMediaPlayback/ucRecorder.vb @@ -0,0 +1,524 @@ +Imports System.IO + +Public Class ucRecorder + + Dim lengthfilename As Integer + Dim filename As String + Dim irecorder As Integer = 0 + Dim startingtimeofrecording As DateTime + Private Sub cmdoutcasparcgwindowrecording_Click(sender As Object, e As EventArgs) Handles cmdoutcasparcgwindowrecording.Click + On Error Resume Next + outcasparcgwindown() + End Sub + Public Sub outcasparcgwindown() + On Error Resume Next + 'This is important! If you have a child process on your form, it will terminate along with your form if you do not set its parent to Nothing + If Not parentedProcess Is Nothing Then + SetParent(parentedProcess.MainWindowHandle, Nothing) + End If + End Sub + Private Sub cmdshowcasparcgwindowrecording_Click(sender As Object, e As EventArgs) Handles cmdshowcasparcgwindowrecording.Click + On Error Resume Next + SetProcessParent("casparcg", cmbcasparcgwindowtitlerecording, pnlrecording) + End Sub + + Private Sub cmdinput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdinput.Click + On Error Resume Next + If frmmediaplayer.cmdconnect.BackColor = Color.Green Then + Dim str As String + + str = "play " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer & " decklink " & cmbdecklinkforrecording.Text + CasparDevice.SendString(str) + + End If + End Sub + + Private Sub cmdlocaterecordingfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlocaterecordingfile.Click + Process.Start("explorer.exe", "/select," & Replace(lblrecordingfilename.Text, "/", "\")) + End Sub + + + Private Sub cmdOpenFolderforRecording_Click(sender As Object, e As EventArgs) Handles cmdOpenFolderforRecording.Click + On Error Resume Next + + Dim aa As New OpenFileDialog + aa.DereferenceLinks = False + aa.CheckFileExists = False + aa.CheckPathExists = False + aa.Filter = "folders|n" + aa.Title = "Select Folder" + aa.InitialDirectory = Replace(mediafullpath, "/", "\") '"c:\casparcg\_media" + aa.FileName = aa.InitialDirectory & "select folder" + If aa.ShowDialog() = DialogResult.OK Then + lblRecordingFolder.Text = Directory.GetParent(aa.FileName).ToString & "\" + End If + + End Sub + + Private Sub cmdopenintrimmer_Click(sender As Object, e As EventArgs) Handles cmdopenintrimmer.Click + On Error Resume Next + frmmediaplayer.rdotrimmer.Select() + ucTrimmer.UcnewTrimmer11.openfileintrimmer(lblrecordingfilename.Text) + End Sub + + Private Sub cmdremove_input_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremove_input.Click + On Error Resume Next + If frmmediaplayer.cmdconnect.BackColor = Color.Green Then + Dim str = "stop " & g_int_ChannelNumber & "-" & g_int_PlaylistLayer + CasparDevice.SendString(str) + + End If + End Sub + + Private Sub cmdhidegbrecording_Click(sender As Object, e As EventArgs) + Me.Hide() + End Sub + + Private Sub cmdlooprecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlooprecord.Click + On Error Resume Next + If frmmediaplayer.cmdconnect.BackColor = Color.Green And sender.BackColor = Color.Red Then + record() + tmrrecorder.Interval = (txtinterval.Text) * 1000 + tmrrecorder.Enabled = True + tmrrecordedfileinfo.Enabled = True + + End If + lengthfilename = Len(txtfilename.Text) + filename = txtfilename.Text + irecorder = 0 + End Sub + Private Sub cmdopenportsvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopenportsvtr.Click + On Error Resume Next + openport() + End Sub + Sub openport() + On Error Resume Next + If sp.IsOpen = False Then + sp.PortName = cmbportsvtr.Text + sp.Encoding = System.Text.Encoding.Default + sp.Open() + End If + tmrgettc.Enabled = True + End Sub + Private Sub cmdplayvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplayvtr.Click + On Error Resume Next + sp.WriteLine(Chr(CInt("&H20")) & Chr(1) & Chr(33)) + End Sub + + Private Sub cmdstopvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstopvtr.Click + On Error Resume Next + sp.WriteLine(Chr(32) & Chr(0) & Chr(32)) + End Sub + + Private Sub cmdrewindvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrewindvtr.Click + On Error Resume Next + sp.WriteLine(Chr(32) & Chr(32) & Chr(64)) + End Sub + Private Sub cmdffvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdffvtr.Click + On Error Resume Next + sp.WriteLine(Chr(32) & Chr(16) & Chr(48)) + End Sub + + Private Sub cmdinpointvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdinpointvtr.Click + On Error Resume Next + sp.WriteLine(Chr(64) & Chr(16) & Chr(80)) + lblinpointvtr.Text = lbltimecode.Text + End Sub + + Private Sub cmdoutpointvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdoutpointvtr.Click + On Error Resume Next + sp.WriteLine(Chr(64) & Chr(17) & Chr(81)) + lbloutpointvtr.Text = lbltimecode.Text + End Sub + + Private Sub cmdPreRollvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPreRollvtr.Click + On Error Resume Next + sp.WriteLine(Chr(32) & Chr(48) & Chr(80)) + End Sub + + Private Sub cmdejectvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdejectvtr.Click + On Error Resume Next + sp.WriteLine(Chr(32) & Chr(15) & Chr(47)) + End Sub + + Private Sub cmdstandbyonvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstandbyonvtr.Click + On Error Resume Next + sp.WriteLine(Chr(32) & Chr(5) & Chr(37)) + End Sub + + Private Sub cmdstandbyoffvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstandbyoffvtr.Click + On Error Resume Next + sp.WriteLine(Chr(32) & Chr(4) & Chr(36)) + End Sub + + Private Sub cmdcuevtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcuevtr.Click + On Error Resume Next + + Dim aa As Array = Split(dgvcuepointsvtr.CurrentRow.Cells(0).Value, ":") + Dim bb As String = Chr(36) & Chr(49) & Chr(System.Convert.ToInt32(aa(3), 16)) & Chr(System.Convert.ToInt32(aa(2), 16)) & Chr(System.Convert.ToInt32(aa(1), 16)) & Chr(System.Convert.ToInt32(aa(0), 16)) & _ + Chr(36 + 49 + System.Convert.ToInt32(aa(3), 16) + System.Convert.ToInt32(aa(2), 16) + System.Convert.ToInt32(aa(1), 16) + System.Convert.ToInt32(aa(0), 16)) + sp.WriteLine(bb) + End Sub + + Private Sub cmdmarkvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmarkvtr.Click + On Error Resume Next + dgvcuepointsvtr.CurrentRow.Cells(0).Value = lbltimecode.Text + dgvcuepointsvtr.Rows.Add() + dgvcuepointsvtr.CurrentCell = dgvcuepointsvtr.Rows(dgvcuepointsvtr.CurrentRow.Index + 1).Cells(0) + + End Sub + + + Sub bbb() Handles HScrollBarjogvtr.MouseLeave, HScrollBarvtr.MouseLeave, HScrollBarshuttlevtr.MouseLeave + On Error Resume Next + HScrollBarjogvtr.Value = 0 + HScrollBarvtr.Value = 0 + HScrollBarshuttlevtr.Value = 0 + End Sub + + Private Sub HScrollBarshuttlevtr_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBarshuttlevtr.ValueChanged + On Error Resume Next + Dim aa As Integer = HScrollBarshuttlevtr.Value + If aa > 0 Then + sp.WriteLine(Chr(33) & Chr(19) & Chr(aa) & Chr(33 + 19 + aa)) + Else + sp.WriteLine(Chr(33) & Chr(35) & Chr(Math.Abs(aa)) & Chr(33 + 35 + Math.Abs(aa))) + End If + End Sub + + Private Sub HScrollBarvtr_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBarvtr.ValueChanged + On Error Resume Next + Dim aa As Integer = HScrollBarvtr.Value + If aa > 0 Then + sp.WriteLine(Chr(33) & Chr(18) & Chr(aa) & Chr(33 + 18 + aa)) + Else + sp.WriteLine(Chr(33) & Chr(34) & Chr(Math.Abs(aa)) & Chr(33 + 34 + Math.Abs(aa))) + End If + End Sub + + Private Sub HScrollBarjogvtr_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBarjogvtr.ValueChanged + On Error Resume Next + Dim aa As Integer = HScrollBarjogvtr.Value + If aa > 0 Then + sp.WriteLine(Chr(33) & Chr(17) & Chr(aa) & Chr(33 + 17 + aa)) + Else + sp.WriteLine(Chr(33) & Chr(33) & Chr(Math.Abs(aa)) & Chr(33 + 33 + Math.Abs(aa))) + End If + End Sub + + Private Sub cmdrecordvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrecordvtr.Click + On Error Resume Next + sp.WriteLine(Chr(32) & Chr(2) & Chr(32 + 2)) + End Sub + + Private Sub cmdautoeditvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdautoeditvtr.Click + On Error Resume Next + sp.WriteLine(Chr(32) & Chr(66) & Chr(32 + 66)) + End Sub + + Private Sub cmdpreviewvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpreviewvtr.Click + On Error Resume Next + sp.WriteLine(Chr(32) & Chr(64) & Chr(32 + 64)) + End Sub + + Private Sub cmdReviewvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdReviewvtr.Click + On Error Resume Next + sp.WriteLine(Chr(32) & Chr(65) & Chr(32 + 65)) + End Sub + + Private Sub cmdplusoneframevtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdplusoneframevtr.Click + On Error Resume Next + + Dim aa As Array = Split(lbltimecode.Text, ":") + Dim bb As String = Chr(36) & Chr(49) & Chr(System.Convert.ToInt32(aa(3), 16) + 1) & Chr(System.Convert.ToInt32(aa(2), 16)) & Chr(System.Convert.ToInt32(aa(1), 16)) & Chr(System.Convert.ToInt32(aa(0), 16)) & _ + Chr(36 + 49 + System.Convert.ToInt32(aa(3), 16) + 1 + System.Convert.ToInt32(aa(2), 16) + System.Convert.ToInt32(aa(1), 16) + System.Convert.ToInt32(aa(0), 16)) + sp.WriteLine(bb) + End Sub + + Private Sub cmdminusoneframevtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdminusoneframevtr.Click + On Error Resume Next + + Dim aa As Array = Split(lbltimecode.Text, ":") + + Dim bb As String = Chr(36) & Chr(49) & Chr(System.Convert.ToInt32(aa(3) - 1, 16)) & Chr(System.Convert.ToInt32(aa(2), 16)) & Chr(System.Convert.ToInt32(aa(1), 16)) & Chr(System.Convert.ToInt32(aa(0), 16)) & _ + Chr(36 + 49 + System.Convert.ToInt32(aa(3) - 1, 16) + System.Convert.ToInt32(aa(2), 16) + System.Convert.ToInt32(aa(1), 16) + System.Convert.ToInt32(aa(0), 16)) + sp.WriteLine(bb) + End Sub + + Private Sub cmdassembleonvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdassembleonvtr.Click + On Error Resume Next + sp.WriteLine(Chr(66) & Chr(48) & Chr(32) & Chr(0) & Chr(66 + 48 + 32 + 0)) + End Sub + + Private Sub cmdassembleoffvtr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdassembleoffvtr.Click + On Error Resume Next + sp.WriteLine(Chr(66) & Chr(48) & Chr(0) & Chr(0) & Chr(66 + 48 + 0 + 0)) + End Sub + + + Private Sub cmdstoplooprecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstoplooprecord.Click + On Error Resume Next + stoprecord() + txtfilename.Text = "" + tmrrecorder.Enabled = False + tmrrecordedfileinfo.Enabled = False + + End Sub + + Sub record() + On Error Resume Next + lblRecordedduration.Text = "" + lblRecordedSize.Text = "" + + Dim str As String + str = "ADD " & g_int_ChannelNumber & " FILE " & """" & Replace(Mid(lblRecordingFolder.Text, Len(mediafullpath) + 1), "\", "/") & "/" & txtfilename.Text & "." & mp4.Text & """" & " -b:v " & Val(txtbitrate.Text) * 1000000 & " " & txtextrarecordoptions.Text + CasparDevice.SendString(str) + + startingtimeofrecording = Now + If frmmediaplayer.cmdconnect.BackColor = Color.Green Then cmdlooprecord.BackColor = Color.Green + End Sub + Sub stoprecord() + On Error Resume Next + Dim str As String + str = "REMOVE " & g_int_ChannelNumber & " FILE " & "/" & txtfilename.Text & "." & mp4.Text + + CasparDevice.SendString(str) + cmdlooprecord.BackColor = Color.Red + End Sub + + + + + + 'synch record code start + Private Sub cmdstopsr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstopsr.Click + On Error Resume Next + tmrsr.Enabled = False + tmrrecordedfileinfo.Enabled = False + stoprecord() + End Sub + + Private Sub cmdinpointsr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdinpointsr.Click + On Error Resume Next + txtinpointsr.Text = lbltimecode.Text + End Sub + + Private Sub cmdoutpointsr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdoutpointsr.Click + On Error Resume Next + txtoutpointsr.Text = lbltimecode.Text + End Sub + + Private Sub cmdstartsr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstartsr.Click + On Error Resume Next + tmrsr.Enabled = True + + End Sub + Private Sub tmrsr_Tick(sender As Object, e As EventArgs) Handles tmrsr.Tick + + On Error Resume Next + If lbltimecode.Text = txtinpointsr.Text Then + record() + tmrrecordedfileinfo.Enabled = True + ElseIf lbltimecode.Text = txtoutpointsr.Text Then + stoprecord() + tmrrecordedfileinfo.Enabled = False + tmrsr.Enabled = False + End If + End Sub + + Private Sub tmrrecorder_Tick(sender As Object, e As EventArgs) Handles tmrrecorder.Tick + + On Error Resume Next + + stoprecord() + If chksinglecliprecord.Checked = False Then + irecorder = irecorder + 1 + txtfilename.Text = filename & "_" & irecorder + record() + Else + tmrrecorder.Enabled = False + tmrrecordedfileinfo.Enabled = False + End If + End Sub + + + Private Sub tmrrecordedfileinfo_Tick(sender As Object, e As EventArgs) Handles tmrrecordedfileinfo.Tick + + On Error Resume Next + lblrecordingfilename.Text = lblRecordingFolder.Text & txtfilename.Text & "." & mp4.Text + If File.Exists(lblrecordingfilename.Text) Then + Dim f As New FileInfo(lblrecordingfilename.Text) + + Dim recoredduration As TimeSpan = Now - startingtimeofrecording + lblRecordedduration.Text = recoredduration.ToString("hh\:mm\:ss") + lblRecordedSize.Text = f.Length / 1000000 & " MB" + + Else + End If + + + lblfreespace.Text = My.Computer.FileSystem.GetDriveInfo(Mid(mediafullpath, 1, 2)).TotalFreeSpace / 1000000000 & " GB" + End Sub + 'vtr code--------------- + + Sub GetSerialPortNames() + On Error Resume Next + cmbportsvtr.Items.AddRange(IO.Ports.SerialPort.GetPortNames()) + End Sub + + Private Sub initialisedatafordgvcuepointsvtr() + dgvcuepointsvtr.Rows.Add(10) + dgvcuepointsvtr.Rows(0).Cells(0).Value = "00:00:00:00" + dgvcuepointsvtr.Rows(1).Cells(0).Value = "00:01:00:00" + dgvcuepointsvtr.Rows(2).Cells(0).Value = "00:02:00:00" + dgvcuepointsvtr.Rows(3).Cells(0).Value = "00:03:00:00" + dgvcuepointsvtr.Rows(4).Cells(0).Value = "00:04:00:00" + dgvcuepointsvtr.Rows(5).Cells(0).Value = "00:05:00:00" + dgvcuepointsvtr.Rows(6).Cells(0).Value = "00:06:00:00" + dgvcuepointsvtr.Rows(7).Cells(0).Value = "00:07:00:00" + dgvcuepointsvtr.Rows(8).Cells(0).Value = "00:08:00:00" + dgvcuepointsvtr.Rows(9).Cells(0).Value = "00:09:00:00" + dgvcuepointsvtr.CurrentCell = dgvcuepointsvtr.Rows(2).Cells(0) + End Sub + + + Private Sub tmrgettc_Tick(sender As Object, e As EventArgs) Handles tmrgettc.Tick + On Error Resume Next + sp.WriteLine(Chr(97) & Chr(12) & Chr(1) & Chr(110)) + Threading.Thread.Sleep(15) + + Dim timecode As String = "" + Dim bb As String = sp.ReadExisting + + Dim str As String = "" + For ivtr = 3 To Len(bb) - 1 + str = Mid(bb, ivtr, 1) + Dim byteArray() As Byte + byteArray = System.Text.ASCIIEncoding.ASCII.GetBytes(str) + timecode = Val(Hex(byteArray(0))).ToString("00") & ":" & timecode + + Next + + lbltimecode.Text = Mid(timecode, 13, 11) + End Sub + + + + Private Sub ucRecorder_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + GetSerialPortNames() + initialisedatafordgvcuepointsvtr() + + lblRecordingFolder.Text = mediafullpath + End Sub + + Private Sub cmbRecordingProfile_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbRecordingProfile.SelectedIndexChanged + If cmbRecordingProfile.Text = "dvcam" Then + txtextrarecordoptions.Text = "-codec:v dvvideo -codec:a pcm_s16le -pix_fmt yuv420p -vf setdar=4:3" + txtbitrate.Text = 25 + mp4.Text = "mxf" + End If + + If cmbRecordingProfile.Text = "dvcpro" Then + txtextrarecordoptions.Text = "-codec:v dvvideo -codec:a pcm_s16le -pix_fmt yuv411p -vf setdar=4:3" + txtbitrate.Text = 25 + mp4.Text = "mxf" + End If + + If cmbRecordingProfile.Text = "dvcpro50" Then + txtextrarecordoptions.Text = "-codec:v dvvideo -codec:a pcm_s16le -pix_fmt yuv422p -vf setdar=4:3" + txtbitrate.Text = 50 + mp4.Text = "mxf" + End If + + + If cmbRecordingProfile.Text = "dvcproHD" Then + txtextrarecordoptions.Text = "-codec:v dvvideo -codec:a pcm_s16le -pix_fmt yuv422p" + txtbitrate.Text = 100 + mp4.Text = "mxf" + End If + + If cmbRecordingProfile.Text = "AlphaVideo" Then + txtextrarecordoptions.Text = "-codec:v qtrle" + txtbitrate.Text = 50 + mp4.Text = "mov" + End If + + If cmbRecordingProfile.Text = "H264" Then + txtextrarecordoptions.Text = "-codec:v libx264" + txtbitrate.Text = 12 + mp4.Text = "mp4" + End If + + If cmbRecordingProfile.Text = "H265" Then + If Mid(frmmediaplayer.lblserverversion.Text, 1, 3) = "2.0" Then + txtextrarecordoptions.Text = "-codec:v libx265 -strict experimental -aspect 4:3" + Else + txtextrarecordoptions.Text = "-codec:v libx265 -strict experimental -vf setdar=4:3" + End If + + txtbitrate.Text = 12 + mp4.Text = "mp4" + End If + + If cmbRecordingProfile.Text = "XDCAMHD422" Then + txtextrarecordoptions.Text = "-codec:a pcm_s24le -codec:v mpeg2video -pix_fmt yuv422p -alternate_scan 1 -g 12 -bf 2 -minrate 50000k -maxrate 50000k -timecode 00:02:00:00 -metadata creation_time=now -color_primaries bt709 -color_trc 1 -colorspace 1 -f mxf mono_streams" + txtbitrate.Text = 50 + mp4.Text = "mxf" + End If + + If cmbRecordingProfile.Text = "IMX30" Then + txtextrarecordoptions.Text = "-codec:a pcm_s16le -codec:v mpeg2video -pix_fmt yuv422p -alternate_scan 1 -g 1 -minrate 30000k -maxrate 30000k -timecode 17:28:07:10 -metadata creation_time=now -color_primaries bt470bg -color_trc 1 -colorspace bt470bg -vf setdar=4:3 -f mxf_d10 -d10_channelcount 8" + txtbitrate.Text = 30 + mp4.Text = "mxf" + End If + + If cmbRecordingProfile.Text = "IMX40" Then + txtextrarecordoptions.Text = "-codec:a pcm_s16le -codec:v mpeg2video -pix_fmt yuv422p -alternate_scan 1 -g 1 -minrate 40000k -maxrate 40000k -timecode 17:28:07:10 -metadata creation_time=now -color_primaries bt470bg -color_trc 1 -colorspace bt470bg -vf setdar=4:3 -f mxf_d10 -d10_channelcount 8" + txtbitrate.Text = 40 + mp4.Text = "mxf" + End If + + + If cmbRecordingProfile.Text = "IMX50" Then + txtextrarecordoptions.Text = "-codec:a pcm_s16le -codec:v mpeg2video -pix_fmt yuv422p -alternate_scan 1 -g 1 -minrate 50000k -maxrate 50000k -timecode 17:28:07:10 -metadata creation_time=now -color_primaries bt470bg -color_trc 1 -colorspace bt470bg -vf setdar=4:3 -f mxf_d10 -d10_channelcount 8" + txtbitrate.Text = 50 + mp4.Text = "mxf" + End If + If cmbRecordingProfile.Text = "MP3 Audio only" Then + txtextrarecordoptions.Text = "-codec:a libmp3lame" + txtbitrate.Text = 1 + mp4.Text = "mp3" + End If + + + End Sub + + Private Sub cmbvideocodec_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbvideocodec.SelectedIndexChanged + On Error Resume Next + Dim aa() = Split(txtextrarecordoptions.Text, " ") + Dim ii As Integer = 0 + For ii = 0 To aa.Count + If aa(ii) = "-codec:v" Then Exit For + Next + If ii < aa.Count Then + txtextrarecordoptions.Text = Replace(txtextrarecordoptions.Text, aa(ii + 1), cmbvideocodec.Text) + Else + txtextrarecordoptions.Text = "-codec:v " & cmbvideocodec.Text & " " & txtextrarecordoptions.Text + End If + End Sub + + Private Sub cmbaudiocodec_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbaudiocodec.SelectedIndexChanged + On Error Resume Next + Dim aa() = Split(txtextrarecordoptions.Text, " ") + Dim ii As Integer = 0 + For ii = 0 To aa.Count + If aa(ii) = "-codec:a" Then Exit For + Next + If ii < aa.Count Then + txtextrarecordoptions.Text = Replace(txtextrarecordoptions.Text, aa(ii + 1), cmbaudiocodec.Text) + Else + txtextrarecordoptions.Text = "-codec:a " & cmbaudiocodec.Text & " " & txtextrarecordoptions.Text + End If + End Sub +End Class diff --git a/CasparMediaPlayback/ucRemoteLogging.Designer.vb b/CasparMediaPlayback/ucRemoteLogging.Designer.vb new file mode 100644 index 0000000..3f3d75a --- /dev/null +++ b/CasparMediaPlayback/ucRemoteLogging.Designer.vb @@ -0,0 +1,143 @@ + _ +Partial Class ucRemoteLogging + 'Inherits System.Windows.Forms.UserControl + Inherits WeifenLuo.WinFormsUI.Docking.DockContent + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.gbRemoteLogging = New System.Windows.Forms.GroupBox() + Me.Label274 = New System.Windows.Forms.Label() + Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() + Me.Label276 = New System.Windows.Forms.Label() + Me.cmbportgbRemoteLogging = New System.Windows.Forms.ComboBox() + Me.txtgbRemoteLogging = New System.Windows.Forms.TextBox() + Me.cmddisConnectRemoteLogging = New System.Windows.Forms.Button() + Me.cmdConnectRemoteLogging = New System.Windows.Forms.Button() + Me.gbRemoteLogging.SuspendLayout() + Me.SuspendLayout() + ' + 'gbRemoteLogging + ' + Me.gbRemoteLogging.BackColor = System.Drawing.Color.Wheat + Me.gbRemoteLogging.Controls.Add(Me.Label274) + Me.gbRemoteLogging.Controls.Add(Me.LinkLabel3) + Me.gbRemoteLogging.Controls.Add(Me.Label276) + Me.gbRemoteLogging.Controls.Add(Me.cmbportgbRemoteLogging) + Me.gbRemoteLogging.Controls.Add(Me.txtgbRemoteLogging) + Me.gbRemoteLogging.Controls.Add(Me.cmddisConnectRemoteLogging) + Me.gbRemoteLogging.Controls.Add(Me.cmdConnectRemoteLogging) + Me.gbRemoteLogging.Location = New System.Drawing.Point(2, 3) + Me.gbRemoteLogging.Name = "gbRemoteLogging" + Me.gbRemoteLogging.Size = New System.Drawing.Size(660, 605) + Me.gbRemoteLogging.TabIndex = 1175 + Me.gbRemoteLogging.TabStop = False + Me.gbRemoteLogging.Text = "Remote Logging for Server 2.1 ( Useful when server is on rempte PC)" + ' + 'Label274 + ' + Me.Label274.AutoSize = True + Me.Label274.Location = New System.Drawing.Point(397, 9) + Me.Label274.Name = "Label274" + Me.Label274.Size = New System.Drawing.Size(137, 13) + Me.Label274.TabIndex = 1178 + Me.Label274.Text = "Download server from here." + ' + 'LinkLabel3 + ' + Me.LinkLabel3.AutoSize = True + Me.LinkLabel3.Location = New System.Drawing.Point(397, 26) + Me.LinkLabel3.Name = "LinkLabel3" + Me.LinkLabel3.Size = New System.Drawing.Size(140, 13) + Me.LinkLabel3.TabIndex = 1177 + Me.LinkLabel3.TabStop = True + Me.LinkLabel3.Text = "http://builds.casparcg.com/" + ' + 'Label276 + ' + Me.Label276.AutoSize = True + Me.Label276.Location = New System.Drawing.Point(9, 26) + Me.Label276.Name = "Label276" + Me.Label276.Size = New System.Drawing.Size(26, 13) + Me.Label276.TabIndex = 10 + Me.Label276.Text = "Port" + ' + 'cmbportgbRemoteLogging + ' + Me.cmbportgbRemoteLogging.FormattingEnabled = True + Me.cmbportgbRemoteLogging.Location = New System.Drawing.Point(41, 22) + Me.cmbportgbRemoteLogging.Name = "cmbportgbRemoteLogging" + Me.cmbportgbRemoteLogging.Size = New System.Drawing.Size(58, 21) + Me.cmbportgbRemoteLogging.TabIndex = 9 + Me.cmbportgbRemoteLogging.Text = "3250" + ' + 'txtgbRemoteLogging + ' + Me.txtgbRemoteLogging.Location = New System.Drawing.Point(12, 48) + Me.txtgbRemoteLogging.Multiline = True + Me.txtgbRemoteLogging.Name = "txtgbRemoteLogging" + Me.txtgbRemoteLogging.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtgbRemoteLogging.Size = New System.Drawing.Size(636, 551) + Me.txtgbRemoteLogging.TabIndex = 8 + ' + 'cmddisConnectRemoteLogging + ' + Me.cmddisConnectRemoteLogging.Enabled = False + Me.cmddisConnectRemoteLogging.Location = New System.Drawing.Point(183, 21) + Me.cmddisConnectRemoteLogging.Name = "cmddisConnectRemoteLogging" + Me.cmddisConnectRemoteLogging.Size = New System.Drawing.Size(75, 23) + Me.cmddisConnectRemoteLogging.TabIndex = 7 + Me.cmddisConnectRemoteLogging.Text = "Disconnect" + Me.cmddisConnectRemoteLogging.UseVisualStyleBackColor = True + ' + 'cmdConnectRemoteLogging + ' + Me.cmdConnectRemoteLogging.Location = New System.Drawing.Point(102, 21) + Me.cmdConnectRemoteLogging.Name = "cmdConnectRemoteLogging" + Me.cmdConnectRemoteLogging.Size = New System.Drawing.Size(75, 23) + Me.cmdConnectRemoteLogging.TabIndex = 6 + Me.cmdConnectRemoteLogging.Text = "Connect" + Me.cmdConnectRemoteLogging.UseVisualStyleBackColor = True + ' + 'ucRemoteLogging + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.ClientSize = New System.Drawing.Size(666, 613) + Me.Controls.Add(Me.gbRemoteLogging) + Me.HideOnClose = True + Me.Name = "ucRemoteLogging" + Me.Text = "Remote Logging" + Me.gbRemoteLogging.ResumeLayout(False) + Me.gbRemoteLogging.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbRemoteLogging As System.Windows.Forms.GroupBox + Friend WithEvents Label276 As System.Windows.Forms.Label + Friend WithEvents cmbportgbRemoteLogging As System.Windows.Forms.ComboBox + Friend WithEvents txtgbRemoteLogging As System.Windows.Forms.TextBox + Friend WithEvents cmddisConnectRemoteLogging As System.Windows.Forms.Button + Friend WithEvents cmdConnectRemoteLogging As System.Windows.Forms.Button + Friend WithEvents Label274 As System.Windows.Forms.Label + Friend WithEvents LinkLabel3 As System.Windows.Forms.LinkLabel + +End Class diff --git a/CasparMediaPlayback/ucRemoteLogging.resx b/CasparMediaPlayback/ucRemoteLogging.resx new file mode 100644 index 0000000..29dcb1b --- /dev/null +++ b/CasparMediaPlayback/ucRemoteLogging.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucRemoteLogging.vb b/CasparMediaPlayback/ucRemoteLogging.vb new file mode 100644 index 0000000..2acf705 --- /dev/null +++ b/CasparMediaPlayback/ucRemoteLogging.vb @@ -0,0 +1,66 @@ +Imports System.Net.Sockets + +Public Class ucRemoteLogging + Private m_DataBuffer As Byte() = New Byte(9) {} + Private m_asynResult As IAsyncResult + Public pfnCallBack As AsyncCallback + Public m_socClient As Socket + Public Class CSocketPacket + Public thisSocket As System.Net.Sockets.Socket + Public dataBuffer As Byte() = New Byte(0) {} + End Class + Private Sub cmdConnectRemoteLogging_Click(sender As Object, e As EventArgs) Handles cmdConnectRemoteLogging.Click + On Error Resume Next + m_socClient = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) + m_socClient.Connect(frmmediaplayer.cmbhost.Text, cmbportgbRemoteLogging.Text) + If m_socClient.Connected Then + cmdConnectRemoteLogging.Enabled = False + cmddisConnectRemoteLogging.Enabled = True + + WaitForData() + Else + m_socClient = Nothing + End If + End Sub + Public Sub OnDataReceived(asyn As IAsyncResult) + On Error Resume Next + Control.CheckForIllegalCrossThreadCalls = False + + Dim theSockId As CSocketPacket = DirectCast(asyn.AsyncState, CSocketPacket) + 'end receive... + Dim iRx As Integer = 0 + iRx = theSockId.thisSocket.EndReceive(asyn) + Dim chars As Char() = New Char(iRx) {} + Dim d As System.Text.Decoder = System.Text.Encoding.UTF8.GetDecoder() + Dim charLen As Integer = d.GetChars(theSockId.dataBuffer, 0, iRx, chars, 0) + Dim szData As New System.String(chars) + + txtgbRemoteLogging.AppendText(szData) + WaitForData() + + End Sub + Private Sub cmddisConnectRemoteLogging_Click(sender As Object, e As EventArgs) Handles cmddisConnectRemoteLogging.Click + On Error Resume Next + If m_socClient IsNot Nothing Then + m_socClient.Dispose() + m_socClient.Close() + m_socClient = Nothing + cmdConnectRemoteLogging.Enabled = True + cmddisConnectRemoteLogging.Enabled = False + End If + End Sub + + Public Sub WaitForData() + On Error Resume Next + If pfnCallBack Is Nothing Then + pfnCallBack = New AsyncCallback(AddressOf OnDataReceived) + End If + Dim theSocPkt As New CSocketPacket() + theSocPkt.thisSocket = m_socClient + + m_asynResult = m_socClient.BeginReceive(theSocPkt.dataBuffer, 0, theSocPkt.dataBuffer.Length, SocketFlags.None, pfnCallBack, theSocPkt) + + End Sub + + +End Class diff --git a/CasparMediaPlayback/ucnewOffAirLogger.Designer.vb b/CasparMediaPlayback/ucnewOffAirLogger.Designer.vb new file mode 100644 index 0000000..7013923 --- /dev/null +++ b/CasparMediaPlayback/ucnewOffAirLogger.Designer.vb @@ -0,0 +1,923 @@ + +Partial Class ucnewOffAirLogger + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucnewOffAirLogger)) + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Me.gboffairlogger = New System.Windows.Forms.GroupBox() + Me.cmdShowInfo = New System.Windows.Forms.Button() + Me.cmdPlayinvlc = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblsheduleStatus = New System.Windows.Forms.Label() + Me.lblChannel = New System.Windows.Forms.Label() + Me.ProgressBar2 = New VerticalProgressBar.VerticalProgressBar() + Me.ProgressBar1 = New VerticalProgressBar.VerticalProgressBar() + Me.pnlrecording = New System.Windows.Forms.Panel() + Me.cmbcasparcgwindowtitlerecording = New System.Windows.Forms.ComboBox() + Me.cmdoutcasparcgwindowrecording = New System.Windows.Forms.Button() + Me.cmdshowcasparcgwindowrecording = New System.Windows.Forms.Button() + Me.lblEstimateddaysvalueoal = New System.Windows.Forms.Label() + Me.lblEstimateddaysoal = New System.Windows.Forms.Label() + Me.lblspacerequiredoal = New System.Windows.Forms.Label() + Me.lbltotalsizeoal = New System.Windows.Forms.Label() + Me.lbltotalsizecaptionoal = New System.Windows.Forms.Label() + Me.Label153 = New System.Windows.Forms.Label() + Me.lblfreespaceoal = New System.Windows.Forms.Label() + Me.Label134 = New System.Windows.Forms.Label() + Me.cmdlocaterecordingfileoal = New System.Windows.Forms.Button() + Me.Label131 = New System.Windows.Forms.Label() + Me.Label132 = New System.Windows.Forms.Label() + Me.Label133 = New System.Windows.Forms.Label() + Me.lblRecordedSizeoal = New System.Windows.Forms.Label() + Me.lblRecordeddurationoal = New System.Windows.Forms.Label() + Me.lblrecordingfilenameoal = New System.Windows.Forms.Label() + Me.txtextraoptionoal = New System.Windows.Forms.TextBox() + Me.lblextraoptionoal = New System.Windows.Forms.Label() + Me.lblshedulerecordingplaylist = New System.Windows.Forms.Label() + Me.deleteshedulerecording = New System.Windows.Forms.Button() + Me.addshedulerecording = New System.Windows.Forms.Button() + Me.cmdshedulerecordingstop = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.cmdshedulerecording = New System.Windows.Forms.Button() + Me.lbltestshedulerecording = New System.Windows.Forms.Label() + Me.dgvshedulerecording = New System.Windows.Forms.DataGridView() + Me.Label127 = New System.Windows.Forms.Label() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.dtpdeleteoal = New System.Windows.Forms.DateTimePicker() + Me.cmbliveoal = New System.Windows.Forms.ComboBox() + Me.chkshowtimeofl = New System.Windows.Forms.CheckBox() + Me.cmdmediadirectoryofl = New System.Windows.Forms.Button() + Me.txtmediadirectoryoal = New System.Windows.Forms.TextBox() + Me.cmdremoveinputoal = New System.Windows.Forms.Button() + Me.cmdshowinputoal = New System.Windows.Forms.Button() + Me.Label73 = New System.Windows.Forms.Label() + Me.txtdatetodeleteoal = New System.Windows.Forms.TextBox() + Me.cmddeletefilesoal = New System.Windows.Forms.Button() + Me.cmbfileformateoal = New System.Windows.Forms.ComboBox() + Me.dtpoal = New System.Windows.Forms.DateTimePicker() + Me.Label51 = New System.Windows.Forms.Label() + Me.Label66 = New System.Windows.Forms.Label() + Me.txtbitrateofl = New System.Windows.Forms.TextBox() + Me.cmdrecordoal = New System.Windows.Forms.Button() + Me.Label71 = New System.Windows.Forms.Label() + Me.cmdstoprecordoal = New System.Windows.Forms.Button() + Me.txtfilelengthofl = New System.Windows.Forms.TextBox() + Me.Label72 = New System.Windows.Forms.Label() + Me.tmrrecordedfileinfooal = New System.Windows.Forms.Timer(Me.components) + Me.tmroal = New System.Windows.Forms.Timer(Me.components) + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.gboffairlogger.SuspendLayout() + CType(Me.dgvshedulerecording, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MenuStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'gboffairlogger + ' + Me.gboffairlogger.BackColor = System.Drawing.Color.Pink + Me.gboffairlogger.Controls.Add(Me.MenuStrip1) + Me.gboffairlogger.Controls.Add(Me.cmdShowInfo) + Me.gboffairlogger.Controls.Add(Me.cmdPlayinvlc) + Me.gboffairlogger.Controls.Add(Me.Button1) + Me.gboffairlogger.Controls.Add(Me.Label1) + Me.gboffairlogger.Controls.Add(Me.lblsheduleStatus) + Me.gboffairlogger.Controls.Add(Me.lblChannel) + Me.gboffairlogger.Controls.Add(Me.ProgressBar2) + Me.gboffairlogger.Controls.Add(Me.ProgressBar1) + Me.gboffairlogger.Controls.Add(Me.pnlrecording) + Me.gboffairlogger.Controls.Add(Me.cmbcasparcgwindowtitlerecording) + Me.gboffairlogger.Controls.Add(Me.cmdoutcasparcgwindowrecording) + Me.gboffairlogger.Controls.Add(Me.cmdshowcasparcgwindowrecording) + Me.gboffairlogger.Controls.Add(Me.lblEstimateddaysvalueoal) + Me.gboffairlogger.Controls.Add(Me.lblEstimateddaysoal) + Me.gboffairlogger.Controls.Add(Me.lblspacerequiredoal) + Me.gboffairlogger.Controls.Add(Me.lbltotalsizeoal) + Me.gboffairlogger.Controls.Add(Me.lbltotalsizecaptionoal) + Me.gboffairlogger.Controls.Add(Me.Label153) + Me.gboffairlogger.Controls.Add(Me.lblfreespaceoal) + Me.gboffairlogger.Controls.Add(Me.Label134) + Me.gboffairlogger.Controls.Add(Me.cmdlocaterecordingfileoal) + Me.gboffairlogger.Controls.Add(Me.Label131) + Me.gboffairlogger.Controls.Add(Me.Label132) + Me.gboffairlogger.Controls.Add(Me.Label133) + Me.gboffairlogger.Controls.Add(Me.lblRecordedSizeoal) + Me.gboffairlogger.Controls.Add(Me.lblRecordeddurationoal) + Me.gboffairlogger.Controls.Add(Me.lblrecordingfilenameoal) + Me.gboffairlogger.Controls.Add(Me.txtextraoptionoal) + Me.gboffairlogger.Controls.Add(Me.lblextraoptionoal) + Me.gboffairlogger.Controls.Add(Me.lblshedulerecordingplaylist) + Me.gboffairlogger.Controls.Add(Me.deleteshedulerecording) + Me.gboffairlogger.Controls.Add(Me.addshedulerecording) + Me.gboffairlogger.Controls.Add(Me.cmdshedulerecordingstop) + Me.gboffairlogger.Controls.Add(Me.Button4) + Me.gboffairlogger.Controls.Add(Me.cmdshedulerecording) + Me.gboffairlogger.Controls.Add(Me.lbltestshedulerecording) + Me.gboffairlogger.Controls.Add(Me.dgvshedulerecording) + Me.gboffairlogger.Controls.Add(Me.Label127) + Me.gboffairlogger.Controls.Add(Me.Panel2) + Me.gboffairlogger.Controls.Add(Me.dtpdeleteoal) + Me.gboffairlogger.Controls.Add(Me.cmbliveoal) + Me.gboffairlogger.Controls.Add(Me.chkshowtimeofl) + Me.gboffairlogger.Controls.Add(Me.cmdmediadirectoryofl) + Me.gboffairlogger.Controls.Add(Me.txtmediadirectoryoal) + Me.gboffairlogger.Controls.Add(Me.cmdremoveinputoal) + Me.gboffairlogger.Controls.Add(Me.cmdshowinputoal) + Me.gboffairlogger.Controls.Add(Me.Label73) + Me.gboffairlogger.Controls.Add(Me.txtdatetodeleteoal) + Me.gboffairlogger.Controls.Add(Me.cmddeletefilesoal) + Me.gboffairlogger.Controls.Add(Me.cmbfileformateoal) + Me.gboffairlogger.Controls.Add(Me.dtpoal) + Me.gboffairlogger.Controls.Add(Me.Label51) + Me.gboffairlogger.Controls.Add(Me.Label66) + Me.gboffairlogger.Controls.Add(Me.txtbitrateofl) + Me.gboffairlogger.Controls.Add(Me.cmdrecordoal) + Me.gboffairlogger.Controls.Add(Me.Label71) + Me.gboffairlogger.Controls.Add(Me.cmdstoprecordoal) + Me.gboffairlogger.Controls.Add(Me.txtfilelengthofl) + Me.gboffairlogger.Controls.Add(Me.Label72) + Me.gboffairlogger.ForeColor = System.Drawing.Color.Black + Me.gboffairlogger.Location = New System.Drawing.Point(2, 3) + Me.gboffairlogger.Name = "gboffairlogger" + Me.gboffairlogger.Size = New System.Drawing.Size(600, 423) + Me.gboffairlogger.TabIndex = 586 + Me.gboffairlogger.TabStop = False + Me.gboffairlogger.Text = "Off Air Logger" + ' + 'cmdShowInfo + ' + Me.cmdShowInfo.Location = New System.Drawing.Point(122, 51) + Me.cmdShowInfo.Name = "cmdShowInfo" + Me.cmdShowInfo.Size = New System.Drawing.Size(82, 20) + Me.cmdShowInfo.TabIndex = 748 + Me.cmdShowInfo.Text = "Show File Info" + Me.cmdShowInfo.UseVisualStyleBackColor = True + ' + 'cmdPlayinvlc + ' + Me.cmdPlayinvlc.Location = New System.Drawing.Point(50, 51) + Me.cmdPlayinvlc.Name = "cmdPlayinvlc" + Me.cmdPlayinvlc.Size = New System.Drawing.Size(70, 20) + Me.cmdPlayinvlc.TabIndex = 747 + Me.cmdPlayinvlc.Text = "Play in VLC" + Me.cmdPlayinvlc.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.BackColor = System.Drawing.SystemColors.ActiveCaptionText + Me.Button1.Location = New System.Drawing.Point(431, 265) + Me.Button1.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(10, 157) + Me.Button1.TabIndex = 746 + Me.Button1.UseVisualStyleBackColor = False + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(441, 272) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(159, 20) + Me.Label1.TabIndex = 745 + Me.Label1.Text = "Instatnt Recording" + ' + 'lblsheduleStatus + ' + Me.lblsheduleStatus.AutoSize = True + Me.lblsheduleStatus.BackColor = System.Drawing.Color.Red + Me.lblsheduleStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblsheduleStatus.Location = New System.Drawing.Point(51, 295) + Me.lblsheduleStatus.Name = "lblsheduleStatus" + Me.lblsheduleStatus.Size = New System.Drawing.Size(147, 20) + Me.lblsheduleStatus.TabIndex = 744 + Me.lblsheduleStatus.Text = "Schedule Stoped" + ' + 'lblChannel + ' + Me.lblChannel.AutoSize = True + Me.lblChannel.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblChannel.ForeColor = System.Drawing.Color.DarkRed + Me.lblChannel.Location = New System.Drawing.Point(397, 219) + Me.lblChannel.Name = "lblChannel" + Me.lblChannel.Size = New System.Drawing.Size(105, 24) + Me.lblChannel.TabIndex = 743 + Me.lblChannel.Text = "Channel 1" + ' + 'ProgressBar2 + ' + Me.ProgressBar2.BorderStyle = VerticalProgressBar.BorderStyles.Classic + Me.ProgressBar2.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.ProgressBar2.Location = New System.Drawing.Point(574, 39) + Me.ProgressBar2.Maximum = 40 + Me.ProgressBar2.Minimum = 0 + Me.ProgressBar2.Name = "ProgressBar2" + Me.ProgressBar2.Size = New System.Drawing.Size(11, 176) + Me.ProgressBar2.Step = 1 + Me.ProgressBar2.Style = VerticalProgressBar.Styles.Classic + Me.ProgressBar2.TabIndex = 742 + Me.ProgressBar2.Value = 40 + ' + 'ProgressBar1 + ' + Me.ProgressBar1.BorderStyle = VerticalProgressBar.BorderStyles.Classic + Me.ProgressBar1.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.ProgressBar1.Location = New System.Drawing.Point(316, 38) + Me.ProgressBar1.Maximum = 40 + Me.ProgressBar1.Minimum = 0 + Me.ProgressBar1.Name = "ProgressBar1" + Me.ProgressBar1.Size = New System.Drawing.Size(11, 176) + Me.ProgressBar1.Step = 1 + Me.ProgressBar1.Style = VerticalProgressBar.Styles.Classic + Me.ProgressBar1.TabIndex = 741 + Me.ProgressBar1.Value = 40 + ' + 'pnlrecording + ' + Me.pnlrecording.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.pnlrecording.Location = New System.Drawing.Point(333, 39) + Me.pnlrecording.Name = "pnlrecording" + Me.pnlrecording.Size = New System.Drawing.Size(235, 176) + Me.pnlrecording.TabIndex = 737 + ' + 'cmbcasparcgwindowtitlerecording + ' + Me.cmbcasparcgwindowtitlerecording.FormattingEnabled = True + Me.cmbcasparcgwindowtitlerecording.Items.AddRange(New Object() {"Screen consumer [1|PAL]", "Screen consumer [2|PAL]", "Screen consumer [3|PAL]", "Screen consumer [4|PAL]", "Screen consumer [1|NTSC]", "Screen consumer [1|1080i5000]", "Screen consumer [2|1080i5000]", "Screen consumer [3|1080i5000]", "Screen consumer [4|1080i5000]", "Screen consumer [1|1080i5994]", "Screen consumer [1|1080i6000]", "Screen consumer [1|1080p2398]", "Screen consumer [1|1080p2400]", "Screen consumer [1|1080p2500]", "Screen consumer [1|1080p2997]", "Screen consumer [1|1080p3000]", "Screen consumer [1|1080p5000]", "Screen consumer [1|1080p5994]", "Screen consumer [1|1080p6000]", "Screen consumer [1|1556p2398]", "Screen consumer [1|1556p2400]", "Screen consumer [1|1556p2500]", "Screen consumer [1|2160p2398]", "Screen consumer [1|2160p2400]", "Screen consumer [1|2160p2500]", "Screen consumer [1| 2160p2997]", "Screen consumer [1|2160p3000]", "Screen consumer [1|576p2500]", "Screen consumer [1|720p2398]", "Screen consumer [1|720p2400]", "Screen consumer [1|720p2500]", "Screen consumer [1|720p2997]", "Screen consumer [1|720p3000]", "Screen consumer [1|720p5000]", "Screen consumer [1|720p5994]", "Screen consumer [1|720p6000]"}) + Me.cmbcasparcgwindowtitlerecording.Location = New System.Drawing.Point(322, 12) + Me.cmbcasparcgwindowtitlerecording.Name = "cmbcasparcgwindowtitlerecording" + Me.cmbcasparcgwindowtitlerecording.Size = New System.Drawing.Size(150, 21) + Me.cmbcasparcgwindowtitlerecording.TabIndex = 740 + Me.cmbcasparcgwindowtitlerecording.Text = "Screen consumer [1|PAL]" + ' + 'cmdoutcasparcgwindowrecording + ' + Me.cmdoutcasparcgwindowrecording.Location = New System.Drawing.Point(513, 11) + Me.cmdoutcasparcgwindowrecording.Name = "cmdoutcasparcgwindowrecording" + Me.cmdoutcasparcgwindowrecording.Size = New System.Drawing.Size(43, 23) + Me.cmdoutcasparcgwindowrecording.TabIndex = 739 + Me.cmdoutcasparcgwindowrecording.Text = "OUT" + Me.cmdoutcasparcgwindowrecording.UseVisualStyleBackColor = True + ' + 'cmdshowcasparcgwindowrecording + ' + Me.cmdshowcasparcgwindowrecording.Location = New System.Drawing.Point(480, 11) + Me.cmdshowcasparcgwindowrecording.Name = "cmdshowcasparcgwindowrecording" + Me.cmdshowcasparcgwindowrecording.Size = New System.Drawing.Size(32, 23) + Me.cmdshowcasparcgwindowrecording.TabIndex = 738 + Me.cmdshowcasparcgwindowrecording.Text = "IN" + Me.cmdshowcasparcgwindowrecording.UseVisualStyleBackColor = True + ' + 'lblEstimateddaysvalueoal + ' + Me.lblEstimateddaysvalueoal.AutoSize = True + Me.lblEstimateddaysvalueoal.Location = New System.Drawing.Point(223, 121) + Me.lblEstimateddaysvalueoal.Name = "lblEstimateddaysvalueoal" + Me.lblEstimateddaysvalueoal.Size = New System.Drawing.Size(78, 13) + Me.lblEstimateddaysvalueoal.TabIndex = 724 + Me.lblEstimateddaysvalueoal.Text = "Estimated days" + ' + 'lblEstimateddaysoal + ' + Me.lblEstimateddaysoal.AutoSize = True + Me.lblEstimateddaysoal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblEstimateddaysoal.Location = New System.Drawing.Point(132, 120) + Me.lblEstimateddaysoal.Name = "lblEstimateddaysoal" + Me.lblEstimateddaysoal.Size = New System.Drawing.Size(92, 13) + Me.lblEstimateddaysoal.TabIndex = 723 + Me.lblEstimateddaysoal.Text = "Estimated days" + ' + 'lblspacerequiredoal + ' + Me.lblspacerequiredoal.AutoSize = True + Me.lblspacerequiredoal.Location = New System.Drawing.Point(6, 232) + Me.lblspacerequiredoal.Name = "lblspacerequiredoal" + Me.lblspacerequiredoal.Size = New System.Drawing.Size(164, 26) + Me.lblspacerequiredoal.TabIndex = 722 + Me.lblspacerequiredoal.Text = " 1 TB =90 days @ 1Mbps" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "224 MB =1800 second @ 1Mbps" + ' + 'lbltotalsizeoal + ' + Me.lbltotalsizeoal.AutoSize = True + Me.lbltotalsizeoal.Location = New System.Drawing.Point(223, 108) + Me.lbltotalsizeoal.Name = "lbltotalsizeoal" + Me.lbltotalsizeoal.Size = New System.Drawing.Size(54, 13) + Me.lbltotalsizeoal.TabIndex = 721 + Me.lbltotalsizeoal.Text = "Total Size" + ' + 'lbltotalsizecaptionoal + ' + Me.lbltotalsizecaptionoal.AutoSize = True + Me.lbltotalsizecaptionoal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltotalsizecaptionoal.Location = New System.Drawing.Point(160, 108) + Me.lbltotalsizecaptionoal.Name = "lbltotalsizecaptionoal" + Me.lbltotalsizecaptionoal.Size = New System.Drawing.Size(64, 13) + Me.lbltotalsizecaptionoal.TabIndex = 720 + Me.lbltotalsizecaptionoal.Text = "Total Size" + ' + 'Label153 + ' + Me.Label153.AutoSize = True + Me.Label153.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label153.Location = New System.Drawing.Point(152, 95) + Me.Label153.Name = "Label153" + Me.Label153.Size = New System.Drawing.Size(72, 13) + Me.Label153.TabIndex = 630 + Me.Label153.Text = "Free Space" + ' + 'lblfreespaceoal + ' + Me.lblfreespaceoal.AutoSize = True + Me.lblfreespaceoal.Location = New System.Drawing.Point(223, 95) + Me.lblfreespaceoal.Name = "lblfreespaceoal" + Me.lblfreespaceoal.Size = New System.Drawing.Size(54, 13) + Me.lblfreespaceoal.TabIndex = 629 + Me.lblfreespaceoal.Text = "freespace" + ' + 'Label134 + ' + Me.Label134.AutoSize = True + Me.Label134.Location = New System.Drawing.Point(163, 19) + Me.Label134.Name = "Label134" + Me.Label134.Size = New System.Drawing.Size(49, 13) + Me.Label134.TabIndex = 628 + Me.Label134.Text = "Decklink" + ' + 'cmdlocaterecordingfileoal + ' + Me.cmdlocaterecordingfileoal.Location = New System.Drawing.Point(0, 50) + Me.cmdlocaterecordingfileoal.Name = "cmdlocaterecordingfileoal" + Me.cmdlocaterecordingfileoal.Size = New System.Drawing.Size(49, 20) + Me.cmdlocaterecordingfileoal.TabIndex = 627 + Me.cmdlocaterecordingfileoal.Text = "Locate" + Me.cmdlocaterecordingfileoal.UseVisualStyleBackColor = True + ' + 'Label131 + ' + Me.Label131.AutoSize = True + Me.Label131.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label131.Location = New System.Drawing.Point(189, 83) + Me.Label131.Name = "Label131" + Me.Label131.Size = New System.Drawing.Size(31, 13) + Me.Label131.TabIndex = 626 + Me.Label131.Text = "Size" + ' + 'Label132 + ' + Me.Label132.AutoSize = True + Me.Label132.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label132.Location = New System.Drawing.Point(170, 70) + Me.Label132.Name = "Label132" + Me.Label132.Size = New System.Drawing.Size(55, 13) + Me.Label132.TabIndex = 625 + Me.Label132.Text = "Duration" + ' + 'Label133 + ' + Me.Label133.AutoSize = True + Me.Label133.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label133.Location = New System.Drawing.Point(-2, 35) + Me.Label133.Name = "Label133" + Me.Label133.Size = New System.Drawing.Size(63, 13) + Me.Label133.TabIndex = 624 + Me.Label133.Text = "File Name" + ' + 'lblRecordedSizeoal + ' + Me.lblRecordedSizeoal.AutoSize = True + Me.lblRecordedSizeoal.Location = New System.Drawing.Point(223, 84) + Me.lblRecordedSizeoal.Name = "lblRecordedSizeoal" + Me.lblRecordedSizeoal.Size = New System.Drawing.Size(27, 13) + Me.lblRecordedSizeoal.TabIndex = 623 + Me.lblRecordedSizeoal.Text = "Size" + ' + 'lblRecordeddurationoal + ' + Me.lblRecordeddurationoal.AutoSize = True + Me.lblRecordeddurationoal.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblRecordeddurationoal.ForeColor = System.Drawing.Color.Maroon + Me.lblRecordeddurationoal.Location = New System.Drawing.Point(223, 69) + Me.lblRecordeddurationoal.Name = "lblRecordeddurationoal" + Me.lblRecordeddurationoal.Size = New System.Drawing.Size(67, 16) + Me.lblRecordeddurationoal.TabIndex = 622 + Me.lblRecordeddurationoal.Text = "Duration" + ' + 'lblrecordingfilenameoal + ' + Me.lblrecordingfilenameoal.Location = New System.Drawing.Point(69, 36) + Me.lblrecordingfilenameoal.Name = "lblrecordingfilenameoal" + Me.lblrecordingfilenameoal.Size = New System.Drawing.Size(242, 12) + Me.lblrecordingfilenameoal.TabIndex = 621 + Me.lblrecordingfilenameoal.Text = "name" + ' + 'txtextraoptionoal + ' + Me.txtextraoptionoal.Location = New System.Drawing.Point(81, 162) + Me.txtextraoptionoal.Name = "txtextraoptionoal" + Me.txtextraoptionoal.Size = New System.Drawing.Size(232, 20) + Me.txtextraoptionoal.TabIndex = 620 + Me.txtextraoptionoal.Text = Global.caspar_media_playback.My.MySettings.Default.txtextraoptionoal + Me.txtextraoptionoal.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblextraoptionoal + ' + Me.lblextraoptionoal.AutoSize = True + Me.lblextraoptionoal.Location = New System.Drawing.Point(10, 166) + Me.lblextraoptionoal.Name = "lblextraoptionoal" + Me.lblextraoptionoal.Size = New System.Drawing.Size(68, 13) + Me.lblextraoptionoal.TabIndex = 619 + Me.lblextraoptionoal.Text = "Extra options" + ' + 'lblshedulerecordingplaylist + ' + Me.lblshedulerecordingplaylist.Location = New System.Drawing.Point(9, 348) + Me.lblshedulerecordingplaylist.Name = "lblshedulerecordingplaylist" + Me.lblshedulerecordingplaylist.Size = New System.Drawing.Size(195, 71) + Me.lblshedulerecordingplaylist.TabIndex = 618 + Me.lblshedulerecordingplaylist.Text = "filename=default" + ' + 'deleteshedulerecording + ' + Me.deleteshedulerecording.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.deleteshedulerecording.Image = Global.caspar_media_playback.My.Resources.Resources.minus + Me.deleteshedulerecording.Location = New System.Drawing.Point(311, 266) + Me.deleteshedulerecording.Name = "deleteshedulerecording" + Me.deleteshedulerecording.Size = New System.Drawing.Size(33, 22) + Me.deleteshedulerecording.TabIndex = 616 + Me.deleteshedulerecording.UseVisualStyleBackColor = True + ' + 'addshedulerecording + ' + Me.addshedulerecording.Image = CType(resources.GetObject("addshedulerecording.Image"), System.Drawing.Image) + Me.addshedulerecording.Location = New System.Drawing.Point(270, 265) + Me.addshedulerecording.Name = "addshedulerecording" + Me.addshedulerecording.Size = New System.Drawing.Size(41, 23) + Me.addshedulerecording.TabIndex = 615 + Me.addshedulerecording.UseVisualStyleBackColor = True + ' + 'cmdshedulerecordingstop + ' + Me.cmdshedulerecordingstop.Location = New System.Drawing.Point(2, 318) + Me.cmdshedulerecordingstop.Name = "cmdshedulerecordingstop" + Me.cmdshedulerecordingstop.Size = New System.Drawing.Size(47, 23) + Me.cmdshedulerecordingstop.TabIndex = 614 + Me.cmdshedulerecordingstop.Text = "Stop" + Me.cmdshedulerecordingstop.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.BackColor = System.Drawing.SystemColors.ActiveCaptionText + Me.Button4.Location = New System.Drawing.Point(6, 258) + Me.Button4.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(596, 10) + Me.Button4.TabIndex = 613 + Me.Button4.UseVisualStyleBackColor = False + ' + 'cmdshedulerecording + ' + Me.cmdshedulerecording.Location = New System.Drawing.Point(4, 295) + Me.cmdshedulerecording.Name = "cmdshedulerecording" + Me.cmdshedulerecording.Size = New System.Drawing.Size(43, 23) + Me.cmdshedulerecording.TabIndex = 171 + Me.cmdshedulerecording.Text = "Start" + Me.cmdshedulerecording.UseVisualStyleBackColor = True + ' + 'lbltestshedulerecording + ' + Me.lbltestshedulerecording.AutoSize = True + Me.lbltestshedulerecording.BackColor = System.Drawing.Color.Red + Me.lbltestshedulerecording.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltestshedulerecording.Location = New System.Drawing.Point(51, 318) + Me.lbltestshedulerecording.Name = "lbltestshedulerecording" + Me.lbltestshedulerecording.Size = New System.Drawing.Size(154, 20) + Me.lbltestshedulerecording.TabIndex = 170 + Me.lbltestshedulerecording.Text = "Recording Stoped" + ' + 'dgvshedulerecording + ' + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvshedulerecording.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvshedulerecording.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.Color.Black + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvshedulerecording.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvshedulerecording.Location = New System.Drawing.Point(212, 292) + Me.dgvshedulerecording.Name = "dgvshedulerecording" + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvshedulerecording.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvshedulerecording.Size = New System.Drawing.Size(218, 127) + Me.dgvshedulerecording.TabIndex = 169 + ' + 'Label127 + ' + Me.Label127.AutoSize = True + Me.Label127.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label127.Location = New System.Drawing.Point(4, 270) + Me.Label127.Name = "Label127" + Me.Label127.Size = New System.Drawing.Size(171, 20) + Me.Label127.TabIndex = 168 + Me.Label127.Text = "Schedule Recording" + ' + 'Panel2 + ' + Me.Panel2.Location = New System.Drawing.Point(260, 216) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(66, 36) + Me.Panel2.TabIndex = 167 + ' + 'dtpdeleteoal + ' + Me.dtpdeleteoal.CalendarFont = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dtpdeleteoal.Enabled = False + Me.dtpdeleteoal.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dtpdeleteoal.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.dtpdeleteoal.Location = New System.Drawing.Point(267, 222) + Me.dtpdeleteoal.Name = "dtpdeleteoal" + Me.dtpdeleteoal.ShowUpDown = True + Me.dtpdeleteoal.Size = New System.Drawing.Size(53, 26) + Me.dtpdeleteoal.TabIndex = 166 + ' + 'cmbliveoal + ' + Me.cmbliveoal.FormattingEnabled = True + Me.cmbliveoal.Items.AddRange(New Object() {"1", "2", "3", "4"}) + Me.cmbliveoal.Location = New System.Drawing.Point(216, 14) + Me.cmbliveoal.Name = "cmbliveoal" + Me.cmbliveoal.Size = New System.Drawing.Size(35, 21) + Me.cmbliveoal.TabIndex = 164 + Me.cmbliveoal.Text = "1" + ' + 'chkshowtimeofl + ' + Me.chkshowtimeofl.AutoSize = True + Me.chkshowtimeofl.Checked = Global.caspar_media_playback.My.MySettings.Default.chkshowtimeofl + Me.chkshowtimeofl.Location = New System.Drawing.Point(3, 70) + Me.chkshowtimeofl.Name = "chkshowtimeofl" + Me.chkshowtimeofl.Size = New System.Drawing.Size(79, 17) + Me.chkshowtimeofl.TabIndex = 163 + Me.chkshowtimeofl.Text = "Show Time" + Me.chkshowtimeofl.UseVisualStyleBackColor = True + ' + 'cmdmediadirectoryofl + ' + Me.cmdmediadirectoryofl.Location = New System.Drawing.Point(4, 183) + Me.cmdmediadirectoryofl.Margin = New System.Windows.Forms.Padding(0, 3, 0, 3) + Me.cmdmediadirectoryofl.Name = "cmdmediadirectoryofl" + Me.cmdmediadirectoryofl.Size = New System.Drawing.Size(151, 23) + Me.cmdmediadirectoryofl.TabIndex = 160 + Me.cmdmediadirectoryofl.Text = "Media Directory for deleting" + Me.cmdmediadirectoryofl.UseVisualStyleBackColor = True + ' + 'txtmediadirectoryoal + ' + Me.txtmediadirectoryoal.Location = New System.Drawing.Point(156, 185) + Me.txtmediadirectoryoal.Name = "txtmediadirectoryoal" + Me.txtmediadirectoryoal.Size = New System.Drawing.Size(157, 20) + Me.txtmediadirectoryoal.TabIndex = 159 + Me.txtmediadirectoryoal.Text = Global.caspar_media_playback.My.MySettings.Default.txtmediadirectoryoal + Me.txtmediadirectoryoal.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmdremoveinputoal + ' + Me.cmdremoveinputoal.Location = New System.Drawing.Point(74, 12) + Me.cmdremoveinputoal.Name = "cmdremoveinputoal" + Me.cmdremoveinputoal.Size = New System.Drawing.Size(88, 23) + Me.cmdremoveinputoal.TabIndex = 162 + Me.cmdremoveinputoal.Text = "Remove Input" + Me.cmdremoveinputoal.UseVisualStyleBackColor = True + ' + 'cmdshowinputoal + ' + Me.cmdshowinputoal.Location = New System.Drawing.Point(3, 12) + Me.cmdshowinputoal.Name = "cmdshowinputoal" + Me.cmdshowinputoal.Size = New System.Drawing.Size(70, 21) + Me.cmdshowinputoal.TabIndex = 161 + Me.cmdshowinputoal.Text = "Show input" + Me.cmdshowinputoal.UseVisualStyleBackColor = True + ' + 'Label73 + ' + Me.Label73.AutoSize = True + Me.Label73.Location = New System.Drawing.Point(188, 211) + Me.Label73.Name = "Label73" + Me.Label73.Size = New System.Drawing.Size(31, 13) + Me.Label73.TabIndex = 156 + Me.Label73.Text = "Days" + ' + 'txtdatetodeleteoal + ' + Me.txtdatetodeleteoal.Location = New System.Drawing.Point(140, 208) + Me.txtdatetodeleteoal.Name = "txtdatetodeleteoal" + Me.txtdatetodeleteoal.Size = New System.Drawing.Size(47, 20) + Me.txtdatetodeleteoal.TabIndex = 158 + Me.txtdatetodeleteoal.Text = "180" + Me.txtdatetodeleteoal.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmddeletefilesoal + ' + Me.cmddeletefilesoal.Location = New System.Drawing.Point(6, 206) + Me.cmddeletefilesoal.Name = "cmddeletefilesoal" + Me.cmddeletefilesoal.Size = New System.Drawing.Size(132, 23) + Me.cmddeletefilesoal.TabIndex = 157 + Me.cmddeletefilesoal.Text = "Delete files older than" + Me.cmddeletefilesoal.UseVisualStyleBackColor = True + ' + 'cmbfileformateoal + ' + Me.cmbfileformateoal.FormattingEnabled = True + Me.cmbfileformateoal.Items.AddRange(New Object() {"avi", "dv", "mov", "mp4", "mxf", "ogg", "ts"}) + Me.cmbfileformateoal.Location = New System.Drawing.Point(77, 109) + Me.cmbfileformateoal.Name = "cmbfileformateoal" + Me.cmbfileformateoal.Size = New System.Drawing.Size(53, 21) + Me.cmbfileformateoal.Sorted = True + Me.cmbfileformateoal.TabIndex = 155 + Me.cmbfileformateoal.Text = Global.caspar_media_playback.My.MySettings.Default.cmbrecordformat + ' + 'dtpoal + ' + Me.dtpoal.CalendarFont = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dtpoal.Enabled = False + Me.dtpoal.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dtpoal.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.dtpoal.Location = New System.Drawing.Point(61, 135) + Me.dtpoal.Name = "dtpoal" + Me.dtpoal.ShowUpDown = True + Me.dtpoal.Size = New System.Drawing.Size(183, 26) + Me.dtpoal.TabIndex = 138 + ' + 'Label51 + ' + Me.Label51.AutoSize = True + Me.Label51.Location = New System.Drawing.Point(3, 112) + Me.Label51.Name = "Label51" + Me.Label51.Size = New System.Drawing.Size(58, 13) + Me.Label51.TabIndex = 153 + Me.Label51.Text = "File Format" + ' + 'Label66 + ' + Me.Label66.AutoSize = True + Me.Label66.Location = New System.Drawing.Point(7, 141) + Me.Label66.Name = "Label66" + Me.Label66.Size = New System.Drawing.Size(49, 13) + Me.Label66.TabIndex = 141 + Me.Label66.Text = "Filename" + ' + 'txtbitrateofl + ' + Me.txtbitrateofl.Location = New System.Drawing.Point(77, 87) + Me.txtbitrateofl.Name = "txtbitrateofl" + Me.txtbitrateofl.Size = New System.Drawing.Size(53, 20) + Me.txtbitrateofl.TabIndex = 142 + Me.txtbitrateofl.Text = "1" + Me.txtbitrateofl.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmdrecordoal + ' + Me.cmdrecordoal.Location = New System.Drawing.Point(473, 294) + Me.cmdrecordoal.Name = "cmdrecordoal" + Me.cmdrecordoal.Size = New System.Drawing.Size(88, 23) + Me.cmdrecordoal.TabIndex = 139 + Me.cmdrecordoal.Text = "Record" + Me.cmdrecordoal.UseVisualStyleBackColor = True + ' + 'Label71 + ' + Me.Label71.AutoSize = True + Me.Label71.Location = New System.Drawing.Point(3, 90) + Me.Label71.Name = "Label71" + Me.Label71.Size = New System.Drawing.Size(74, 13) + Me.Label71.TabIndex = 142 + Me.Label71.Text = "Bit Rate Mbps" + ' + 'cmdstoprecordoal + ' + Me.cmdstoprecordoal.Location = New System.Drawing.Point(473, 318) + Me.cmdstoprecordoal.Name = "cmdstoprecordoal" + Me.cmdstoprecordoal.Size = New System.Drawing.Size(88, 23) + Me.cmdstoprecordoal.TabIndex = 140 + Me.cmdstoprecordoal.Text = "Stop Record" + Me.cmdstoprecordoal.UseVisualStyleBackColor = True + ' + 'txtfilelengthofl + ' + Me.txtfilelengthofl.Location = New System.Drawing.Point(495, 367) + Me.txtfilelengthofl.Name = "txtfilelengthofl" + Me.txtfilelengthofl.Size = New System.Drawing.Size(52, 20) + Me.txtfilelengthofl.TabIndex = 138 + Me.txtfilelengthofl.Text = "1800" + Me.txtfilelengthofl.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label72 + ' + Me.Label72.AutoSize = True + Me.Label72.Location = New System.Drawing.Point(461, 346) + Me.Label72.Name = "Label72" + Me.Label72.Size = New System.Drawing.Size(110, 13) + Me.Label72.TabIndex = 138 + Me.Label72.Text = "File Length in Second" + ' + 'tmrrecordedfileinfooal + ' + Me.tmrrecordedfileinfooal.Interval = 1000 + ' + 'tmroal + ' + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileToolStripMenuItem, Me.EditToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(178, 265) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(84, 24) + Me.MenuStrip1.TabIndex = 744 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'FileToolStripMenuItem + ' + Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.SaveToolStripMenuItem}) + Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem" + Me.FileToolStripMenuItem.Size = New System.Drawing.Size(37, 20) + Me.FileToolStripMenuItem.Text = "File" + ' + 'NewToolStripMenuItem + ' + Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" + Me.NewToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.NewToolStripMenuItem.Text = "New" + ' + 'OpenToolStripMenuItem + ' + Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" + Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.OpenToolStripMenuItem.Text = "Open" + ' + 'SaveToolStripMenuItem + ' + Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" + Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(103, 22) + Me.SaveToolStripMenuItem.Text = "Save" + ' + 'EditToolStripMenuItem + ' + Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CutToolStripMenuItem, Me.CopyToolStripMenuItem, Me.PasteToolStripMenuItem}) + Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem" + Me.EditToolStripMenuItem.Size = New System.Drawing.Size(39, 20) + Me.EditToolStripMenuItem.Text = "Edit" + ' + 'CutToolStripMenuItem + ' + Me.CutToolStripMenuItem.Name = "CutToolStripMenuItem" + Me.CutToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.CutToolStripMenuItem.Text = "Cut" + ' + 'CopyToolStripMenuItem + ' + Me.CopyToolStripMenuItem.Name = "CopyToolStripMenuItem" + Me.CopyToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.CopyToolStripMenuItem.Text = "Copy" + ' + 'PasteToolStripMenuItem + ' + Me.PasteToolStripMenuItem.Name = "PasteToolStripMenuItem" + Me.PasteToolStripMenuItem.Size = New System.Drawing.Size(102, 22) + Me.PasteToolStripMenuItem.Text = "Paste" + ' + 'ucnewOffAirLogger + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Controls.Add(Me.gboffairlogger) + Me.Name = "ucnewOffAirLogger" + Me.Size = New System.Drawing.Size(606, 429) + Me.gboffairlogger.ResumeLayout(False) + Me.gboffairlogger.PerformLayout() + CType(Me.dgvshedulerecording, System.ComponentModel.ISupportInitialize).EndInit() + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gboffairlogger As System.Windows.Forms.GroupBox + Friend WithEvents lblEstimateddaysvalueoal As System.Windows.Forms.Label + Friend WithEvents lblEstimateddaysoal As System.Windows.Forms.Label + Friend WithEvents lblspacerequiredoal As System.Windows.Forms.Label + Friend WithEvents lbltotalsizeoal As System.Windows.Forms.Label + Friend WithEvents lbltotalsizecaptionoal As System.Windows.Forms.Label + Friend WithEvents Label153 As System.Windows.Forms.Label + Friend WithEvents lblfreespaceoal As System.Windows.Forms.Label + Friend WithEvents Label134 As System.Windows.Forms.Label + Friend WithEvents cmdlocaterecordingfileoal As System.Windows.Forms.Button + Friend WithEvents Label131 As System.Windows.Forms.Label + Friend WithEvents Label132 As System.Windows.Forms.Label + Friend WithEvents Label133 As System.Windows.Forms.Label + Friend WithEvents lblRecordedSizeoal As System.Windows.Forms.Label + Friend WithEvents lblRecordeddurationoal As System.Windows.Forms.Label + Friend WithEvents lblrecordingfilenameoal As System.Windows.Forms.Label + Friend WithEvents txtextraoptionoal As System.Windows.Forms.TextBox + Friend WithEvents lblextraoptionoal As System.Windows.Forms.Label + Friend WithEvents lblshedulerecordingplaylist As System.Windows.Forms.Label + Friend WithEvents deleteshedulerecording As System.Windows.Forms.Button + Friend WithEvents addshedulerecording As System.Windows.Forms.Button + Friend WithEvents cmdshedulerecordingstop As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents cmdshedulerecording As System.Windows.Forms.Button + Friend WithEvents lbltestshedulerecording As System.Windows.Forms.Label + Friend WithEvents dgvshedulerecording As System.Windows.Forms.DataGridView + Friend WithEvents Label127 As System.Windows.Forms.Label + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents dtpdeleteoal As System.Windows.Forms.DateTimePicker + Friend WithEvents cmbliveoal As System.Windows.Forms.ComboBox + Friend WithEvents chkshowtimeofl As System.Windows.Forms.CheckBox + Friend WithEvents cmdmediadirectoryofl As System.Windows.Forms.Button + Friend WithEvents txtmediadirectoryoal As System.Windows.Forms.TextBox + Friend WithEvents cmdremoveinputoal As System.Windows.Forms.Button + Friend WithEvents cmdshowinputoal As System.Windows.Forms.Button + Friend WithEvents Label73 As System.Windows.Forms.Label + Friend WithEvents txtdatetodeleteoal As System.Windows.Forms.TextBox + Friend WithEvents cmddeletefilesoal As System.Windows.Forms.Button + Friend WithEvents cmbfileformateoal As System.Windows.Forms.ComboBox + Friend WithEvents dtpoal As System.Windows.Forms.DateTimePicker + Friend WithEvents Label51 As System.Windows.Forms.Label + Friend WithEvents Label66 As System.Windows.Forms.Label + Friend WithEvents txtbitrateofl As System.Windows.Forms.TextBox + Friend WithEvents cmdrecordoal As System.Windows.Forms.Button + Friend WithEvents Label71 As System.Windows.Forms.Label + Friend WithEvents cmdstoprecordoal As System.Windows.Forms.Button + Friend WithEvents txtfilelengthofl As System.Windows.Forms.TextBox + Friend WithEvents Label72 As System.Windows.Forms.Label + Friend WithEvents tmrrecordedfileinfooal As System.Windows.Forms.Timer + Friend WithEvents tmroal As System.Windows.Forms.Timer + Friend WithEvents ProgressBar2 As VerticalProgressBar.VerticalProgressBar + Friend WithEvents ProgressBar1 As VerticalProgressBar.VerticalProgressBar + Friend WithEvents pnlrecording As Panel + Friend WithEvents cmbcasparcgwindowtitlerecording As ComboBox + Friend WithEvents cmdoutcasparcgwindowrecording As Button + Friend WithEvents cmdshowcasparcgwindowrecording As Button + Friend WithEvents lblChannel As Label + Friend WithEvents MenuStrip1 As MenuStrip + Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem + Friend WithEvents NewToolStripMenuItem As ToolStripMenuItem + Friend WithEvents OpenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SaveToolStripMenuItem As ToolStripMenuItem + Friend WithEvents EditToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CutToolStripMenuItem As ToolStripMenuItem + Friend WithEvents CopyToolStripMenuItem As ToolStripMenuItem + Friend WithEvents PasteToolStripMenuItem As ToolStripMenuItem + Friend WithEvents lblsheduleStatus As Label + Friend WithEvents Button1 As Button + Friend WithEvents Label1 As Label + Friend WithEvents cmdPlayinvlc As Button + Friend WithEvents cmdShowInfo As Button +End Class diff --git a/CasparMediaPlayback/ucnewOffAirLogger.resx b/CasparMediaPlayback/ucnewOffAirLogger.resx new file mode 100644 index 0000000..7bef019 --- /dev/null +++ b/CasparMediaPlayback/ucnewOffAirLogger.resx @@ -0,0 +1,151 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 280, 21 + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgFBgcGBQgHBgcJCAgJDBMMDAsLDBgREg4THBgdHRsYGxof + IywlHyEqIRobJjQnKi4vMTIxHiU2OjYwOiwwMTD/2wBDAQgJCQwKDBcMDBcwIBsgMDAwMDAwMDAwMDAw + MDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDD/wAARCAARABEDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD17W9fgsopZJp4o0RWZFeQKZCozgZ61m+E/GEOtafDdI0cMzls + 23mhmABxnHX9KyPHvh2y1HdBqUJaSFZDaP5hQbmHHTryBWB8OPCyaZHbTXUAbXTvRmjlLrtJ446dO9dy + px5Dlc5cx67/AGlB6miqP9iP/wA9RRXPaHc2vMj8a/8AII/4FWb8P+s30ooraP8Au7MpfxUdhRRRXGdJ + /9k= + + + + 19, 18 + + + 193, 18 + + + 100 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucnewOffAirLogger.vb b/CasparMediaPlayback/ucnewOffAirLogger.vb new file mode 100644 index 0000000..35b1be2 --- /dev/null +++ b/CasparMediaPlayback/ucnewOffAirLogger.vb @@ -0,0 +1,419 @@ +Imports System.IO + +'Imports Bespoke.Common +Imports Bespoke.Common.Osc +Imports System.Net +Public Class ucnewOffAirLogger + Dim WithEvents tmrshedulerecordingstart As New Timer + Dim WithEvents tmrshedulerecordingend As New Timer + + Dim WithEvents sOscServer As OscServer 'for osc + Public ichannel As Integer + Dim iport As Integer + + Sub oscstartandregister(aa As Integer, bb As Integer) + On Error Resume Next + If sOscServer.IsRunning = False Then + Dim ttype As Integer = 1 + OscPacket.LittleEndianByteOrder = False + sOscServer = New OscServer(ttype, IPAddress.Any, bb) + sOscServer.Start() + sOscServer.RegisterMethod("/channel/" & aa & "/mixer/audio/1/dBFS") + sOscServer.RegisterMethod("/channel/" & aa & "/mixer/audio/2/dBFS") + sOscServer.RegisterMethod("/channel/" & ichannel & "/mixer/audio/volume") ' for server 2.2 + sOscServer.FilterRegisteredMethods = True + End If + End Sub + Private Sub invokeControls1(ByVal e As OscMessageReceivedEventArgs) + On Error Resume Next + If Me.InvokeRequired Then + Me.Invoke(New invokeControlsDelegate1(AddressOf Me.invokeControls1), e) + Else + Dim jregisteredmethods As Integer + If ServerVersion > 2.1 Then + If "/channel/" & ichannel & "/mixer/audio/volume" = e.Message.Address Then + ProgressBar1.Value = 40 + ValuetodBFS(e.Message.Data(0)) + ProgressBar2.Value = 40 + ValuetodBFS(e.Message.Data(1)) + End If + Else + If "/channel/" & ichannel & "/mixer/audio/1/dBFS" = e.Message.Address Then + ProgressBar1.Value = 40 + e.Message.Data(0) + End If + If "/channel/" & ichannel & "/mixer/audio/2/dBFS" = e.Message.Address Then + ProgressBar2.Value = 40 + e.Message.Data(0) + End If + End If + End If + If ProgressBar1.Value > 38 Then + ProgressBar1.Color = Color.Red + ElseIf ProgressBar1.Value > 34 And ProgressBar1.Value < 38 Then + ProgressBar1.Color = Color.Yellow + ElseIf ProgressBar1.Value < 34 Then + ProgressBar1.Color = Color.Green + + End If + + If ProgressBar2.Value > 38 Then + ProgressBar2.Color = Color.Red + ElseIf ProgressBar2.Value > 34 And ProgressBar2.Value < 38 Then + ProgressBar2.Color = Color.Yellow + ElseIf ProgressBar2.Value < 34 Then + ProgressBar2.Color = Color.Green + + End If + End Sub + + Private Delegate Sub invokeControlsDelegate1(ByVal e As OscMessageReceivedEventArgs) + Private Sub sOscServer_MessageReceived(ByVal sender As Object, ByVal e As OscMessageReceivedEventArgs) Handles sOscServer.MessageReceived + On Error Resume Next + Me.invokeControls1(e) + End Sub + Sub stoposcserver() + On Error Resume Next + sOscServer.Stop() + sOscServer.ClearMethods() + sOscServer = Nothing + End Sub + Sub sortshedulerecording() + On Error Resume Next + For iticktime = 0 To dgvshedulerecording.Rows.Count - 1 + dgvshedulerecording.Rows(iticktime).Cells(2).Value = IntervalTill(CType(dgvshedulerecording.Rows(iticktime).Cells(0).Value, Date).TimeOfDay.ToString) + Next + dgvshedulerecording.Sort(dgvshedulerecording.Columns(2), System.ComponentModel.ListSortDirection.Ascending) + dgvshedulerecording.CurrentCell = dgvshedulerecording.Rows(0).Cells(0) + End Sub + + Private Sub tmrshedulerecordingstart_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrshedulerecordingstart.Tick + On Error Resume Next + + recordoal() + + lbltestshedulerecording.Text = "Recordind Started" + lbltestshedulerecording.BackColor = Color.Green + tmrshedulerecordingstart.Enabled = False + + tmrshedulerecordingend.Interval = dgvshedulerecording.Rows(0).Cells(1).Value * 1000 + tmrshedulerecordingend.Enabled = True + tmrrecordedfileinfooal.Enabled = True + + deletefilesoal() + End Sub + Private Sub addshedulerecording_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addshedulerecording.Click + On Error Resume Next + dgvshedulerecording.Rows.Insert(dgvshedulerecording.CurrentRow.Index) + dgvshedulerecording.Rows(dgvshedulerecording.CurrentRow.Index - 1).Cells(0).Value = Now + dgvshedulerecording.Rows(dgvshedulerecording.CurrentRow.Index - 1).Cells(1).Value = 10 + End Sub + + Private Sub deleteshedulerecording_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deleteshedulerecording.Click + On Error Resume Next + dgvshedulerecording.Rows.RemoveAt(dgvshedulerecording.CurrentRow.Index) + End Sub + Private Sub cmdshedulerecording_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdshedulerecording.Click + On Error Resume Next + sortshedulerecording() + tmrshedulerecordingstart.Interval = IntervalTill(CType(dgvshedulerecording.Rows(0).Cells(0).Value, Date).TimeOfDay.ToString) + tmrshedulerecordingstart.Enabled = True + tmroal.Enabled = False + + lblsheduleStatus.Text = "Schedule Started" + lblsheduleStatus.BackColor = Color.Green + End Sub + + Private Sub cmdshowinputoal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdshowinputoal.Click + On Error Resume Next + If frmmediaplayer.cmdconnect.BackColor = Color.Green Then + Dim str As String + str = "play " & ichannel & "-" & 1 & " decklink " & cmbliveoal.Text + CasparDevice.SendString(str) + + ucPlaylist.tmrduration.Enabled = True + End If + End Sub + + Private Sub cmdremoveinputoal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremoveinputoal.Click + On Error Resume Next + If frmmediaplayer.cmdconnect.BackColor = Color.Green Then + Dim str As String + str = "stop " & ichannel & "-" & 1 & " decklink " & cmbliveoal.Text + CasparDevice.SendString(str) + End If + End Sub + Private Sub cmdlocaterecordingfileoal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlocaterecordingfileoal.Click + Process.Start("explorer.exe", "/select," & Replace(lblrecordingfilenameoal.Text, "/", "\")) + End Sub + Private Sub cmdrecordoal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrecordoal.Click + On Error Resume Next + If frmmediaplayer.cmdconnect.BackColor = Color.Green Then + recordoal() + tmroal.Interval = (txtfilelengthofl.Text) * 1000 + tmroal.Enabled = True + tmrrecordedfileinfooal.Enabled = True + cmdrecordoal.BackColor = Color.Green + + tmrshedulerecordingstart.Enabled = False + lblsheduleStatus.Text = "Schedule Stopped" + lblsheduleStatus.BackColor = Color.Red + + End If + End Sub + + Private Sub tmrrecordedfileinfooal_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrrecordedfileinfooal.Tick + On Error Resume Next + lblrecordingfilenameoal.Text = mediafullpath & "ch" & ichannel & "/" & dtpoal.Text & "." & cmbfileformateoal.Text + If File.Exists(lblrecordingfilenameoal.Text) Then + Dim f As New FileInfo(lblrecordingfilenameoal.Text) + Dim recoreddurationoal As TimeSpan = Now - startingtimeofrecordingoal + lblRecordeddurationoal.Text = recoreddurationoal.ToString("hh\:mm\:ss") + lblRecordedSizeoal.Text = f.Length / 1000000 & " MB" + Else + lblRecordeddurationoal.Text = "Not Recording" + lblRecordedSizeoal.Text = "Not Recording" + End If + lblfreespaceoal.Text = My.Computer.FileSystem.GetDriveInfo(Mid(mediafullpath, 1, 2)).TotalFreeSpace / 1000000000 & " GB" + lbltotalsizeoal.Text = My.Computer.FileSystem.GetDriveInfo(Mid(mediafullpath, 1, 2)).TotalSize / 1000000000 & " GB" + lblEstimateddaysvalueoal.Text = Format(Val(lblfreespaceoal.Text) / (10.8 * Val(txtbitrateofl.Text)), "000.0") & " Days" + End Sub + Dim startingtimeofrecordingoal As DateTime + Sub recordoal() + On Error Resume Next + Directory.CreateDirectory(mediafullpath & "ch" & ichannel & "/") + lblRecordeddurationoal.Text = "" + lblRecordedSizeoal.Text = "" + dtpoal.Text = Now + Dim str As String + If ServerVersion = "2.0" Then + str = "ADD " & ichannel & " FILE " & "ch" & ichannel & "/" & dtpoal.Text & "." & cmbfileformateoal.Text & " -b " & Val(txtbitrateofl.Text) * 1000000 & " " & txtextraoptionoal.Text + ElseIf ServerVersion = "2.1" Then + str = "ADD " & ichannel & " FILE " & "ch" & ichannel & "/" & dtpoal.Text & "." & cmbfileformateoal.Text & " -b:v " & Val(txtbitrateofl.Text) * 1000000 & " -maxrate:v " & Val(txtbitrateofl.Text) * 1000000 & " -bufsize:v " & 1000000 & " -b:a 128k -pix_fmt yuv420p -preset slow -crf 22 " & txtextraoptionoal.Text + Else + str = "ADD " & ichannel & " FILE " & "ch" & ichannel & "/" & dtpoal.Text & "." & cmbfileformateoal.Text & " -b:v " & Val(txtbitrateofl.Text) * 1000000 & " -maxrate:v " & Val(txtbitrateofl.Text) * 1000000 & " -bufsize:v " & 1000000 & " -filter:v format=pix_fmts=yuv420p -filter:a pan=stereo|c0=c0|c1=c1 " & txtextraoptionoal.Text + End If + CasparDevice.SendString(str) + startingtimeofrecordingoal = Now + End Sub + + Private Sub cmdstoprecordoal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstoprecordoal.Click + On Error Resume Next + stoprecordoal() + tmrrecordedfileinfooal.Enabled = False + tmroal.Enabled = False + End Sub + + Sub stoprecordoal() + On Error Resume Next + Dim str As String + str = "REMOVE " & ichannel & " FILE " & "ch" & ichannel & "/" & dtpoal.Text & "." & cmbfileformateoal.Text + CasparDevice.SendString(str) + cmdrecordoal.BackColor = Color.Red + End Sub + + Private Sub tmroal_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmroal.Tick + On Error Resume Next + stoprecordoal() + recordoal() + deletefilesoal() + cmdrecordoal.BackColor = Color.Green + End Sub + Private Sub cmddeletefilesoal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddeletefilesoal.Click + On Error Resume Next + deletefilesoal() + + End Sub + Sub deletefilesoal() + On Error Resume Next + dtpdeleteoal.Text = Now.AddDays(-Val(Me.txtdatetodeleteoal.Text)) + Dim Filefound = New DirectoryInfo(txtmediadirectoryoal.Text).GetFiles("*.*") + For aaa As Integer = 0 To Filefound.Count - 1 + Dim filefound1 = Split(Filefound(aaa).ToString, ".") + + If (Len(filefound1(0)).ToString = 14) And (dtpdeleteoal.Text > filefound1(0).ToString) Then + System.IO.File.Delete(txtmediadirectoryoal.Text & "\" & Filefound(aaa).ToString) + End If + Next + End Sub + Private Sub cmdmediadirectoryofl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmediadirectoryofl.Click + On Error Resume Next + Dim fbd1 As New FolderBrowserDialog + If (fbd1.ShowDialog = Windows.Forms.DialogResult.OK) Then + Me.txtmediadirectoryoal.Text = fbd1.SelectedPath + End If + End Sub + + Private Sub chkshowtimeofl_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkshowtimeofl.CheckedChanged + On Error Resume Next + If chkshowtimeofl.Checked Then + Dim str As String = "cg " & ichannel & " add 21 " & "CMP/off_air_logger_clock/off_air_logger_clock 1" + CasparDevice.SendString(str) + Else + Dim str As String = "cg " & ichannel & " stop 21" + CasparDevice.SendString(str) + End If + + End Sub + Private Sub tmrshedulerecordingend_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrshedulerecordingend.Tick + On Error Resume Next + + stoprecordoal() + + + lbltestshedulerecording.Text = "Recordind Stoped" + lbltestshedulerecording.BackColor = Color.Red + + tmrshedulerecordingend.Enabled = False + + + + sortshedulerecording() + + tmrshedulerecordingstart.Interval = IntervalTill(CType(dgvshedulerecording.Rows(0).Cells(0).Value, Date).TimeOfDay.ToString) + tmrshedulerecordingstart.Enabled = True + tmrrecordedfileinfooal.Enabled = False + + End Sub + Private Sub cmdshedulerecordingstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdshedulerecordingstop.Click + On Error Resume Next + CasparDevice.SendString("REMOVE " & ichannel & " FILE") + lbltestshedulerecording.Text = "Recordind Stoped" + lbltestshedulerecording.BackColor = Color.Red + + tmrshedulerecordingstart.Enabled = False + tmrshedulerecordingend.Enabled = False + tmrrecordedfileinfooal.Enabled = False + cmdrecordoal.BackColor = Color.Red + + lblsheduleStatus.Text = "Schedule Stopped" + lblsheduleStatus.BackColor = Color.Red + + End Sub + Sub initialisedataforshedulerecording() + On Error Resume Next + Dim col1 As New CalendarColumn() + Dim col2 As New DataGridViewTextBoxColumn + Dim col3 As New DataGridViewTextBoxColumn + + col1.HeaderText = "Start Time" + col2.HeaderText = "Duration in second" + col3.HeaderText = "Tick Time (ms)" + col3.ReadOnly = True + + + col1.Width = 70 + col2.Width = 70 + col3.Width = 0 + + dgvshedulerecording.Columns.Add(col1) + dgvshedulerecording.Columns.Add(col2) + dgvshedulerecording.Columns.Add(col3) + + dgvshedulerecording.Rows.Add(4) + dgvshedulerecording.Rows(0).Cells(0).Value = Now.AddSeconds(10) + dgvshedulerecording.Rows(0).Cells(1).Value = "10" + dgvshedulerecording.Rows(1).Cells(0).Value = Now.AddSeconds(30) + dgvshedulerecording.Rows(1).Cells(1).Value = "10" + + dgvshedulerecording.Rows(2).Cells(0).Value = Now.AddSeconds(50) + dgvshedulerecording.Rows(2).Cells(1).Value = "10" + dgvshedulerecording.Rows(3).Cells(0).Value = Now.AddSeconds(70) + dgvshedulerecording.Rows(3).Cells(1).Value = "10" + + End Sub + + + Private Sub cmdshowcasparcgwindowrecording_Click(sender As Object, e As EventArgs) Handles cmdshowcasparcgwindowrecording.Click + On Error Resume Next + SetProcessParentrecorder("casparcg", cmbcasparcgwindowtitlerecording, pnlrecording) + + End Sub + Public parentedProcess1 As Process + Public Sub SetProcessParentrecorder(ByVal processName As String, ByVal cmb As ComboBox, ByVal pnl As Panel) + On Error Resume Next + Dim processes() As Process = Process.GetProcessesByName(processName) + Dim iprocess As Integer + + For iprocess = 0 To processes.GetUpperBound(0) + If processes(iprocess).MainWindowTitle = cmb.Text Then Exit For + Next + parentedProcess1 = processes(iprocess) + SetParent(parentedProcess1.MainWindowHandle, pnl.Handle) + SendMessage(parentedProcess1.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0) + + End Sub + Private Sub cmdoutcasparcgwindowrecording_Click(sender As Object, e As EventArgs) Handles cmdoutcasparcgwindowrecording.Click + On Error Resume Next + If Not parentedProcess1 Is Nothing Then + SetParent(parentedProcess1.MainWindowHandle, Nothing) + End If + End Sub + + Private Sub ucnewOffAirLogger_Load(sender As Object, e As EventArgs) Handles MyBase.Load + initialisedataforshedulerecording() + Me.dtpoal.CustomFormat = "yyyyMMddHHmmss" + Me.dtpdeleteoal.CustomFormat = "yyyyMMddHHmmss" + + End Sub + + Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click + On Error Resume Next + dgvshedulerecording.Rows.Clear() + Me.lblshedulerecordingplaylist.Text = "Shedule Recording= " & "new playlist" + End Sub + + Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click + On Error Resume Next + ofd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + ofd2.InitialDirectory = "c:\casparcg\mydata\shedule_recording\" + If (ofd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sr As StreamReader = New StreamReader(ofd2.FileName) + dgvshedulerecording.Rows.Clear() + Dim g As Integer = 0 + Dim li As String + Do Until sr.EndOfStream = True + li = sr.ReadLine() + dgvshedulerecording.Rows.Add() + Dim xyz As Array = Split(li, ",") + dgvshedulerecording.Rows(g).Cells(0).Value = xyz(0) + dgvshedulerecording.Rows(g).Cells(1).Value = xyz(1) + g = g + 1 + Loop + sr.Close() + End Using + Me.lblshedulerecordingplaylist.Text = "Shedule Recording= " & ofd2.FileName + End If + End Sub + + Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click + On Error Resume Next + osd2.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + osd2.InitialDirectory = "c:\casparcg\mydata\shedule_recording\" + osd2.FileName = "" + If (osd2.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sw As StreamWriter = New StreamWriter(osd2.FileName) + If dgvshedulerecording.Rows.Count = 0 Then + sw.Write("") + Else + Dim f As Integer = 0 + Do Until f = dgvshedulerecording.Rows.Count + sw.WriteLine(Format(CType(dgvshedulerecording.Rows(f).Cells(0).Value, DateTime), "H:mm:ss") & "," & dgvshedulerecording.Rows(f).Cells(1).Value) + f = f + 1 + Loop + End If + sw.Close() + End Using + Me.lblshedulerecordingplaylist.Text = "Shedule Recording= " & osd2.FileName + End If + End Sub + Private Sub MenuStrip1_MouseHover(sender As Object, e As EventArgs) Handles MenuStrip1.MouseHover + MakeMenuDropDownWhenParrented(sender) + End Sub + + Private Sub CmdPlayinvlc_Click(sender As Object, e As EventArgs) Handles cmdPlayinvlc.Click + On Error Resume Next + playinvlc(lblrecordingfilenameoal.Text) + End Sub + + Private Sub CmdShowInfo_Click(sender As Object, e As EventArgs) Handles cmdShowInfo.Click + On Error Resume Next + showfileinformation(lblrecordingfilenameoal.Text) + End Sub +End Class diff --git a/CasparMediaPlayback/ucnewPreview.Designer.vb b/CasparMediaPlayback/ucnewPreview.Designer.vb new file mode 100644 index 0000000..2ff0ecc --- /dev/null +++ b/CasparMediaPlayback/ucnewPreview.Designer.vb @@ -0,0 +1,160 @@ + +Partial Class ucnewPreview + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucnewPreview)) + Me.gbpreview = New System.Windows.Forms.GroupBox() + Me.cmdhid = New System.Windows.Forms.Button() + Me.lblchannelnumber = New System.Windows.Forms.Label() + Me.cmdremovepreview = New System.Windows.Forms.Button() + Me.cmdpreviewkey = New System.Windows.Forms.Button() + Me.cmbippreview = New System.Windows.Forms.ComboBox() + Me.cmdpreview = New System.Windows.Forms.Button() + Me.txtoptionspreview = New System.Windows.Forms.TextBox() + Me.vlcpreview = New Vlc.DotNet.Forms.VlcControl() + Me.gbpreview.SuspendLayout() + CType(Me.vlcpreview, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbpreview + ' + Me.gbpreview.BackColor = System.Drawing.Color.PeachPuff + Me.gbpreview.Controls.Add(Me.vlcpreview) + Me.gbpreview.Controls.Add(Me.cmdhid) + Me.gbpreview.Controls.Add(Me.lblchannelnumber) + Me.gbpreview.Controls.Add(Me.cmdremovepreview) + Me.gbpreview.Controls.Add(Me.cmdpreviewkey) + Me.gbpreview.Controls.Add(Me.cmbippreview) + Me.gbpreview.Controls.Add(Me.cmdpreview) + Me.gbpreview.Controls.Add(Me.txtoptionspreview) + Me.gbpreview.Location = New System.Drawing.Point(2, 2) + Me.gbpreview.Name = "gbpreview" + Me.gbpreview.Size = New System.Drawing.Size(431, 338) + Me.gbpreview.TabIndex = 1168 + Me.gbpreview.TabStop = False + Me.gbpreview.Text = "Preview" + ' + 'cmdhid + ' + Me.cmdhid.Image = CType(resources.GetObject("cmdhid.Image"), System.Drawing.Image) + Me.cmdhid.Location = New System.Drawing.Point(397, 6) + Me.cmdhid.Name = "cmdhid" + Me.cmdhid.Size = New System.Drawing.Size(28, 27) + Me.cmdhid.TabIndex = 1177 + Me.cmdhid.UseVisualStyleBackColor = True + ' + 'lblchannelnumber + ' + Me.lblchannelnumber.AutoSize = True + Me.lblchannelnumber.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblchannelnumber.ForeColor = System.Drawing.Color.DarkRed + Me.lblchannelnumber.Location = New System.Drawing.Point(278, 48) + Me.lblchannelnumber.Name = "lblchannelnumber" + Me.lblchannelnumber.Size = New System.Drawing.Size(119, 25) + Me.lblchannelnumber.TabIndex = 1169 + Me.lblchannelnumber.Text = "Channel 1" + ' + 'cmdremovepreview + ' + Me.cmdremovepreview.Location = New System.Drawing.Point(164, 49) + Me.cmdremovepreview.Name = "cmdremovepreview" + Me.cmdremovepreview.Size = New System.Drawing.Size(108, 22) + Me.cmdremovepreview.TabIndex = 1168 + Me.cmdremovepreview.Text = "Remove Preview" + Me.cmdremovepreview.UseVisualStyleBackColor = True + ' + 'cmdpreviewkey + ' + Me.cmdpreviewkey.Location = New System.Drawing.Point(84, 49) + Me.cmdpreviewkey.Name = "cmdpreviewkey" + Me.cmdpreviewkey.Size = New System.Drawing.Size(74, 22) + Me.cmdpreviewkey.TabIndex = 1171 + Me.cmdpreviewkey.Text = "Preview Key" + Me.cmdpreviewkey.UseVisualStyleBackColor = True + ' + 'cmbippreview + ' + Me.cmbippreview.FormattingEnabled = True + Me.cmbippreview.Items.AddRange(New Object() {"224.0.0.1:5004", "127.0.0.1:5004", "192.168.1.1:5004", "192.168.1.2:5004", "192.168.1.3:5004"}) + Me.cmbippreview.Location = New System.Drawing.Point(11, 16) + Me.cmbippreview.Name = "cmbippreview" + Me.cmbippreview.Size = New System.Drawing.Size(99, 21) + Me.cmbippreview.TabIndex = 1173 + Me.cmbippreview.Text = "224.0.0.1:5004" + ' + 'cmdpreview + ' + Me.cmdpreview.Location = New System.Drawing.Point(4, 48) + Me.cmdpreview.Name = "cmdpreview" + Me.cmdpreview.Size = New System.Drawing.Size(80, 22) + Me.cmdpreview.TabIndex = 1167 + Me.cmdpreview.Text = "Preview Fill" + Me.cmdpreview.UseVisualStyleBackColor = True + ' + 'txtoptionspreview + ' + Me.txtoptionspreview.Location = New System.Drawing.Point(116, 10) + Me.txtoptionspreview.Multiline = True + Me.txtoptionspreview.Name = "txtoptionspreview" + Me.txtoptionspreview.Size = New System.Drawing.Size(275, 36) + Me.txtoptionspreview.TabIndex = 1170 + Me.txtoptionspreview.Text = "-vcodec libx264 -tune zerolatency -preset ultrafast -crf 25 -format mpegts scale=" & + "240:180" + ' + 'vlcpreview + ' + Me.vlcpreview.BackColor = System.Drawing.Color.Black + Me.vlcpreview.Location = New System.Drawing.Point(6, 77) + Me.vlcpreview.Name = "vlcpreview" + Me.vlcpreview.Size = New System.Drawing.Size(419, 255) + Me.vlcpreview.Spu = -1 + Me.vlcpreview.TabIndex = 1178 + Me.vlcpreview.Text = "VlcControl1" + Me.vlcpreview.VlcLibDirectory = CType(resources.GetObject("vlcpreview.VlcLibDirectory"), System.IO.DirectoryInfo) + Me.vlcpreview.VlcMediaplayerOptions = Nothing + ' + 'ucnewPreview + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Controls.Add(Me.gbpreview) + Me.Name = "ucnewPreview" + Me.Size = New System.Drawing.Size(437, 343) + Me.gbpreview.ResumeLayout(False) + Me.gbpreview.PerformLayout() + CType(Me.vlcpreview, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbpreview As System.Windows.Forms.GroupBox + Friend WithEvents cmbippreview As System.Windows.Forms.ComboBox + Friend WithEvents cmdpreviewkey As System.Windows.Forms.Button + Friend WithEvents txtoptionspreview As System.Windows.Forms.TextBox + Friend WithEvents cmdremovepreview As System.Windows.Forms.Button + Friend WithEvents cmdpreview As System.Windows.Forms.Button + Friend WithEvents lblchannelnumber As Label + Friend WithEvents cmdhid As Button + Friend WithEvents vlcpreview As Vlc.DotNet.Forms.VlcControl +End Class diff --git a/CasparMediaPlayback/ucnewPreview.resx b/CasparMediaPlayback/ucnewPreview.resx new file mode 100644 index 0000000..030a103 --- /dev/null +++ b/CasparMediaPlayback/ucnewPreview.resx @@ -0,0 +1,146 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABdTeXN0ZW0uSU8uRGlyZWN0b3J5SW5mbwIAAAAMT3JpZ2luYWxQ + YXRoCEZ1bGxQYXRoAQEGAgAAADBDOlxjYXNwYXJjZ1xteWRhdGFcdmxjXHZsYy0yLjIuMS13aW4zMlx2 + bGMtMi4yLjEJAgAAAAs= + + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAkGBggGBQkIBwgKCQkKDRYODQwMDRoTFBAWHxwhIB8cHh4j + JzIqIyUvJR4eKzssLzM1ODg4ISo9QTw2QTI3ODX/2wBDAQkKCg0LDRkODhk1JB4kNTU1NTU1NTU1NTU1 + NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTX/wAARCAASABIDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDupNTmvNduLKKZhNGW2oJCoIHp71Dc6hc2dgt3cvPCjvsUSSkM + fw9K5HVL+y074kXlzqSXDRQyGREiOCzgArn2qr4m8WweJ7GGaeGSDUYnK4RsxGP8e9cbqb66n0kcJJ8r + jH3bK7sux6fFqdyYUIkyCowTRVCzDfYoMo3+rXt7UVXMzh+rwLGu20EmolnhjZiOpUE1Ris7fzlPkRZy + P4BRRUP4jqofwV6HYIi7F+UdPSiiiug8F7n/2Q== + + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucnewPreview.vb b/CasparMediaPlayback/ucnewPreview.vb new file mode 100644 index 0000000..5948d16 --- /dev/null +++ b/CasparMediaPlayback/ucnewPreview.vb @@ -0,0 +1,40 @@ +Public Class ucnewPreview + Public chnumber As Integer = 1 + Dim isplaying As Boolean = False + Private Sub cmdpreviewkey_Click(sender As Object, e As EventArgs) Handles cmdpreviewkey.Click + On Error Resume Next + CasparDevice.SendString("ADD " & chnumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text & " -vf alphaextract") + ''Threading.Thread.Sleep(2000) + 'vlcpreview.playlist.items.clear() + 'vlcpreview.playlist.add("udp://@" & cmbippreview.Text) + 'vlcpreview.playlist.play() + + If isplaying = True Then vlcpreview.VlcMediaPlayer.Stop() + vlcpreview.VlcMediaPlayer.SetMedia(New Uri("udp://@" & cmbippreview.Text)) + vlcpreview.VlcMediaPlayer.Play() + isplaying = True + + + End Sub + + Private Sub cmdpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdpreview.Click + On Error Resume Next + CasparDevice.SendString("ADD " & chnumber & " STREAM " & "udp://" & cmbippreview.Text & " " & txtoptionspreview.Text) + 'Threading.Thread.Sleep(2000) + If isplaying = True Then vlcpreview.VlcMediaPlayer.Stop() + vlcpreview.VlcMediaPlayer.SetMedia(New Uri("udp://@" & cmbippreview.Text)) + vlcpreview.VlcMediaPlayer.Play() + isplaying = True + End Sub + + Private Sub cmdremovepreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremovepreview.Click + On Error Resume Next + CasparDevice.SendString("remove " & chnumber & " stream " & "udp://" & cmbippreview.Text) + vlcpreview.VlcMediaPlayer.Stop() + isplaying = False + End Sub + + Private Sub Cmdhid_Click(sender As Object, e As EventArgs) Handles cmdhid.Click + Hide() + End Sub +End Class diff --git a/CasparMediaPlayback/ucnewRecorder.Designer.vb b/CasparMediaPlayback/ucnewRecorder.Designer.vb new file mode 100644 index 0000000..03db132 --- /dev/null +++ b/CasparMediaPlayback/ucnewRecorder.Designer.vb @@ -0,0 +1,542 @@ + +Partial Class ucnewRecorder + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucnewRecorder)) + Me.gbrecording = New System.Windows.Forms.GroupBox() + Me.cmdcloseRecorder = New System.Windows.Forms.Button() + Me.ProgressBar2 = New VerticalProgressBar.VerticalProgressBar() + Me.Label2 = New System.Windows.Forms.Label() + Me.ProgressBar1 = New VerticalProgressBar.VerticalProgressBar() + Me.pnlrecording = New System.Windows.Forms.Panel() + Me.cmbcasparcgwindowtitlerecording = New System.Windows.Forms.ComboBox() + Me.cmdoutcasparcgwindowrecording = New System.Windows.Forms.Button() + Me.cmdshowcasparcgwindowrecording = New System.Windows.Forms.Button() + Me.Label233 = New System.Windows.Forms.Label() + Me.cmbdecklinkforrecording = New System.Windows.Forms.ComboBox() + Me.cmdopenintrimmer = New System.Windows.Forms.Button() + Me.lblRecordingFolder = New System.Windows.Forms.Label() + Me.cmdOpenFolderforRecording = New System.Windows.Forms.Button() + Me.Label152 = New System.Windows.Forms.Label() + Me.lblfreespace = New System.Windows.Forms.Label() + Me.cmdlocaterecordingfile = New System.Windows.Forms.Button() + Me.Label128 = New System.Windows.Forms.Label() + Me.Label129 = New System.Windows.Forms.Label() + Me.Label130 = New System.Windows.Forms.Label() + Me.lblRecordedSize = New System.Windows.Forms.Label() + Me.lblRecordedduration = New System.Windows.Forms.Label() + Me.lblrecordingfilename = New System.Windows.Forms.Label() + Me.chksinglecliprecord = New System.Windows.Forms.CheckBox() + Me.txtextrarecordoptions = New System.Windows.Forms.TextBox() + Me.Label22 = New System.Windows.Forms.Label() + Me.txtfilename = New System.Windows.Forms.TextBox() + Me.cmdremove_input = New System.Windows.Forms.Button() + Me.mp4 = New System.Windows.Forms.ComboBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtbitrate = New System.Windows.Forms.TextBox() + Me.cmdlooprecord = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.cmdstoplooprecord = New System.Windows.Forms.Button() + Me.txtinterval = New System.Windows.Forms.TextBox() + Me.lblinterval = New System.Windows.Forms.Label() + Me.cmdinput = New System.Windows.Forms.Button() + Me.tmrrecorder = New System.Windows.Forms.Timer(Me.components) + Me.tmrrecordedfileinfo = New System.Windows.Forms.Timer(Me.components) + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.gbrecording.SuspendLayout() + Me.SuspendLayout() + ' + 'gbrecording + ' + Me.gbrecording.BackColor = System.Drawing.Color.LightGoldenrodYellow + Me.gbrecording.Controls.Add(Me.cmdcloseRecorder) + Me.gbrecording.Controls.Add(Me.ProgressBar2) + Me.gbrecording.Controls.Add(Me.Label2) + Me.gbrecording.Controls.Add(Me.ProgressBar1) + Me.gbrecording.Controls.Add(Me.pnlrecording) + Me.gbrecording.Controls.Add(Me.cmbcasparcgwindowtitlerecording) + Me.gbrecording.Controls.Add(Me.cmdoutcasparcgwindowrecording) + Me.gbrecording.Controls.Add(Me.cmdshowcasparcgwindowrecording) + Me.gbrecording.Controls.Add(Me.Label233) + Me.gbrecording.Controls.Add(Me.cmbdecklinkforrecording) + Me.gbrecording.Controls.Add(Me.cmdopenintrimmer) + Me.gbrecording.Controls.Add(Me.lblRecordingFolder) + Me.gbrecording.Controls.Add(Me.cmdOpenFolderforRecording) + Me.gbrecording.Controls.Add(Me.Label152) + Me.gbrecording.Controls.Add(Me.lblfreespace) + Me.gbrecording.Controls.Add(Me.cmdlocaterecordingfile) + Me.gbrecording.Controls.Add(Me.Label128) + Me.gbrecording.Controls.Add(Me.Label129) + Me.gbrecording.Controls.Add(Me.Label130) + Me.gbrecording.Controls.Add(Me.lblRecordedSize) + Me.gbrecording.Controls.Add(Me.lblRecordedduration) + Me.gbrecording.Controls.Add(Me.lblrecordingfilename) + Me.gbrecording.Controls.Add(Me.chksinglecliprecord) + Me.gbrecording.Controls.Add(Me.txtextrarecordoptions) + Me.gbrecording.Controls.Add(Me.Label22) + Me.gbrecording.Controls.Add(Me.txtfilename) + Me.gbrecording.Controls.Add(Me.cmdremove_input) + Me.gbrecording.Controls.Add(Me.mp4) + Me.gbrecording.Controls.Add(Me.Label4) + Me.gbrecording.Controls.Add(Me.Label1) + Me.gbrecording.Controls.Add(Me.txtbitrate) + Me.gbrecording.Controls.Add(Me.cmdlooprecord) + Me.gbrecording.Controls.Add(Me.Label3) + Me.gbrecording.Controls.Add(Me.cmdstoplooprecord) + Me.gbrecording.Controls.Add(Me.txtinterval) + Me.gbrecording.Controls.Add(Me.lblinterval) + Me.gbrecording.Controls.Add(Me.cmdinput) + Me.gbrecording.ForeColor = System.Drawing.Color.Black + Me.gbrecording.Location = New System.Drawing.Point(2, 3) + Me.gbrecording.Name = "gbrecording" + Me.gbrecording.Size = New System.Drawing.Size(567, 286) + Me.gbrecording.TabIndex = 178 + Me.gbrecording.TabStop = False + Me.gbrecording.Text = "Recording" + ' + 'cmdcloseRecorder + ' + Me.cmdcloseRecorder.Image = CType(resources.GetObject("cmdcloseRecorder.Image"), System.Drawing.Image) + Me.cmdcloseRecorder.Location = New System.Drawing.Point(532, 11) + Me.cmdcloseRecorder.Name = "cmdcloseRecorder" + Me.cmdcloseRecorder.Size = New System.Drawing.Size(28, 27) + Me.cmdcloseRecorder.TabIndex = 1196 + Me.cmdcloseRecorder.UseVisualStyleBackColor = True + ' + 'ProgressBar2 + ' + Me.ProgressBar2.BorderStyle = VerticalProgressBar.BorderStyles.Classic + Me.ProgressBar2.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.ProgressBar2.Location = New System.Drawing.Point(549, 108) + Me.ProgressBar2.Maximum = 40 + Me.ProgressBar2.Minimum = 0 + Me.ProgressBar2.Name = "ProgressBar2" + Me.ProgressBar2.Size = New System.Drawing.Size(11, 176) + Me.ProgressBar2.Step = 1 + Me.ProgressBar2.Style = VerticalProgressBar.Styles.Classic + Me.ProgressBar2.TabIndex = 736 + Me.ProgressBar2.Value = 40 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.DarkRed + Me.Label2.Location = New System.Drawing.Point(75, 3) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(119, 25) + Me.Label2.TabIndex = 734 + Me.Label2.Text = "Channel 1" + ' + 'ProgressBar1 + ' + Me.ProgressBar1.BorderStyle = VerticalProgressBar.BorderStyles.Classic + Me.ProgressBar1.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.ProgressBar1.Location = New System.Drawing.Point(296, 108) + Me.ProgressBar1.Maximum = 40 + Me.ProgressBar1.Minimum = 0 + Me.ProgressBar1.Name = "ProgressBar1" + Me.ProgressBar1.Size = New System.Drawing.Size(11, 176) + Me.ProgressBar1.Step = 1 + Me.ProgressBar1.Style = VerticalProgressBar.Styles.Classic + Me.ProgressBar1.TabIndex = 735 + Me.ProgressBar1.Value = 40 + ' + 'pnlrecording + ' + Me.pnlrecording.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.pnlrecording.Location = New System.Drawing.Point(308, 108) + Me.pnlrecording.Name = "pnlrecording" + Me.pnlrecording.Size = New System.Drawing.Size(235, 176) + Me.pnlrecording.TabIndex = 157 + ' + 'cmbcasparcgwindowtitlerecording + ' + Me.cmbcasparcgwindowtitlerecording.FormattingEnabled = True + Me.cmbcasparcgwindowtitlerecording.Items.AddRange(New Object() {"Screen consumer [1|PAL]", "Screen consumer [2|PAL]", "Screen consumer [3|PAL]", "Screen consumer [4|PAL]", "Screen consumer [1|NTSC]", "Screen consumer [1|1080i5000]", "Screen consumer [1|1080i5994]", "Screen consumer [1|1080i6000]", "Screen consumer [1|1080p2398]", "Screen consumer [1|1080p2400]", "Screen consumer [1|1080p2500]", "Screen consumer [1|1080p2997]", "Screen consumer [1|1080p3000]", "Screen consumer [1|1080p5000]", "Screen consumer [1|1080p5994]", "Screen consumer [1|1080p6000]", "Screen consumer [1|1556p2398]", "Screen consumer [1|1556p2400]", "Screen consumer [1|1556p2500]", "Screen consumer [1|2160p2398]", "Screen consumer [1|2160p2400]", "Screen consumer [1|2160p2500]", "Screen consumer [1| 2160p2997]", "Screen consumer [1|2160p3000]", "Screen consumer [1|576p2500]", "Screen consumer [1|720p2398]", "Screen consumer [1|720p2400]", "Screen consumer [1|720p2500]", "Screen consumer [1|720p2997]", "Screen consumer [1|720p3000]", "Screen consumer [1|720p5000]", "Screen consumer [1|720p5994]", "Screen consumer [1|720p6000]"}) + Me.cmbcasparcgwindowtitlerecording.Location = New System.Drawing.Point(294, 82) + Me.cmbcasparcgwindowtitlerecording.Name = "cmbcasparcgwindowtitlerecording" + Me.cmbcasparcgwindowtitlerecording.Size = New System.Drawing.Size(150, 21) + Me.cmbcasparcgwindowtitlerecording.TabIndex = 733 + Me.cmbcasparcgwindowtitlerecording.Text = "Screen consumer [1|PAL]" + ' + 'cmdoutcasparcgwindowrecording + ' + Me.cmdoutcasparcgwindowrecording.Location = New System.Drawing.Point(482, 79) + Me.cmdoutcasparcgwindowrecording.Name = "cmdoutcasparcgwindowrecording" + Me.cmdoutcasparcgwindowrecording.Size = New System.Drawing.Size(47, 23) + Me.cmdoutcasparcgwindowrecording.TabIndex = 732 + Me.cmdoutcasparcgwindowrecording.Text = "OUT" + Me.cmdoutcasparcgwindowrecording.UseVisualStyleBackColor = True + ' + 'cmdshowcasparcgwindowrecording + ' + Me.cmdshowcasparcgwindowrecording.Location = New System.Drawing.Point(449, 79) + Me.cmdshowcasparcgwindowrecording.Name = "cmdshowcasparcgwindowrecording" + Me.cmdshowcasparcgwindowrecording.Size = New System.Drawing.Size(32, 23) + Me.cmdshowcasparcgwindowrecording.TabIndex = 731 + Me.cmdshowcasparcgwindowrecording.Text = "IN" + Me.cmdshowcasparcgwindowrecording.UseVisualStyleBackColor = True + ' + 'Label233 + ' + Me.Label233.AutoSize = True + Me.Label233.Location = New System.Drawing.Point(1, 18) + Me.Label233.Name = "Label233" + Me.Label233.Size = New System.Drawing.Size(49, 13) + Me.Label233.TabIndex = 713 + Me.Label233.Text = "Decklink" + ' + 'cmbdecklinkforrecording + ' + Me.cmbdecklinkforrecording.FormattingEnabled = True + Me.cmbdecklinkforrecording.Items.AddRange(New Object() {"1", "2", "3", "4"}) + Me.cmbdecklinkforrecording.Location = New System.Drawing.Point(4, 36) + Me.cmbdecklinkforrecording.Name = "cmbdecklinkforrecording" + Me.cmbdecklinkforrecording.Size = New System.Drawing.Size(39, 21) + Me.cmbdecklinkforrecording.TabIndex = 712 + Me.cmbdecklinkforrecording.Text = "1" + ' + 'cmdopenintrimmer + ' + Me.cmdopenintrimmer.Location = New System.Drawing.Point(185, 234) + Me.cmdopenintrimmer.Name = "cmdopenintrimmer" + Me.cmdopenintrimmer.Size = New System.Drawing.Size(93, 23) + Me.cmdopenintrimmer.TabIndex = 711 + Me.cmdopenintrimmer.Text = "Open in Trimmer" + Me.cmdopenintrimmer.UseVisualStyleBackColor = True + ' + 'lblRecordingFolder + ' + Me.lblRecordingFolder.AutoSize = True + Me.lblRecordingFolder.Location = New System.Drawing.Point(102, 87) + Me.lblRecordingFolder.Name = "lblRecordingFolder" + Me.lblRecordingFolder.Size = New System.Drawing.Size(109, 13) + Me.lblRecordingFolder.TabIndex = 709 + Me.lblRecordingFolder.Text = "c:\casparcg\_media\" + ' + 'cmdOpenFolderforRecording + ' + Me.cmdOpenFolderforRecording.Location = New System.Drawing.Point(7, 82) + Me.cmdOpenFolderforRecording.Name = "cmdOpenFolderforRecording" + Me.cmdOpenFolderforRecording.Size = New System.Drawing.Size(85, 23) + Me.cmdOpenFolderforRecording.TabIndex = 708 + Me.cmdOpenFolderforRecording.Text = "Select Folder" + Me.cmdOpenFolderforRecording.UseVisualStyleBackColor = True + ' + 'Label152 + ' + Me.Label152.AutoSize = True + Me.Label152.Location = New System.Drawing.Point(274, 40) + Me.Label152.Name = "Label152" + Me.Label152.Size = New System.Drawing.Size(62, 13) + Me.Label152.TabIndex = 168 + Me.Label152.Text = "Free Space" + ' + 'lblfreespace + ' + Me.lblfreespace.AutoSize = True + Me.lblfreespace.Location = New System.Drawing.Point(342, 42) + Me.lblfreespace.Name = "lblfreespace" + Me.lblfreespace.Size = New System.Drawing.Size(103, 13) + Me.lblfreespace.TabIndex = 167 + Me.lblfreespace.Text = "lblfreespacerecorcer" + ' + 'cmdlocaterecordingfile + ' + Me.cmdlocaterecordingfile.Location = New System.Drawing.Point(5, 62) + Me.cmdlocaterecordingfile.Name = "cmdlocaterecordingfile" + Me.cmdlocaterecordingfile.Size = New System.Drawing.Size(51, 20) + Me.cmdlocaterecordingfile.TabIndex = 166 + Me.cmdlocaterecordingfile.Text = "Locate" + Me.cmdlocaterecordingfile.UseVisualStyleBackColor = True + ' + 'Label128 + ' + Me.Label128.AutoSize = True + Me.Label128.Location = New System.Drawing.Point(259, 25) + Me.Label128.Name = "Label128" + Me.Label128.Size = New System.Drawing.Size(77, 13) + Me.Label128.TabIndex = 165 + Me.Label128.Text = "Recorded Size" + ' + 'Label129 + ' + Me.Label129.AutoSize = True + Me.Label129.Location = New System.Drawing.Point(239, 10) + Me.Label129.Name = "Label129" + Me.Label129.Size = New System.Drawing.Size(97, 13) + Me.Label129.TabIndex = 164 + Me.Label129.Text = "Recorded Duration" + ' + 'Label130 + ' + Me.Label130.AutoSize = True + Me.Label130.Location = New System.Drawing.Point(69, 66) + Me.Label130.Name = "Label130" + Me.Label130.Size = New System.Drawing.Size(23, 13) + Me.Label130.TabIndex = 163 + Me.Label130.Text = "File" + ' + 'lblRecordedSize + ' + Me.lblRecordedSize.AutoSize = True + Me.lblRecordedSize.Location = New System.Drawing.Point(342, 26) + Me.lblRecordedSize.Name = "lblRecordedSize" + Me.lblRecordedSize.Size = New System.Drawing.Size(77, 13) + Me.lblRecordedSize.TabIndex = 162 + Me.lblRecordedSize.Text = "Recorded Size" + ' + 'lblRecordedduration + ' + Me.lblRecordedduration.AutoSize = True + Me.lblRecordedduration.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblRecordedduration.ForeColor = System.Drawing.Color.DarkRed + Me.lblRecordedduration.Location = New System.Drawing.Point(342, 10) + Me.lblRecordedduration.Name = "lblRecordedduration" + Me.lblRecordedduration.Size = New System.Drawing.Size(139, 16) + Me.lblRecordedduration.TabIndex = 161 + Me.lblRecordedduration.Text = "Recorded Duration" + ' + 'lblrecordingfilename + ' + Me.lblrecordingfilename.AutoSize = True + Me.lblrecordingfilename.Location = New System.Drawing.Point(99, 65) + Me.lblrecordingfilename.MaximumSize = New System.Drawing.Size(300, 0) + Me.lblrecordingfilename.Name = "lblrecordingfilename" + Me.lblrecordingfilename.Size = New System.Drawing.Size(51, 13) + Me.lblrecordingfilename.TabIndex = 160 + Me.lblrecordingfilename.Text = "FileName" + ' + 'chksinglecliprecord + ' + Me.chksinglecliprecord.AutoSize = True + Me.chksinglecliprecord.Checked = True + Me.chksinglecliprecord.CheckState = System.Windows.Forms.CheckState.Checked + Me.chksinglecliprecord.Location = New System.Drawing.Point(158, 113) + Me.chksinglecliprecord.Name = "chksinglecliprecord" + Me.chksinglecliprecord.Size = New System.Drawing.Size(75, 17) + Me.chksinglecliprecord.TabIndex = 159 + Me.chksinglecliprecord.Text = "Single Clip" + Me.chksinglecliprecord.UseVisualStyleBackColor = True + ' + 'txtextrarecordoptions + ' + Me.txtextrarecordoptions.Location = New System.Drawing.Point(83, 208) + Me.txtextrarecordoptions.Name = "txtextrarecordoptions" + Me.txtextrarecordoptions.Size = New System.Drawing.Size(209, 20) + Me.txtextrarecordoptions.TabIndex = 158 + Me.txtextrarecordoptions.Text = "-codec:v mpeg4 -g 1 -alternate_scan 1" + Me.txtextrarecordoptions.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(7, 211) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(68, 13) + Me.Label22.TabIndex = 157 + Me.Label22.Text = "Extra options" + ' + 'txtfilename + ' + Me.txtfilename.Location = New System.Drawing.Point(65, 182) + Me.txtfilename.Name = "txtfilename" + Me.txtfilename.Size = New System.Drawing.Size(209, 20) + Me.txtfilename.TabIndex = 156 + Me.txtfilename.Text = "test1" + Me.txtfilename.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmdremove_input + ' + Me.cmdremove_input.Location = New System.Drawing.Point(123, 35) + Me.cmdremove_input.Name = "cmdremove_input" + Me.cmdremove_input.Size = New System.Drawing.Size(92, 27) + Me.cmdremove_input.TabIndex = 155 + Me.cmdremove_input.Text = "Remove Input" + Me.cmdremove_input.UseVisualStyleBackColor = True + ' + 'mp4 + ' + Me.mp4.FormattingEnabled = True + Me.mp4.Items.AddRange(New Object() {"avi", "dv", "mov", "mp4", "mxf", "ogg", "ts"}) + Me.mp4.Location = New System.Drawing.Point(73, 155) + Me.mp4.Name = "mp4" + Me.mp4.Size = New System.Drawing.Size(53, 21) + Me.mp4.Sorted = True + Me.mp4.TabIndex = 155 + Me.mp4.Text = "mp4" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(7, 158) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(58, 13) + Me.Label4.TabIndex = 153 + Me.Label4.Text = "File Format" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(7, 185) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(49, 13) + Me.Label1.TabIndex = 141 + Me.Label1.Text = "Filename" + ' + 'txtbitrate + ' + Me.txtbitrate.Location = New System.Drawing.Point(89, 133) + Me.txtbitrate.Name = "txtbitrate" + Me.txtbitrate.Size = New System.Drawing.Size(53, 20) + Me.txtbitrate.TabIndex = 142 + Me.txtbitrate.Text = "15" + Me.txtbitrate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmdlooprecord + ' + Me.cmdlooprecord.BackColor = System.Drawing.Color.Red + Me.cmdlooprecord.Location = New System.Drawing.Point(11, 235) + Me.cmdlooprecord.Name = "cmdlooprecord" + Me.cmdlooprecord.Size = New System.Drawing.Size(73, 23) + Me.cmdlooprecord.TabIndex = 139 + Me.cmdlooprecord.Text = "Record" + Me.cmdlooprecord.UseVisualStyleBackColor = False + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(7, 135) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(74, 13) + Me.Label3.TabIndex = 142 + Me.Label3.Text = "Bit Rate Mbps" + ' + 'cmdstoplooprecord + ' + Me.cmdstoplooprecord.Location = New System.Drawing.Point(86, 234) + Me.cmdstoplooprecord.Name = "cmdstoplooprecord" + Me.cmdstoplooprecord.Size = New System.Drawing.Size(93, 23) + Me.cmdstoplooprecord.TabIndex = 140 + Me.cmdstoplooprecord.Text = "Stop Record" + Me.cmdstoplooprecord.UseVisualStyleBackColor = True + ' + 'txtinterval + ' + Me.txtinterval.Location = New System.Drawing.Point(97, 112) + Me.txtinterval.Name = "txtinterval" + Me.txtinterval.Size = New System.Drawing.Size(53, 20) + Me.txtinterval.TabIndex = 138 + Me.txtinterval.Text = "3600" + Me.txtinterval.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblinterval + ' + Me.lblinterval.AutoSize = True + Me.lblinterval.Location = New System.Drawing.Point(7, 114) + Me.lblinterval.Name = "lblinterval" + Me.lblinterval.Size = New System.Drawing.Size(87, 13) + Me.lblinterval.TabIndex = 138 + Me.lblinterval.Text = "File Length (Sec)" + ' + 'cmdinput + ' + Me.cmdinput.Location = New System.Drawing.Point(49, 35) + Me.cmdinput.Name = "cmdinput" + Me.cmdinput.Size = New System.Drawing.Size(70, 27) + Me.cmdinput.TabIndex = 142 + Me.cmdinput.Text = "Show input" + Me.cmdinput.UseVisualStyleBackColor = True + ' + 'tmrrecorder + ' + ' + 'tmrrecordedfileinfo + ' + Me.tmrrecordedfileinfo.Interval = 1000 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.HeaderText = "Time Code" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.Width = 70 + ' + 'ucnewRecorder + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Controls.Add(Me.gbrecording) + Me.Name = "ucnewRecorder" + Me.Size = New System.Drawing.Size(572, 292) + Me.gbrecording.ResumeLayout(False) + Me.gbrecording.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbrecording As System.Windows.Forms.GroupBox + Friend WithEvents pnlrecording As System.Windows.Forms.Panel + Friend WithEvents cmbcasparcgwindowtitlerecording As System.Windows.Forms.ComboBox + Friend WithEvents cmdoutcasparcgwindowrecording As System.Windows.Forms.Button + Friend WithEvents cmdshowcasparcgwindowrecording As System.Windows.Forms.Button + Friend WithEvents Label233 As System.Windows.Forms.Label + Friend WithEvents cmbdecklinkforrecording As System.Windows.Forms.ComboBox + Friend WithEvents cmdopenintrimmer As System.Windows.Forms.Button + Friend WithEvents lblRecordingFolder As System.Windows.Forms.Label + Friend WithEvents cmdOpenFolderforRecording As System.Windows.Forms.Button + Friend WithEvents Label152 As System.Windows.Forms.Label + Friend WithEvents lblfreespace As System.Windows.Forms.Label + Friend WithEvents cmdlocaterecordingfile As System.Windows.Forms.Button + Friend WithEvents Label128 As System.Windows.Forms.Label + Friend WithEvents Label129 As System.Windows.Forms.Label + Friend WithEvents Label130 As System.Windows.Forms.Label + Friend WithEvents lblRecordedSize As System.Windows.Forms.Label + Friend WithEvents lblRecordedduration As System.Windows.Forms.Label + Friend WithEvents lblrecordingfilename As System.Windows.Forms.Label + Friend WithEvents chksinglecliprecord As System.Windows.Forms.CheckBox + Friend WithEvents txtextrarecordoptions As System.Windows.Forms.TextBox + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents txtfilename As System.Windows.Forms.TextBox + Friend WithEvents cmdremove_input As System.Windows.Forms.Button + Friend WithEvents mp4 As System.Windows.Forms.ComboBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtbitrate As System.Windows.Forms.TextBox + Friend WithEvents cmdlooprecord As System.Windows.Forms.Button + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents cmdstoplooprecord As System.Windows.Forms.Button + Friend WithEvents txtinterval As System.Windows.Forms.TextBox + Friend WithEvents lblinterval As System.Windows.Forms.Label + Friend WithEvents cmdinput As System.Windows.Forms.Button + Friend WithEvents tmrrecorder As System.Windows.Forms.Timer + Friend WithEvents tmrrecordedfileinfo As System.Windows.Forms.Timer + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents ProgressBar2 As VerticalProgressBar.VerticalProgressBar + Friend WithEvents ProgressBar1 As VerticalProgressBar.VerticalProgressBar + Friend WithEvents cmdcloseRecorder As System.Windows.Forms.Button +End Class diff --git a/CasparMediaPlayback/ucnewRecorder.resx b/CasparMediaPlayback/ucnewRecorder.resx new file mode 100644 index 0000000..21b8d20 --- /dev/null +++ b/CasparMediaPlayback/ucnewRecorder.resx @@ -0,0 +1,148 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAkGBggGBQkIBwgKCQkKDRYODQwMDRoTFBAWHxwhIB8cHh4j + JzIqIyUvJR4eKzssLzM1ODg4ISo9QTw2QTI3ODX/2wBDAQkKCg0LDRkODhk1JB4kNTU1NTU1NTU1NTU1 + NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTX/wAARCAASABIDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDupNTmvNduLKKZhNGW2oJCoIHp71Dc6hc2dgt3cvPCjvsUSSkM + fw9K5HVL+y074kXlzqSXDRQyGREiOCzgArn2qr4m8WweJ7GGaeGSDUYnK4RsxGP8e9cbqb66n0kcJJ8r + jH3bK7sux6fFqdyYUIkyCowTRVCzDfYoMo3+rXt7UVXMzh+rwLGu20EmolnhjZiOpUE1Ris7fzlPkRZy + P4BRRUP4jqofwV6HYIi7F+UdPSiiiug8F7n/2Q== + + + + 112, 0 + + + 229, 0 + + + 62 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucnewRecorder.vb b/CasparMediaPlayback/ucnewRecorder.vb new file mode 100644 index 0000000..c3784ed --- /dev/null +++ b/CasparMediaPlayback/ucnewRecorder.vb @@ -0,0 +1,245 @@ +Imports System.IO +Imports Bespoke.Common +Imports Bespoke.Common.Osc +Imports System.Net +Public Class ucnewRecorder + Public chnumber As Integer + Public oscportnumber As Integer + Dim lengthfilename As Integer + Dim filename As String + Dim irecorder As Integer = 0 + Dim startingtimeofrecording As DateTime + Private Sub cmdoutcasparcgwindowrecording_Click(sender As Object, e As EventArgs) Handles cmdoutcasparcgwindowrecording.Click + On Error Resume Next + If Not parentedProcess1 Is Nothing Then + SetParent(parentedProcess1.MainWindowHandle, Nothing) + End If + End Sub + Public parentedProcess1 As Process + Public Sub SetProcessParentrecorder(ByVal processName As String, ByVal cmb As ComboBox, ByVal pnl As Panel) + On Error Resume Next + + Dim processes() As Process = Process.GetProcessesByName(processName) + Dim iprocess As Integer + + For iprocess = 0 To processes.GetUpperBound(0) + If processes(iprocess).MainWindowTitle = cmb.Text Then Exit For + Next + + parentedProcess1 = processes(iprocess) + SetParent(parentedProcess1.MainWindowHandle, pnl.Handle) + SendMessage(parentedProcess1.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0) + + End Sub + Private Sub cmdshowcasparcgwindowrecording_Click(sender As Object, e As EventArgs) Handles cmdshowcasparcgwindowrecording.Click + On Error Resume Next + SetProcessParentrecorder("casparcg", cmbcasparcgwindowtitlerecording, pnlrecording) + End Sub + + Private Sub cmdinput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdinput.Click + On Error Resume Next + If frmmediaplayer.cmdconnect.BackColor = Color.Green Then + Dim str As String + + str = "play " & chnumber & "-1" & " decklink " & cmbdecklinkforrecording.Text + CasparDevice.SendString(str) + End If + End Sub + + Private Sub cmdlocaterecordingfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlocaterecordingfile.Click + Process.Start("explorer.exe", "/select," & Replace(lblrecordingfilename.Text, "/", "\")) + End Sub + Private Sub cmdOpenFolderforRecording_Click(sender As Object, e As EventArgs) Handles cmdOpenFolderforRecording.Click + On Error Resume Next + Dim aa As New OpenFileDialog + aa.DereferenceLinks = False + aa.CheckFileExists = False + aa.CheckPathExists = False + aa.Filter = "folders|n" + aa.Title = "Select Folder" + aa.InitialDirectory = Replace(mediafullpath, "/", "\") '"c:\casparcg\_media" + aa.FileName = aa.InitialDirectory & "select folder" + If aa.ShowDialog() = DialogResult.OK Then + lblRecordingFolder.Text = Directory.GetParent(aa.FileName).ToString & "\" + End If + End Sub + + Private Sub cmdopenintrimmer_Click(sender As Object, e As EventArgs) Handles cmdopenintrimmer.Click + On Error Resume Next + If Me.Parent.Name = "FourChannelRecorder" Then + 'FourChannelRecorder.UcnewTrimmer11.openfileintrimmer(lblrecordingfilename.Text) + ElseIf Me.Parent.Name = "gb4ChannelRecorderAndTrimmer" Then + uc4ChannelRecorderAndTrimmer.UcnewTrimmer11.openfileintrimmer(lblrecordingfilename.Text) + End If + ' MsgBox(Me.Parent.Name) + End Sub + + Private Sub cmdremove_input_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdremove_input.Click + On Error Resume Next + If frmmediaplayer.cmdconnect.BackColor = Color.Green Then + Dim str = "stop " & chnumber & "-1" + CasparDevice.SendString(str) + + End If + End Sub + Private Sub cmdlooprecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlooprecord.Click + On Error Resume Next + If frmmediaplayer.cmdconnect.BackColor = Color.Green And sender.BackColor = Color.Red Then + record() + tmrrecorder.Interval = (txtinterval.Text) * 1000 + tmrrecorder.Enabled = True + tmrrecordedfileinfo.Enabled = True + + End If + lengthfilename = Len(txtfilename.Text) + filename = txtfilename.Text + irecorder = 0 + End Sub + Sub record() + On Error Resume Next + lblRecordedduration.Text = "" + lblRecordedSize.Text = "" + Dim str As String + str = "ADD " & chnumber & " FILE " & """" & Replace(Mid(lblRecordingFolder.Text, Len(mediafullpath) + 1), "\", "/") & "/" & txtfilename.Text & "." & mp4.Text & """" & " -b:v " & Val(txtbitrate.Text) & "000k -minrate " & Val(txtbitrate.Text) & "000k -maxrate " & Val(txtbitrate.Text) & "000k " & txtextrarecordoptions.Text + CasparDevice.SendString(str) + + startingtimeofrecording = Now + cmdlooprecord.BackColor = Color.Green + End Sub + Private Sub tmrrecorder_Tick(sender As Object, e As EventArgs) Handles tmrrecorder.Tick + On Error Resume Next + stoprecord() + If chksinglecliprecord.Checked = False Then + irecorder = irecorder + 1 + txtfilename.Text = filename & "_" & irecorder + record() + + Else + tmrrecordedfileinfo.Enabled = False + tmrrecorder.Enabled = False + End If + End Sub + Private Sub cmdstoplooprecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstoplooprecord.Click + On Error Resume Next + stoprecord() + txtfilename.Text = "" + + tmrrecorder.Enabled = False + tmrrecordedfileinfo.Enabled = False + End Sub + Sub stoprecord() + On Error Resume Next + Dim str As String + str = "REMOVE " & chnumber & " FILE " & "/" & txtfilename.Text & "." & mp4.Text + + CasparDevice.SendString(str) + cmdlooprecord.BackColor = Color.Red + End Sub + + Private Sub tmrrecordedfileinfo_Tick(sender As Object, e As EventArgs) Handles tmrrecordedfileinfo.Tick + + On Error Resume Next + lblrecordingfilename.Text = lblRecordingFolder.Text & txtfilename.Text & "." & mp4.Text + If File.Exists(lblrecordingfilename.Text) Then + Dim f As New FileInfo(lblrecordingfilename.Text) + + Dim recoredduration As TimeSpan = Now - startingtimeofrecording + lblRecordedduration.Text = recoredduration.ToString("hh\:mm\:ss") + lblRecordedSize.Text = f.Length / 1000000 & " MB" + Else + End If + lblfreespace.Text = My.Computer.FileSystem.GetDriveInfo(Mid(mediafullpath, 1, 2)).TotalFreeSpace / 1000000000 & " GB" + End Sub + + + Dim WithEvents sOscServer As OscServer 'for osc + Dim ichannel As Integer + Dim iport As Integer + + Sub oscstartandregister(aa As Integer, bb As Integer) + On Error Resume Next + ichannel = aa + iport = bb + If sOscServer.IsRunning = False Then + Dim ttype As Integer = 1 + Bespoke.Common.Osc.OscPacket.LittleEndianByteOrder = False + sOscServer = New OscServer(ttype, IPAddress.Any, iport) + sOscServer.Start() + sOscServer.RegisterMethod("/channel/" & ichannel & "/mixer/audio/1/dBFS") + sOscServer.RegisterMethod("/channel/" & ichannel & "/mixer/audio/2/dBFS") + + sOscServer.RegisterMethod("/channel/" & ichannel & "/mixer/audio/volume") ' for server 2.2 + sOscServer.FilterRegisteredMethods = True + End If + End Sub + + Private Sub invokeControls1(ByVal e As OscMessageReceivedEventArgs) + On Error Resume Next + If Me.InvokeRequired Then + Me.Invoke(New invokeControlsDelegate1(AddressOf Me.invokeControls1), e) + Else + Dim jregisteredmethods As Integer + If ServerVersion > 2.1 Then + If "/channel/" & ichannel & "/mixer/audio/volume" = e.Message.Address Then + ProgressBar1.Value = 40 + ValuetodBFS(e.Message.Data(0)) + ProgressBar2.Value = 40 + ValuetodBFS(e.Message.Data(1)) + End If + + Else + If "/channel/" & ichannel & "/mixer/audio/1/dBFS" = e.Message.Address Then + ProgressBar1.Value = 40 + e.Message.Data(0) + End If + If "/channel/" & ichannel & "/mixer/audio/2/dBFS" = e.Message.Address Then + ProgressBar2.Value = 40 + e.Message.Data(0) + End If + End If + + End If + + If ProgressBar1.Value > 38 Then + ProgressBar1.Color = Color.Red + ElseIf ProgressBar1.Value > 34 And ProgressBar1.Value < 38 Then + ProgressBar1.Color = Color.Yellow + ElseIf ProgressBar1.Value < 34 Then + ProgressBar1.Color = Color.Green + + End If + + If ProgressBar2.Value > 38 Then + ProgressBar2.Color = Color.Red + ElseIf ProgressBar2.Value > 34 And ProgressBar2.Value < 38 Then + ProgressBar2.Color = Color.Yellow + ElseIf ProgressBar2.Value < 34 Then + ProgressBar2.Color = Color.Green + + End If + End Sub + + + Private Delegate Sub invokeControlsDelegate1(ByVal e As OscMessageReceivedEventArgs) + + + Private Sub sOscServer_MessageReceived(ByVal sender As Object, ByVal e As OscMessageReceivedEventArgs) Handles sOscServer.MessageReceived + On Error Resume Next + Me.invokeControls1(e) + End Sub + Sub stoposcserver() + On Error Resume Next + sOscServer.Stop() + sOscServer.ClearMethods() + sOscServer = Nothing + End Sub + Private Sub ucnewRecorder_Load(sender As Object, e As EventArgs) Handles MyBase.Load + On Error Resume Next + lblRecordingFolder.Text = mediafullpath + + End Sub + Private Sub cmdcloseRecorder_Click(sender As Object, e As EventArgs) Handles cmdcloseRecorder.Click + stoprecord() + cmdoutcasparcgwindowrecording.PerformClick() + stoposcserver() + Parent.Controls.Remove(Me) + End Sub +End Class + + diff --git a/CasparMediaPlayback/ucnewSM2.Designer.vb b/CasparMediaPlayback/ucnewSM2.Designer.vb new file mode 100644 index 0000000..d90b949 --- /dev/null +++ b/CasparMediaPlayback/ucnewSM2.Designer.vb @@ -0,0 +1,427 @@ + +Partial Class ucnewSM2 + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucnewSM2)) + Me.gbSm2 = New System.Windows.Forms.GroupBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtCustomeSpped2 = New System.Windows.Forms.TextBox() + Me.txtCustomeSpped1 = New System.Windows.Forms.TextBox() + Me.cmdCustomSpeed2 = New System.Windows.Forms.Button() + Me.cmdCustomSpeed1 = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.cmbChannel = New System.Windows.Forms.ComboBox() + Me.lblplaying = New System.Windows.Forms.Label() + Me.lblcurrentframe = New System.Windows.Forms.Label() + Me.lblmin = New System.Windows.Forms.Label() + Me.lblmax = New System.Windows.Forms.Label() + Me.TrackBarseek = New System.Windows.Forms.TrackBar() + Me.pnlrecording = New System.Windows.Forms.Panel() + Me.cmbcasparcgwindowtitlerecording = New System.Windows.Forms.ComboBox() + Me.cmdoutcasparcgwindowrecording = New System.Windows.Forms.Button() + Me.cmdshowcasparcgwindowrecording = New System.Windows.Forms.Button() + Me.cmdhidesm2 = New System.Windows.Forms.Button() + Me.cmdspeed0sm2 = New System.Windows.Forms.Button() + Me.Label266 = New System.Windows.Forms.Label() + Me.nSlowMotionforwardsm2 = New System.Windows.Forms.NumericUpDown() + Me.cmdspeed100sm2 = New System.Windows.Forms.Button() + Me.cmdspeed75sm2 = New System.Windows.Forms.Button() + Me.cmdspeed50sm2 = New System.Windows.Forms.Button() + Me.cmdspeed25sm2 = New System.Windows.Forms.Button() + Me.Label267 = New System.Windows.Forms.Label() + Me.nSm2 = New System.Windows.Forms.NumericUpDown() + Me.tmrpreview = New System.Windows.Forms.Timer(Me.components) + Me.gbSm2.SuspendLayout() + CType(Me.TrackBarseek, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nSlowMotionforwardsm2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.nSm2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbSm2 + ' + Me.gbSm2.BackColor = System.Drawing.Color.DarkSeaGreen + Me.gbSm2.Controls.Add(Me.Label1) + Me.gbSm2.Controls.Add(Me.txtCustomeSpped2) + Me.gbSm2.Controls.Add(Me.txtCustomeSpped1) + Me.gbSm2.Controls.Add(Me.cmdCustomSpeed2) + Me.gbSm2.Controls.Add(Me.cmdCustomSpeed1) + Me.gbSm2.Controls.Add(Me.Label2) + Me.gbSm2.Controls.Add(Me.Label5) + Me.gbSm2.Controls.Add(Me.cmbChannel) + Me.gbSm2.Controls.Add(Me.lblplaying) + Me.gbSm2.Controls.Add(Me.lblcurrentframe) + Me.gbSm2.Controls.Add(Me.lblmin) + Me.gbSm2.Controls.Add(Me.lblmax) + Me.gbSm2.Controls.Add(Me.TrackBarseek) + Me.gbSm2.Controls.Add(Me.pnlrecording) + Me.gbSm2.Controls.Add(Me.cmbcasparcgwindowtitlerecording) + Me.gbSm2.Controls.Add(Me.cmdoutcasparcgwindowrecording) + Me.gbSm2.Controls.Add(Me.cmdshowcasparcgwindowrecording) + Me.gbSm2.Controls.Add(Me.cmdhidesm2) + Me.gbSm2.Controls.Add(Me.cmdspeed0sm2) + Me.gbSm2.Controls.Add(Me.Label266) + Me.gbSm2.Controls.Add(Me.nSlowMotionforwardsm2) + Me.gbSm2.Controls.Add(Me.cmdspeed100sm2) + Me.gbSm2.Controls.Add(Me.cmdspeed75sm2) + Me.gbSm2.Controls.Add(Me.cmdspeed50sm2) + Me.gbSm2.Controls.Add(Me.cmdspeed25sm2) + Me.gbSm2.Controls.Add(Me.Label267) + Me.gbSm2.Controls.Add(Me.nSm2) + Me.gbSm2.Location = New System.Drawing.Point(3, 3) + Me.gbSm2.Name = "gbSm2" + Me.gbSm2.Size = New System.Drawing.Size(455, 261) + Me.gbSm2.TabIndex = 1174 + Me.gbSm2.TabStop = False + Me.gbSm2.Text = "Slow Motion in Server 2.1" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(126, 104) + Me.Label1.MaximumSize = New System.Drawing.Size(75, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(72, 72) + Me.Label1.TabIndex = 1212 + Me.Label1.Text = "Drop Here to Play" + ' + 'txtCustomeSpped2 + ' + Me.txtCustomeSpped2.Location = New System.Drawing.Point(126, 224) + Me.txtCustomeSpped2.Name = "txtCustomeSpped2" + Me.txtCustomeSpped2.Size = New System.Drawing.Size(40, 20) + Me.txtCustomeSpped2.TabIndex = 1211 + Me.txtCustomeSpped2.Text = "0.15" + Me.txtCustomeSpped2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtCustomeSpped1 + ' + Me.txtCustomeSpped1.Location = New System.Drawing.Point(126, 187) + Me.txtCustomeSpped1.Name = "txtCustomeSpped1" + Me.txtCustomeSpped1.Size = New System.Drawing.Size(40, 20) + Me.txtCustomeSpped1.TabIndex = 1210 + Me.txtCustomeSpped1.Text = "0.80" + Me.txtCustomeSpped1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmdCustomSpeed2 + ' + Me.cmdCustomSpeed2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdCustomSpeed2.Location = New System.Drawing.Point(69, 217) + Me.cmdCustomSpeed2.Name = "cmdCustomSpeed2" + Me.cmdCustomSpeed2.Size = New System.Drawing.Size(55, 34) + Me.cmdCustomSpeed2.TabIndex = 1209 + Me.cmdCustomSpeed2.Text = "Play" + Me.cmdCustomSpeed2.UseVisualStyleBackColor = True + ' + 'cmdCustomSpeed1 + ' + Me.cmdCustomSpeed1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdCustomSpeed1.Location = New System.Drawing.Point(69, 179) + Me.cmdCustomSpeed1.Name = "cmdCustomSpeed1" + Me.cmdCustomSpeed1.Size = New System.Drawing.Size(55, 34) + Me.cmdCustomSpeed1.TabIndex = 1208 + Me.cmdCustomSpeed1.Text = "Play" + Me.cmdCustomSpeed1.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.DarkRed + Me.Label2.Location = New System.Drawing.Point(76, 16) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(90, 20) + Me.Label2.TabIndex = 1207 + Me.Label2.Text = "Channel 2" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(5, 21) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(22, 13) + Me.Label5.TabIndex = 1206 + Me.Label5.Text = "CH" + ' + 'cmbChannel + ' + Me.cmbChannel.AllowDrop = True + Me.cmbChannel.FormattingEnabled = True + Me.cmbChannel.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7", "8"}) + Me.cmbChannel.Location = New System.Drawing.Point(33, 18) + Me.cmbChannel.Name = "cmbChannel" + Me.cmbChannel.Size = New System.Drawing.Size(39, 21) + Me.cmbChannel.TabIndex = 1199 + Me.cmbChannel.Text = "2" + ' + 'lblplaying + ' + Me.lblplaying.AutoSize = True + Me.lblplaying.Location = New System.Drawing.Point(201, 32) + Me.lblplaying.MaximumSize = New System.Drawing.Size(340, 0) + Me.lblplaying.Name = "lblplaying" + Me.lblplaying.Size = New System.Drawing.Size(52, 13) + Me.lblplaying.TabIndex = 1185 + Me.lblplaying.Text = "File name" + ' + 'lblcurrentframe + ' + Me.lblcurrentframe.AutoSize = True + Me.lblcurrentframe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblcurrentframe.Location = New System.Drawing.Point(303, 238) + Me.lblcurrentframe.Name = "lblcurrentframe" + Me.lblcurrentframe.Size = New System.Drawing.Size(10, 13) + Me.lblcurrentframe.TabIndex = 1184 + Me.lblcurrentframe.Text = "." + Me.lblcurrentframe.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lblmin + ' + Me.lblmin.AutoSize = True + Me.lblmin.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblmin.Location = New System.Drawing.Point(211, 238) + Me.lblmin.Name = "lblmin" + Me.lblmin.Size = New System.Drawing.Size(13, 13) + Me.lblmin.TabIndex = 1183 + Me.lblmin.Text = "0" + Me.lblmin.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'lblmax + ' + Me.lblmax.AutoSize = True + Me.lblmax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblmax.Location = New System.Drawing.Point(409, 238) + Me.lblmax.Name = "lblmax" + Me.lblmax.Size = New System.Drawing.Size(10, 13) + Me.lblmax.TabIndex = 1181 + Me.lblmax.Text = "." + Me.lblmax.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TrackBarseek + ' + Me.TrackBarseek.AutoSize = False + Me.TrackBarseek.BackColor = System.Drawing.SystemColors.Control + Me.TrackBarseek.LargeChange = 2 + Me.TrackBarseek.Location = New System.Drawing.Point(204, 204) + Me.TrackBarseek.Maximum = 999999999 + Me.TrackBarseek.Name = "TrackBarseek" + Me.TrackBarseek.Size = New System.Drawing.Size(235, 31) + Me.TrackBarseek.TabIndex = 1182 + Me.TrackBarseek.TickStyle = System.Windows.Forms.TickStyle.TopLeft + ' + 'pnlrecording + ' + Me.pnlrecording.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.pnlrecording.Location = New System.Drawing.Point(204, 50) + Me.pnlrecording.Name = "pnlrecording" + Me.pnlrecording.Size = New System.Drawing.Size(235, 148) + Me.pnlrecording.TabIndex = 1177 + ' + 'cmbcasparcgwindowtitlerecording + ' + Me.cmbcasparcgwindowtitlerecording.FormattingEnabled = True + Me.cmbcasparcgwindowtitlerecording.Items.AddRange(New Object() {"Screen consumer [1|PAL]", "Screen consumer [2|PAL]", "Screen consumer [3|PAL]", "Screen consumer [4|PAL]", "Screen consumer [1|NTSC]", "Screen consumer [1|1080i5000]", "Screen consumer [2|1080i5000]", "Screen consumer [3|1080i5000]", "Screen consumer [4|1080i5000]", "Screen consumer [1|1080i5994]", "Screen consumer [1|1080i6000]", "Screen consumer [1|1080p2398]", "Screen consumer [1|1080p2400]", "Screen consumer [1|1080p2500]", "Screen consumer [1|1080p2997]", "Screen consumer [1|1080p3000]", "Screen consumer [1|1080p5000]", "Screen consumer [1|1080p5994]", "Screen consumer [1|1080p6000]", "Screen consumer [1|1556p2398]", "Screen consumer [1|1556p2400]", "Screen consumer [1|1556p2500]", "Screen consumer [1|2160p2398]", "Screen consumer [1|2160p2400]", "Screen consumer [1|2160p2500]", "Screen consumer [1| 2160p2997]", "Screen consumer [1|2160p3000]", "Screen consumer [1|576p2500]", "Screen consumer [1|720p2398]", "Screen consumer [1|720p2400]", "Screen consumer [1|720p2500]", "Screen consumer [1|720p2997]", "Screen consumer [1|720p3000]", "Screen consumer [1|720p5000]", "Screen consumer [1|720p5994]", "Screen consumer [1|720p6000]"}) + Me.cmbcasparcgwindowtitlerecording.Location = New System.Drawing.Point(179, 10) + Me.cmbcasparcgwindowtitlerecording.Name = "cmbcasparcgwindowtitlerecording" + Me.cmbcasparcgwindowtitlerecording.Size = New System.Drawing.Size(150, 21) + Me.cmbcasparcgwindowtitlerecording.TabIndex = 1180 + Me.cmbcasparcgwindowtitlerecording.Text = "Screen consumer [2|PAL]" + ' + 'cmdoutcasparcgwindowrecording + ' + Me.cmdoutcasparcgwindowrecording.Location = New System.Drawing.Point(367, 7) + Me.cmdoutcasparcgwindowrecording.Name = "cmdoutcasparcgwindowrecording" + Me.cmdoutcasparcgwindowrecording.Size = New System.Drawing.Size(47, 23) + Me.cmdoutcasparcgwindowrecording.TabIndex = 1179 + Me.cmdoutcasparcgwindowrecording.Text = "OUT" + Me.cmdoutcasparcgwindowrecording.UseVisualStyleBackColor = True + ' + 'cmdshowcasparcgwindowrecording + ' + Me.cmdshowcasparcgwindowrecording.Location = New System.Drawing.Point(334, 7) + Me.cmdshowcasparcgwindowrecording.Name = "cmdshowcasparcgwindowrecording" + Me.cmdshowcasparcgwindowrecording.Size = New System.Drawing.Size(32, 23) + Me.cmdshowcasparcgwindowrecording.TabIndex = 1178 + Me.cmdshowcasparcgwindowrecording.Text = "IN" + Me.cmdshowcasparcgwindowrecording.UseVisualStyleBackColor = True + ' + 'cmdhidesm2 + ' + Me.cmdhidesm2.Image = CType(resources.GetObject("cmdhidesm2.Image"), System.Drawing.Image) + Me.cmdhidesm2.Location = New System.Drawing.Point(420, 3) + Me.cmdhidesm2.Name = "cmdhidesm2" + Me.cmdhidesm2.Size = New System.Drawing.Size(28, 27) + Me.cmdhidesm2.TabIndex = 1176 + Me.cmdhidesm2.UseVisualStyleBackColor = True + ' + 'cmdspeed0sm2 + ' + Me.cmdspeed0sm2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdspeed0sm2.Location = New System.Drawing.Point(69, 100) + Me.cmdspeed0sm2.Name = "cmdspeed0sm2" + Me.cmdspeed0sm2.Size = New System.Drawing.Size(55, 34) + Me.cmdspeed0sm2.TabIndex = 718 + Me.cmdspeed0sm2.Text = "0%" + Me.cmdspeed0sm2.UseVisualStyleBackColor = True + ' + 'Label266 + ' + Me.Label266.AutoSize = True + Me.Label266.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label266.Location = New System.Drawing.Point(6, 73) + Me.Label266.Name = "Label266" + Me.Label266.Size = New System.Drawing.Size(124, 24) + Me.Label266.TabIndex = 641 + Me.Label266.Text = "Slow Motion" + ' + 'nSlowMotionforwardsm2 + ' + Me.nSlowMotionforwardsm2.DecimalPlaces = 2 + Me.nSlowMotionforwardsm2.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.nSlowMotionforwardsm2.Increment = New Decimal(New Integer() {5, 0, 0, 131072}) + Me.nSlowMotionforwardsm2.Location = New System.Drawing.Point(132, 70) + Me.nSlowMotionforwardsm2.Maximum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nSlowMotionforwardsm2.Name = "nSlowMotionforwardsm2" + Me.nSlowMotionforwardsm2.Size = New System.Drawing.Size(66, 31) + Me.nSlowMotionforwardsm2.TabIndex = 640 + Me.nSlowMotionforwardsm2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.nSlowMotionforwardsm2.Value = New Decimal(New Integer() {1, 0, 0, 65536}) + ' + 'cmdspeed100sm2 + ' + Me.cmdspeed100sm2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdspeed100sm2.Location = New System.Drawing.Point(69, 139) + Me.cmdspeed100sm2.Name = "cmdspeed100sm2" + Me.cmdspeed100sm2.Size = New System.Drawing.Size(55, 34) + Me.cmdspeed100sm2.TabIndex = 635 + Me.cmdspeed100sm2.Text = "100%" + Me.cmdspeed100sm2.UseVisualStyleBackColor = True + ' + 'cmdspeed75sm2 + ' + Me.cmdspeed75sm2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdspeed75sm2.Location = New System.Drawing.Point(8, 171) + Me.cmdspeed75sm2.Name = "cmdspeed75sm2" + Me.cmdspeed75sm2.Size = New System.Drawing.Size(55, 34) + Me.cmdspeed75sm2.TabIndex = 634 + Me.cmdspeed75sm2.Text = "75%" + Me.cmdspeed75sm2.UseVisualStyleBackColor = True + ' + 'cmdspeed50sm2 + ' + Me.cmdspeed50sm2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdspeed50sm2.Location = New System.Drawing.Point(8, 135) + Me.cmdspeed50sm2.Name = "cmdspeed50sm2" + Me.cmdspeed50sm2.Size = New System.Drawing.Size(55, 34) + Me.cmdspeed50sm2.TabIndex = 633 + Me.cmdspeed50sm2.Text = "50%" + Me.cmdspeed50sm2.UseVisualStyleBackColor = True + ' + 'cmdspeed25sm2 + ' + Me.cmdspeed25sm2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmdspeed25sm2.Location = New System.Drawing.Point(8, 100) + Me.cmdspeed25sm2.Name = "cmdspeed25sm2" + Me.cmdspeed25sm2.Size = New System.Drawing.Size(55, 34) + Me.cmdspeed25sm2.TabIndex = 632 + Me.cmdspeed25sm2.Text = "25%" + Me.cmdspeed25sm2.UseVisualStyleBackColor = True + ' + 'Label267 + ' + Me.Label267.AutoSize = True + Me.Label267.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label267.Location = New System.Drawing.Point(12, 40) + Me.Label267.Name = "Label267" + Me.Label267.Size = New System.Drawing.Size(118, 24) + Me.Label267.TabIndex = 602 + Me.Label267.Text = "Fast Motion" + ' + 'nSm2 + ' + Me.nSm2.DecimalPlaces = 2 + Me.nSm2.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.nSm2.Increment = New Decimal(New Integer() {5, 0, 0, 131072}) + Me.nSm2.Location = New System.Drawing.Point(132, 37) + Me.nSm2.Maximum = New Decimal(New Integer() {20, 0, 0, 0}) + Me.nSm2.Minimum = New Decimal(New Integer() {1, 0, 0, 0}) + Me.nSm2.Name = "nSm2" + Me.nSm2.Size = New System.Drawing.Size(66, 31) + Me.nSm2.TabIndex = 0 + Me.nSm2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.nSm2.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'tmrpreview + ' + Me.tmrpreview.Interval = 1000 + ' + 'ucnewSM2 + ' + Me.AllowDrop = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Controls.Add(Me.gbSm2) + Me.Name = "ucnewSM2" + Me.Size = New System.Drawing.Size(462, 268) + Me.gbSm2.ResumeLayout(False) + Me.gbSm2.PerformLayout() + CType(Me.TrackBarseek, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nSlowMotionforwardsm2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.nSm2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbSm2 As System.Windows.Forms.GroupBox + Friend WithEvents cmdspeed0sm2 As System.Windows.Forms.Button + Friend WithEvents Label266 As System.Windows.Forms.Label + Friend WithEvents nSlowMotionforwardsm2 As System.Windows.Forms.NumericUpDown + Friend WithEvents cmdspeed100sm2 As System.Windows.Forms.Button + Friend WithEvents cmdspeed75sm2 As System.Windows.Forms.Button + Friend WithEvents cmdspeed50sm2 As System.Windows.Forms.Button + Friend WithEvents cmdspeed25sm2 As System.Windows.Forms.Button + Friend WithEvents Label267 As System.Windows.Forms.Label + Friend WithEvents nSm2 As System.Windows.Forms.NumericUpDown + Friend WithEvents cmdhidesm2 As System.Windows.Forms.Button + Friend WithEvents pnlrecording As Panel + Friend WithEvents cmbcasparcgwindowtitlerecording As ComboBox + Friend WithEvents cmdoutcasparcgwindowrecording As Button + Friend WithEvents cmdshowcasparcgwindowrecording As Button + Friend WithEvents lblcurrentframe As Label + Friend WithEvents lblmin As Label + Friend WithEvents lblmax As Label + Friend WithEvents TrackBarseek As TrackBar + Friend WithEvents tmrpreview As Timer + Friend WithEvents lblplaying As Label + Friend WithEvents cmbChannel As ComboBox + Friend WithEvents Label5 As Label + Friend WithEvents Label2 As Label + Friend WithEvents txtCustomeSpped2 As TextBox + Friend WithEvents txtCustomeSpped1 As TextBox + Friend WithEvents cmdCustomSpeed2 As Button + Friend WithEvents cmdCustomSpeed1 As Button + Friend WithEvents Label1 As Label +End Class diff --git a/CasparMediaPlayback/ucnewSM2.resx b/CasparMediaPlayback/ucnewSM2.resx new file mode 100644 index 0000000..fc93a8a --- /dev/null +++ b/CasparMediaPlayback/ucnewSM2.resx @@ -0,0 +1,145 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAkGBggGBQkIBwgKCQkKDRYODQwMDRoTFBAWHxwhIB8cHh4j + JzIqIyUvJR4eKzssLzM1ODg4ISo9QTw2QTI3ODX/2wBDAQkKCg0LDRkODhk1JB4kNTU1NTU1NTU1NTU1 + NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTX/wAARCAASABIDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDupNTmvNduLKKZhNGW2oJCoIHp71Dc6hc2dgt3cvPCjvsUSSkM + fw9K5HVL+y074kXlzqSXDRQyGREiOCzgArn2qr4m8WweJ7GGaeGSDUYnK4RsxGP8e9cbqb66n0kcJJ8r + jH3bK7sux6fFqdyYUIkyCowTRVCzDfYoMo3+rXt7UVXMzh+rwLGu20EmolnhjZiOpUE1Ris7fzlPkRZy + P4BRRUP4jqofwV6HYIi7F+UdPSiiiug8F7n/2Q== + + + + 17, 17 + + + 25 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucnewSM2.vb b/CasparMediaPlayback/ucnewSM2.vb new file mode 100644 index 0000000..7594879 --- /dev/null +++ b/CasparMediaPlayback/ucnewSM2.vb @@ -0,0 +1,153 @@ + +Imports System.Net +Public Class ucnewSM2 + Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) + On Error Resume Next + Process.Start("http://casparcg.com/builds/CasparCG%20Server/2.1.0/") + End Sub + Private Sub cmdspeed25sm2_Click(sender As Object, e As EventArgs) Handles cmdspeed25sm2.Click + On Error Resume Next + CasparDevice.SendString("play " & cmbChannel.Text & "-" & 1) + CasparDevice.SendString("call " & cmbChannel.Text & "-" & 1 & " framerate speed .25") + End Sub + Private Sub nSlowMotionforwardsm2_ValueChanged(sender As Object, e As EventArgs) Handles nSlowMotionforwardsm2.ValueChanged + On Error Resume Next + CasparDevice.SendString("play " & cmbChannel.Text & "-" & 1) + CasparDevice.SendString("call " & cmbChannel.Text & "-" & 1 & " framerate speed " & nSlowMotionforwardsm2.Value) + End Sub + Private Sub cmdspeed100sm2_Click(sender As Object, e As EventArgs) Handles cmdspeed100sm2.Click + On Error Resume Next + CasparDevice.SendString("play " & cmbChannel.Text & "-" & 1) + CasparDevice.SendString("call " & cmbChannel.Text & "-" & 1 & " framerate speed 1") + End Sub + Private Sub cmdspeed75sm2_Click(sender As Object, e As EventArgs) Handles cmdspeed75sm2.Click + On Error Resume Next + CasparDevice.SendString("play " & cmbChannel.Text & "-" & 1) + CasparDevice.SendString("call " & cmbChannel.Text & "-" & 1 & " framerate speed .75") + End Sub + Private Sub cmdspeed50sm2_Click(sender As Object, e As EventArgs) Handles cmdspeed50sm2.Click + On Error Resume Next + CasparDevice.SendString("play " & cmbChannel.Text & "-" & 1) + CasparDevice.SendString("call " & cmbChannel.Text & "-" & 1 & " framerate speed .5") + + End Sub + Private Sub nSm2_ValueChanged(sender As Object, e As EventArgs) Handles nSm2.ValueChanged + On Error Resume Next + CasparDevice.SendString("play " & cmbChannel.Text & "-" & 1) + CasparDevice.SendString("call " & cmbChannel.Text & "-" & 1 & " framerate speed " & nSm2.Value) + + End Sub + Private Sub cmdspeed0sm2_Click(sender As Object, e As EventArgs) Handles cmdspeed0sm2.Click + On Error Resume Next + CasparDevice.SendString("play " & cmbChannel.Text & "-" & 1) + CasparDevice.SendString("call " & cmbChannel.Text & "-" & 1 & " framerate speed 0") + End Sub + + Private Sub cmdhidesm2_Click(sender As Object, e As EventArgs) Handles cmdhidesm2.Click + Me.Hide() + End Sub + + Private Sub cmdshowcasparcgwindowrecording_Click(sender As Object, e As EventArgs) Handles cmdshowcasparcgwindowrecording.Click + On Error Resume Next + SetProcessParentrecorder("casparcg", cmbcasparcgwindowtitlerecording, pnlrecording) + End Sub + Private Sub cmdoutcasparcgwindowrecording_Click(sender As Object, e As EventArgs) Handles cmdoutcasparcgwindowrecording.Click + On Error Resume Next + If Not parentedProcess1 Is Nothing Then + SetParent(parentedProcess1.MainWindowHandle, Nothing) + End If + End Sub + Public parentedProcess1 As Process + Public Sub SetProcessParentrecorder(ByVal processName As String, ByVal cmb As ComboBox, ByVal pnl As Panel) + On Error Resume Next + 'Retrieve an array of running processes with the given name + Dim processes() As Process = Process.GetProcessesByName(processName) + Dim iprocess As Integer + + For iprocess = 0 To processes.GetUpperBound(0) + If processes(iprocess).MainWindowTitle = cmb.Text Then Exit For + Next + parentedProcess1 = processes(iprocess) + SetParent(parentedProcess1.MainWindowHandle, pnl.Handle) + SendMessage(parentedProcess1.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0) + + End Sub + + Private Sub TrackBarseek_Scroll(sender As Object, e As EventArgs) Handles TrackBarseek.Scroll + 'no code + End Sub + Private Sub tmrpreview_Tick(sender As Object, e As EventArgs) Handles tmrpreview.Tick + On Error Resume Next + + CasparDevice.SendString("load " & cmbChannel.Text & "-" & 1 & " " & """" & ModifyFilename(lblplaying.Text) & """" + " seek " & Int(TrackBarseek.Value)) + End Sub + Private Sub TrackBarseek_MouseDown(sender As Object, e As MouseEventArgs) Handles TrackBarseek.MouseDown + On Error Resume Next + tmrpreview.Interval = 100 ' + tmrpreview.Enabled = True + End Sub + + Private Sub TrackBarseek_MouseUp(sender As Object, e As MouseEventArgs) Handles TrackBarseek.MouseUp + On Error Resume Next + + CasparDevice.SendString("load " & cmbChannel.Text & "-" & 1 & " " & """" & ModifyFilename(lblplaying.Text) & """" + " seek " & Int(TrackBarseek.Value)) + lblcurrentframe.Text = TrackBarseek.Value ' + tmrpreview.Enabled = False + + ucPlaylist.tmrduration.Enabled = True + End Sub + + Private Sub ucnewSM2_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + End Sub + Private Sub cmbChannel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbChannel.SelectedIndexChanged + Label2.Text = "Channel " & cmbChannel.Text + cmbcasparcgwindowtitlerecording.Text = "Screen consumer [" & cmbChannel.Text & "|PAL]" + End Sub + + Private Sub ucnewSM2_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + Dim files() As String = e.Data.GetData(DataFormats.FileDrop) + For Each path In files + lblmax.Text = HMStoF(getdurationofclip(path)) + path = Replace(Replace(path, ":", ":\"), "\", "/") + + CasparDevice.SendString("load " & cmbChannel.Text & "-" & 1 & " " & """" & path & """") + lblplaying.Text = path + TrackBarseek.Maximum = lblmax.Text + TrackBarseek.Value = 0 + Next + End If + If e.Data.GetDataPresent(DataFormats.Text) Then + Dim filename As String = e.Data.GetData(DataFormats.Text).ToString + lblmax.Text = HMStoF(getdurationofclip(filename)) + filename = Replace(Replace(filename, ":", ":\"), "\", "/") + + CasparDevice.SendString("load " & cmbChannel.Text & "-" & 1 & " " & """" & filename & """") + lblplaying.Text = filename + TrackBarseek.Maximum = lblmax.Text + TrackBarseek.Value = 0 + End If + End Sub + Private Sub ucnewSM2_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + e.Effect = DragDropEffects.Copy + End If + If e.Data.GetDataPresent(DataFormats.Text) Then + e.Effect = DragDropEffects.Copy + End If + + End Sub + Private Sub cmdCustomSpeed1_Click(sender As Object, e As EventArgs) Handles cmdCustomSpeed1.Click + On Error Resume Next + CasparDevice.SendString("play " & cmbChannel.Text & "-" & 1) + CasparDevice.SendString("call " & cmbChannel.Text & "-" & 1 & " framerate speed " & txtCustomeSpped1.Text) + End Sub + + Private Sub cmdCustomSpeed2_Click(sender As Object, e As EventArgs) Handles cmdCustomSpeed2.Click + On Error Resume Next + CasparDevice.SendString("play " & cmbChannel.Text & "-" & 1) + CasparDevice.SendString("call " & cmbChannel.Text & "-" & 1 & " framerate speed " & txtCustomeSpped2.Text) + + End Sub +End Class diff --git a/CasparMediaPlayback/ucnewTrimmer1.Designer.vb b/CasparMediaPlayback/ucnewTrimmer1.Designer.vb new file mode 100644 index 0000000..5eb6e05 --- /dev/null +++ b/CasparMediaPlayback/ucnewTrimmer1.Designer.vb @@ -0,0 +1,588 @@ + _ +Partial Class ucnewTrimmer1 + Inherits System.Windows.Forms.UserControl + + 'UserControl overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ucnewTrimmer1)) + Me.gbTrimmer = New System.Windows.Forms.GroupBox() + Me.vlc1 = New Vlc.DotNet.Forms.VlcControl() + Me.cmdclosenewTrimmer1 = New System.Windows.Forms.Button() + Me.cmdtrimmerfilePlayencoded = New System.Windows.Forms.Button() + Me.cmdtrimmerfileinfoencoded = New System.Windows.Forms.Button() + Me.cmdtrimmerfileinfo = New System.Windows.Forms.Button() + Me.lblfilenametrimmer = New System.Windows.Forms.Label() + Me.cmdopenfiletrimmer = New System.Windows.Forms.Button() + Me.gbplayertrimmer = New System.Windows.Forms.GroupBox() + Me.cmdexportmpeg2mov = New System.Windows.Forms.Button() + Me.lblexportclipinfo = New System.Windows.Forms.Label() + Me.pbexportclip = New System.Windows.Forms.ProgressBar() + Me.txtgototcvlc = New System.Windows.Forms.TextBox() + Me.cmdgototcvlc = New System.Windows.Forms.Button() + Me.nvlcspeed = New System.Windows.Forms.NumericUpDown() + Me.cmdplaylast5sectrimmer = New System.Windows.Forms.Button() + Me.cmdgotoendtrimmer = New System.Windows.Forms.Button() + Me.lbltrimmedduration = New System.Windows.Forms.Label() + Me.lbloriginalduration = New System.Windows.Forms.Label() + Me.Label232 = New System.Windows.Forms.Label() + Me.Label231 = New System.Windows.Forms.Label() + Me.cmdexportclipwithoutanychanges = New System.Windows.Forms.Button() + Me.cmdspeed1trimmer = New System.Windows.Forms.Button() + Me.lblhmsftrimmer = New System.Windows.Forms.Label() + Me.cmdforwardoneframetrimmer = New System.Windows.Forms.Button() + Me.cmdbackoneframetrimmer = New System.Windows.Forms.Button() + Me.lblcurrentframetrimmer = New System.Windows.Forms.Label() + Me.cmdclipsavetrimmer = New System.Windows.Forms.Button() + Me.cmdgotoouttrimmer = New System.Windows.Forms.Button() + Me.cmdgotointrimmer = New System.Windows.Forms.Button() + Me.cmdmarkouttrimmer = New System.Windows.Forms.Button() + Me.cmdmarkintrimmer = New System.Windows.Forms.Button() + Me.txtmarkouttrimmer = New System.Windows.Forms.TextBox() + Me.txtmarkintrimmer = New System.Windows.Forms.TextBox() + Me.lblmintrimmer = New System.Windows.Forms.Label() + Me.lblmaxtrimmer = New System.Windows.Forms.Label() + Me.cmdcuecliptrimmer = New System.Windows.Forms.Button() + Me.cmdresumetrimmer = New System.Windows.Forms.Button() + Me.cmdPlaySingleCliptrimmer = New System.Windows.Forms.Button() + Me.cmdstoptrimmer = New System.Windows.Forms.Button() + Me.TrackBarseektrimmer = New System.Windows.Forms.TrackBar() + Me.bwforexportclip = New System.ComponentModel.BackgroundWorker() + Me.tmrtrimmer = New System.Windows.Forms.Timer(Me.components) + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.gbTrimmer.SuspendLayout() + CType(Me.vlc1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.gbplayertrimmer.SuspendLayout() + CType(Me.nvlcspeed, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TrackBarseektrimmer, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'gbTrimmer + ' + Me.gbTrimmer.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.gbTrimmer.Controls.Add(Me.vlc1) + Me.gbTrimmer.Controls.Add(Me.cmdclosenewTrimmer1) + Me.gbTrimmer.Controls.Add(Me.cmdtrimmerfilePlayencoded) + Me.gbTrimmer.Controls.Add(Me.cmdtrimmerfileinfoencoded) + Me.gbTrimmer.Controls.Add(Me.cmdtrimmerfileinfo) + Me.gbTrimmer.Controls.Add(Me.lblfilenametrimmer) + Me.gbTrimmer.Controls.Add(Me.cmdopenfiletrimmer) + Me.gbTrimmer.Controls.Add(Me.gbplayertrimmer) + Me.gbTrimmer.Location = New System.Drawing.Point(2, 3) + Me.gbTrimmer.Name = "gbTrimmer" + Me.gbTrimmer.Size = New System.Drawing.Size(478, 495) + Me.gbTrimmer.TabIndex = 1166 + Me.gbTrimmer.TabStop = False + Me.gbTrimmer.Text = "Trimmer Works only with vlc version 2.2.1 32bit" + ' + 'vlc1 + ' + Me.vlc1.BackColor = System.Drawing.Color.Black + Me.vlc1.Location = New System.Drawing.Point(10, 54) + Me.vlc1.Name = "vlc1" + Me.vlc1.Size = New System.Drawing.Size(461, 264) + Me.vlc1.Spu = -1 + Me.vlc1.TabIndex = 1198 + Me.vlc1.Text = "VlcControl1" + Me.vlc1.VlcLibDirectory = CType(resources.GetObject("vlc1.VlcLibDirectory"), System.IO.DirectoryInfo) + Me.vlc1.VlcMediaplayerOptions = Nothing + ' + 'cmdclosenewTrimmer1 + ' + Me.cmdclosenewTrimmer1.Image = CType(resources.GetObject("cmdclosenewTrimmer1.Image"), System.Drawing.Image) + Me.cmdclosenewTrimmer1.Location = New System.Drawing.Point(446, 13) + Me.cmdclosenewTrimmer1.Name = "cmdclosenewTrimmer1" + Me.cmdclosenewTrimmer1.Size = New System.Drawing.Size(28, 27) + Me.cmdclosenewTrimmer1.TabIndex = 1197 + Me.cmdclosenewTrimmer1.UseVisualStyleBackColor = True + ' + 'cmdtrimmerfilePlayencoded + ' + Me.cmdtrimmerfilePlayencoded.Location = New System.Drawing.Point(307, 14) + Me.cmdtrimmerfilePlayencoded.Name = "cmdtrimmerfilePlayencoded" + Me.cmdtrimmerfilePlayencoded.Size = New System.Drawing.Size(116, 23) + Me.cmdtrimmerfilePlayencoded.TabIndex = 773 + Me.cmdtrimmerfilePlayencoded.Text = "Play Trimmed File" + Me.cmdtrimmerfilePlayencoded.UseVisualStyleBackColor = True + ' + 'cmdtrimmerfileinfoencoded + ' + Me.cmdtrimmerfileinfoencoded.Location = New System.Drawing.Point(173, 14) + Me.cmdtrimmerfileinfoencoded.Name = "cmdtrimmerfileinfoencoded" + Me.cmdtrimmerfileinfoencoded.Size = New System.Drawing.Size(130, 23) + Me.cmdtrimmerfileinfoencoded.TabIndex = 768 + Me.cmdtrimmerfileinfoencoded.Text = "Show Trimmed File Info" + Me.cmdtrimmerfileinfoencoded.UseVisualStyleBackColor = True + ' + 'cmdtrimmerfileinfo + ' + Me.cmdtrimmerfileinfo.Location = New System.Drawing.Point(79, 14) + Me.cmdtrimmerfileinfo.Name = "cmdtrimmerfileinfo" + Me.cmdtrimmerfileinfo.Size = New System.Drawing.Size(88, 23) + Me.cmdtrimmerfileinfo.TabIndex = 767 + Me.cmdtrimmerfileinfo.Text = "Show File Info" + Me.cmdtrimmerfileinfo.UseVisualStyleBackColor = True + ' + 'lblfilenametrimmer + ' + Me.lblfilenametrimmer.AutoSize = True + Me.lblfilenametrimmer.Location = New System.Drawing.Point(11, 38) + Me.lblfilenametrimmer.Name = "lblfilenametrimmer" + Me.lblfilenametrimmer.Size = New System.Drawing.Size(49, 13) + Me.lblfilenametrimmer.TabIndex = 639 + Me.lblfilenametrimmer.Text = "Filename" + ' + 'cmdopenfiletrimmer + ' + Me.cmdopenfiletrimmer.Location = New System.Drawing.Point(8, 14) + Me.cmdopenfiletrimmer.Name = "cmdopenfiletrimmer" + Me.cmdopenfiletrimmer.Size = New System.Drawing.Size(68, 23) + Me.cmdopenfiletrimmer.TabIndex = 638 + Me.cmdopenfiletrimmer.Text = "Open File" + Me.cmdopenfiletrimmer.UseVisualStyleBackColor = True + ' + 'gbplayertrimmer + ' + Me.gbplayertrimmer.Controls.Add(Me.cmdexportmpeg2mov) + Me.gbplayertrimmer.Controls.Add(Me.lblexportclipinfo) + Me.gbplayertrimmer.Controls.Add(Me.pbexportclip) + Me.gbplayertrimmer.Controls.Add(Me.txtgototcvlc) + Me.gbplayertrimmer.Controls.Add(Me.cmdgototcvlc) + Me.gbplayertrimmer.Controls.Add(Me.nvlcspeed) + Me.gbplayertrimmer.Controls.Add(Me.cmdplaylast5sectrimmer) + Me.gbplayertrimmer.Controls.Add(Me.cmdgotoendtrimmer) + Me.gbplayertrimmer.Controls.Add(Me.lbltrimmedduration) + Me.gbplayertrimmer.Controls.Add(Me.lbloriginalduration) + Me.gbplayertrimmer.Controls.Add(Me.Label232) + Me.gbplayertrimmer.Controls.Add(Me.Label231) + Me.gbplayertrimmer.Controls.Add(Me.cmdexportclipwithoutanychanges) + Me.gbplayertrimmer.Controls.Add(Me.cmdspeed1trimmer) + Me.gbplayertrimmer.Controls.Add(Me.lblhmsftrimmer) + Me.gbplayertrimmer.Controls.Add(Me.cmdforwardoneframetrimmer) + Me.gbplayertrimmer.Controls.Add(Me.cmdbackoneframetrimmer) + Me.gbplayertrimmer.Controls.Add(Me.lblcurrentframetrimmer) + Me.gbplayertrimmer.Controls.Add(Me.cmdclipsavetrimmer) + Me.gbplayertrimmer.Controls.Add(Me.cmdgotoouttrimmer) + Me.gbplayertrimmer.Controls.Add(Me.cmdgotointrimmer) + Me.gbplayertrimmer.Controls.Add(Me.cmdmarkouttrimmer) + Me.gbplayertrimmer.Controls.Add(Me.cmdmarkintrimmer) + Me.gbplayertrimmer.Controls.Add(Me.txtmarkouttrimmer) + Me.gbplayertrimmer.Controls.Add(Me.txtmarkintrimmer) + Me.gbplayertrimmer.Controls.Add(Me.lblmintrimmer) + Me.gbplayertrimmer.Controls.Add(Me.lblmaxtrimmer) + Me.gbplayertrimmer.Controls.Add(Me.cmdcuecliptrimmer) + Me.gbplayertrimmer.Controls.Add(Me.cmdresumetrimmer) + Me.gbplayertrimmer.Controls.Add(Me.cmdPlaySingleCliptrimmer) + Me.gbplayertrimmer.Controls.Add(Me.cmdstoptrimmer) + Me.gbplayertrimmer.Controls.Add(Me.TrackBarseektrimmer) + Me.gbplayertrimmer.Location = New System.Drawing.Point(7, 312) + Me.gbplayertrimmer.Name = "gbplayertrimmer" + Me.gbplayertrimmer.Size = New System.Drawing.Size(463, 177) + Me.gbplayertrimmer.TabIndex = 367 + Me.gbplayertrimmer.TabStop = False + ' + 'cmdexportmpeg2mov + ' + Me.cmdexportmpeg2mov.Location = New System.Drawing.Point(349, 153) + Me.cmdexportmpeg2mov.Name = "cmdexportmpeg2mov" + Me.cmdexportmpeg2mov.Size = New System.Drawing.Size(110, 23) + Me.cmdexportmpeg2mov.TabIndex = 737 + Me.cmdexportmpeg2mov.Text = "Export MPeg2" + Me.cmdexportmpeg2mov.UseVisualStyleBackColor = True + ' + 'lblexportclipinfo + ' + Me.lblexportclipinfo.AutoSize = True + Me.lblexportclipinfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblexportclipinfo.Location = New System.Drawing.Point(154, 113) + Me.lblexportclipinfo.Name = "lblexportclipinfo" + Me.lblexportclipinfo.Size = New System.Drawing.Size(37, 13) + Me.lblexportclipinfo.TabIndex = 736 + Me.lblexportclipinfo.Text = "Status" + Me.lblexportclipinfo.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pbexportclip + ' + Me.pbexportclip.Location = New System.Drawing.Point(147, 94) + Me.pbexportclip.Maximum = 268 + Me.pbexportclip.Name = "pbexportclip" + Me.pbexportclip.Size = New System.Drawing.Size(136, 19) + Me.pbexportclip.TabIndex = 735 + ' + 'txtgototcvlc + ' + Me.txtgototcvlc.Location = New System.Drawing.Point(73, 120) + Me.txtgototcvlc.Name = "txtgototcvlc" + Me.txtgototcvlc.Size = New System.Drawing.Size(70, 20) + Me.txtgototcvlc.TabIndex = 732 + Me.txtgototcvlc.Text = "00:02:00:00" + ' + 'cmdgototcvlc + ' + Me.cmdgototcvlc.Location = New System.Drawing.Point(6, 119) + Me.cmdgototcvlc.Name = "cmdgototcvlc" + Me.cmdgototcvlc.Size = New System.Drawing.Size(60, 23) + Me.cmdgototcvlc.TabIndex = 731 + Me.cmdgototcvlc.Text = "GoTo TC" + Me.cmdgototcvlc.UseVisualStyleBackColor = True + ' + 'nvlcspeed + ' + Me.nvlcspeed.DecimalPlaces = 1 + Me.nvlcspeed.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.nvlcspeed.Location = New System.Drawing.Point(157, 147) + Me.nvlcspeed.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) + Me.nvlcspeed.Minimum = New Decimal(New Integer() {10, 0, 0, -2147483648}) + Me.nvlcspeed.Name = "nvlcspeed" + Me.nvlcspeed.Size = New System.Drawing.Size(38, 20) + Me.nvlcspeed.TabIndex = 730 + Me.nvlcspeed.Value = New Decimal(New Integer() {1, 0, 0, 0}) + ' + 'cmdplaylast5sectrimmer + ' + Me.cmdplaylast5sectrimmer.Location = New System.Drawing.Point(285, 90) + Me.cmdplaylast5sectrimmer.Name = "cmdplaylast5sectrimmer" + Me.cmdplaylast5sectrimmer.Size = New System.Drawing.Size(96, 23) + Me.cmdplaylast5sectrimmer.TabIndex = 729 + Me.cmdplaylast5sectrimmer.Text = "Play Last 5 Sec" + Me.cmdplaylast5sectrimmer.UseVisualStyleBackColor = True + ' + 'cmdgotoendtrimmer + ' + Me.cmdgotoendtrimmer.Image = Global.caspar_media_playback.My.Resources.Resources.GoToLastFrame + Me.cmdgotoendtrimmer.Location = New System.Drawing.Point(326, 54) + Me.cmdgotoendtrimmer.Name = "cmdgotoendtrimmer" + Me.cmdgotoendtrimmer.Size = New System.Drawing.Size(37, 31) + Me.cmdgotoendtrimmer.TabIndex = 728 + Me.ToolTip1.SetToolTip(Me.cmdgotoendtrimmer, "Go To last Frame") + Me.cmdgotoendtrimmer.UseVisualStyleBackColor = True + ' + 'lbltrimmedduration + ' + Me.lbltrimmedduration.AutoSize = True + Me.lbltrimmedduration.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbltrimmedduration.ForeColor = System.Drawing.Color.Maroon + Me.lbltrimmedduration.Location = New System.Drawing.Point(336, 134) + Me.lbltrimmedduration.Name = "lbltrimmedduration" + Me.lbltrimmedduration.Size = New System.Drawing.Size(131, 16) + Me.lbltrimmedduration.TabIndex = 727 + Me.lbltrimmedduration.Text = "Trimmed Duration" + ' + 'lbloriginalduration + ' + Me.lbloriginalduration.AutoSize = True + Me.lbloriginalduration.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lbloriginalduration.ForeColor = System.Drawing.Color.Maroon + Me.lbloriginalduration.Location = New System.Drawing.Point(336, 115) + Me.lbloriginalduration.Name = "lbloriginalduration" + Me.lbloriginalduration.Size = New System.Drawing.Size(124, 16) + Me.lbloriginalduration.TabIndex = 726 + Me.lbloriginalduration.Text = "Original Duration" + ' + 'Label232 + ' + Me.Label232.AutoSize = True + Me.Label232.Location = New System.Drawing.Point(253, 133) + Me.Label232.Name = "Label232" + Me.Label232.Size = New System.Drawing.Size(90, 13) + Me.Label232.TabIndex = 725 + Me.Label232.Text = "Trimmed Duration" + ' + 'Label231 + ' + Me.Label231.AutoSize = True + Me.Label231.Location = New System.Drawing.Point(257, 115) + Me.Label231.Name = "Label231" + Me.Label231.Size = New System.Drawing.Size(85, 13) + Me.Label231.TabIndex = 724 + Me.Label231.Text = "Original Duration" + ' + 'cmdexportclipwithoutanychanges + ' + Me.cmdexportclipwithoutanychanges.Location = New System.Drawing.Point(74, 91) + Me.cmdexportclipwithoutanychanges.Name = "cmdexportclipwithoutanychanges" + Me.cmdexportclipwithoutanychanges.Size = New System.Drawing.Size(70, 23) + Me.cmdexportclipwithoutanychanges.TabIndex = 723 + Me.cmdexportclipwithoutanychanges.Text = "Export Clip" + Me.cmdexportclipwithoutanychanges.UseVisualStyleBackColor = True + ' + 'cmdspeed1trimmer + ' + Me.cmdspeed1trimmer.Location = New System.Drawing.Point(96, 146) + Me.cmdspeed1trimmer.Name = "cmdspeed1trimmer" + Me.cmdspeed1trimmer.Size = New System.Drawing.Size(57, 23) + Me.cmdspeed1trimmer.TabIndex = 638 + Me.cmdspeed1trimmer.Text = "Speed 1" + Me.cmdspeed1trimmer.UseVisualStyleBackColor = True + ' + 'lblhmsftrimmer + ' + Me.lblhmsftrimmer.AutoSize = True + Me.lblhmsftrimmer.BackColor = System.Drawing.SystemColors.ControlText + Me.lblhmsftrimmer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblhmsftrimmer.ForeColor = System.Drawing.SystemColors.Control + Me.lblhmsftrimmer.Location = New System.Drawing.Point(190, 9) + Me.lblhmsftrimmer.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblhmsftrimmer.Name = "lblhmsftrimmer" + Me.lblhmsftrimmer.Size = New System.Drawing.Size(67, 13) + Me.lblhmsftrimmer.TabIndex = 637 + Me.lblhmsftrimmer.Text = "Time Code" + ' + 'cmdforwardoneframetrimmer + ' + Me.cmdforwardoneframetrimmer.Image = CType(resources.GetObject("cmdforwardoneframetrimmer.Image"), System.Drawing.Image) + Me.cmdforwardoneframetrimmer.Location = New System.Drawing.Point(204, 63) + Me.cmdforwardoneframetrimmer.Name = "cmdforwardoneframetrimmer" + Me.cmdforwardoneframetrimmer.Size = New System.Drawing.Size(35, 23) + Me.cmdforwardoneframetrimmer.TabIndex = 354 + Me.ToolTip1.SetToolTip(Me.cmdforwardoneframetrimmer, "1 Frame Forward") + Me.cmdforwardoneframetrimmer.UseVisualStyleBackColor = True + ' + 'cmdbackoneframetrimmer + ' + Me.cmdbackoneframetrimmer.Image = CType(resources.GetObject("cmdbackoneframetrimmer.Image"), System.Drawing.Image) + Me.cmdbackoneframetrimmer.Location = New System.Drawing.Point(142, 63) + Me.cmdbackoneframetrimmer.Name = "cmdbackoneframetrimmer" + Me.cmdbackoneframetrimmer.Size = New System.Drawing.Size(31, 23) + Me.cmdbackoneframetrimmer.TabIndex = 353 + Me.ToolTip1.SetToolTip(Me.cmdbackoneframetrimmer, "1 Frame Back") + Me.cmdbackoneframetrimmer.UseVisualStyleBackColor = True + ' + 'lblcurrentframetrimmer + ' + Me.lblcurrentframetrimmer.AutoSize = True + Me.lblcurrentframetrimmer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblcurrentframetrimmer.Location = New System.Drawing.Point(190, 49) + Me.lblcurrentframetrimmer.Name = "lblcurrentframetrimmer" + Me.lblcurrentframetrimmer.Size = New System.Drawing.Size(76, 13) + Me.lblcurrentframetrimmer.TabIndex = 352 + Me.lblcurrentframetrimmer.Text = "lblcurrentframe" + Me.lblcurrentframetrimmer.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'cmdclipsavetrimmer + ' + Me.cmdclipsavetrimmer.Location = New System.Drawing.Point(5, 146) + Me.cmdclipsavetrimmer.Name = "cmdclipsavetrimmer" + Me.cmdclipsavetrimmer.Size = New System.Drawing.Size(84, 23) + Me.cmdclipsavetrimmer.TabIndex = 350 + Me.cmdclipsavetrimmer.Text = "Save Sub Clip" + Me.cmdclipsavetrimmer.UseVisualStyleBackColor = True + ' + 'cmdgotoouttrimmer + ' + Me.cmdgotoouttrimmer.Location = New System.Drawing.Point(384, 90) + Me.cmdgotoouttrimmer.Name = "cmdgotoouttrimmer" + Me.cmdgotoouttrimmer.Size = New System.Drawing.Size(74, 23) + Me.cmdgotoouttrimmer.TabIndex = 349 + Me.cmdgotoouttrimmer.Text = "GOTO OUT" + Me.cmdgotoouttrimmer.UseVisualStyleBackColor = True + ' + 'cmdgotointrimmer + ' + Me.cmdgotointrimmer.Location = New System.Drawing.Point(6, 90) + Me.cmdgotointrimmer.Name = "cmdgotointrimmer" + Me.cmdgotointrimmer.Size = New System.Drawing.Size(60, 23) + Me.cmdgotointrimmer.TabIndex = 348 + Me.cmdgotointrimmer.Text = "GOTO IN" + Me.cmdgotointrimmer.UseVisualStyleBackColor = True + ' + 'cmdmarkouttrimmer + ' + Me.cmdmarkouttrimmer.Location = New System.Drawing.Point(413, 65) + Me.cmdmarkouttrimmer.Name = "cmdmarkouttrimmer" + Me.cmdmarkouttrimmer.Size = New System.Drawing.Size(47, 23) + Me.cmdmarkouttrimmer.TabIndex = 347 + Me.cmdmarkouttrimmer.Text = "Out" + Me.cmdmarkouttrimmer.UseVisualStyleBackColor = True + ' + 'cmdmarkintrimmer + ' + Me.cmdmarkintrimmer.Location = New System.Drawing.Point(6, 65) + Me.cmdmarkintrimmer.Name = "cmdmarkintrimmer" + Me.cmdmarkintrimmer.Size = New System.Drawing.Size(37, 23) + Me.cmdmarkintrimmer.TabIndex = 346 + Me.cmdmarkintrimmer.Text = "IN" + Me.cmdmarkintrimmer.UseVisualStyleBackColor = True + ' + 'txtmarkouttrimmer + ' + Me.txtmarkouttrimmer.Location = New System.Drawing.Point(369, 65) + Me.txtmarkouttrimmer.Name = "txtmarkouttrimmer" + Me.txtmarkouttrimmer.Size = New System.Drawing.Size(41, 20) + Me.txtmarkouttrimmer.TabIndex = 345 + Me.txtmarkouttrimmer.Text = "200" + ' + 'txtmarkintrimmer + ' + Me.txtmarkintrimmer.Location = New System.Drawing.Point(53, 65) + Me.txtmarkintrimmer.Name = "txtmarkintrimmer" + Me.txtmarkintrimmer.Size = New System.Drawing.Size(47, 20) + Me.txtmarkintrimmer.TabIndex = 344 + Me.txtmarkintrimmer.Text = "0" + ' + 'lblmintrimmer + ' + Me.lblmintrimmer.AutoSize = True + Me.lblmintrimmer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblmintrimmer.Location = New System.Drawing.Point(16, 49) + Me.lblmintrimmer.Name = "lblmintrimmer" + Me.lblmintrimmer.Size = New System.Drawing.Size(33, 13) + Me.lblmintrimmer.TabIndex = 335 + Me.lblmintrimmer.Text = "lblmin" + Me.lblmintrimmer.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'lblmaxtrimmer + ' + Me.lblmaxtrimmer.AutoSize = True + Me.lblmaxtrimmer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblmaxtrimmer.Location = New System.Drawing.Point(410, 49) + Me.lblmaxtrimmer.Name = "lblmaxtrimmer" + Me.lblmaxtrimmer.Size = New System.Drawing.Size(36, 13) + Me.lblmaxtrimmer.TabIndex = 0 + Me.lblmaxtrimmer.Text = "lblmax" + Me.lblmaxtrimmer.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'cmdcuecliptrimmer + ' + Me.cmdcuecliptrimmer.Image = Global.caspar_media_playback.My.Resources.Resources.GotToFirstFrame + Me.cmdcuecliptrimmer.Location = New System.Drawing.Point(102, 54) + Me.cmdcuecliptrimmer.Name = "cmdcuecliptrimmer" + Me.cmdcuecliptrimmer.Size = New System.Drawing.Size(38, 32) + Me.cmdcuecliptrimmer.TabIndex = 168 + Me.ToolTip1.SetToolTip(Me.cmdcuecliptrimmer, "Go To 1st Frame") + Me.cmdcuecliptrimmer.UseVisualStyleBackColor = True + ' + 'cmdresumetrimmer + ' + Me.cmdresumetrimmer.Image = CType(resources.GetObject("cmdresumetrimmer.Image"), System.Drawing.Image) + Me.cmdresumetrimmer.Location = New System.Drawing.Point(240, 63) + Me.cmdresumetrimmer.Name = "cmdresumetrimmer" + Me.cmdresumetrimmer.Size = New System.Drawing.Size(48, 23) + Me.cmdresumetrimmer.TabIndex = 160 + Me.ToolTip1.SetToolTip(Me.cmdresumetrimmer, "Pause / Resume") + Me.cmdresumetrimmer.UseVisualStyleBackColor = True + ' + 'cmdPlaySingleCliptrimmer + ' + Me.cmdPlaySingleCliptrimmer.Image = CType(resources.GetObject("cmdPlaySingleCliptrimmer.Image"), System.Drawing.Image) + Me.cmdPlaySingleCliptrimmer.Location = New System.Drawing.Point(177, 63) + Me.cmdPlaySingleCliptrimmer.Name = "cmdPlaySingleCliptrimmer" + Me.cmdPlaySingleCliptrimmer.Size = New System.Drawing.Size(26, 23) + Me.cmdPlaySingleCliptrimmer.TabIndex = 157 + Me.cmdPlaySingleCliptrimmer.Text = "0" + Me.ToolTip1.SetToolTip(Me.cmdPlaySingleCliptrimmer, "Play") + Me.cmdPlaySingleCliptrimmer.UseVisualStyleBackColor = True + ' + 'cmdstoptrimmer + ' + Me.cmdstoptrimmer.Image = CType(resources.GetObject("cmdstoptrimmer.Image"), System.Drawing.Image) + Me.cmdstoptrimmer.Location = New System.Drawing.Point(288, 63) + Me.cmdstoptrimmer.Name = "cmdstoptrimmer" + Me.cmdstoptrimmer.Size = New System.Drawing.Size(37, 23) + Me.cmdstoptrimmer.TabIndex = 79 + Me.ToolTip1.SetToolTip(Me.cmdstoptrimmer, "Stop") + Me.cmdstoptrimmer.UseVisualStyleBackColor = True + ' + 'TrackBarseektrimmer + ' + Me.TrackBarseektrimmer.AutoSize = False + Me.TrackBarseektrimmer.BackColor = System.Drawing.SystemColors.Control + Me.TrackBarseektrimmer.LargeChange = 2 + Me.TrackBarseektrimmer.Location = New System.Drawing.Point(6, 17) + Me.TrackBarseektrimmer.Maximum = 999999999 + Me.TrackBarseektrimmer.Name = "TrackBarseektrimmer" + Me.TrackBarseektrimmer.Size = New System.Drawing.Size(457, 31) + Me.TrackBarseektrimmer.TabIndex = 329 + Me.TrackBarseektrimmer.TickStyle = System.Windows.Forms.TickStyle.TopLeft + ' + 'bwforexportclip + ' + Me.bwforexportclip.WorkerSupportsCancellation = True + ' + 'tmrtrimmer + ' + Me.tmrtrimmer.Interval = 10 + ' + 'ucnewTrimmer1 + ' + Me.AllowDrop = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ControlDarkDark + Me.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Controls.Add(Me.gbTrimmer) + Me.Name = "ucnewTrimmer1" + Me.Size = New System.Drawing.Size(484, 503) + Me.gbTrimmer.ResumeLayout(False) + Me.gbTrimmer.PerformLayout() + CType(Me.vlc1, System.ComponentModel.ISupportInitialize).EndInit() + Me.gbplayertrimmer.ResumeLayout(False) + Me.gbplayertrimmer.PerformLayout() + CType(Me.nvlcspeed, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TrackBarseektrimmer, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents gbTrimmer As System.Windows.Forms.GroupBox + Friend WithEvents cmdtrimmerfileinfo As System.Windows.Forms.Button + Friend WithEvents lblfilenametrimmer As System.Windows.Forms.Label + Friend WithEvents cmdopenfiletrimmer As System.Windows.Forms.Button + Friend WithEvents gbplayertrimmer As System.Windows.Forms.GroupBox + Friend WithEvents lblexportclipinfo As System.Windows.Forms.Label + Friend WithEvents pbexportclip As System.Windows.Forms.ProgressBar + Friend WithEvents txtgototcvlc As System.Windows.Forms.TextBox + Friend WithEvents cmdgototcvlc As System.Windows.Forms.Button + Friend WithEvents nvlcspeed As System.Windows.Forms.NumericUpDown + Friend WithEvents cmdplaylast5sectrimmer As System.Windows.Forms.Button + Friend WithEvents cmdgotoendtrimmer As System.Windows.Forms.Button + Friend WithEvents lbltrimmedduration As System.Windows.Forms.Label + Friend WithEvents lbloriginalduration As System.Windows.Forms.Label + Friend WithEvents Label232 As System.Windows.Forms.Label + Friend WithEvents Label231 As System.Windows.Forms.Label + Friend WithEvents cmdexportclipwithoutanychanges As System.Windows.Forms.Button + Friend WithEvents cmdspeed1trimmer As System.Windows.Forms.Button + Friend WithEvents lblhmsftrimmer As System.Windows.Forms.Label + Friend WithEvents cmdforwardoneframetrimmer As System.Windows.Forms.Button + Friend WithEvents cmdbackoneframetrimmer As System.Windows.Forms.Button + Friend WithEvents lblcurrentframetrimmer As System.Windows.Forms.Label + Friend WithEvents cmdclipsavetrimmer As System.Windows.Forms.Button + Friend WithEvents cmdgotoouttrimmer As System.Windows.Forms.Button + Friend WithEvents cmdgotointrimmer As System.Windows.Forms.Button + Friend WithEvents cmdmarkouttrimmer As System.Windows.Forms.Button + Friend WithEvents cmdmarkintrimmer As System.Windows.Forms.Button + Friend WithEvents txtmarkouttrimmer As System.Windows.Forms.TextBox + Friend WithEvents txtmarkintrimmer As System.Windows.Forms.TextBox + Friend WithEvents lblmintrimmer As System.Windows.Forms.Label + Friend WithEvents lblmaxtrimmer As System.Windows.Forms.Label + Friend WithEvents cmdcuecliptrimmer As System.Windows.Forms.Button + Friend WithEvents cmdresumetrimmer As System.Windows.Forms.Button + Friend WithEvents cmdPlaySingleCliptrimmer As System.Windows.Forms.Button + Friend WithEvents cmdstoptrimmer As System.Windows.Forms.Button + Friend WithEvents TrackBarseektrimmer As System.Windows.Forms.TrackBar + Friend WithEvents bwforexportclip As System.ComponentModel.BackgroundWorker + Friend WithEvents tmrtrimmer As System.Windows.Forms.Timer + Friend WithEvents cmdtrimmerfilePlayencoded As System.Windows.Forms.Button + Friend WithEvents cmdtrimmerfileinfoencoded As System.Windows.Forms.Button + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents cmdclosenewTrimmer1 As Button + Friend WithEvents cmdexportmpeg2mov As Button + Friend WithEvents vlc1 As Vlc.DotNet.Forms.VlcControl +End Class diff --git a/CasparMediaPlayback/ucnewTrimmer1.resx b/CasparMediaPlayback/ucnewTrimmer1.resx new file mode 100644 index 0000000..e806122 --- /dev/null +++ b/CasparMediaPlayback/ucnewTrimmer1.resx @@ -0,0 +1,216 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABdTeXN0ZW0uSU8uRGlyZWN0b3J5SW5mbwIAAAAMT3JpZ2luYWxQ + YXRoCEZ1bGxQYXRoAQEGAgAAADBDOlxjYXNwYXJjZ1xteWRhdGFcdmxjXHZsYy0yLjIuMS13aW4zMlx2 + bGMtMi4yLjEJAgAAAAs= + + + + + + /9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAkGBggGBQkIBwgKCQkKDRYODQwMDRoTFBAWHxwhIB8cHh4j + JzIqIyUvJR4eKzssLzM1ODg4ISo9QTw2QTI3ODX/2wBDAQkKCg0LDRkODhk1JB4kNTU1NTU1NTU1NTU1 + NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTU1NTX/wAARCAASABIDASIAAhEBAxEB/8QA + HwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIh + MUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVW + V1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXG + x8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQF + BgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAV + YnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE + hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq + 8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDupNTmvNduLKKZhNGW2oJCoIHp71Dc6hc2dgt3cvPCjvsUSSkM + fw9K5HVL+y074kXlzqSXDRQyGREiOCzgArn2qr4m8WweJ7GGaeGSDUYnK4RsxGP8e9cbqb66n0kcJJ8r + jH3bK7sux6fFqdyYUIkyCowTRVCzDfYoMo3+rXt7UVXMzh+rwLGu20EmolnhjZiOpUE1Ris7fzlPkRZy + P4BRRUP4jqofwV6HYIi7F+UdPSiiiug8F7n/2Q== + + + + 277, 9 + + + + iVBORw0KGgoAAAANSUhEUgAAABkAAAARCAIAAACn2JBZAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAbpJREFUOE+Fk7/LQVEYx68dRRaDwd+gDDaSKCmbRVksJtxikKJQBouJQYl/RBnE + oCyUlN1C5Ef59X7f93ne073uxWd6zvf53u859/Qc6ang8Xhw9QYYPng4a7lcHg4HqrVuKPP5/HQ6UU2i + Fs4qlUo+n288HtNS+0E6nQ4Gg9PplJa6iZxVqVQkSTKbzdVqlfZ/IZPJwGCz2RqNxvl8ZlUNZ9VqNVgJ + v98/Go1Ix/50BFmWuS1JoVBIHPB+v1MBdLIADlgsFvf7PXWBMgtYrVb8yvF45PYf+lmEx+MZDAZkyGaz + JBoMBiqA1+sVfwA+ZQGTyVQoFLbbbT6fZ0mNxWIpl8u73e57FuF2uyORCC8UiDO6XK7FYvE9y2g0YmIS + iQSvNeByYdhsNl+yAoHAcDiEIZfLsaQmHA5PJhMKeZuFUarX65fLhQzi7gV2u73ZbF6vV3RpbvSzotHo + bDajFqGcCVxTLBbDq+LeP69ZDoej1WrdbjeItBshspxOZ6/XY1Xt4SxMJnzxeHy1WpHyQiqVgiGZTK7X + a5Y0cFa32+10OlT/vhrN02232/1+n2pdA+As3Z7g3ccqns8fy5Eabj5nOr0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABkAAAARCAIAAACn2JBZAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAb1JREFUOE99k73LgVEYxo8dRRaDwd+gDDaSKCmbRVksJh/FIEWhDBYTgxL/iDKI + QVkoKbuFyEfh9d6v+3ac8zjP+xt0znVfrufqPOdhTx1+XtBGB43hvyz4PZ/Pi8XiO5Qrx+NxtVrhWpHF + fbPZLBgMptNp3HK4YTKZ+Hy+crmMW3Wvy+XSbDZtNhtjLJPJkCoAfWu1mtlsBkO1WkXxk/V4PHABdUKh + EJiQXC4HInThdcbjsd/vpzFj9XoddanX6XSCh1itVnK9wCzkcDiUSiWsw1FkwdO8Xi/NGTMYDLjIZrNo + GA6HHo8HRREpa7/fVyoVi8VCQ5lCobDb7YrFoslkIknmk7VcLl0uF6q8i0gkEnG73bRR8cnabrfwUjVH + IJJIJMBgNBpp/4X2vKbTaTgcpqFMPp8Hw2g0CgQCJMlIWfiyb7dbq9Wy2+1kecPP/nq9NhoNvHQi2l4c + +GJisZh4cOKdAObzeTQapdkLRRa/ikC/33c6nWgVs9Bzv9/b7bbD4UCDbi/OZrNJJpNgTaVSJMms1+t4 + PA4GuL2oKLL+PpZ3x8Fg0Ol0cM0RDd1ut9fr4Vq3F0f8pxKaPp+//Qgabux5RP0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACIAAAARCAYAAAC4qX7BAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr/AAAK/wE0YpqCAAABl0lE + QVRIS53QjYkCUQwE4AVBEARlQRAEURAEQViwgSvhSrgSLCGlXAlXgiVYwpWwHeRmHpvFDOvfCR+EJCN5 + W7l7cTqdXBiwT6zTPHIKsys0+FXH47E4HA7Vfr+vdrtdsd1uq/V6Xa1Wqz7XFwi6MGCfWKd55FQ3b+Hr + X4cg4MIgXsU6zSOnZO8b5m8dgmUXBuU1XZ3mkVO6B7/QvHwIFl0YlJd0dZpHTunejfNLh2DBhUG8gnWa + R07pnviB+cNDMHRhUK7v6jSPnNK9AS183D0EAxcG5fKuTvPIKd17wAYPQdNFWeywTvPIKd174hK5/g+W + y6ULA/aJdZpHTuneAy18Rq7/g8Vi4cKAfWKd5pFTunfHBTY4pM/1RV3XLgzYJ9ZpHjmle6KFM44oDxw8 + ZDabuTBgn1ineeSU7t24wAaHxFcePmQ6nbowYJ9Yp3nklO51zjiiPOrpIZPJxIUB+8Q6zSOnZO8KDQ6J + L/v8kPF47MKAfWKd5pFTNzv9Q946ZDQauTBgn1ineeQUZldocEh8zRcO8eoPf7l/sEceTHUAAAAASUVO + RK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr2AAAK9gHCr3ADAAAA0UlE + QVQ4T5XU0QmDMBSF4YIgCIJFEARBKgiCIARcoCN0hI7QETpKR+gIjuAIHSEbnF6hlHskmvjwPfzRRILR + E4C/cRxnYfRYCApjDIQVdz3uQzEMA5SXOOvrWyj6vsfKR3i3R9F1HTY89H1rFG3bYsdbOLdH0TQNPKy4 + 6jkLirquEeip59EiVVXhgMm5SFmWCGTFzblIURQIMImLnkeL5HmOHVY4XzVFlmXYMAl6ukaRpikcdg/a + giJJEiizCPqiKeI4xg+dAx+KKIpmcfB/gtMXXxuG1ZI+Sc0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr/AAAK/wE0YpqCAAAAXElE + QVQ4T6XDAQYAIQBE0SGWiIiIiFgiIvb+Z/t7iHk8fd+HW/de3Drn4NbeG7fWWrj1vi9uzTlxa4yBW713 + 3Gqt4VatFbdKKbiVc8atlBJuxRhx63ke3Aoh4A38dSp7YNcNmvAAAAAASUVORK5CYII= + + + + 19, 6 + + + 146, 3 + + + 81 + + \ No newline at end of file diff --git a/CasparMediaPlayback/ucnewTrimmer1.vb b/CasparMediaPlayback/ucnewTrimmer1.vb new file mode 100644 index 0000000..944fbee --- /dev/null +++ b/CasparMediaPlayback/ucnewTrimmer1.vb @@ -0,0 +1,345 @@ +Imports System.IO +Imports System.ComponentModel + +Public Class ucnewTrimmer1 + Public ofdtrimmer As New OpenFileDialog + Public osdcutfilename As New SaveFileDialog + Dim intCut As Integer = 1 + Dim iclipsavetrimer As Integer = 1 + + Dim isplaying As Boolean = False + Private Sub cmdgototcvlc_Click(sender As Object, e As EventArgs) Handles cmdgototcvlc.Click + On Error Resume Next + vlc1.VlcMediaPlayer.Time = HMSFtoF(txtgototcvlc.Text) * 1000 / (fps) + 'vlc1.VlcMediaPlayer.Pause() + + End Sub + + Private Sub cmdplaylast5sectrimmer_Click(sender As Object, e As EventArgs) Handles cmdplaylast5sectrimmer.Click + If System.IO.Path.GetExtension(lblfilenametrimmer.Text) = ".txt" Then + vlc1.VlcMediaPlayer.Time = (txtmarkouttrimmer.Text - fps * 5) * 1000 / (fps) + vlc1.VlcMediaPlayer.Play() + Threading.Thread.Sleep(5000) + vlc1.VlcMediaPlayer.Time = (txtmarkouttrimmer.Text) * 1000 / (fps) + Else + vlc1.VlcMediaPlayer.Time = (lblmaxtrimmer.Text - fps * 5) * 1000 / (fps) + vlc1.VlcMediaPlayer.Play() + End If + 'vlc1.VlcMediaPlayer.Pause() + End Sub + + Private Sub cmdmarkintrimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmarkintrimmer.Click + On Error Resume Next + txtmarkintrimmer.Text = lblcurrentframetrimmer.Text 'TrackBarseek.Value + lbltrimmedduration.Text = FToHMSF(txtmarkouttrimmer.Text - txtmarkintrimmer.Text) + + End Sub + + Private Sub cmdgotointrimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdgotointrimmer.Click + On Error Resume Next + vlc1.VlcMediaPlayer.Time = (txtmarkintrimmer.Text) * 1000 / (fps) + 'vlc1.VlcMediaPlayer.Pause() + End Sub + + Private Sub cmdcuecliptrimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcuecliptrimmer.Click + + On Error Resume Next + vlc1.VlcMediaPlayer.Time = 2 + End Sub + + Private Sub cmdbackoneframetrimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbackoneframetrimmer.Click + + On Error Resume Next + vlc1.VlcMediaPlayer.Time = vlc1.VlcMediaPlayer.Time - (1000 / fps) + End Sub + Private Sub cmdPlaySingleCliptrimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPlaySingleCliptrimmer.Click + On Error Resume Next + vlc1.VlcMediaPlayer.Play() + tmrtrimmer.Enabled = True + End Sub + Private Sub cmdforwardoneframetrimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdforwardoneframetrimmer.Click + + On Error Resume Next + vlc1.VlcMediaPlayer.Time = vlc1.VlcMediaPlayer.Time + (1000 / fps) + End Sub + + Private Sub cmdresumetrimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdresumetrimmer.Click + + On Error Resume Next + vlc1.VlcMediaPlayer.Pause() + End Sub + + Private Sub cmdstoptrimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdstoptrimmer.Click + + On Error Resume Next + vlc1.VlcMediaPlayer.Stop() + tmrtrimmer.Enabled = False + End Sub + + Private Sub TrackBarseektrimmer_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBarseektrimmer.Scroll + + On Error Resume Next + vlc1.VlcMediaPlayer.Time = TrackBarseektrimmer.Value * (1000 / fps) + End Sub + Private Sub nvlcspeed_ValueChanged(sender As Object, e As EventArgs) Handles nvlcspeed.ValueChanged + On Error Resume Next + vlcsped() + End Sub + Sub vlcsped() + On Error Resume Next + vlc1.VlcMediaPlayer.Rate = nvlcspeed.Value + + End Sub + Dim masterfilenametrimmer As String + Dim intrimmer As Integer + Dim outtrimmer As Integer + Sub readsubcliptrimmer(textfilename As String) + On Error Resume Next + Using sr As StreamReader = New StreamReader(textfilename) + Dim str As Array = Split(sr.ReadLine, Chr(2)) + masterfilenametrimmer = str(0) + intrimmer = str(1) + outtrimmer = str(2) + End Using + End Sub + Private Sub cmdopenfiletrimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopenfiletrimmer.Click + On Error Resume Next + ofdtrimmer.InitialDirectory = Replace(mediafullpath, "/", "\") '"c:\casparcg\_media\" + ofdtrimmer.DereferenceLinks = False + If ofdtrimmer.ShowDialog = DialogResult.OK Then + openfileintrimmer(ofdtrimmer.FileName) + iclipsavetrimer = 1 + End If + + End Sub + Sub openfileintrimmer(trimmerfilename As String) + On Error Resume Next + + If vlc1.VlcMediaPlayer.IsPlaying = True Then vlc1.VlcMediaPlayer.Stop() + intCut = 1 + + If System.IO.Path.GetExtension(trimmerfilename) = ".txt" Then + readsubcliptrimmer(trimmerfilename) + 'vlc1.playlist.add("file:///" & Replace(mediafullpath & masterfilenametrimmer, "/", "\")) + vlc1.VlcMediaPlayer.SetMedia(New Uri(Replace(mediafullpath & masterfilenametrimmer, "/", "\"))) + ofdtrimmer.FileName = Replace(mediafullpath & masterfilenametrimmer, "/", "\") + Else + 'vlc1.playlist.add("file:///" & trimmerfilename) + vlc1.VlcMediaPlayer.SetMedia(New Uri(trimmerfilename)) + ofdtrimmer.FileName = trimmerfilename + End If + + + lblfilenametrimmer.Text = trimmerfilename + + vlc1.VlcMediaPlayer.Play() + isplaying = True + + Threading.Thread.Sleep(1000) + 'fps = VLC1.input.fps + tmrtrimmer.Enabled = True + + TrackBarseektrimmer.Maximum = (vlc1.VlcMediaPlayer.Length / 1000) * fps + + lblmintrimmer.Text = TrackBarseektrimmer.Minimum + lblmaxtrimmer.Text = TrackBarseektrimmer.Maximum + + If System.IO.Path.GetExtension(trimmerfilename) = ".txt" Then + txtmarkintrimmer.Text = intrimmer + txtmarkouttrimmer.Text = outtrimmer + lbloriginalduration.Text = FToHMSF(outtrimmer - intrimmer) + lbltrimmedduration.Text = FToHMSF(outtrimmer - intrimmer) + Else + txtmarkintrimmer.Text = 0 + txtmarkouttrimmer.Text = TrackBarseektrimmer.Maximum + lbloriginalduration.Text = FToHMSF(TrackBarseektrimmer.Maximum) + lbltrimmedduration.Text = FToHMSF(TrackBarseektrimmer.Maximum) + End If + + vlcplaylistpauseandgoto1stframe() + End Sub + Sub vlcplaylistpauseandgoto1stframe() + On Error Resume Next + + Threading.Thread.Sleep(100) + vlc1.VlcMediaPlayer.Pause() + vlc1.VlcMediaPlayer.Time = 2 + End Sub + + + Private Sub cmdclipsavetrimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdclipsavetrimmer.Click + On Error Resume Next + Dim osdtrimmer As New SaveFileDialog + osdtrimmer.InitialDirectory = Replace(mediafullpath, "/", "\") '"c:\casparcg\_media\" + + osdtrimmer.FileName = System.IO.Path.GetFileNameWithoutExtension(ofdtrimmer.FileName) & "_Cut" & iclipsavetrimer + osdtrimmer.DereferenceLinks = False + osdtrimmer.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" + If System.IO.Path.GetExtension(ofdtrimmer.FileName) = ".txt" Then + readsubcliptrimmer(ofdtrimmer.FileName) + If (osdtrimmer.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sw As StreamWriter = New StreamWriter(osdtrimmer.FileName) + sw.WriteLine(masterfilenametrimmer & Chr(2) & txtmarkintrimmer.Text & Chr(2) & txtmarkouttrimmer.Text) + sw.Close() + End Using + End If + Else + + If (osdtrimmer.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Using sw As StreamWriter = New StreamWriter(osdtrimmer.FileName) + sw.WriteLine(Replace(Mid(ofdtrimmer.FileName, Len(mediafullpath) + 1), "\", "/") & Chr(2) & txtmarkintrimmer.Text & Chr(2) & txtmarkouttrimmer.Text) + sw.Close() + End Using + iclipsavetrimer = iclipsavetrimer + 1 + End If + End If + End Sub + + Private Sub cmdspeed1trimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdspeed1trimmer.Click + On Error Resume Next + nvlcspeed.Value = 1 + + End Sub + + Private Sub cmdmarkouttrimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdmarkouttrimmer.Click + On Error Resume Next + txtmarkouttrimmer.Text = lblcurrentframetrimmer.Text 'TrackBarseek.Value + lbltrimmedduration.Text = FToHMSF(txtmarkouttrimmer.Text - txtmarkintrimmer.Text) + End Sub + + Private Sub cmdgotoouttrimmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdgotoouttrimmer.Click + On Error Resume Next + vlc1.VlcMediaPlayer.Time = (txtmarkouttrimmer.Text) * 1000 / (fps) + 'vlc1.VlcMediaPlayer.Pause() + End Sub + + Private Sub cmdtrimmerfileinfo_Click(sender As Object, e As EventArgs) Handles cmdtrimmerfileinfo.Click + On Error Resume Next + showfileinformation(ofdtrimmer.FileName) + End Sub + + Private Sub cmdtrimmerfileinfoencoded_Click(sender As Object, e As EventArgs) Handles cmdtrimmerfileinfoencoded.Click + On Error Resume Next + showfileinformation(osdcutfilename.FileName) + End Sub + + Private Sub cmdtrimmerfilePlayencoded_Click(sender As Object, e As EventArgs) Handles cmdtrimmerfilePlayencoded.Click + On Error Resume Next + playinvlc(osdcutfilename.FileName) + End Sub + Private Sub cmdexportclipwithoutanychanges_Click(sender As Object, e As EventArgs) Handles cmdexportclipwithoutanychanges.Click + + On Error Resume Next + osdcutfilename.InitialDirectory = Replace(mediafullpath, "/", "\") '"c:\casparcg\_media\" + osdcutfilename.FileName = System.IO.Path.GetFileNameWithoutExtension(ofdtrimmer.FileName) & "_Trimmed" + osdcutfilename.FilterIndex = 1 + osdcutfilename.DereferenceLinks = False + osdcutfilename.Filter = "original wrapper (*" & System.IO.Path.GetExtension(ofdtrimmer.FileName) & ")|*" & System.IO.Path.GetExtension(ofdtrimmer.FileName) & "|mp4 files (*.mp4)|*.mp4|avi files (*.avi)|*.avi|All files (*.*)|*.*" + If (osdcutfilename.ShowDialog() = Windows.Forms.DialogResult.OK) Then + cmdexportclipwithoutanychanges.Enabled = False + bwforexportclip.RunWorkerAsync() + End If + + End Sub + Sub exportclipwithoutanychanges() + + Control.CheckForIllegalCrossThreadCalls = False + Dim proc As New Process + Dim startinfo As New System.Diagnostics.ProcessStartInfo + Dim sr As StreamReader + Dim strinout = " -ss " & FToHMSms(txtmarkintrimmer.Text) & " -t " & FToHMSms(txtmarkouttrimmer.Text - txtmarkintrimmer.Text) + startinfo.FileName = "c:/casparcg/mydata/ffmpeg/ffmpeg.exe" + + Dim cmd As String + If (System.IO.Path.GetExtension(osdcutfilename.FileName).ToUpper = ".MXF") And (System.IO.Path.GetExtension(ofdtrimmer.FileName).ToUpper = ".MXF") Then + Process.Start("CMD", "/K " & "c:/casparcg/mydata/bmx-win32-exe-snapshot-20170814/bmxtranswrap.exe -p -o " & """" & osdcutfilename.FileName & """" & " --start " & Val(txtmarkintrimmer.Text) & " --dur " & Val(txtmarkouttrimmer.Text - txtmarkintrimmer.Text) & " " & """" & ofdtrimmer.FileName & """") + 'cmd = "-y " & strinout & " -i " & """" & ofdtrimmer.FileName & """" & " -c copy " & """" & osdcutfilename.FileName & """" + Exit Sub + Else + cmd = "-y " & strinout & " -i " & """" & ofdtrimmer.FileName & """" & " -c copy -map 0:0? -map 0:1? -map 0:2? -map 0:3? -map 0:4? -map 0:5? -map 0:6? -map 0:7? -map 0:8? " & """" & osdcutfilename.FileName & """" + End If + + Dim ffmpegOutput As String + startinfo.Arguments = cmd + startinfo.UseShellExecute = False + startinfo.WindowStyle = ProcessWindowStyle.Hidden + startinfo.RedirectStandardError = True + startinfo.RedirectStandardOutput = True + startinfo.CreateNoWindow = True + proc.StartInfo = startinfo + proc.Start() ' start the process + sr = proc.StandardError 'standard error is used by ffmpeg + + pbexportclip.Maximum = txtmarkouttrimmer.Text - txtmarkintrimmer.Text + lblexportclipinfo.Text = "" + Do + ffmpegOutput = sr.ReadLine + pbexportclip.Value = Val(Mid(Split(ffmpegOutput, "fps")(0), 7)) + lblexportclipinfo.Text = pbexportclip.Value & " Frames" + Loop Until proc.HasExited And ffmpegOutput = Nothing Or ffmpegOutput = "" + + End Sub + Private Sub cmdgotoendtrimmer_Click(sender As Object, e As EventArgs) Handles cmdgotoendtrimmer.Click + On Error Resume Next + vlc1.VlcMediaPlayer.Time = (Val(lblmaxtrimmer.Text) - 2) * 1000 / (fps) + End Sub + + Private Sub tmrtrimmer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrtrimmer.Tick + On Error Resume Next + lblcurrentframetrimmer.Text = Int((vlc1.VlcMediaPlayer.Time / 1000) * fps) + TrackBarseektrimmer.Value = lblcurrentframetrimmer.Text + lblhmsftrimmer.Text = FToHMSF(lblcurrentframetrimmer.Text) + + End Sub + Private Sub bwforexportclip_DoWork(sender As Object, e As DoWorkEventArgs) Handles bwforexportclip.DoWork + On Error Resume Next + exportclipwithoutanychanges() + End Sub + + Private Sub bwforexportclip_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bwforexportclip.RunWorkerCompleted + On Error Resume Next + cmdexportclipwithoutanychanges.Enabled = True + pbexportclip.Value = pbexportclip.Maximum + lblexportclipinfo.Text = "Completed" + End Sub + + Private Sub cmdclosenewTrimmer1_Click(sender As Object, e As EventArgs) Handles cmdclosenewTrimmer1.Click + Parent.Controls.Remove(Me) + End Sub + + Private Sub cmdexportmpeg2mov_Click(sender As Object, e As EventArgs) Handles cmdexportmpeg2mov.Click + On Error Resume Next + Dim strinout As String = " -ss " & FToHMSms(txtmarkintrimmer.Text) & " -t " & FToHMSms(txtmarkouttrimmer.Text - txtmarkintrimmer.Text) + osdcutfilename.InitialDirectory = Replace(mediafullpath, "/", "\") '"c:\casparcg\_media\" + osdcutfilename.FileName = System.IO.Path.GetFileNameWithoutExtension(ofdtrimmer.FileName) & "_Trimmed" + osdcutfilename.FilterIndex = 5 + osdcutfilename.DereferenceLinks = False + osdcutfilename.Filter = "original wrapper (*" & System.IO.Path.GetExtension(ofdtrimmer.FileName) & ")|*" & System.IO.Path.GetExtension(ofdtrimmer.FileName) & "|mp4 files (*.mp4)|*.mp4|avi files (*.avi)|*.avi|mov files (*.mov)|*.mov|mxf files (*.mxf)|*.mxf|All files (*.*)|*.*" + If (osdcutfilename.ShowDialog() = Windows.Forms.DialogResult.OK) Then + Process.Start("CMD", "/K " & "C:/casparcg/mydata/ffmpeg/ffmpeg.exe -y " & strinout & " -i " & """" & ofdtrimmer.FileName & """" & " -b:v 25M -minrate 25M -maxrate 25M -vcodec mpeg2video -acodec pcm_s16le -alternate_scan 1 " & """" & osdcutfilename.FileName & """") + + End If + End Sub + + Private Sub ucnewTrimmer1_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop + Dim files() As String = e.Data.GetData(DataFormats.FileDrop) + For Each path In files + openfileintrimmer(path) + Next + + End Sub + + Private Sub ucnewTrimmer1_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + e.Effect = DragDropEffects.Copy + End If + End Sub + + Private Sub ucnewTrimmer1_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Control.CheckForIllegalCrossThreadCalls = False + End Sub + + Private Sub vlc1_Click(sender As Object, e As EventArgs) Handles vlc1.Click + + End Sub +End Class \ No newline at end of file