qtmovie.pas

编译原理-文法等价转换

    property OnDblClick;
    property OnEnter;
    property OnKeyDown;
    property OnKeyPress;
    property OnKeyUp;
    property OnExit;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnNameChange: TQTMovieNameChangeEvent read FOnNameChange write
      FOnNameChange;
    property OnQTActivate: TQTMovieQTActivateEvent read FOnQTActivate write
      FOnQTActivate;
    property OnQTBadgeClick: TQTMovieQTBadgeClickEvent read FOnQTBadgeClick
      write FOnQTBadgeClick;
    property OnQTDeactivate: TQTMovieQTDeactivateEvent read FOnQTDeactivate
      write FOnQTDeactivate;
    property OnQTDraw: TQTMovieQTDrawEvent read FOnQTDraw write FOnQTDraw;
    property OnQTGetFlags: TQTMovieQTGetFlagsEvent read FOnQTGetFlags write
      FOnQTGetFlags;
    property OnQTGetKeysEnabled: TQTMovieQTGetKeysEnabledEvent read
      FOnQTGetKeysEnabled write FOnQTGetKeysEnabled;
    property OnQTGetLooping: TQTMovieQTGetLoopingEvent read FOnQTGetLooping
      write FOnQTGetLooping;
    property OnQTGetPalindrome: TQTMovieQTGetPalindromeEvent read
      FOnQTGetPalindrome write FOnQTGetPalindrome;
    property OnQTGetPlayEveryFrame: TQTMovieQTGetPlayEveryFrameEvent read
      FOnQTGetPlayEveryFrame write FOnQTGetPlayEveryFrame;
    property OnQTGetPlayRate: TQTMovieQTGetPlayRateEvent read
      FOnQTGetPlayRate write FOnQTGetPlayRate;
    property OnQTGetPlaySel: TQTMovieQTGetPlaySelEvent read FOnQTGetPlaySel
      write FOnQTGetPlaySel;
    property OnQTGetUseBadge: TQTMovieQTGetUseBadgeEvent read
      FOnQTGetUseBadge write FOnQTGetUseBadge;
    property OnQTGetVolume: TQTMovieQTGetVolumeEvent read FOnQTGetVolume
      write FOnQTGetVolume;
    property OnQTGoToTime: TQTMovieQTGoToTimeEvent read FOnQTGoToTime write
      FOnQTGoToTime;
    property OnQTIdle: TQTMovieQTIdleEvent read FOnQTIdle write FOnQTIdle;
    property OnQTPlay: TQTMovieQTPlayEvent read FOnQTPlay write FOnQTPlay;
    property OnQTSetFlags: TQTMovieQTSetFlagsEvent read FOnQTSetFlags write
      FOnQTSetFlags;
    property OnQTSetGrowBoxBounds: TQTMovieQTSetGrowBoxBoundsEvent read
      FOnQTSetGrowBoxBounds write FOnQTSetGrowBoxBounds;
    property OnQTSetKeysEnabled: TQTMovieQTSetKeysEnabledEvent read
      FOnQTSetKeysEnabled write FOnQTSetKeysEnabled;
    property OnQTSetLooping: TQTMovieQTSetLoopingEvent read FOnQTSetLooping
      write FOnQTSetLooping;
    property OnQTSetPalindrome: TQTMovieQTSetPalindromeEvent read
      FOnQTSetPalindrome write FOnQTSetPalindrome;
    property OnQTSetPlayEveryFrame: TQTMovieQTSetPlayEveryFrameEvent read
      FOnQTSetPlayEveryFrame write FOnQTSetPlayEveryFrame;
    property OnQTSetPlaySel: TQTMovieQTSetPlaySelEvent read FOnQTSetPlaySel
      write FOnQTSetPlaySel;
    property OnQTSetSelBegin: TQTMovieQTSetSelBeginEvent read
      FOnQTSetSelBegin write FOnQTSetSelBegin;
    property OnQTSetSelDuration: TQTMovieQTSetSelDurationEvent read
      FOnQTSetSelDuration write FOnQTSetSelDuration;
    property OnQTSetUseBadge: TQTMovieQTSetUseBadgeEvent read
      FOnQTSetUseBadge write FOnQTSetUseBadge;
    property OnQTSetVolume: TQTMovieQTSetVolumeEvent read FOnQTSetVolume
      write FOnQTSetVolume;
    property OnQTSizeChanged: TQTMovieQTSizeChangedEvent read
      FOnQTSizeChanged write FOnQTSizeChanged;
    property OnQTStep: TQTMovieQTStepEvent read FOnQTStep write FOnQTStep;
  end;

procedure Register;

implementation

{ Default form data for TQTMovie }

{$IFDEF InitTQTMovie}

const
  TQTMovieInitLen = 58;

