Mini Kabibi Habibi

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

}�VERSION =   3.00..\..\..\foxpro.hdataenvironmentdataenvironmentDataenvironmentaTop = 242
Left = 251
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
12frmsolution..\solution.vcxform	frmListDD�Height = 368
Width = 540
DoCreate = .T.
Caption = "OLE Drag and Drop Data Formats"
Visible = .T.
HelpContextID = 238
lastpage = 1
Name = "frmListDD"
C_solutions1.Top = 336
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 336
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 9
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 48
Shape2.Width = 516
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "This sample gives you data formats for OLE Drag Drop source data objects. Drop anything onto the image to see the data object formats in the listbox."
Label1.Height = 24
Label1.Left = 24
Label1.Top = 24
Label1.Width = 480
Label1.TabIndex = 10
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 12
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 336
Cmdclose1.Left = 456
Cmdclose1.TabIndex = 11
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"
DPROCEDURE Init
DODEFAULT()
Thisform.ClipboardFormats[  1, 1 ] = CF_TEXT
Thisform.ClipboardFormats[  1, 2 ] = "CF_TEXT"

Thisform.ClipboardFormats[  2, 1 ] = CF_BITMAP
Thisform.ClipboardFormats[  2, 2 ] = "CF_BITMAP"

Thisform.ClipboardFormats[  3, 1 ] = CF_METAFILEPICT
Thisform.ClipboardFormats[  3, 2 ] = "CF_METAFILEPICT"

Thisform.ClipboardFormats[  4, 1 ] = CF_SYLK
Thisform.ClipboardFormats[  4, 2 ] = "CF_SYLK"

Thisform.ClipboardFormats[  5, 1 ] = CF_DIF
Thisform.ClipboardFormats[  5, 2 ] = "CF_DIF"

Thisform.ClipboardFormats[  6, 1 ] = CF_TIFF
Thisform.ClipboardFormats[  6, 2 ] = "CF_TIFF"

Thisform.ClipboardFormats[  7, 1 ] = CF_OEMTEXT
Thisform.ClipboardFormats[  7, 2 ] = "CF_OEMTEXT"

Thisform.ClipboardFormats[  8, 1 ] = CF_DIB
Thisform.ClipboardFormats[  8, 2 ] = "CF_DIB"

Thisform.ClipboardFormats[  9, 1 ] = CF_PALETTE
Thisform.ClipboardFormats[  9, 2 ] = "CF_PALETTE"

Thisform.ClipboardFormats[ 10, 1 ] = CF_PENDATA
Thisform.ClipboardFormats[ 10, 2 ] = "CF_PENDATA"

Thisform.ClipboardFormats[ 11, 1 ] = CF_RIFF
Thisform.ClipboardFormats[ 11, 2 ] = "CF_RIFF"

Thisform.ClipboardFormats[ 12, 1 ] = CF_WAVE
Thisform.ClipboardFormats[ 12, 2 ] = "CF_WAVE"

Thisform.ClipboardFormats[ 13, 1 ] = CF_UNICODETEXT
Thisform.ClipboardFormats[ 13, 2 ] = "CF_UNICODETEXT"

Thisform.ClipboardFormats[ 14, 1 ] = CF_ENHMETAFILE
Thisform.ClipboardFormats[ 14, 2 ] = "CF_ENHMETAFILE"

Thisform.ClipboardFormats[ 15, 1 ] = CF_HDROP
Thisform.ClipboardFormats[ 15, 2 ] = "CF_HDROP"

Thisform.ClipboardFormats[ 16, 1 ] = CF_LOCALE
Thisform.ClipboardFormats[ 16, 2 ] = "CF_LOCALE"

Thisform.ClipboardFormats[ 17, 1 ] = CF_MAX
Thisform.ClipboardFormats[ 17, 2 ] = "CF_MAX"

Thisform.ClipboardFormats[ 18, 1 ] = CFSTR_HYPERLINK
Thisform.ClipboardFormats[ 18, 2 ] = "CFSTR_HYPERLINK"

