Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ole/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ole/mmsample.sct

#�VERSION =   3.00
mmsample.hdataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12formformForm1�DataSession = 2
Height = 151
Width = 345
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 3
Caption = "Play an AVI file in an ActiveX control "
MaxButton = .F.
HelpContextID = 202
Name = "Form1"
@PROCEDURE Destroy
Application.AutoYield = .T.

ENDPROC
PROCEDURE Init
IF  fontmetric(1, 'MS Sans Serif', 8, '') # 13 OR ;
	fontmetric(4, 'MS Sans Serif', 8, '') # 2 OR ;
	fontmetric(6, 'MS Sans Serif', 8, '') # 5 OR ;
	fontmetric(7, 'MS Sans Serif', 8, '') # 11
	this.setall('fontname', 'Tahoma')  
ELSE
	this.setall('fontname','MS Sans Serif')
ENDIF
this.setall('fontsize',8)

* Check to see if OCX IS installed and loaded.
IF TYPE("THIS.VCR") # "O" OR ISNULL(THIS.VCR)
	RETURN .F.
ENDIF

ThisForm.VCR.hWndDisplay = ThisForm.hWnd
ThisForm.VCR.UpdateInterval = 200
ThisForm.VCR.TimeFormat = 3
ThisForm.VCR.DeviceType = 'AVIVideo'
cFileName = SYS(1271, ThisForm)
cFileName = SUBSTR( cFileName, 1, RAT( "\", cFileName ))
ThisForm.VCR.FileName = cFileName + 'FoxRain.avi'
ThisForm.VCR.Shareable = .F.
ThisForm.VCR.Command = 'Open'
SET PALETTE OFF

Application.AutoYield = .F.

ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp

ENDPROC
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF

ENDPROC
��� ��.z%�&��UT���a��UAPPLICATION	AUTOYIELD�%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$�����!��C�fontname�Tahoma�������(��C�fontname�
MS Sans Serif�������C�fontsize�����(%�C�THIS.VCRb�O�	C�����5�B�-���T��������T�������T�������T�����AVIVideo��T�	�C���]��T�	�C�	�C�\�	�\��"T���
��	�FoxRain.avi��T����-��T�����Open��Gi�T�
��-��UTHISSETALLVCRTHISFORMHWNDDISPLAYHWNDUPDATEINTERVAL
TIMEFORMAT
DEVICETYPE	CFILENAMEFILENAME	SHAREABLECOMMANDAPPLICATION	AUTOYIELD
�����UTHISC_SOLUTIONS1SAVEHELP9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELPDestroy,��InitY��Activate��
DeactivateG��1�3d	��A��qAb11�1�!qa�3�3Q�A20K���#�5')�
commandbutton
commandbuttonCommand2Form1�Top = 120
Left = 108
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Play Video"
Name = "Command2"
MPROCEDURE Click
*!* Play the avi
ThisForm.VCR.Command = "PLAY"

ENDPROC
�� ���%bwq�UT�����PLAY��UTHISFORMVCRCOMMANDClick,��1r2B)�
olecontrol
olecontrolVCRForm1MTop = 120
Left = 24
Height = 24
Width = 204
Visible = .F.
Name = "VCR"
%PROCEDURE Done
*** OLE Control Event ***
LPARAMETERS notifycode

*!* If we are done playing the AVI, then loop
*!* Back to the beginning and start playing it again.
IF notifycode = 1
	This.Object.From = 0
	This.Object.Command = "SEEK"
	This.Object.Command = "PLAY"
ENDIF

ENDPROC
9��   �%����U`���%�����Y�T�������T�����SEEK��T�����PLAY���U
NOTIFYCODETHISOBJECTFROMCOMMANDDone,��1r1qqA2) 
��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry���������L�M��@OleObjectData����pAccessObjSiteData&������������\ChangedProps������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������%���W�� ���!C4d{���@�\$8mgkgtgnnmnmninigthkgogggvmkhinjggnvm�����������������������)OLEObject = c:\winnt\system32\mci32.ocx

commandbutton
commandbuttonCommand3Form1�Top = 120
Left = 180
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Stop Video"
Name = "Command3"
;PROCEDURE Click
ThisForm.VCR.Command = "STOP"

ENDPROC
�� ���%bwq�UT�����STOP��UTHISFORMVCRCOMMANDClick,��1q20)�shapeshapeShape3Form1cTop = 13
Left = 132
Height = 83
Width = 208
BackStyle = 0
SpecialEffect = 0
Name = "Shape3"
labellabelLabel7Form1(FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
BackStyle = 0
Caption = "Click Play Video to play a video inside the ActiveX control on the form.  The Multimedia Player control is used to play the video."
Height = 60
Left = 144
Top = 24
Width = 184
TabIndex = 0
Name = "Label7"
labellabelLabel8Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 144
Top = 8
Width = 62
TabIndex = 0
Name = "Label8"
behindscenes..\solution.vcx
commandbuttonBehindscenesForm1-Top = 122
Left = 10
Name = "Behindscenes"
cmdclose..\solution.vcx
commandbuttonCmdcloseForm1*Top = 120
Left = 264
Name = "Cmdclose"
c_solutions..\solution.vcxcustomC_solutions1Form1-Top = 132
Left = 12
Name = "C_solutions1"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0

mmsample.h�?��(�DataSession = 2
Height = 151
Width = 345
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 3
Caption = "Play an AVI file in an ActiveX control "
MaxButton = .F.
HelpContextID = 1231588
Name = "Form1"