procedure TQTMovieInitData; near; assembler;
asm
	DB	$00,$FF,$FF,$02,$FF,$FF,$FF,$00,$03,$01,$04,$07,$51,$54,$4D,$6F
	DB	$76,$69,$65,$07,$FF,$FF,$0E,$00,$00,$10,$12,$00,$15,$06,$28,$6E
	DB	$6F,$6E,$65,$29,$16,$00,$00,$00,$00,$17,$00,$00,$00,$00,$24,$00
	DB	$00,$25,$00,$00,$26,$00,$2B,$FF,$FF,$FF
end;

{$ENDIF}

{ TQTMovie }

constructor TQTMovie.Create(AOwner: TComponent);
begin
  FVBXFile := StrNew('QTMOVIE.VBX');
  FVBXClass := StrNew('QTMovie');
  SetBounds(0, 0, 80, 32);
  inherited Create(AOwner);
  ControlStyle := ControlStyle - [csCaptureMouse, csClickEvents];
  TabStop := True;
  Visible := False;
  FVBXFlags := [vfArrows];
  {$IFDEF InitTQTMovie}
  FHForm := VBXCreateFormFile(TQTMovieInitLen, @TQTMovieInitData);
  {$ENDIF}
end;

procedure TQTMovie.HandleVBXEvent(var Message: TWMVBXFireEvent);
begin
  case Message.VBXEvent^.EventIndex of
    0: DispatchNotifyEvent(OnClick);
    1: DispatchNotifyEvent(OnDblClick);
    2: begin end; { VCL Handles OnGotFocus }
    3: DispatchKeyEvent(OnKeyDown, Message);
    4: DispatchKeyPressedEvent(OnKeyPress, Message);
    5: DispatchKeyEvent(OnKeyUp, Message);
    6: begin end; { VCL Handles OnLostFocus }
    7: DispatchMouseEvent(OnMouseDown, Message);
    8: DispatchMouseMoveEvent(OnMouseMove, Message);
    9: DispatchMouseEvent(OnMouseUp, Message);
    10: DispatchCustomEvent(FOnNameChange, Message, 10);
    11: DispatchCustomEvent(FOnQTActivate, Message, 11);
    12: DispatchCustomEvent(FOnQTBadgeClick, Message, 12);
    13: DispatchCustomEvent(FOnQTDeactivate, Message, 13);
    14: DispatchCustomEvent(FOnQTDraw, Message, 14);
    15: DispatchCustomEvent(FOnQTGetFlags, Message, 15);
    16: DispatchCustomEvent(FOnQTGetKeysEnabled, Message, 16);
    17: DispatchCustomEvent(FOnQTGetLooping, Message, 17);
    18: DispatchCustomEvent(FOnQTGetPalindrome, Message, 18);
    19: DispatchCustomEvent(FOnQTGetPlayEveryFrame, Message, 19);
    20: DispatchCustomEvent(FOnQTGetPlayRate, Message, 20);
    21: DispatchCustomEvent(FOnQTGetPlaySel, Message, 21);
    22: DispatchCustomEvent(FOnQTGetUseBadge, Message, 22);
    23: DispatchCustomEvent(FOnQTGetVolume, Message, 23);
    24: DispatchCustomEvent(FOnQTGoToTime, Message, 24);
    25: DispatchCustomEvent(FOnQTIdle, Message, 25);
    26: DispatchCustomEvent(FOnQTPlay, Message, 26);
    27: DispatchCustomEvent(FOnQTSetFlags, Message, 27);
    28: DispatchCustomEvent(FOnQTSetGrowBoxBounds, Message, 28);
    29: DispatchCustomEvent(FOnQTSetKeysEnabled, Message, 29);
    30: DispatchCustomEvent(FOnQTSetLooping, Message, 30);
    31: DispatchCustomEvent(FOnQTSetPalindrome, Message, 31);
    32: DispatchCustomEvent(FOnQTSetPlayEveryFrame, Message, 32);
    33: DispatchCustomEvent(FOnQTSetPlaySel, Message, 33);
    34: DispatchCustomEvent(FOnQTSetSelBegin, Message, 34);
    35: DispatchCustomEvent(FOnQTSetSelDuration, Message, 35);
    36: DispatchCustomEvent(FOnQTSetUseBadge, Message, 36);
    37: DispatchCustomEvent(FOnQTSetVolume, Message, 37);
    38: DispatchCustomEvent(FOnQTSizeChanged, Message, 38);
    39: DispatchCustomEvent(FOnQTStep, Message, 39);
  end;
end;

procedure TQTMovie.DefineProperties(Filer: TFiler);
begin
  inherited DefineProperties(Filer);
  HandleProperty('OffsetX', Filer, 22);
  HandleProperty('OffsetY', Filer, 23);
end;

{ Designer registration }
procedure Register;
begin
  RegisterComponents('VBX', [
    TQTMovie]);
end;

end.