Mini Kabibi Habibi

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

0sVERSION =   3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution14Height = 400
Width = 465
DoCreate = .T.
Caption = "Windows XP Themes Support"
Name = "Frmsolution1"
C_solutions1.Top = 376
C_solutions1.Left = 348
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 373
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 20
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 58
Shape2.Width = 444
Shape2.ZOrderSet = 3
Shape2.Style = 3
Shape2.Name = "Shape2"
Label1.AutoSize = .T.
Label1.Caption = "Visual FoxPro supports XP themes at three different levels; 1) the Application level via SYS(2700) and the _SCREEN.Themes property, 2) at the form level via the Themes property, and 3) at the control level. "
Label1.Height = 41
Label1.Left = 24
Label1.Top = 24
Label1.Width = 384
Label1.TabIndex = 2
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 1
Label4.ZOrderSet = 5
Label4.Style = 3
Label4.Name = "Label4"
Cmdclose1.Top = 371
Cmdclose1.Left = 385
Cmdclose1.TabIndex = 21
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"
�PROCEDURE Refresh
FOR EACH oControl IN Thisform.Controls 
	IF PEMSTATUS(oControl,"Refresh",5)
		oControl.Refresh()
	ENDIF	
ENDFOR
	

ENDPROC
�� '%����UG�����@�%�C��Refresh��h��<�
��C�������UOCONTROLTHISFORMCONTROLSREFRESHRefresh,��1!��AA3�)checkboxcheckboxCheck1Frmsolution1�Top = 78
Left = 12
Height = 15
Width = 261
FontName = "Tahoma"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "Enable Themes at the application level - SYS(2700)"
TabIndex = 3
ZOrderSet = 7
Name = "Check1"
�PROCEDURE Click
IF this.Value = 0
	SYS(2700,0)
ELSE
	SYS(2700,1)
ENDIF
Thisform.Refresh()

ENDPROC
PROCEDURE Init
This.Value = VAL(SYS(2700))

ENDPROC
j�� QQ��%��
��UN%������#���C��
�]���:���C��
�]���
��C����UTHISVALUETHISFORMREFRESHT���CC��
]g��UTHISVALUEClick,��Init���1A���A�3Q2a|�
)QcheckboxcheckboxCheck2Frmsolution1�Top = 120
Left = 12
Height = 15
Width = 264
FontName = "Tahoma"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "Enable Themes at the form level - Thisform.Themes"
Value = 1
TabIndex = 5
ZOrderSet = 8
Name = "Check2"
�PROCEDURE Click
IF this.Value = 0
	Thisform.Themes = .F.
ELSE
	Thisform.Themes = .T.
ENDIF
		
ENDPROC
PROCEDURE Init
this.value = IIF(thisform.Themes, 1, 0)

ENDPROC
v�� ]]%�	��U?%������"�T���-���8�T���a���UTHISVALUETHISFORMTHEMES$!T���C������6��UTHISVALUETHISFORMTHEMESClick,��Init���1A���A32c~�	)]checkboxcheckboxCheck3Frmsolution1�Top = 99
Left = 12
Height = 15
Width = 297
FontName = "Tahoma"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "Enable Themes at the application level - _SCREEN.Themes"
TabIndex = 4
ZOrderSet = 9
Name = "Check3"
�PROCEDURE Init
this.value = IIF(_SCREEN.Themes, 1, 0)

ENDPROC
PROCEDURE Click
IF this.Value = 0
	_SCREEN.Themes = .F.
ELSE
	_SCREEN.Themes = .T.
ENDIF
Thisform.Refresh()
ENDPROC
��� hh-%%�
��U# T���C�9�����6��UTHISVALUETHEMESJ%������!�
T�9��-���6�
T�9��a���
��C����UTHISVALUETHEMESTHISFORMREFRESHInit,��Clickh��13A���A�18T�)h
commandbutton
commandbuttonCommand3Frmsolution1�AutoSize = .T.
Top = 340
Left = 120
Height = 23
Width = 48
FontName = "Tahoma"
FontSize = 8
Caption = "Button"
TabIndex = 19
ZOrderSet = 10
Themes = .F.
Name = "Command3"
labellabelLabel2Frmsolution1�AutoSize = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Common Controls:"
Height = 15
Left = 12
Top = 144
Width = 90
TabIndex = 6
Name = "Label2"
textboxtextboxText2Frmsolution1fFontName = "Tahoma"
FontSize = 8
Left = 12
TabIndex = 18
Top = 340
Themes = .F.
Name = "Text2"
labellabelLabel5Frmsolution1�AutoSize = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Non-Themed Controls (Control's Themes property overrides the form's Themes property):"
Height = 15
Left = 12
Top = 316
Width = 432
TabIndex = 17
Name = "Label5"
	pageframe	pageframe
