←Select platform

VideoWindowSizeMode Property (PlayCtrl)

Summary

Gets or sets the current video window size mode.

Syntax

C++

public virtual Leadtools.Multimedia.SizeMode VideoWindowSizeMode {get; set;}

Public Overridable Property VideoWindowSizeMode As Leadtools.Multimedia.SizeMode

public: 
virtual property Leadtools.Multimedia.SizeMode VideoWindowSizeMode { 
   Leadtools.Multimedia.SizeMode get(); 
   void set (    Leadtools.Multimedia.SizeMode ); 
}

Property Value

A SizeMode value representing the video window size mode. the default value is SizeMode.Fit.

Remarks

The default size mode is SizeMode.Fit. Assignment can raise an error exception. For more information, refer to the Error Codes.

Example

using Leadtools; 
using Leadtools.Multimedia; 
using LeadtoolsMultimediaExamples.Fixtures; 
 
public bool _result = false; 
public PlayCtrlForm _form = new PlayCtrlForm(); 
 
public void VideoWindowExample() 
{ 
   // reference the play control 
   PlayCtrl playctrl = _form.PlayCtrl; 
 
   // input file 
   string inFile = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_Source.avi"); 
 
   try 
   { 
      // turn off auto start 
      playctrl.AutoStart = false; 
 
      // set the source file 
      playctrl.SourceFile = inFile; 
 
      // get the video window handle 
      IntPtr handle = playctrl.VideoWindow; 
 
      // get the video and video window info 
      float vwt = playctrl.VideoWindowTop; 
      float vwl = playctrl.VideoWindowLeft; 
      float vwh = playctrl.VideoWindowHeight; 
      float vww = playctrl.VideoWindowWidth; 
      float vh = playctrl.VideoHeight; 
      float vw = playctrl.VideoWidth; 
 
      ScaleMode scm = playctrl.ScaleMode; 
      float sch = playctrl.ScaleHeight; 
      float scw = playctrl.ScaleWidth; 
      float sct = playctrl.ScaleTop; 
      float scl = playctrl.ScaleLeft; 
 
      SizeMode sm = playctrl.VideoWindowSizeMode; 
      bool isFullScreen = playctrl.FullScreenMode; 
 
      // check sizes for sizemode setting 
      if (vw > vww && vh > vwh && sm != SizeMode.Fit) 
         playctrl.VideoWindowSizeMode = SizeMode.Fit; 
      else if (vw < vww && vh < vwh) 
         playctrl.VideoWindowSizeMode = SizeMode.Stretch; 
 
      // set the play control to cover the form's client area 
      playctrl.SetVideoWindowPos(0, 0, this._form.ClientSize.Width, this._form.ClientSize.Height); 
 
      // set the result to what we expect 
      _result = (handle != null); 
 
      // run the video 
      playctrl.Run(); 
   } 
   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 (playctrl.State == PlayState.Running) 
      Application.DoEvents(); 
} 
 
static class LEAD_VARS 
{ 
   public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media"; 
}

Imports Leadtools 
Imports Leadtools.Multimedia 
Imports LeadtoolsMultimediaExamples.Fixtures 
 
Public _result As Boolean = False 
Public _form As PlayCtrlForm = New PlayCtrlForm() 
 
Public Sub VideoWindowExample() 
   ' reference the play control 
   Dim playctrl As PlayCtrl = _form.PlayCtrl 
 
   ' input file 
   Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_Source.avi") 
 
   Try 
      ' turn off auto start 
      playctrl.AutoStart = False 
 
      ' set the source file 
      playctrl.SourceFile = inFile 
 
      ' get the video window handle 
      Dim handle As IntPtr = playctrl.VideoWindow 
 
      ' get the video and video window info 
      Dim vwt As Single = playctrl.VideoWindowTop 
      Dim vwl As Single = playctrl.VideoWindowLeft 
      Dim vwh As Single = playctrl.VideoWindowHeight 
      Dim vww As Single = playctrl.VideoWindowWidth 
      Dim vh As Single = playctrl.VideoHeight 
      Dim vw As Single = playctrl.VideoWidth 
 
      Dim scm As ScaleMode = playctrl.ScaleMode 
      Dim sch As Single = playctrl.ScaleHeight 
      Dim scw As Single = playctrl.ScaleWidth 
      Dim sct As Single = playctrl.ScaleTop 
      Dim scl As Single = playctrl.ScaleLeft 
 
      Dim sm As SizeMode = playctrl.VideoWindowSizeMode 
      Dim isFullScreen As Boolean = playctrl.FullScreenMode 
 
      ' check sizes for sizemode setting 
      If vw > vww AndAlso vh > vwh AndAlso sm <> SizeMode.Fit Then 
         playctrl.VideoWindowSizeMode = SizeMode.Fit 
      ElseIf vw < vww AndAlso vh < vwh Then 
         playctrl.VideoWindowSizeMode = SizeMode.Stretch 
      End If 
 
      ' set the play control to cover the form's client area 
      playctrl.SetVideoWindowPos(0, 0, Me._form.ClientSize.Width, Me._form.ClientSize.Height) 
 
      ' set the result to what we expect 
      _result = (handle <> Nothing) 
 
      ' run the video 
      playctrl.Run() 
   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 playctrl.State = PlayState.Running 
      Application.DoEvents() 
   Loop 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media" 
