Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/ffc/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/ffc/_htmlsty.vct
��VERSION =   3.00JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
_tabdetailoptionsPixelsClass1_staticoptions_tabdetailoptionsform_htmlsty.vcxJArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
_optionsPixelsClass4form_options�� ���'%o�~�U
��C����
��C����UTHISFORM
RESETSETTINGSRELEASEClick,��1��2?)�JPROCEDURE Click
THISFORM.ResetSettings()
THISFORM.Release()

ENDPROC
�AutoSize = .T.
Top = 216
Left = 12
Height = 23
Width = 88
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Reset Defaults"
TabIndex = 1
Name = "cmdReset"
_optionscmdReset
commandbutton
commandbutton_options	cmdCancel5Q�� 88�9%����U-5�������
T�����,T��C�getfontname����cFont���
��C����T��C�
����%�C��
��&�T��C���	�
���8%�C��,�����CC�C�,���\�
	��"�%�C���	�
�
���"T��C���	�
��, ����T���	�
������UCFONT	LCTXTFONT	LOGETFONTLCFONTTHISFORMCLASSLIBRARYSHOWTHISPARENTTXTFONTVALUEClick,��1q�������!AaAA2	)8_html.h6�a�6$_tabdatacontrol_html.h10PROCEDURE Click
THISFORM.Release()

ENDPROC

commandbutton
commandbutton_optionscmdOKform7JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
_datasourcePixelsClass5form_datasource0PROCEDURE Click
THISFORM.Release()

ENDPROC
_datasource	cmdCancel
commandbutton
commandbutton�� ���%Shb�U
��C����UTHISFORMRELEASEClick,��1�2%)��Top = 216
Left = 294
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Cancel = .T.
Caption = "Cancel"
TabIndex = 2
Name = "cmdCancel"
IPROCEDURE Click
THISFORM.SaveSettings()
THISFORM.Release()

ENDPROC

commandbutton
commandbutton_tabhieroptionsPixelsClass11Label3cmdOK�� ��94%n�}�U
��C����
��C����UTHISFORMSAVESETTINGSRELEASEClick,��1��2>)��Top = 216
Left = 216
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "OK"
Default = .F.
TabIndex = 1
Name = "cmdOK"
JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
_tablistoptions_tabhieroptions_tabhieroptions.pf1.pg4cmdResetDatatArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
MS Sans Serif, 0, 10, 7, 16, 13, 14, 3, 0
�� ���%Shb�U
��C����UTHISFORMRELEASEClick,��1�2%)�
chkOneMany!Arial, 0, 9, 5, 15, 12, 21, 3, 0

_cbocolorsPixelsClass1combobox
_cbocolors7color
*color_access 
^acolors[1,0] 
*color_assign 
comboboxPixelsBPROCEDURE Init
DoDefault()
THIS.Pf1.Pg1.Enabled = .F.
ENDPROC
_DoCreate = .T.
Name = "_tabdetailoptions"
cmdOK.ZOrderSet = 2
cmdOK.Name = "cmdOK"
cmdCancel.ZOrderSet = 3
cmdCancel.Name = "cmdCancel"
cmdReset.Name = "cmdReset"
Label1.Left = 14
Label1.Top = 12
Label1.ZOrderSet = 4
Label1.Name = "Label1"
pf1.ErasePage = .T.
pf1.pg1.cboBorderColor.Name = "cboBorderColor"
pf1.pg1.Label2.Name = "Label2"
pf1.pg1.cboBackColor.Name = "cboBackColor"
pf1.pg1.Label3.Name = "Label3"
pf1.pg1.Label4.Name = "Label4"
pf1.pg1.Label5.Name = "Label5"
pf1.pg1.spnBorder.Name = "spnBorder"
pf1.pg1.txtImage.Name = "txtImage"
pf1.pg1.cmdImage.Name = "cmdImage"
pf1.pg1.Enabled = .F.
pf1.pg1.PageOrder = 3
pf1.pg1.Name = "pg1"
pf1.pg2.Label5.Name = "Label5"
pf1.pg2.txtFont.Name = "txtFont"
pf1.pg2.cmdFont.Name = "cmdFont"
pf1.pg2.label22.Name = "label22"
pf1.pg2.CboForecolor.Name = "CboForecolor"
pf1.pg2.Label13.Name = "Label13"
pf1.pg2.spnFontSize.Name = "spnFontSize"
pf1.pg2.PageOrder = 1
pf1.pg2.Name = "pg2"
pf1.pg3.Label5.Name = "Label5"
pf1.pg3.txtClass.Name = "txtClass"
pf1.pg3.PageOrder = 2
pf1.pg3.Name = "pg3"
pf1.ZOrderSet = 0
pf1.Name = "pf1"
�Top = 120
Left = 251
Height = 23
Width = 104
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Re\<set Datasource"
Name = "cmdResetData"
labelgetfontnamePixelsClassformgetfontname��� ��Q�%v���UT���������UTHISPARENT	TXTSAMPLEFONTNAMEVALUEInteractiveChange,��1�2J)�UPROCEDURE InteractiveChange
THIS.Parent.txtSample.FontName = THIS.Value

ENDPROC
�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 12
Style = 2
TabIndex = 1
Top = 12
Width = 240
Name = "cboFonts"
getfontnamecboFontscomboboxcombobox�FontName = "MS Sans Serif"
FontSize = 10
Value = AaBbYyZz
Enabled = .F.
Height = 24
Left = 12
TabIndex = 4
Top = 48
Width = 240
Name = "txtSample"
getfontname	txtSampletextboxtextbox�� ���%Shb�U
��C����UTHISFORMRELEASEClick,��1�2%)�0PROCEDURE Click
THISFORM.Release()

ENDPROC
sTop = 38
Left = 264
Height = 23
Width = 72
Cancel = .T.
Caption = "Cancel"
TabIndex = 3
Name = "cmdCancel"
getfontname	cmdCancel
commandbutton
commandbutton
commandbutton�� ��94%n�}�U
��C����
��C����UTHISFORMSAVESETTINGSRELEASEClick,��1��2>)�IPROCEDURE Click
THISFORM.SaveSettings()
THISFORM.Release()

ENDPROC
nTop = 12
Left = 264
Height = 23
Width = 72
Caption = "OK"
Default = .T.
TabIndex = 2
Name = "cmdDone"
getfontnamecmdDone
commandbutton
commandbuttoncheckbox
commandbuttoncfontnamevar
*savesettings 
�Height = 83
Width = 346
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "Pick Font"
MaxButton = .F.
MinButton = .F.
WindowType = 1
cfontnamevar = 
Name = "getfontname"
form�osettings
oengine
lskipquotes
lsaveempty
*savesettings 
*restoresettings 
*registersetting 
^aprops[1,0] 
*resetsettings 
*delarow 
*unregistersetting 
*getpropflags 
�Height = 250
Width = 375
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "Layout Options - "
MaxButton = .F.
MinButton = .F.
WindowType = 1
HelpContextID = 1895828906
Name = "_options"
@�� ''4f%����Ud���T��C�Images:JPG,GIF��%�C���C�0
��G�	B�����T��������U
LCFILENAMETHISPARENTTXTIMAGEVALUEClick,��1r���Aa2�)'form
_cbocolors2�PROCEDURE Click
THISFORM.cParentAlias = ""
THISFORM.cParentDBC = ""
THISFORM.cParentSource = ""
THIS.Parent.TxtTable.Value = ""
THISFORM.RefreshControls()

ENDPROC
_tabhieroptions.pf1.pg4checkbox_tabhieroptions.pf1.pg4label_tabhieroptions.pf1.pg4
cboChildField5�� ��K]%iw�U 	��C��T�����-��UTHISPF1PG1ENABLEDInit,��1�A17)��Top = 120
Left = 11
Height = 15
Width = 138
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Display one to many \<view"
Value = .F.
Enabled = .F.
Name = "chkOneMany"
�FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Link field"
Height = 15
Left = 11
Top = 89
Width = 89
Name = "Label3"
comboboxcombobox_tabhieroptions.pf1.pg4Label2labelLabel1�FontName = "MS Sans Serif"
FontSize = 8
Enabled = .F.
Height = 24
Left = 119
Style = 2
Top = 84
Width = 192
Name = "cboChildField"
�FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Display field"
Height = 15
Left = 11
Top = 53
Width = 89
Name = "Label2"
label�FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Parent datasource"
Height = 15
Left = 11
Top = 17
Width = 89
Name = "Label1"
_tabhieroptions.pf1.pg4Label1labellabelh�� OOj
%���UVT������T������T������T��������
��C����U	THISFORMCPARENTALIAS
CPARENTDBC
CPARENTSOURCETHISPARENTTXTTABLEVALUEREFRESHCONTROLSClick,��1a�2�)O�add_repeattable
add_repeattable_script
add_fields
add_dataitem
add_pagebuttons
add_navbuttons
add_frame_script
add_filter_script
add_navbutton_script
PixelsClass
_htmltablecustom_htmlsty.vcxcomboboxcboHighlightColorlabellabelHPROCEDURE Click
LOCAL oDataForm
PRIVATE oCust

oDataForm=NewObject("_datasource",THISFORM.Classlibrary)
oCust = CREATE("Custom")

oCust.AddProperty('cAlias',THISFORM.cParentAlias)
oCust.AddProperty('cDatabase',"")
oCust.AddProperty('cDbcTable',"")

oDataForm.oSettings = oCust
oDataForm.Show()

IF !THISFORM.cParentAlias==oCust.cAlias AND ;
  !UPPER(oCust.cAlias)==UPPER(THISFORM.oEngine.cWizAlias)
	THISFORM.cParentAlias = oCust.cAlias
	THISFORM.cParentDBC = oCust.cDatabase
	THISFORM.cParentSource = oCust.cDbcTable
	THISFORM.RefreshControls()
ENDIF

ENDPROC
}Top = 12
Left = 323
Height = 23
Width = 27
FontName = "MS Sans Serif"
FontSize = 8
Caption = "..."
Name = "cmdTable"
_tabhieroptions.pf1.pg4cmdTable
commandbutton
commandbuttontxtTableVHeight = 24
Margin = 2
Style = 2
Width = 150
ItemTips = .T.
Name = "_cbocolors"
)MS Sans Serif, 0, 8, 7, 16, 13, 14, 3, 0
_dynamiclistClass	container_dynamiclist�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
KeyboardLowValue = 1
Left = 85
SpinnerLowValue =   1.00
TabIndex = 6
Top = 73
Width = 60
Value = 1
Name = "spnRows"
_dynamiclistspnRowsspinnerspinner�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Ro\<w offset"
Height = 15
Left = 1
Top = 79
Width = 61
TabIndex = 5
Name = "Label3"
_dynamiclistLabel3labellabel�FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Next row color"
Height = 15
Left = 1
Top = 43
Width = 78
TabIndex = 3
Name = "Label2"
_dynamiclistLabel2labellabel�FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<First row color"
Height = 15
Left = 1
Top = 7
Width = 75
TabIndex = 1
Name = "Label1"
_dynamiclistLabel1labellabel�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 85
TabIndex = 4
Top = 37
Visible = .T.
Width = 132
Name = "cbocolors2"
_dynamiclist
cbocolors2combobox_htmlsty.vcx
_cbocolors�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 85
TabIndex = 2
Top = 1
Visible = .T.
Width = 132
Name = "cbocolors1"
_dynamiclist
cbocolors1combobox_htmlsty.vcx
_cbocolors9cexpression
*cexpression_access 
*cexpression_assign 
RWidth = 217
Height = 97
BorderWidth = 0
cexpression = 
Name = "_dynamiclist"
	container_tablistoptions.pf1.pg3_tablistoptions_staticoptionsClass�� ��94%n�}�U
��C����
��C����UTHISFORMSAVESETTINGSRELEASEClick,��1��2>)�|FontName = "MS Sans Serif"
FontSize = 8
Enabled = .F.
Height = 23
Left = 119
Top = 12
Width = 192
Name = "txtTable"
_tabhieroptions.pf1.pg4textboxtextboxFontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 119
Style = 2
Top = 48
Width = 192
Name = "cboDisplayField"
_tabhieroptions.pf1.pg4cboDisplayFieldcomboboxcombobox�Top = 120
Left = 11
Height = 15
Width = 138
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Show \<captions"
Value = .F.
Name = "chkCaptions"
_tabhieroptions.pf1.pg3chkCaptionscheckboxcheckboxIcparentalias
cparentdbc
cparentsource
cchildalias
*refreshcontrols 
Z�� AAz%��
��U�U��C�bordercolor�!THIS.pf1.pg1.cboBorderColor.Color�oGenTag.bordercolor����K��C�bgcolor�THIS.pf1.pg1.cboBackColor.Color�oGenTag.bgcolor����R��C�
background�THIS.pf1.pg1.txtImage.Value�oGenTag.background������L��C�border�THIS.pf1.pg1.spnBorder.Value�oGenTag.border�������X��C�fontface�THIS.pf1.pg2.txtFont.Value�
oGenTag.Style�font-family������Z��C�fontsize�THIS.pf1.pg2.spnFontSize.Value�
oGenTag.Style�	font-size������X��C�	forecolor�THIS.pf1.pg2.cboForeColor.Color�
oGenTag.Style�color������D��C�class�THIS.pf1.pg3.txtClass.Value�oGenTag._Class����UTHISREGISTERSETTINGLoad,��1Q�!����A2�)A��� ���%I'�U4���5��!T��C�_datasource�����T��C�Custom�N����C�cAlias��������C�	cDatabase�������C�	cDbcTable�����T������
��C����1%�����
�C��fC��	�
f
	��-�T�������T�������T��
�����
��C�����U	ODATAFORMOCUSTTHISFORMCLASSLIBRARYADDPROPERTYCPARENTALIAS	OSETTINGSSHOWCALIASOENGINE	CWIZALIAS
CPARENTDBC	CDATABASE
CPARENTSOURCE	CDBCTABLEREFRESHCONTROLSClick,��1qqa����111�A2=)��� '%����U`	��C��T��C�dynamiclist�$THIS.pf1.pg3.dynamiclist.cExpression�
cTDAttributes�a����UTHISREGISTERSETTINGLoad,��1�A2~)_tabdatacontrolGccsvfile = 
cdatasrc = vfpData
ctableid = tblvfpData
chighlightcolor = green
nlinkfield = 0
ndatapagesize = 10
coutfile_frame1 = 
coutfile_frame2 = 
crepeattablestyle = 
cdisplayfield = 
nframepercent = 20
ccsvfile2 = 
clinkfield = 
coutfile_frame0 = 
cchildalias = 
ntablestyle = 102
Name = "_tabdatacontrol"
	_html.vcx_tablistoptions.pf1.pg3�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 107
