VideoWindowTop Property

Summary

Gets the top position of the video window in pixels.

Syntax
C#
VB
C++
public virtual int VideoWindowTop { get; } 
Public Overridable ReadOnly Property VideoWindowTop As Integer 
public: 
virtual property int VideoWindowTop { 
   int get(); 
} 

Property Value

A value representing the top position of the video window in pixels.

Remarks

Gets the top position of the video window in pixels. This value is relative to the Window Property.

Example
C#
VB
using Leadtools; 
using Leadtools.Multimedia; 
using LeadtoolsMultimediaExamples.Fixtures; 
 
public bool _result = false; 
public ConvertCtrlForm _form = new ConvertCtrlForm(); 
 
public void VideoWindowExample() 
{ 
   // reference the play control 
   ConvertCtrl convertctrl = _form.ConvertCtrl; 
 
   // input and output files 
   string inFile = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source.avi"); 
   string outFile = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_VideoWindowExample.avi"); 
 
   try 
   { 
      // set the source for conversion 
      convertctrl.SourceFile = inFile; 
 
      // set the video and audio compressors 
      convertctrl.VideoCompressors.Mpeg2.Selected = true; 
      convertctrl.AudioCompressors.AC3.Selected = true; 
 
      // set the target output file and format 
      convertctrl.TargetFile = outFile; 
 
      // set the target output format 
      convertctrl.TargetFormat = TargetFormatType.AVI; 
 
      // enable preview 
      convertctrl.Preview = true; 
 
      // play it! 
      convertctrl.StartConvert(); 
 
      // get the video and video window info 
      int vwt = convertctrl.VideoWindowTop; 
      int vwl = convertctrl.VideoWindowLeft; 
      int vwh = convertctrl.VideoWindowHeight; 
      int vww = convertctrl.VideoWindowWidth; 
      int vh = convertctrl.VideoHeight; 
      int vw = convertctrl.VideoWidth; 
      SizeMode sm = convertctrl.VideoWindowSizeMode; 
      bool isFullScreen = convertctrl.FullScreenMode; 
 
      if (vw > vww && vh > vwh && sm != SizeMode.Fit) 
         convertctrl.VideoWindowSizeMode = SizeMode.Fit; 
      else if (vw < vww && vh < vwh) 
         convertctrl.VideoWindowSizeMode = SizeMode.Stretch; 
 
      // set the play control to cover the form's client area 
      convertctrl.SetVideoWindowPos(50, 0, this._form.ClientSize.Width, this._form.ClientSize.Height); 
 
      // set the result 
      _result = (convertctrl.VideoWindow != IntPtr.Zero); 
   } 
   catch (Exception) 
   { 
      _result = false; 
   } 
 
   // we'll loop on the state and pump messages for this example. 
   // but you should not need to if running from a Windows Forms application. 
   while (convertctrl.State == ConvertState.Running) 
      Application.DoEvents(); 
} 
 
static class LEAD_VARS 
{ 
   public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 20\Media"; 
} 
Imports Leadtools 
Imports Leadtools.Multimedia 
Imports LeadtoolsMultimediaExamples.Fixtures 
 
Public _result As Boolean = False 
Public _form As ConvertCtrlForm = New ConvertCtrlForm() 
 
Public Sub VideoWindowExample() 
   ' reference the play control 
   Dim convertctrl As ConvertCtrl = _form.ConvertCtrl 
 
   ' input and output files 
   Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source.avi") 
   Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_VideoWindowExample.avi") 
 
   Try 
      ' set the source for conversion 
      convertctrl.SourceFile = inFile 
 
      ' set the video and audio compressors 
      convertctrl.VideoCompressors.Mpeg2.Selected = True 
      convertctrl.AudioCompressors.AC3.Selected = True 
 
      ' set the target output file and format 
      convertctrl.TargetFile = outFile 
 
      ' set the target output format 
      convertctrl.TargetFormat = TargetFormatType.AVI 
 
      ' enable preview 
      convertctrl.Preview = True 
 
      ' play it! 
      convertctrl.StartConvert() 
 
      ' get the video and video window info 
      Dim vwt As Integer = convertctrl.VideoWindowTop 
      Dim vwl As Integer = convertctrl.VideoWindowLeft 
      Dim vwh As Integer = convertctrl.VideoWindowHeight 
      Dim vww As Integer = convertctrl.VideoWindowWidth 
      Dim vh As Integer = convertctrl.VideoHeight 
      Dim vw As Integer = convertctrl.VideoWidth 
      Dim sm As SizeMode = convertctrl.VideoWindowSizeMode 
      Dim isFullScreen As Boolean = convertctrl.FullScreenMode 
 
      If vw > vww AndAlso vh > vwh AndAlso sm <> SizeMode.Fit Then 
         convertctrl.VideoWindowSizeMode = SizeMode.Fit 
      ElseIf vw < vww AndAlso vh < vwh Then 
         convertctrl.VideoWindowSizeMode = SizeMode.Stretch 
      End If 
 
      ' set the play control to cover the form's client area 
      convertctrl.SetVideoWindowPos(50, 0, Me._form.ClientSize.Width, Me._form.ClientSize.Height) 
 
      ' set the result 
      _result = (convertctrl.VideoWindow <> IntPtr.Zero) 
   Catch e1 As Exception 
      _result = False 
   End Try 
 
   ' we'll loop on the state and pump messages for this example. 
   ' but you should not need to if running from a Windows Forms application. 
   Do While convertctrl.State = ConvertState.Running 
      Application.DoEvents() 
   Loop 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 20\Media" 
End Class 
Requirements

Target Platforms

Help Version 20.0.2019.11.25
Products | Support | Contact Us | Intellectual Property Notices
© 1991-2019 LEAD Technologies, Inc. All Rights Reserved.

Leadtools.Multimedia Assembly