Thisform.ClipboardFormats[ 19, 1 ] = CFSTR_BIFF
Thisform.ClipboardFormats[ 19, 2 ] = "CFSTR_BIFF"

Thisform.ClipboardFormats[ 20, 1 ] = CFSTR_BIFF3
Thisform.ClipboardFormats[ 20, 2 ] = "CFSTR_BIFF3"

Thisform.ClipboardFormats[ 21, 1 ] = CFSTR_BIFF4
Thisform.ClipboardFormats[ 21, 2 ] = "CFSTR_BIFF4"

Thisform.ClipboardFormats[ 22, 1 ] = CFSTR_BIFF5
Thisform.ClipboardFormats[ 22, 2 ] = "CFSTR_BIFF5"

Thisform.ClipboardFormats[ 23, 1 ] = CFSTR_BIFF7
Thisform.ClipboardFormats[ 23, 2 ] = "CFSTR_BIFF7"

Thisform.ClipboardFormats[ 24, 1 ] = CFSTR_BIFF8
Thisform.ClipboardFormats[ 24, 2 ] = "CFSTR_BIFF8"

Thisform.ClipboardFormats[ 25, 1 ] = CFSTR_XLTABLE
Thisform.ClipboardFormats[ 25, 2 ] = "CFSTR_XLTABLE"

Thisform.ClipboardFormats[ 26, 1 ] = CFSTR_CSV
Thisform.ClipboardFormats[ 26, 2 ] = "CFSTR_CSV"

Thisform.ClipboardFormats[ 27, 1 ] = CFSTR_WK1
Thisform.ClipboardFormats[ 27, 2 ] = "CFSTR_WK1"

Thisform.ClipboardFormats[ 28, 1 ] = CFSTR_RTF
Thisform.ClipboardFormats[ 28, 2 ] = "CFSTR_RTF"

Thisform.ClipboardFormats[ 29, 1 ] = CFSTR_RTFNOOBJS
Thisform.ClipboardFormats[ 29, 2 ] = "CFSTR_RTFNOOBJS"

Thisform.ClipboardFormats[ 30, 1 ] = CFSTR_RETEXTOBJ
Thisform.ClipboardFormats[ 30, 2 ] = "CFSTR_RETEXTOBJ"

Thisform.ClipboardFormats[ 31, 1 ] = CFSTR_OLEVARIANTARRAY
Thisform.ClipboardFormats[ 31, 2 ] = "CFSTR_OLEVARIANTARRAY"

Thisform.ClipboardFormats[ 32, 1 ] = CFSTR_OLEVARIANT
Thisform.ClipboardFormats[ 32, 2 ] = "CFSTR_OLEVARIANT"

Thisform.ClipboardFormats[ 33, 1 ] = CFSTR_VFPSOURCEOBJECT
Thisform.ClipboardFormats[ 33, 2 ] = "CFSTR_VFPSOURCEOBJECT"

Thisform.ClipboardFormats[ 34, 1 ] = "Shell IDList Array"
Thisform.ClipboardFormats[ 34, 2 ] = "Shell IDList Array"

Thisform.ClipboardFormats[ 35, 1 ] = "Shell Object Offsets"
Thisform.ClipboardFormats[ 35, 2 ] = "Shell Object Offsets"

Thisform.ClipboardFormats[ 36, 1 ] = "Net Resource"
Thisform.ClipboardFormats[ 36, 2 ] = "Net Resource"

Thisform.ClipboardFormats[ 37, 1 ] = "FileGroupDescriptor"
Thisform.ClipboardFormats[ 37, 2 ] = "FileGroupDescriptor"

Thisform.ClipboardFormats[ 38, 1 ] = "FileGroupDescriptorW"
Thisform.ClipboardFormats[ 38, 2 ] = "FileGroupDescriptorW"

Thisform.ClipboardFormats[ 39, 1 ] = "FileContents"
Thisform.ClipboardFormats[ 39, 2 ] = "FileContents"

Thisform.ClipboardFormats[ 40, 1 ] = "FileName"
Thisform.ClipboardFormats[ 40, 2 ] = "FileName"

