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.app

�� (����	��%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(x�����������������������������������������������������wpw�p����������������������p����wpw�������������������������BM�v(x�����������������������������px���p��x���������������������������������������p��x���px���������������BM�v(�����������������������������������������������������������������������������BM�v(�����������������������������������������������������������������������������BM�v(�����������������������������������������������������������������������������0mPLATFORMCUNIQUEIDC	
TIMESTAMPN
CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi
 COMMENT Screen               WINDOWS _R8C0YJACG 547204541/F]�� WINDOWS _R8C0YJACQ 760191323���� WINDOWS _R980X8VQR 760191323����� WINDOWS _R980X8VQS 760191323KYgv� WINDOWS _RB90WULHA 760191323�
*A WINDOWS _RB90X15BW 760191323��� WINDOWS _R7I13CW81 760191323�������Z WINDOWS _RAH0OR73R 550736252�� WINDOWS _RAH0OR744 550791607z���� WINDOWS _R8C0YJACG 548430283����� WINDOWS _R7I13CWB6 715302249&5K\ WINDOWS _R7J0L510G 548430283q����� WINDOWS _R7J0L510V 5530277760DXm��� WINDOWS _R7J15YJPQ 554140651�����&~ WINDOWS _R7J15YJQC 608471235O'd'y'�'�'O(�w WINDOWS _R7J15YJQZ 553027776�/�/�/�/0�0 WINDOWS _R8C0YJACQ 548430283�1�1�1�1�1 WINDOWS _R7V0X3DC3 760191323�2�2�233 WINDOWS _RT514CTQM 6113584544*4�1<4Z4�4�r�9�C WINDOWS _RT514CTQW 611358262DD�/FDdD�D�p WINDOWS _R7V0X3DY6 627932438�pq0D�9q�q�6 WINDOWS _R7V0X3DX6 627932924�//k/M/�0�u<, WINDOWS _R7V0XEPQZ 553027776>////�.�8E{i" WINDOWS _R7V0XEPS8 692869741�.�.�.1'�&
�� WINDOWS _R7V0XEPTF 550405607�&m&a&P&����
 COMMENT RESERVED            ��,VERSION =   3.00dataenvironmentdataenvironmentDataenvironment`Top = 239
Left = 31
Width = 527
Height = 164
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 (ALLTRIM(type)="N" OR ALLTRIM(type)="F" OR ALLTRIM(type)="R" OR ALLTRIM(type)="Q" OR ALLTRIM(type)="V")
	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
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 Destroy
CLEAR EVENTS

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�)�� ��0,%��	��U�%����-1��P�:o�SOLUTION�����������N�����������ao�solution������������#�xref�������	C��g��������������
���T��
��
����UTHISVALUESOLUTIONTEXTKEYTYPETHISFORMASAMPLESXREFXREF_IDPARENT
LSTSAMPLESREQUERY	LISTINDEXInteractiveChange,��1a��Aa3�)��� ����%Pe_�U

����UTHISFORMRELEASEClick,��1�2#)�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
�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 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
�� ��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�����)�	Solutionsopg1optiongroupoptiongroup�FontName = "MS Sans Serif"
FontSize = 8
BoundColumn = 2
Height = 23
Left = 5
Style = 2
TabIndex = 1
Top = 28
Width = 411
Name = "cboFilter"
Solutions.pgf1.pagList
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
��� 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*)q	cboFiltercomboboxcomboboxSolutions.pgf1.pagList
lstSampleslistboxlistboxSolutions.pgf1.pagTreecmdExpandAll
commandbutton
commandbutton	oleImages
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"
oleTreelabellabellblDescription	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
olecontrolSolutions.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
��� zzR+%1
�U�T��������T���a��T���-�������(����	��f�T������
�-����T���a��T���-��UOTHISFORMPGF1PAGTREEOLETREE
LOCKSCREENVISIBLEINODESCOUNTEXPANDEDClick,��1a���qA��1�)zFontBold = .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"
Solutions.pgf1.pagTree
��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry�����������A�t��OleObjectData����jAccessObjSiteData&������������\ChangedProps�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Alj���j��(6(!C4�(]�<�j"=;HWy-$�ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1<r-�HideSelectionLIndentationN
4@
LabelEdit	I

LineStyle	I
BorderStyle	I
CheckboxesL(�H/$r��\���Nodsdv6L��X&�@t9.OLEObject = C:\WINDOWS\System32\mscomctl.ocx

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

MaskColor	I
���
UseMaskColorL����ͫ#$,����j��(6(!C4���~��������ͫh�#�����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������ͫh�#�����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:\WINDOWS\System32\mscomctl.ocx

commandbutton
commandbutton�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
�� ����%�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)�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
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�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
�� ��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���
)��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
�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
�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"
��� ��n�%X)��U$T��������T���������N~�C���N�C���F�C���R�C���Q�C���V���%�C���0����$T�	�C�C��C�
�����
������(T�	�CC���C��C�
�����
����%�C��
���T�	��C������T���a��UOTHISPGF1PAGTREEOLETREE	IMAGELIST	OLEIMAGESTYPEPARENTONODENODESADDKEYTEXTIMAGESORTEDO%���-��H�%%�C�THIS.C_SOLUTIONS1b�O��D�
�������UTHISFORMKEEPHELPTHISC_SOLUTIONS1RESTOREHELP
�����UTHISC_SOLUTIONS1SAVEHELP��%�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�Ufilltree,��
Deactivate���ActivateN��Init���DestroyL��1a��AA��A!AA�3!Q�AA2�2d	��A�!qA�!qA�2Q2������'�
5)�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.prgc:\docume~1\a-bethm\locals~1\temp\main.fxp.\fox.bmpfox.mskforms\graphics\arw08up.bmparw08dn.bmp..\classes\dragmove.curnodrop01.curcancel.bmpclock.bmphelp.bmpmoverbox.bmpok.bmpshaper.bmpwatch.bmpcancel.mskhelp.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)�	,��58�A5@A�	HX�	-Hd-s
p|s
�p���p���p���p���p��wp�we5�eSp�SIp�I?p�?5p�	5�'5��'�5�_�_�ս!սK�+K���4��7�>7���5H��K�5SK���5]����5e����m��s�ys������{��{�	��	������%��%���������p���c���c�����������