TabIndex = 12
Top = 48
Width = 120
Name = "cboHighlightColor"
Label6form_htmlsty.vcxJArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
_staticoptionsPixelsClass21_options_staticoptionszFontName = "MS Sans Serif"
FontSize = 8
Height = 22
Left = 83
TabIndex = 2
Top = 12
Width = 240
Name = "txtClass"
_staticoptions.pf1.pg3txtClasstextboxtextboxPixels_tablistoptionsClass_dynamiclist_htmlsty.vcxLabel5bWidth = 395
DoCreate = .T.
Name = "_tablistoptions"
cmdOK.TabIndex = 15
cmdOK.Name = "cmdOK"
cmdCancel.TabIndex = 16
cmdCancel.Name = "cmdCancel"
cmdReset.Name = "cmdReset"
Label1.TabIndex = 1
Label1.Name = "Label1"
pf1.ErasePage = .T.
pf1.PageCount = 3
pf1.pg1.cboBorderColor.Name = "cboBorderColor"
pf1.pg1.Label2.Name = "Label2"
pf1.pg1.cboBackColor.Name = "cboBackColor"
pf1.pg1.Label3.Name = "Label3"
pf1.pg1.Label4.Name = "Label4"
pf1.pg1.Label5.Name = "Label5"
pf1.pg1.spnBorder.Name = "spnBorder"
pf1.pg1.txtImage.Name = "txtImage"
pf1.pg1.cmdImage.Name = "cmdImage"
pf1.pg1.Name = "pg1"
pf1.pg2.Label5.Name = "Label5"
pf1.pg2.txtFont.Name = "txtFont"
pf1.pg2.cmdFont.Name = "cmdFont"
pf1.pg2.label22.Name = "label22"
pf1.pg2.CboForecolor.Name = "CboForecolor"
pf1.pg2.Label13.Name = "Label13"
pf1.pg2.spnFontSize.Name = "spnFontSize"
pf1.pg2.Name = "pg2"
pf1.pg3.Label5.Name = "Label5"
pf1.pg3.txtClass.Left = 107
pf1.pg3.txtClass.Top = 12
pf1.pg3.txtClass.Name = "txtClass"
pf1.pg3.Name = "pg3"
pf1.Top = 48
pf1.Left = 12
pf1.Width = 372
pf1.Height = 180
pf1.Name = "pf1"
�FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Data page size"
Height = 17
Left = 11
Top = 90
Width = 96
TabIndex = 13
Name = "Label7"
�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
KeyboardLowValue = 1
Left = 107
SpinnerLowValue =   1.00
TabIndex = 14
Top = 84
Width = 48
Value = 10
Name = "spnPageSize"
JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DoCreate = .T.
cparentalias = 
cparentdbc = 
cparentsource = 
cchildalias = 
Name = "_tabhieroptions"
cmdOK.Name = "cmdOK"
cmdCancel.Name = "cmdCancel"
cmdReset.Name = "cmdReset"
Label1.Height = 24
Label1.Left = 12
Label1.Top = 12
Label1.Width = 372
Label1.Name = "Label1"
pf1.ErasePage = .T.
pf1.PageCount = 4
pf1.pg1.cboBorderColor.Name = "cboBorderColor"
pf1.pg1.Label2.Name = "Label2"
pf1.pg1.cboBackColor.Name = "cboBackColor"
pf1.pg1.Label3.Name = "Label3"
pf1.pg1.Label4.Name = "Label4"
pf1.pg1.Label5.Name = "Label5"
pf1.pg1.spnBorder.Name = "spnBorder"
pf1.pg1.txtImage.Name = "txtImage"
pf1.pg1.cmdImage.Name = "cmdImage"
pf1.pg1.Enabled = .F.
pf1.pg1.PageOrder = 4
pf1.pg1.Name = "pg1"
pf1.pg2.Label5.Name = "Label5"
pf1.pg2.txtFont.Name = "txtFont"
pf1.pg2.cmdFont.Name = "cmdFont"
pf1.pg2.label22.Name = "label22"
pf1.pg2.CboForecolor.Name = "CboForecolor"
pf1.pg2.Label13.Name = "Label13"
pf1.pg2.spnFontSize.Name = "spnFontSize"
pf1.pg2.PageOrder = 1
pf1.pg2.Name = "pg2"
pf1.pg3.Label5.Name = "Label5"
pf1.pg3.txtClass.Name = "txtClass"
pf1.pg3.cboHighlightColor.Name = "cboHighlightColor"
pf1.pg3.Label6.Name = "Label6"
pf1.pg3.Label7.Name = "Label7"
pf1.pg3.spnPageSize.Name = "spnPageSize"
pf1.pg3.PageOrder = 2
pf1.pg3.Name = "pg3"
pf1.Page4.FontName = "MS Sans Serif"
pf1.Page4.FontSize = 8
pf1.Page4.Caption = "Relations"
pf1.Page4.PageOrder = 3
pf1.Page4.Name = "pg4"
pf1.Name = "pf1"
�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Style class"
Height = 15
Left = 11
Top = 16
Width = 52
TabIndex = 1
Name = "Label5"
_staticoptions.pf1.pg3labellabelspinner;PROCEDURE savesettings
LOCAL lcFontVar
IF !EMPTY(THIS.cFontNameVar)
	lcFontVar=THIS.cFontNameVar
	&lcFontVar. = THIS.cboFonts.value
ENDIF

ENDPROC
PROCEDURE Init
LPARAMETERS tcFontNameVar
LOCAL aGetFonts,i

IF VARTYPE(tcFontNameVar)="C"
	THIS.cFontNameVar=tcFontNameVar
ENDIF

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', 'Arial')
endif

DIMENSION agetfonts[1]
AFONT(agetfonts)
FOR i = 1 TO ALEN(agetfonts)
	THIS.cboFonts.AddItem(agetfonts[m.i])
ENDFOR
THIS.cboFonts.Value = THIS.cboFonts.List[1]
THIS.txtSample.DisabledForeColor = THIS.cboFonts.ForeColor
THIS.txtSample.FontName = THIS.cboFonts.List[1]

ENDPROC
�FontName = "MS Sans Serif"
FontSize = 8
Height = 23
KeyboardLowValue = 0
Left = 83
SpinnerLowValue =   0.00
TabIndex = 5
Top = 48
Width = 48
Name = "spnFontSize"
_staticoptions.pf1.pg2spnFontSizespinner_staticoptions.pf1.pg2Label13�Top = 186
Left = 90
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Cancel = .T.
Caption = "Cancel"
TabIndex = 4
Name = "cmdCancel"
�FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Fore\<color"
Height = 15
Left = 11
Top = 89
Width = 46
TabIndex = 6
Name = "Label13"
labellabel_staticoptions.pf1.pg2cboForecolorIPROCEDURE Click
THISFORM.SaveSettings()
THISFORM.Release()

