Home page http://www.delphicity.com

• Description - Features

• Registration

• Disclaimer

• Package Install

• Methods and Functions

  • the methods and functions are those derived from Delphi TMediaPlayer. Please refer to the Delphi TMediaPlayer component help.

• Published properties

  • Display
  • DisplayAlign
  • DisplayHPos
  • DisplayMargin
  • DisplayVPos
  • DisplayZoom
  • Truncate

   

• Public properties

  • DWidth
  • DHeight

   

• Events

  • OnNewMediaSize

TSmartMediaPlayer package install:

1.  If and old TSmartMediaPlayer package is already installed, FIRST REMOVE IT:

- Components | Install Packages
- Click on "DelphiCity components"
- Click "Remove"
- Click "Yes"
- Click "Ok".

2.  Install the current package:

- Unzip the archive in a folder of your choice (e.g. c:\smplayer)

- According to your Delphi version (Delphi4 or Delphi5),
  copy all the \Delphi4 or \Delphi5 archive files to delphi4\Imports or delphi5\imports directory

- Run Delphi

- Select Component | Install packages

- Press the "Add" button

- Locate the smplayer.bpl file in the Imports directory and select it

- Select Open

- Select Ok

- Check the DelphiCity tab in the right of the component palette. The TSmartMediaPlayer object should have been added.

methods and functions

the methods and functions are those derived from Delphi TMediaPlayer. Please refer to the Delphi TMediaPlayer component help.

public properties

Only the added public properties are detailed here. Please refer to the Delphi TMediaPlayer component help for the other public properties.

published properties

Only the new published properties are detailed here. Please refer to the Delphi TMediaPlayer component help for the other published properties.

Display: twincontrol = nil
must be assigned with a control in which the video should be displayed (e.g. TPanel, GroupBox, ...)

DisplayAlign: (alignNone, alignClient)
if set to alignClient, the video size is dynamically adjusted to the control size.
if set to alignNone, use the other Displayxxxx properties to position or zoom the video.

DisplayHPos: (haCenter, haLeft, haRight)
use it in conjunction with DisplayVPos to position of the video within the control.
DisplayAlign must be set to alignNone.

DisplayMargin: integer = 10
set the margin in pixels that separates the video from the edge of the control.

DisplayVPos: (vaCenter, vaTop, vaBottom)
use it in conjunction with DisplayHPos to position of the video within the control
DisplayAlign must be set to alignNone.

DisplayZoom: integer = 100 (%)
set the zoom percentage applied to resize the video. 100% correspond to the default size of the video (when you display it with the Windows Media player).
DisplayAlign must be set to alignNone.

Truncate: boolean = true
if false, you cannot zoom the video beyond the control size.
if true, zooming the video beyond the control size truncate the surplus edges.
DisplayAlign must be set to alignNone.

events

Only the new events are detailed here. Please refer to the Delphi TMediaPlayer component help for the other events.

OnNewMediaSize (Sender: TObject; NewMediaWidth, NewMediaHeight, Zoom: Integer; var CanResize: Boolean)
this event occurs each time the video size changes.
NewMediaWidth: new width of the video
NewMediaHeight:new height of the video
Zoom: value that can be applied according to the context
CanResize: you can set it to false to cancel resizing the video

Disclaimer

The author of this program accepts no responsibility for damages resulting from the use of this product and make no warranty or representation, either expressed or implied, including but not limited to, any implied warranty of merchantability or fitness for a practical purpose.

This software package is provided here "AS IS", and you the user, assume all risks when using them.