Content Supported by Sourcelens Consulting

��� *���-�%I�%�i��$��%�C�solution.scx0
��q�T��C��]��T��C�:����T��C�\�����G(�C���\���T��C�ERROR���1�DO SolutionErrHandle��solution�9��ON ERROR &cOldError
UCCURRENTPROCEDURE
NPATHSTART
NLENOFPATH	COLDERRORSOLUTION����
H�����C,�����c��C�Error: CEC�
 �@A form cannot simultaneously be open in design mode and running.�0�x���C,����7����C�Error: CEC�
 �2One of the necessary files is marked as read-only.C�
 �<Please make sure you have read and write access to the file.�0�x��X��C,�Y��^����solution�2���*T��C�Error: CCC,Z�C�
 CE�1�x��%�������ON ERROR &cOldError
���<����ULNCHOICESOLUTIONUUUUSolutionErrHandle>��MAINHWND-��	_WHTOHWND4��_WONTOP;��GetFileVersionB���!q�AAV�Qs3q�2�	Aa��qQQQQAA51111�f%!��F"��G#��H$��IBMv(������������������������������������������������9�����"" ����������������9���������������p	9�����9�����������������999��91�������������09	9999������������99999999�������������99999999�����������������199999991��񓓓����������9999999��"" 񛓓���������9919�1�������񓛑�99�����99�H���������D1�������������������������������BM�>(h�������������?���р��������������������������������I���������BMvv(  ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������BMvv(  �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  0( @���
�U���	�Cf~~��~|xp`@�����������������|��������� ��d��8��������������?����������������������?���������������������������������  0( @���� C�� � D� �@A@B"@DB@H�@1@"���1C� ���������������������������������������������?�>?�<?�8<?�0|?��?�������������������������������������������BM�v(���������������������������������������������������������������������������������������������������������������������������������������������BM�v(x��������������������������������������wx������x����x��������x��x���x�����������EUX����X������X�����X��x��xX������������������������BM�v(��������������������������������������������������������������������������������������������������������������������������������������������������BM�v(x���������������������������������������������������������������������������������������������������������������������������BM�v(����������������������������������������������������������������������������������������������������������������������������������������������BM�v(���������������������������������������������������������������������������������������������������������������������������������������������BM�v(x�����������������������������������������������������wpw�p����������������������p����wpw�������������������������BM�v(x�����������������������������px���p��x�������������������������������������������������p����x���px���������������BM�v(�����������������������������������������������������������������������������������������BM�v(�����������������������������������������������������������������������������������������BM�v(�����������������������������������������������������������������������������������������BM�v(�����������������������������������������������������������������������������������������0bmPLATFORMCUNIQUEIDC	
TIMESTAMPN
CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi
 COMMENT Screen               WINDOWS _R8C0YJACG 547204541/F]�� WINDOWS _R8C0YJACQ 611358580����� WINDOWS _R980X8VQR 611358580lz��� WINDOWS _R980X8VQS 6113585806DRax WINDOWS _RB90WULHA 611358580��, WINDOWS _RB90X15BW 611358580���� WINDOWS _R7I13CW81 611358580�����P�< WINDOWS _RAH0OR73R 550736252���� WINDOWS _RAH0OR744 550791607\iv�� WINDOWS _R8C0YJACG 548430283er�� WINDOWS _R7I13CWB6 548430283�-> WINDOWS _R7J0L510G 548430283Sfz��� WINDOWS _R7J0L510V 553027776&:Odu�r WINDOWS _R7J15YJPQ 554140651�������� WINDOWS _R7J15YJQC 6084712350$E$Z$h$y$0%=w WINDOWS _R7J15YJQZ 553027776�,�,�,�,�,�-�" WINDOWS _R8C0YJACQ 548430283�.�.�.�.�. WINDOWS _R7V0X3DC3 611358580�/�/��/�/ WINDOWS _RT514CTQM 611358454�0�0
11:1�1)�6�@ WINDOWS _RT514CTQW 611358262�@AA+AIA�A�m WINDOWS _R7V0X3DY6 553027776�m�m�m�6n�nj! WINDOWS _R7V0X3DX6 553027776�6�.$s,�-�+, WINDOWS _R7V0XEPQZ 553027776
$�#�#�#Ds\t]o WINDOWS _R7V0XEPS8 553027776�#�#�##�z�{J WINDOWS _R7V0XEPTF 550405607{h\+d}�3� COMMENT RESERVED            ��|VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentKLeft = 31
Top = 239
Width = 527
Height = 164
Name = "Dataenvironment"
cursorcursorCursor1DataenvironmentrLeft = 20
Top = 10
Width = 90
Height = 90
Alias = "solutions"
CursorSource = solution.dbf
Name = "Cursor1"
cursorcursorCursor2Dataenvironment�Left = 227
Top = 12
Width = 90
Height = 89
Alias = "reftext"
Order = "text"
CursorSource = reftext.dbf
Name = "Cursor2"
cursorcursorCursor3DataenvironmentjLeft = 124
Top = 11
Width = 90
Height = 89
Alias = "xref"
CursorSource = xref.dbf
Name = "Cursor3"
cursorcursorCursor4Dataenvironment�Left = 333
Top = 14
Width = 95
Height = 90
Alias = "customer"
Database = ..\data\testdata.dbc
CursorSource = "customer"
Name = "Cursor4"
cursorcursorCursor6DataenvironmentwLeft = 438
Top = 9
Width = 95
Height = 90
Alias = "country"
CursorSource = ..\data\country.dbf
Name = "Cursor6"
62formform	solutions�DataSession = 2
Top = -1
Left = 1
Height = 298
Width = 529
DoCreate = .T.
ShowTips = .T.
BorderStyle = 2
Caption = "Visual FoxPro Solutions"
MaxButton = .F.
Name = "solutions"
kPROCEDURE filltree
o = THIS.pgf1.pagTree.oleTree
o.ImageList = THIS.pgf1.pagTree.oleImages
SCAN
	IF ALLTRIM(parent) = '0'
		oNode = o.nodes.add(,1,ALLTRIM(key),ALLTRIM(text),,)
	ELSE
		oNode = o.nodes.add(ALLTRIM(parent),4,ALLTRIM(key), ALLTRIM(text),,)
	ENDIF
	* add images to the treeview
	IF !empty(image)
		oNode.Image = ALLTRIM(image)
	ENDIF
ENDSCAN
o.Sorted = .T.

ENDPROC
PROCEDURE Deactivate
IF THISFORM.keepHelp = .F. THEN	
	IF TYPE('THIS.C_SOLUTIONS1') = "O" THEN
		THIS.C_SOLUTIONS1.RESTOREHELP
	ENDIF
ENDIF
ENDPROC
PROCEDURE Activate
this.c_solutions1.saveHelp
ENDPROC
PROCEDURE Init
#DEFINE NOLOADOCX_LOC	"Visual FoxPro could not load ActiveX controls used by this form. Try reinstalling sample applications."

* Check to see if OCX installed and loaded.
IF TYPE("THIS.pgf1.pagTree.oleImages") # "O" OR ISNULL(THIS.pgf1.pagTree.oleImages)
	MESSAGEBOX(NOLOADOCX_LOC)
	RETURN .F.
ENDIF
IF TYPE("THIS.pgf1.pagTree.oleTree") # "O" OR ISNULL(THIS.pgf1.pagTree.oleTree)
	MESSAGEBOX(NOLOADOCX_LOC)
	RETURN .F.
ENDIF

THIS.filltree
ENDPROC
PROCEDURE Destroy
CLEAR EVENTS

ENDPROC
-��� ��%c���UT�������UTHISFORMPGF1
ACTIVEPAGEO���T��������%����������C�All��������C�-1������T������F����	���(�CN������C��
�	������!��CCC��Z��	������H����@o�SOLUTION���
����
�����N����
����
�����������T������T�������ULOTHISFORMPGF1PAGLIST	CBOFILTER	LISTCOUNTADDLISTITEM	LISTINDEXREFTEXTITEXTXREF_IDSOLUTIONKEYTYPEASAMPLESPARENT
LSTSAMPLESREQUERY
ACTIVEPAGE
optTree.Click,��
optList.Clickb��112qaB��ra�AAA115Y�)>��� %%A%����UQT�������������(������J�T�������a����U	OTHISFORMPGF1PAGTREEOLETREEINODESCOUNTEXPANDEDClick,��1a�qA1r)%���� ��^�%:OI�U
$��UClick,��1q1)�	solutions�keephelp Specifies whether to return to FoxHelp on deactive or not.
*filltree fill the oletree tree view control
^asamples[1,2] 
shapeshapeShape2	solutionsSTop = 12
Left = 9
Height = 211
Width = 429
SpecialEffect = 0
Name = "Shape2"
labellabelLabel2	solutions�AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Solution Samples "
Height = 15
Left = 16
MousePointer = 7
Top = 7
Width = 89
TabIndex = 1
Name = "Label2"
shapeshapeShape1	solutionsSTop = 233
Left = 9
Height = 56
Width = 429
SpecialEffect = 0
Name = "Shape1"
editboxeditboxedtDescription	solutions
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BorderStyle = 0
Height = 43
Left = 15
ReadOnly = .T.
ScrollBars = 0
TabIndex = 0
TabStop = .F.
Top = 240
Width = 416
ControlSource = "solutions.descript"
IntegralHeight = .T.
Name = "edtDescription"
c_solutionssolution.vcxcustomC_solutions1	solutions]Top = 258
Left = 476
Height = 18
Width = 25
autosetdefault = .T.
Name = "C_solutions1"
behindscenessolution.vcx
commandbutton
Behindscenes1	solutions=Top = 266
Left = 494
TabIndex = 6
Name = "Behindscenes1"
 PROCEDURE Click
HELP
ENDPROC
rArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Courier New, 0, 11, 9, 17, 13, 18, 4, 0
opg1optiongroupoptiongrouppgf1
commandbutton
commandbuttoncmdRun	solutions�Top = 12
Left = 447
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Run Sample"
Default = .T.
Enabled = .F.
TabIndex = 3
Name = "cmdRun"
�PROCEDURE Error
#DEFINE ERR_VIEWMESS_LOC	"Could not run view sample: "

LPARAMETERS nError, cMethod, nLine
IF solutions.type = "V"
	MESSAGEBOX(ERR_VIEWMESS_LOC+MESSAGE())
	RETURN
ENDIF
ENDPROC
PROCEDURE Click

THISFORM.Visible = .F.
DO CASE
	CASE solutions.type = "F" && form
		DO FORM (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file))
	CASE solutions.type = "R" && report
		THISFORM.keepHelp = .T.
		ON KEY LABEL F1 HELP ID (VAL(solutions.key))
		REPORT FORM (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file)) PREVIEW NOCONSOLE
		THISFORM.Visible = .T.
	CASE solutions.type = "Q" && query
		THISFORM.keepHelp = .T.
		ON KEY LABEL F1 HELP ID (VAL(solutions.key))
		#DEFINE TITLE_LOC "Results of Query "
		DEFINE WINDOW brow_wind FROM 1,1 TO 30, 100 TITLE TITLE_LOC + UPPER(ALLTRIM(file))+ ".QPR " ;
			FLOAT GROW MINIMIZE ZOOM CLOSE FONT "Arial",10
		ACTIVATE WINDOW brow_wind NOSHOW
		DO (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file) + ".QPR")
		RELEASE WINDOW brow_wind
		THISFORM.Visible = .T.
	CASE solutions.type = "V" && view
		THISFORM.keepHelp = .T.
		ON KEY LABEL F1 HELP ID (VAL(solutions.key))
		#DEFINE TITLE2_LOC "Results of View "
		DEFINE WINDOW brow_wind FROM 1,1 TO 30, 100 TITLE TITLE2_LOC + UPPER(ALLTRIM(file)) ;
			FLOAT GROW MINIMIZE ZOOM CLOSE FONT "Arial",10
		ACTIVATE WINDOW brow_wind NOSHOW
		SET DATABASE TO testdata
		SELECT 0
		USE (ALLTRIM(solutions.file)) ALIAS _VIEW
		IF !EMPTY(ALIAS())
			* We had no error opening table
			BROWSE
			RELEASE WINDOW brow_wind
			USE
		ENDIF
		SELECT solutions
		THISFORM.Visible = .T.
ENDCASE
ON KEY LABEL F1
THISFORM.keepHelp = .F.
ENDPROC
��� ��0,%��	��U�%����-1��P�:o�SOLUTION������������N������������ao�solution�������������#�xref��������	C��g����������������
���T��
��
����UTHISVALUESOLUTIONTEXTKEYTYPETHISFORMASAMPLESXREFXREF_IDPARENT
LSTSAMPLESREQUERY	LISTINDEXInteractiveChange,��1a��Aa3�)�>��� %%A%����UQT�������������(������J�T�������-����U	OTHISFORMPGF1PAGTREEOLETREEINODESCOUNTEXPANDEDClick,��1a�qA1t)%���� ����%Pe_�U

����UTHISFORMRELEASEClick,��1�2#)�solutions.pgf1.pagList	cboFiltercomboboxcomboboxsolutions.pgf1.pagList
lstSampleslistboxlistboxcmdExpandAll
commandbutton
commandbuttoncmdSee	solutions�Top = 40
Left = 447
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<See Code"
Enabled = .F.
TabIndex = 4
Name = "cmdSee"
�PROCEDURE Click
LOCAL lcPath
THISFORM.Visible = .F.
ON KEY LABEL F1 HELP ID (VAL(solutions.key))
* Need to set path to FFC for classes that are referenced there
IF ATC("FFC",SET("PATH"))=0
	lcPath = SET("PATH")
	SET PATH TO (SET("PATH"))+";"+(HOME()+"FFC\")	
ENDIF

DO CASE
	CASE solutions.type = "F" && form
		IF !EMPTY(solutions.method)
			cMacro = solutions.method
			MODIFY FORM (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file)) ;
				METHOD &cMacro
		ELSE
			MODIFY FORM (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file))
		ENDIF
	CASE solutions.type = "R" && report
		MODIFY REPORT (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file))
	CASE solutions.type = "Q" && query
		MODIFY QUERY (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file))
	CASE solutions.type = "V" && view
		SET DATABASE TO testdata
		MODIFY VIEW ALLTRIM(solutions.file)
		SELECT solutions
ENDCASE
THISFORM.Visible = .T.
ON KEY LABEL F1
SET PATH TO &lcPath.
ENDPROC
���� ����%�7�U����F��-������%�C����P�T����-��T����-���z�T����a��T����a���
����U	NODE	SOLUTIONSKEYFILETHISFORMCMDRUNENABLEDCMDSEEREFRESH4%������-�
�����
������UTHISFORMCMDRUNENABLEDSETFOCUSCLICK{2�F1��UF19612�F1�(HELP ID _SCREEN.ActiveForm.HelpContextID�UF1	NodeClick,��DblClick��	LostFocusg��GotFocus���1rq��A�22��A2�2a1 
?���8)�}PROCEDURE Click
o = THISFORM.pgf1.pagTree.oleTree
FOR i = 1 TO o.Nodes.Count
	o.Nodes(i).Expanded = .T.
ENDFOR
ENDPROC
solutions.pgf1.pagTree
commandbutton
commandbuttoncmdQuit	solutions�Top = 80
Left = 447
Height = 23
Width = 72
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Cancel = .T.
Caption = "\<Close"
TabIndex = 5
Name = "cmdQuit"
.PROCEDURE Click
THISFORM.Release

ENDPROC
�Top = 9
Left = 382
Height = 18
Width = 15
FontBold = .F.
FontName = "Courier New"
FontSize = 11
Caption = "+"
TabIndex = 2
ToolTipText = "Expand All"
Name = "cmdExpandAll"

commandbuttonlabellabellblDescription	solutions�AutoSize = .T.
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Description "
Height = 15
Left = 16
MousePointer = 7
Top = 228
Width = 61
TabIndex = 0
Name = "lblDescription"
	pageframe	pageframe	solutions�ErasePage = .T.
PageCount = 2
BorderWidth = 0
Top = 20
Left = 13
Width = 419
Height = 200
SpecialEffect = 2
Tabs = .F.
TabIndex = 2
Name = "pgf1"
Page1.Caption = "Page1"
Page1.Name = "pagTree"
Page2.Caption = "Page2"
Page2.Name = "pagList"

olecontrol
olecontrololeTreesolutions.pgf1.pagTreePTop = 28
Left = 11
Height = 168
Width = 396
TabIndex = 1
Name = "oleTree"
CPROCEDURE NodeClick
*** ActiveX Control Event ***
LPARAMETERS node
SELECT SOLUTIONS
LOCATE FOR Key = node.Key
IF EMPTY(file)
	THISFORM.cmdRun.Enabled = .F.
	THISFORM.cmdSee.Enabled = .F.
ELSE
	THISFORM.cmdRun.Enabled = .T.
	THISFORM.cmdSee.Enabled = .T.
ENDIF
THISFORM.Refresh
ENDPROC
PROCEDURE DblClick
*** ActiveX Control Event ***
IF THISFORM.cmdRun.Enabled
	THISFORM.cmdRun.SetFocus
	THISFORM.cmdRun.Click
ENDIF
ENDPROC
PROCEDURE LostFocus
ON KEY LABEL F1
ENDPROC
PROCEDURE GotFocus
ON KEY LABEL F1 HELP ID _SCREEN.ActiveForm.HelpContextID
ENDPROC
�PROCEDURE optTree.Click
THISFORM.pgf1.ActivePage = 1
ENDPROC
PROCEDURE optList.Click
LOCAL lo
lo = THISFORM.pgf1.pagList.cboFilter

IF lo.ListCount = 0
	#DEFINE ALL_LOC "All"
	lo.AddListItem(ALL_LOC, 1, 1)
	lo.AddListItem("-1", 1, 2)
	lo.ListIndex = 1

	SELECT reftext
	FOR i = 1 TO RECCOUNT()
		lo.AddListItem(reftext.text, i + 1, 1)
		lo.AddListItem(ALLTRIM(STR(reftext.xref_id)), i + 1, 2)
		SKIP
	ENDFOR
ENDIF

SELECT solution.text, solution.key ;
	FROM SOLUTION ;
	WHERE type != "N" ;
    GROUP BY text ;
	ORDER BY text ;
	INTO ARRAY THISFORM.aSamples
	
lo.Parent.lstSamples.Requery
lo.ListIndex = 1
THISFORM.pgf1.ActivePage = 2
ENDPROC

commandbuttonsolutions.pgf1.pagTree
��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry���������7B�PQ��OleObjectData����~AccessObjSiteData&������������\ChangedProps�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Alj���j��(6(!C4�(]�<�j"=;HW�ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1<r-�HideSelectionLIndentationN
4@
LabelEdit	I

LineStyle	I
BorderStyle	I
CheckboxesL(�r�T�\��\�Nodsdv6L��X&�@t9,OLEObject = C:\WINNT\System32\MSCOMCTL.OCX

olecontrol
olecontrol	oleImagessolutions.pgf1.pagTreeFTop = 136
Left = 347
Height = 100
Width = 100
Name = "oleImages"
,��ࡱ�>��	��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������	
��������
��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry���������7B�PQ�OleObjectData�����AccessObjSiteData&������������\ChangedProps������������r������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E�ImageHeight	I
ImageWidth	I

MaskColor	I
���
UseMaskColorL����ͫ#$,����j��(6(!C4���~��a������ͫ�����cmdchkoleworldapiappdbfrmidxdotmenucboedtgrdlst��ww�����ww�������������lt*BM*v(����������������������������������������������������������������������Ȁ����̀�������������������������̀������Ȁ��������������������lt*BM*v(�������������������������������������������������������������������������������������������������������������������������������lt*BM*v(�����������������������������������������������������������������������������������������������������������������������������������lt*BM*v(�������������������������������������������������������������������������������������������������������������������������������������������������������lt*BM*v(�������������������������������������������������p������������p�����������������������������p�����������pp��������������p���������������������lt*BM*v(��������������������������������������������������������������������������������������������lt*BM*v(����������������������������������������������������������������������������������������������������DDDDD����DDDDD������������������������DDDDD����DDDDD�lt*BM*v(�����������������������������������������������������������hhh`�����������hhh`�����������`���������`�������������������������������lt*BM*v(�����������������������������������������������������������������������������������������DDDDDO��OD�D�OO��DDDDDDO�������������������lt*BM*v(���������������������������������������������������������������������������������������������������������������������������������������������������������������������������lt*BM*v(����������������������������������������������������������������������������������������������������DDDDD����DDDDD������������������������DDDDD����DDDDD��lt*BM*v(�������������������������������������������������������������������������������������������������������
lt*#$,����j��(6(!C4���~��7������ͫ�����cmdchkoleworldapiappdbfrmidxdotmenucboedtgrdlstpgfoptspntmrtxtfrsfrxdbftbrqprltBMv(���������������������������������������������������wwwww����������������������������������������������������������lt*BM*v(������������������������������������������������������������������������������������������������������������������������������������������������lt*BM*v(������������������������������������������������������������������������������������������������������lt*BM*v(���������������������������������������p�����~�'�����r~����~�''&�����rrv����''''����rrr����'''''���r��r��~ ���'���rrr�����~'''����p������������lt*BM*v(�������������������������������������EU����������EU����EU������EU������EU�������EU�������EU�������EU������EU������EU����EU��������EU����EU����������EU����������EU�lt*BM*v(������������������������������������������������
��������
�������
����������
��������
������
������𻰀�
�������������������������������������������lt*BM*v(������������������������������������������������������������������������������������������������������������������̏���������������������������������������������������������������������������lt*BM*v(������������������������������������������wwwwww��������������������������������������������������������������������������������������������������������	lt*BM*v(��������������������������������������6�����������6������6��pw���6��ww������6����������6�����p���6����������6�����p���6����������6�����p���6��������6���w���6�����������6�����������6�
lt*BM*v(���������������������������������������������������������������������DD��������������DD��������������DO����������������������������������������lt*BM*v(��������������������������������������������������������������������������������������DDD@�����DDD@������������������������������DDO����lt*BM*v(�������������������������������������������������������������������������������������������������������
lt*BM*v(���������������������������������������������������������������������������������������������������������������������������������lt*BM*v(�����������������������������������������������������������������������������,OLEObject = C:\WINNT\System32\MSCOMCTL.OCX

commandbutton
commandbuttoncmdCollapseAll�Top = 9
Left = 399
Height = 18
Width = 15
FontBold = .F.
FontName = "Courier New"
FontSize = 11
Caption = "-"
TabIndex = 3
ToolTipText = "Collapse All"
Name = "cmdCollapseAll"
PROCEDURE Click
o = THISFORM.pgf1.pagTree.oleTree

FOR i = 1 TO o.Nodes.Count
	o.Nodes(i).Expanded = .F.
ENDFOR
ENDPROC
���� ��68%�M 
�U'%������ �
������UTHISFORMCMDRUNENABLEDCLICK����%���
C���
	��4�T��������%��
����T�����	�
�������(����
����!%�C����C�������T�������a��!�����ULENABLE	SOLUTIONSDESCRIPTTHISVALUEKEYOTHISFORMPGF1PAGTREEOLETREEINODESCOUNTSELECTED

����UTHISINTERACTIVECHANGE�F��-������%�C����I�T����-��T����-���s�T����a��T����a���
���	�U
	SOLUTIONSKEYTHISVALUEFILETHISFORMCMDRUNENABLEDCMDSEEREFRESHDblClick,��UIEnabley��ProgrammaticChange���InteractiveChange���11�A2q�1A�a�qAAAA3�3q��A�1Ml�����)�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BoundColumn = 2
ColumnCount = 2
ColumnWidths = "470,0"
RowSourceType = 5
RowSource = "THISFORM.aSamples"
Height = 139
Left = 5
TabIndex = 2
Top = 55
Width = 411
IntegralHeight = .T.
Name = "lstSamples"
�PROCEDURE DblClick
IF THISFORM.cmdRun.Enabled
	THISFORM.cmdRun.Click
ENDIF
ENDPROC
PROCEDURE UIEnable
LPARAMETERS lEnable
IF lEnable AND !EMPTY(solutions.descript)
	THIS.Value = solutions.key
ENDIF
IF !lEnable
	o = THISFORM.pgf1.pagTree.oleTree
	FOR i = 1 to o.Nodes.Count
		IF o.Nodes(i).Key = ALLTRIM(THIS.Value)
			o.Nodes(i).Selected = .T.
			EXIT
		ENDIF
	ENDFOR
ENDIF

ENDPROC
PROCEDURE ProgrammaticChange
THIS.InteractiveChange

ENDPROC
PROCEDURE InteractiveChange
SELECT SOLUTIONS
LOCATE FOR Key = THIS.Value
IF EMPTY(file)
	THISFORM.cmdRun.Enabled = .F.
	THISFORM.cmdSee.Enabled = .F.
ELSE
	THISFORM.cmdRun.Enabled = .T.
	THISFORM.cmdSee.Enabled = .T.
ENDIF
THISFORM.Refresh
ENDPROC
o��� VV�K%�
��U>���T���-��*12�F1�HELP ID (VAL(solutions.key))�%�C�FFCC�PATHv������T��C�PATHv��$G)(�C�PATHv�;C�Q�FFC\���
H��������F��a�%�C���
��7�T������YMODIFY FORM (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file))  METHOD &cMacro
�]�/&�C����\C��	��������R����/3�C����\C��	�������Q����/L�C����\C��	�������V���G(�testdata�/��C��	���F���T���a��{2�F1��SET PATH TO &lcPath.
ULCPATHTHISFORMVISIBLEF1	SOLUTIONSTYPEMETHODCMACROPATHFILETESTDATAClick,��1q���1AA�Q1���AQ�Q�Q�qA���1�)V�FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BoundColumn = 2
ColumnCount = 2
ColumnWidths = "411,0"
Height = 23
Left = 5
Style = 2
TabIndex = 1
Top = 28
Width = 411
Name = "cboFilter"
�PROCEDURE InteractiveChange
IF THIS.Value = "-1"
	SELECT solution.text , solution.key FROM SOLUTION ;
		WHERE type != "N" ORDER BY text INTO ARRAY THISFORM.aSamples
ELSE
	SELECT solution.text, solution.key FROM solution ;
		WHERE solution.key = ;
		SOME(select xref.key from xref where xref.xref_id = VAL(THIS.Value)) ;
		ORDER BY text INTO ARRAY THISFORM.aSamples
ENDIF	
THIS.Parent.lstSamples.Requery
THIS.Parent.lstSamples.ListIndex = 1


ENDPROC
�ButtonCount = 2
BackStyle = 0
BorderStyle = 0
Value = 1
Height = 28
Left = 11
Top = 18
Width = 381
TabIndex = 0
Name = "opg1"
Option1.FontBold = .F.
Option1.FontName = "MS Sans Serif"
Option1.FontSize = 8
Option1.BackStyle = 0
Option1.Caption = "View samples by \<outline"
Option1.Value = 1
Option1.Height = 15
Option1.Left = 8
Option1.Top = 8
Option1.Width = 130
Option1.AutoSize = .T.
Option1.Name = "optTree"
Option2.FontBold = .F.
Option2.FontName = "MS Sans Serif"
Option2.FontSize = 8
Option2.BackStyle = 0
Option2.Caption = "View samples by \<filtered list"
Option2.Value = 0
Option2.Height = 15
Option2.Left = 174
Option2.Top = 8
Option2.Width = 145
Option2.AutoSize = .T.
Option2.Name = "optList"
=��� $$�%��#U�U�T��������T���������~���%�C���0��o�$T��C��C��C������	�
�����(T��CC���C��C������	�
���%�C�
�
����T��
�C�
�����T���a��UOTHISPGF1PAGTREEOLETREE	IMAGELIST	OLEIMAGESPARENTONODENODESADDKEYTEXTIMAGESORTEDO%���-��H�%%�C�THIS.C_SOLUTIONS1b�O��D�
�������UTHISFORMKEEPHELPTHISC_SOLUTIONS1RESTOREHELP
�����UTHISC_SOLUTIONS1SAVEHELP�A%�C�THIS.pgf1.pagTree.oleImagesb�O�C���������r��C�fVisual FoxPro could not load ActiveX controls used by this form. Try reinstalling sample applications.�x��B�-���?%�C�THIS.pgf1.pagTree.oleTreeb�O�C�������v�r��C�fVisual FoxPro could not load ActiveX controls used by this form. Try reinstalling sample applications.�x��B�-���
����UTHISPGF1PAGTREE	OLEIMAGESOLETREEFILLTREE��Ufilltree,��
Deactivatez��Activate��Init4��Destroy���1a��AA��A!AA�3!Q�AA2�2!qA�!qA�2Q2��;Up4!R`+)$���� ��y%�m+�UY�����%����V��R�*��C�Could not run view sample: CE�x��B��UNERRORCMETHODNLINE	SOLUTIONSTYPE�T���-��
H��������F��N��C����\C���������R����T���a��*12�F1�HELP ID (VAL(solutions.key))� ?�C����\C�����9�T���a������Q����T���a��*12�F1�HELP ID (VAL(solutions.key))�^s,�������(�����d�@��Arial���
�����'��Results of Query CC��f�.QPR ���	t,���%�C����\C����.QPR��<,��T���a������V����T���a��*12�F1�HELP ID (VAL(solutions.key))�Ts,�������(�����d�@��Arial���
�����'��Results of View CC��f���	t,���G(�testdata�F��Q�C�����
�%�CC�
����	�<,��Q��F��T���a���{2�F1��T���-��UTHISFORMVISIBLE	SOLUTIONSTYPEPATHFILEKEEPHELPF1	BROW_WINDTESTDATA_VIEWError,��Click���1�Q�AA2��Q�Q���Q����Q��Q��C��1�B�AAq�A��1���
)�BMvv(  ���������������������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������	���������������BMvv(  ���������������������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������
���������������BMvv(  ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������BMvv(  ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������BMvv(  ���������������������������BM�v(��������������������������������������������������������������������������������������������������������������������������������������������������xw�����������������������������������������������������������������������������������������������������������������������������BM�v(�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������w���������wx��������ww����������w��������������������������������������������������������������������������BMZv(������������������������������������������������������������������������������������������������������������������ww��������������𻻰��������ww����������������DDDDDD@����������������BMZv(����������������������������������������������������������������������������������������������������������������������������������BM�v(Gl0�������������������������������������������2""""""""""""""""""""""""""""""""""?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?333333303030303303333333333332?333333303030030333333333333332?3333333030330303333333333333332?33333330300303333333333333332?333333303030030333333333333332?333333303300333333333333332?33333330333333333333333333333332?33333330333333333333333333333332?3333333033333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333030303033303333333333332?33333330303003033303333333333332?33333330303303033333333333332?33333330300303303333333333332?33333330303003033003333333333332?33333330330033003333333333332?33333330333333333333333333333332?33333330333333333333333333333332?3333333033333333333303333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?333333303030303303333333333332?333333303030030333333333333332?3333333030330303333333333333332?33333330300303333333333333332?3333333030300303333333333333332?3333333033003333333333333332?33333330333333333333333333333332?3333333033333333333333333333332?333333303333333333303333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332??��������������������������������2?2""""""""""""""""""""""""""""""""2?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333030303033333333333332?3333333030300303333333333333332?33333330303303033033333333333332?33333330300303333333333333332?33333330303003033303333333333332?3333333033003333333333333332?33333330333333333333333333333332?3333333033333333333333333333332?333333303333333333303333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?333333303030303333333333333332?3333333030300303333333333333332?3333333030330303333333333333332?33333330300303333333333333332?3333333030300303333333333333332?3333333033003333333333333332?33333330333333333333333333333332?3333333033333333333333333333332?333333303333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?3333333333333333333333333333333332?����������������������������������33333333333333333333333333333333333��������������������������������������������������������������������������������BM�v(
X���������������������������������������������BMzv(!
�������������������������������������������������������������������������������BM�v(!������������������������������������������������������������������������������������BM�v(!����������������������������������������������������������������������������������BM�v(!������������������������������������������������������������������������������������������BM�v(!������������������������������������������������������������������������������������BM�v(SX ���������������������������������������������������������������������L�����������������������������8������������L�����������������������������8������������L����������������������������8������������L����������������������������8������������L������������������������������1����������L����������������������������3�1����������L���������������������������83������������L���������������������������8�������������L�������������������������8���8�����������L�������������������������83��83���������L������������������������8�3�8�3����������L������������������������8���8������������L��������������������������8���8����������L������������������������3�8�3�8����������L�����������������������83��83��8���������L�����������������������8���8���8���������L���������������������8���8���8�����������L���������������������83��83��83���������L��������������������8�3�8�3�8�3�1��������L��������������������8���8���8���1��������L����������������������8���8���8����������L��������������������3�8�3�83�8�3��������L�������������������83��83��3��83��������L�������������������8���8�����8���������L�����������������8���8���1��8����������L�����������������83��83����83��1�������L�������������ww�8�3�8�3�1��8�3�8��������L�������������ww�8���8���������8��������L������������DDw���8������8����������L������������DDw�3�0������8�3��������L������������DDw83���������83��������L������������DDw8���������8���������L������������DDw�������p��8������L������������DDw����������81������L������������DDw�8����x�1������L�����ww�����DDw�8������������L�����ww�����DDw�������p1������L����DDw�����DDw�0����������L����DDw����8DDw80����������L����DDw����8DDw8�����������s������L����DDw��8��DDw���������8�������L����DDw��83�DDw���������83������L����DDw�8�3�DDw�1�����8�3������L����DDw�8���DDw��������8��������L����DDw���8�DDw�������������8������L����DDw�3�8�DDw����������3�8������L����DDw83��8DDw�����������3��8�����L����DDw8���8DDw��������������8����L����DDw��8��DDw�����������������8�������L����DDw��83�DDw�����������83������L����DDw�8�3�DDw���������8�3�1����L����DDw�8���DDw����������8���1����L����DDw���8�DDw�������������8������L����DDw�3�8�DDw�3���������3�8�3����L���8DDw83��8DDw80��������3��83����L���8DDw8���8DDw8�������������8�����L�8��DDw��8��DDw�������������8���1���L�83�DDw��83�DDw��83��������83��1���L����DDw�8�3�DDw�8�3�8��3�������3�8����L���DDw�8���DDw�8���8����8�������8����L���DDw���8�DDw���8���8���8���8���8������L����DDw�8�DDw�3�8�3�8�3�8�3�8�3�8�3����L����DDw8DDw83��83��83��83��83��83���L����DDw��DDw8���8���8���8���8���8�����L����DDw���DDw��8���8���8���8���8���8���L����DDw�����DDw�83��83��83��83��83��81��L����DDw�����DDw3�8�3�8�3�8�3�8�3�8�1��L����DDw�����DDw�8���8���8���8���8����L����DDw�����DDw���8���8���8���8���8��L����DDw�����DDw�����3�8�3�8�3�8�3�8��L����DDw�����DDw�������83��83��83���L����DDw��wwwDDwwwww����8���8���8���1�L����DDw��wwwDDwwwww������8���8���8���L����DDw�DDDDDDDDDDw����������83��83��L����DDw�DDDDDDDDDDw�����������3�8�3��L����DDw�DDDDDDDDDDw�������������8����L����DDw�DDDDDDDDDD����������������8��L����DDw�DDDDDDDDDD����������������8��L����DDw������������������������������L����DDw��������������������������������L�wwwDDwwwww������������������������������L�wwwDDwwwww�������������������������������LDDDDDDDDDDw�������������������������������LDDDDDDDDDDw�������������������������������LDDDDDDDDDDw�������������������������������LDDDDDDDDDD��������������������������������LDDDDDDDDDD��������������������������������LBMv(�������������������������������������������������������������������������������������p������3������������������������BM�v(�����������������������������������������������������wwwwwwwww��x�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������BM*v(���������������������������������������������������������������������������������������������������������������������������������������������������������������������������BM*v(���������������������������������������������������������������������������������������������������������������������������������main.prgd:\8156\8156\fox60\dev\main.fxp.\fox.bmpfox.mskforms\graphics\arw08up.bmparw08dn.bmp..\classes\dragmove.curnodrop01.curcancel.bmpclock.bmphelp.bmpmoverbox.bmpnext.bmpok.bmpshaper.bmpwatch.bmpcancel.mskhelp.msknext.mskok.msksolution.scxsolution.sctmenus\red.bmpgreen.bmpblue.bmpwhite.bmpwhite.mskpinout.bmppinin.bmpbts.bmpbts.mskpreview.bmpcheck.bmpitem1.bmpitem2.bmpitem3.bmpitem4.bmpitem5.bmpreports\logo.bmpsmmail.bmpforms\screen.bmpforms\toolbar1.bmpforms\menus.bmp)�	!��*-�A*5A�	=M�	-=Y-s
eqs
�e~��e���e���e���e��w*�wme�m[*�[Ie�I?e�?5e�5+*�+!e�	!�)*��)%�*%��� ���(���2����;��s�Es���*O����*Z����*d��;�*l;���t�������)��)������E��E������a��a��������e�����������������