ENDPROC
labellabel22_datasource
commandbutton
commandbutton~FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 83
TabIndex = 7
Top = 84
Width = 120
Name = "cboForecolor"
combobox_htmlsty.vcx
_cbocolors�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Font si\<ze"
Height = 15
Left = 11
Top = 53
Width = 44
TabIndex = 4
Name = "label22"
_staticoptions.pf1.pg2labellabel`Top = 12
Left = 335
Height = 22
Width = 21
Caption = "..."
TabIndex = 3
Name = "cmdFont"
_staticoptions.pf1.pg2cmdFont
commandbutton
commandbuttonyFontName = "MS Sans Serif"
FontSize = 8
Height = 22
Left = 83
TabIndex = 2
Top = 12
Width = 240
Name = "txtFont"
_staticoptions.pf1.pg2txtFonttextboxtextbox_staticoptions.pf1.pg2Label5labellabelformMHeight = 271
Width = 395
DoCreate = .T.
Name = "_staticoptions"
cmdOK.Top = 240
cmdOK.Left = 236
cmdOK.TabIndex = 4
cmdOK.Name = "cmdOK"
cmdCancel.Top = 240
cmdCancel.Left = 312
cmdCancel.TabIndex = 5
cmdCancel.Name = "cmdCancel"
cmdReset.Top = 240
cmdReset.Left = 12
cmdReset.TabIndex = 3
cmdReset.Name = "cmdReset"
_htmlsty.vcx_listoptions_staticoptionsPixels_listoptionsJArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
form_htmlsty.vcxpf1Gccsvfile
cdatasrc
ctableid
chighlightcolor
nlinkfield
ndatapagesize
coutfile_frame1
coutfile_frame2
crepeattablestyle
cdisplayfield
nframepercent
ccsvfile2
cparentsource
cparentdbc
clinkfield
lonetomany
coutfile_frame0
lcaption
cchildalias
lskipframe
*generatetabdata 
*makeframeset 
*add_repeattable 
*add_repeattable_script 
*add_fields 
*add_dataitem 
*add_pagebuttons 
*add_navbuttons 
*add_frame_script 
*add_filter_script 
*add_navbutton_script 
*cleanfields 
^ageneratedfiles[1,0] 
*updategenfiles 
*delarow 
*add_caption 
*resetdefaults 
label�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Font name(s)"
Height = 15
Left = 11
Top = 16
Width = 63
TabIndex = 1
Name = "Label5"
cmdImage��� ~~��%5%�U�	��C��Z��C�cHighLightColor�$THIS.pf1.pg3.cboHighLightColor.Color�cHighLightColor�a����T��C�
nDataPageSize�THIS.pf1.pg3.spnPageSize.Value�
nDataPageSize�a�����\��C�fontface�THIS.pf1.pg2.txtFont.Value�cRepeatTableStyle�font-familya�����^��C�fontsize�THIS.pf1.pg2.spnFontSize.Value�cRepeatTableStyle�	font-sizea�����\��C�	forecolor�THIS.pf1.pg2.cboForeColor.Color�cRepeatTableStyle�colora�����UTHISREGISTERSETTINGLoad,��1��A���2)~�Top = 45
Left = 11
Visible = .T.
Name = "dynamiclist"
cbocolors1.Name = "cbocolors1"
cbocolors2.Name = "cbocolors2"
Label1.Name = "Label1"
Label2.Name = "Label2"
Label3.Name = "Label3"
spnRows.Name = "spnRows"
_tablistoptions.pf1.pg3labelLabel7_tablistoptions.pf1.pg3_staticoptions.pf1.pg1Label5M�� 44�:%�GM�U�����T��C������T��C������T�������
H�Y���#�C���C��	���	����T��	����2���]T��	��#bgcolor="{{IIF(MOD(INT((RECNO()-1)/C�_�),2)=0,'��','��')}}"���B���	��U
LCCOLOR1LCCOLOR2LNROWSTHIS
CBOCOLORS1COLOR
CBOCOLORS2SPNROWSVALUECEXPRESSION��������T������%�C����9�B��
T�����
T�����T��C�/����%�����+�
T�����+�a��'�T������T��C���\��%�C�g����T��C�g��T��C������6��T�������!��T��������
T�����
T�����T��C�,�����%������
T�����T������+�a���T������T��C���\��%���'���T��CC������6��T���	����!��T��������
T�����
T�����T��C�,����%������
T�����T������+�a���T������T��C���\��%���'����T��CC������6��T��
�	����!��T��������UVNEWVAL	LNCHARPOSLCSTR	LCCHARSTRTHISCEXPRESSIONSPNROWSVALUE
CBOCOLORS1COLOR
CBOCOLORS2cexpression_access,��cexpression_assign���1�QQ1�1��A�3q��AA��1��Q1��1AAAA��a��Q!�1AAAA��1��Q!�1AAAA2�
��)4PROCEDURE Click
PRIVATE cFont
LOCAL lcTxtFont,loGetFont,lcFont
cFont=""
loGetFont=NewObject("getfontname",THISFORM.ClassLibrary,"","cFont")
loGetFont.Show()
lcFont = ALLTRIM(m.cFont)
IF !EMPTY(lcFont)
	lcTxtFont = ALLTRIM(THIS.Parent.txtFont.Value)
	IF ATC(lcFont+",",lcTxtFont)=0 AND ;
	   !lcFont==ALLTRIM(SUBSTR(lcTxtFont,RAT(",",lcTxtFont)+1))
		IF !EMPTY(THIS.Parent.txtFont.Value)
			lcFont = ALLTRIM(THIS.Parent.txtFont.Value)+", "+lcFont
		ENDIF
		THIS.Parent.txtFont.Value = lcFont
	ENDIF
ENDIF

ENDPROC
�PROCEDURE Click
#DEFINE GETFILE_GRAPHICSPROMPT_LOC	"Images:JPG,GIF"
LOCAL lcFileName
lcFileName = GETPICT(GETFILE_GRAPHICSPROMPT_LOC)
IF EMPTY(lcFileName) OR !FILE(lcFileName)
	RETURN ""
ENDIF
THIS.Parent.txtImage.Value = lcFileName

ENDPROC
aTop = 84
Left = 335
Height = 22
Width = 21
Caption = "..."
TabIndex = 7
Name = "cmdImage"

commandbutton
commandbutton{FontName = "MS Sans Serif"
FontSize = 8
Height = 22
Left = 119
TabIndex = 6
Top = 84
Width = 204
Name = "txtImage"
_staticoptions.pf1.pg1txtImagetextboxtextbox_staticoptions.pf1.pg1labellabel
:PROCEDURE refreshcontrols
LOCAL i
THIS.pf1.pg4.txtTable.Value = THIS.cParentAlias
THIS.pf1.pg4.cboDisplayField.Clear
IF EMPTY(THISFORM.cParentAlias)
	FOR i = 1 TO THIS.pf1.pg4.cboChildField.ListCount
		THIS.pf1.pg4.cboDisplayField.AddItem(THIS.pf1.pg4.cboChildField.List[m.i])
	ENDFOR
	THIS.pf1.pg4.cboDisplayField.Value = THIS.pf1.pg4.cboChildField.Value
	THIS.pf1.pg4.cboChildField.Enabled = .F.
	THIS.pf1.pg4.chkOneMany.Enabled = .F.
ELSE
	SELECT (THIS.cParentAlias)
	FOR i = 1 TO FCOUNT()
		IF INLIST(VARTYPE(FIELD(m.i)),"M","G","U")
			LOOP
		ENDIF
		THIS.pf1.pg4.cboDisplayField.AddItem(PROPER(FIELD(m.i)))
	ENDFOR
	IF THIS.pf1.pg4.cboDisplayField.ListCount>0
		THIS.pf1.pg4.cboDisplayField.Value = THIS.pf1.pg4.cboDisplayField.List[1]
	ENDIF
	THIS.pf1.pg4.cboChildField.Enabled = .T.
	THIS.pf1.pg4.chkOneMany.Enabled = .T.
ENDIF

ENDPROC
PROCEDURE Init
DoDefault()
THIS.Pf1.Pg1.Enabled = .F.
THIS.UnRegisterSetting("bordercolor")
THIS.UnRegisterSetting("bgcolor")
THIS.UnRegisterSetting("background")
THIS.UnRegisterSetting("border")
IF USED()
	THIS.cChildAlias = JUSTSTEM(CURSORGETPROP("SourceName"))
ENDIF

ENDPROC
PROCEDURE Show
LPARAMETERS nstyle
LOCAL i,lcValue
DoDefault()

FOR i = 1 TO ALEN(THIS.oEngine.aWizFields)
	* Need to skip for Memo,General types
	THIS.pf1.pg4.cboChildField.AddItem(THIS.oEngine.aWizFields[m.i])
ENDFOR

IF THIS.pf1.pg4.cboChildField.ListCount>0 AND EMPTY(THIS.pf1.pg4.cboChildField.Value)
	THIS.pf1.pg4.cboChildField.Value = THIS.pf1.pg4.cboChildField.List[1]
ELSE
	* Since values are set in Init before combo filled, we need to reset value here.
	THIS.pf1.pg4.cboChildField.Value = THIS.pf1.pg4.cboChildField.Value
ENDIF
lcValue=THIS.pf1.pg4.cboDisplayField.Value
THIS.RefreshControls()
THIS.pf1.pg4.cboDisplayField.Value=lcValue

ENDPROC
PROCEDURE Load
DoDefault()
THIS.RegisterSetting("cDisplayField","THIS.pf1.pg4.cboDisplayField.Value","cDisplayField",,.T.)
THIS.RegisterSetting("lOneToMany","THIS.pf1.pg4.chkOneMany.Value","lOneToMany",,.T.,,1)
THIS.RegisterSetting("cParentDBC","THIS.cParentDBC","cParentDBC",,.T.)
THIS.RegisterSetting("cParentSource","THIS.cParentSource","cParentSource",,.T.)
THIS.RegisterSetting("cLinkField","THIS.pf1.pg4.cboChildField.Value","cLinkField",,.T.)
THIS.RegisterSetting("cParentAlias","THIS.cParentAlias","cParentAlias")
THIS.RegisterSetting("cChildAlias","THIS.cChildAlias","cChildAlias",,.T.)
THIS.RegisterSetting("lCaption","THIS.pf1.pg3.chkCaptions.Value","lCaption",,.T.,,1)

ENDPROC
PROCEDURE Destroy
SELECT (THIS.oEngine.cWizAlias)
DoDefault()

ENDPROC
�FontName = "MS Sans Serif"
FontSize = 8
Height = 23
KeyboardLowValue = 0
Left = 119
SpinnerLowValue =   0.00
TabIndex = 9
Top = 120
Width = 48
Value = 0
Name = "spnBorder"
	spnBorderspinnerspinner�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Border \<width"
Height = 17
Left = 11
Top = 125
Width = 84
TabIndex = 8
Name = "Label5"
_staticoptions.pf1.pg1label�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Background \<image"
Height = 17
Left = 11
Top = 88
Width = 104
TabIndex = 5
Name = "Label4"
_staticoptions.pf1.pg1Label4labellabel�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Bac\<kground color"
Height = 17
Left = 11
Top = 53
Width = 96
TabIndex = 3
Name = "Label3"
_staticoptions.pf1.pg1Label3labellabelFontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 119
TabIndex = 4
Top = 48
Width = 120
Name = "cboBackColor"
_staticoptions.pf1.pg1cboBackColorcombobox_htmlsty.vcx
_cbocolors_staticoptions.pf1.pg1Label2labellabelPROCEDURE savesettings
THIS._TableMover.lstTables.InteractiveChange()	&& ensure data is updated
THIS.oSettings.cAlias=THIS._tablemover.CurrentAlias
THIS.oSettings.cDatabase=THIS._tablemover.CurrentDBC
THIS.oSettings.cDbcTable=THIS._tablemover.dbctable

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', 'Arial')
ENDIF

ENDPROC
�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Border \<color"
Height = 17
Left = 11
Top = 17
Width = 84
TabIndex = 1
Name = "Label2"
�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 119
TabIndex = 2
Top = 12
Width = 120
Name = "cboBorderColor"
_staticoptions.pf1.pg1cboBorderColorcombobox_htmlsty.vcx
_cbocolors�ErasePage = .T.
PageCount = 3
TabStyle = 1
BorderWidth = 0
Top = 48
Left = 12
Width = 372
Height = 180
TabIndex = 2
Name = "pf1"
Page1.FontName = "MS Sans Serif"
Page1.FontSize = 8
Page1.Caption = "Border"
Page1.Name = "pg1"
Page2.FontName = "MS Sans Serif"
Page2.FontSize = 8
Page2.Caption = "Font"
Page2.Name = "pg2"
Page3.FontName = "MS Sans Serif"
Page3.FontSize = 8
Page3.Caption = "Other"
Page3.Name = "pg3"
_staticoptions	pageframe	pageframe_staticoptionsLabel1labellabelform_htmlsty.vcx_listoptions.pf1.pg3dynamiclist�Top = 186
Left = 12
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "OK"
Default = .F.
TabIndex = 3
Name = "cmdOK"
�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "Select a datasource."
Height = 15
Left = 12
Top = 12
Width = 98
TabIndex = 1
Name = "Label1"
_datasource_datasource_tablemover	container_movers.vcx_tablemoverosettings
*savesettings 
�Height = 220
Width = 171
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "Pick Datasource"
MaxButton = .F.
MinButton = .F.
WindowType = 1
Name = "_datasource"
�FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "You can specify additional settings for the data table generated."
Height = 29
Left = 12
Top = 12
Width = 372
TabIndex = 1
Name = "Label1"
��� oo�%�
�Ua��C������T���������T���������T���	����
��UTHIS_TABLEMOVER	LSTTABLESINTERACTIVECHANGE	OSETTINGSCALIASCURRENTALIAS	CDATABASE
CURRENTDBC	CDBCTABLEDBCTABLE��%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$����� ��C�FontName�Arial�����UTHISSETALLsavesettings,��Init��11���3d	A2)o�FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Highlight color"
Height = 17
Left = 11
Top = 54
Width = 96
TabIndex = 11
Name = "Label6"
spinnerspinnerspnPageSize	container�PROCEDURE Load
DoDefault()
THIS.RegisterSetting("dynamiclist","THIS.pf1.pg3.dynamiclist.cExpression","cTDAttributes",,.T.)

ENDPROC
7Top = 36
Left = 12
Width = 150
Height = 140
TabIndex = 2
excldbf = ((HOME()+"genhtml.dbf"))
allowviews = (.F.)
Name = "_tablemover"
lstLeft.FontName = "MS Sans Serif"
lstLeft.FontSize = 8
lstLeft.Enabled = .F.
lstLeft.Height = 20
lstLeft.Left = 192
lstLeft.Top = 48
lstLeft.Visible = .F.
lstLeft.Width = 24
lstLeft.Name = "lstLeft"
cmdAdd.Top = 24
cmdAdd.Left = 216
cmdAdd.FontName = "MS Sans Serif"
cmdAdd.FontSize = 8
cmdAdd.Enabled = .F.
cmdAdd.Visible = .F.
cmdAdd.Name = "cmdAdd"
cmdRemove.Top = 72
cmdRemove.Left = 216
cmdRemove.FontName = "MS Sans Serif"
cmdRemove.FontSize = 8
cmdRemove.Enabled = .F.
cmdRemove.Visible = .F.
cmdRemove.Name = "cmdRemove"
lstRight.FontName = "MS Sans Serif"
lstRight.FontSize = 8
lstRight.Enabled = .F.
lstRight.Height = 24
lstRight.Left = 192
lstRight.Top = 72
lstRight.Visible = .F.
lstRight.Width = 24
lstRight.Name = "lstRight"
Label1.FontName = "MS Sans Serif"
Label1.FontSize = 8
Label1.Enabled = .F.
Label1.Height = 14
Label1.Left = 192
Label1.Top = 12
Label1.Visible = .F.
Label1.Width = 24
Label1.Name = "Label1"
Label2.FontName = "MS Sans Serif"
Label2.FontSize = 8
Label2.Enabled = .F.
Label2.Height = 14
Label2.Left = 192
Label2.Top = 24
Label2.Visible = .F.
Label2.Width = 24
Label2.Name = "Label2"
cmdAddAll.Top = 48
cmdAddAll.Left = 216
cmdAddAll.FontName = "MS Sans Serif"
cmdAddAll.FontSize = 8
cmdAddAll.Enabled = .F.
cmdAddAll.Visible = .F.
cmdAddAll.Name = "cmdAddAll"
cmdRemoveAll.Top = 96
cmdRemoveAll.Left = 216
cmdRemoveAll.FontName = "MS Sans Serif"
cmdRemoveAll.FontSize = 8
cmdRemoveAll.Enabled = .F.
cmdRemoveAll.Visible = .F.
cmdRemoveAll.Name = "cmdRemoveAll"
cboData.FontName = "MS Sans Serif"
cboData.FontSize = 8
cboData.Name = "cboData"
lstTables.FontName = "MS Sans Serif"
lstTables.FontSize = 8
lstTables.Width = 148
lstTables.Name = "lstTables"
Label3.FontName = "MS Sans Serif"
Label3.FontSize = 8
Label3.Name = "Label3"
cmdOpen.Top = 17
cmdOpen.Left = 125
cmdOpen.FontName = "MS Sans Serif"
cmdOpen.FontSize = 8
cmdOpen.Name = "cmdOpen"
�PROCEDURE Load
THIS.RegisterSetting("bordercolor","THIS.pf1.pg1.cboBorderColor.Color","oGenTag.bordercolor")
THIS.RegisterSetting("bgcolor","THIS.pf1.pg1.cboBackColor.Color","oGenTag.bgcolor")
THIS.RegisterSetting("background","THIS.pf1.pg1.txtImage.Value","oGenTag.background",,,1)
THIS.RegisterSetting("border","THIS.pf1.pg1.spnBorder.Value","oGenTag.border",,,,2)
THIS.RegisterSetting("fontface","THIS.pf1.pg2.txtFont.Value","oGenTag.Style","font-family",,,1)
THIS.RegisterSetting("fontsize","THIS.pf1.pg2.spnFontSize.Value","oGenTag.Style","font-size",,,1)
THIS.RegisterSetting("forecolor","THIS.pf1.pg2.cboForeColor.Color","oGenTag.Style","color",,,1)
THIS.RegisterSetting("class","THIS.pf1.pg3.txtClass.Value","oGenTag._Class")

ENDPROC
)PROCEDURE Load
DoDefault()
THIS.RegisterSetting("cHighLightColor","THIS.pf1.pg3.cboHighLightColor.Color","cHighLightColor",,.T.)
THIS.RegisterSetting("nDataPageSize","THIS.pf1.pg3.spnPageSize.Value","nDataPageSize",,.T.,,1)
THIS.RegisterSetting("fontface","THIS.pf1.pg2.txtFont.Value","cRepeatTableStyle","font-family",.T.,,1)
THIS.RegisterSetting("fontsize","THIS.pf1.pg2.spnFontSize.Value","cRepeatTableStyle","font-size",.T.,,1)
THIS.RegisterSetting("forecolor","THIS.pf1.pg2.cboForeColor.Color","cRepeatTableStyle","color",.T.,,1)

ENDPROC
��� ���%�'��UV���%�C���
��O�T������%&lcFontVar. = THIS.cboFonts.value
�U	LCFONTVARTHISCFONTNAMEVAR��������%�C����C��7�T��������%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$����� ��C�FontName�Arial�����
�������C���(�������(�C���D���CC�
���������T����C����	��T��
�������T��
�
�C����	��U
TCFONTNAMEVAR	AGETFONTSITHISCFONTNAMEVARSETALLCBOFONTSADDITEMVALUELIST	TXTSAMPLEDISABLEDFORECOLOR	FORECOLORFONTNAMEsavesettings,��Init���1q1QA3q�RAe	A����A���2��0	)�	a�� H	H	��%��@?�U����T�����������������%�C�	������#�����(�����
�����,��CC�
�����
�
���������%T����������
���T����
��-��T������-�����
F����������(�C.��b�"%�CCC�
�/���M�G�U���?�.����CCC�
�/����������%�����������)T������C������
���T����
��a��T������a���UITHISPF1PG4TXTTABLEVALUECPARENTALIASCBODISPLAYFIELDCLEARTHISFORM
CBOCHILDFIELD	LISTCOUNTADDITEMLISTENABLED
CHKONEMANY�	��C��T�����-����C�bordercolor������C�bgcolor������C�
background������C�border����%�C����� T���CC�
SourceName�����UTHISPF1PG1ENABLEDUNREGISTERSETTINGCCHILDALIAS2�������	��C�������(�C�����`�&��CC�
���������	����2%������
��C������	����)T������C�����������%T��������������T������
���
��C����T����
�����UNSTYLEILCVALUETHISOENGINE
AWIZFIELDSPF1PG4
CBOCHILDFIELDADDITEM	LISTCOUNTVALUELISTCBODISPLAYFIELDREFRESHCONTROLS?	��C��T��C�
cDisplayField�"THIS.pf1.pg4.cboDisplayField.Value�
cDisplayField�a����M��C�
lOneToMany�THIS.pf1.pg4.chkOneMany.Value�
lOneToMany�a�����;��C�
cParentDBC�THIS.cParentDBC�
cParentDBC�a����D��C�
cParentSource�THIS.cParentSource�
cParentSource�a����L��C�
cLinkField� THIS.pf1.pg4.cboChildField.Value�
cLinkField�a����?��C�cParentAlias�THIS.cParentAlias�cParentAlias����>��C�cChildAlias�THIS.cChildAlias�cChildAlias�a����J��C�lCaption�THIS.pf1.pg3.chkCaptions.Value�lCaption�a�����UTHISREGISTERSETTINGF������	��C��UTHISOENGINE	CWIZALIASrefreshcontrols,��Init���Show���LoadW��Destroy���1q�1!1�AQqq��a!AA�A��AqqA3�A�q�a�A3q���bA"��RA���3�A��A����3�2]x�$�%(3@�	==
/
I)H	�DoCreate = .T.
Visible = .T.
Name = "_listoptions"
cmdOK.Name = "cmdOK"
cmdCancel.Name = "cmdCancel"
cmdReset.Name = "cmdReset"
Label1.Name = "Label1"
pf1.ErasePage = .T.
pf1.pg1.cboBorderColor.Name = "cboBorderColor"
pf1.pg1.Label2.Name = "Label2"
pf1.pg1.cboBackColor.Name = "cboBackColor"
pf1.pg1.Label3.Name = "Label3"
pf1.pg1.Label4.Name = "Label4"
pf1.pg1.Label5.Name = "Label5"
pf1.pg1.spnBorder.Name = "spnBorder"
pf1.pg1.txtImage.Name = "txtImage"
pf1.pg1.cmdImage.Name = "cmdImage"
pf1.pg1.Name = "pg1"
pf1.pg2.Label5.Name = "Label5"
pf1.pg2.txtFont.Name = "txtFont"
pf1.pg2.cmdFont.Name = "cmdFont"
pf1.pg2.label22.Name = "label22"
pf1.pg2.cboForecolor.Name = "cboForecolor"
pf1.pg2.Label13.Name = "Label13"
pf1.pg2.spnFontSize.Name = "spnFontSize"
pf1.pg2.Name = "pg2"
pf1.pg3.Label5.Name = "Label5"
pf1.pg3.txtClass.Left = 96
pf1.pg3.txtClass.Top = 12
pf1.pg3.txtClass.Name = "txtClass"
pf1.pg3.Name = "pg3"
pf1.Name = "pf1"
�PROCEDURE savesettings
LOCAL i,lnAlen,lnAlen2,lnPos,lcValue,lcControlProperty,lcQuoteDelim,lcQuoteDelim2
LOCAL lSaveEmpty,lSkipQuotes 

