Total C++ 2/TOTALCTWO.iso/vfp5.0/vfp/tools/transfrm/transfrm.app

MS Visual FoxPro App | 1996-08-21 | 103KB | 2,831 lines

PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Class
 WINDOWS _R5V01PDLW 528745973
 COMMENT FONTINFO
 WINDOWS _R5W0C0O02 528821389
 COMMENT FONTINFO
 WINDOWS _R5W10Z4SP 528845282
 COMMENT FONTINFO
 WINDOWS _R5W12Z7GR 528847203
 COMMENT FONTINFO
 WINDOWS _R5W167XO6 528850234[
 COMMENT FONTINFO
 WINDOWS _R5X1BVTG7 528921229A
 COMMENT FONTINFO
 WINDOWS _R5Y077O6X 528947899
 COMMENT FONTINFO
 WINDOWS _R5Y079SRM 528947953k
 COMMENT FONTINFO
 WINDOWS _R5Y083UYL 528948700u
 COMMENT FONTINFO
 WINDOWS _R5Y084632 528948709
 COMMENT FONTINFO
 WINDOWS _R5Y084HIM 528948717
 COMMENT FONTINFO
 WINDOWS _R6205UPYW 529208697
 COMMENT FONTINFO
 WINDOWS _R63012VM9 529269699
 COMMENT FONTINFO
 WINDOWS _R65057UOI 529404738
 COMMENT FONTINFO
 WINDOWS _R661ECU17 529513395
 COMMENT FONTINFO
 WINDOWS _R661ED6JW 529513403
 COMMENT FONTINFO
 WINDOWS _R670239GQ 529532751
 COMMENT FONTINFO
 WINDOWS _R67024A9X 529532777
 COMMENT FONTINFO
 WINDOWS _R67029A7Y 529533030
 COMMENT FONTINFO
 WINDOWS _R6I08BU17 530259620V.
 COMMENT FONTINFO
 WINDOWS _R6I08CP26 530259640
 COMMENT FONTINFO
 WINDOWS _R6I08PLP8 530260089
 COMMENT FONTINFO
 WINDOWS _R6I091R8W 530260393q6
 COMMENT FONTINFO
 WINDOWS _R6I094ISX 530260461w:
 COMMENT FONTINFO
 WINDOWS _R6I09W69N 530261148
 COMMENT FONTINFO
 WINDOWS _R6S0W3VUF 539260760vB
 COMMENT FONTINFO
 WINDOWS _R6S0W46JC 539260769^D
 COMMENT FONTINFO
 WINDOWS _R6S0W7BUM 539260974
 COMMENT FONTINFO
 WINDOWS _R8O1DKEXV 543996144eI
 COMMENT FONTINFO
 WINDOWS _R8P0PT09S 544038987BK
 COMMENT FONTINFO
 WINDOWS _R8P0UGS15 544043417=N
 COMMENT FONTINFO
 WINDOWS _R5V0Z3XQW 545558780YQ
 COMMENT RESERVED
 WINDOWS _R9H0X10NV 545946385vS
 COMMENT FONTINFO
 WINDOWS _R9I0XSTFB 5460126138U
 COMMENT FONTINFO
 WINDOWS _R9I0Y4EXP 546012902&
 COMMENT FONTINFO
 WINDOWS _R6S0W66L1 551232708p
 COMMENT RESERVED
 WINDOWS _R6I1EV6PW 5512327153
 COMMENT RESERVED
 WINDOWS _R6I1EWE9U 551232721)
 COMMENT RESERVED
 WINDOWS _R9I0Y3HTC 551232937
 WINDOWS _R9I0Y3DB9 5512329373
 WINDOWS _R9I0Y3DJQ 551232937
 WINDOWS _R9I0Y3DNG 546012876
 WINDOWS _R9I0Y3DQS 546012876
 WINDOWS _R9I0Y3DUA 5460128762
 WINDOWS _R9I0Y3DXX 551232938)
 WINDOWS _R9I0Y3E1K 546012876K
 WINDOWS _R9I0Y3E6Q 551232938n
 WINDOWS _R9I0Y3ECN 546012876
 WINDOWS _R9I0Y3EGX 551232938
 WINDOWS _R9I0Y3EKN 551232938L
 WINDOWS _R9I0Y3EO3 546012876
 WINDOWS _R9I0Y3ERF 551232938
 WINDOWS _R9I0Y3EUT 546012877
 WINDOWS _R9I0Y3EYK 551232938.
 WINDOWS _R9I0Y3F22 546012877`
 WINDOWS _R9I0Y3F5M 551232938
 WINDOWS _R9I0Y3F8R 546012877
 WINDOWS _R9I0Y3FCJ 551232938
 WINDOWS _R9I0Y3FG8 551232938Q
 WINDOWS _R9I0Y3FKF 546012877'
 WINDOWS _R9I0Y3FNU 546012877K
 WINDOWS _R9I0Y3FRA 546012877v
 WINDOWS _R9I0Y3FV4 551232938
 WINDOWS _R9I0Y3FYE 546012877
 WINDOWS _R9I0Y3G1K 546012877
 WINDOWS _R9I0Y3G52 546012877
 WINDOWS _R9I0Y3G9F 546012877
 WINDOWS _R9I0Y3GEE 546012878
 WINDOWS _R9I0Y3GIO 546012878K
 WINDOWS _R9I0Y3GNA 551232938
 WINDOWS _R9I0Y3GQV 551232938
 WINDOWS _R9I0Y3GUQ 551232939
 WINDOWS _R9I0Y3GY9 546012878
 WINDOWS _R9I0Y3H1N 551232939
 WINDOWS _R9I0Y3H59 546012878
 WINDOWS _R9I0Y3H92 546012878
 WINDOWS _R9I0Y3HCY 551232939}?
 WINDOWS _R9I0Y3HIM 546012878B5
 WINDOWS _R9I0Y3HLW 546012878S#
 WINDOWS _R9I0Y3HP8 546012878S
 COMMENT RESERVED
VERSION =   3.00
tfadditembutton
transfrm.vcx
commandbutton
tfaddfolderbutton
EWidth = 71
Caption = "Add \<Folder..."
Name = "tfaddfolderbutton"
transfrm.h"
transfrm.h"
transformer
transfrm.h
Pixels
Class
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
Class
Pixels
tfaddfolderbutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
    pageframe
    pageframe
tfpageframe
QErasePage = .T.
PageCount = 0
Width = 241
Height = 169
Name = "tfpageframe"
TFCREATELOGONLY
INTERACTIVECHANGE
PARENT
FPGFILES
CHKCREATELOGONLY
VALUE
INTERACTIVECHANGE
InteractiveChange,
ProgrammaticChange
tfdialog
transformer
5PROCEDURE Click
thisform.AddFontRules()
ENDPROC
Class
Pixels
tfpageframe
tfcommandbutton
transfrm.vcx
commandbutton
tfedititembutton
YCaption = "\<Edit..."
cobjectname =
lvalidateselect = .F.
Name = "tfedititembutton"
INTERACTIVECHANGE0
TFCREATELOGONLY
INTERACTIVECHANGE
PARENT
FPGLOG
CHKCREATELOGONLY
VALUE
ProgrammaticChange,
InteractiveChangeV
getitem,
Pixels
Class
Lcobjectname
lvalidateselect
lvalidatefileinlist
*edititem
*validitem
Pixels
tfedititembutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tfadditembutton
transfrm.vcx
commandbutton
tfaddrulebutton
-Caption = "\<Add"
Name = "tfaddrulebutton"
PARENT
REFRESH
Click,
Class
Pixels
tfaddrulebutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tfedititembutton
transfrm.vcx
commandbutton
tfadditembutton
0Caption = "\<Add..."
Name = "tfadditembutton"
THISFORM
CMDTRANSFORM
REFRESH
fpgFiles.Refresh,
RMS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
transformer
cmdTransform
commandbutton
transfrm.vcx
CPROCEDURE Click
HELP ID thisform.HelpContextID NOWAIT
ENDPROC
WPROCEDURE When
IF this.ReadOnly AND EMPTY(this.Value)
    RETURN .F.
ENDIF
ENDPROC
tflogtofileellipsis
Class
|*additem Adds a new item to a ComboBox or ListBox control, optionally allowing you to specify the item's index.
*getitem
Pixels
tfadditembutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tlitemselectlistbox
transfrm.vcx
listbox
tfselectedfileslistbox
XHeight = 221
Left = 9
TabIndex = 2
Top = 26
Width = 381
Name = "lstSelectedFiles"
Class
Pixels
transfrm.h
tfselectedfileslistbox
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
tfcombobox
transfrm.vcx
combobox
tfclassescombobox
$RowSourceType = 1
RowSource = ",CheckBox,ComboBox,CommandButton,CommandGroup,Container,Control,Custom,EditBox,Form,FormSet,Grid,Image,Label,Line,ListBox,OleControl,OleBoundControl,OptionButton,OptionGroup,PageFrame,Separator,Shape,Spinner,TextBox,Timer,Toolbar"
Name = "tfclassescombobox"
Class
Pixels
tfclassescombobox
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
tfcombobox
transfrm.vcx
combobox
tffilescombobox
IRowSourceType = 1
RowSource = ",*.scx,*.vcx"
Name = "tffilescombobox"
Class
Pixels
tffilescombobox
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
editbox
editbox
    tfeditbox
yFontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Height = 56
Width = 101
ColorSource = 1
Name = "tfeditbox"
THISFORM
HELPCONTEXTID
Click,
cmdHelp
Class
tfellipsis
Class
Pixels
    tfeditbox
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
label
label
tflabel
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Label1"
Height = 16
Width = 46
ColorSource = 1
Name = "tflabel"
THISFORM
ADDFONTRULES
Click,
tflogtofileellipsis
commandbutton
Class
Pixels
tflabel
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
listbox
listbox
    tflistbox
xFontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Height = 68
Width = 68
ColorSource = 1
Name = "tflistbox"
READONLY
VALUE
When,
transfrm.vcx
Class
Pixels
    tflistbox
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
tfedititembutton
transfrm.vcx
commandbutton
tfeditrulebutton
FCaption = "\<Edit"
lvalidateselect = .T.
Name = "tfeditrulebutton"
THISFORM
CLEARRULE
edititem,
5PROCEDURE edititem
thisform.ClearRule()
ENDPROC
EPROCEDURE edititem
thisform.TransformFiles()
NODEFAULT
ENDPROC
transformer
Class
Pixels
tfeditrulebutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
    tflistbox
transfrm.vcx
listbox
tlitemselectlistbox
@MoverBars = .T.
ColorSource = 1
Name = "tlitemselectlistbox"
log|txt
log|txt
Select
TCOLDEXPR
LCNEWEXPR
THISFORM
TRIMPATH
getvalue,
commandbutton
`PROCEDURE Click
IF NOT thisform.SaveSettings()
    RETURN
