Mini Kabibi Habibi

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

�VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
12formformForm1�DataSession = 2
Top = 0
Left = 0
Height = 328
Width = 496
DoCreate = .T.
Caption = "Allow Users to Drag and Drop Controls"
MaxButton = .F.
HelpContextID = 136
Name = "Form1"
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)


ENDPROC
PROCEDURE Activate
THIS.c_solutions1.saveHelp
ENDPROC
PROCEDURE Deactivate
IF TYPE("THIS.c_solutions1") = "O" THEN
	THIS.c_solutions1.restoreHelp
ENDIF
ENDPROC
��� ��<�%�'�U	�%�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�����UTHISSETALL
�����UTHISC_SOLUTIONS1SAVEHELP9%%�C�THIS.c_solutions1b�O��2�
������UTHISC_SOLUTIONS1RESTOREHELPInit,��ActivateG��
Deactivatey��1d	��A�4�2Q�A1Nm�
��)�yoffset
xoffset
	pageframe	pageframepgf1Form1mErasePage = .T.
PageCount = 2
TabStyle = 1
Top = 70
Left = 9
Width = 479
Height = 223
TabIndex = 1
Themes = .F.
Name = "pgf1"
Page1.FontName = "MS Sans Serif"
Page1.FontSize = 8
Page1.Caption = "\<Move an object"
Page1.Name = "pagMove"
Page2.FontName = "MS Sans Serif"
Page2.FontSize = 8
Page2.Caption = "\<Change colors"
Page2.Name = "pagColors"
�PROCEDURE pagMove.DragDrop
LPARAMETERS oSource, nXCoord, nYCoord
oSource.Left = nXCoord - THISFORM.XOffset
oSource.Top = nYCoord - THISFORM.YOffset
ENDPROC
8�� �%����U@�����T��������T��������UOSOURCENXCOORDNYCOORDLEFTTHISFORMXOFFSETTOPYOFFSETpagMove.DragDrop,��1�qq1�)
commandbutton
commandbuttoncmdDragForm1.pgf1.pagMove�AutoSize = .T.
Top = 38
Left = 350
Height = 23
Width = 63
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Move Me"
TabStop = .F.
Name = "cmdDrag"
�PROCEDURE DragDrop
LPARAMETERS oSource, nXCoord, nYCoord
THIS.Parent.DragDrop(oSource, nXCoord, nYCoord)

ENDPROC
PROCEDURE MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nButton = 1 && Left button
	THISFORM.XOffset = nXCoord - THIS.Left
	THISFORM.YOffset = nYCoord - THIS.Top
	THIS.Drag
ENDIF
ENDPROC
PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord

ENDPROC
_�� FF�%��
��U.�������C��������UOSOURCENXCOORDNYCOORDTHISPARENTDRAGDROPc������%�����\�T��������T������	��
���
��UNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMXOFFSETTHISLEFTYOFFSETTOPDRAG������UNBUTTONNSHIFTNXCOORDNYCOORDDragDrop,��	MouseMove���	MouseDownN��1��31qq�A212l�<\�)FshapeshapeshpRedForm1.pgf1.pagColorsbDragMode = 1
Top = 24
Left = 35
Height = 49
Width = 49
BackColor = 255,0,0
Name = "shpRed"
shapeshapeshpGreenForm1.pgf1.pagColorseDragMode = 1
Top = 24
Left = 119
Height = 49
Width = 49
BackColor = 0,255,0
Name = "shpGreen"
shapeshapeshpBlueForm1.pgf1.pagColorsdDragMode = 1
Top = 24
Left = 203
Height = 49
Width = 49
BackColor = 0,0,255
Name = "shpBlue"
shapeshape	shpTargetForm1.pgf1.pagColorsSTop = 96
Left = 339
Height = 96
Width = 96
Curvature = 99
Name = "shpTarget"
�PROCEDURE DblClick
This.BackColor = RGB(255,255,255)
ENDPROC
PROCEDURE DragDrop
LPARAMETERS oSource, nXCoord, nYCoord
THIS.BackColor = oSource.BackColor
ENDPROC
T�� ;;��%����UT���C�������^��UTHIS	BACKCOLOR%�����T�������UOSOURCENXCOORDNYCOORDTHIS	BACKCOLORDblClick,��DragDrop]��1�2�115T�);behindscenes..\solution.vcx
commandbutton
Behindscenes1Form1<Top = 300
Left = 10
TabIndex = 2
Name = "Behindscenes1"
c_solutions..\solution.vcxcustomC_solutions1Form1-Top = 234
Left = 76
Name = "C_solutions1"
shapeshapeShape2Form1aTop = 13
Left = 9
Height = 48
Width = 479
BackStyle = 0
SpecialEffect = 0
Name = "Shape2"
labellabelLabel4Form1FontName = "MS Sans Serif"
FontSize = 8
WordWrap = .T.
Caption = ("To move an object, click Move Me and drag to a new position." + CHR(13) + "To change colors, drag a square onto the circle.")
Height = 30
Left = 17
Top = 24
Width = 457
TabIndex = 0
Name = "Label4"
labellabelLabel5Form1�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = " Instructions "
Height = 15
Left = 17
Top = 7
Width = 62
TabIndex = 0
Name = "Label5"
cmdclose..\solution.vcx
commandbutton	Cmdclose1Form19Top = 300
Left = 415
TabIndex = 3
Name = "Cmdclose1"
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 = 328
Width = 496
DoCreate = .T.
Caption = "Allow Users to Drag and Drop Controls"
MaxButton = .F.
HelpContextID = 1231547
Name = "Form1"