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/outline.sct

4<VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12formformForm1�DataSession = 2
Top = 0
Left = -1
Height = 260
Width = 560
DoCreate = .T.
BorderStyle = 2
Caption = "Controls for Outlining"
MaxButton = .F.
LockScreen = .F.
HelpContextID = 106
Name = "Form1"
�PROCEDURE filltree
PARAMETERS m.path, m.nlevel, m.nCount

LOCAL DirArr,i,nTotDir,lvl,pkey
m.path = ALLTRIM(m.path)

IF PARAMETERS()<2 OR TYPE("m.nlevel") #"N"
	lvl = 0
ELSE
	lvl = m.nlevel
ENDIF

IF PARAMETERS()<2 OR TYPE("m.nCount") #"N"
	cnt = 0
ELSE
	cnt = m.nCount
ENDIF
 
lvl = lvl + 1
cnt = cnt + 1

pkey = LOWER(SUBSTR(m.path,1,RAT("\",m.path,2)))+"_"

* Add items to treeview control
o = THIS.oleTreeview
IF cnt = 1
	oNode = o.nodes.add(,1,LOWER(m.path)+"_",LOWER(m.path),,)
	oNode.Image = "world"
ELSE
	oNode = o.nodes.add(m.pkey,4,LOWER(m.path)+"_",LOWER(m.path),,)
ENDIF

DIMENSION DirArr[1,1]
nTotDir=ADIR(DirArr,m.path+"*.","D")
ASORT(DirArr)

FOR i = 1 TO m.nTotDir
	IF DirArr[m.i,1] != '.' AND ATC('D',DirArr[m.i,5])#0
		THIS.FillTree(m.path+DirArr[m.i,1]+'\', m.lvl, m.cnt)
	ENDIF
ENDFOR

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 installed and loaded.
IF TYPE("THIS.oleTreeview") # "O" OR ISNULL(THIS.oleTreeview)
	RETURN .F.
ENDIF

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

THIS.oleTreeview.ImageList = THIS.oleImagesList
ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
�� ��+�%�H5��U�4�
��
��
���������T�
��C�
����&%�C�
�C�m.nlevelb�N��r�
T��������T���
����&%�C�
�C�m.nCountb�N����
T��������T���
����T������T������)T��CC�
��C�\�
���\@�_��T�	��
���%�������-T��C�C�
�@�_C�
�@���	�
���T����world�����2T��C�
��C�
�@�_C�
�@���	�
������������!T��C���
��*.�D���
��C���������(��
�����7%�C�
����.�C�DC�
�����	����1��C�
�C�
����\�
��
��
������UPATHNLEVELNCOUNTDIRARRINTOTDIRLVLPKEYCNTOTHISOLETREEVIEWONODENODESADDIMAGEFILLTREE��%�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�����0%�C�THIS.oleTreeviewb�O�	C�����=�B�-���2%�C�THIS.oleImagesListb�O�	C�����z�B�-���T��������UTHISSETALLOLETREEVIEW
OLEIMAGESLIST	IMAGELIST
�����UTHISC_SOLUTIONS1SAVEHELP9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELPfilltree,��Init8��Activate��
Deactivate:��1Qr1b���Ab���A��Q�!A2��qAA3d	��A�qA#qAb2�2Q�A1M!h�,/�D19�G)�*filltree 

commandbutton
commandbutton	cmdGetDirForm1�Top = 229
Left = 357
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Directory..."
TabIndex = 4
Name = "cmdGetDir"
�PROCEDURE Click
LOCAL cDir

cDir = GETDIR()
IF EMPTY(m.cDir)
	RETURN
ENDIF

THISFORM.Text1.Value = m.cDir
THISFORM.OleTreeview.Nodes.Clear
THISFORM.FillTree(m.cDir)
ENDPROC
`�� GGґ%��
��Uh���
T��C�3��%�C�
����)�B��T�����
�����������C�
�����UCDIRTHISFORMTEXT1VALUEOLETREEVIEWNODESCLEARFILLTREEClick,��1q�AAR11�)Gbehindscenes..\solution.vcx
commandbutton
Behindscenes1Form1<Top = 229
Left = 12
TabIndex = 2
Name = "Behindscenes1"
c_solutions..\solution.vcxcustomC_solutions1Form1FTop = 233
Left = 48
Height = 18
Width = 25
Name = "C_solutions1"
textboxtextboxText1Form1�FontName = "MS Sans Serif"
FontSize = 8
Enabled = .F.
Height = 23
Left = 55
TabIndex = 3
Top = 229
Width = 301
DisabledForeColor = 0,0,0
Name = "Text1"
cmdclose..\solution.vcx
commandbutton	Cmdclose1Form1RTop = 229
Left = 477
Height = 23
Width = 72
TabIndex = 5
Name = "Cmdclose1"
shapeshapeShape2Form1bTop = 13
Left = 11
Height = 33
Width = 539
BackStyle = 0
SpecialEffect = 0
Name = "Shape2"
labellabelLabel4Form1�FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "Click on Directory to choose a directory and create an outline of its subdirectories."
Height = 16
Left = 20
Top = 24
Width = 502
TabIndex = 0
Name = "Label4"
labellabelLabel5Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 18
Top = 7
Width = 62
TabIndex = 0
Name = "Label5"

olecontrol
olecontrol
oleImagesListForm1GTop = 12
Left = 504
Height = 45
Width = 65
Name = "oleImagesList"
��ࡱ�>��	��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry���������2�B���OleObjectData�����AccessObjSiteData&������������\ChangedProps������������=��������	��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������#$,����j��(6(!C4���~��/������ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1�ImageHeight	I
ImageWidth	I
�����worldlt*BM*v(���������������������������������������p�����~�'�����r~���~�''&�����rrv����''''����rrr����'''''���r��r��~ ��'���rrr����~'''����p�������������������������������������������������������������������������������������������������������������������������������������������������,OLEObject = C:\WINNT\System32\mscomctl.ocx

olecontrol
olecontrololeTreeviewForm1FTop = 60
Left = 12
Height = 159
Width = 528
Name = "oleTreeview"
�PROCEDURE LostFocus
ON KEY LABEL F1
ENDPROC
PROCEDURE GotFocus
ON KEY LABEL F1 HELP ID _SCREEN.ActiveForm.HelpContextID
ENDPROC
'�� ��%����U{2�F1��UF19612�F1�(HELP ID _SCREEN.ActiveForm.HelpContextID�UF1	LostFocus,��GotFocusE��1�2a1$C{)
��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry���������2�B���OleObjectData�����AccessObjSiteData&������������\ChangedProps������������)����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Alj���j��(6(!C4�6o�<�j"�����ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1}Microsoft Date a�IndentationN
0@l, version �@�\��I�R�������K�Q�DB
MS Sans Serif Microsoft TreeView Control, version 6.0 object into your document.t.7-0000C09000C4},OLEObject = C:\WINNT\System32\mscomctl.ocx
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Top = 0
Left = -1
Height = 260
Width = 560
DoCreate = .T.
BorderStyle = 2
Caption = "Controls for Outlining"
MaxButton = .F.
LockScreen = .F.
HelpContextID = 1231537
Name = "Form1"