Pageframe1Frmsolution1@ErasePage = .T.
PageCount = 2
Top = 162
Left = 5
Width = 455
Height = 150
Name = "Pageframe1"
Page1.FontName = "Tahoma"
Page1.FontSize = 8
Page1.Caption = "Page1"
Page1.Name = "Page1"
Page2.FontName = "Tahoma"
Page2.FontSize = 8
Page2.Caption = "Page2"
Page2.BackColor = 255,255,128
Page2.Name = "Page2"
labellabelLabel3Frmsolution1.Pageframe1.Page1�AutoSize = .T.
FontName = "Tahoma"
FontSize = 8
Caption = "Label"
Height = 15
Left = 68
Top = 11
Width = 27
TabIndex = 10
Style = 3
Name = "Label3"
optiongroupoptiongroupOptiongroup1Frmsolution1.Pageframe1.Page1>AutoSize = .T.
ButtonCount = 2
BackStyle = 0
Value = 1
Height = 46
Left = 318
Top = 11
Width = 71
TabIndex = 15
Name = "Optiongroup1"
Option1.FontName = "Tahoma"
Option1.FontSize = 8
Option1.BackStyle = 0
Option1.Caption = "Option1"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 5
Option1.Top = 5
Option1.Width = 61
Option1.Name = "Option1"
Option2.FontName = "Tahoma"
Option2.FontSize = 8
Option2.BackStyle = 0
Option2.Caption = "Option2"
Option2.Height = 17
Option2.Left = 5
Option2.Top = 24
Option2.Width = 61
Option2.Name = "Option2"
textboxtextboxTextbox1Frmsolution1.Pageframe1.Page1[FontName = "Tahoma"
FontSize = 8
Left = 102
TabIndex = 11
Top = 11
Name = "Textbox1"
3PROCEDURE Init
This.Value = This.Name

ENDPROC
�� ��6v%Ymg�UT�������UTHISVALUENAMEInit,��112()�spinnerspinnerSpinner1Frmsolution1.Pageframe1.Page1[FontName = "Tahoma"
FontSize = 8
Left = 102
TabIndex = 13
Top = 83
Name = "Spinner1"
listboxlistboxListbox1Frmsolution1.Pageframe1.Page1uFontName = "Tahoma"
FontSize = 8
Height = 48
Left = 318
TabIndex = 16
Top = 59
Width = 115
Name = "Listbox1"
nPROCEDURE Init
This.AddItem(This.Name)
This.AddItem("Some other value")
This.Value=This.Name


ENDPROC
�� ��r�%����UI��C������ ��C�Some other value����T�������UTHISADDITEMNAMEVALUEInit,��1113c)�editboxeditboxEditbox1Frmsolution1.Pageframe1.Page1uFontName = "Tahoma"
FontSize = 8
Height = 96
Left = 210
TabIndex = 14
Top = 11
Width = 100
Name = "Editbox1"
3PROCEDURE Init
This.Value = This.Name

ENDPROC
�� ��6v%Ymg�UT�������UTHISVALUENAMEInit,��112()�comboboxcombobox	Combobox1Frmsolution1.Pageframe1.Page1\FontName = "Tahoma"
FontSize = 8
Left = 102
TabIndex = 12
Top = 47
Name = "Combobox1"
nPROCEDURE Init
This.AddItem(This.Name)
This.AddItem("Some other value")
This.Value=This.Name


ENDPROC
�� ��r�%����UI��C������ ��C�Some other value����T�������UTHISADDITEMNAMEVALUEInit,��1113c)�
commandbutton
commandbuttonCommand1Frmsolution1.Pageframe1.Page1�AutoSize = .T.
Top = 11
Left = 8
Height = 23
Width = 48
FontName = "Tahoma"
FontSize = 8
Caption = "Button"
TabIndex = 7
ZOrderSet = 10
Name = "Command1"

commandbutton
commandbuttonCommand2Frmsolution1.Pageframe1.Page1�AutoSize = .T.
Top = 83
Left = 8
Height = 23
Width = 68
FontName = "Tahoma"
FontSize = 8
Caption = "Hot Button"
TabIndex = 9
SpecialEffect = 2
ZOrderSet = 10
Name = "Command2"

commandbutton
commandbuttonCommand4Frmsolution1.Pageframe1.Page1�AutoSize = .T.
Top = 47
Left = 8
Height = 23
Width = 88
FontName = "Tahoma"
FontSize = 8
Caption = "Colored Button"
TabIndex = 8
BackColor = 255,0,0
ZOrderSet = 10
Name = "Command4"
labellabelLabel1Frmsolution1.Pageframe1.Page2|FontName = "Tahoma"
FontSize = 8
Caption = "Opaque Label"
Height = 17
Left = 6
Top = 42
Width = 432
Name = "Label1"
labellabelLabel2Frmsolution1.Pageframe1.Page2�FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "Transparent Label"
Height = 17
Left = 6
Top = 66
Width = 432
Name = "Label2"
labellabelLabel3Frmsolution1.Pageframe1.Page2�AutoSize = .T.
FontName = "Tahoma"
FontSize = 8
BackStyle = 0
Caption = "If you specify a BackColor for a Page, it will only display colored if Themes are disabled."
Height = 15
Left = 6
Top = 6
Width = 421
Name = "Label3"
lArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Tahoma, 0, 8, 5, 13, 11, 21, 2, 0
MHeight = 400
Width = 465
DoCreate = .T.
Caption = "Windows XP Themes Support"
Name = "Frmsolution1"
C_solutions1.Top = 376
C_solutions1.Left = 348
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 373
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 20
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 58
Shape2.Width = 444
Shape2.ZOrderSet = 3
Shape2.Style = 3
Shape2.Name = "Shape2"
Label1.AutoSize = .T.
Label1.Caption = "Visual FoxPro supports XP themes at three different levels; 1) the Application level via SYS(2700) and the _SCREEN.Themes property, 2) at the form level via the Themes property, and 3) at the control level. "
Label1.Height = 41
Label1.Left = 24
Label1.Top = 24
Label1.Width = 384
Label1.TabIndex = 2
Label1.ZOrderSet = 4
Label1.Name = "Label1"
Label4.TabIndex = 1
Label4.ZOrderSet = 5
Label4.Style = 3
Label4.Name = "Label4"
Cmdclose1.Top = 371
Cmdclose1.Left = 385
Cmdclose1.TabIndex = 21
Cmdclose1.ZOrderSet = 6
Cmdclose1.Name = "Cmdclose1"

HelpContextID = 1231677