Thisform.ClipboardFormats[ 41, 1 ] = "FileNameW"
Thisform.ClipboardFormats[ 41, 2 ] = "FileNameW"

Thisform.ClipboardFormats[ 42, 1 ] = "PrinterFriendlyName"
Thisform.ClipboardFormats[ 42, 2 ] = "PrinterFriendlyName"

Thisform.ClipboardFormats[ 43, 1 ] = "FileNameMap"
Thisform.ClipboardFormats[ 43, 2 ] = "FileNameMap"

Thisform.ClipboardFormats[ 44, 1 ] = "FileNameMapW"
Thisform.ClipboardFormats[ 44, 2 ] = "FileNameMapW"

Thisform.ClipboardFormats[ 45, 1 ] = "Preferred DropEffect"
Thisform.ClipboardFormats[ 45, 2 ] = "Preferred DropEffect"

Thisform.ClipboardFormats[ 46, 1 ] = CFSTR_URL
Thisform.ClipboardFormats[ 46, 2 ] = "CFSTR_URL"

ENDPROC
.�� ��%�_�U�
	��C��T������������#T����������CF_TEXT��T������������%T����������	CF_BITMAP��T������������+T����������CF_METAFILEPICT��T������������#T����������CF_SYLK��T������������"T����������CF_DIF��T������������#T����������CF_TIFF��T������������&T����������
CF_OEMTEXT��T������������"T����������CF_DIB��T����	������	��&T����	������
CF_PALETTE��T����
������
��&T����
������
CF_PENDATA��T������������#T����������CF_RIFF��T������������#T����������CF_WAVE��T����
������
��*T����
������CF_UNICODETEXT��T������������*T����������CF_ENHMETAFILE��T������������$T����������CF_HDROP��T������������%T����������	CF_LOCALE��T������������"T����������CF_MAX��%T����������	Hyperlink��+T����������CFSTR_HYPERLINK�� T����������Biff��&T����������
CFSTR_BIFF��!T����������Biff3��'T����������CFSTR_BIFF3��!T����������Biff4��'T����������CFSTR_BIFF4��!T����������Biff5��'T����������CFSTR_BIFF5��!T����������Biff7��'T����������CFSTR_BIFF7��!T����������Biff8��'T����������CFSTR_BIFF8��#T����������XlTable��)T����������
CFSTR_XLTABLE��T����������CSV��%T����������	CFSTR_CSV��T����������Wk1��%T����������	CFSTR_WK1��,T����������Rich Text Format��%T����������	CFSTR_RTF��<T���������� Rich Text Format Without Objects��+T����������CFSTR_RTFNOOBJS��5T����������RichEdit Text and Objects��+T����������CFSTR_RETEXTOBJ��-T����������OLE Variant Array��1T����������CFSTR_OLEVARIANTARRAY��'T���� ������OLE Variant��,T���� ������CFSTR_OLEVARIANT��-T����!������VFP Source Object��1T����!������CFSTR_VFPSOURCEOBJECT��.T����"������Shell IDList Array��.T����"������Shell IDList Array��0T����#������Shell Object Offsets��0T����#������Shell Object Offsets��(T����$������Net Resource��(T����$������Net Resource��/T����%������FileGroupDescriptor��/T����%������FileGroupDescriptor��0T����&������FileGroupDescriptorW��0T����&������FileGroupDescriptorW��(T����'������FileContents��(T����'������FileContents��$T����(������FileName��$T����(������FileName��%T����)������	FileNameW��%T����)������	FileNameW��/T����*������PrinterFriendlyName��/T����*������PrinterFriendlyName��'T����+������FileNameMap��'T����+������FileNameMap��(T����,������FileNameMapW��(T����,������FileNameMapW��0T����-������Preferred DropEffect��0T����-������Preferred DropEffect��2T����.������UniformResourceLocator��%T����.������	CFSTR_URL��UTHISFORMCLIPBOARDFORMATSInit,��1��1�Q���1�!�1�a�!�a�a�1�1�����A�Q�!R�aqqqqq2��Q�Q�Q��R��r����������BARQ��rq��"Q29)$lastpage
^clipboardformats[46,2] 
imageimageImg2	frmListDDxOLEDropMode = 1
Picture = button-blue.gif
BackStyle = 0
Height = 34
Left = 12
Top = 72
Width = 89
Name = "Img2"
�PROCEDURE OLEDragDrop
LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord
LOCAL i, nElements

Thisform.Lst1.Clear

nElements = alen( Thisform.ClipboardFormats,1)

FOR i = 1 to nElements
	IF oDataObject.GetFormat( Thisform.ClipboardFormats[ i, 1 ] )
		Thisform.Lst1.AddItem( Thisform.ClipboardFormats[ i, 2 ] )
	ENDIF
NEXT
ENDPROC
PROCEDURE OLEDragOver
LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState
LOCAL i, nElements

DO CASE
CASE nState == DRAG_ENTER
	nElements = alen( Thisform.ClipboardFormats,1)
	FOR i = 1 to nElements
		IF oDataObject.GetFormat( Thisform.ClipboardFormats[ i, 1 ] )
			This.Picture = "Button-Magenta.gif"
			This.OLEDropHasData = DROPHASDATA_USEFUL
			This.OLEDropEffects = DROPEFFECT_COPY + DROPEFFECT_LINK
			EXIT
		ENDIF
	NEXT
CASE nState == DRAG_LEAVE
	This.Picture = "Button-Blue.Gif"
ENDCASE

ENDPROC
�� ���%~F�U�������������
���	�
�T��C����������(������%�CC������������CC������	�
�����UODATAOBJECTNEFFECTNBUTTONNSHIFTNXCOORDNYCOORDI	NELEMENTSTHISFORMLST1CLEARCLIPBOARDFORMATS	GETFORMATADDITEM�������������
H�7���������T��C�	�
��������(������%�CC���	�
������"T��
��Button-Magenta.gif��T������T������!����������T��
��Button-Blue.Gif���UODATAOBJECTNEFFECTNBUTTONNSHIFTNXCOORDNYCOORDNSTATEI	NELEMENTSTHISFORMCLIPBOARDFORMATS	GETFORMATTHISPICTUREOLEDROPHASDATAOLEDROPEFFECTSOLEDragDrop,��OLEDragOver[��1���Rr��AA2���Qq�!AAA�A2]�)�listboxlistboxLst1	frmListDD�OLEDragMode = 1
FontName = "MS Sans Serif"
FontSize = 8
Height = 106
Left = 12
TabIndex = 3
Top = 120
Width = 180
IntegralHeight = .F.
Name = "Lst1"
checkboxcheckboxchkClearDataObject	frmListDD�Top = 240
Left = 12
Height = 15
Width = 192
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Clear \<DataObject before drop"
Value = .F.
TabIndex = 4
Name = "chkClearDataObject"

commandbutton
commandbuttonCmd1	frmListDD�Top = 72
Left = 120
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Clear List"
TabIndex = 2
Name = "Cmd1"
1PROCEDURE Click
Thisform.Lst1.Clear

ENDPROC
�� ���B%Wlf�U
�����UTHISFORMLST1CLEARClick,��1�2&)�	pageframe	pageframepgfDragSources	frmListDD�ErasePage = .T.
PageCount = 3
TabStretch = 0
OLEDragMode = 1
OLEDropMode = 1
TabStyle = 0
Top = 72
Left = 216
Width = 312
Height = 252
TabIndex = 5
Name = "pgfDragSources"
Page1.FontName = "MS Sans Serif"
Page1.FontSize = 8
Page1.Caption = "VFP Controls"
Page1.Name = "Page1"
Page2.FontName = "MS Sans Serif"
Page2.FontSize = 8
Page2.Caption = "Explorer"
Page2.Name = "Page2"
Page3.FontName = "MS Sans Serif"
Page3.FontSize = 8
Page3.Caption = "ActiveX Controls"
Page3.Name = "pagThree"
�PROCEDURE OLEDragOver
LPARAMETERS oDataObject, nEffect, nButton, nShift, nXCoord, nYCoord, nState

DO CASE
CASE nState == DRAG_ENTER
	IF nYCoord >= 15 and nYCoord <= 35
		DO CASE
		CASE nXCoord >= 300 and nXCoord <= 370
			This.ActivePage = 1
			Thisform.LastPage = 1
		CASE nXCoord >= 380 and nXCoord <= 465
			This.ActivePage = 2
			Thisform.LastPage = 2
		ENDCASE
	ENDIF

CASE nState == DRAG_OVER
	IF nYCoord >= 15 and nYCoord <= 35
		DO CASE
		CASE nXCoord >= 300 and nXCoord <= 370
			IF Thisform.LastPage <> 1
				This.ActivePage = 1
				Thisform.LastPage = 1
			ENDIF
		CASE nXCoord >= 380 and nXCoord <= 465
			IF Thisform.LastPage <> 2
				This.ActivePage = 2
				Thisform.LastPage = 2
			ENDIF
		ENDCASE
	ENDIF

ENDCASE

ENDPROC
PROCEDURE Page2.Init
THIS.WebBrowser.Navigate2(HOME())

ENDPROC
PROCEDURE Page2.Activate
THIS.WebBrowser.SetFocus()

ENDPROC
�� ��x%�g#!�U����������
H�,����������%������#	����
H�f������,�	��r	����T������T�	�
�������|�	���	����T������T�	�
�������������%������#	����
H�$������,�	��r	��z�%��	�
���v�T������T�	�
��������|�	���	����%��	�
�����T������T�	�
��������UODATAOBJECTNEFFECTNBUTTONNSHIFTNXCOORDNYCOORDNSTATETHIS
ACTIVEPAGETHISFORMLASTPAGE��CC�Q�����UTHIS
WEBBROWSER	NAVIGATE2��C�����UTHIS
WEBBROWSERSETFOCUSOLEDragOver,��
Page2.Initv��Page2.Activate���1������AA���AA�AAAAB3132�?$!d�()�textboxtextboxText1frmListDD.pgfDragSources.Page1�OLEDragMode = 1
FontName = "MS Sans Serif"
FontSize = 8
Value = AAABBBCCC
Height = 23
Left = 23
Top = 20
Width = 100
Name = "Text1"

commandbutton
commandbuttonCommand1frmListDD.pgfDragSources.Page1�OLEDragMode = 1
Top = 20
Left = 143
Height = 27
Width = 84
FontName = "MS Sans Serif"
FontSize = 8
Caption = "FoxPro"
Name = "Command1"
labellabelLabel1frmListDD.pgfDragSources.Page1�OLEDragMode = 1
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "AAABBBBCCC"
Height = 17
Left = 155
Top = 68
Width = 40
Name = "Label1"
listboxlistboxList1frmListDD.pgfDragSources.Page1�OLEDragMode = 1
FontName = "MS Sans Serif"
FontSize = 8
Height = 122
Left = 23
MultiSelect = .T.
Top = 56
Width = 100
Name = "List1"
oPROCEDURE Init
THIS.AddItem("AAA")
THIS.AddItem("BBB")
THIS.AddItem("CCC")
THIS.AddItem("DDD")

ENDPROC

�� ����%����UO��C�AAA������C�BBB������C�CCC������C�DDD����UTHISADDITEMInit,��111112d)�
olecontrol
olecontrol
webbrowserfrmListDD.pgfDragSources.Page2DTop = 8
Left = 11
Height = 204
Width = 288
Name = "webbrowser"

��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry�����������2�@OleObjectData�����AccessObjSiteData&������������8ChangedProps������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������a�V�
4��k�O��L�L88.SCT�2�X#� calvin.scx�1�"�Ff��Ws5��i+.bL�F� ff.VCX%	���#� t.BAK2P+#�� �Myform3.scx	2/+#�� �Myform3.sct
pp#� MYREPORT3.FRXMYREPO~1.FRX
)2h#� MYREPORT3.+OLEObject = C:\WINNT\System32\shdocvw.dll

olecontrol
olecontrolOlecontrol1!frmListDD.pgfDragSources.pagThreeDTop = 8
Left = 11
Height = 48
Width = 132
Name = "Olecontrol1"
lPROCEDURE Init
#DEFINE RICHTEXT_LOC	"Here is some rich text."
THIS.Object.Text = RICHTEXT_LOC

ENDPROC
�� ��94%q��U-*T�����Here is some rich text.��UTHISOBJECTTEXTInit,��1�2a)���ࡱ�>��	��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry����������
�2�OleObjectData�����AccessObjSiteData&������������OChangedProps���������������������	
������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������`�|;�����!C4�
�!C4-������O8 qhj ZtuQha;jdfn[iaetr (exU#�� ss.VCX
2*r#� fo�Appearance	I

BulletIndentN
DisableNoScrollLRightMarginN
ScrollBars	I

AutoVerbMenuLon�
{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss MS Sans Serif;}}
{\colortbl\red0\green0\blue0;}
\deflang1033\horzdoc{\*\fchars }{\*\lchars }\pard\plain\f2\fs17 Olecontrol1
\par }
.R�������K�Q�DB
MS Sans Serif-��  %��,OLEObject = C:\WINNT\System32\richtx32.ocx

olecontrol
olecontrolOlecontrol3!frmListDD.pgfDragSources.pagThreeGTop = 12
Left = 155
Height = 100
Width = 132
Name = "Olecontrol3"
kPROCEDURE Init
LOCAL i
for i= 1 to 4
	this.listitems.add(,,"ListviewItem"+TRANS(m.i))
endfor
ENDPROC
�� ���%����UN��������(����G�)��C���ListviewItemC�
�_�������UITHIS	LISTITEMSADDInit,��1qq�A1`)���ࡱ�>��	��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry����������
�2�@OleObjectData�����AccessObjSiteData&������������\ChangedProps���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������K�ѽ����j��(6(!C4�
V
N}�&&�
�ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1�6���Arrange	I

LabelEdit	I

MousePointer	I
View	I
OLEDragMode	I
CheckboxesLHotTrackingLHo�����	`!R�������K�Q�DB
MS Sans SerifverSelectionLSymbolUnkn�
l�`` "!   �� #�SymbolSymbolSy,OLEObject = C:\WINNT\System32\mscomctl.ocx

olecontrol
olecontrolOlecontrol2!frmListDD.pgfDragSources.pagThreeFTop = 72
Left = 11
Height = 100
Width = 132
Name = "Olecontrol2"
yPROCEDURE Init
LOCAL i
for i= 1 to 4
	this.nodes.add(,,"TreeviewItem"+TRANS(m.i),"Item"+TRANS(m.i))
endfor
ENDPROC
�� �%����U]��������(����V�8��C���TreeviewItemC�
�_�ItemC�
�_�������UITHISNODESADDInit,��1qq�A1n)
��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry����������
�2��OleObjectData�����AccessObjSiteData&������������\ChangedProps������������W������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Alj���j��(6(!C4�
V
�<�j"��1��ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1}Microsoft Date a�
LabelEdit	I

LineStyle	I
OLEDragMode	I
E-87C4-11D1-8BE3-000�cw���\����R�������K�Q�DB
MS Sans Serifol, version 6.0	{FE38753A-44A3-11D1-B5B7-0000C09000C4},OLEObject = C:\WINNT\System32\mscomctl.ocx
sArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
..\..\..\foxpro.h�3�R�,�Height = 368
Width = 540
DoCreate = .T.
Caption = "OLE Drag and Drop Data Formats"
Visible = .T.
HelpContextID = 1231623
lastpage = 1
Name = "frmListDD"
C_solutions1.Top = 336
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 336
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 9
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 48
Shape2.Width = 516
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "This sample gives you data formats for OLE Drag Drop source data objects. Drop anything onto the image to see the data object formats in the listbox."
Label1.Height = 24
Label1.Left = 24
Label1.Top = 24
Label1.Width = 480
Label1.TabIndex = 10
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 12
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 336
Cmdclose1.Left = 456
Cmdclose1.TabIndex = 11
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"