Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ole/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ole/slider.sct

>-VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentJLeft = 1
Top = 220
Width = 539
Height = 176
Name = "Dataenvironment"
12formform
OLESTATBAR�DataSession = 2
Top = 0
Left = 0
Height = 276
Width = 379
DoCreate = .T.
BorderStyle = 2
Caption = "Use Slider and Status Bar Controls"
MaxButton = .F.
HelpContextID = 173
Name = "OLESTATBAR"
hPROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Init
IF  fontmetric(1, 'MS Sans Serif', 8, '') # 13 OR ;
	fontmetric(4, 'MS Sans Serif', 8, '') # 2 OR ;
	fontmetric(6, 'MS Sans Serif', 8, '') # 5 OR ;
	fontmetric(7, 'MS Sans Serif', 8, '') # 11
	this.setall('fontname', 'Tahoma')  
ELSE
	this.setall('fontname','MS Sans Serif')
ENDIF
this.setall('fontsize',8)

* Check to see if OCX installed and loaded.
IF TYPE("THIS.oleH") # "O" OR ISNULL(THIS.oleH)
	RETURN .F.
ENDIF

* Check to see if OCX installed and loaded.
IF TYPE("THIS.oleV") # "O" OR ISNULL(THIS.oleV)
	RETURN .F.
ENDIF

* Check to see if OCX installed and loaded.
IF TYPE("THIS.OleStatBar") # "O" OR ISNULL(THIS.OleStatBar)
	*RETURN .F.
ENDIF

ENDPROC
l�� SS%����U9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELP
�����UTHISC_SOLUTIONS1SAVEHELP��%�C��
MS Sans Serif���$�
�!C��
MS Sans Serif���$��!C��
MS Sans Serif���$��!C��
MS Sans Serif���$�����!��C�fontname�Tahoma�������(��C�fontname�
MS Sans Serif�������C�fontsize�����)%�C�	THIS.oleHb�O�	C�����6�B�-���)%�C�	THIS.oleVb�O�	C�����j�B�-���/%�C�THIS.OleStatBarb�O�	C��������UTHISSETALLOLEHOLEV
OLESTATBAR
Deactivate,��Activate���Init���1Q�A2�2d	��A��qA�qA�B2d���]	)Sbehindscenes..\solution.vcx
commandbutton
Behindscenes1
OLESTATBAR<Top = 221
Left = 13
TabIndex = 3
Name = "Behindscenes1"
cmdclose..\solution.vcx
commandbutton	Cmdclose1
OLESTATBARFTop = 221
Left = 295
Height = 23
TabIndex = 5
Name = "Cmdclose1"
c_solutions..\solution.vcxcustomC_solutions1
OLESTATBARFTop = 219
Left = 54
Height = 18
Width = 25
Name = "C_solutions1"
spinnerspinnerspn1
OLESTATBAR�FontName = "MS Sans Serif"
FontSize = 8
Height = 23
KeyboardHighValue = 100
KeyboardLowValue = 0
Left = 164
SpinnerHighValue = 100.00
SpinnerLowValue =   0.00
TabIndex = 4
Top = 221
Width = 49
Value = 0
Name = "spn1"
	PROCEDURE InteractiveChange
#DEFINE TXT_LOC "slider value: "
THISFORM.OleStatBar.Panels(2).Text = TXT_LOC + ALLTRIM(STR(THIS.value))
THIS.Parent.oleH.Value = THIS.Value
THIS.Parent.oleV.Value = THIS.Value

ENDPROC
PROCEDURE Init
THIS.Value = 50

ENDPROC
��� ��2	%:,�Uj5T���������slider value: CC��Z���T���������T���������U	THISFORM
OLESTATBARPANELSTEXTTHISVALUEPARENTOLEHOLEVT����2��UTHISVALUEInteractiveChange,��Init���1R��32���)�shapeshapeShape3
OLESTATBARbTop = 15
Left = 12
Height = 46
Width = 356
BackStyle = 0
SpecialEffect = 0
Name = "Shape3"
labellabelLabel7
OLESTATBARFontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = "Drag the pointer in one of the slider controls or change the value of the spinner to change the value of all controls."
Height = 29
Left = 22
Top = 26
Width = 339
TabIndex = 0
Name = "Label7"
labellabelLabel8
OLESTATBAR�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 20
Top = 9
Width = 62
TabIndex = 0
Name = "Label8"

