Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/therm.sct
VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentaTop = 242
Left = 251
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
12frmsolution..\solution.vcxformfrmsolutionHeight = 240
Width = 360
DoCreate = .T.
Caption = "Use Progress Thermometer"
Visible = .T.
HelpContextID = 1231613
lsetffcpath = .T.
Name = "frmsolution"
C_solutions1.Top = 204
C_solutions1.Left = 48
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 204
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 8
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 336
Shape2.ZOrderSet = 3
Shape2.Name = "Shape2"
Label1.Caption = "The Thermometer class is a Visual FoxPro form class which can be used to show progress in your applications. Try changing some of the options below and clicking the Try It! button."
Label1.Height = 43
Label1.Left = 24
Label1.Top = 24
Label1.Width = 300
Label1.TabIndex = 9
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 11
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 204
Cmdclose1.Left = 276
Cmdclose1.TabIndex = 10
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"

commandbutton
commandbuttonCommand1frmsolution�Top = 84
Left = 276
Height = 23
Width = 72
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Try It!"
TabIndex = 4
Name = "Command1"
�PROCEDURE Click
LOCAL loTherm, lcTask, lnPercent, lnSeconds
loTherm = NewObject("_thermometer",HOME()+"ffc\_therm","",THIS.Parent.txtTitle.Value)
lcTask = THIS.Parent.txtTask.Value

WITH loTherm
	.Show()
	FOR i = 1 TO THIS.Parent.spnDuration.Value
		lnPercent = m.i/THIS.Parent.spnDuration.Value*100
		.Update(lnPercent, lcTask+" "+TRANS(lnPercent))
		lnSeconds = SECONDS()
		DO WHILE lnSeconds+1>SECONDS()
		ENDDO
	ENDFOR
	.Complete()
ENDWITH

ENDPROC
M�� 44k�%����U������<T��C�_thermometerC�Q�
ffc\_therm��������T��������
��������C�	�� ��
���(��������� T���
�
�����d����C��� C�_���T��C���+���C����������C�
����ULOTHERMLCTASK	LNPERCENT	LNSECONDSTHISPARENTTXTTITLEVALUETXTTASKSHOWISPNDURATIONUPDATECOMPLETEClick,��11�a����QAA�A2�)4spinnerspinnerspnDurationfrmsolution�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
KeyboardHighValue = 10
KeyboardLowValue = 1
Left = 96
SpinnerHighValue =  10.00
SpinnerLowValue =   1.00
TabIndex = 1
Top = 84
Width = 48
Value = 5
Name = "spnDuration"
labellabelLabel3frmsolution�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Duration (sec.):"
Height = 15
Left = 12
Top = 88
Width = 74
TabIndex = 5
Name = "Label3"
textboxtextboxtxtTaskfrmsolution�FontName = "MS Sans Serif"
FontSize = 8
Value = My Task
Height = 23
Left = 60
TabIndex = 2
Top = 120
Width = 156
Name = "txtTask"
labellabelLabel5frmsolution�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Task:"
Height = 17
Left = 12
Top = 124
Width = 36
TabIndex = 6
Name = "Label5"
textboxtextboxtxtTitlefrmsolution�FontName = "MS Sans Serif"
FontSize = 8
Value = My Thermometer
Height = 23
Left = 60
TabIndex = 3
Top = 156
Width = 156
Name = "txtTitle"
labellabelLabel2frmsolution�FontName = "MS Sans Serif"
FontSize = 8
Caption = "Title:"
Height = 17
Left = 12
Top = 160
Width = 36
TabIndex = 7
Name = "Label2"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0