qtmovie.pas

编译原理-文法等价转换

{********************************************}
{*                                          *}
{*  QTMOVIE.PAS generated from QTMOVIE.VBX  *}
{*                                          *}
{********************************************}

unit Qtmovie;

interface

uses SysUtils, Classes, Graphics, Forms, Controls, VBXCtrl, BIVBX;

{ $DEFINE InitTQTMovie}
{^- Remove space to enable default init data -- See documentation. }

type
  TQTMovieNameChangeEvent = procedure (Sender: TObject) of object;
  TQTMovieQTActivateEvent = procedure (Sender: TObject; var bContinue:
    Integer) of object;
  TQTMovieQTBadgeClickEvent = procedure (Sender: TObject; var bContinue:
    Integer) of object;
  TQTMovieQTDeactivateEvent = procedure (Sender: TObject; var bContinue:
    Integer) of object;
  TQTMovieQTDrawEvent = procedure (Sender: TObject; var bContinue: Integer)
    of object;
  TQTMovieQTGetFlagsEvent = procedure (Sender: TObject; var lFlags: Longint;
    var bContinue: Integer) of object;
  TQTMovieQTGetKeysEnabledEvent = procedure (Sender: TObject; var bEnabled:
    Integer; var bContinue: Integer) of object;
  TQTMovieQTGetLoopingEvent = procedure (Sender: TObject; var bLooping:
    Integer; var bContinue: Integer) of object;
  TQTMovieQTGetPalindromeEvent = procedure (Sender: TObject; var bPalindrome:
    Integer; var bContinue: Integer) of object;
  TQTMovieQTGetPlayEveryFrameEvent = procedure (Sender: TObject; var
    bPlayEveryFrame: Integer; var bContinue: Integer) of object;
  TQTMovieQTGetPlayRateEvent = procedure (Sender: TObject; var lPlayRate:
    Longint; var bContinue: Integer) of object;
  TQTMovieQTGetPlaySelEvent = procedure (Sender: TObject; var bPlaySel:
    Integer; var bContinue: Integer) of object;
  TQTMovieQTGetUseBadgeEvent = procedure (Sender: TObject; var bUseBadge:
    Integer; var bContinue: Integer) of object;
  TQTMovieQTGetVolumeEvent = procedure (Sender: TObject; var sVolume: Integer;
    var bContinue: Integer) of object;
  TQTMovieQTGoToTimeEvent = procedure (Sender: TObject; var lMovieTime:
    Longint; var bContinue: Integer) of object;
  TQTMovieQTIdleEvent = procedure (Sender: TObject; var bContinue: Integer)
    of object;
  TQTMovieQTPlayEvent = procedure (Sender: TObject; var lPlayRate: Longint;
    var bContinue: Integer) of object;
  TQTMovieQTSetFlagsEvent = procedure (Sender: TObject; var lFlags: Longint;
    var bContinue: Integer) of object;
  TQTMovieQTSetGrowBoxBoundsEvent = procedure (Sender: TObject; var rcLeft:
    Integer; var rcTop: Integer; var rcRight: Integer; var rcBottom: Integer;
    var bContinue: Integer) of object;
  TQTMovieQTSetKeysEnabledEvent = procedure (Sender: TObject; var bEnabled:
    Integer; var bContinue: Integer) of object;
  TQTMovieQTSetLoopingEvent = procedure (Sender: TObject; var bLooping:
    Integer; var bContinue: Integer) of object;
  TQTMovieQTSetPalindromeEvent = procedure (Sender: TObject; var bPalindrome:
    Integer; var bContinue: Integer) of object;
  TQTMovieQTSetPlayEveryFrameEvent = procedure (Sender: TObject; var
    bPlayEveryFrame: Integer; var bContinue: Integer) of object;
  TQTMovieQTSetPlaySelEvent = procedure (Sender: TObject; var bPlaySel:
    Integer; var bContinue: Integer) of object;
  TQTMovieQTSetSelBeginEvent = procedure (Sender: TObject; var lSelBeginTime:
    Longint; var bContinue: Integer) of object;
  TQTMovieQTSetSelDurationEvent = procedure (Sender: TObject; var
    lSelDuration: Longint; var bContinue: Integer) of object;
  TQTMovieQTSetUseBadgeEvent = procedure (Sender: TObject; var bUseBadge:
    Integer; var bContinue: Integer) of object;
  TQTMovieQTSetVolumeEvent = procedure (Sender: TObject; var sVolume: Integer;
    var bContinue: Integer) of object;
  TQTMovieQTSizeChangedEvent = procedure (Sender: TObject; var bContinue:
    Integer) of object;
  TQTMovieQTStepEvent = procedure (Sender: TObject; var lNumSteps: Longint;
    var bContinue: Integer) of object;

  { TQTMovie }

  TQTMovie = class(TVBXControl)
  protected
    FOnNameChange: TQTMovieNameChangeEvent;
    FOnQTActivate: TQTMovieQTActivateEvent;
    FOnQTBadgeClick: TQTMovieQTBadgeClickEvent;
    FOnQTDeactivate: TQTMovieQTDeactivateEvent;
    FOnQTDraw: TQTMovieQTDrawEvent;
    FOnQTGetFlags: TQTMovieQTGetFlagsEvent;
    FOnQTGetKeysEnabled: TQTMovieQTGetKeysEnabledEvent;
    FOnQTGetLooping: TQTMovieQTGetLoopingEvent;
    FOnQTGetPalindrome: TQTMovieQTGetPalindromeEvent;
    FOnQTGetPlayEveryFrame: TQTMovieQTGetPlayEveryFrameEvent;
    FOnQTGetPlayRate: TQTMovieQTGetPlayRateEvent;
    FOnQTGetPlaySel: TQTMovieQTGetPlaySelEvent;
    FOnQTGetUseBadge: TQTMovieQTGetUseBadgeEvent;
    FOnQTGetVolume: TQTMovieQTGetVolumeEvent;
    FOnQTGoToTime: TQTMovieQTGoToTimeEvent;
    FOnQTIdle: TQTMovieQTIdleEvent;
    FOnQTPlay: TQTMovieQTPlayEvent;
    FOnQTSetFlags: TQTMovieQTSetFlagsEvent;
    FOnQTSetGrowBoxBounds: TQTMovieQTSetGrowBoxBoundsEvent;
    FOnQTSetKeysEnabled: TQTMovieQTSetKeysEnabledEvent;
    FOnQTSetLooping: TQTMovieQTSetLoopingEvent;
    FOnQTSetPalindrome: TQTMovieQTSetPalindromeEvent;
    FOnQTSetPlayEveryFrame: TQTMovieQTSetPlayEveryFrameEvent;
    FOnQTSetPlaySel: TQTMovieQTSetPlaySelEvent;
    FOnQTSetSelBegin: TQTMovieQTSetSelBeginEvent;
    FOnQTSetSelDuration: TQTMovieQTSetSelDurationEvent;
    FOnQTSetUseBadge: TQTMovieQTSetUseBadgeEvent;
    FOnQTSetVolume: TQTMovieQTSetVolumeEvent;
    FOnQTSizeChanged: TQTMovieQTSizeChangedEvent;
    FOnQTStep: TQTMovieQTStepEvent;
    { Event handler }
    procedure HandleVBXEvent(var Message: TWMVBXFireEvent); override;
    procedure DefineProperties(Filer: TFiler); override;
  public
    constructor Create(AOwner: TComponent); override;

    property Activate: Boolean index 1 read GetBoolProp write SetBoolProp;
    property Duration: TVBLongint index 5 read GetLongProp write SetProp;
    property Flags: TVBLongint index 6 read GetLongProp write SetProp;
    property GrowBoxBottom: TVBInteger index 8 read GetIntProp write
      SetIntProp;
    property GrowBoxLeft: TVBInteger index 9 read GetIntProp write SetIntProp;
    property GrowBoxRight: TVBInteger index 10 read GetIntProp write
      SetIntProp;
    property GrowBoxTop: TVBInteger index 11 read GetIntProp write SetIntProp;
    property hWnd: TVBInteger index 13 read GetIntProp write SetIntProp;
    property Index: TVBInteger index 14 read GetIntProp;
    property KeysEnabled: Boolean index 15 read GetBoolProp write SetBoolProp;
    property Looping: Boolean index 17 read GetBoolProp write SetBoolProp;
    property Movie: TVBLongint index 19 read GetLongProp write SetProp;
    property MovieController: TVBLongint index 20 read GetLongProp write
      SetProp;
    property OffsetX: TVBLongint index 22 read GetLongProp write SetProp;
    property OffsetY: TVBLongint index 23 read GetLongProp write SetProp;
    property Palindrome: Boolean index 24 read GetBoolProp write SetBoolProp;
    property PlayEveryFrame: Boolean index 26 read GetBoolProp write
      SetBoolProp;
    property PlayRate: TVBLongint index 27 read GetLongProp write SetProp;
    property PlaySel: Boolean index 28 read GetBoolProp write SetBoolProp;
    property PosterHeight: TVBLongint index 29 read GetLongProp write SetProp;
    property PosterPict: TVBPic index 30 read GetPictureProp write
      SetPictureProp;
    property PosterWidth: TVBLongint index 31 read GetLongProp write SetProp;
    property PreferredRate: TVBLongint index 32 read GetLongProp write
      SetProp;
    property SelDuration: TVBLongint index 33 read GetLongProp write SetProp;
    property SelStart: TVBLongint index 34 read GetLongProp write SetProp;
    property Step: TVBLongint index 35 read GetLongProp write SetProp;
    property Time: TVBLongint index 39 read GetLongProp write SetProp;
    property TimeScale: TVBLongint index 40 read GetLongProp write SetProp;
    property UseBadge: Boolean index 42 read GetBoolProp write SetBoolProp;
    property Volume: TVBInteger index 44 read GetIntProp write SetIntProp;
  published
    property AutoSize: Boolean index 0 read GetBoolProp write SetBoolProp;
    property BackColor: TColor index 2 read GetColorProp write SetColorProp
      default -2147483633;
    property BorderStyle: TVBEnum index 3 read GetEnumProp write SetEnumProp
      default 1;
    property GrowBox: Boolean index 7 read GetBoolProp write SetBoolProp;
    property MousePointer: TVBEnum index 18 read GetEnumProp write
      SetEnumProp default 0;
    property MovieName: TVBString index 21 read GetStringProp write
      SetStringProp;
    property TabOrder;
    property TabStop;
    property Visible: Boolean index 43 read GetBoolProp write SetBoolProp;
    property OnClick;