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/mousefx.sct

/�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1Height = 344
Width = 493
DoCreate = .T.
Caption = 'Create "Coolbar" Control Effects'
HelpContextID = 223
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 288
C_solutions1.Left = 120
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 312
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 7
Behindscenes1.ZOrderSet = 5
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 48
Shape2.Width = 468
Shape2.ZOrderSet = 6
Shape2.Name = "Shape2"
Label1.Caption = "Simulate the Coolbar highlighting effects directly in your forms. Move mouse directly over control to have it automatically highlighted."
Label1.Height = 30
Label1.Left = 24
Label1.Top = 24
Label1.Width = 420
Label1.TabIndex = 9
Label1.ZOrderSet = 7
Label1.Name = "Label1"
Label4.Left = 17
Label4.Top = 6
Label4.TabIndex = 10
Label4.ZOrderSet = 8
Label4.Name = "Label4"
Cmdclose1.Top = 312
Cmdclose1.Left = 408
Cmdclose1.TabIndex = 8
Cmdclose1.ZOrderSet = 9
Cmdclose1.Name = "Cmdclose1"
labellabelLabel5Frmsolution1%AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Alignment = 2
BackStyle = 0
Caption = ("Two Cool Invisible Buttons"+CHR(13)+CHR(13)+CHR(13)+CHR(13)+" overlaying Images")
Height = 67
Left = 340
Top = 72
Width = 127
TabIndex = 6
ZOrderSet = 0
Name = "Label5"
imageimageImage4Frmsolution1�Picture = ..\menus\white.bmp
Stretch = 2
BackStyle = 0
Height = 29
Left = 408
Top = 89
Width = 26
ZOrderSet = 1
Name = "Image4"
imageimageImage3Frmsolution1�Picture = ..\menus\blue.bmp
Stretch = 2
BackStyle = 0
Height = 29
Left = 372
Top = 89
Width = 28
ZOrderSet = 2
Name = "Image3"
	pageframe	pageframe
