Mini Kabibi Habibi

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

!hVERSION =   3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1�Height = 307
Width = 348
DoCreate = .T.
Caption = "Expanding the SetAll Method"
Name = "Frmsolution1"
C_solutions1.Top = 276
C_solutions1.Left = 36
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 276
Behindscenes1.Left = 8
Behindscenes1.TabIndex = 5
Behindscenes1.ZOrderSet = 3
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 324
Shape2.ZOrderSet = 4
Shape2.Name = "Shape2"
Label1.Caption = "Select which controls you wish to change from the combo box on the left, and then choose a property to change from the combo box on the right."
Label1.Height = 48
Label1.Left = 24
Label1.Top = 24
Label1.Width = 300
Label1.TabIndex = 7
Label1.ZOrderSet = 0
Label1.Name = "Label1"
Label4.TabIndex = 1
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 276
Cmdclose1.Left = 264
Cmdclose1.TabIndex = 6
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"
!uvalue Value to send to SetAllX
	container	containercntFrmsolution1oTop = 120
Left = 12
Width = 324
Height = 144
SpecialEffect = 1
TabIndex = 4
ZOrderSet = 1
Name = "cnt"
labellabelLabel1Frmsolution1.cntoFontSize = 8
Caption = "Label1"
Height = 17
Left = 12
Top = 72
Width = 40
TabIndex = 4
Name = "Label1"
labellabelLabel2Frmsolution1.cntoFontSize = 8
Caption = "Label1"
Height = 17
Left = 12
Top = 96
Width = 40
TabIndex = 5
Name = "Label2"

commandbutton
commandbuttonCommand1Frmsolution1.cnteTop = 24
Left = 12
Height = 27
Width = 84
Caption = "Command1"
TabIndex = 1
Name = "Command1"
checkboxcheckboxCheck1Frmsolution1.cntbTop = 24
Left = 132
Height = 17
Width = 60
Caption = "Check1"
TabIndex = 2
Name = "Check1"
spinnerspinnerSpinner1Frmsolution1.cntQHeight = 24
Left = 132
TabIndex = 3
Top = 48
Width = 120
Name = "Spinner1"
shapeshapeShape1Frmsolution1.cntATop = 84
Left = 132
Height = 36
Width = 144
Name = "Shape1"
comboboxcomboboxcbxPropertyFrmsolution1�FontSize = 8
RowSource = "BackColor,Caption,Height,Width,FontSize,FontName,FontBold"
Height = 24
Left = 180
Style = 2
TabIndex = 3
Top = 84
Width = 156
ZOrderSet = 7
Name = "cbxProperty"
�PROCEDURE InteractiveChange
Local lcType, luValue

lcType = this.list(this.listIndex, 2)
lcProperty = this.List(this.listIndex, 1)
lcBaseClassList = IIF(thisform.cbxControl.Value = "All Controls", .F., thisform.cbxControl.Value)

Do Case
Case lcType = "C"
	luValue = InputBox("Enter a character value:")
  	If !EMPTY(luValue)
	    thisform._setAllX.setAllX(thisform.cnt, lcProperty, luValue, lcBaseClassList, .F., .F.)
    EndIf
Case lcType  = "R"
	luValue = GETCOLOR()
  	If luValue > 0
	    thisform._setAllX.setAllX(thisform.cnt, lcProperty, luValue, lcBaseClassList, .F., .F.)
    Endif
Case lcType  = "N"
	luValue = VAL(InputBox("Enter a numeric value:"))
  	If !EMPTY(luValue)
	    thisform._setAllX.setAllX(thisform.cnt, lcProperty, luValue, lcBaseClassList, .F., .F.)
    Endif
