Leadtools.Multimedia Namespace > PlayCtrl Class : ScaleLeft Property |
'Declaration Public Overridable Property ScaleLeft As Single
'Usage Dim instance As PlayCtrl Dim value As Single instance.ScaleLeft = value value = instance.ScaleLeft
public virtual float ScaleLeft {get; set;}
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 18\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 18\Media"; }