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

ScaleHeight Property (PlayCtrl)

Example 





Gets or sets the height of the client area of the control.
Syntax
public virtual float ScaleHeight {get; set;}
'Declaration
 
Public Overridable Property ScaleHeight As Single
'Usage
 
Dim instance As PlayCtrl
Dim value As Single
 
instance.ScaleHeight = value
 
value = instance.ScaleHeight
public virtual float ScaleHeight {get; set;}
 get_ScaleHeight();
set_ScaleHeight(value);
public:
virtual property float ScaleHeight {
   float get();
   void set (    float value);
}

Property Value

A value representing the height.
Remarks
Assigning a value does not change the actual value, instead the current height is expressed using the value provided. This makes it possible to use a custom coordinate system. For example, if both the ScaleWidth and ScaleHeight are set to 100, then all coordinates can be expressed as percentage offsets.
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