Mini Kabibi Habibi

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

��VERSION =   3.00dataenvironmentdataenvironmentDataenvironment`Top = 239
Left = 31
Width = 689
Height = 205
DataSource = .NULL.
Name = "Dataenvironment"
cursorcursorCursor1DataenvironmentrTop = 10
Left = 20
Height = 90
Width = 90
Alias = "solutions"
CursorSource = solution.dbf
Name = "Cursor1"
cursorcursorCursor2Dataenvironment�Top = 12
Left = 227
Height = 89
Width = 90
Alias = "reftext"
Order = "text"
CursorSource = reftext.dbf
Name = "Cursor2"
cursorcursorCursor3DataenvironmentjTop = 11
Left = 124
Height = 89
Width = 90
Alias = "xref"
CursorSource = xref.dbf
Name = "Cursor3"
cursorcursorCursor4Dataenvironment�Top = 14
Left = 333
Height = 90
Width = 95
Alias = "customer"
Database = ..\data\testdata.dbc
CursorSource = "customer"
Name = "Cursor4"
cursorcursorCursor6DataenvironmentwTop = 9
Left = 438
Height = 90
Width = 95
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"
�PROCEDURE filltree
o = THIS.pgf1.pagTree.oleTree
o.ImageList = THIS.pgf1.pagTree.oleImages
SCAN FOR INLIST(ALLTRIM(UPPER(Type)),"N","F","R","Q","V","D")
	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 Destroy
CLEAR EVENTS

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)

#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 Activate
this.c_solutions1.saveHelp
ENDPROC
PROCEDURE Deactivate
IF THISFORM.keepHelp = .F. THEN	
	IF TYPE('THIS.C_SOLUTIONS1') = "O" THEN
		THIS.C_SOLUTIONS1.RESTOREHELP
	ENDIF
ENDIF
ENDPROC
��� hhd%6�)��UT��������T���������,~�CCC�f��N�F�R�Q�V�D�����%�C���0����$T�	�C�C��C�
�����
������(T�	�CC���C��C�
�����
����%�C��
����T�	��C������T���a��UOTHISPGF1PAGTREEOLETREE	IMAGELIST	OLEIMAGESTYPEPARENTONODENODESADDKEYTEXTIMAGESORTED�U��%�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�����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�������|�r��C�fVisual FoxPro could not load ActiveX controls used by this form. Try reinstalling sample applications.�x��B�-���
����UTHISSETALLPGF1PAGTREE	OLEIMAGESOLETREEFILLTREE
�����UTHISC_SOLUTIONS1SAVEHELPO%���-��H�%%�C�THIS.C_SOLUTIONS1b�O��D�
�������UTHISFORMKEEPHELPTHISC_SOLUTIONS1RESTOREHELPfilltree,��Destroy���Init���Activate|��
Deactivate���1a��AA��A!AA�3Q3d	��A�!qA�!qA�2�2!Q�AA1���!"</#]�2)h�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 = 42
Left = 15
ReadOnly = .T.
ScrollBars = 0
TabIndex = 0
TabStop = .F.
Top = 240
Width = 416
ControlSource = "solutions.descript"
IntegralHeight = .F.
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 Click

THISFORM.Visible = .F.
DO CASE
	CASE solutions.type = "D" && form
		MODIFY DATABASE (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file)) NOWAIT
		THISFORM.Visible = .T.
	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
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
'�� ,j%;�.Y�U+T���-��
H�������D��]�/�C����\C����:�T���a������F�����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_VIEWY�����%����V��R�*��C�Could not run view sample: CE�x��B��UNERRORCMETHODNLINE	SOLUTIONSTYPEClick,��Error���1��Q��Q�Q���Q����Q��Q��C��1�B�AAq�A��2�Q�AA1T(p/)
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 NOWAIT
		ELSE
			MODIFY FORM (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file)) NOWAIT
		ENDIF
	CASE solutions.type = "D" && form
		MODIFY DATABASE (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file)) NOWAIT
	CASE solutions.type = "R" && report
		MODIFY REPORT (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file)) NOWAIT
	CASE solutions.type = "Q" && query
		MODIFY QUERY (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file)) NOWAIT
	CASE solutions.type = "V" && view
		SET DATABASE TO testdata
		MODIFY VIEW ALLTRIM(solutions.file) NOWAIT
		SELECT solutions
ENDCASE
THISFORM.Visible = .T.
ON KEY LABEL F1
SET PATH TO &lcPath.
ENDPROC
��� ��~R%P�U}���T���-��*12�F1�HELP ID (VAL(solutions.key))�%�C�FFCC�PATHv������T��C�PATHv��$G)(�C�PATHv�;C�Q�FFC\���
H���B�����F��i�%�C���
��>�T������`MODIFY FORM (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file))  METHOD &cMacro NOWAIT
�e�/&�C����\C��	��:������D����/�C����\C��	��:�����R����/3�C����\C��	��:�����Q���/L�C����\C��	��:�����V��B�G(�testdata�/�C��	��:�F���T���a��{2�F1��SET PATH TO &lcPath.
ULCPATHTHISFORMVISIBLEF1	SOLUTIONSTYPEMETHODCMACROPATHFILETESTDATAClick,��1q���1AA�Q1��AQ�Q�Q�QqA���1u)�
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 GotFocus
ON KEY LABEL F1 HELP ID _SCREEN.ActiveForm.HelpContextID
ENDPROC
PROCEDURE LostFocus
ON KEY LABEL F1
ENDPROC
�� ����%�7�U����F��-������%�C����P�T����-��T����-���z�T����a��T����a���
����U	NODE	SOLUTIONSKEYFILETHISFORMCMDRUNENABLEDCMDSEEREFRESH4%������-�
�����
������UTHISFORMCMDRUNENABLEDSETFOCUSCLICK9612�F1�(HELP ID _SCREEN.ActiveForm.HelpContextID�UF1{2�F1��UF1	NodeClick,��DblClick��GotFocusg��	LostFocus���1rq��A�22��A2a2�1 
?��	)8)�
��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry���������DT�c��OleObjectData����jAccessObjSiteData&������������\ChangedProps�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Alj���j��(6(!C4�(]�<�j"=;HWR��ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1<r-�HideSelectionLIndentationN
4@
LabelEdit	I

LineStyle	I
BorderStyle	I
CheckboxesL(��S�r��\���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���������DT�c�OleObjectData�����AccessObjSiteData&������������\ChangedProps������������r������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E�ImageHeight	I
ImageWidth	I

MaskColor	I
���
UseMaskColorL����ͫ#$,����j��(6(!C4���~��������ͫ�����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

thisform.lockscreen = .t.
o.visible = .f.

FOR i = 1 TO o.Nodes.Count
	o.Nodes(i).Expanded = .F.
ENDFOR

o.visible = .t.
thisform.lockscreen = .f.
ENDPROC
��� zzR+%1
�U�T��������T���a��T���-�������(����	��f�T������
�-����T���a��T���-��UOTHISFORMPGF1PAGTREEOLETREE
LOCKSCREENVISIBLEINODESCOUNTEXPANDEDClick,��1a���qA��1�)z
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"
5PROCEDURE Click
LOCAL lnIndex
o = THISFORM.pgf1.pagTree.oleTree
thisform.lockscreen = .t.
o.visible = .f.

FOR i = 1 TO o.Nodes.Count
	o.Nodes(i).Expanded = .T.
ENDFOR

o.visible = .t.
thisform.lockscreen = .f.

lnIndex=1
IF TYPE("THISFORM.pgf1.pagTree.oleTree.SelectedItem.Index")="N"
	lnIndex = THISFORM.pgf1.pagTree.oleTree.SelectedItem.Index
	THISFORM.pgf1.pagTree.oleTree.SelectedItem =;
		 THISFORM.pgf1.pagTree.oleTree.Nodes(1)
ENDIF
THISFORM.pgf1.pagTree.oleTree.SelectedItem =;
 THISFORM.pgf1.pagTree.oleTree.Nodes(lnIndex)

ENDPROC
��� qq�%�(�UT���T��������T���a��T���-�������(���	�
��m�T��	�����a����T���a��T���-��
T�����D%�C�0THISFORM.pgf1.pagTree.oleTree.SelectedItem.Indexb�N��#�T��������
��)T������C������	���*T������C������	��ULNINDEXOTHISFORMPGF1PAGTREEOLETREE
LOCKSCREENVISIBLEINODESCOUNTEXPANDEDSELECTEDITEMINDEXClick,��1qa���qA���A��A�2*)qlistboxlistbox
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 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
PROCEDURE ProgrammaticChange
THIS.InteractiveChange

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 DblClick
IF THISFORM.cmdRun.Enabled
	THISFORM.cmdRun.Click
ENDIF
ENDPROC
�� ��68%�M 
�U�F��-������%�C����I�T����-��T����-���s�T����a��T����a���
���	�U
	SOLUTIONSKEYTHISVALUEFILETHISFORMCMDRUNENABLEDCMDSEEREFRESH

����UTHISINTERACTIVECHANGE����%���
C���
	��4�T��������%��
����T�����	�
�������(����
����!%�C����C�������T�������a��!�����ULENABLE	SOLUTIONSDESCRIPTTHISVALUEKEYOTHISFORMPGF1PAGTREEOLETREEINODESCOUNTSELECTED'%������ �
������UTHISFORMCMDRUNENABLEDCLICKInteractiveChange,��ProgrammaticChange��UIEnable-��DblClicke��1q��A�2�3q�1A�a�qAAAA31�A1�":
Yv��!)�comboboxcombobox	cboFiltersolutions.pgf1.pagList�FontName = "MS Sans Serif"
FontSize = 8
BoundColumn = 2
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, key ;
	ORDER BY text ;
	INTO ARRAY THISFORM.aSamples
	
lo.Parent.lstSamples.Requery
lo.ListIndex = 1
THISFORM.pgf1.ActivePage = 2
ENDPROC
3�� n<%i���UT�������UTHISFORMPGF1
ACTIVEPAGEU���T��������%����������C�All��������C�-1������T������F����	���(�CN������C��
�	������!��CCC��Z��	������H����Fo�SOLUTION���
����
����N����
���
���
�����������T������T�������ULOTHISFORMPGF1PAGLIST	CBOFILTER	LISTCOUNTADDLISTITEM	LISTINDEXREFTEXTITEXTXREF_IDSOLUTIONKEYTYPEASAMPLESPARENT
LSTSAMPLESREQUERY
ACTIVEPAGE
optTree.Click,��
optList.Clickb��112qaB��ra�AAAg115Y�)rArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Courier New, 0, 11, 9, 17, 13, 10, 4, 0