LEADTOOLS Multimedia (Leadtools.Multimedia assembly)
LEAD Technologies, Inc

ScaleTop Property (PlayCtrl)

Example 





Specifies the Y coordinate of the origin in a custom coordinate system for the client area.
Syntax
public virtual float ScaleTop {get; set;}
'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;}
 get_ScaleTop();
set_ScaleTop(value);
public:
virtual property float ScaleTop {
   float get();
   void set (    float value);
}

Property Value

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

Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2

See Also

Reference

PlayCtrl Class
PlayCtrl Members

 

 


Products | Support | Contact Us | Copyright Notices

© 2006-2012 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