Content Supported by Sourcelens Consulting

�|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
=��� $$�%��#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`+)$�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
���� ��^�%:OI�U
$��UClick,��1q1)�
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
���� ��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���
)�
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
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
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
���� ����%Pe_�U

����UTHISFORMRELEASEClick,��1�2#)�labellabellblDescription	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	pageframepgf1	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
���� ����%�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)�
��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������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
commandbuttoncmdCollapseAllsolutions.pgf1.pagTree�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
>��� %%A%����UQT�������������(������J�T�������-����U	OTHISFORMPGF1PAGTREEOLETREEINODESCOUNTEXPANDEDClick,��1a�qA1t)%
commandbutton
commandbuttoncmdExpandAllsolutions.pgf1.pagTree�Top = 9
Left = 382
Height = 18
Width = 15
FontBold = .F.
FontName = "Courier New"
FontSize = 11
Caption = "+"
TabIndex = 2
ToolTipText = "Expand All"
Name = "cmdExpandAll"
}PROCEDURE Click
o = THISFORM.pgf1.pagTree.oleTree
FOR i = 1 TO o.Nodes.Count
	o.Nodes(i).Expanded = .T.
ENDFOR
ENDPROC
>��� %%A%����UQT�������������(������J�T�������a����U	OTHISFORMPGF1PAGTREEOLETREEINODESCOUNTEXPANDEDClick,��1a�qA1r)%listboxlistbox
lstSamplessolutions.pgf1.pagListFontBold = .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
���� ��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�����)�comboboxcombobox	cboFiltersolutions.pgf1.pagList�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
��� ��0,%��	��U�%����-1��P�:o�SOLUTION������������N������������ao�solution�������������#�xref��������	C��g����������������
���T��
��
����UTHISVALUESOLUTIONTEXTKEYTYPETHISFORMASAMPLESXREFXREF_IDPARENT
LSTSAMPLESREQUERY	LISTINDEXInteractiveChange,��1a��Aa3�)�optiongroupoptiongroupopg1	solutions�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"
�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
-��� ��%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�)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