Case lcType  = "F"
	luValue = GETFONT()
    If !EMPTY(luValue)
      thisform._setAllX.setAllX(thisform.cnt, "FontName", LEFT(luValue, AT(",", luValue)-1), lcBaseClassList, .F., .F.)
      thisform._setAllX.setAllX(thisform.cnt, "FontSize", VAL(SubStr(luValue, AT(",", luValue) +1)), lcBaseClassList, .F., .F.)
      thisform._setAllX.setAllX(thisform.cnt, "FontBold", ("B" $ SUBSTR(luValue, AT(",", luValue, 2)+1)), lcBaseClassList, .F., .F.)
      thisform._setAllX.setAllX(thisform.cnt, "FontItalic", ("I" $ SUBSTR(luValue, AT(",", luValue, 2)+1)), lcBaseClassList, .F., .F.)
    Endif
EndCase


ENDPROC
PROCEDURE Init
this.addItem("BackColor", 1, 1)
this.addListItem("R", 1, 2)

this.addItem("Caption", 2, 1)
this.addListItem("C", 2, 2)

this.addItem("Height", 3, 1)
this.addListItem("N", 3, 2)

this.addItem("Width", 4, 1)
this.addListItem("N", 4, 2)

this.addItem("Font Info", 5, 1)
this.addListItem("F", 5, 2)

ENDPROC
��� ��1c%�@*��U�����T��C�������T��C�������5T��C���	�All Controls�-�	���	6��
H��������C����(T��C�Enter a character value:��%�C��
����$��C�����--��
�������R��K�
T��C��%�����G�$��C�����--��
�������N����(T��CC�Enter a numeric value:��g��%�C��
����$��C�����--��
�������F����
T��C�'��%�C��
����9��C���FontNameC�C�,��=�--��
���;��C���FontSizeCC�C�,��\g�--��
���B��C���FontBold�BC�C�,���\�--��
���D��C���
FontItalic�IC�C�,���\�--��
�����U
LCTYPELUVALUETHISLIST	LISTINDEX
LCPROPERTYLCBASECLASSLISTTHISFORM
CBXCONTROLVALUE_SETALLXSETALLXCNT��C�	BackColor��������C�R��������C�Caption��������C�C��������C�Height��������C�N��������C�Width��������C�N��������C�	Font Info��������C�F������UTHISADDITEMADDLISTITEMInteractiveChange,��Init���1���Q�!�AA!�AA!�AA!���!AAA4�q�q�q�q�q2���$)�comboboxcombobox
cbxControlFrmsolution1�FontSize = 8
RowSourceType = 1
Value = All Controls
Height = 24
Left = 12
Style = 2
TabIndex = 2
Top = 84
Width = 156
ZOrderSet = 8
Name = "cbxControl"
�PROCEDURE Init
this.addItem("All Controls")
this.addItem("CheckBox")
this.addItem("CommandButton")
this.addItem("Label")
this.addItem("Spinner")
this.addItem("Shape")

This.Value = "All Controls"
ENDPROC
y�� ``��%�	�U���C�All Controls������C�CheckBox������C�
CommandButton������C�Label������C�Spinner������C�Shape����T����All Controls��UTHISADDITEMVALUEInit,��1���QqQ�1�)`_setallx..\..\..\ffc\_setallx.vcxcustom_setAllXFrmsolution1*Top = 276
Left = 156
Name = "_setAllX"
kArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Arial, 0, 8, 5, 14, 11, 30, 3, 0
�Height = 307
Width = 348
DoCreate = .T.
Caption = "Expanding the SetAll Method"
Name = "Frmsolution1"
C_solutions1.Top = 276
C_solutions1.Left = 36
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 276
Behindscenes1.Left = 8
Behindscenes1.TabIndex = 5
Behindscenes1.ZOrderSet = 3
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 60
Shape2.Width = 324
Shape2.ZOrderSet = 4
Shape2.Name = "Shape2"
Label1.Caption = "Select which controls you wish to change from the combo box on the left, and then choose a property to change from the combo box on the right."
Label1.Height = 48
Label1.Left = 24
Label1.Top = 24
Label1.Width = 300
Label1.TabIndex = 7
Label1.ZOrderSet = 0
Label1.Name = "Label1"
Label4.TabIndex = 1
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 276
Cmdclose1.Left = 264
Cmdclose1.TabIndex = 6
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"

HelpContextID = 1231626