LEADTOOLS Multimedia (Leadtools.Multimedia assembly)

ScaleTop Property (PlayCtrl)

Show in webframe
Example 



Specifies the Y coordinate of the origin in a custom coordinate system for the client area.
Syntax
'Declaration
 
Public Overridable Property ScaleTop As Single
'Usage
 
Dim instance As PlayCtrl
Dim value As Single
 
instance.ScaleTop = value
 
value = instance.ScaleTop
public virtual float ScaleTop {get; set;}
public:
virtual property float ScaleTop {
   float get();
   void set (    float value);
}

Property Value

A value representing the Y coordinate of the origin.
Example
Copy Code  
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";
}
Requirements

Target Platforms

See Also

Reference

PlayCtrl Class
PlayCtrl Members

 

 


Products | Support | Contact Us | Copyright Notices
© 2006-2014 All Rights Reserved. LEAD Technologies, Inc.

Leadtools.Multimedia requires a Multimedia or Multimedia Suite license and unlock key. For more information, refer to: LEADTOOLS Toolkit Features