Mini Kabibi Habibi
� @ VERSION = 0.029 _msgbox display
Pixels %Message box wrapper for MESSAGEBOX(). Class 1 & dialogs.h���J# ..\foxpro.h"�T�A# _custom _msgbox �Height = 23
Width = 24
cmessage =
ntype = 48
ctitle = (_screen.Caption)
builderx = (HOME()+"Wizards\BuilderD,BuilderDForm")
Name = "_msgbox"
custom !Arial, 0, 9, 5, 15, 12, 21, 3, 0
_login dialogs.h Pixels & dialogs.hf0j'E* ..\foxpro.hn1�R�, ..\bitmaps\login_s.bmp 8Base login container. Allows entry of name and password. Class 7 _form _login !Arial, 0, 8, 5, 14, 11, 30, 3, 0
_aboutbox dialogs.h Pixels _login. & dialogs.h�W��X# ..\foxpro.h�X�x#mmand,lnVFPSProtoc cboName +cmessage Message box message text.
ntype Message box type.
ctitle Message box title text.
lbeep Specifies whether a beep occurs when message box is activated.
*show Displays the message box and returns the dialog result.
*set Sets the properties for message, type, title, and beep.
*display
_base.vcx & dialogs.h��M�( ..\foxpro.h��M�( )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
_keywords dialogs.h Pixels Class 11 _dialog _keywords \Height = 0
Left = 8
Top = 147
Width = 388
BorderColor = 255,255,255
Name = "linRule2"
_keywords. linRule2 combobox !Arial, 0, 9, 5, 15, 12, 21, 3, 0
_splash Pixels Class 2 combobox _form _splash �FontBold = .T.
FontSize = 24
BackStyle = 0
Caption = "Splash Screen"
Height = 40
Left = 132
Top = 192
Width = 223
Name = "Label1"
_splash. Label1 label label form �� � � 7� % S t n � U
��C� � �� U THISFORM REFRESH InteractiveChange, ��1 � 2 1 ) � )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
rotocol)
lnVFP _login. EThis class displays an About Application that the user can customize. Class 15 _form Anduration This is duration in seconds to display splash screen.
�PROCEDURE Activate
THIS.PICTURE = THIS.PICTURE
LOCAL t1
t1 = SECONDS()
DO WHILE (SECONDS()- m.t1)<this.nDuration
ENDDO
THISFORM.RELEASE
ENDPROC
<PROCEDURE InteractiveChange
THISFORM.Refresh()
ENDPROC
�BoundColumn = 2
RowSourceType = 3
RowSource = ""
Height = 21
Left = 100
Style = 2
TabIndex = 1
Top = 15
Width = 106
Name = "cboName"
uFormat = "K"
Height = 24
Left = 99
TabIndex = 2
Top = 46
Width = 104
PasswordChar = "*"
Name = "txtPassword"
txtPassword textbox textbox �FontSize = 9
Alignment = 1
Caption = "Password"
Height = 17
Left = 9
Top = 50
Width = 87
TabIndex = 6
Name = "lblPswd"
_login. lblPswd label label nAlignment = 1
Caption = "Name"
Height = 17
Left = 9
Top = 18
Width = 87
TabIndex = 5
Name = "lblName"
_login. lblName label label �� � � � % S h b � U
��C� � �� U THISFORM RELEASE Click, ��1 � 2 % ) � 0PROCEDURE Click
THISFORM.Release()
ENDPROC
�Top = 90
Left = 130
Height = 26
Width = 56
Cancel = .T.
Caption = "Cancel"
Enabled = .T.
TabIndex = 4
Name = "cmdCancel"
_login. cmdCancel
commandbutton
commandbutton _dialoge
this.Enabled=.F.
ENDIF
lcCommand=LOWER(ALLT dialogs.hetBusyState(.T.)
llEnabled=this.Enabled
IF th Pixels OR EMPTY(tcCommand)
RETURN .F.
ENDIF
llBusy=t ��� m m �x % $
� U � %�C� � ��, � T� � �a��
��C� � �� �z �# ��C� Password is invalid.�0�x�� T� � � �� �� ��C� � � �� � U THISFORM
CHECKPASSWORD LVALIDPASSWORD RELEASE TXTPASSWORD VALUE SETFOCUS Click, ��1 � � � 11A 2 � ) m �PROCEDURE Click
IF THISFORM.CheckPassword()
THISFORM.lValidPassword = .T.
THISFORM.Release()
ELSE
MESSAGEBOX(BADPASSWORD_LOC, MB_ICONEXCLAMATION)
THISFORM.txtPassword.Value = ""
THISFORM.txtPassword.SetFocus()
ENDIF
ENDPROC
kTop = 90
Left = 50
Height = 26
Width = 56
Caption = "OK"
Default = .T.
TabIndex = 3
Name = "cmdOk"
_login. cmdOk
commandbutton _aboutbox BTop = 276
Left = 24
Height = 17
Width = 36
Name = "Registry"
_aboutbox. Registry custom registry.vcx registry ^Height = 0
Left = 0
Top = 240
Width = 376
BorderColor = 0,0,0
Name = "linBlackVertical"
_aboutbox. linBlackVertical line line �BorderStyle = 1
BorderWidth = 2
Height = 1
Left = 1
Top = 241
Width = 375
BorderColor = 255,255,255
Name = "linWhiteShadow"
_aboutbox. linWhiteShadow Classode,lnCount,lnAtPos,llEnabled,luResult,llBusy
IF
commandbutton �DataSession = 2
ScaleMode = 3
Height = 131
Width = 224
DoCreate = .T.
AutoCenter = .T.
Caption = "Login"
HelpContextID = 10
cpassword =
ctable =
ctagname =
cfieldname =
opassword =
Name = "_login"
form _base.vcx & dialogs.hj, _# ..\foxpro.hr- �# )MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
1meter,lcAlias,lcVFPSProtocol,lnVFPSProtocolLen
LOCAL l _formvfps
LPARAMETERS tcCommand
LOCAL lcCommand,lcPara _dialog.tmrHost.RunCode("oTHIS.oHost.Release")
ENDPRO blobjectupdated
llargefont
*setfont Routine to automatically set font for large vs small fonts.
?PROCEDURE setfont
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.lLargeFont=.T.
this.SetAll("FontName","Arial")
RETURN
ENDIF
ENDPROC
PROCEDURE Deactivate
ACTIVATE SCREEN
SET MESSAGE TO
ENDPROC
PROCEDURE Activate
ACTIVATE SCREEN
SET MESSAGE TO
ENDPROC
PROCEDURE QueryUnload
this.Enabled=.F.
this.Visible=.F.
ENDPROC
PROCEDURE Release
this.QueryUnload
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=27
this.Release
ENDIF
ENDPROC
PROCEDURE Init
SET TALK OFF
SET COMPATIBLE OFF
SET CONFIRM ON
SET EXACT OFF
SET EXCLUSIVE OFF
SET MEMOWIDTH TO 1024
SET MULTILOCKS ON
SET SAFETY OFF
WAIT CLEAR
this.SetFont
ENDPROC
_locateitem dialogs.h Pixels Class 6 _dialog _locateitem _locateitem.
edtMessage DataSession = 2
Height = 172
Width = 358
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "Dialog"
FontName = "MS Sans Serif"
FontSize = 8
MaxButton = .F.
MinButton = .F.
KeyPreview = .T.
WindowType = 1
AlwaysOnTop = .T.
Name = "_dialog"
RETURN
ENDIF
IF this.lRelease "FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
BorderStyle = 0
Height = 45
Left = 8
ReadOnly = .T.
ScrollBars = 0
SpecialEffect = 1
TabIndex = 1
TabStop = .F.
Top = 8
Width = 317
BackColor = (thisform.BackColor)
BorderColor = (thisform.BackColor)
Name = "edtMessage"
editbox editbox _locateitem. line Zcpassword Name of field that hold user password.
ctable Name of table alias that hold user information.
ctagname Tag name used to search the employee table for the user name.
cfieldname Name of field that holds user name.
lcasesensitive Whether password is case-sensitive.
opassword Object reference for returning valid password set to lValidPassword property.
lvalidpassword Whether valid password was passed.
cdbfname Name of Login lookup DBF.
*setup Routine to setup lookup dropdown.
*checkpassword Routine to validate password.
*processpassword Stub routine to add encryption routine.
b�� I I WU % p � F � U t %�C� � �
��� � %�C� � 0��� � Q� �� � ���� � �� %�CC���� �- ��C� Could not open password table.�0�x�� B�-�� � �
F�� � �� �^ T� � � �� SELECT � � � FROM � � �
ORDER BY � � � INTO CURSOR cNames�� ��C� � � �� #)� %�� � ��4� T� � � ���� �m�* ��C� There are no users on file.�0�x�� B�-�� � U THIS CTABLE CDBFNAME CBONAME ROWSOURCE
CFIELDNAME REQUERY LISTINDEX� �� � � %�C� � ���$ � B�a�� �
F�� � �� T� �CC� � �� T� �C� � � ��� T� �C � � � ��
H�� �� � �� � � � � ��� � B�a�� �C� fC� f��� � B�a�� � B�-�� U LCFIELD LCPASSFIELD THIS CPASSWORD CTABLE TXTPASSWORD VALUE PROCESSPASSWORD LCASESENSITIVE �� � B�� �� U
TCPASSWORD) %�C�
�� � B�-�� �
��C� � �� U THIS RELEASE_ �� � %�C� � ��� � B� �
F�� � �� T� �CC� � � �f�� -�CCC� � Λf� �� U LCFIELDVALUE THIS CTABLE CBONAME DISPLAYVALUE
CFIELDNAMEU %�C� cNames��� � Q� � � %�C� � �
� C� � � ��N � Q�� � �� � U CNAMES THIS CTABLE6 %�C� � �� C� � � ��" � B� �
B�C� � �� U THIS
CFIELDNAME CTABLE SETUPO ��C�� %�C� � ��� O��H �' ��C� lValidPassword� � � � � �� � U THIS OPASSWORD ADDPROPERTY LVALIDPASSWORD setup, ��
checkpassword� �� processpassword$ �� QueryUnloadG �� Refresh� �� Unload% �� Init� �� Release� ��1 1!�� �q A A � A �Q 1� �q A 3 � #q A � BQQ� �q Qq A r 3 s � 3 � q A � 3 r !A A � qq3 Q� A �� A 3 �A A � 3 � �qA 2 a � X % ~ 7 ( 4 i > - � n E 5 � P < � Z A � e d ) I pPROCEDURE setup
IF !USED(THIS.cTable)
IF FILE(THIS.cDBFName)
USE (THIS.cDBFName) IN 0 AGAIN SHARED ALIAS (THIS.cTable)
IF EMPTY(ALIAS())
* Could not open password table
MESSAGEBOX(NOOPENTABLE_LOC,MB_ICONEXCLAMATION)
RETURN .F.
ENDIF
ENDIF
SELECT (THIS.cTable)
ENDIF
THIS.cboName.RowSource = "SELECT " + ;
THIS.cFieldName + ;
" FROM " + THIS.cTable + ;
" ORDER BY " + THIS.cFieldName + ;
" INTO CURSOR cNames"
THIS.cboName.Requery()
GO TOP
IF _TALLY > 0
THIS.cboName.ListIndex = 1
ELSE
MESSAGEBOX(NOUSERS_LOC,MB_ICONEXCLAMATION)
RETURN .F.
ENDIF
ENDPROC
PROCEDURE checkpassword
*-- Now check the password
LOCAL lcField,lcPassField
* If not Password specified, allow password thru
IF EMPTY(THIS.cPassword)
RETURN .T.
ENDIF
SELECT (THIS.cTable)
lcPassField = ALLTRIM(EVAL(THIS.cPassword))
lcField = ALLTRIM(THIS.txtPassword.Value)
lcField = THIS.ProcessPassword(lcField)
DO CASE
CASE THIS.lCaseSensitive AND lcPassField == lcField
RETURN .T.
CASE UPPER(lcPassField) == UPPER(lcField)
RETURN .T.
ENDCASE
RETURN .F.
ENDPROC
PROCEDURE processpassword
* This is a stub routine if you wish to add some
* sort of encryption routine to process the password.
LPARAMETER tcPassword
RETURN tcPassword
ENDPROC
PROCEDURE QueryUnload
IF !DODEFAULT()
RETURN .F.
ENDIF
THIS.Release()
ENDPROC
PROCEDURE Refresh
*-- Set up our workareas
LOCAL lcFieldValue
IF EMPTY(this.cTable)
RETURN
ENDIF
SELECT (THIS.cTable)
lcFieldValue = UPPER(ALLTRIM(THIS.cboName.DisplayValue))
LOCATE FOR UPPER(ALLTRIM(EVAL(THIS.cFieldName))) == lcFieldValue
ENDPROC
PROCEDURE Unload
IF USED("cNames")
USE IN cNames
ENDIF
IF !EMPTY(this.cTable) AND USED(this.cTable)
USE IN (this.cTable)
ENDIF
ENDPROC
PROCEDURE Init
*-- (c) Microsoft Corporation 1995
IF EMPTY(this.cFieldName) OR EMPTY(this.cTable)
RETURN
ENDIF
RETURN THIS.Setup()
ENDPROC
PROCEDURE Release
* If user provided a password object, let's set
DODEFAULT()
IF VARTYPE(THIS.oPassword)="O"
THIS.oPassword.AddProperty("lValidPassword",THIS.lValidPassword)
ENDIF
ENDPROC
�� � � �� % ^ s m � U $I�� � �:� � U THISFORM
HELPCONTEXTID Click, ��1 !2 : ) � EPROCEDURE Click
HELP ID (thisform.HelpContextID) NOWAIT
ENDPROC
�Top = 63
Left = 251
Height = 23
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
Cancel = .T.
Caption = "\<Help"
TabIndex = 5
Name = "cmdHelp"
cmdHelp
commandbutton
commandbutton \PROCEDURE Click
thisform.cFileName=thisform.cDefaultFileName
thisform.Release
ENDPROC
_locateitem. cmdIgnore 7�� � % � � � � U R T� � �� � �� �� � T� �C��� +�C��
� � �
��A � �
�� � � U THIS PICTURE T1 NDURATION THISFORM RELEASE Activate, ��1 1q � �A � 2 � ) �Top = 63
Left = 89
Height = 23
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
Cancel = .T.
Caption = "\<Ignore"
TabIndex = 3
Name = "cmdIgnore"
commandbutton formR
RETURN .F.
ENDPROC
PROCEDURE refreshmode
LOC _base.vcx line line AHeight = 0
Left = 8
Top = 146
Width = 388
Name = "linRule1"
_keywords. line _aboutbox. linRule1 line line _keywords.
cntSuperMover container ��� � � Q� % � � � � U T� � �� � ��
�� � � U THISFORM CFILENAME CDEFAULTFILENAME RELEASE Click, ��1 1� 2 Q ) � �FontSize = 8
BackStyle = 0
Caption = "Copyright Information"
Height = 16
Left = 120
Top = 55
Width = 233
TabIndex = 3
Name = "lblCopyright"
lblCopyright label label �� � � �A % � � � � U 4 �� � T� �� � �� RUN/N1 &lcMSInfoWinDir
U LCMSINFOWINDIR THISFORM
CMSINFODIR Click, ��1 q �3 f ) � qPROCEDURE Click
LOCAL lcMSInfoWinDir
lcMSInfoWinDir= thisform.cMSInfoDir
RUN/N1 &lcMSInfoWinDir
ENDPROC
_aboutbox.
commandbutton �Top = 283
Left = 269
Height = 25
Width = 100
FontSize = 8
Caption = "\<System Info..."
TabIndex = 2
Name = "cmdSysInfo"
cmdSysInfo
commandbutton
commandbutton ��� � � ; % D Y S � U
<� � U THISFORM Click, ��1 q 3 % ) � 0PROCEDURE Click
RELEASE thisform
ENDPROC
|Top = 252
Left = 269
Height = 25
Width = 100
FontSize = 8
Caption = "OK"
Default = .T.
TabIndex = 1
Name = "cmdOK"
_aboutbox. �� � � �N % i � x � U T� � ��
�� � � U THISFORM CFILENAME RELEASE Click, ��1 � � 2 > ) � _locateitem. cmdOK IPROCEDURE Click
thisform.cFileName=.NULL.
thisform.Release
ENDPROC
�Top = 63
Left = 170
Height = 23
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
Cancel = .T.
Caption = "Cancel"
TabIndex = 4
Name = "cmdCancel"
commandbutton
commandbutton �FontBold = .F.
FontSize = 8
BackStyle = 0
Caption = "Registered Company "
Height = 25
Left = 130
Top = 202
Width = 205
TabIndex = 6
Name = "lblUserCorp"
_aboutbox. lblUserCorp label label cmdCancel
commandbutton
commandbutton �Top = 63
Left = 8
Height = 23
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Locate..."
Default = .T.
TabIndex = 2
Name = "cmdLocate"
_locateitem. cmdLocate �FontBold = .F.
FontSize = 8
BackStyle = 0
Caption = "Registered Owner"
Height = 25
Left = 130
Top = 181
Width = 205
TabIndex = 5
Name = "lblUserName"
_aboutbox. lblUserName label label [Top = 169
Left = 119
Height = 60
Width = 252
SpecialEffect = 0
Name = "shpRectangle"
_aboutbox. shpRectangle shape shape �FontSize = 8
BackStyle = 0
Caption = "This product is licensed to:"
Height = 16
Left = 120
Top = 152
Width = 234
TabIndex = 4
Name = "lblLicense"
_aboutbox.
lblLicense label label �FontBold = .F.
FontSize = 8
BackStyle = 0
Caption = "Trademark Information"
Height = 19
Left = 120
Top = 75
Width = 233
TabIndex = 3
Name = "lblTrademark"
_aboutbox. lblTrademark label label �FontSize = 8
BackStyle = 0
Caption = "Version #"
Height = 16
Left = 120
Top = 35
Width = 233
TabIndex = 2
Name = "lblVersion"
_aboutbox.
lblVersion label label �FontSize = 8
BackStyle = 0
Caption = "Your application name"
Height = 14
Left = 120
Top = 17
Width = 233
TabIndex = 1
Name = "lblAppName"
_aboutbox.
lblAppName label label ^Stretch = 1
BackStyle = 0
Height = 111
Left = 10
Top = 11
Width = 100
Name = "imgLogo"
_aboutbox. imgLogo image image �cmsinfodir Holds the path of the MSINFO.EXE program.
*getregisteredowner Stub routine to return registered company.
*getregisteredcompany Stub routine to return registered owner.
�Height = 319
Width = 374
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = "About Custom Application"
FontSize = 8
MaxButton = .F.
MinButton = .F.
MinWidth = 1
WindowType = 1
AlwaysOnTop = .T.
cmsinfodir =
Name = "_aboutbox"
form _base.vcx �� }� % � � � � U � �� � � T� � �-�� T� � �-�� T� �C� � ���? %�� � �, CC� @� bmp� ico� gif� jpg� cur� msk� ��� � T� �CC� �@�� �� � T� �CC� �@�� � %�C� ���� � T� � �� � �� �� � T� � �� �� �
�� � � U
LCFILENAME LCFILEEXT THISFORM ENABLED VISIBLE CDEFAULTFILENAME LGETPICTURE CFILENAME RELEASE Click, ��1 � � � 1�!� A � 1� A � 2 � ) �PROCEDURE Click
LOCAL lcFileName,lcFileExt
thisform.Enabled=.F.
thisform.Visible=.F.
lcFileExt=JUSTEXT(thisform.cDefaultFileName)
IF thisform.lGetPicture OR INLIST(LOWER(lcFileExt),"bmp","ico","gif","jpg","cur","msk")
lcFileName=LOWER(GETPICT(lcFileExt))
ELSE
lcFileName=LOWER(GETFILE(lcFileExt))
ENDIF
IF EMPTY(lcFileName)
thisform.cFileName=thisform.cDefaultFileName
ELSE
thisform.cFileName=lcFileName
ENDIF
thisform.Release
ENDPROC
commandbutton
commandbutton �cdefaultfilename The default file name to locate.
cfilename The file name retrieved from Locate button.
olocateitem Object reference to obtain return value set to cFileName property.
lgetpicture
N�� 5 5 �� % F � � � U ) %�C�
�� � B�-�� �
��C� � �� U THIS RELEASEJ ��C�� %�C� � ��� O��C �" ��C� cFileName� � � � � �� � U THIS OLOCATEITEM ADDPROPERTY CFILENAME B�� � �� U THISFORM CFILENAME� �� � � � %�C� ��� O��4 � T� � �� �� � %�C� ��� C� C� � ��] � B�-�� � T� � �CC� �@�� T� � �� ��@ T� � � �� Error opening "� � � ". File not found.�� B�C�� U OSOURCE
TCFILENAME TLGETPICTURE THIS OLOCATEITEM CDEFAULTFILENAME LGETPICTURE
EDTMESSAGE VALUE QueryUnload, �� Releaseh �� Unload� �� Init ��1 � q A � 3 � �!A 3 � 3 � RA �q A A� 2 L j � �
. ) 5 �Height = 94
Width = 334
DoCreate = .T.
Caption = "Locate Item"
HelpContextID = 189582662
cdefaultfilename = .NULL.
cfilename = .NULL.
Name = "_locateitem"
form _dialogs.vcx u�� \ \ z� % W � ) � � U e �� � � � � ��C � � � � C�t� � �� %�� � ��Q � ��C� �� �
B�C� � �� U TCMESSAGE TNTYPE TCTITLE TLBEEP THIS SET LBEEP DISPLAYo �� � � � � � �� �. T� �CC� tnParametersb� N� � � C�t6�� %�� �
��a � B� � %�C� tcMessageb� C��� � T� � �� �� � %�� �
��� � B� � %�C� tnTypeb� N��� � T� � �� �� � %�� �
��� � B� � %�C� tcTitleb� C��!� T� � �� �� � %�� �
��:� B� � %�C� tlBeepb� L��h� T� �
�� �� � U TCMESSAGE TNTYPE TCTITLE TLBEEP TNPARAMETERS LNPARAMETERS THIS CMESSAGE NTYPE CTITLE LBEEP B�C� � � � � � �x�� U THIS CMESSAGE NTYPE CTITLE6 �� � � � � ��C � � � � C�t� � �� U TCMESSAGE TNTYPE TCTITLE TLBEEP THIS SET show, �� set� �� display� �� Init� ��1 1� A � 3 qq �A A �A A A �A A A �A A A �A 3 �3 12 � � � $ � * & / � . ) \ �PROCEDURE show
LPARAMETERS tcMessage,tnType,tcTitle,tlBeep
this.Set(tcMessage,tnType,tcTitle,tlBeep,PCOUNT())
IF this.lBeep
?? CHR(7)
ENDIF
RETURN this.Display()
ENDPROC
PROCEDURE set
LPARAMETERS tcMessage,tnType,tcTitle,tlBeep,tnParameters
LOCAL lnParameters
lnParameters=IIF(TYPE("tnParameters")=="N",tnParameters,PCOUNT())
IF lnParameters<1
RETURN
ENDIF
IF TYPE("tcMessage")=="C"
this.cMessage=tcMessage
ENDIF
IF lnParameters<2
RETURN
ENDIF
IF TYPE("tnType")=="N"
this.nType=tnType
ENDIF
IF lnParameters<3
RETURN
ENDIF
IF TYPE("tcTitle")=="C"
this.cTitle=tcTitle
ENDIF
IF lnParameters<4
RETURN
ENDIF
IF TYPE("tlBeep")=="L"
this.lBeep=tlBeep
ENDIF
ENDPROC
PROCEDURE display
RETURN MESSAGEBOX(this.cMessage,this.nType,this.cTitle)
ENDPROC
PROCEDURE Init
LPARAMETERS tcMessage,tnType,tcTitle,tlBeep
this.Set(tcMessage,tnType,tcTitle,tlBeep,PCOUNT())
ENDPROC
V�� = = Dd % � � � � U ��C��
�� � � U THIS REFRESH� �� � ��C�� T� � �-��' T� �C� � �� C� � �� � 6�� %�� � �
� C� � ��s � T� � ������ � T� � �� �� ��� � � � ��� � T� �� �� T�
�C� �
�� �� U LCVALUE THISFORM LADDMODE THIS LISTINDEX VALUE LISTCOUNT
CLASTVALUE PARENT
TXTKEYWORD ENABLED lstLeft.InteractiveChange, �� lstLeft.RefreshU ��1 � � 3 q � � q�A a� !A 2 % @ f � ) = �PROCEDURE lstLeft.InteractiveChange
DODEFAULT()
this.Refresh
ENDPROC
PROCEDURE lstLeft.Refresh
LOCAL lcValue
DODEFAULT()
thisform.lAddMode=.F.
lcValue=IIF(this.ListIndex>=1,ALLTRIM(this.Value),"")
IF this.ListCount<1 OR EMPTY(lcValue)
this.ListIndex=-1
ENDIF
thisform.cLastValue=lcValue
WITH this.parent.parent.txtKeyword
.Value=lcValue
.Enabled=(NOT EMPTY(lcValue))
ENDWITH
ENDPROC
"Top = 12
Left = 8
Width = 387
Height = 125
TabIndex = 1
Name = "cntSuperMover"
lstLeft.FontName = "MS Sans Serif"
lstLeft.FontSize = 8
lstLeft.Height = 109
lstLeft.Left = 0
lstLeft.Top = 15
lstLeft.Width = 168
lstLeft.Name = "lstLeft"
cmdAdd.Top = 24
cmdAdd.Left = 182
cmdAdd.FontName = "MS Sans Serif"
cmdAdd.FontSize = 8
cmdAdd.Name = "cmdAdd"
cmdRemove.Top = 70
cmdRemove.Left = 182
cmdRemove.FontName = "MS Sans Serif"
cmdRemove.FontSize = 8
cmdRemove.Name = "cmdRemove"
lstRight.FontName = "MS Sans Serif"
lstRight.FontSize = 8
lstRight.Height = 109
lstRight.Left = 219
lstRight.Top = 15
lstRight.Width = 168
lstRight.Name = "lstRight"
LABEL1.AutoSize = .T.
LABEL1.FontName = "MS Sans Serif"
LABEL1.FontSize = 8
LABEL1.Caption = "A\<vailable keywords:"
LABEL1.Left = 0
LABEL1.Top = 0
LABEL1.Name = "LABEL1"
LABEL2.AutoSize = .T.
LABEL2.FontName = "MS Sans Serif"
LABEL2.FontSize = 8
LABEL2.Caption = "\<Selected keywords:"
LABEL2.Left = 219
LABEL2.Top = 0
LABEL2.Name = "LABEL2"
cmdAddAll.Top = 47
cmdAddAll.Left = 182
cmdAddAll.FontName = "MS Sans Serif"
cmdAddAll.FontSize = 8
cmdAddAll.Name = "cmdAddAll"
cmdRemoveAll.Top = 93
cmdRemoveAll.Left = 182
cmdRemoveAll.FontName = "MS Sans Serif"
cmdRemoveAll.FontSize = 8
cmdRemoveAll.Name = "cmdRemoveAll"
_movers.vcx _supermover �Top = 157
Left = 202
Height = 23
Width = 22
FontName = "MS Sans Serif"
FontSize = 8
Picture = graphics\_save.bmp
Caption = ""
Enabled = .F.
TabIndex = 5
ForeColor = 0,128,0
Name = "cmdEnter"
_keywords. cmdEnter
commandbutton
commandbutton _keywords. �Height = 250
Width = 375
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = ""
ControlBox = .F.
Closable = .F.
MaxButton = .F.
MinButton = .F.
Movable = .F.
nduration = 3
Name = "_splash"
_base.vcx ^�� E E � % a � F p � U �� � � � � � � T� �C� � � � ��� T� ��
� �� T� � � �
�a�� T� � � �
�a��* %�C� �� �
� C� @C�
� @ ��� T� � � �
�-�� T�
� �-�� T�
� �a�� T� �
�-�� ��� � � � ��� � �� � �� � �� B� � %�C� �
���� %�� � ��w�9 ��C� Keywords may not contain spaces� .��
� �x�� �� � � � � B�-�� �
T� �� �� ��� � � ���� �� ���(�C�� ���� %�CC � � @C� @���� T� �� ��� � �� �� � %�� � ��\�C ��C� Keyword� "� � " � already exists� .��
� �x�� �� � � � � B�-�� � ��� � � ���� T� ��� � ��
%�� ���� T� �C�� ���
T� �� �� � �� �� T� �� ��� �� �� T� �C � �� � �� T� �� ��� �� �
��C�� ��� ��� � � T� ������ �� ���(�C�� ��z� %�CC � � @C� @��v�
T� �� �� !� � �� T�� � �� �� T�� � �� �� ��� � � �� T�
� �-�� T�
� �a�� T� � � �
�-�� T� �
�-�� ��� � � � ��� �� � �� � �� U LCVALUE LLADDMODE LNLISTINDEX LNITEMID LNCOUNT LNMATCHCOUNT THIS PARENT
TXTKEYWORD VALUE THISFORM LADDMODE CMDADD ENABLED CMDREMOVE
CLASTVALUE
CMDSCRATCH LUPDATED
CNTSUPERMOVER LSTLEFT REFRESH SETFOCUS CAPTION ACHOICES LISTINDEX
INDEXTOITEMID TOPINDEX Click, ��1 ��AA�A� � � a� � A A A !�q A � 1��A A A A 2q A 1� A� � A� aAA � � � ��� A A A � A � � A� a� � A 2 ) E PROCEDURE Click
LOCAL lcValue,llAddMode,lnListIndex,lnItemID,lnCount,lnMatchCount
lcValue=ALLTRIM(this.parent.txtKeyword.Value)
llAddMode=thisform.lAddMode
this.parent.cmdAdd.Enabled=.T.
this.parent.cmdRemove.Enabled=.T.
IF EMPTY(lcValue) OR (NOT llAddMode AND LOWER(lcValue)==LOWER(thisform.cLastValue))
this.parent.cmdScratch.Enabled=.F.
thisform.lAddMode=.F.
thisform.lUpdated=.T.
this.Enabled=.F.
WITH this.parent.cntSuperMover.lstLeft
.Refresh
.SetFocus
ENDWITH
RETURN
ENDIF
IF NOT EMPTY(lcValue)
IF " "$lcValue
MESSAGEBOX(M_KEYWORDS_NO_SPACES_LOC+".",16,thisform.Caption)
this.parent.txtKeyword.SetFocus
RETURN .F.
ENDIF
lnMatchCount=0
WITH this.parent.cntSuperMover
FOR lnCount = 1 TO ALEN(.aChoices)
IF LOWER(.aChoices[lnCount])==LOWER(lcValue)
lnMatchCount=lnMatchCount+1
ENDIF
ENDFOR
ENDWITH
ENDIF
IF lnMatchCount>0
MESSAGEBOX(M_KEYWORD_LOC+[ "]+lcValue+[" ]+M_ALREADY_EXISTS_LOC+".", ;
16,thisform.Caption)
this.parent.txtKeyword.SetFocus
RETURN .F.
ENDIF
WITH this.parent.cntSuperMover
lnListIndex=.lstLeft.ListIndex
IF llAddMode
lnListIndex=ALEN(.aChoices)+1
lnItemID=lnListIndex
DIMENSION .aChoices[lnListIndex]
.aChoices[lnItemID]=lcValue
ELSE
lnItemID=.lstLeft.IndexToItemID(lnListIndex)
.aChoices[lnItemID]=lcValue
ENDIF
ASORT(.aChoices)
.lstLeft.Refresh
lnListIndex=-1
FOR lnCount = 1 TO ALEN(.aChoices)
IF LOWER(.aChoices[lnCount])==LOWER(lcValue)
lnListIndex=lnCount
EXIT
ENDIF
ENDFOR
.lstLeft.ListIndex=lnListIndex
.lstLeft.TopIndex=lnListIndex
.lstLeft.SetFocus
ENDWITH
thisform.lAddMode=.F.
thisform.lUpdated=.T.
this.parent.cmdScratch.Enabled=.F.
this.Enabled=.F.
WITH this.parent.cntSuperMover.lstLeft
.Refresh
.SetFocus
ENDWITH
ENDPROC
��� � � �T % ( M 7 � U � T� � � � �-�� T� � �-�� T� � �-�� T� � � � �a�� T� � � � �a�� ��� � � � ��~ � ��
� �� � �� U THIS PARENT CMDENTER ENABLED THISFORM LADDMODE CMDADD CMDREMOVE
CNTSUPERMOVER LSTLEFT REFRESH SETFOCUS Click, ��1 A� � AAa� � A 2 � ) � �PROCEDURE Click
this.parent.cmdEnter.Enabled=.F.
this.Enabled=.F.
thisform.lAddMode=.F.
this.parent.cmdAdd.Enabled=.T.
this.parent.cmdRemove.Enabled=.T.
WITH this.parent.cntSuperMover.lstLeft
.Refresh
.SetFocus
ENDWITH
ENDPROC
�Top = 157
Left = 180
Height = 23
Width = 22
FontName = "MS Sans Serif"
FontSize = 8
Picture = graphics\_cancel.bmp
Caption = ""
Enabled = .F.
TabIndex = 4
ForeColor = 128,0,0
Name = "cmdScratch"
cmdScratch
commandbutton
commandbutton ��� x x | %
/ � U j T� � �a�� T� � �� �� ��� � � ��c � T� �� �� T� �a�� �� � �� � ��
� �� U THISFORM LADDMODE
CLASTVALUE THIS PARENT
TXTKEYWORD VALUE ENABLED REFRESH INTERACTIVECHANGE SETFOCUS Click, ��1 � 1� � � � � A 2 � ) x �PROCEDURE Click
thisform.lAddMode=.T.
thisform.cLastValue=""
WITH this.parent.txtKeyword
.Value=""
.Enabled=.T.
.Refresh
.InteractiveChange
.SetFocus
ENDWITH
ENDPROC
�Top = 157
Left = 8
Height = 23
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Add"
TabIndex = 2
Name = "cmdAdd"
_keywords. cmdAdd
commandbutton
commandbutton �� � � �� % B � Q � U a �� � � � � T� �� � � � � �� %�� �
��A � B� � T� �� � � � � ��< %�C� Remove keyword� "� � "?�$�
� �x���� � B� � T�
� �a�� ��� � � ��Z� T� �C � �� �
�� T� �C�� �� %�� ��� � ��C�� � ��� � �� ��� �@� � ���� T� �� �� � ��� � � ��� � � �� U LCVALUE LNLISTINDEX LNITEMID LNKEYWORDCOUNT THIS PARENT
CNTSUPERMOVER LSTLEFT LISTINDEX VALUE THISFORM CAPTION LUPDATED
INDEXTOITEMID ACHOICES REFRESH SETFOCUS Click, ��1 1�A A ��A A � 1a!� � � A � � A 2 | ) � �PROCEDURE Click
LOCAL lcValue,lnListIndex,lnItemID,lnKeywordCount
lnListIndex=this.parent.cntSuperMover.lstLeft.ListIndex
IF lnListIndex<1
RETURN
ENDIF
lcValue=this.parent.cntSuperMover.lstLeft.Value
IF MESSAGEBOX(M_REMOVE_KEYWORD_LOC+[ "]+lcValue+["?],292,thisform.Caption)#6
RETURN
ENDIF
thisform.lUpdated=.T.
WITH this.parent.cntSuperMover
lnItemID=.lstLeft.IndexToItemID(lnListIndex)
lnKeywordCount=ALEN(.aChoices)
IF lnKeywordCount>=2
ADEL(.aChoices,lnItemID)
DIMENSION .aChoices[lnKeywordCount-1]
ELSE
DIMENSION .aChoices[1]
.aChoices=""
ENDIF
.lstLeft.Refresh
.lstLeft.SetFocus
ENDWITH
ENDPROC
�Top = 157
Left = 89
Height = 23
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Remove"
TabIndex = 3
Name = "cmdRemove"
_keywords. cmdRemove
commandbutton
commandbutton H�� / / ;j % � � � � U � %�� � � � ��* � T� � � � �-�� � %�� � � � ��X � T� � � � �-�� � %�� � � �
��� � T� � � � �a�� � %�� � � �
��� � T� � � � �a�� � U THIS PARENT CMDADD ENABLED CMDREMOVE
CMDSCRATCH CMDENTER+ T� � � � �a�� T� � � � �a�� U THIS PARENT CMDADD ENABLED CMDREMOVE InteractiveChange, �� LostFocus- ��1 aAA aAA qAA qAA 3 AA2 S s � ) / �PROCEDURE InteractiveChange
IF this.parent.cmdAdd.Enabled
this.parent.cmdAdd.Enabled=.F.
ENDIF
IF this.parent.cmdRemove.Enabled
this.parent.cmdRemove.Enabled=.F.
ENDIF
IF NOT this.parent.cmdScratch.Enabled
this.parent.cmdScratch.Enabled=.T.
ENDIF
IF NOT this.parent.cmdEnter.Enabled
this.parent.cmdEnter.Enabled=.T.
ENDIF
ENDPROC
PROCEDURE LostFocus
this.parent.cmdAdd.Enabled=.T.
this.parent.cmdRemove.Enabled=.T.
ENDPROC
�FontName = "MS Sans Serif"
FontSize = 8
Enabled = .F.
Format = "K"
Height = 23
InputMask = (REPLICATE("X",30))
Left = 227
TabIndex = 6
Top = 157
Width = 168
Name = "txtKeyword"
_keywords.
txtKeyword textbox textbox �� � � �� % P e _ � U
�� � � U THISFORM RELEASE Click, ��1 � 2 # ) � .PROCEDURE Click
thisform.Release
ENDPROC
�Top = 188
Left = 320
Height = 23
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
Cancel = .T.
Caption = "Cancel"
TabIndex = 8
Name = "cmdCancel"
_keywords. cmdCancel
commandbutton
commandbutton �� � � �� % N c ] � U
�� � � U THISFORM APPLY Click, ��1 � 2 ! ) � ,PROCEDURE Click
thisform.Apply
ENDPROC
�Top = 188
Left = 240
Height = 23
Width = 75
FontName = "MS Sans Serif"
FontSize = 8
Caption = "OK"
Default = .T.
TabIndex = 7
Name = "cmdOK"
_keywords. cmdOK
commandbutton
commandbutton �laddmode
ckeywords List of selected keywords.
lupdated
clastvalue
cdbfname The Keywords DBF name.
okeywords Object to retrieve list of keywords set to cKeywords property.
*apply Retrieves the list of keywords.
*initialize
�Height = 223
Width = 403
DoCreate = .T.
Caption = "Keywords"
HelpContextID = 189582656
ckeywords =
clastvalue =
cdbfname = (HOME()+"Gallery\KEYWORDS.DBF")
Name = "_keywords"
form _dialogs.vcx �� � � �� % o + ) � � U B�� � � �� U THISFORM LBLUSERNAME CAPTION B�� � � �� U THISFORM LBLUSERCORP CAPTION G&(� U e �� � � � � � �� � � %�C� tcAppNameb� C��p � T� � �� About C� ��� T� � � �C� ��� � %�C� tcVersionb� C��� �! T� �
� �� Version C� ��� � %�C� tcCopyrightb� C��� � T� � � �C� ��� � %�C� tcTrademarkb� C��3� T� � � �� �� T� � �
���� � %�C� tcLogoBMPb� C��g� T� � � �� �� � T� � � �C� � �� T� � � �C� � ��
T� �� ��N T� �C� Path� �& Software\Microsoft\Shared Tools\MSInfo� �� � � �� %�� � ��� T� � �� �� � %�C� � ���^� T� � �� �� T� � � �-�� T� � ���� � U TCAPPNAME TCVERSION TCCOPYRIGHT TCTRADEMARK TCLOGOBMP LNERROR LCMSINFO THISFORM CAPTION
LBLAPPNAME
LBLVERSION LBLCOPYRIGHT LBLTRADEMARK WORDWRAP IMGLOGO PICTURE LBLUSERNAME THIS GETREGISTEREDOWNER LBLUSERCORP GETREGISTEREDCOMPANY REGISTRY GETREGKEY
CMSINFODIR
CMDSYSINFO ENABLED HEIGHT G&(�� � �� U THISFORM CAPTION getregisteredowner, �� getregisteredcompanyb �� Unload� �� Init� �� ActivateG ��1 � 2 � 2 a 2 r� ��QA �A �QA �11A �1A rq� �A $A 3 � 1 � � 9 G b d ' � � ; ) � ��� t t �� % � � W - � U � �� � � � �
�� ����
�� � � ��� � ��g� %�� � ����$ G&(�� Updating Keywords� ...�� T� �C�� ��
� �� ��
T� �� �� ��C�� �� �
�� �� ���(�C��
���'� T� �C � ��
�� %�C� ���� � .� � T� �� ���
� �� �� T� �� ��C� ��� ��
��C� ��� F� � >�
�� �� � -� �� ���(�C� ���� T� �CC � � ��� %�� CN���� � ��� #�� �� �
>�
�� �� :� �� F� � G&(� � T� �C��
���" %�� � � CC���
� ���
�� � � B� �
T� �� �� �� ���(�� ��c�# T� �C� � CC � ��
���� �� �� T� � �� ��
�� � � U LNKEYWORDCOUNT LNCOUNT LCKEYWORD
LCKEYWORDS
LAKEYWORDS THIS HIDE
CNTSUPERMOVER LUPDATED ACHOICES ASELECTIONS KEYWORDS ALL KEYWORD RELEASE CKEYWORDS� �� �
�� ���� %�C� � ��
C� � 0
��: � B�-�� � Q�� � ��� keywords� %�CC���n � B�-�� �
� ����
T� �� �� F� �
T� �� �� ~�C'
��� � T� �� ���
� �� �� T� �� ��C� ��� � ��C� � � � �� U LNCOUNT
LAKEYWORDS THIS CDBFNAME KEYWORDS KEYWORD
CNTSUPERMOVER INITCHOICESJ ��C�� %�C� � ��� O��C �" ��C� cKeywords� � � � � �� � U THIS OKEYWORDS ADDPROPERTY CKEYWORDS) %�C�
�� � B�-�� �
��C� � �� U THIS RELEASE( %�C�
� C� �
��! � B�-�� � U THIS
INITIALIZE B�� � �� U THIS CKEYWORDS apply, ��
initialize\ �� Release� �� QueryUnload( �� Initd �� Unload� ��1 1� � A� � !�a� A A � QA � q � Q A �AQ � � A � A A � a A 1!� A A � q1A A � 3 q � �q A �� q A � � q � � � QA A3 � �!A 3 � q A � 2 �q A 3 � 2 � 3 � � 6 G � 9 M L [ � T Q � � Z U ` ) t �PROCEDURE getregisteredowner
* This is a stub for your routine to obtain registered user name.
RETURN thisform.lblUserName.Caption
ENDPROC
PROCEDURE getregisteredcompany
* This is a stub for your routine to obtain registered corporation name.
RETURN thisform.lblUserCorp.Caption
ENDPROC
PROCEDURE Unload
SET MESSAGE TO
ENDPROC
PROCEDURE Init
*-- (c) Microsoft Corporation 1995
LPARAMETERS tcAppName, tcVersion, tcCopyright, tcTrademark, tcLogoBMP
LOCAL lnError,lcMSINFO
*-- Set new property values if parameters do not contain .F.
IF TYPE("tcAppName") = "C"
thisform.Caption = ABOUT_LOC + ALLTRIM(tcAppName)
thisform.lblAppName.Caption = ALLTRIM(tcAppName)
ENDIF
IF TYPE("tcVersion") = "C"
thisform.lblVersion.Caption = VERSIONLABEL_LOC + ALLTRIM(tcVersion)
ENDIF
IF TYPE("tcCopyright") = "C"
thisform.lblCopyright.Caption = ALLTRIM(tcCopyright)
ENDIF
IF TYPE("tcTrademark") = "C"
thisform.lblTrademark.Caption = tcTrademark
thisform.lblTrademark.WordWrap = 1
ENDIF
IF TYPE("tcLogoBMP") = "C"
thisform.imgLogo.Picture = tcLogoBMP
ENDIF
thisform.lblUserName.Caption = THIS.GetRegisteredOwner()
thisform.lblUserCorp.Caption = THIS.GetRegisteredCompany()
lcMSINFO = ""
lnError = THIS.Registry.GetRegKey("Path",@lcMSINFO,KEY_WIN4_MSINFO,HKEY_LOCAL_MACHINE)
IF lnError = 0
thisform.cMSInfoDir=lcMSINFO
ENDIF
*-- Check if MSINFO.EXE exists, otherwise remove the System Info command button and
*-- shorten the form
IF EMPTY(thisform.cMSInfoDir)
thisform.cMSInfoDir = " "
thisform.cmdSysInfo.Enabled = .F.
thisform.Height = 282
ENDIF
ENDPROC
PROCEDURE Activate
SET MESSAGE TO thisform.Caption
ENDPROC
#PROCEDURE apply
LOCAL lnKeywordCount,lnCount,lcKeyword,lcKeywords
LOCAL ARRAY laKeywords[1]
this.Hide
WITH this.cntSuperMover
IF this.lUpdated
SET MESSAGE TO M_UPDATING_KEYWORDS_LOC+" ..."
lnKeywordCount=ALEN(.aChoices)
DIMENSION laKeywords[lnKeywordCount]
laKeywords=""
ACOPY(.aChoices,laKeywords)
FOR lnCount = 1 TO ALEN(.aSelections,1)
lcKeyword=.aSelections[lnCount,1]
IF EMPTY(lcKeyword)
LOOP
ENDIF
lnKeywordCount=lnKeywordCount+1
DIMENSION laKeywords[lnKeywordCount]
laKeywords[lnKeywordCount]=ALLTRIM(lcKeyword)
ENDFOR
ASORT(laKeywords)
SELECT keywords
REPLACE ALL Keyword WITH ""
DELETE ALL
LOCATE
FOR lnCount = 1 TO ALEN(laKeywords)
lcKeyword=ALLTRIM(laKeywords[lnCount])
IF lnCount>RECCOUNT()
APPEND BLANK
ELSE
GO lnCount
ENDIF
REPLACE Keyword WITH lcKeyword
RECALL
ENDFOR
SELECT 0
SET MESSAGE TO
ENDIF
lnKeywordCount=ALEN(.aSelections,1)
IF lnKeywordCount=0 OR EMPTY(.aSelections[1,1])
this.Release
RETURN
ENDIF
lcKeywords=""
FOR lnCount = 1 TO lnKeywordCount
lcKeywords=ALLTRIM(lcKeywords+" "+ALLTRIM(.aSelections[lnCount,1]))
ENDFOR
ENDWITH
this.cKeywords=lcKeywords
this.Release
ENDPROC
PROCEDURE initialize
LOCAL lnCount
LOCAL laKeywords[1]
IF EMPTY(THIS.cDBFName) OR !FILE(THIS.cDBFName)
RETURN .F.
ENDIF
USE (THIS.cDBFName) AGAIN SHARED ALIAS "keywords"
IF EMPTY(ALIAS())
RETURN .F.
ENDIF
DIMENSION laKeywords[1]
laKeywords=""
SELECT keywords
lnCount=0
SCAN ALL FOR NOT DELETED()
lnCount=lnCount+1
DIMENSION laKeywords[lnCount]
laKeywords[lnCount]=ALLTRIM(Keyword)
ENDSCAN
this.cntSuperMover.InitChoices(@laKeywords)
ENDPROC
PROCEDURE Release
DODEFAULT()
IF VARTYPE(THIS.oKeywords)="O"
THIS.oKeywords.AddProperty("cKeywords",THIS.cKeywords)
ENDIF
ENDPROC
PROCEDURE QueryUnload
IF !DODEFAULT()
RETURN .F.
ENDIF
THIS.Release()
ENDPROC
PROCEDURE Init
IF !DODEFAULT() OR !THIS.Initialize()
RETURN .F.
ENDIF
ENDPROC
PROCEDURE Unload
RETURN this.cKeywords
ENDPROC
�� � � e4 % P " � � U � � %�C��
MS Sans Serif�� �$�
�! C��
MS Sans Serif�� �$� �! C��
MS Sans Serif�� �$� �! C��
MS Sans Serif�� �$� ��� � T� � �a�� ��C� FontName� Arial� � �� B� � U THIS
LLARGEFONT SETALL t&� G&(� U t&� G&(� U T� � �-�� T� � �-�� U THIS ENABLED VISIBLE
�� � � U THIS QUERYUNLOAD- �� � � %�� ���& �
�� � � � U NKEYCODE
NSHIFTALTCTRL THIS RELEASEH G2 � GA � G � G � G � G$(�� �� G_ � G. � R �
�� � � U THIS SETFONT setfont, ��
Deactivate �� Activate+ �� QueryUnload= �� Releasex �� KeyPress� �� Init� ��1 d � A A 3 Q a 3 Q a 3 � � 3 � 3 � � A 3 a a a a a � a a Q � 2
. O
n �
� � � $ q � 4 ' ) � PROCEDURE QueryUnload
IF !DODEFAULT()
RETURN .F.
ENDIF
THIS.RELEASE()
ENDPROC
PROCEDURE Release
DODEFAULT()
IF VARTYPE(THIS.oLocateItem)="O"
THIS.oLocateItem.AddProperty("cFileName",THIS.cFileName)
ENDIF
ENDPROC
PROCEDURE Unload
RETURN thisform.cFileName
ENDPROC
PROCEDURE Init
#DEFINE ERR_OPENINGFILE_LOC [Error opening "]
#DEFINE ERR_FILENOTFOUND_LOC [". File not found.]
LPARAMETERS oSource,tcFileName,tlGetPicture
IF VARTYPE(oSource)="O"
this.oLocateItem = oSource
ENDIF
IF VARTYPE(tcFileName)#"C" OR EMPTY(tcFileName)
RETURN .F.
ENDIF
this.cDefaultFileName=LOWER(ALLTRIM(tcFileName))
this.lGetPicture=tlGetPicture
this.edtMessage.Value=ERR_OPENINGFILE_LOC + this.cDefaultFileName + ERR_FILENOTFOUND_LOC
RETURN DODEFAULT()
ENDPROC