ENDIF
thisform.Release()
ENDPROC
tftransformbutton
transfrm.vcx
label
Class
Pixels
tlitemselectlistbox
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
    tftextbox
transfrm.vcx
textbox
tflogtofiletextbox
GDisabledBackColor = (thisform.BackColor)
Name = "tflogtofiletextbox"
THISFORM
TRANSFORMFILES
edititem,
THISFORM
OPENRULES
edititem,
tfhelpbutton
Class
Pixels
tflogtofiletextbox
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
tfremoveitembutton
transfrm.vcx
commandbutton
tfremoverulebutton
+TabIndex = 5
Name = "tfremoverulebutton"
Class
Pixels
transfrm.h
tfremoverulebutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tfremoveitembutton
transfrm.vcx
commandbutton
tfremovefilebutton
)Width = 71
Name = "tfremovefilebutton"
Class
Pixels
tfremovefilebutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tfedititembutton
transfrm.vcx
commandbutton
tfsaverulesbutton
NCaption = "\<Save..."
lvalidatefileinlist = .T.
Name = "tfsaverulesbutton"
THISFORM
ADDRULE
getitem,
Class
Pixels
tfsaverulesbutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tfedititembutton
transfrm.vcx
commandbutton
tfopenrulesbutton
3Caption = "\<Open..."
Name = "tfopenrulesbutton"
THISFORM
SAVERULES
edititem,
Class
Pixels
tfopenrulesbutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tfedititembutton
transfrm.vcx
commandbutton
tfremoveitembutton
bCaption = "\<Remove"
csetfocusobjectname =
lvalidateselect = .T.
Name = "tfremoveitembutton"
THISFORM
EDITRULE
PARENT
REFRESH_
TCITEM
LCITEM
THISFORM
TLITEMSELECTLISTBOX
ADDITEM
DblClick,
AddItem{
THISFORM
SAVESETTINGS
RELEASE
Click,
CTop = 305
Left = 420
Width = 70
TabIndex = 3
Name = "cmdHelp"
Class
Ncsetfocusobjectname
*removeitem Removes an item from a ComboBox or ListBox.
Pixels
tfremoveitembutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
textbox
textbox
    tftextbox
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackColor = 255,255,255
Format = "K"
Height = 22
InputMask = (REPLICATE('X',254))
Width = 113
ColorSource = 1
Name = "tftextbox"
NERROR
CMETHOD
NLINE
THISFORM
ERROR
Error,
Class
Pixels
    tftextbox
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
combobox
combobox
tfcombobox
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackColor = 255,255,255
Height = 22
Width = 112
ColorSource = 1
Name = "tfcombobox"
NERROR
CMETHOD
NLINE
THISFORM
ERROR
Error,
Top = 305
Left = 345
Width = 70
TabIndex = 2
cobjectname = pgfTransformer.fpgFiles.lstSelectedFiles
Name = "cmdTransform"
transformer
cmdClose
5PROCEDURE edititem
thisform.OpenRules()
ENDPROC
Class
Pixels
tfcombobox
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
commandbutton
commandbutton
tfcommandbutton
Height = 22
Width = 56
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 9
Caption = ""
ColorSource = 1
Name = "tfcommandbutton"
DTop = 305
Left = 270
Width = 70
TabIndex = 1
Name = "cmdClose"
commandbutton
transfrm.vcx
tfclosebutton
WTop = 226
Left = 9
Width = 96
Value = .T.
TabIndex = 4
Name = "chkCreateLogOnly"
chkCreateLogOnly
Class
Pixels
transfrm.h
tfcommandbutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
transfrm.h"
tfcommandbutton
transfrm.vcx
commandbutton
tfellipsis
QWidth = 21
Caption = "..."
TabIndex = 12
cobjectname =
Name = "tfellipsis"
LCFILENAME
LCNALIAS
THISFORM
OTRANSFORM
CGETFILEEXT
LCALIAS
getitem,
checkbox
transfrm.vcx
tPROCEDURE Error
LPARAMETERS nError, cMethod, nLine
RETURN thisform.Error(nError,cMethod,nLine,this)
ENDPROC
Class
$cobjectname
*getitem
*getvalue
Pixels
transfrm.h
tfellipsis
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
transfrm.h"
checkbox
checkbox
tfcheckbox
Height = 16
Width = 65
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Check1"
Value = .F.
ColorSource = 1
Name = "tfcheckbox"
NERROR
CMETHOD
NLINE
THISFORM
ERROR
Error,
Class
Pixels
tfcheckbox
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
tfcommandbutton
transfrm.vcx
commandbutton
tfzoombutton
+Caption = "\<Zoom"
Name = "tfzoombutton"
NERROR
CMETHOD
NLINE
THISFORM
ERROR
Error,
tPROCEDURE Error
LPARAMETERS nError, cMethod, nLine
RETURN thisform.Error(nError,cMethod,nLine,this)
ENDPROC
!transformer.pgfTransformer.fpgLog
Class
Pixels
tfzoombutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tfcreatelogonly
7Top = 226
Left = 414
TabIndex = 1
Name = "cmdZoom"
!transformer.pgfTransformer.fpgLog
cmdZoom
commandbutton
tPROCEDURE Error
LPARAMETERS nError, cMethod, nLine
RETURN thisform.Error(nError,cMethod,nLine,this)
ENDPROC
5PROCEDURE edititem
thisform.SaveRules()
ENDPROC
TFEDITITEMBUTTON
CLICK
ENABLED
THISFORM
RULESETFOCUS
THISFORM
EDITRULE
Click,
edititem
transfrm.vcx
label
tfcommandbutton
transfrm.vcx
commandbutton
tfclosebutton
+Caption = "Close"
Name = "tfclosebutton"
PROCEDURE Click
Tfedititembutton::Click()
IF NOT this.Enabled
    NODEFAULT
    thisform.RuleSetFocus()
ENDIF
ENDPROC
PROCEDURE edititem
thisform.EditRule()
ENDPROC
9PROCEDURE getitem
RETURN thisform.AddRule()
ENDPROC
Class
Pixels
tfclosebutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tfedititembutton
transfrm.vcx
commandbutton
tftransformbutton
NCaption = "Transform"
lvalidatefileinlist = .T.
Name = "tftransformbutton"
tPROCEDURE Error
LPARAMETERS nError, cMethod, nLine
RETURN thisform.Error(nError,cMethod,nLine,this)
ENDPROC
6PROCEDURE getitem
RETURN LOWER(GETDIR())
ENDPROC
tfzoombutton
edtTransformerLog
Class
Pixels
transfrm.h
tftransformbutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
transfrm.h"
PROCEDURE InteractiveChange
Tfcreatelogonly::Interactivechange
this.parent.parent.fpgFiles.chkCreateLogOnly.Value=this.Value
ENDPROC
PROCEDURE ProgrammaticChange
this.InteractiveChange
ENDPROC
!transformer.pgfTransformer.fpgLog
tfedititembutton
transfrm.vcx
commandbutton
tfclearrulebutton
1Caption = "\<Clear"
Name = "tfclearrulebutton"
tPROCEDURE Error
LPARAMETERS nError, cMethod, nLine
RETURN thisform.Error(nError,cMethod,nLine,this)
ENDPROC
:cobjectname = txtLogToFile
Name = "tflogtofileellipsis"
editbox
Class
Pixels
tfclearrulebutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tfcommandbutton
transfrm.vcx
commandbutton
tfaddfontsbutton
4Caption = "\<Font Rule"
Name = "tfaddfontsbutton"
tPROCEDURE Error
LPARAMETERS nError, cMethod, nLine
RETURN thisform.Error(nError,cMethod,nLine,this)
ENDPROC
transfrm.vcx
tflogeditbox
!transformer.pgfTransformer.fpgLog
tflabel
Class
Pixels
tfaddfontsbutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tfadditembutton
transfrm.vcx
commandbutton
tfaddfilebutton
AWidth = 71
Caption = "\<Add File..."
Name = "tfaddfilebutton"
Transformer
LCALIAS
LNLASTSELECT
PARENT
EDTTRANSFORMERLOG
VALUE
Click,
lblTransformerLog
transfrm.vcx
label
Class
Pixels
tfaddfilebutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tlitemselectlistbox
transfrm.vcx
listbox
tfselectedruleslistbox
JHeight = 116
TabIndex = 2
Width = 386
Name = "tfselectedruleslistbox"
transfrm.log
LLENABLED
PARENT
CHKLOGTOFILE
VALUE
ENABLED
DISABLEDBACKCOLOR
THISFORM
BACKCOLOR
Refresh,
Class
Pixels
transfrm.h
tfselectedruleslistbox
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
transfrm.h"
    tfeditbox
transfrm.vcx
editbox
tflogeditbox
rReadOnly = .T.
ColorSource = 1
BackColor = 192,192,192
DisabledBackColor = 192,192,192
Name = "tflogeditbox"
nHeight = 191
Left = 9
StatusBarText = " "
TabIndex = 3
Top = 26
Width = 459
Name = "edtTransformerLog"
jCaption = "Transformer \<log:"
Left = 9
Top = 11
Width = 81
TabIndex = 2
Name = "lblTransformerLog"
Class
cmdAddFonts
Pixels
tflogeditbox
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
tfcommandbutton
transfrm.vcx
commandbutton
tfhelpbutton
+Caption = "\<Help"
Name = "tfhelpbutton"
<Top = 111
Left = 414
TabIndex = 19
Name = "cmdAddFonts"
#transformer.pgfTransformer.fpgRules
commandbutton
transfrm.vcx
tfaddfontsbutton
#transformer.pgfTransformer.fpgRules
Class
Pixels
tfhelpbutton
)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
tfdialog
DataSession = 2
Height = 250
Width = 375
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
BackColor = 192,192,192
BorderStyle = 2
Caption = "Visual FoxPro Transformer"
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
MaxButton = .F.
MinButton = .F.
Icon = transfrm.ico
KeyPreview = .T.
WindowType = 1
LockScreen = .F.
AlwaysOnTop = .T.
cversion = Visual FoxPro Transformer 01.00
Name = "tfdialog"
oObject=this.parent.&lcObjectName
this.parent.
LCOBJECTNAME
OOBJECT
LCOLDEXPR
LCNEWEXPR
COBJECTNAME
VALUE
GETVALUE*
TCOLDEXPR
LCNEWEXPR
GETITEM
getitem,
getvalueT
Click
NERROR
CMETHOD
NLINE
THISFORM
ERROR
LCDISPLAYVALUE
DISPLAYVALUE
VALUE
ROWSOURCE
ADDITEM
Error,
LostFocus
oObject=this.parent.&lcObjectName
nIndexb
this.parent.&lcSetFocusObjectName..SetFocus()
NINDEX
LCOBJECTNAME
OOBJECT
LCSETFOCUSOBJECTNAME
COBJECTNAME
CSETFOCUSOBJECTNAME
LISTINDEX
THISFORM
LUPDATED
REMOVEITEM
LISTCOUNT4
LNRESULT
REMOVEITEM
PARENT
REFRESH
removeitem,
edititem
Top = 111
Left = 9
Width = 141
Caption = "Override propert\<y defaults"
TabIndex = 16
Name = "chkOverridePropertyDefaults"
Class
cversion
lerror
lrelease
Pixels
transfrm.h
tfdialog
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
OFORM
LNCOUNT
FORMCOUNT
FORMS
CLASS
VISIBLE
WINDOWSTATE
REFRESH~
OFORM
LNCOUNT
FORMCOUNT
FORMS
CLASS
_OTRANSFRM
_OTRANSFRM
THISu
NKEYCODE
NSHIFTALTCTRL
QUERYUNLOAD
RELEASE
oObjectb
Transfrm:
Object:
Method:
Line:
NERROR
CMETHOD
NLINE
OOBJECT
LCERRORMSG
LCCODELINEMSG
LERROR
LRELEASE
RELEASE
CAPTION$
QUERYUNLOAD
MACHINE
Loading
CAPTION
Init,
Destroyk
Deactivate(
Activate:
KeyPressy
Error'
Releasem
CITEM
LNCOUNT
LCITEM
THIS
LISTCOUNT
LIST
LISTINDEX
LISTBOX
ADDITEM
PARENT
REFRESH
AddItem,
Click{
NERROR
CMETHOD
NLINE
THISFORM
ERROR
Error,
NERROR
CMETHOD
NLINE
THISFORM
ERROR
Error,
oObject=this.parent.&lcObjectName
cItemb
CITEM
LCOBJECTNAME
OOBJECT
COBJECTNAME
GETITEM
ADDITEM
LNRESULT
ADDITEM
PARENT
REFRESH
additem,
getitem
edititem&
oList=this.parent.&lcObjectName
this.parent.
LCOBJECTNAME
OLIST
COBJECTNAME
LVALIDATEFILEINLIST
LISTCOUNT
LVALIDATESELECT
LISTINDEX
EDITITEM
ENABLED
VALIDITEM
validitem,
Click?
Refreshg
NERROR
CMETHOD
NLINE
THISFORM
ERROR
THISu
LNCOUNT
THIS
PAGECOUNT
PAGES
BACKCOLOR
THISFORM
ACTIVEPAGE
REFRESH
Error,
Refresh
chkOverridePropertyDefaults
checkbox
transfrm.vcx
tfcheckbox
bTop = 91
Left = 339
Width = 56
Caption = "Exclude"
TabIndex = 13
Name = "chkExcludeClasses"
#transformer.pgfTransformer.fpgRules
chkExcludeClasses
checkbox
transfrm.vcx
tfcheckbox
|Top = 66
Left = 339
Width = 56
DisabledPicture = samples\
Caption = "Exclude"
TabIndex = 10
Name = "chkExcludeFiles"
#transformer.pgfTransformer.fpgRules
jPROCEDURE getvalue
LPARAMETERS tcOldExpr
LOCAL lcNewExpr
IF thisform.lMac
    lcNewExpr=LOWER(GETDIR('log|txt'))
    IF NOT EMPTY(lcNewExpr)
        lcNewExpr=LOWER(FULLPATH(thisform.TrimPath(tcOldExpr),lcNewExpr))
    ENDIF
    lcNewExpr=LOWER(GETFILE('log|txt','','Select'))
ENDIF
IF EMPTY(lcNewExpr)
    lcNewExpr=tcOldExpr
ENDIF
RETURN lcNewExpr
ENDPROC
>PROCEDURE Init
LOCAL oForm,lnCount
FOR lnCount = 1 TO _screen.FormCount
    oForm=_screen.Forms[lnCount]
    IF NOT oForm.Class==this.Class OR NOT oForm.Visible OR ;
            oForm.WindowState#0 OR oForm.Top#this.Top OR ;
            oForm.Left#this.Left
        LOOP
    ENDIF
    this.Top=this.Top+22
    this.Left=this.Left+22
    lnCount=1
ENDFOR
this.Refresh()
ENDPROC
PROCEDURE Destroy
LOCAL oForm,lnCount
FOR lnCount = _screen.FormCount TO 1 STEP -1
    oForm=_screen.Forms[lnCount]
    IF NOT oForm.Class==this.Class
        LOOP
    ENDIF
    _oTransfrm=oForm
ENDFOR
ACTIVATE SCREEN
SET MESSAGE TO
ENDPROC
PROCEDURE Deactivate
ACTIVATE SCREEN
SET MESSAGE TO
ENDPROC
PROCEDURE Activate
RELEASE _oTransfrm
PUBLIC _oTransfrm
_oTransfrm=this
ACTIVATE SCREEN
SET MESSAGE TO
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO CASE
    CASE nKeyCode=23
        IF NOT this.QueryUnload()
            RETURN
        ENDIF
        this.Release()
    CASE nKeyCode=27
        this.Release()
ENDCASE
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine, oObject
LOCAL lcErrorMsg,lcCodeLineMsg
this.lError=.T.
WAIT CLEAR
IF this.lRelease
    this.Release()
    RETURN .F.
ENDIF
WAIT CLEAR
IF TYPE('oObject')#'O'
    oObject=this
ENDIF
lcErrorMsg=MESSAGE()+CR+CR+'Transfrm:     '+this.Name+CR+ ;
        'Object:        '+oObject.Name+CR+ ;
        'Method:       '+cMethod
lcCodeLineMsg=MESSAGE(1)
IF BETWEEN(nLine,1,10000) AND NOT lcCodeLineMsg='...'
    lcErrorMsg=lcErrorMsg+CR+'Line:            '+ALLTRIM(STR(nLine))
    IF NOT EMPTY(lcCodeLineMsg)
        lcErrorMsg=lcErrorMsg+CR+CR+lcCodeLineMsg
    ENDIF
ENDIF
IF MESSAGEBOX(lcErrorMsg,17,this.Caption)#1
    this.lRelease=.T.
    this.Release()
    RETURN .F.
ENDIF
ENDPROC
PROCEDURE Release
IF NOT this.QueryUnload()
    NODEFAULT
    RETURN .F.
ENDIF
ENDPROC
PROCEDURE Load
SET TALK OFF
SET COLLATE TO 'MACHINE'
SET COMPATIBLE OFF
SET CONFIRM ON
SET DECIMALS TO 9
SET EXACT OFF
SET EXCLUSIVE OFF
SET MEMOWIDTH TO 1024
SET MULTILOCKS ON
SET POINT TO '.'
SET SAFETY OFF
SET UDFPARMS TO VALUE
WAIT CLEAR
SET MESSAGE TO 'Loading '+this.Caption+' ...'
ENDPROC
 PROCEDURE DblClick
thisform.EditRule()
this.parent.Refresh()
ENDPROC
PROCEDURE AddItem
LPARAMETERS tcItem
LOCAL lcItem
lcItem=ALLTRIM(tcItem)
IF thisform.lMac
    lcItem=STRTRAN(lcItem,RULE_CODE_WIN,RULE_CODE_MAC)
ENDIF
RETURN Tlitemselectlistbox::Additem(lcItem)
ENDPROC
,PROCEDURE Refresh
LOCAL llEnabled
llEnabled=this.parent.chkLogToFile.Value
IF this.Enabled#llEnabled
    this.Enabled=llEnabled
    this.DisabledBackColor=IIF(this.Enabled,RGB(255,255,255),thisform.BackColor)
ENDIF
IF EMPTY(this.Value)
    this.Value=LOWER(HOME()+'transfrm.log')
ENDIF
ENDPROC
{PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
RETURN thisform.Error(nError,cMethod,nLine,this)
ENDPROC
PROCEDURE LostFocus
LOCAL lcDisplayValue
lcDisplayValue=this.DisplayValue
IF EMPTY(lcDisplayValue)
    this.Value=''
ENDIF
IF NOT EMPTY(lcDisplayValue) AND ;
        ATC(lcDisplayValue+',',this.RowSource+',')=0
    this.AddItem(lcDisplayValue,2)
ENDIF
ENDPROC
chkExcludeFiles
checkbox
transfrm.vcx
tfcheckbox
FLeft = 59
TabIndex = 12
Top = 86
Width = 276
Name = "cboClasses"
#transformer.pgfTransformer.fpgRules
cboClasses
combobox
transfrm.vcx
tfclassescombobox
CLeft = 59
TabIndex = 9
Top = 61
Width = 276
Name = "cboFiles"
#transformer.pgfTransformer.fpgRules
cboFiles
combobox
transfrm.vcx
tffilescombobox
ZHeight = 100
Left = 9
TabIndex = 18
Top = 147
Width = 396
Name = "lstSelectedRules"
#transformer.pgfTransformer.fpgRules
lstSelectedRules
listbox
transfrm.vcx
tfselectedruleslistbox
}Top = 171
Left = 414
TabIndex = 21
cobjectname = lstSelectedRules
csetfocusobjectname = txtProperty
Name = "cmdRemove"
#transformer.pgfTransformer.fpgRules
    cmdRemove
commandbutton
transfrm.vcx
tfremoverulebutton
XTop = 36
Left = 414
TabIndex = 15
cobjectname = lstSelectedRules
Name = "cmdClear"
#transformer.pgfTransformer.fpgRules
cmdClear
commandbutton
transfrm.vcx
tfclearrulebutton
XTop = 146
Left = 414
TabIndex = 20
cobjectname = lstSelectedRules
Name = "cmdEdit"
#transformer.pgfTransformer.fpgRules
cmdEdit
commandbutton
transfrm.vcx
tfeditrulebutton
jCaption = "Selected r\<ules:"
Left = 9
Top = 131
Width = 76
TabIndex = 17
Name = "lblSelectedRules"
#transformer.pgfTransformer.fpgRules
lblSelectedRules
transfrm.vcx
tflabel
_Top = 36
Left = 374
TabIndex = 7
cobjectname = txtCondition
Name = "cmdConditionEllipsis"
#transformer.pgfTransformer.fpgRules
cmdConditionEllipsis
commandbutton
transfrm.vcx
tfellipsis
XTop = 226
Left = 414
TabIndex = 23
cobjectname = lstSelectedRules
Name = "cmdSave"
#transformer.pgfTransformer.fpgRules
cmdSave
commandbutton
transfrm.vcx
tfsaverulesbutton
XTop = 201
Left = 414
TabIndex = 22
cobjectname = lstSelectedRules
Name = "cmdOpen"
#transformer.pgfTransformer.fpgRules
cmdOpen
commandbutton
transfrm.vcx
tfopenrulesbutton
lblClasses
TPROCEDURE Click
LOCAL lcAlias,lnLastSelect
lcAlias='Transformer'
lnLastSelect=SELECT()
IF USED(lcAlias)
    USE IN (lcAlias)
ENDIF
SELECT 0
CREATE CURSOR (lcAlias) (Log M)
APPEND BLANK
REPLACE Log WITH TRIM(this.parent.edtTransformerLog.Value)
MODIFY MEMO Log NOEDIT RANGE 1,1
USE IN (lcAlias)
SELECT (lnLastSelect)
ENDPROC
\Caption = "C\<lasses:"
Left = 9
Top = 86
Width = 41
TabIndex = 11
Name = "lblClasses"
#transformer.pgfTransformer.fpgRules
transfrm.vcx
tflabel
WCaption = "F\<iles:"
Left = 9
Top = 61
Width = 26
TabIndex = 8
Name = "lblFiles"
#transformer.pgfTransformer.fpgRules
lblFiles
label
transfrm.vcx
tflabel
GLeft = 59
TabIndex = 6
Top = 36
Width = 311
Name = "txtCondition"
#transformer.pgfTransformer.fpgRules
txtCondition
textbox
transfrm.vcx
    tftextbox
SCaption = "Co\<ndition:"
Left = 9
Top = 36
TabIndex = 5
Name = "lblCondition"
#transformer.pgfTransformer.fpgRules
lblCondition
label
transfrm.vcx
tflabel
DLeft = 239
TabIndex = 4
Top = 11
Width = 131
Name = "txtValue"
#transformer.pgfTransformer.fpgRules
txtValue
textbox
transfrm.vcx
    tftextbox
YCaption = "\<Value:"
Left = 204
Top = 11
Width = 31
TabIndex = 3
Name = "lblValue"
#transformer.pgfTransformer.fpgRules
lblValue
label
transfrm.vcx
tflabel
FLeft = 59
TabIndex = 2
Top = 11
Width = 131
Name = "txtProperty"
#transformer.pgfTransformer.fpgRules
txtProperty
textbox
transfrm.vcx
    tftextbox
]Caption = "\<Property:"
Left = 9
Top = 11
Width = 41
TabIndex = 1
Name = "lblProperty"
#transformer.pgfTransformer.fpgRules
lblProperty
label
transfrm.vcx
tflabel
VTop = 11
Left = 414
TabIndex = 14
cobjectname = lstSelectedRules
Name = "cmdAdd"
#transformer.pgfTransformer.fpgRules
cmdAdd
commandbutton
transfrm.vcx
tfaddrulebutton
:Top = 226
Left = 9
TabIndex = 8
Name = "chkLogToFile"
#transformer.pgfTransformer.fpgFiles
chkLogToFile
checkbox
transfrm.vcx
tflogtofilecheckbox
oTop = 226
Left = 374
Height = 22
Width = 66
Caption = "\<Browse..."
TabIndex = 10
Name = "cmdLogToFile"
#transformer.pgfTransformer.fpgFiles
cmdLogToFile
commandbutton
label
PROCEDURE getitem
LOCAL lcFileName,lcnAlias
DO WHILE .T.
    lcFileName=LOWER(GETFILE(thisform.oTransform.cGetFileExt))
    IF EMPTY(lcFileName)
        RETURN ''
    ENDIF
    IF FILE(lcFileName)
        EXIT
    ENDIF
ENDDO
lcAlias='_'+SYS(3)
IF USED(lcAlias)
    USE IN (lcAlias)
ENDIF
USE (lcFileName) IN 0 ALIAS (lcAlias)
IF NOT USED(lcAlias)
    RETURN ''
ENDIF
USE IN (lcAlias)
RETURN lcFileName
ENDPROC
transfrm.vcx
tflogtofileellipsis
HLeft = 89
TabIndex = 9
Top = 226
Width = 281
Name = "txtLogToFile"
#transformer.pgfTransformer.fpgFiles
txtLogToFile
textbox
transfrm.vcx
tflogtofiletextbox
PROCEDURE ProgrammaticChange
this.InteractiveChange
ENDPROC
PROCEDURE InteractiveChange
Tfcreatelogonly::Interactivechange
this.parent.parent.fpgLog.chkCreateLogOnly.Value=this.Value
ENDPROC
WTop = 206
Left = 9
Width = 96
Value = .T.
TabIndex = 7
Name = "chkCreateLogOnly"
#transformer.pgfTransformer.fpgFiles
chkCreateLogOnly
checkbox
transfrm.vcx
tfcreatelogonly
XHeight = 151
Left = 9
TabIndex = 2
Top = 26
Width = 381
Name = "lstSelectedFiles"
#transformer.pgfTransformer.fpgFiles
lstSelectedFiles
listbox
transfrm.vcx
tfselectedfileslistbox
NTop = 186
Left = 9
Width = 106
TabIndex = 6
Name = "chkSearchSubfolders"
#transformer.pgfTransformer.fpgFiles
chkSearchSubfolders
checkbox
transfrm.vcx
tfsearchsubfolders
~Top = 76
Left = 399
TabIndex = 5
cobjectname = lstSelectedFiles
csetfocusobjectname = cmdAddFile
Name = "cmdRemoveFile"
#transformer.pgfTransformer.fpgFiles
cmdRemoveFile
commandbutton
transfrm.vcx
tfremovefilebutton
[Top = 51
Left = 399
TabIndex = 4
cobjectname = lstSelectedFiles
Name = "cmdAddFolder"
#transformer.pgfTransformer.fpgFiles
cmdAddFolder
commandbutton
transfrm.vcx
tfaddfolderbutton
YTop = 26
Left = 399
TabIndex = 3
cobjectname = lstSelectedFiles
Name = "cmdAddFile"
#transformer.pgfTransformer.fpgFiles
cmdAddFile
commandbutton
transfrm.vcx
tfaddfilebutton
fCaption = "Selected files:"
Left = 9
Top = 11
Width = 71
TabIndex = 1
Name = "lblSelectedFiles"
#transformer.pgfTransformer.fpgFiles
lblSelectedFiles
transfrm.vcx
tflabel
HPROCEDURE fpgFiles.Refresh
thisform.cmdTransform.Refresh()
ENDPROC
ErasePage = .T.
PageCount = 3
Top = 10
Left = 10
Width = 481
Height = 286
TabIndex = 0
Name = "pgfTransformer"
Page1.FontName = "MS Sans Serif"
Page1.FontSize = 8
Page1.Caption = "Files"
Page1.Name = "fpgFiles"
Page2.FontName = "MS Sans Serif"
Page2.FontSize = 8
Page2.Caption = "Rules"
Page2.Name = "fpgRules"
Page3.FontName = "MS Sans Serif"
Page3.FontSize = 8
Page3.Caption = "Log"
Page3.Name = "fpgLog"
transformer
pgfTransformer
    pageframe
transfrm.vcx
tfpageframe
transfrm.vcx
Pixels
NPROCEDURE Error
LPARAMETERS nError, cMethod, nLine
RETURN thisform.Error(nError,cMethod,nLine,this)
ENDPROC
PROCEDURE Refresh
LOCAL lnCount
FOR lnCount = 1 TO this.PageCount
    this.Pages[lnCount].BackColor=thisform.BackColor
    IF lnCount=this.ActivePage
        LOOP
    ENDIF
    this.Pages[lnCount].Refresh()
ENDFOR
ENDPROC
PROCEDURE validitem
LOCAL lcObjectName,oList
lcObjectName=this.cObjectName
oList=this.parent.&lcObjectName
IF EMPTY(lcObjectName) OR TYPE('this.parent.'+lcObjectName)#'O' OR ;
        (this.lValidateFileInList AND oList.ListCount<1) OR ;
        (this.lValidateSelect AND oList.ListIndex<1)
    RETURN .F.
ENDIF
ENDPROC
PROCEDURE Click
this.EditItem()
NODEFAULT
ENDPROC
PROCEDURE Refresh
this.Enabled=this.ValidItem()
ENDPROC
PROCEDURE additem
LPARAMETERS cItem
LOCAL lcObjectName,oObject
lcObjectName=this.cObjectName
oObject=this.parent.&lcObjectName
IF TYPE('cItem')#'C'
    cItem=this.GetItem()
ENDIF
IF EMPTY(cItem)
    RETURN .F.
ENDIF
oObject.AddItem(cItem)
ENDPROC
PROCEDURE getitem
RETURN ''
ENDPROC
PROCEDURE edititem
LOCAL lnResult
lnResult=this.AddItem()
this.parent.Refresh()
RETURN lnResult
ENDPROC
!PROCEDURE getitem
LOCAL lcObjectName,oObject,lcOldExpr,lcNewExpr
lcObjectName=this.cObjectName
oObject=this.parent.&lcObjectName
IF EMPTY(lcObjectName) OR TYPE('this.parent.'+lcObjectName)#'O'
    RETURN .F.
ENDIF
lcOldExpr=TRIM(oObject.Value)
lcNewExpr=this.GetValue(lcOldExpr)
IF lcNewExpr==lcOldExpr
    RETURN
ENDIF
oObject.Value=lcNewExpr
ENDPROC
PROCEDURE getvalue
LPARAMETERS tcOldExpr
LOCAL lcNewExpr
GETEXPR TO lcNewExpr DEFAULT tcOldExpr
RETURN TRIM(lcNewExpr)
ENDPROC
PROCEDURE Click
this.GetItem()
ENDPROC
laddruleerror
lupdated
lwindows
*addrule
*editrule
*getrule
^arule[1,0]
*transformfiles
*rulesetfocus
*savesettings
*saverules
*openrules
*addfontrules
*deleterule
*clearrule
*trimpath
Height = 332
Width = 500
DoCreate = .T.
Visible = .T.
HelpContextID = 489321230
lwindows = (_windows)
lmac = (_mac)
Name = "transformer"
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
tfsearchsubfolders
Class
tfcheckbox
tfsearchsubfolders
KWidth = 120
Caption = "\<Search subfolders"
Name = "tfsearchsubfolders"
checkbox
transfrm.vcx
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
tflogtofilecheckbox
Pixels
Class
tfcheckbox
tflogtofilecheckbox
3PROCEDURE Click
this.parent.Refresh()
ENDPROC
FWidth = 71
Caption = "\<Log to file:"
Name = "tflogtofilecheckbox"
checkbox
transfrm.vcx
)MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
tfcreatelogonly
Pixels
Class
tfcheckbox
tfcreatelogonly
checkbox
transfrm.vcx
tPROCEDURE removeitem
LPARAMETERS nIndex
LOCAL lcObjectName,oObject,lcSetFocusObjectName
lcObjectName=this.cObjectName
lcSetFocusObjectName=ALLTRIM(this.cSetFocusObjectName)
oObject=this.parent.&lcObjectName
IF TYPE('nIndex')#'N'
    nIndex=oObject.ListIndex
ENDIF
thisform.lUpdated=.T.
oObject.RemoveItem(nIndex)
oObject.ListIndex=MAX(nIndex-1,IIF(oObject.ListCount>0,1,0))
IF oObject.ListCount=0 AND NOT EMPTY(lcSetFocusObjectName)
    this.parent.&lcSetFocusObjectName..SetFocus()
ENDIF
ENDPROC
PROCEDURE edititem
LOCAL lnResult
lnResult=this.RemoveItem()
this.parent.Refresh()
RETURN lnResult
ENDPROC
PROCEDURE AddItem
LPARAMETERS cItem
LOCAL lnCount,lcItem
IF EMPTY(cItem)
    NODEFAULT
    RETURN .F.
ENDIF
FOR lnCount = 1 TO this.ListCount
    IF LOWER(this.List[lnCount])==LOWER(cItem)
        NODEFAULT
        this.ListIndex=lnCount
        RETURN .F.
    ENDIF
ENDFOR
ListBox::AddItem(cItem)
NODEFAULT
FOR lnCount = 1 TO this.ListCount
    lcItem=this.List[lnCount]
    IF lcItem==cItem
        this.ListIndex=lnCount
        RETURN
    ENDIF
ENDFOR
ENDPROC
PROCEDURE Click
this.parent.Refresh()
ENDPROC
tcPropertyb
tcValueb
tcConditionb
tcFilesb
tlExcludeFilesb
tcClassesb
tlExcludeClassesb
tlOverridePropertyDefaultsb
Invalid rule.
Rule string too long.
TCPROPERTY
TCVALUE
TCCONDITION
TCFILES
TLEXCLUDEFILES
TCCLASSES
TLEXCLUDECLASSES
TLOVERRIDEPROPERTYDEFAULTS
LCPROPERTY
LCVALUE
LCCONDITION
LCFILES
LLEXCLUDEFILES
LCCLASSES
LLEXCLUDECLASSES
LLOVERRIDEPROPERTYDEFAULTS
LCRULETEXT
ORULESPAGE
LNPARAMETERS
LADDRULEERROR
PGFTRANSFORMER
FPGRULES
TXTPROPERTY
VALUE
TXTVALUE
TXTCONDITION
CBOFILES
DISPLAYVALUE
CHKEXCLUDEFILES
CBOCLASSES
CHKEXCLUDECLASSES
CHKOVERRIDEPROPERTYDEFAULTS
ACTIVEPAGE
PAGEORDER
RULESETFOCUS
CAPTION
LUPDATED
THISFORM
DELETERULE?
ORULESPAGE
LUPDATED
PGFTRANSFORMER
FPGRULES
DELETERULE
GETRULE
TXTPROPERTY
VALUE
ARULE
TXTVALUE
TXTCONDITION
CBOFILES
DISPLAYVALUE
CHKEXCLUDEFILES
CBOCLASSES
CHKEXCLUDECLASSES
CHKOVERRIDEPROPERTYDEFAULTS
CMDREMOVE
REMOVEITEM
REFRESH
RULESETFOCUS&
tcRuleTextb
TCRULETEXT
LCRULETEXT
LNATPOS
LNSEPARATORLEN
LNEXCLUDELEN
LNINCLUDELEN
LCFILES
LCCLASSES
ARULE
PGFTRANSFORMER
FPGRULES
LSTSELECTEDRULES
DISPLAYVALUE
LMACR
LADDRULEERROR
PGFTRANSFORMER
FPGRULES
CMDADD
ADDITEM
OTRANSFORM
PGFTRANSFORMER
FPGRULES
TXTPROPERTY
SELSTART
SELLENGTH
SETFOCUS
Do you want to save changes to selected rules?
LNRESULT
LUPDATED
CAPTION
SAVERULES
Save Rules
Ruleb
File '
' invalid.
LCFILENAME
LNLASTSELECT
LCALIAS
OLISTBOX
LNCOUNT
LCRULE
LADDRULEERROR
PGFTRANSFORMER
FPGRULES
CMDADD
ADDITEM
CAPTION
LSTSELECTEDRULES
LISTCOUNT
LUPDATED
REFRESH
Ruleb
File '
' invalid.
LCFILENAME
LNLASTSELECT
LCALIAS
OLISTBOX
CAPTION
PGFTRANSFORMER
FPGRULES
LSTSELECTEDRULES
CLEAR
ADDITEM
RULE
LISTCOUNT
LISTINDEX
REFRESHS
LADDRULEERROR
PGFTRANSFORMER
FPGRULES
CMDADD
ADDITEM
OTRANSFORM
PGFTRANSFORMER
FPGRULES
TXTPROPERTY
VALUE
TXTVALUE
TXTCONDITION
CBOFILES
DISPLAYVALUE
CHKEXCLUDEFILES
CBOCLASSES
CHKEXCLUDECLASSES
CHKOVERRIDEPROPERTYDEFAULTS0
DELETERULE
PGFTRANSFORMER
FPGRULES
REFRESH
RULESETFOCUS
TCFILENAME
LCFILENAME
LNATPOS$
SAVESETTINGS4
HelpContextID
TFDIALOG
SETALL
HELPCONTEXTID
addrule,
editrule
getrule0
transformfiles
rulesetfocus
savesettingsB
saverules1
openrules
addfontrules&
deleterule
clearrule
trimpath
QueryUnload
#vPROCEDURE addrule
LPARAMETERS tcProperty,tcValue,tcCondition,tcFiles,tlExcludeFiles, ;
        tcClasses,tlExcludeClasses,tlOverridePropertyDefaults
LOCAL lcProperty,lcValue,lcCondition,lcFiles,llExcludeFiles
LOCAL lcClasses,llExcludeClasses,llOverridePropertyDefaults
LOCAL lcRuleText,oRulesPage,lnParameters
lnParameters=PARAMETERS()
this.lAddRuleError=.F.
oRulesPage=this.pgfTransformer.fpgRules
IF lnParameters=0
    lcProperty=TRIM(oRulesPage.txtProperty.Value)
    lcValue=TRIM(oRulesPage.txtValue.Value)
    lcCondition=TRIM(oRulesPage.txtCondition.Value)
    lcFiles=TRIM(oRulesPage.cboFiles.DisplayValue)
    llExcludeFiles=oRulesPage.chkExcludeFiles.Value
    lcClasses=TRIM(oRulesPage.cboClasses.DisplayValue)
    llExcludeClasses=oRulesPage.chkExcludeClasses.Value
    llOverridePropertyDefaults=oRulesPage.chkOverridePropertyDefaults.Value
    lcProperty=IIF(TYPE('tcProperty')=='C',tcProperty,'')
    lcValue=IIF(TYPE('tcValue')=='C',tcValue,'')
    lcCondition=IIF(TYPE('tcCondition')=='C',tcCondition,'')
    lcFiles=IIF(TYPE('tcFiles')=='C',tcFiles,'')
    llExcludeFiles=IIF(TYPE('tlExcludeFiles')=='L',tlExcludeFiles,.F.)
    lcClasses=IIF(TYPE('tcClasses')=='C',tcClasses,'')
    llExcludeClasses=IIF(TYPE('tlExcludeClasses')=='L',tlExcludeClasses,.F.)
    llOverridePropertyDefaults=IIF(TYPE('tlOverridePropertyDefaults')=='L', ;
            tlOverridePropertyDefaults,.F.)
ENDIF
IF (NOT EMPTY(lcProperty) AND EMPTY(lcValue)) OR ;
        (EMPTY(lcProperty) AND NOT EMPTY(lcValue)) OR ;
        (EMPTY(lcProperty) AND NOT EMPTY(lcCondition))
    this.lAddRuleError=.T.
    this.pgfTransformer.ActivePage= ;
            this.pgfTransformer.fpgRules.PageOrder
    IF lnParameters=0
        this.RuleSetFocus()
        =MESSAGEBOX('Invalid rule.',16,this.Caption)
    ENDIF
    RETURN ''
ENDIF
IF EMPTY(lcProperty) AND EMPTY(lcFiles) AND EMPTY(lcClasses) AND ;
        NOT llOverridePropertyDefaults
    IF lnParameters=0
        this.RuleSetFocus()
    ENDIF
    RETURN ''
ENDIF
this.lUpdated=.T.
lcRuleText=''
IF NOT EMPTY(lcProperty)
    lcRuleText=lcRuleText+lcProperty
ENDIF
lcRuleText=lcRuleText+RULE_SEPARATOR
IF NOT EMPTY(lcValue)
    lcRuleText=lcRuleText+lcValue
ENDIF
lcRuleText=lcRuleText+RULE_SEPARATOR
IF NOT EMPTY(lcCondition)
    lcRuleText=lcRuleText+lcCondition
ENDIF
lcRuleText=lcRuleText+RULE_SEPARATOR
IF NOT EMPTY(lcFiles)
    IF llExcludeFiles
        lcFiles=RULE_EXCLUDE+lcFiles
    ENDIF
    lcRuleText=lcRuleText+lcFiles
ENDIF
lcRuleText=lcRuleText+RULE_SEPARATOR
IF NOT EMPTY(lcClasses)
    IF llExcludeClasses
        lcClasses=RULE_EXCLUDE+lcClasses
    ENDIF
    lcRuleText=lcRuleText+lcClasses
ENDIF
IF llOverridePropertyDefaults
    lcRuleText=lcRuleText+RULE_INCLUDE
ENDIF
lcRuleText=ALLTRIM(lcRuleText)
IF LEN(lcRuleText)>255
    IF lnParameters=0
        WAIT CLEAR
        =MESSAGEBOX('Rule string too long.',48,thisform.Caption)
        this.RuleSetFocus()
    ENDIF
    RETURN ''
ENDIF
IF lnParameters=0
    this.DeleteRule()
    this.RuleSetFocus()
ENDIF
RETURN lcRuleText
ENDPROC
PROCEDURE editrule
LOCAL oRulesPage
this.lUpdated=.T.
oRulesPage=this.pgfTransformer.fpgRules
this.DeleteRule()
this.GetRule()
oRulesPage.txtProperty.Value=this.aRule[1]
oRulesPage.txtValue.Value=this.aRule[2]
oRulesPage.txtCondition.Value=this.aRule[3]
oRulesPage.cboFiles.DisplayValue=this.aRule[4]
oRulesPage.chkExcludeFiles.Value=this.aRule[5]
oRulesPage.cboClasses.DisplayValue=this.aRule[6]
oRulesPage.chkExcludeClasses.Value=this.aRule[7]
oRulesPage.chkOverridePropertyDefaults.Value=this.aRule[8]
oRulesPage.cmdRemove.RemoveItem()
oRulesPage.Refresh()
this.RuleSetFocus()
ENDPROC
PROCEDURE getrule
LPARAMETERS tcRuleText
LOCAL lcRuleText,lnAtPos,lnSeparatorLen,lnExcludeLen,lnIncludeLen
LOCAL lcFiles,lcClasses
DIMENSION this.aRule[8]
this.aRule=''
IF TYPE('tcRuleText')=='C'
    lcRuleText=tcRuleText
    lcRuleText=this.pgfTransformer.fpgRules.lstSelectedRules.DisplayValue
ENDIF
IF this.lMac
    lcRuleText=STRTRAN(lcRuleText,RULE_CODE_MAC,RULE_CODE_WIN)
ENDIF
lnSeparatorLen=LEN(RULE_SEPARATOR)
lnExcludeLen=LEN(RULE_EXCLUDE)
lnIncludeLen=LEN(RULE_INCLUDE)
lnAtPos=AT(RULE_SEPARATOR,lcRuleText)
this.aRule[1]=LEFT(lcRuleText,lnAtPos-1)
lcRuleText=SUBSTR(lcRuleText,lnAtPos+lnSeparatorLen)
lnAtPos=AT(RULE_SEPARATOR,lcRuleText)
this.aRule[2]=LEFT(lcRuleText,lnAtPos-1)
lcRuleText=SUBSTR(lcRuleText,lnAtPos+lnSeparatorLen)
lnAtPos=AT(RULE_SEPARATOR,lcRuleText)
this.aRule[3]=LEFT(lcRuleText,lnAtPos-1)
lcRuleText=SUBSTR(lcRuleText,lnAtPos+lnSeparatorLen)
lnAtPos=AT(RULE_SEPARATOR,lcRuleText)
lcFiles=LEFT(lcRuleText,lnAtPos-1)
IF LEFT(lcFiles,lnExcludeLen)==RULE_EXCLUDE
    lcFiles=SUBSTR(lcFiles,lnExcludeLen+1)
    this.aRule[5]=.T.
    this.aRule[5]=.F.
ENDIF
this.aRule[4]=lcFiles
lcClasses=SUBSTR(lcRuleText,lnAtPos+lnSeparatorLen)
IF LEFT(lcClasses,lnExcludeLen)==RULE_EXCLUDE
    lcClasses=SUBSTR(lcClasses,lnExcludeLen+1)
    this.aRule[7]=.T.
    this.aRule[7]=.F.
ENDIF
IF RIGHT(lcClasses,lnIncludeLen)==RULE_INCLUDE
    this.aRule[6]=LEFT(lcClasses,LEN(lcClasses)-lnIncludeLen)
    this.aRule[8]=.T.
    this.aRule[6]=lcClasses
    this.aRule[8]=.F.
ENDIF
ENDPROC
PROCEDURE transformfiles
this.lAddRuleError=.F.
this.pgfTransformer.fpgRules.cmdAdd.AddItem()
IF this.lAddRuleError
    RETURN .F.
ENDIF
RETURN this.oTransform.Do()
ENDPROC
PROCEDURE rulesetfocus
WITH this.pgfTransformer.fpgRules.txtProperty
    .SelStart=0
    .SelLength=0
    .SetFocus()
ENDWITH
ENDPROC
PROCEDURE savesettings
LOCAL lnResult
IF NOT this.lUpdated
    RETURN
ENDIF
lnResult=MESSAGEBOX('Do you want to save changes to selected rules?',35, ;
        this.Caption)
IF lnResult=7
    this.lUpdated=.F.
    RETURN
ENDIF
IF lnResult#6 OR NOT this.SaveRules()
    NODEFAULT
    RETURN .F.
ENDIF
ENDPROC
PROCEDURE saverules
LOCAL lcFileName,lnLastSelect,lcAlias,oListBox,lnCount,lcRule
this.lAddRuleError=.F.
this.pgfTransformer.fpgRules.cmdAdd.AddItem()
IF this.lAddRuleError
    RETURN .F.
ENDIF
lcFileName=LOWER(PUTFILE('Save Rules','','dbf'))
IF EMPTY(lcFileName)
    RETURN .F.
ENDIF
lnLastSelect=SELECT()
IF NOT FILE(lcFileName)
    CREATE TABLE (lcFileName) (Rule C(254))
ENDIF
lcAlias='_'+SYS(3)
IF USED(lcAlias)
    USE IN (lcAlias)
ENDIF
SELECT 0
USE (lcFileName) EXCLUSIVE ALIAS (lcAlias)
IF NOT USED(lcAlias)
    SELECT (lnLastSelect)
    RETURN .F.
ENDIF
IF TYPE('Rule')#'C'
    USE IN (lcAlias)
    SELECT (lnLastSelect)
    =MESSAGEBOX("File '"+lcFileName+"' invalid.",16,this.Caption)
    RETURN .F.
ENDIF
SET MESSAGE TO ' '
oListBox=this.pgfTransformer.fpgRules.lstSelectedRules
FOR lnCount = 1 TO oListBox.ListCount
    lcRule=ALLTRIM(oListBox.List[lnCount])
    IF this.lMac
        lcRule=STRTRAN(lcRule,RULE_CODE_MAC,RULE_CODE_WIN)
    ENDIF
    APPEND BLANK
    REPLACE Rule WITH lcRule
ENDFOR
USE IN (lcAlias)
SELECT (lnLastSelect)
SET MESSAGE TO
this.lUpdated=.F.
this.pgfTransformer.fpgRules.Refresh()
ENDPROC
PROCEDURE openrules
LOCAL lcFileName,lnLastSelect,lcAlias,oListBox
lnLastSelect=SELECT()
DO WHILE .T.
    lcFileName=LOWER(GETFILE('dbf'))
    IF EMPTY(lcFileName)
        RETURN .F.
    ENDIF
    IF FILE(lcFileName)
        EXIT
    ENDIF
ENDDO
lcAlias='_'+SYS(3)
IF USED(lcAlias)
    USE IN (lcAlias)
ENDIF
SELECT 0
USE (lcFileName) AGAIN SHARED ALIAS (lcAlias)
IF NOT USED(lcAlias)
    SELECT (lnLastSelect)
    RETURN .F.
ENDIF
IF TYPE('Rule')#'C'
    USE IN (lcAlias)
    SELECT (lnLastSelect)
    =MESSAGEBOX("File '"+lcFileName+"' invalid.",16,this.Caption)
    RETURN .F.
ENDIF
SET MESSAGE TO ' '
SET FILTER TO NOT DELETED()
LOCATE
oListBox=this.pgfTransformer.fpgRules.lstSelectedRules
oListBox.Clear()
SCAN ALL
    oListBox.AddItem(ALLTRIM(Rule))
ENDSCAN
IF oListBox.ListCount>0
    oListBox.ListIndex=1
ENDIF
USE IN (lcAlias)
SELECT (lnLastSelect)
SET MESSAGE TO
this.pgfTransformer.fpgRules.Refresh()
ENDPROC
PROCEDURE addfontrules
this.lAddRuleError=.F.
this.pgfTransformer.fpgRules.cmdAdd.AddItem()
IF this.lAddRuleError
    RETURN .F.
ENDIF
RETURN this.oTransform.Do(.T.)
ENDPROC
PROCEDURE deleterule
WITH this.pgfTransformer.fpgRules
    .txtProperty.Value=''
    .txtValue.Value=''
    .txtCondition.Value=''
    .cboFiles.DisplayValue=''
    .chkExcludeFiles.Value=.F.
    .cboClasses.DisplayValue=''
    .chkExcludeClasses.Value=.F.
    .chkOverridePropertyDefaults.Value=.F.
ENDWITH
ENDPROC
PROCEDURE clearrule
this.DeleteRule()
this.pgfTransformer.fpgRules.Refresh()
this.RuleSetFocus()
ENDPROC
PROCEDURE trimpath
LPARAMETERS tcFileName
LOCAL lcFileName,lnAtPos
IF EMPTY(tcFileName)
    RETURN ''
ENDIF
lcFileName=tcFileName
lnAtPos=AT(':',lcFileName)
IF lnAtPos>0
    lcFileName=SUBSTR(lcFileName,lnAtPos+1)
ENDIF
lcFileName=ALLTRIM(SUBSTR(lcFileName,AT('\',lcFileName,;
        MAX(OCCURS('\',lcFileName),1))+1))
DO WHILE LEFT(lcFileName,1)=='.'
    lcFileName=ALLTRIM(SUBSTR(lcFileName,2))
ENDDO
DO WHILE RIGHT(lcFileName,1)=='.'
    lcFileName=ALLTRIM(LEFT(lcFileName,LEN(lcFileName)-1))
ENDDO
RETURN lcFileName
ENDPROC
PROCEDURE QueryUnload
IF NOT this.SaveSettings()
    NODEFAULT
    RETURN .F.
ENDIF
ENDPROC
PROCEDURE Init
Tfdialog::Init
this.SetAll('HelpContextID',this.HelpContextID)
ENDPROC
EWidth = 76
Caption = "\<Create log only"
Name = "tfcreatelogonly"
TALKv
ESCAPEv
UDFPARMSv
MACHINE
CLASSLIBv
PROCEDUREv
tcFormClassb
Transformer
tcTransformClassb
TransformFiles
transfrm
oFormb
oForm.oTransformb
oTransform
oTransform
oForm.oTransformb
CLASSLIBv
PROCEDUREv
lcLastSetUDFParmsb
REFERENCE
lcLastSetESCb
lcLastSetTalkb
llAbortb
TCFORMCLASS
TCTRANSFORMCLASS
LCFORMCLASS
LCTRANSFORMCLASS
LCFORMCLASSLIBRARY
OFORM
LCPROGRAMNAME
LNATPOS
LLABORT
LCLASTSETCLASSLIB
LCLASTSETPROCEDURE
LCLASTSETTALK
LCLASTSETESC
LCLASTSETUDFPARMS
LAINSTANCES
LCTRANSFORMCLASSLIBRARY
FILENOTFOUNDMSG
ADDOBJECT
OTRANSFORM
tcMessageb
tnTypeb
tcTitleb
Visual FoxPro Transformer6
TCMESSAGE
TNTYPE
TCTITLE
LCMESSAGE
LNRESULT
LNTYPE
LCTITLE3
File 'C
' not found.
TCFILENAME
SHOWMSGBOX#
Transformer will may permenantly alter files.
Backup of files to be processed is recommended.  Continue?
Process aborted due to error.
Process aborted manually.
No files
1 file
 files
scanned
processed6
 seconds.
No font rules
 font rule
 added.
Transformer Add Font Rules
{DNARROW}
TLADDFONTRULES
LCMSG
PARENT
LERROR
LLASTLOCKSCREEN
LOCKSCREEN
LADDFONTRULES
LSEARCHSUBFOLDERS
PGFTRANSFORMER
FPGFILES
CHKSEARCHSUBFOLDERS
VALUE
LCREATELOGONLY
CHKCREATELOGONLY
LLOGTOFILE
CHKLOGTOFILE
CLOGTOFILE
TXTLOGTOFILE
NFILECOUNT
LSTSELECTEDFILES
LISTCOUNT
NOFILESERRORMSG
SHOWMSGBOX
NSTARTSECONDS
INITALIZERULES
PROCESSSTART
PROCESSFILELIST
ADDTEXT
NENDSECONDS
CTEXT
NTRANSFORMEDFILECOUNT
PROCESSEND
DISPLAYTEXT
REFRESH
NFONTMATCHCOUNT
FPGLOG
EDTTRANSFORMERLOG
SETFOCUS5
TCMATCHEXPLIST
TCEXPRESSIONSEARCHED
LCMATCHEXPLIST
LCMATCHEXP
LCEXPRESSIONSEARCHED
LNMATCHLEN
LNEXPRESSIONLEN
LNMATCHCOUNT
LNCOUNT
LNCOUNT2
LNATPOSA
TCFILENAME
TLTRIMEXT
LCFILENAME
LNATPOS
TRIMEXT
TCFILENAME
LCFILENAME
LNATPOS
LNATPOS2/
TNERROR
TCMETHOD
TNLINE
THISFORM
ERROR
THISn
tcValueb
caption
comment
fontname
controlsource
recordsource
format
inputmask
statusbartext
tooltiptext
memowindow
passwordchar
columnwidths
rowsource
lineslant
childorder
linkmaster
dynamicbackcolor
dynamicforecolor
dynamicfontbold
dynamicfontitalic
dynamicfontname
dynamicfontoutline
dynamicfontsize
dynamicfontshadow
dynamicfontstrikethru
dynamicfontunderline
dynamicalignment
dynamiccurrentcontrol
hostname
relationalexpr
TCPROPERTY
TCVALUE
LCVALUE
LCTYPEo
Scanning ...
Scanning:
TCTEXT8
There are no files to process.
SHOWMSGBOX
PARENT
CAPTION.
LADDFONTRULES
CTEXT{
tnLinesb
TCTEXT
TNLINES
LNLINES
LADDFONTRULES
CTEXT
    <<this.cText+CHR(13)>>
LCFILENAME
LADDFONTRULES
CLOGTOFILE
LLOGTOFILE5
Transformer Log Start
THIS
TITLETEXT
LINEBREAKTEXT3
Transformer Log End
LINEBREAKTEXT
TITLETEXT6
 ***
TCTEXT
ADDTEXT;
Unabled to process file:
TCFILENAME
ADDTEXT
ADDTEXT=
LADDFONTRULES
PARENT
PGFTRANSFORMER
FPGLOG
EDTTRANSFORMERLOG
VALUE
CTEXT
LCITEM
LNCOUNT
LCFILES
LCCLASSES
NRULECOUNT
PARENT
PGFTRANSFORMER
FPGRULES
LSTSELECTEDRULES
LISTCOUNT
ARULES
NFILERULECOUNT
AFILERULE
AEXCLUDEFILESRULE
NCLASSRULECOUNT
ACLASSRULE
AEXCLUDECLASSESRULE
LOVERRIDEPROPERTYDEFAULTS
GETRULE
ARULE
NFONTMATCHCOUNT
LNFILENO
LCFILENAME
DISPLAYMESSAGE
CLEARTEXT
DISPLAYTEXT
LADDFONTRULES
PARENT
PGFTRANSFORMER
ACTIVEPAGE
FPGRULES
PAGEORDER
LSTSELECTEDRULES
SETFOCUS
LOCKSCREEN
FPGLOG
EDTTRANSFORMERLOG
CFILENAME
NPROCESSEDFILECOUNT
APROCESSEDFILES
NTRANSFORMEDFILECOUNT
AFILELIST
NFILECOUNT
FPGFILES
LSTSELECTEDFILES
HEADERTEXT+
FOOTERTEXT
LOGTOFILE
DISPLAYMESSAGE
LNFILENO
LCFILENAME
NFILECOUNT
PARENT
LERROR
AFILELIST
PROCESSFILE
PROCESSFOLDER
TCFOLDERNAME
LNFILECOUNT
LNFILENO
LCFILENAME
LCATTRIB
LAFILES
PARENT
LERROR
DISPLAYMESSAGE
LSEARCHSUBFOLDERS
PROCESSFOLDER
PROCESSFILE
Unabled to process read-only file:
Project:
Class Library:
Form:
Menu:
Report:
COMMENT
dataenvironment
cursor
relation
COMMENT
FONTINFO
COMMENT
FONTINFO
TCFILENAME
LCFILENAME
LCFILEEXT
LCFILEEXT2
LCATTRIB
LCOBJNAME
LCBASECLASS
LCCLASSES
LNRECNO
LCGETFILELIST
LNLASTSELECT
LCALIAS
LNCOUNT
LLMATCH
LLWILDCARDMATCH
LAFILES
PARENT
LERROR
NPROCESSEDFILECOUNT
APROCESSEDFILES
TRIMPATH
NFILERULECOUNT
WILDCARDMATCH
AFILERULE
AEXCLUDEFILESRULE
CGETFILEEXT
ADDTEXT
UNABLETOPROCESSFILETEXT
DISPLAYMESSAGE
PROCESSFILE
NTRANSFORMEDFILECOUNT
CFILENAME
PROCESSMENURULES
PROCESSREPORTRULES
PLATFORM
OBJNAME
BASECLASS
NCLASSRULECOUNT
ACLASSRULE
AEXCLUDECLASSESRULE
LADDFONTRULES
PROCESSRULES
UNIQUEID
ADDFONTRULES
tcFileNameb
tcObjNameb
_WINDOWS
_MAC6
FontName
FontSizeCC
TCFILENAME
TCOBJNAME
LCFILENAME
LCOBJNAME
LCFONTINFO
LNFONTSTYLE
LCPROPERTIES
OLISTBOX
LCPROPERTY
LCVALUE
LCCONDITION
LCFONTNAME
LCFONTSTYLE
LNFONTSIZE
LNHEIGHT
LNWIDTH
LCFONTNAME2
LCFONTSTYLE2
LNFONTSIZE2
LNHEIGHT2
LNWIDTH2
LNFM1
LNFM5
LNFM6
LNFONTNO
LNFONTSIZECOUNT
LNFONTSIZENO
LNATPOS
LAFONT
LAFONTS
PARENT
PGFTRANSFORMER
FPGRULES
LSTSELECTEDRULES
PROPERTIES
ADDITEM
ADDRULE
NFONTMATCHCOUNTI
.name = C
    CC
    6
(IIF(
(IIF(
name =
.name =
LCITEM
LCFILENAME
LCOBJNAME
LCCLASS
LCBASECLASS
LCPARENT
LLWILDCARDMATCH
LNRULENO
LNCOUNT
LCTEXT
LCOBJECTNAME
LNOBJECTCOUNT
LNPROPERTYATPOS
LNNAMEATPOS
LNATPOS
LNOCCURANCE
LNSTARTPOS
LNENDPOS
LCPROPERTIES
LCMEMBERS
LCMEMBER
LCOLDEXPR
LCNEWEXPR
LCPROPERTY
LCVALUE
LCCONDITION
LCFILES
LLEXCLUDEFILES
LCCLASSES
LLEXCLUDECLASSES
LLOVERRIDEPROPERTYDEFAULTS
LAOBJECTS
TRIMPATH
CFILENAME
OBJNAME
CLASS
BASECLASS
PARENT
NRULECOUNT
ARULES
GETRULE
ARULE
LOVERRIDEPROPERTYDEFAULTS
WILDCARDMATCH
FORMATVALUE
PROPERTIES
RESERVED3
LERROR
LCREATELOGONLY
ADDTEXT
ShowMsgBoxg
FileNotFoundMsg
WildCardMatch
TrimPath
TrimExta
Error'
FormatValue
DisplayMessage$
NoFilesErrorMsg
ClearText
AddTextL
LogToFile
HeaderText
FooterText\
TitleText
UnableToProcessFileText
LineBreakText^
DisplayText
InitalizeRules$!
ProcessStart_%
ProcessEnds(
ProcessFileList
ProcessFolder
ProcessFileD,
AddFontRules
ProcessRulesGB
ProcessMenuRules
ProcessReportRules
oTransformFiles
pjx|scx|vcx
LADDFONTRULES
CGETFILEEXT
CTEXT
CFILENAME
LSEARCHSUBFOLDERS
LCREATELOGONLY
LLOGTOFILE
CLOGTOFILE
NSTARTSECONDS
NENDSECONDS
APROCESSEDFILES
NPROCESSEDFILECOUNT
NTRANSFORMEDFILECOUNT
NFILECOUNT
AFILELIST
NRULECOUNT
ARULES
AFILERULE
NFILERULECOUNT
LOVERRIDEPROPERTYDEFAULTS
AEXCLUDEFILESRULE
ACLASSRULE
NCLASSRULECOUNT
AEXCLUDECLASSESRULE
LLASTLOCKSCREEN
NFONTMATCHCOUNT
TransformFiles
CustommR
transfrm.vcx
transfrm.vct
transfrm.prg
d:\temp\
transfrm.fxp
transfrm.ico