Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/europa/

Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/europa/europa.vct

VERSION =   3.00%mycontrolsource
*backstyle_access 
�� ��"R%����U$T���C����B�����UTHIS
PICTUREVALMYCONTROLSOURCE	BACKSTYLEbackstyle_access,��1Q�2e)�pPROCEDURE backstyle_access
THIS.PictureVal = EVALUATE(THIS.myControlSource)
RETURN THIS.BackStyle

ENDPROC
Pixels	gridimageimage1Classimage	gridimageaStretch = 2
BackStyle = 0
Height = 130
Width = 178
mycontrolsource = .F.
Name = "myimages"
mptifflistenerPixelsClass1reportlistenermptifflistener#lfirstreportinset
targetfilename
��� nn��%���UT������
��UTHISLFIRSTREPORTINSETCOMMANDCLAUSESNOPAGEEJECT�/�����������	�
�%���������%������	��k�
T���e�����T���������C������
�����UNPAGENOEDEVICENDEVICETYPENLEFTNTOPNWIDTHNHEIGHT	NCLIPLEFTNCLIPTOP
NCLIPWIDTHNCLIPHEIGHTTHISLFIRSTREPORTINSET
OUTPUTPAGETARGETFILENAMEAfterReport,��
OutputPage���1�3�6����A�AA2q��)n�PROCEDURE AfterReport
*Handles Chained reports
THIS.lFirstReportInSet = NOT (THIS.CommandClauses.NoPageEject)

ENDPROC
PROCEDURE OutputPage
LPARAMETERS nPageNo, eDevice, nDeviceType, nLeft, nTop, nWidth, nHeight, nClipLeft, nClipTop, nClipWidth, nClipHeight

#define OutputNothing -1
#define OutputTIFF 101
#define OutputTIFFAdditive (OutputTIFF+100)

IF (nDeviceType == OutputNothing)
     IF (nPageNo == 1 AND this.lFirstReportInSet)
        nDeviceType = OutputTIFF &&On the first page, create a new TIFF file
     ELSE 
        nDeviceType = OutputTIFFAdditive
     ENDIF
     THIS.OutputPage(nPageNo, this.targetFilename, nDeviceType)
     NODEFAULT
ENDIF

ENDPROC
�Height = 23
Width = 23
ListenerType = 2
FRXDataSession = -1
lfirstreportinset = .T.
targetfilename = MyTIFF
Name = "mptifflistener"
reportlistener