lnAlen=ALEN(THIS.aProps,1)
DIMENSION THIS.oSettings.aSettings[1]
DIMENSION THIS.oSettings.aSaveOptions[1,5]
STORE "" TO THIS.oSettings.aSettings
STORE "" TO THIS.oSettings.aSaveOptions

FOR i = 1 TO lnAlen
	THIS.GetPropFlags(THIS.aProps[m.i,7])
	lcControlProperty = THIS.aProps[m.i,2]
	lcValue = &lcControlProperty.	
	IF VARTYPE(lcValue)="C"
		lcValue = ALLTRIM(lcValue)
	ENDIF
	IF EMPTY(lcValue) AND !THIS.lSaveEmpty
		LOOP
	ENDIF
	IF !EMPTY(THIS.oSettings.aSettings[1])
		lnAlen2=ALEN(THIS.oSettings.aSettings,1)
		DIMENSION THIS.oSettings.aSettings[lnAlen2+1]
		DIMENSION THIS.oSettings.aSaveOptions[lnAlen2+1,5]
	ENDIF
	lnAlen2=ALEN(THIS.oSettings.aSettings,1)
	DO CASE
	CASE THIS.lSkipQuotes
		lcQuoteDelim=[]
		lcQuoteDelim2=[]
	CASE ATC(["],TRANS(lcValue))#0
		lcQuoteDelim="["
		lcQuoteDelim2="]"
	OTHERWISE
		lcQuoteDelim=["]
		lcQuoteDelim2=["]
	ENDCASE
	THIS.oSettings.aSettings[lnAlen2] = THIS.aProps[m.i,3]+"="+lcQuoteDelim+TRANS(lcValue)+lcQuoteDelim2
	THIS.oSettings.aSaveOptions[lnAlen2,1] = THIS.aProps[m.i,1]	&&property name
	THIS.oSettings.aSaveOptions[lnAlen2,2] = lcValue			&&property setting
	THIS.oSettings.aSaveOptions[lnAlen2,3] = THIS.aProps[m.i,5]	&&generate before
	THIS.oSettings.aSaveOptions[lnAlen2,4] = THIS.aProps[m.i,4]	&&style property
	THIS.oSettings.aSaveOptions[lnAlen2,5] = THIS.aProps[m.i,6]	&&wizard flags
ENDFOR

ENDPROC
PROCEDURE restoresettings
LOCAL i,lnAlen,lnPos,lcSaveExact,lcProperty,lcControlProperty
lnAlen=ALEN(THIS.aProps,1)
lcSaveExact = SET("EXACT")
SET EXACT ON

FOR i = 1 TO lnAlen
	lcProperty = THIS.aProps[m.i,1]
	lcControlProperty =  THIS.aProps[m.i,2]
	IF EMPTY(lcProperty) OR EMPTY(lcControlProperty)
		LOOP
	ENDIF
	lnPos=ASCAN(THIS.oSettings.aSaveOptions,lcProperty)
	IF lnPos#0
		&lcControlProperty. = THIS.oSettings.aSaveOptions[lnPos+1]
	ENDIF
ENDFOR

SET EXACT &lcSaveExact

ENDPROC
PROCEDURE registersetting
LPARAMETER tcProp,tcControl,tcHTMLProp,tcStyleProperty,tlGenBefore,tnWizardFlags,tnPropertyFlags

* tlSkipQuotes,,tlSaveEmpty

* tcProp 			name of property being customized (ex. "bgcolor")
* tcControl 		name of control and property to bind (ex. "THIS.cboColor.Value")
* tcHTMLProp 		HTML property that is being set (ex. "oGenTag.bgColor")
* tcStyleProperty 	name of property for Style (e.g., Font-Family)
* tlGenBefore		whether property is set before or after _oHTML.Generate
*   				is called where HTML table is generated
* tnWizardFlags		flags returned to the Wizard for processing (reserved for Wizards)
* -- ImageFile		1	whether property references image file for lCopyImages in Wizard
* tnPropertyFlags	flags used by Options dialogs to process properties
* -- SkipQuotes		1	whether expression created has quotes around value	-- BITTEST(THIS.aProps[m.i,7],0)
* -- SaveEmpty		2	whetber to write out property if value is EMPTY()	-- BITTEST(THIS.aProps[m.i,7],1)

LOCAL lnAlen,i
lnAlen=0
IF VARTYPE(tlGenBefore)#"L"
	tlGenBefore=.F.
ENDIF
IF VARTYPE(tnWizardFlags)#"N"
	tnWizardFlags=0
ENDIF
IF VARTYPE(tnPropertyFlags)#"N"
	tnPropertyFlags=0
ENDIF

IF EMPTY(THIS.aProps[1])
	DIMENSION THIS.aProps[1,7]
ELSE
	* Check if Property already exists and overwrite
	FOR i = 1 TO ALEN(THIS.aProps,1)
		IF UPPER(THIS.aProps[m.i,1]) == UPPER(tcProp)
			lnAlen = m.i
			EXIT
		ENDIF
	ENDFOR
	IF lnAlen=0
		DIMENSION THIS.aProps[ALEN(THIS.aProps,1)+1,7]
	ENDIF
ENDIF

lnAlen = IIF(lnAlen=0,ALEN(THIS.aProps,1),lnAlen)

THIS.aProps[lnAlen,1] = tcProp
THIS.aProps[lnAlen,2] = tcControl
THIS.aProps[lnAlen,3] = IIF(EMPTY(tcHTMLProp),tcProp,tcHTMLProp)
THIS.aProps[lnAlen,4] = tcStyleProperty
THIS.aProps[lnAlen,5] = tlGenBefore
THIS.aProps[lnAlen,6] = tnWizardFlags
THIS.aProps[lnAlen,7] = tnPropertyFlags

ENDPROC
PROCEDURE resetsettings
DIMENSION THIS.oSettings.aSettings[1]
DIMENSION THIS.oSettings.aSaveOptions[1,5]
STORE "" TO THIS.oSettings.aSettings
STORE "" TO THIS.oSettings.aSaveOptions

ENDPROC
PROCEDURE delarow
* Generic routine to delete an array element. If the array is
* multi-dimensional, then a whole row is deleted.
*
* aArray- array to scan
* wziRow - row to delete
LPARAMETERS aArray,wziRow

LOCAL nColumns
IF ALEN(aArray,1)<m.wziRow OR m.wziRow<0
	RETURN
ENDIF
IF ALEN(aArray,1)=1
	STORE ""  TO aArray
ELSE
	nColumns = ALEN(aArray,2)
	ADEL(aArray,m.wziRow)
	IF nColumns=0
		DIMENSION aArray[ALEN(aArray)-1]
	ELSE
		DIMENSION aArray[ALEN(aArray,1)-1,nColumns]
	ENDIF
ENDIF

ENDPROC
PROCEDURE unregistersetting
LPARAMETER tcProp

LOCAL aTmpProps,i
IF EMPTY(tcProp)
	RETURN
ENDIF

FOR i = 1 TO ALEN(THIS.aProps,1)
	IF UPPER(tcProp) == UPPER(THIS.aProps[m.i,1])
		DIMENSION aTmpProps[1]
		ACOPY(THIS.aProps,aTmpProps)
		THIS.DelARow(@aTmpProps,m.i)
		DIMENSION THIS.aProps[1]
		ACOPY(aTmpProps,THIS.aProps)
		RETURN
	ENDIF
ENDFOR

ENDPROC
PROCEDURE getpropflags
LPARAMETERS tnFlag
THIS.lSkipQuotes = BITTEST(tnFlag,0)
THIS.lSaveEmpty = BITTEST(tnFlag,1)	

ENDPROC
PROCEDURE Show
LPARAMETERS nStyle
THIS.RestoreSettings()

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', 'Arial')
ENDIF

ENDPROC
�PROCEDURE cexpression_access
LOCAL lcColor1,lcColor2,lnRows
lcColor1 = ALLTRIM(THIS.cboColors1.Color)
lcColor2 = ALLTRIM(THIS.cboColors2.Color)
lnRows = THIS.spnRows.Value
DO CASE
CASE EMPTY(lcColor1) AND EMPTY(lcColor2) AND lnRows=1
	 THIS.cexpression = ""
OTHERWISE
	THIS.cexpression = [bgcolor="{{IIF(MOD(INT((RECNO()-1)/] + TRANS(lnRows) + [),2)=0,']+;
	lcColor1 + [','] + lcColor2 + [')}}"]
ENDCASE
RETURN THIS.cexpression

ENDPROC
PROCEDURE cexpression_assign
LPARAMETERS vNewVal
LOCAL lnCharPos,lcStr,lcCharStr
THIS.cExpression = vNewVal
IF EMPTY(vNewVal)
	RETURN
ENDIF

* Get row value
lcCharStr = ""
lcStr = ""
lnCharPos = RAT("/",vNewVal)
IF lnCharPos > 0
	lcStr=""
	DO WHILE .T.
		lnCharPos = lnCharPos + 1
		lcCharStr = SUBSTR(vNewVal,lnCharPos,1)
		IF VAL(lcCharStr)=0
			lcStr=VAL(lcStr)
			lcStr = IIF(lcStr=0,1,lcStr)
			THIS.spnRows.Value = lcStr 
			EXIT		
		ENDIF
		lcStr = lcStr + lcCharStr
	ENDDO
ENDIF

* Get first row color
lcCharStr = ""
lcStr = ""
lnCharPos = RAT(",",vNewVal,2)
IF lnCharPos > 0
	lcStr=""
	lnCharPos = lnCharPos + 1
	DO WHILE .T.
		lnCharPos = lnCharPos + 1
		lcCharStr = SUBSTR(vNewVal,lnCharPos,1)
		IF lcCharStr="'"
			lcStr = IIF(EMPTY(lcStr),"",lcStr)
			THIS.cboColors1.Color = lcStr
			EXIT		
		ENDIF
		lcStr = lcStr + lcCharStr
	ENDDO
ENDIF

* Get next row color
lcCharStr = ""
lcStr = ""
lnCharPos = RAT(",",vNewVal)
IF lnCharPos > 0
	lcStr=""
	lnCharPos = lnCharPos + 1
	DO WHILE .T.
		lnCharPos = lnCharPos + 1
		lcCharStr = SUBSTR(vNewVal,lnCharPos,1)
		IF lcCharStr="'"
			lcStr = IIF(EMPTY(lcStr),"",lcStr)
			THIS.cboColors2.Color = lcStr
			EXIT		
		ENDIF
		lcStr = lcStr + lcCharStr
	ENDDO
ENDIF

ENDPROC

PROCEDURE color_access
IF THIS.ListIndex < 2
	RETURN ""
ELSE
	RETURN THIS.aColors[THIS.ListIndex-1,2]
ENDIF

ENDPROC
PROCEDURE color_assign
LPARAMETERS vNewVal
LOCAL i
IF EMPTY(vNewVal)
	THIS.Value = THIS.List[1]
ELSE
	FOR i = 1 TO ALEN(THIS.aColors,1)
		IF UPPER(vNewVal)==UPPER(THIS.aColors[m.i,2])
			THIS.Value = THIS.aColors[m.i,1]
		ENDIF
	ENDFOR
ENDIF
ENDPROC
PROCEDURE Init
LOCAL lcBMPPath

* Colors
#DEFINE DEFCOLOR	"Default"
#DEFINE BLACK	"Black"
#DEFINE MAROOM	"Maroon"
#DEFINE GREEN	"Green"
#DEFINE OLIVE	"Olive"
#DEFINE NAVY	"Navy"
#DEFINE PURPLE	"Purple"
#DEFINE TEAL	"Teal"
#DEFINE GRAY	"Gray"
#DEFINE SILVER	"Silver"
#DEFINE RED		"Red"
#DEFINE LIME	"Lime"
#DEFINE YELLOW	"Yellow"
#DEFINE BLUE	"Blue"
#DEFINE FUCHSIA	"Fuchsia"
#DEFINE AQUA	"Aqua"
#DEFINE WHITE	"White"

* Used for localization.
#DEFINE DEFCOLOR_LOC	"Default"
#DEFINE BLACK_LOC	"Black"
#DEFINE MAROOM_LOC	"Maroon"
#DEFINE GREEN_LOC	"Green"
#DEFINE OLIVE_LOC	"Olive"
#DEFINE NAVY_LOC	"Navy"
#DEFINE PURPLE_LOC	"Purple"
#DEFINE TEAL_LOC	"Teal"
#DEFINE GRAY_LOC	"Gray"
#DEFINE SILVER_LOC	"Silver"
#DEFINE RED_LOC		"Red"
#DEFINE LIME_LOC	"Lime"
#DEFINE YELLOW_LOC	"Yellow"
#DEFINE BLUE_LOC	"Blue"
#DEFINE FUCHSIA_LOC	"Fuchsia"
#DEFINE AQUA_LOC	"Aqua"
#DEFINE WHITE_LOC	"White"

LOCAL i
DIMENSION THIS.aColors[16,2]
THIS.aColors[1,1] = BLACK_LOC
THIS.aColors[1,2] = BLACK
THIS.aColors[2,1] = MAROOM_LOC
THIS.aColors[2,2] = MAROOM
THIS.aColors[3,1] = GREEN_LOC
THIS.aColors[3,2] = GREEN
THIS.aColors[4,1] = OLIVE_LOC
THIS.aColors[4,2] = OLIVE
THIS.aColors[5,1] = NAVY_LOC
THIS.aColors[5,2] = NAVY
THIS.aColors[6,1] = PURPLE_LOC
THIS.aColors[6,2] = PURPLE
THIS.aColors[7,1] = TEAL_LOC
THIS.aColors[7,2] = TEAL
THIS.aColors[8,1] = GRAY_LOC
THIS.aColors[8,2] = GRAY
THIS.aColors[9,1] = SILVER_LOC
THIS.aColors[9,2] = SILVER
THIS.aColors[10,1] = RED_LOC
THIS.aColors[10,2] = RED
THIS.aColors[11,1] = LIME_LOC
THIS.aColors[11,2] = LIME
THIS.aColors[12,1] = YELLOW_LOC
THIS.aColors[12,2] = YELLOW
THIS.aColors[13,1] = BLUE_LOC
THIS.aColors[13,2] = BLUE
THIS.aColors[14,1] = FUCHSIA_LOC
THIS.aColors[14,2] = FUCHSIA
THIS.aColors[15,1] = AQUA_LOC
THIS.aColors[15,2] = AQUA
THIS.aColors[16,1] = WHITE_LOC
THIS.aColors[16,2] = WHITE

THIS.AddItem(DEFCOLOR_LOC)

lcBMPPath=IIF(VERSION(2)=0,"",HOME()+"FFC\Graphics\")

FOR i = 1 TO ALEN(THIS.aColors,1)
	THIS.AddItem(" "+THIS.aColors[m.i,1])
	THIS.Picture[m.i+1] = lcBMPPath+"_"+FORCEEXT(THIS.aColors[m.i,2],"BMP")
ENDFOR

THIS.Value = THIS.List[1]
ENDPROC
!�� �!�!'%�~ H�U��������������
�����
������	�
����J���(�	�
����T�	�������C�	����
��%�C��	�

����B�-�����C��	��
��T�	��C����T�	��C�	��CSV���T�	�����(��	������C�	��	�����C�	��	�����C�<p>�	����
H�]�`���	��d����%�CN�	�����
��C�	����
��C�	�����C��	�����Ca�	���%��C�HTML��
DataPaging�	����
��C�	�����	��e��?�
��C�	���
��C�	�����C��	���
��C�	�����	��f��`���C����
��T��C�	����%�C������T��CC�	������)T�	� ���\C�	����_0.HTM��)T�	�!���\C�	����_1.HTM��)T�	�"���\C�	����_2.HTM����C�	� �	�����C�	�!�	�����C�	�"�	���T�	����� %�C�	�#�
�
C�	�$�
	����%�C�	�#0
����%�C�	�%�����B�-������	�%���T��CW��F��T���	�$��MSELECT &lcDisplayfield.,0 FROM (THIS.cParentSource) INTO CURSOR SYS(2015)

%�C�
��U�
F����B�-���)T�	����\C�	����_2.CSV��(��	������C�	��	�����������T���������	�$��
F�������C�	��	���,��CCCC�	�#��	�	�'��	�#6���	�&����C�a�	���%�CN�	���y���Ca�	���%��C�HTML��
DataPaging�	�����
��C�	���
��C�	�����C�	�!�	�(��T���	��)��T���	��*��T���	�+�,�-��%�C�	��
����%�C�	�.����T�	�.��	�$��������(�C������$%�CC�
���fCC�	�.�f��}�T�	���
����!�����
��C�	�/��
��	�0�
��C�	���%�C�	�#�
������CC�	�'���	�&���%��	�1�
C�	��
	��#���C��	���
��C�	�����Ca�	����<���C��	����
��C�	�2��T�	��)����T�	��*������C��	�+�,�3����C�	�"�	�(��
��C�	�/��
��	�0�T�	��)����T�	��*������C��	�+�,�3����C�	� �	�(��T�	�4�-��
��C�	�/��
��	�0�
��C�	�5����C��	�+�,�3����C�	��	�(���%�C�6���O����
��C�	�7���U8LATMPFIELDS
LNSAVEAREALCPATHLCDISPLAYFIELDILATMPFIELDS2LCSAVECOLORLCSAVEIMAGELCSAVETITLETHISAGENERATEDFILES
NLINKFIELD
AFIELDLISTCLEANFIELDSNFIELDCOUNTCCSVFILECOUTFILE	CCSVFILE2UPDATEGENFILESBODYADDITEMNTABLESTYLE
NDATAPAGESIZEADD_PAGEBUTTONSADD_DATAITEMADD_REPEATTABLEADD_FRAME_SCRIPTADDGENHTMLFIELDADD_REPEATTABLE_SCRIPTADD_NAVBUTTONS
ADD_FIELDSADD_NAVBUTTON_SCRIPTCOUTFILE_FRAME0COUTFILE_FRAME1COUTFILE_FRAME2
CPARENTSOURCE
CDISPLAYFIELD
CPARENTDBCADD_CAPTIONCCHILDALIASSAVEFILEBGCOLOR
BACKGROUNDHEADTITLEITEM
CLINKFIELDRELEASEITEMSSETITEMS
LONETOMANYADD_FILTER_SCRIPTADDTEXTLBODYTAGMAKEFRAMESETOWIZARD
RESETDEFAULTS����T������%%�C����N�
C���d�
��I�
T������&��C�<frameset rows="80,*">����S��C�4	<frame name="frame0" id="frame0" frameborder=0 src=C�����>����0��C�	<frameset cols="C�_�%,*">����T��C�5		<frame name="frame1" id="frame1" frameborder=0 src=C�����>����T��C�5		<frame name="frame2" id="frame2" frameborder=0 src=C�����>������C�	</frameset>������C�</frameset>����ULNFRAMEPERCENTTHIS
NFRAMEPERCENTADDITEMCOUTFILE_FRAME0COUTFILE_FRAME1COUTFILE_FRAME2�����#���������	����T�
��C�table�
��
��T�
����
���T�
����#�
���T�
���C�
�_��%�C�
��
����T�
����
����T��C�thead�
��
�� T����tblvfpdataheader��T��C�tr��
��!T��C����	C���6��%���	C�
��	��n�T�
��C�����������(������
%����,�T���
���T�	�C�EXACTv��G �T��C�C�
�f���$%������C��	���T��C������SET EXACT &lcExact
�I�T��C������&T��C��	�
��C���6��K��C�	<td><b><u><div id=C�@�>C���</div></u></b></td>������T��C�tbody�
��
��T��C�tr��
��"T����selectrecord(this)�������(������&T��C��	�
��C���6��G��C�	<td align=left><span datafld="C�@�"></span></td>��������C�p�
��
��UTAFIELDS
TLHIERVIEWLNCOUNTLCFIELDLCSTRLNFIELDCOUNTOTAG	LCCAPTIONLNPOSLCEXACTTHISOGENTAGBODYADDTAGIDCTABLEIDDATASRCCDATASRCDATAPAGESIZE
NDATAPAGESIZECREPEATTABLESTYLESTYLE
CDISPLAYFIELDADDITEMONCLICK-*��C�HTML��SortTableColumn�����UTHISBODYADDGENHTMLFIELDq������������T��a��T���C�Div�����%�C��	�
��s�T���
���	��������(�C����j�%��
������C�<br>������T��-��T��C�����T��CC������.��C�<strong>��: </strong>�����H��C�<label datasrc=#���	 datafld=��	></label>�������U
TAFIELDSLNCOUNTLCFIELDLLFIRSTFIELDLCFIELDCAPTIONTHISOGENTAGBODYADDTAGCREPEATTABLESTYLESTYLEADDITEMCDATASRC�������%�C����C�C�0
��=�T�������T��C����AT��C�
 C�
 �<object id="���"C�
 C�
 �4classid="clsid:333C7BC4-460F-11D0-BC04-0080C7055A83"C�
 C�
 �7align="baseline" border="0" width="0" height="0"><paramC�
 C�
 �name="DataURL" value="��"><param name="UseHeader"C�
 C�
 �value="True"></object>C�
 C�
 C�
 C�
 ����C������U	TCCSVFILELCSTRTHISCCSVFILECDATASRCBODYADDITEM@���T������&��C�HTML��PageButtons�����UTLSKIPFRAMETHIS
LSKIPFRAMEBODYADDGENHTMLFIELD(%��C�HTML��
NavButtons�����UTHISBODYADDGENHTMLFIELD@���T������&��C�HTML��FrameScript�����UTLSKIPFRAMETHIS
LSKIPFRAMEBODYADDGENHTMLFIELD*'��C�HTML��FilterScript�����UTHISBODYADDGENHTMLFIELD,)��C�HTML��NavButtonsCode�����UTHISBODYADDGENHTMLFIELD����������$���C���(���������x�%%�CC�
����G�M�U���t���C���������B�CC���
��UTAFIELDSITHISDELAROWp���%�C�����B��%�CC����
��N����C������T���C�������U
TCFILENAMETHISAGENERATEDFILES��������&%�C���
�
�
�
��
��<�B��%�C�����d�
J���(�����T��C������C��
����%���������C���������C����������UAARRAYWZIROWNCOLUMNS����%�C�����
��%�B��T���C�Div�����T��������T���C�B�������CCC��������U		TCCAPTIONTHISLCAPTIONOGENTAGBODYADDTAGSTYLECREPEATTABLESTYLEADDTEXTqT����
��T������T������T������T������T������T���-��UTHIS
NDATAPAGESIZE
CPARENTSOURCE
CDISPLAYFIELD
CPARENTDBCCCHILDALIAS
CLINKFIELD
LONETOMANY
B�C����UTHISGENERATETABDATAgeneratetabdata,��makeframeset���add_repeattable�
��add_repeattable_scriptu��
add_fields���add_dataitem���add_pagebuttons���add_navbuttons��add_frame_scriptg��add_filter_script���add_navbutton_script,��cleanfieldsy��updategenfiles(��delarow���add_caption���
resetdefaults���
generatetable���1����aCaqA1a�21b�A1�A��Q�B���B"1�QA���1111!qA�A�����qA�11��A3�!1�QA��111a3!1A�AaAAAA���1aA����A�11q1��11q1����q1AS�A2qQ�Ab1AA��3�1��a��2bA�a�qAr�Aa�AQAa�QAa�A�a!sarAB3�3q1���2aA��qA�Qq��A3qq�AB3ra3Q3ra3q3�3q�vBQQAA2q�AAq�A�3�raAAq��1!A��AA3q�AA�a�q3�2�1���Z�����<r������0 �V � �� /!"�V!�!&�":"-�e"�"1��"a$5��$j%F��%u'Q�'�(j�(`)w�)�)�)�!��� ����	%����
�Ut#�������������	�T��C�
�����
��
�����
���������J���(�
��
�J���(�
��������(����m���CC�
���
��
���T��C�
���
���"lcValue = &lcControlProperty.	
%�C����C��)�T��C�����%�C����
�
	��K�.��%�CC��
��
�
����T��C�
��
����
��
������
�����������T��C�
��
���
H���a���
�	���
T�����
T������C�"C�_����=�T���[��T���]��2�a�T���"��T���"���9T�
��
����C�
���
��=�C�_���,T�
���������C�
���
���T�
������������,T�
���������C�
���
���,T�
���������C�
���
���,T�
���������C�
���
�����UILNALENLNALEN2LNPOSLCVALUELCCONTROLPROPERTYLCQUOTEDELIM
LCQUOTEDELIM2
LSAVEEMPTYLSKIPQUOTESTHISAPROPS	OSETTINGS	ASETTINGSASAVEOPTIONSGETPROPFLAGSB��������T��C�����T��C�EXACTv��G ������(����!�T��C�
������T��C�
������%�C���C������.��T��C���	����%������>&lcControlProperty. = THIS.oSettings.aSaveOptions[lnPos+1]
���SET EXACT &lcSaveExact
U
ILNALENLNPOSLCSAVEEXACT
LCPROPERTYLCCONTROLPROPERTYTHISAPROPS	OSETTINGSASAVEOPTIONSp�������������
T�����%�C����L��W�T��-���%�C����N��}�
T������%�C����N����
T������%�CC��	�
������	�
��������n������(�C�	�
���3�"%�CC�
���	�
fC�f��/�T���
���!����%�����j�"�	�
�C�	�
���������'T��C���C�	�
����6��T�	�
����������T�	�
����������,T�	�
�������CC������6��T�	�
����������T�	�
����������T�	�
����������T�	�
����������UTCPROP	TCCONTROL
TCHTMLPROPTCSTYLEPROPERTYTLGENBEFORE
TNWIZARDFLAGSTNPROPERTYFLAGSLNALENITHISAPROPSU�����������������J���(����J���(����UTHIS	OSETTINGS	ASETTINGSASAVEOPTIONS��������&%�C���
�
�
�
��
��<�B��%�C�����d�
J���(�����T��C������C��
����%���������C���������C����������UAARRAYWZIROWNCOLUMNS��������%�C����%�B�������(�C�������"%�C�fCC�
����f����
�������C�����
����C��
�������������C����
��B����UTCPROP	ATMPPROPSITHISAPROPSDELAROW6���T���C����T���C����UTNFLAGTHISLSKIPQUOTES
LSAVEEMPTY���
��C����UNSTYLETHISRESTORESETTINGS��%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$����� ��C�FontName�Arial�����UTHISSETALLsavesettings,��restoresettingsQ��registersetting���
resetsettings���delarowi	��unregistersettingm
��getpropflagsr��Show���Init
��11�R1�11r��!Q�A�AA��q�A����������A������A3�QAar���AA��AA�3����Q�AQ�AQ�Aba��!�AAA!AAr�������31�113�raAAq��1!A��AA3q��AA�!�Aq1AAA3qaa3q�3d	A2�+$�/< UD_y{d9&�uN������:f���x�)��� ��\]%��?�UF%����
���	B�����?�B�C���������UTHIS	LISTINDEXACOLORS�������%�C����4�T���C�������������(�C�������"%�C�fCC�
����f����T���C�
����������UVNEWVALITHISVALUELISTACOLORS#���������������!T����������Black��!T����������Black��"T����������Maroon��"T����������Maroon��!T����������Green��!T����������Green��!T����������Olive��!T����������Olive�� T����������Navy�� T����������Navy��"T����������Purple��"T����������Purple�� T����������Teal�� T����������Teal�� T����������Gray�� T����������Gray��"T����	������Silver��"T����	������Silver��T����
������Red��T����
������Red�� T����������Lime�� T����������Lime��"T����������Yellow��"T����������Yellow�� T����
������Blue�� T����
������Blue��#T����������Fuchsia��#T����������Fuchsia�� T����������Aqua�� T����������Aqua��!T����������White��!T����������White����C�Default����2T��CC�h����C�Q�
FFC\Graphics\6�������(�C������"��C� C�
��������;T����
������_CC�
�����BMP������T���C�����U	LCBMPPATHITHISACOLORSADDITEMPICTUREVALUELISTcolor_access,��color_assign���Inite��1A���A3qq�q��!�AAA2qpqa!!!!!!��!!11r"�!�Ar1r�y	�
)�)�PROCEDURE generatetabdata
LOCAL laTmpFields,lnSaveArea,lcPath,lcDisplayfield,i,laTmpFields2
LOCAL lcSaveColor,lcSaveImage,lcSaveTitle
DIMENSION laTmpFields[1]
DIMENSION laTmpFields2[1]
DIMENSION THIS.aGeneratedFiles[1]
STORE "" TO THIS.aGeneratedFiles[1]
THIS.nLinkField=0	&&reset

* Let's first cleanup field list
ACOPY(this.aFieldList,laTmpFields)
IF !THIS.CleanFields(@laTmpFields)	&&no valid fields (GENERAL or MEMO only)
	RETURN .F.
ENDIF
ACOPY(laTmpFields,this.aFieldList)
this.nFieldCount = ALEN(laTmpFields,1)

THIS.cCSVFile = FORCEEXT(THIS.cOutFile,"CSV")
THIS.cCSVFile2=""
COPY TO (THIS.cCSVFile) TYPE CSV

THIS.UpdateGenFiles(THIS.cCSVFile)
THIS.UpdateGenFiles(THIS.cOutFile)

this.Body.AddItem([<p>])

DO CASE
CASE THIS.nTableStyle = 100		&& List view
	IF RECCOUNT()>THIS.nDataPageSize
		THIS.Add_PageButtons()
	ENDIF
	THIS.Add_DataItem()
	THIS.Add_RepeatTable(@laTmpFields)
	THIS.Add_Frame_Script(.T.)
	THIS.Body.AddGenHTMLField("HTML",,"DataPaging")
	THIS.Add_RepeatTable_Script()

CASE THIS.nTableStyle = 101		&& Detail view
	THIS.Add_NavButtons()
	THIS.Add_DataItem()
	THIS.Add_Fields(@laTmpFields)
	THIS.Add_NavButton_Script()

CASE THIS.nTableStyle = 102		&& Hierarchical view

	ACOPY(laTmpFields,laTmpFields2)
	lcPath = JUSTPATH(THIS.cOutFile)
	IF EMPTY(lcPath)
		lcPath = JUSTPATH(FULL(THIS.cOutFile))
	ENDIF
	THIS.cOutFile_Frame0 = lcPath+"\"+JUSTSTEM(THIS.cOutFile)+"_0.HTM"
	THIS.cOutFile_Frame1 = lcPath+"\"+JUSTSTEM(THIS.cOutFile)+"_1.HTM"
	THIS.cOutFile_Frame2 = lcPath+"\"+JUSTSTEM(THIS.cOutFile)+"_2.HTM"
	THIS.UpdateGenFiles(THIS.cOutFile_Frame0)
	THIS.UpdateGenFiles(THIS.cOutFile_Frame1)
	THIS.UpdateGenFiles(THIS.cOutFile_Frame2)

	* Check for different parent table
	* To use 1-Many, must have both cParentSource and cDisplayField
	THIS.cCSVFile2=""
	IF !EMPTY(THIS.cParentSource) AND !EMPTY(THIS.cDisplayField)
		IF !FILE(THIS.cParentSource)
			IF EMPTY(THIS.cParentDBC)
				RETURN .F.
			ENDIF
			OPEN DATABASE (THIS.cParentDBC)		&&set current database			
		ENDIF
		lnSaveArea = SELECT()
		SELECT 0
		lcDisplayfield=THIS.cDisplayField
		SELECT &lcDisplayfield.,0 FROM (THIS.cParentSource);
		  INTO CURSOR SYS(2015)
		IF !USED()
			SELECT (lnSaveArea)
			RETURN .F.
		ENDIF
		THIS.cCSVFile2 = lcPath +"\"+JUSTSTEM(THIS.cOutFile)+"_2.CSV"
		COPY TO (THIS.cCSVFile2) TYPE CSV
		THIS.UpdateGenFiles(THIS.cCSVFile2)
		DIMENSION laTmpFields[1,2]
		laTmpFields[1,1] = THIS.cDisplayField
		SELECT (lnSaveArea)
	ENDIF

	* Frame 1 with List View
	THIS.Add_DataItem(THIS.cCSVFile2)
	THIS.Add_Caption(JUSTSTEM(IIF(EMPTY(THIS.cParentSource),THIS.cChildAlias,THIS.cParentSource)))
	THIS.Add_RepeatTable(@laTmpFields,.T.)
	IF RECCOUNT()>THIS.nDataPageSize
		THIS.Add_PageButtons(.T.)
		THIS.Body.AddGenHTMLField("HTML",,"DataPaging")
	ENDIF
	THIS.Add_RepeatTable_Script()
	THIS.Add_Frame_Script()
	THIS.SaveFile(THIS.cOutFile_Frame1)
	lcSaveColor=THIS.Body.BgColor
	lcSaveImage=THIS.Body.background
	lcSaveTitle=THIS.Head.Title.Item
	
	* Get link field
	IF !EMPTY(THIS.cCSVFile2)	&&1Many -- need to figure out link field
		IF EMPTY(THIS.cLinkField)	&&assume same name used for link fields
			THIS.cLinkField = THIS.cDisplayField
		ENDIF
		FOR i = 1 TO ALEN(laTmpFields2,1)
			IF UPPER(laTmpFields2[m.i,1]) == UPPER(ALLTRIM(THIS.cLinkField))
				THIS.nLinkField = m.i-1  &&need to -1 since ADO collections are zero-based
				EXIT
			ENDIF
		ENDFOR
	ENDIF
	
	* Frame 2 with Detail View/List View
	THIS.ReleaseItems()
	THIS.SetItems
	THIS.Add_DataItem()
	IF !EMPTY(THIS.cParentSource)
		THIS.Add_Caption(JUSTSTEM(THIS.cChildAlias))
	ENDIF
	IF THIS.lOneToMany AND !EMPTY(THIS.cCSVFile2)
		THIS.Add_RepeatTable(@laTmpFields2)
		THIS.Add_RepeatTable_Script()
		THIS.Add_Frame_Script(.T.)
	ELSE
		THIS.Add_Fields(@laTmpFields2)
	ENDIF
	THIS.Add_Filter_Script()
	THIS.Body.BgColor=lcSaveColor
	THIS.Body.background=lcSaveImage
	THIS.Head.Title.AddText(lcSaveTitle)
	THIS.SaveFile(THIS.cOutFile_Frame2)

	* Create Frame0
	THIS.ReleaseItems()
	THIS.SetItems
	THIS.Body.BgColor=lcSaveColor
	THIS.Body.background=lcSaveImage
	THIS.Head.Title.AddText(lcSaveTitle)
	THIS.SaveFile(THIS.cOutFile_Frame0)
	
	* Create Frameset
	THIS.lBodyTag = .F.
	THIS.ReleaseItems()
	THIS.SetItems
	THIS.MakeFrameset()
	THIS.Head.Title.AddText(lcSaveTitle)
	THIS.SaveFile(THIS.cOutFile)
ENDCASE

* if run from Wizard, reset to original values
IF VARTYPE(oWizard)="O"
	THIS.ResetDefaults()
ENDIF
ENDPROC
PROCEDURE makeframeset
LOCAL lnFramePercent
lnFramePercent = THIS.nFramePercent
IF VARTYPE(lnFramePercent)#"N" OR !BETWEEN(lnFramePercent,0,100)
	lnFramePercent = 20
ENDIF

this.AddItem([<frameset rows="80,*">])
this.AddItem([	<frame name="frame0" id="frame0" frameborder=0 src=]+JUSTFNAME(THIS.cOutFile_Frame0)+[>])
this.AddItem([	<frameset cols="]+TRANS(lnFramePercent)+[%,*">])
this.AddItem([		<frame name="frame1" id="frame1" frameborder=0 src=]+JUSTFNAME(THIS.cOutFile_Frame1)+[>])
this.AddItem([		<frame name="frame2" id="frame2" frameborder=0 src=]+JUSTFNAME(THIS.cOutFile_Frame2)+[>])
this.AddItem([	</frameset>])
this.AddItem([</frameset>])

ENDPROC
PROCEDURE add_repeattable
LPARAMETER taFields,tlHierView
LOCAL lnCount,lcField,lcStr,lnFieldCount,oTag,lcCaption,lnPos,lcExact
EXTERNAL ARRAY taFields

* Add table tag
this.oGenTag = this.Body.AddTag("table")
this.oGenTag.ID = THIS.cTableID
this.oGenTag.datasrc = "#"+THIS.cDataSrc
this.oGenTag.datapagesize = TRANS(THIS.nDataPageSize)

IF !EMPTY(THIS.cRepeatTableStyle)
	* ex. "color: maroon; font-size: 10pt; font-family: Arial"
	this.oGenTag.style = THIS.cRepeatTableStyle
ENDIF

* Add table header tag
oTag = this.oGenTag.AddTag("thead")
oTag.ID =  "tblvfpdataheader"
oTag = oTag.AddTag("tr")

* Add table header fields
lnFieldCount = IIF(tlHierView,1,ALEN(taFields,1))

IF tlHierView AND EMPTY(THIS.cDisplayField)
	THIS.cDisplayField=taFields[1,1]
ENDIF

FOR lnCount = 1 TO lnFieldCount
	IF tlHierView
		* Need ASCAN here
		lcCaption = THIS.cDisplayField
		lcExact = SET("EXACT")
		SET EXACT ON
		lnPos = ASCAN(taFields,UPPER(THIS.cDisplayField))	
		IF lnPos>0 AND (lnPos+4)<=ALEN(taFields)
			lcCaption = taFields[lnPos+4]
		ENDIF
		SET EXACT &lcExact
	ELSE
		lcCaption = taFields[lnCount,5]
	ENDIF
	lcField = IIF(tlHierView,THIS.cDisplayField,taFields[lnCount,1])
	  oTag.AddItem([	<td><b><u><div id=]+;
	   LOWER(lcField)+">"+PROPER(lcCaption)+;
	   [</div></u></b></td>])
ENDFOR

* Add table body tag
oTag = this.oGenTag.AddTag("tbody")
oTag=oTag.AddTag("tr")
oTag.onclick = "selectrecord(this)"

* Add table body fields
FOR lnCount = 1 TO lnFieldCount
	lcField = IIF(tlHierView,THIS.cDisplayField,taFields[lnCount ,1])
	oTag.AddItem([	<td align=left><span datafld="]+;
	  LOWER(lcField)+["></span></td>])
ENDFOR

this.Body.AddTag("p")

ENDPROC
PROCEDURE add_repeattable_script
this.Body.AddGenHTMLField("HTML",,"SortTableColumn")

ENDPROC
PROCEDURE add_fields
LPARAMETER taFields
LOCAL lnCount,lcField,llFirstField,lcFieldcaption
EXTERNAL ARRAY taFields

llFirstField=.T.
this.oGenTag = this.Body.AddTag("Div")

IF !EMPTY(THIS.cRepeatTableStyle)
	this.oGenTag.style = THIS.cRepeatTableStyle
ENDIF

FOR lnCount = 1 TO ALEN(taFields,1)
	IF !llFirstField
		this.oGenTag.AddItem([<br>])
	ENDIF
	llFirstField=.F.
	lcField = taFields[lnCount,1]
	lcFieldcaption = PROPER(taFields[lnCount,5])
	this.oGenTag.AddItem([<strong>]+lcFieldcaption +[: </strong>])
	this.oGenTag.AddItem([<label datasrc=#]+THIS.cDataSrc+[ datafld=]+lcField+[></label>])
ENDFOR

ENDPROC
PROCEDURE add_dataitem
LPARAMETER tcCSVFile
LOCAL lcStr

IF VARTYPE(tcCSVFile)#"C" OR !FILE(tcCSVFile)
	tcCSVFile = THIS.cCSVFile
ENDIF

tcCSVFile = JUSTFNAME(tcCSVFile)

* add data control object id tag
lcStr = CR_LF+;
[<object id="] + THIS.cDataSrc + ["] + CR_LF +;
[classid="clsid:333C7BC4-460F-11D0-BC04-0080C7055A83"] + CR_LF +;
[align="baseline" border="0" width="0" height="0"><param] + CR_LF +;
[name="DataURL" value="] + tcCSVFile + ["><param name="UseHeader"] + CR_LF +;
[value="True"></object>] + CR_LF+CR_LF

this.body.AddItem(lcStr)

ENDPROC
PROCEDURE add_pagebuttons
* Add navigation buttons
LPARAMETER tlSkipFrame
THIS.lSkipFrame = tlSkipFrame
this.Body.AddGenHTMLField("HTML",,"PageButtons")

ENDPROC
PROCEDURE add_navbuttons
this.Body.AddGenHTMLField("HTML",,"NavButtons")

ENDPROC
PROCEDURE add_frame_script
* Add navigation button script
LPARAMETER tlSkipFrame
THIS.lSkipFrame = tlSkipFrame
this.Body.AddGenHTMLField("HTML",,"FrameScript")

ENDPROC
PROCEDURE add_filter_script
this.Body.AddGenHTMLField("HTML",,"FilterScript")

ENDPROC
PROCEDURE add_navbutton_script
this.Body.AddGenHTMLField("HTML",,"NavButtonsCode")

ENDPROC
PROCEDURE cleanfields
LPARAMETER taFields
EXTERNAL ARRAY taFields

* This routine checks fields array and removes any "M" or "G" which are not support by 
* the Tabular Data Control. We assume array is 2D as follows
*	1 - field name
*	2 - field type
LOCAL i

FOR i = ALEN(taFields,1) TO 1 STEP -1
	IF INLIST(taFields[m.i,2],"G","M","U")
		THIS.DelARow(@taFields,i)
	ENDIF
ENDFOR
RETURN !EMPTY(taFields[1])	&&any valid fields left
ENDPROC
PROCEDURE updategenfiles
LPARAMETER tcFileName
IF EMPTY(tcFileName)
	RETURN
ENDIF
IF !EMPTY(THIS.aGeneratedFiles[1])
	DIMENSION THIS.aGeneratedFiles[ALEN(THIS.aGeneratedFiles)+1]
ENDIF
THIS.aGeneratedFiles[ALEN(THIS.aGeneratedFiles)]=tcFileName

ENDPROC
PROCEDURE delarow
* Generic routine to delete an array element. If the array is
* multi-dimensional, then a whole row is deleted.
*
* aArray- array to scan
* wziRow - row to delete
LPARAMETERS aArray,wziRow

LOCAL nColumns
IF ALEN(aArray,1)<m.wziRow OR m.wziRow<0
	RETURN
ENDIF
IF ALEN(aArray,1)=1
	STORE ""  TO aArray
ELSE
	nColumns = ALEN(aArray,2)
	ADEL(aArray,m.wziRow)
	IF nColumns=0
		DIMENSION aArray[ALEN(aArray)-1]
	ELSE
		DIMENSION aArray[ALEN(aArray,1)-1,nColumns]
	ENDIF
ENDIF

ENDPROC
PROCEDURE add_caption
LPARAMETER tcCaption

IF EMPTY(tcCaption) OR !THIS.lCaption
	RETURN
ENDIF

this.oGenTag = this.Body.AddTag("Div")
this.oGenTag.style = THIS.cRepeatTableStyle
this.oGenTag = this.oGenTag.AddTag("B")
this.oGenTag.AddText(ALLTRIM(PROPER(tcCaption)))

ENDPROC
PROCEDURE resetdefaults
THIS.nDataPageSize = 10
THIS.cParentSource = ""
THIS.cDisplayField = ""
THIS.cParentDBC = ""
THIS.cChildAlias = ""
THIS.cLinkField  = ""
THIS.lOneToMany = .F.
ENDPROC
PROCEDURE generatetable
RETURN this.GenerateTabData()
ENDPROC
_staticoptions_htmlsty.vcxformPixels_listoptionsBDoCreate = .T.
Visible = .T.
Name = "_listoptions"
cmdOK.Name = "cmdOK"
cmdCancel.Name = "cmdCancel"
cmdReset.Name = "cmdReset"
Label1.Name = "Label1"
pf1.ErasePage = .T.
pf1.pg1.cboBorderColor.Name = "cboBorderColor"
pf1.pg1.Label2.BackStyle = 0
pf1.pg1.Label2.Name = "Label2"
pf1.pg1.cboBackColor.Name = "cboBackColor"
pf1.pg1.Label3.BackStyle = 0
pf1.pg1.Label3.Name = "Label3"
pf1.pg1.Label4.BackStyle = 0
pf1.pg1.Label4.Name = "Label4"
pf1.pg1.Label5.BackStyle = 0
pf1.pg1.Label5.Name = "Label5"
pf1.pg1.spnBorder.Name = "spnBorder"
pf1.pg1.txtImage.Name = "txtImage"
pf1.pg1.cmdImage.Name = "cmdImage"
pf1.pg1.Name = "pg1"
pf1.pg2.Label5.Name = "Label5"
pf1.pg2.txtFont.Name = "txtFont"
pf1.pg2.cmdFont.Name = "cmdFont"
pf1.pg2.label22.Name = "label22"
pf1.pg2.cboForecolor.Name = "cboForecolor"
pf1.pg2.Label13.Name = "Label13"
pf1.pg2.spnFontSize.Name = "spnFontSize"
pf1.pg2.Name = "pg2"
pf1.pg3.Label5.Name = "Label5"
pf1.pg3.txtClass.Left = 96
pf1.pg3.txtClass.Top = 12
pf1.pg3.txtClass.Name = "txtClass"
pf1.pg3.Name = "pg3"
pf1.Name = "pf1"
�PROCEDURE Load
DoDefault()
THIS.RegisterSetting("dynamiclist","THIS.pf1.pg3.dynamiclist.cExpression","cTDAttributes",,.T.)

ENDPROC
�� '%����U`	��C��T��C�dynamiclist�$THIS.pf1.pg3.dynamiclist.cExpression�
cTDAttributes�a����UTHISREGISTERSETTINGLoad,��1�A2~)_dynamiclist_htmlsty.vcx	containerdynamiclist_listoptions.pf1.pg3-Top = 45
Left = 11
BackStyle = 0
Visible = .T.
Name = "dynamiclist"
cbocolors1.Name = "cbocolors1"
cbocolors2.Name = "cbocolors2"
Label1.BackStyle = 0
Label1.Name = "Label1"
Label2.BackStyle = 0
Label2.Name = "Label2"
Label3.BackStyle = 0
Label3.Name = "Label3"
spnRows.Name = "spnRows"
_listoptions_staticoptions2ClassPixels_listoptionsJArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
_options_htmlsty.vcxformPixels_staticoptionsMHeight = 271
Width = 395
DoCreate = .T.
Name = "_staticoptions"
cmdOK.Top = 240
cmdOK.Left = 236
cmdOK.TabIndex = 4
cmdOK.Name = "cmdOK"
cmdCancel.Top = 240
cmdCancel.Left = 312
cmdCancel.TabIndex = 5
cmdCancel.Name = "cmdCancel"
cmdReset.Top = 240
cmdReset.Left = 12
cmdReset.TabIndex = 3
cmdReset.Name = "cmdReset"
�PROCEDURE Load
THIS.RegisterSetting("bordercolor","THIS.pf1.pg1.cboBorderColor.Color","oGenTag.bordercolor")
THIS.RegisterSetting("bgcolor","THIS.pf1.pg1.cboBackColor.Color","oGenTag.bgcolor")
THIS.RegisterSetting("background","THIS.pf1.pg1.txtImage.Value","oGenTag.background",,,1)
THIS.RegisterSetting("border","THIS.pf1.pg1.spnBorder.Value","oGenTag.border",,,,2)
THIS.RegisterSetting("fontface","THIS.pf1.pg2.txtFont.Value","oGenTag.Style","font-family",,,1)
THIS.RegisterSetting("fontsize","THIS.pf1.pg2.spnFontSize.Value","oGenTag.Style","font-size",,,1)
THIS.RegisterSetting("forecolor","THIS.pf1.pg2.cboForeColor.Color","oGenTag.Style","color",,,1)
THIS.RegisterSetting("class","THIS.pf1.pg3.txtClass.Value","oGenTag._Class")

ENDPROC
Z�� AAz%��
��U�U��C�bordercolor�!THIS.pf1.pg1.cboBorderColor.Color�oGenTag.bordercolor����K��C�bgcolor�THIS.pf1.pg1.cboBackColor.Color�oGenTag.bgcolor����R��C�
background�THIS.pf1.pg1.txtImage.Value�oGenTag.background������L��C�border�THIS.pf1.pg1.spnBorder.Value�oGenTag.border�������X��C�fontface�THIS.pf1.pg2.txtFont.Value�
oGenTag.Style�font-family������Z��C�fontsize�THIS.pf1.pg2.spnFontSize.Value�
oGenTag.Style�	font-size������X��C�	forecolor�THIS.pf1.pg2.cboForeColor.Color�
oGenTag.Style�color������D��C�class�THIS.pf1.pg3.txtClass.Value�oGenTag._Class����UTHISREGISTERSETTINGLoad,��1Q�!����A2�)AlabellabelLabel1_staticoptions�FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "You can specify additional settings for the data table generated."
Height = 29
Left = 12
Top = 12
Width = 372
TabIndex = 1
Name = "Label1"
	pageframe	pageframepf1_staticoptions�ErasePage = .T.
PageCount = 3
TabStyle = 1
BorderWidth = 0
Top = 48
Left = 12
Width = 372
Height = 180
TabIndex = 2
Name = "pf1"
Page1.FontName = "MS Sans Serif"
Page1.FontSize = 8
Page1.Caption = "Border"
Page1.Name = "pg1"
Page2.FontName = "MS Sans Serif"
Page2.FontSize = 8
Page2.Caption = "Font"
Page2.Name = "pg2"
Page3.FontName = "MS Sans Serif"
Page3.FontSize = 8
Page3.Caption = "Other"
Page3.Name = "pg3"

_cbocolors_htmlsty.vcxcomboboxcboBorderColor_staticoptions.pf1.pg1�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 119
TabIndex = 2
Top = 12
Width = 120
Name = "cboBorderColor"
labellabelLabel2_staticoptions.pf1.pg1�FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Border \<color"
Height = 17
Left = 11
Top = 17
Width = 84
TabIndex = 1
Name = "Label2"

_cbocolors_htmlsty.vcxcomboboxcboBackColor_staticoptions.pf1.pg1FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 119
TabIndex = 4
Top = 48
Width = 120
Name = "cboBackColor"
labellabelLabel3_staticoptions.pf1.pg1�FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Bac\<kground color"
Height = 17
Left = 11
Top = 53
Width = 96
TabIndex = 3
Name = "Label3"
labellabelLabel4_staticoptions.pf1.pg1�FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Background \<image"
Height = 17
Left = 11
Top = 88
Width = 104
TabIndex = 5
Name = "Label4"
labellabelLabel5_staticoptions.pf1.pg1�FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Border \<width"
Height = 17
Left = 11
Top = 125
Width = 84
TabIndex = 8
Name = "Label5"
spinnerspinner	spnBorder_staticoptions.pf1.pg1�FontName = "MS Sans Serif"
FontSize = 8
Height = 23
KeyboardLowValue = 0
Left = 119
SpinnerLowValue =   0.00
TabIndex = 9
Top = 120
Width = 48
Value = 0
Name = "spnBorder"
textboxtextboxtxtImage_staticoptions.pf1.pg1{FontName = "MS Sans Serif"
FontSize = 8
Height = 22
Left = 119
TabIndex = 6
Top = 84
Width = 204
Name = "txtImage"

commandbutton
commandbuttoncmdImage_staticoptions.pf1.pg1aTop = 84
Left = 335
Height = 22
Width = 21
Caption = "..."
TabIndex = 7
Name = "cmdImage"
�PROCEDURE Click
#DEFINE GETFILE_GRAPHICSPROMPT_LOC	"Images:JPG,GIF"
LOCAL lcFileName
lcFileName = GETPICT(GETFILE_GRAPHICSPROMPT_LOC)
IF EMPTY(lcFileName) OR !FILE(lcFileName)
	RETURN ""
ENDIF
THIS.Parent.txtImage.Value = lcFileName

ENDPROC
@�� ''4f%����Ud���T��C�Images:JPG,GIF��%�C���C�0
��G�	B�����T��������U
LCFILENAMETHISPARENTTXTIMAGEVALUEClick,��1r���Aa2�)'labellabelLabel5_staticoptions.pf1.pg2�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Font name(s)"
Height = 15
Left = 11
Top = 16
Width = 63
TabIndex = 1
Name = "Label5"
textboxtextboxtxtFont_staticoptions.pf1.pg2yFontName = "MS Sans Serif"
FontSize = 8
Height = 22
Left = 83
TabIndex = 2
Top = 12
Width = 240
Name = "txtFont"

commandbutton
commandbuttoncmdFont_staticoptions.pf1.pg2`Top = 12
Left = 335
Height = 22
Width = 21
Caption = "..."
TabIndex = 3
Name = "cmdFont"
PROCEDURE Click
PRIVATE cFont
LOCAL lcTxtFont,loGetFont,lcFont
cFont=""
loGetFont=NewObject("getfontname",THISFORM.ClassLibrary,"","cFont")
loGetFont.Show()
lcFont = ALLTRIM(m.cFont)
IF !EMPTY(lcFont)
	lcTxtFont = ALLTRIM(THIS.Parent.txtFont.Value)
	IF ATC(lcFont+",",lcTxtFont)=0 AND ;
	   !lcFont==ALLTRIM(SUBSTR(lcTxtFont,RAT(",",lcTxtFont)+1))
		IF !EMPTY(THIS.Parent.txtFont.Value)
			lcFont = ALLTRIM(THIS.Parent.txtFont.Value)+", "+lcFont
		ENDIF
		THIS.Parent.txtFont.Value = lcFont
	ENDIF
ENDIF

ENDPROC
Q�� 88�9%����U-5�������
T�����,T��C�getfontname����cFont���
��C����T��C�
����%�C��
��&�T��C���	�
���8%�C��,�����CC�C�,���\�
	��"�%�C���	�
�
���"T��C���	�
��, ����T���	�
������UCFONT	LCTXTFONT	LOGETFONTLCFONTTHISFORMCLASSLIBRARYSHOWTHISPARENTTXTFONTVALUEClick,��1q�������!AaAA2	)8labellabellabel22_staticoptions.pf1.pg2�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Font si\<ze"
Height = 15
Left = 11
Top = 53
Width = 44
TabIndex = 4
Name = "label22"

_cbocolors_htmlsty.vcxcomboboxcboForecolor_staticoptions.pf1.pg2~FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 83
TabIndex = 7
Top = 84
Width = 120
Name = "cboForecolor"
labellabelLabel13_staticoptions.pf1.pg2�FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Fore\<color"
Height = 15
Left = 11
Top = 89
Width = 46
TabIndex = 6
Name = "Label13"
spinnerspinnerspnFontSize_staticoptions.pf1.pg2�FontName = "MS Sans Serif"
FontSize = 8
Height = 23
KeyboardLowValue = 0
Left = 83
SpinnerLowValue =   0.00
TabIndex = 5
Top = 48
Width = 48
Name = "spnFontSize"
labellabelLabel5_staticoptions.pf1.pg3�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Style class"
Height = 15
Left = 11
Top = 16
Width = 52
TabIndex = 1
Name = "Label5"
textboxtextboxtxtClass_staticoptions.pf1.pg3zFontName = "MS Sans Serif"
FontSize = 8
Height = 22
Left = 83
TabIndex = 2
Top = 12
Width = 240
Name = "txtClass"
_staticoptions_options21ClassPixels_staticoptionsJArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
_tablistoptions_htmlsty.vcxformPixels_tabhieroptions�DoCreate = .T.
cparentalias = 
cparentdbc = 
cparentsource = 
cchildalias = 
Name = "_tabhieroptions"
cmdOK.Name = "cmdOK"
cmdCancel.Name = "cmdCancel"
cmdReset.Name = "cmdReset"
Label1.Height = 24
Label1.Left = 12
Label1.Top = 12
Label1.Width = 372
Label1.Name = "Label1"
pf1.ErasePage = .T.
pf1.PageCount = 4
pf1.pg1.cboBorderColor.Name = "cboBorderColor"
pf1.pg1.Label2.Name = "Label2"
pf1.pg1.cboBackColor.Name = "cboBackColor"
pf1.pg1.Label3.Name = "Label3"
pf1.pg1.Label4.Name = "Label4"
pf1.pg1.Label5.Name = "Label5"
pf1.pg1.spnBorder.Name = "spnBorder"
pf1.pg1.txtImage.Name = "txtImage"
pf1.pg1.cmdImage.Name = "cmdImage"
pf1.pg1.Enabled = .F.
pf1.pg1.PageOrder = 4
pf1.pg1.Name = "pg1"
pf1.pg2.Label5.Name = "Label5"
pf1.pg2.txtFont.Name = "txtFont"
pf1.pg2.cmdFont.Name = "cmdFont"
pf1.pg2.label22.Name = "label22"
pf1.pg2.CboForecolor.Name = "CboForecolor"
pf1.pg2.Label13.Name = "Label13"
pf1.pg2.spnFontSize.Name = "spnFontSize"
pf1.pg2.PageOrder = 1
pf1.pg2.Name = "pg2"
pf1.pg3.Label5.Name = "Label5"
pf1.pg3.txtClass.Name = "txtClass"
pf1.pg3.cboHighlightColor.Name = "cboHighlightColor"
pf1.pg3.Label6.BackStyle = 0
pf1.pg3.Label6.Name = "Label6"
pf1.pg3.Label7.BackStyle = 0
pf1.pg3.Label7.Name = "Label7"
pf1.pg3.spnPageSize.Name = "spnPageSize"
pf1.pg3.PageOrder = 2
pf1.pg3.Name = "pg3"
pf1.Page4.FontName = "MS Sans Serif"
pf1.Page4.FontSize = 8
pf1.Page4.Caption = "Relations"
pf1.Page4.PageOrder = 3
pf1.Page4.Name = "pg4"
pf1.Name = "pf1"

:PROCEDURE refreshcontrols
LOCAL i
THIS.pf1.pg4.txtTable.Value = THIS.cParentAlias
THIS.pf1.pg4.cboDisplayField.Clear
IF EMPTY(THISFORM.cParentAlias)
	FOR i = 1 TO THIS.pf1.pg4.cboChildField.ListCount
		THIS.pf1.pg4.cboDisplayField.AddItem(THIS.pf1.pg4.cboChildField.List[m.i])
	ENDFOR
	THIS.pf1.pg4.cboDisplayField.Value = THIS.pf1.pg4.cboChildField.Value
	THIS.pf1.pg4.cboChildField.Enabled = .F.
	THIS.pf1.pg4.chkOneMany.Enabled = .F.
ELSE
	SELECT (THIS.cParentAlias)
	FOR i = 1 TO FCOUNT()
		IF INLIST(VARTYPE(FIELD(m.i)),"M","G","U")
			LOOP
		ENDIF
		THIS.pf1.pg4.cboDisplayField.AddItem(PROPER(FIELD(m.i)))
	ENDFOR
	IF THIS.pf1.pg4.cboDisplayField.ListCount>0
		THIS.pf1.pg4.cboDisplayField.Value = THIS.pf1.pg4.cboDisplayField.List[1]
	ENDIF
	THIS.pf1.pg4.cboChildField.Enabled = .T.
	THIS.pf1.pg4.chkOneMany.Enabled = .T.
ENDIF

ENDPROC
PROCEDURE Destroy
SELECT (THIS.oEngine.cWizAlias)
DoDefault()

ENDPROC
PROCEDURE Load
DoDefault()
THIS.RegisterSetting("cDisplayField","THIS.pf1.pg4.cboDisplayField.Value","cDisplayField",,.T.)
THIS.RegisterSetting("lOneToMany","THIS.pf1.pg4.chkOneMany.Value","lOneToMany",,.T.,,1)
THIS.RegisterSetting("cParentDBC","THIS.cParentDBC","cParentDBC",,.T.)
THIS.RegisterSetting("cParentSource","THIS.cParentSource","cParentSource",,.T.)
THIS.RegisterSetting("cLinkField","THIS.pf1.pg4.cboChildField.Value","cLinkField",,.T.)
THIS.RegisterSetting("cParentAlias","THIS.cParentAlias","cParentAlias")
THIS.RegisterSetting("cChildAlias","THIS.cChildAlias","cChildAlias",,.T.)
THIS.RegisterSetting("lCaption","THIS.pf1.pg3.chkCaptions.Value","lCaption",,.T.,,1)

ENDPROC
PROCEDURE Show
LPARAMETERS nstyle
LOCAL i,lcValue
DoDefault()

FOR i = 1 TO ALEN(THIS.oEngine.aWizFields)
	* Need to skip for Memo,General types
	THIS.pf1.pg4.cboChildField.AddItem(THIS.oEngine.aWizFields[m.i])
ENDFOR

IF THIS.pf1.pg4.cboChildField.ListCount>0 AND EMPTY(THIS.pf1.pg4.cboChildField.Value)
	THIS.pf1.pg4.cboChildField.Value = THIS.pf1.pg4.cboChildField.List[1]
ELSE
	* Since values are set in Init before combo filled, we need to reset value here.
	THIS.pf1.pg4.cboChildField.Value = THIS.pf1.pg4.cboChildField.Value
ENDIF
lcValue=THIS.pf1.pg4.cboDisplayField.Value
THIS.RefreshControls()
THIS.pf1.pg4.cboDisplayField.Value=lcValue

ENDPROC
PROCEDURE Init
DoDefault()
THIS.Pf1.Pg1.Enabled = .F.
THIS.UnRegisterSetting("bordercolor")
THIS.UnRegisterSetting("bgcolor")
THIS.UnRegisterSetting("background")
THIS.UnRegisterSetting("border")
IF USED()
	THIS.cChildAlias = JUSTSTEM(CURSORGETPROP("SourceName"))
ENDIF

ENDPROC
	a�� H	H	��%��@?�U����T�����������������%�C�	������#�����(�����
�����,��CC�
�����
�
���������%T����������
���T����
��-��T������-�����
F����������(�C.��b�"%�CCC�
�/���M�G�U���?�.����CCC�
�/����������%�����������)T������C������
���T����
��a��T������a���UITHISPF1PG4TXTTABLEVALUECPARENTALIASCBODISPLAYFIELDCLEARTHISFORM
CBOCHILDFIELD	LISTCOUNTADDITEMLISTENABLED
CHKONEMANYF������	��C��UTHISOENGINE	CWIZALIAS?	��C��T��C�
cDisplayField�"THIS.pf1.pg4.cboDisplayField.Value�
cDisplayField�a����M��C�
lOneToMany�THIS.pf1.pg4.chkOneMany.Value�
lOneToMany�a�����;��C�
cParentDBC�THIS.cParentDBC�
cParentDBC�a����D��C�
cParentSource�THIS.cParentSource�
cParentSource�a����L��C�
cLinkField� THIS.pf1.pg4.cboChildField.Value�
cLinkField�a����?��C�cParentAlias�THIS.cParentAlias�cParentAlias����>��C�cChildAlias�THIS.cChildAlias�cChildAlias�a����J��C�lCaption�THIS.pf1.pg3.chkCaptions.Value�lCaption�a�����UTHISREGISTERSETTING2�������	��C�������(�C�����`�&��CC�
���������	����2%������
��C������	����)T������C�����������%T��������������T������
���
��C����T����
�����UNSTYLEILCVALUETHISOENGINE
AWIZFIELDSPF1PG4
CBOCHILDFIELDADDITEM	LISTCOUNTVALUELISTCBODISPLAYFIELDREFRESHCONTROLS�	��C��T�����-����C�bordercolor������C�bgcolor������C�
background������C�border����%�C����� T���CC�
SourceName�����UTHISPF1PG1ENABLEDUNREGISTERSETTINGCCHILDALIASrefreshcontrols,��Destroy���Load���Show;��Init���1q�1!1�AQqq��a!AA�A��AqqA3�3�A��A����3q���bA"��RA���3�A�q�a�A2]{��g!'�	-6'	/
B)H	Icparentalias
cparentdbc
cparentsource
cchildalias
*refreshcontrols 
checkboxcheckboxchkCaptions_tabhieroptions.pf1.pg3�Top = 120
Left = 11
Height = 15
Width = 138
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Show \<captions"
Value = .F.
Name = "chkCaptions"
comboboxcomboboxcboDisplayField_tabhieroptions.pf1.pg4FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 119
Style = 2
Top = 48
Width = 192
Name = "cboDisplayField"
textboxtextboxtxtTable_tabhieroptions.pf1.pg4|FontName = "MS Sans Serif"
FontSize = 8
Enabled = .F.
Height = 23
Left = 119
Top = 12
Width = 192
Name = "txtTable"

commandbutton
commandbuttoncmdTable_tabhieroptions.pf1.pg4}Top = 12
Left = 323
Height = 23
Width = 27
FontName = "MS Sans Serif"
FontSize = 8
Caption = "..."
Name = "cmdTable"
HPROCEDURE Click
LOCAL oDataForm
PRIVATE oCust

oDataForm=NewObject("_datasource",THISFORM.Classlibrary)
oCust = CREATE("Custom")

oCust.AddProperty('cAlias',THISFORM.cParentAlias)
oCust.AddProperty('cDatabase',"")
oCust.AddProperty('cDbcTable',"")

oDataForm.oSettings = oCust
oDataForm.Show()

IF !THISFORM.cParentAlias==oCust.cAlias AND ;
  !UPPER(oCust.cAlias)==UPPER(THISFORM.oEngine.cWizAlias)
	THISFORM.cParentAlias = oCust.cAlias
	THISFORM.cParentDBC = oCust.cDatabase
	THISFORM.cParentSource = oCust.cDbcTable
	THISFORM.RefreshControls()
ENDIF

ENDPROC
��� ���%I'�U4���5��!T��C�_datasource�����T��C�Custom�N����C�cAlias��������C�	cDatabase�������C�	cDbcTable�����T������
��C����1%�����
�C��fC��	�
f
	��-�T�������T�������T��
�����
��C�����U	ODATAFORMOCUSTTHISFORMCLASSLIBRARYADDPROPERTYCPARENTALIAS	OSETTINGSSHOWCALIASOENGINE	CWIZALIAS
CPARENTDBC	CDATABASE
CPARENTSOURCE	CDBCTABLEREFRESHCONTROLSClick,��1qqa����111�A2=)�labellabelLabel1_tabhieroptions.pf1.pg4�FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Parent datasource"
Height = 15
Left = 11
Top = 17
Width = 89
Name = "Label1"
labellabelLabel2_tabhieroptions.pf1.pg4�FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Display field"
Height = 15
Left = 11
Top = 53
Width = 89
Name = "Label2"
comboboxcombobox
cboChildField_tabhieroptions.pf1.pg4�FontName = "MS Sans Serif"
FontSize = 8
Enabled = .F.
Height = 24
Left = 119
Style = 2
Top = 84
Width = 192
Name = "cboChildField"
labellabelLabel3_tabhieroptions.pf1.pg4�FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Link field"
Height = 15
Left = 11
Top = 89
Width = 89
Name = "Label3"
checkboxcheckbox
chkOneMany_tabhieroptions.pf1.pg4�Top = 120
Left = 11
Height = 15
Width = 138
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Display one to many \<view"
Value = .F.
Enabled = .F.
Name = "chkOneMany"

commandbutton
commandbuttoncmdResetData_tabhieroptions.pf1.pg4�Top = 120
Left = 251
Height = 23
Width = 104
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Re\<set Datasource"
Name = "cmdResetData"
�PROCEDURE Click
THISFORM.cParentAlias = ""
THISFORM.cParentDBC = ""
THISFORM.cParentSource = ""
THIS.Parent.TxtTable.Value = ""
THISFORM.RefreshControls()

ENDPROC
h�� OOj
%���UVT������T������T������T��������
��C����U	THISFORMCPARENTALIAS
CPARENTDBC
CPARENTSOURCETHISPARENTTXTTABLEVALUEREFRESHCONTROLSClick,��1a�2�)O_tabhieroptions_tablistoptions11ClassPixels_tabhieroptionsJArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
_staticoptions_htmlsty.vcxformPixels_tablistoptionsbWidth = 395
DoCreate = .T.
Name = "_tablistoptions"
cmdOK.TabIndex = 15
cmdOK.Name = "cmdOK"
cmdCancel.TabIndex = 16
cmdCancel.Name = "cmdCancel"
cmdReset.Name = "cmdReset"
Label1.TabIndex = 1
Label1.Name = "Label1"
pf1.ErasePage = .T.
pf1.PageCount = 3
pf1.pg1.cboBorderColor.Name = "cboBorderColor"
pf1.pg1.Label2.Name = "Label2"
pf1.pg1.cboBackColor.Name = "cboBackColor"
pf1.pg1.Label3.Name = "Label3"
pf1.pg1.Label4.Name = "Label4"
pf1.pg1.Label5.Name = "Label5"
pf1.pg1.spnBorder.Name = "spnBorder"
pf1.pg1.txtImage.Name = "txtImage"
pf1.pg1.cmdImage.Name = "cmdImage"
pf1.pg1.Name = "pg1"
pf1.pg2.Label5.Name = "Label5"
pf1.pg2.txtFont.Name = "txtFont"
pf1.pg2.cmdFont.Name = "cmdFont"
pf1.pg2.label22.Name = "label22"
pf1.pg2.CboForecolor.Name = "CboForecolor"
pf1.pg2.Label13.Name = "Label13"
pf1.pg2.spnFontSize.Name = "spnFontSize"
pf1.pg2.Name = "pg2"
pf1.pg3.Label5.Name = "Label5"
pf1.pg3.txtClass.Left = 107
pf1.pg3.txtClass.Top = 12
pf1.pg3.txtClass.Name = "txtClass"
pf1.pg3.Name = "pg3"
pf1.Top = 48
pf1.Left = 12
pf1.Width = 372
pf1.Height = 180
pf1.Name = "pf1"
)PROCEDURE Load
DoDefault()
THIS.RegisterSetting("cHighLightColor","THIS.pf1.pg3.cboHighLightColor.Color","cHighLightColor",,.T.)
THIS.RegisterSetting("nDataPageSize","THIS.pf1.pg3.spnPageSize.Value","nDataPageSize",,.T.,,1)
THIS.RegisterSetting("fontface","THIS.pf1.pg2.txtFont.Value","cRepeatTableStyle","font-family",.T.,,1)
THIS.RegisterSetting("fontsize","THIS.pf1.pg2.spnFontSize.Value","cRepeatTableStyle","font-size",.T.,,1)
THIS.RegisterSetting("forecolor","THIS.pf1.pg2.cboForeColor.Color","cRepeatTableStyle","color",.T.,,1)

ENDPROC
��� ~~��%5%�U�	��C��Z��C�cHighLightColor�$THIS.pf1.pg3.cboHighLightColor.Color�cHighLightColor�a����T��C�
nDataPageSize�THIS.pf1.pg3.spnPageSize.Value�
nDataPageSize�a�����\��C�fontface�THIS.pf1.pg2.txtFont.Value�cRepeatTableStyle�font-familya�����^��C�fontsize�THIS.pf1.pg2.spnFontSize.Value�cRepeatTableStyle�	font-sizea�����\��C�	forecolor�THIS.pf1.pg2.cboForeColor.Color�cRepeatTableStyle�colora�����UTHISREGISTERSETTINGLoad,��1��A���2)~
_cbocolors_htmlsty.vcxcomboboxcboHighlightColor_tablistoptions.pf1.pg3�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 107
TabIndex = 12
Top = 48
Width = 120
Name = "cboHighlightColor"
labellabelLabel6_tablistoptions.pf1.pg3�FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Highlight color"
Height = 17
Left = 11
Top = 54
Width = 96
TabIndex = 11
Name = "Label6"
labellabelLabel7_tablistoptions.pf1.pg3�FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "\<Data page size"
Height = 17
Left = 11
Top = 90
Width = 96
TabIndex = 13
Name = "Label7"
spinnerspinnerspnPageSize_tablistoptions.pf1.pg3�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
KeyboardLowValue = 1
Left = 107
SpinnerLowValue =   1.00
TabIndex = 14
Top = 84
Width = 48
Value = 10
Name = "spnPageSize"
_tablistoptions_staticoptions5ClassPixels_tablistoptionsJArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0