olecontrol
olecontrololev
OLESTATBARMTop = 72
Left = 324
Height = 144
Width = 42
TabIndex = 2
Name = "olev"
sPROCEDURE Scroll
*** OLE Control Event ***
#DEFINE TXT_LOC "slider value: "
THISFORM.OleStatBar.Panels(2).Text = TXT_LOC + ALLTRIM(STR(THIS.value))
THIS.Parent.spn1.Value = THIS.Value
THIS.Parent.oleH.Value = THIS.Value

ENDPROC
PROCEDURE LostFocus
ON KEY LABEL F1
ENDPROC
PROCEDURE GotFocus
ON KEY LABEL F1 HELP ID _SCREEN.ActiveForm.HelpContextID
ENDPROC
�� ��l%9�	n�Uj5T���������slider value: CC��Z���T���������T���������U	THISFORM
OLESTATBARPANELSTEXTTHISVALUEPARENTSPN1OLEH{2�F1��UF19612�F1�(HELP ID _SCREEN.ActiveForm.HelpContextID�UF1Scroll,��	LostFocus���GotFocus���1S��3�2a1�	0h)�
��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry���������T:I���OleObjectData�����AccessObjSiteData&������������\ChangedProps������������o����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������T�����j��(6(!C4W��+
d\$89368265E-85FE-11d1-8BE3-0000F8754DA1}An�	l�Max	I
dOrientation	I
	SelSta122�ͫ�O�W���H���H��6���L6	rt	I
2TickFrequency	I
:�,OLEObject = C:\WINNT\System32\mscomctl.ocx

olecontrol
olecontrololeH
OLESTATBAR[Top = 72
Left = 12
Height = 33
Width = 282
Visible = .T.
TabIndex = 1
Name = "oleH"
sPROCEDURE Scroll
*** OLE Control Event ***
#DEFINE TXT_LOC "slider value: "
THISFORM.OleStatBar.Panels(2).Text = TXT_LOC + ALLTRIM(STR(THIS.value))
THIS.Parent.spn1.Value = THIS.Value
THIS.Parent.oleV.Value = THIS.Value

ENDPROC
PROCEDURE GotFocus
ON KEY LABEL F1 HELP ID _SCREEN.ActiveForm.HelpContextID
ENDPROC
PROCEDURE LostFocus
ON KEY LABEL F1
ENDPROC
�� ��l%9�	n�Uj5T���������slider value: CC��Z���T���������T���������U	THISFORM
OLESTATBARPANELSTEXTTHISVALUEPARENTSPN1OLEV9612�F1�(HELP ID _SCREEN.ActiveForm.HelpContextID�UF1{2�F1��UF1Scroll,��GotFocus���	LostFocus ��1S��3a2�1�9	Yh)�
��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry���������T:I���OleObjectData�����AccessObjSiteData&������������\ChangedProps������������o����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������T�����j��(6(!C4%i�+
d\$89368265E-85FE-11d1-8BE3-0000F8754DA1}An�	l�Max	I
dOrientation	I
	SelSta122�ͫ�?wW���H���H��6���L6	rt	I
2TickFrequency	I
:�,OLEObject = C:\WINNT\System32\mscomctl.ocx

olecontrol
olecontrol
OleStatBar
OLESTATBAROTop = 253
Left = 0
Height = 23
Width = 379
Align = 2
Name = "OleStatBar"
��ࡱ�>��	��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry����������;I��OleObjectData����AccessObjSiteData&������������\ChangedProps��������������������	

���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������g8�����j��(6(!C4,'a�~������ͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1erStdFileEditing\�rver-11CE-9E0D-00AA006002F3}�����������	�&�
�	Status Bar ControlStatus Bar Control��	�	10:53 AMltBMv(����������������������������������������������9�����"" ����������������9���������������p	9�����9�����������������999��91�������������09	9999������������99999999�������������99999999�����������������199999991��񓓓����������9999999��"" 񛓓���������9919�1�������񓛑�99�����99�H���������D1����������������������������������Style	I
Sta,OLEObject = C:\WINNT\System32\mscomctl.ocx
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Top = 0
Left = 0
Height = 276
Width = 379
DoCreate = .T.
BorderStyle = 2
Caption = "Use Slider and Status Bar Controls"
MaxButton = .F.
HelpContextID = 1231560
Name = "OLESTATBAR"