End Class

using Leadtools; 
using Leadtools.Multimedia; 
using LeadtoolsMultimediaExamples.Fixtures; 
 
public bool _result = false; 
public PlayCtrlForm _form = new PlayCtrlForm(); 
 
public void VideoWindowExample() 
{ 
   // reference the play control 
   PlayCtrl playctrl = _form.PlayCtrl; 
 
   // input file 
   string inFile = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_Source.avi"); 
 
   try 
   { 
      // turn off auto start 
      playctrl.AutoStart = false; 
 
      // set the source file 
      playctrl.SourceFile = inFile; 
 
      // get the video window handle 
      IntPtr handle = playctrl.VideoWindow; 
 
      // get the video and video window info 
      float vwt = playctrl.VideoWindowTop; 
      float vwl = playctrl.VideoWindowLeft; 
      float vwh = playctrl.VideoWindowHeight; 
      float vww = playctrl.VideoWindowWidth; 
      float vh = playctrl.VideoHeight; 
      float vw = playctrl.VideoWidth; 
 
      ScaleMode scm = playctrl.ScaleMode; 
      float sch = playctrl.ScaleHeight; 
      float scw = playctrl.ScaleWidth; 
      float sct = playctrl.ScaleTop; 
      float scl = playctrl.ScaleLeft; 
 
      SizeMode sm = playctrl.VideoWindowSizeMode; 
      bool isFullScreen = playctrl.FullScreenMode; 
 
      // check sizes for sizemode setting 
      if (vw > vww && vh > vwh && sm != SizeMode.Fit) 
         playctrl.VideoWindowSizeMode = SizeMode.Fit; 
      else if (vw < vww && vh < vwh) 
         playctrl.VideoWindowSizeMode = SizeMode.Stretch; 
 
      // set the play control to cover the form's client area 
      playctrl.SetVideoWindowPos(0, 0, this._form.ClientSize.Width, this._form.ClientSize.Height); 
 
      // set the result to what we expect 
      _result = (handle != null); 
 
      // run the video 
      playctrl.Run(); 
   } 
   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 (playctrl.State == PlayState.Running) 
      Application.DoEvents(); 
} 
 
static class LEAD_VARS 
{ 
   public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media"; 
}

Imports Leadtools 
Imports Leadtools.Multimedia 
Imports LeadtoolsMultimediaExamples.Fixtures 
 
Public _result As Boolean = False 
Public _form As PlayCtrlForm = New PlayCtrlForm() 
 
Public Sub VideoWindowExample() 
   ' reference the play control 
   Dim playctrl As PlayCtrl = _form.PlayCtrl 
 
   ' input file 
   Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "PlayCtrl_Source.avi") 
 
   Try 
      ' turn off auto start 
      playctrl.AutoStart = False 
 
      ' set the source file 
      playctrl.SourceFile = inFile 
 
      ' get the video window handle 
      Dim handle As IntPtr = playctrl.VideoWindow 
 
      ' get the video and video window info 
      Dim vwt As Single = playctrl.VideoWindowTop 
      Dim vwl As Single = playctrl.VideoWindowLeft 
      Dim vwh As Single = playctrl.VideoWindowHeight 
      Dim vww As Single = playctrl.VideoWindowWidth 
      Dim vh As Single = playctrl.VideoHeight 
      Dim vw As Single = playctrl.VideoWidth 
 
      Dim scm As ScaleMode = playctrl.ScaleMode 
      Dim sch As Single = playctrl.ScaleHeight 
      Dim scw As Single = playctrl.ScaleWidth 
      Dim sct As Single = playctrl.ScaleTop 
      Dim scl As Single = playctrl.ScaleLeft 
 
      Dim sm As SizeMode = playctrl.VideoWindowSizeMode 
      Dim isFullScreen As Boolean = playctrl.FullScreenMode 
 
      ' check sizes for sizemode setting 
      If vw > vww AndAlso vh > vwh AndAlso sm <> SizeMode.Fit Then 
         playctrl.VideoWindowSizeMode = SizeMode.Fit 
      ElseIf vw < vww AndAlso vh < vwh Then 
         playctrl.VideoWindowSizeMode = SizeMode.Stretch 
      End If 
 
      ' set the play control to cover the form's client area 
      playctrl.SetVideoWindowPos(0, 0, Me._form.ClientSize.Width, Me._form.ClientSize.Height) 
 
      ' set the result to what we expect 
      _result = (handle <> Nothing) 
 
      ' run the video 
      playctrl.Run() 
   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 playctrl.State = PlayState.Running 
      Application.DoEvents() 
   Loop 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media" 
End Class