Pageframe1Frmsolution1�ErasePage = .T.
PageCount = 2
Top = 168
Left = 204
Width = 276
Height = 132
TabIndex = 2
ZOrderSet = 3
Themes = .F.
Name = "Pageframe1"
Page1.Caption = "Page1"
Page1.Name = "Page1"
Page2.Caption = "Page2"
Page2.Name = "Page2"
xPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.cusMouseOverFX.HighlightMe(THIS)
ENDPROC
'�� ��%����U*��������C������UNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCUSMOUSEOVERFXHIGHLIGHTMETHIS	MouseMove,��11A1m)	container	container
Container1Frmsolution1.Pageframe1.Page2TTop = 8
Left = 59
Width = 156
Height = 84
BorderWidth = 0
Name = "Container1"
xPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.cusMouseOverFX.HighlightMe(THIS)
ENDPROC
'�� ��%����U*��������C������UNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCUSMOUSEOVERFXHIGHLIGHTMETHIS	MouseMove,��11A1m)editboxeditboxEdit1(Frmsolution1.Pageframe1.Page2.Container1?Height = 57
Left = 12
Top = 12
Width = 123
Name = "Edit1"
xPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.cusMouseOverFX.HighlightMe(THIS)
ENDPROC
'�� ��%����U*��������C������UNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCUSMOUSEOVERFXHIGHLIGHTMETHIS	MouseMove,��11A1m)
commandbutton
commandbuttonCommand1Frmsolution1�Top = 89
Left = 372
Height = 31
Width = 29
Caption = "Command1"
Style = 1
TabIndex = 4
TabStop = .F.
ZOrderSet = 10
Name = "Command1"
xPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.cusMouseOverFX.HighlightMe(THIS)
ENDPROC
'�� ��%����U*��������C������UNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCUSMOUSEOVERFXHIGHLIGHTMETHIS	MouseMove,��11A1m)
commandbutton
commandbuttonCommand2Frmsolution1�Top = 89
Left = 408
Height = 31
Width = 28
Caption = "Command1"
Style = 1
TabIndex = 5
TabStop = .F.
ZOrderSet = 11
Name = "Command2"
xPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.cusMouseOverFX.HighlightMe(THIS)
ENDPROC
'�� ��%����U*��������C������UNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCUSMOUSEOVERFXHIGHLIGHTMETHIS	MouseMove,��11A1m)_mouseoverfx..\..\..\ffc\_ui.vcxcustomcusMouseOverFXFrmsolution1ITop = 288
Left = 156
Height = 17
Width = 24
Name = "cusMouseOverFX"
shapeshapeShape1Frmsolution1�Top = 240
Left = 84
Height = 39
Width = 39
BackStyle = 1
BorderWidth = 1
BackColor = 128,255,0
BorderColor = 0,0,0
ZOrderSet = 13
Name = "Shape1"
xPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.cusMouseOverFX.HighlightMe(THIS)
ENDPROC
'�� ��%����U*��������C������UNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCUSMOUSEOVERFXHIGHLIGHTMETHIS	MouseMove,��11A1m)shapeshapeShape3Frmsolution1�Top = 240
Left = 132
Height = 39
Width = 39
BackStyle = 1
BorderWidth = 0
BackColor = 255,0,0
ZOrderSet = 14
Name = "Shape3"
commandgroupcommandgroup
Commandgroup1Frmsolution1ZAutoSize = .T.
ButtonCount = 2
BorderStyle = 0
Value = 1
Height = 69
Left = 12
SpecialEffect = 1
Top = 72
Width = 110
TabIndex = 1
ZOrderSet = 15
Name = "Commandgroup1"
Command1.Top = 5
Command1.Left = 5
Command1.Height = 27
Command1.Width = 100
Command1.FontName = "MS Sans Serif"
Command1.FontSize = 8
Command1.Caption = "A \<Cool control"
Command1.Name = "Command1"
Command2.Top = 41
Command2.Left = 5
Command2.Height = 23
Command2.Width = 100
Command2.FontName = "MS Sans Serif"
Command2.FontSize = 8
Command2.Caption = "\<Not a Cool control"
Command2.Name = "Command2"
�PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.cusMouseOverFX.HighlightMe(THIS)
ENDPROC
PROCEDURE Command1.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.cusMouseOverFX.HighlightMe(THIS)
ENDPROC
�� ���%(eW�U*��������C������UNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCUSMOUSEOVERFXHIGHLIGHTMETHIS*��������C������UNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCUSMOUSEOVERFXHIGHLIGHTMETHIS	MouseMove,��Command1.MouseMove���11A21A1m��)�labellabelLabel2Frmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Alignment = 2
Caption = "This label and the commandgroup to its left are both Cool"
Height = 28
Left = 132
Top = 84
Width = 162
TabIndex = 3
ZOrderSet = 16
Name = "Label2"
xPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.cusMouseOverFX.HighlightMe(THIS)
ENDPROC
'�� ��%����U*��������C������UNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCUSMOUSEOVERFXHIGHLIGHTMETHIS	MouseMove,��11A1m)labellabelLabel3Frmsolution1qCaption = "Label2"
Height = 1
Left = 57
Top = 56
Width = 73
TabIndex = 11
ZOrderSet = 17
Name = "Label3"
labellabelLabel6Frmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Shapes"
Height = 15
Left = 24
Top = 252
Width = 38
TabIndex = 12
ZOrderSet = 18
Name = "Label6"
labellabelLabel7Frmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Cool"
Height = 15
Left = 93
Top = 168
Width = 23
TabIndex = 14
ZOrderSet = 19
Name = "Label7"
imageimageImage1Frmsolution1yPicture = ..\menus\red.bmp
Stretch = 2
Height = 40
Left = 84
Top = 192
Width = 40
ZOrderSet = 20
Name = "Image1"
xPROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.cusMouseOverFX.HighlightMe(THIS)
ENDPROC
'�� ��%����U*��������C������UNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCUSMOUSEOVERFXHIGHLIGHTMETHIS	MouseMove,��11A1m)imageimageImage2Frmsolution1|Picture = ..\menus\green.bmp
Stretch = 2
Height = 40
Left = 132
Top = 192
Width = 40
ZOrderSet = 21
Name = "Image2"
labellabelLabel8Frmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "UnCool"
Height = 15
Left = 132
Top = 168
Width = 37
TabIndex = 15
ZOrderSet = 22
Name = "Label8"
labellabelLabel9Frmsolution1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Images"
Height = 15
Left = 24
Top = 204
Width = 36
TabIndex = 13
ZOrderSet = 23
Name = "Label9"
JArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Height = 344
Width = 493
DoCreate = .T.
Caption = 'Create "Coolbar" Control Effects'
HelpContextID = 1231609
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 288
C_solutions1.Left = 120
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 312
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 7
Behindscenes1.ZOrderSet = 5
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 48
Shape2.Width = 468
Shape2.ZOrderSet = 6
Shape2.Name = "Shape2"
Label1.Caption = "Simulate the Coolbar highlighting effects directly in your forms. Move mouse directly over control to have it automatically highlighted."
Label1.Height = 30
Label1.Left = 24
Label1.Top = 24
Label1.Width = 420
Label1.TabIndex = 9
Label1.ZOrderSet = 7
Label1.Name = "Label1"
Label4.Left = 17
Label4.Top = 6
Label4.TabIndex = 10
Label4.ZOrderSet = 8
Label4.Name = "Label4"
Cmdclose1.Top = 312
Cmdclose1.Left = 408
Cmdclose1.TabIndex = 8
Cmdclose1.ZOrderSet = 9
Cmdclose1.Name = "Cmdclose1"