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

VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentName = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1�Height = 296
Width = 521
DoCreate = .T.
Caption = "Use Mover List Boxes for Selecting Data"
HelpContextID = 224
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 12
C_solutions1.Left = 396
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 12
Behindscenes1.Left = 360
Behindscenes1.TabIndex = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Name = "Shape2"
Label1.Caption = "Use movers for a variety of application needs including table/field selection and sorting.."
Label1.TabIndex = 3
Label1.Name = "Label1"
Label4.TabIndex = 5
Label4.Name = "Label4"
Cmdclose1.Top = 12
Cmdclose1.Left = 432
Cmdclose1.TabIndex = 4
Cmdclose1.Name = "Cmdclose1"
	pageframe	pageframe
Pageframe1Frmsolution1JErasePage = .T.
PageCount = 4
Top = 72
Left = 12
Width = 492
Height = 204
TabIndex = 1
Name = "Pageframe1"
Page1.Caption = "\<TableMover"
Page1.Name = "Page1"
Page2.Caption = "\<FieldMover"
Page2.Name = "Page2"
Page3.Caption = "S\<ortMover"
Page3.Name = "Page3"
Page4.Caption = "Super\<Mover"
Page4.Name = "Page4"
{PROCEDURE Init
THIS.SetAll("FontName","MS Sans Serif")
THIS.SetAll("FontSize",8)
ENDPROC
PROCEDURE Page2.Activate
THISFORM.LockScreen = .T.
THIS._FieldMover1.InitData()
THISFORM.LockScreen = .F.

ENDPROC
PROCEDURE Page3.Activate
IF !EMPTY(ALIAS())
	THISFORM.LockScreen = .T.
	THIS._SortMover1.CurrentAlias = ALIAS()
	THIS._SortMover1.UpdateMover
	THISFORM.LockScreen = .F.
ENDIF	
ENDPROC
PROCEDURE Page4.Init
LOCAL aChoices
DIMENSION aChoices[5,1]
aChoices[1,1] = "AAA"
aChoices[2,1] = "BBB"
aChoices[3,1] = "CCC"
aChoices[4,1] = "DDD"
aChoices[5,1] = "EEE"
THIS._SuperMover1.InitChoices(@aChoices)
ENDPROC
��� kkN�%p���UF(��C�FontName�
MS Sans Serif������C�FontSize�����UTHISSETALL/T���a����C�����T���-��UTHISFORM
LOCKSCREENTHIS_FIELDMOVER1INITDATAQ%�CC�
��J�T���a��T����C��
�����T���-���UTHISFORM
LOCKSCREENTHIS_SORTMOVER1CURRENTALIASUPDATEMOVER������������T���������AAA��T���������BBB��T���������CCC��T���������DDD��T���������EEE����C������UACHOICESTHIS_SUPERMOVER1INITCHOICESInit,��Page2.Activate���Page3.Activate���
Page4.Init���1��2��3��!��A2q1�����A1Rw����p)k_tablemover..\..\..\ffc\_movers.vcx	container_tablemover1Frmsolution1.Pageframe1.Page1�Top = 8
Left = 11
Name = "_tablemover1"
lstLeft.OLEDragMode = 1
lstLeft.OLEDropMode = 1
lstLeft.Name = "lstLeft"
cmdAdd.Name = "cmdAdd"
cmdRemove.Name = "cmdRemove"
lstRight.OLEDragMode = 1
lstRight.OLEDropMode = 1
lstRight.Name = "lstRight"
Label1.Name = "Label1"
Label2.Name = "Label2"
cmdAddAll.Name = "cmdAddAll"
cmdRemoveAll.Name = "cmdRemoveAll"
cboData.Name = "cboData"
lstTables.Name = "lstTables"
Label3.Name = "Label3"
cmdOpen.Name = "cmdOpen"
_fieldmover..\..\..\ffc\_movers.vcx	container_fieldmover1Frmsolution1.Pageframe1.Page2Top = 32
Left = 119
autoinit = .F.
Name = "_fieldmover1"
lstLeft.Name = "lstLeft"
cmdAdd.Name = "cmdAdd"
cmdRemove.Name = "cmdRemove"
lstRight.Name = "lstRight"
Label1.Name = "Label1"
Label2.Name = "Label2"
cmdAddAll.Name = "cmdAddAll"
cmdRemoveAll.Name = "cmdRemoveAll"

_sortmover..\..\..\ffc\_movers.vcx	container_sortmover1Frmsolution1.Pageframe1.Page3RTop = 14
Left = 35
Width = 420
Height = 138
Name = "_sortmover1"
lstLeft.Height = 123
lstLeft.Left = 0
lstLeft.Top = 15
lstLeft.Width = 144
lstLeft.Name = "lstLeft"
cmdAdd.Top = 31
cmdAdd.Left = 171
cmdAdd.Name = "cmdAdd"
cmdRemove.Top = 60
cmdRemove.Left = 171
cmdRemove.Name = "cmdRemove"
lstRight.Height = 123
lstRight.Left = 267
lstRight.Top = 15
lstRight.Width = 141
lstRight.Name = "lstRight"
Label1.Name = "Label1"
Label2.Left = 267
Label2.Top = 0
Label2.Name = "Label2"
Optiongroup1.Option1.Value = 1
Optiongroup1.Option1.Left = 0
Optiongroup1.Option1.Top = 0
Optiongroup1.Option1.Name = "Option1"
Optiongroup1.Option2.Left = 0
Optiongroup1.Option2.Top = 18
Optiongroup1.Option2.Name = "Option2"
Optiongroup1.BorderStyle = 0
Optiongroup1.Left = 166
Optiongroup1.Top = 88
Optiongroup1.Name = "Optiongroup1"
_supermover..\..\..\ffc\_movers.vcx	container_supermover1Frmsolution1.Pageframe1.Page4�Top = 20
Left = 23
Width = 336
Height = 108
usearrays = .F.
Name = "_supermover1"
lstLeft.OLEDragMode = 1
lstLeft.OLEDropMode = 1
lstLeft.Height = 92
lstLeft.Left = 0
lstLeft.Top = 15
lstLeft.Width = 132
lstLeft.Name = "lstLeft"
cmdAdd.Top = 16
cmdAdd.Left = 157
cmdAdd.Name = "cmdAdd"
cmdRemove.Top = 63
cmdRemove.Left = 157
cmdRemove.Name = "cmdRemove"
lstRight.OLEDragMode = 1
lstRight.OLEDropMode = 1
lstRight.Left = 201
lstRight.Top = 15
lstRight.Width = 132
lstRight.Name = "lstRight"
Label1.Name = "Label1"
Label2.Name = "Label2"
cmdAddAll.Top = 38
cmdAddAll.Left = 157
cmdAddAll.Name = "cmdAddAll"
cmdRemoveAll.Top = 85
cmdRemoveAll.Left = 157
cmdRemoveAll.Name = "cmdRemoveAll"

commandbutton
commandbuttonCommand1Frmsolution1.Pageframe1.Page4`Top = 104
Left = 383
Height = 23
Width = 72
Caption = "\<Selections..."
Name = "Command1"
PROCEDURE Click
LOCAL lcStr,i,aSelections
lcStr = ""
DIMENSION aSelections[1]
aSelections=""
THIS.Parent._SuperMover1.GetSelections(@aSelections)
FOR i = 1 TO ALEN(aSelections)
	lcStr = lcStr+CHR(13)+aSelections[m.i]
ENDFOR
MESSAGEBOX("You selected:"+CHR(13)+lcStr)

ENDPROC
��� ����%!F0�U������
T�����
�����
T�������C������������(�C�����T���C�
 C�
������#��C�
You selected:C�
 ��x��ULCSTRIASELECTIONSTHISPARENT_SUPERMOVER1
GETSELECTIONSClick,��1����q��A12)�JArial, 0, 9, 5, 15, 12, 21, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�Height = 296
Width = 521
DoCreate = .T.
Caption = "Use Mover List Boxes for Selecting Data"
HelpContextID = 1231610
lsetffcpath = .T.
Name = "Frmsolution1"
C_solutions1.Top = 12
C_solutions1.Left = 396
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 12
Behindscenes1.Left = 360
Behindscenes1.TabIndex = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Name = "Shape2"
Label1.Caption = "Use movers for a variety of application needs including table/field selection and sorting.."
Label1.TabIndex = 3
Label1.Name = "Label1"
Label4.TabIndex = 5
Label4.Name = "Label4"
Cmdclose1.Top = 12
Cmdclose1.Left = 432
Cmdclose1.TabIndex = 4
Cmdclose1.Name = "Cmdclose1"