Programming Languages Suite

home *** CD-ROM | disk | FTP | other *** search

/ Programming Languages Suite / ProgLangD.iso / FOXP-WIN.300 / DISK7 / VFP7.CAB / CONTROLS.APP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1995-01-11 | 1.1 MB | 29,770 lines

PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QU00NVYGJ 493772965 17 18 19 20 31 WINDOWS _QUE0R0UDD 495937268 23 24 25 26 27 WINDOWS _QSL0U0FSW 495937268 32 33 34 35 42 769 WINDOWS _QUM0J99BF 495221026 69 70 71 72 73 WINDOWS _QUM0J99DM 495221026 77 78 79 80 81 WINDOWS _QSM0JLVTA 495221026 86 87 88 89 90 WINDOWS _QSM0Q827C 495221645 96 97 98 99 100 WINDOWS _QSL0U0FVY 495221645 106 107 108 109 110 163 783 WINDOWS _QSL0U0GEA 495221645 249 250 251 252 253 262 827 WINDOWS _QTN0J5UN6 495221646 273 274 275 276 277 285 836 WINDOWS _QTW0UMLLN 495221749 324 325 326 327 328 333 857 WINDOWS _QUF0GCRVB 495221749 350 351 352 353 354 359 868 WINDOWS _QUF0GGO3X 495221749 376 377 378 379 380 383 381 COMMENT FONTINFO 387 VERSION = 0.028 dataenvironment dataenvironment Datanavigation ILeft = 49 Top = 84 Width = 589 Height = 292 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation. qLeft = 20 Top = 10 Width = 106 Height = 126 Alias = "objsamp" CursorSource = objsamp.dbf Name = "Cursor1" ScaleMode = 3 ShowTips = .T. Top = 91 Left = 20 Height = 299 Width = 601 AutoCenter = .T. BackColor = 192,192,192 Caption = "Using FoxPro Controls" WindowState = 0 DefButton = DefButton Name = "main" uPROCEDURE Activate #define HOME_DIR_LOC "\samples\controls" set default to (sys(2004) + HOME_DIR_LOC) SELECT OBJSAMP ENDPROC PROCEDURE Destroy CLEAR EVENTS CLOSE DATABASE ENDPROC PROCEDURE Load #define DATA_LOC "samples\data\testdata" #define WHERE_LOC "Where is testdata?" OPEN DATABASE LOCFILE((SYS(2004) + DATA_LOC) , ; "DBC", WHERE_LOC) ENDPROC \samples\controls OBJSAMP samples\data\testdata Where is testdata? Activate, Destroyg Loadx c:\vfp\samples\controls\ 54875789.tmp c:\vfp\samples\controls\54875789.tmp label label Label1 main. xBackColor = 192,192,192 Caption = "Show Examples For:" Height = 19 Left = 28 Top = 3 Width = 142 Name = "Label1" label label Label2 main. AutoSize = .T. BackColor = 192,192,192 Caption = "Examples:" Height = 16 Left = 256 Top = 4 Width = 66 Name = "Label2" label label lblDblClick main. BackColor = 192,192,192 BackStyle = 1 Caption = "Double-click the Details box to resize it" Height = 15 Left = 108 Top = 279 Visible = .F. Width = 253 Name = "lblDblClick" label label lblDetails main. AutoSize = .T. BackColor = 192,192,192 Caption = "Description of the Selected Example:" Height = 16 Left = 28 Top = 176 Width = 235 Name = "lblDetails" optiongroup optiongroup opgAreas main. ButtonCount = 7 BackColor = 192,192,192 BorderStyle = 1 Caption = "Optiongroup1" Value = 7 Height = 150 Left = 22 SpecialEffect = 0 Top = 24 Width = 217 Name = "opgAreas" Option1.BackColor = 192,192,192 Option1.Caption = "\<Objects and Events" Option1.Value = 0 Option1.Height = 18 Option1.Left = 13 Option1.SpecialEffect = 0 Option1.Top = 25 Option1.Width = 145 Option1.Name = "optObjects" Option2.BackColor = 192,192,192 Option2.Caption = "\<List and Combo Boxes" Option2.Value = 0 Option2.Height = 18 Option2.Left = 13 Option2.SpecialEffect = 0 Option2.Top = 45 Option2.Width = 168 Option2.Name = "optList" Option3.BackColor = 192,192,192 Option3.Caption = "\<Timer" Option3.Value = 0 Option3.Height = 18 Option3.Left = 13 Option3.SpecialEffect = 0 Option3.Top = 65 Option3.Width = 63 Option3.Name = "optTimer" Option4.BackColor = 192,192,192 Option4.Caption = "\<Grid" Option4.Value = 0 Option4.Height = 18 Option4.Left = 13 Option4.SpecialEffect = 0 Option4.Top = 85 Option4.Width = 52 Option4.Name = "optGrid" Option5.BackColor = 192,192,192 Option5.Caption = "\<Page Frame and Pages" Option5.Value = 0 Option5.Height = 18 Option5.Left = 13 Option5.SpecialEffect = 0 Option5.Top = 105 Option5.Width = 175 Option5.Name = "optPageFrame" Option6.BackColor = 192,192,192 Option6.Caption = "\<Form Graphics" Option6.Value = 0 Option6.Height = 18 Option6.Left = 13 Option6.SpecialEffect = 0 Option6.Top = 125 Option6.Width = 118 Option6.Name = "optFormGraphics" Option7.AutoSize = .T. Option7.BackColor = 192,192,192 Option7.Caption = "\<All Controls" Option7.Value = 1 Option7.Height = 24 Option7.Left = 13 Option7.Top = 2 Option7.Width = 99 Option7.Name = "optAll" 5PROCEDURE optObjects.Click SELECT objsamp SET FILTER TO area = "Objects" GO TOP THISFORM.lstOptions.Requery THISFORM.REFRESH ENDPROC PROCEDURE optList.Click SELECT objsamp SET FILTER TO area = "List" GO TOP *THISFORM.lstOptions.Requery THISFORM.lstOptions.RowSource = THISFORM.lstOptions.RowSource ThisForm.REFRESH ENDPROC PROCEDURE optTimer.Click SELECT objsamp SET FILTER TO area = "Timer" GO TOP *THISFORM.lstOptions.Requery THISFORM.lstOptions.RowSource = THISFORM.lstOptions.RowSource ThisForm.REFRESH ENDPROC PROCEDURE optGrid.Click SELECT objsamp SET FILTER TO area = "Grid" GO TOP *THISFORM.lstOptions.Requery THISFORM.lstOptions.RowSource = THISFORM.lstOptions.RowSource ThisForm.REFRESH ENDPROC PROCEDURE optPageFrame.Click SELECT objsamp SET FILTER TO area = "Frame" GO TOP *THISFORM.lstOptions.Requery THISFORM.lstOptions.RowSource = THISFORM.lstOptions.RowSource ThisForm.REFRESH ENDPROC PROCEDURE optFormGraphics.Click SELECT objsamp SET FILTER TO area = "Graphics" GO TOP *THISFORM.lstOptions.Requery THISFORM.lstOptions.RowSource = THISFORM.lstOptions.RowSource ThisForm.REFRESH ENDPROC PROCEDURE optAll.Click SELECT objsamp SET FILTER TO GO TOP *THISFORM.lstOptions.Requery THISFORM.lstOptions.RowSource = THISFORM.lstOptions.RowSource ThisForm.REFRESH ENDPROC Objects OBJSAMP THISFORM LSTOPTIONS REQUERY REFRESHE OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESHF Timer OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESHE OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESHF Frame OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESHI Graphics OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESH8 OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESH optObjects.Click, optList.Click optTimer.Click% optGrid.Click optPageFrame.Click* optFormGraphics.Click optAll.Click3 c:\vfp\samples\controls\ 54875789.tmp c:\vfp\samples\controls\54875789.tmp listbox listbox lstOptions main. RowSourceType = 6 RowSource = "objsamp.feature" ControlSource = "objsamp.feature" Height = 150 Left = 252 Top = 24 Width = 330 SelectedItemForeColor = 255,255,255 SelectedItemBackColor = 0,0,160 BorderColor = 0,0,0 ColorSource = 0 Name = "lstOptions" 8PROCEDURE InteractiveChange ThisForm.REFRESH ENDPROC THISFORM REFRESH InteractiveChange, c:\vfp\samples\controls\ 54875789.tmp c:\vfp\samples\controls\54875789.tmp editbox editbox edtDetails main. BackColor = 192,192,192 BorderStyle = 1 Enabled = .T. ForeColor = 0,0,0 Height = 83 Left = 22 ScrollBars = 2 SelLength = 0 SelStart = 0 Top = 192 Width = 445 ColorSource = 3 Value = ControlSource = "objsamp.described" Name = "edtDetails" ,PROCEDURE DblClick #define EXPAND_TOP_LOC 1 #define EXPAND_HT_LOC 275 #define NORMAL_TOP_LOC 193 #define NORMAL_HT_LOC 83 Thisform.LockScreen = .T. IF THIS.Top = NORMAL_TOP_LOC THIS.Height = EXPAND_HT_LOC THIS.Top = EXPAND_TOP_LOC ThisForm.lstOptions.Visible = .F. THIS.Height = NORMAL_HT_LOC THIS.Top = NORMAL_TOP_LOC ThisForm.lstOptions.Visible = .T. ENDIF ThisForm.LockScreen = .F. ENDPROC PROCEDURE GotFocus ThisForm.lblDblClick.Visible = .T. ENDPROC PROCEDURE LostFocus Thisform.lblDblClick.Visible = .F. ENDPROC THISFORM LOCKSCREEN HEIGHT LSTOPTIONS VISIBLE THISFORM LBLDBLCLICK VISIBLE THISFORM LBLDBLCLICK VISIBLE DblClick, GotFocus LostFocusH c:\vfp\samples\controls\ 54875789.tmp c:\vfp\samples\controls\54875789.tmp commandbutton commandbutton cmdSee main. Top = 192 Left = 480 Height = 26 Width = 94 Caption = "\<See Example" ToolTipText = "Modify the Form or Program" Name = "cmdSee" PROCEDURE Click cFile = ALLTRIM(path) + "\" + ALLTRIM(file) IF form && form is a logical field in objsamp.dbf MODIFY FORM (cFile) MODIFY COMMAND (cFile) ENDIF ENDPROC CFILE Click, c:\vfp\samples\controls\ 54875789.tmp c:\vfp\samples\controls\54875789.tmp commandbutton commandbutton cmdRun main. Top = 220 Left = 480 Height = 26 Width = 94 Caption = "\<Run Example" ToolTipText = "Run the Form or Program" Name = "cmdRun" PROCEDURE Click THISFORM.HIDE SET DEFAULT TO (path) IF form && form is a logical field in objsamp.dbf DO FORM (file) DO (File) ENDIF ENDPROC THISFORM Click, c:\vfp\samples\controls\ 54875789.tmp c:\vfp\samples\controls\54875789.tmp cmdok buttons.vcx commandbutton Cmdok1 main. RELEASE THISFORM, default button qTop = 248 Left = 480 Height = 26 Width = 94 Default = .F. ToolTipText = "Close this Form" Name = "Cmdok1" "Arial, 1, 10, 6, 16, 13, 15, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation ILeft = 49 Top = 84 Width = 589 Height = 292 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation qLeft = 20 Top = 10 Width = 106 Height = 126 Alias = "objsamp" CursorSource = objsamp.dbf Name = "Cursor1" ScaleMode = 3 ShowTips = .T. Top = 24 Left = 68 Height = 299 Width = 601 AutoCenter = .T. BackColor = 192,192,192 Caption = "Using FoxPro Controls" WindowState = 0 DefButton = DefButton Name = "main" PROCEDURE Activate #define HOME_DIR_LOC "\samples\controls" set default to (sys(2004) + HOME_DIR_LOC) SELECT OBJSAMP ENDPROC ENDPROC ENDPROC PROCEDURE Destroy CLEAR EVENTS CLOSE DATABASE ENDPROC ENDPROC ENDPROC PROCEDURE Load #define DATA_LOC "samples\data\testdata" #define WHERE_LOC "Where is testdata?" OPEN DATABASE LOCFILE((SYS(2004) + DATA_LOC) , ; "DBC", WHERE_LOC) ENDPROC ENDPROC ENDPROC \samples\controls OBJSAMP samples\data\testdata Where is testdata? Activate, Destroyg Loadx c:\vfp\samples\controls\ main.scx c:\vfp\samples\controls\main.scx label label Label1 xBackColor = 192,192,192 Caption = "Show Examples For:" Height = 19 Left = 28 Top = 3 Width = 142 Name = "Label1" label label Label2 AutoSize = .T. BackColor = 192,192,192 Caption = "Examples:" Height = 16 Left = 256 Top = 4 Width = 66 Name = "Label2" label label lblDblClick BackColor = 192,192,192 BackStyle = 1 Caption = "Double-click the Details box to resize it" Height = 15 Left = 108 Top = 279 Visible = .F. Width = 253 Name = "lblDblClick" label label lblDetails AutoSize = .T. BackColor = 192,192,192 Caption = "Description of the Selected Example:" Height = 16 Left = 28 Top = 176 Width = 235 Name = "lblDetails" optiongroup optiongroup opgAreas ButtonCount = 7 BackColor = 192,192,192 BorderStyle = 1 Caption = "Optiongroup1" Value = 7 Height = 150 Left = 22 SpecialEffect = 0 Top = 24 Width = 217 Name = "opgAreas" Option1.BackColor = 192,192,192 Option1.Caption = "\<Objects and Events" Option1.Value = 0 Option1.Height = 18 Option1.Left = 13 Option1.SpecialEffect = 0 Option1.Top = 25 Option1.Width = 145 Option1.Name = "optObjects" Option2.BackColor = 192,192,192 Option2.Caption = "\<List and Combo Boxes" Option2.Value = 0 Option2.Height = 18 Option2.Left = 13 Option2.SpecialEffect = 0 Option2.Top = 45 Option2.Width = 168 Option2.Name = "optList" Option3.BackColor = 192,192,192 Option3.Caption = "\<Timer" Option3.Value = 0 Option3.Height = 18 Option3.Left = 13 Option3.SpecialEffect = 0 Option3.Top = 65 Option3.Width = 63 Option3.Name = "optTimer" Option4.BackColor = 192,192,192 Option4.Caption = "\<Grid" Option4.Value = 0 Option4.Height = 18 Option4.Left = 13 Option4.SpecialEffect = 0 Option4.Top = 85 Option4.Width = 52 Option4.Name = "optGrid" Option5.BackColor = 192,192,192 Option5.Caption = "\<Page Frame and Pages" Option5.Value = 0 Option5.Height = 18 Option5.Left = 13 Option5.SpecialEffect = 0 Option5.Top = 105 Option5.Width = 175 Option5.Name = "optPageFrame" Option6.BackColor = 192,192,192 Option6.Caption = "\<Form Graphics" Option6.Value = 0 Option6.Height = 18 Option6.Left = 13 Option6.SpecialEffect = 0 Option6.Top = 125 Option6.Width = 118 Option6.Name = "optFormGraphics" Option7.AutoSize = .T. Option7.BackColor = 192,192,192 Option7.Caption = "\<All Controls" Option7.Value = 1 Option7.Height = 24 Option7.Left = 13 Option7.Top = 2 Option7.Width = 99 Option7.Name = "optAll" PROCEDURE optObjects.Click SELECT objsamp SET FILTER TO area = "Objects" GO TOP THISFORM.lstOptions.Requery THISFORM.REFRESH ENDPROC ENDPROC ENDPROC PROCEDURE optList.Click SELECT objsamp SET FILTER TO area = "List" GO TOP *THISFORM.lstOptions.Requery THISFORM.lstOptions.RowSource = THISFORM.lstOptions.RowSource ThisForm.REFRESH ENDPROC ENDPROC ENDPROC PROCEDURE optTimer.Click SELECT objsamp SET FILTER TO area = "Timer" GO TOP *THISFORM.lstOptions.Requery THISFORM.lstOptions.RowSource = THISFORM.lstOptions.RowSource ThisForm.REFRESH ENDPROC ENDPROC ENDPROC PROCEDURE optGrid.Click SELECT objsamp SET FILTER TO area = "Grid" GO TOP *THISFORM.lstOptions.Requery THISFORM.lstOptions.RowSource = THISFORM.lstOptions.RowSource ThisForm.REFRESH ENDPROC ENDPROC ENDPROC PROCEDURE optPageFrame.Click SELECT objsamp SET FILTER TO area = "Frame" GO TOP *THISFORM.lstOptions.Requery THISFORM.lstOptions.RowSource = THISFORM.lstOptions.RowSource ThisForm.REFRESH ENDPROC ENDPROC ENDPROC PROCEDURE optFormGraphics.Click SELECT objsamp SET FILTER TO area = "Graphics" GO TOP *THISFORM.lstOptions.Requery THISFORM.lstOptions.RowSource = THISFORM.lstOptions.RowSource ThisForm.REFRESH ENDPROC ENDPROC ENDPROC PROCEDURE optAll.Click SELECT objsamp SET FILTER TO GO TOP *THISFORM.lstOptions.Requery THISFORM.lstOptions.RowSource = THISFORM.lstOptions.RowSource ThisForm.REFRESH ENDPROC ENDPROC ENDPROC Objects OBJSAMP THISFORM LSTOPTIONS REQUERY REFRESHE OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESHF Timer OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESHE OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESHF Frame OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESHI Graphics OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESH8 OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESH optObjects.Click, optList.Click optTimer.Click% optGrid.Click optPageFrame.Click* optFormGraphics.Click optAll.Click3 c:\vfp\samples\controls\ main.scx c:\vfp\samples\controls\main.scx listbox listbox lstOptions RowSourceType = 6 RowSource = "objsamp.feature" ControlSource = "objsamp.feature" Height = 150 Left = 252 Top = 24 Width = 330 SelectedItemForeColor = 255,255,255 SelectedItemBackColor = 0,0,160 BorderColor = 0,0,0 ColorSource = 0 Name = "lstOptions" JPROCEDURE InteractiveChange ThisForm.REFRESH ENDPROC ENDPROC ENDPROC THISFORM REFRESH InteractiveChange, c:\vfp\samples\controls\ main.scx c:\vfp\samples\controls\main.scx editbox editbox edtDetails BackColor = 192,192,192 BorderStyle = 1 Value = ControlSource = "objsamp.described" Enabled = .T. ForeColor = 0,0,0 Height = 83 Left = 22 ScrollBars = 2 SelLength = 0 SelStart = 0 Top = 192 Width = 445 ColorSource = 3 Name = "edtDetails" bPROCEDURE DblClick #define EXPAND_TOP_LOC 1 #define EXPAND_HT_LOC 275 #define NORMAL_TOP_LOC 193 #define NORMAL_HT_LOC 83 Thisform.LockScreen = .T. IF THIS.Top = NORMAL_TOP_LOC THIS.Height = EXPAND_HT_LOC THIS.Top = EXPAND_TOP_LOC ThisForm.lstOptions.Visible = .F. THIS.Height = NORMAL_HT_LOC THIS.Top = NORMAL_TOP_LOC ThisForm.lstOptions.Visible = .T. ENDIF ThisForm.LockScreen = .F. ENDPROC ENDPROC ENDPROC PROCEDURE GotFocus ThisForm.lblDblClick.Visible = .T. ENDPROC ENDPROC ENDPROC PROCEDURE LostFocus Thisform.lblDblClick.Visible = .F. ENDPROC ENDPROC ENDPROC THISFORM LOCKSCREEN HEIGHT LSTOPTIONS VISIBLE THISFORM LBLDBLCLICK VISIBLE THISFORM LBLDBLCLICK VISIBLE DblClick, GotFocus LostFocusH c:\vfp\samples\controls\ main.scx c:\vfp\samples\controls\main.scx commandbutton commandbutton cmdSee Top = 192 Left = 480 Height = 26 Width = 94 Caption = "\<See Example" ToolTipText = "Modify the Form or Program" Name = "cmdSee" PROCEDURE Click cFile = ALLTRIM(path) + "\" + ALLTRIM(file) IF form && form is a logical field in objsamp.dbf MODIFY FORM (cFile) MODIFY COMMAND (cFile) ENDIF ENDPROC ENDPROC ENDPROC CFILE Click, c:\vfp\samples\controls\ main.scx c:\vfp\samples\controls\main.scx commandbutton commandbutton cmdRun Top = 220 Left = 480 Height = 26 Width = 94 Caption = "\<Run Example" ToolTipText = "Run the Form or Program" Name = "cmdRun" PROCEDURE Click THISFORM.HIDE SET DEFAULT TO (path) IF form && form is a logical field in objsamp.dbf DO FORM (file) DO (File) ENDIF ENDPROC ENDPROC ENDPROC THISFORM Click, c:\vfp\samples\controls\ main.scx c:\vfp\samples\controls\main.scx cmdok buttons.vcx commandbutton Cmdok1 qTop = 248 Left = 480 Height = 26 Width = 94 Default = .F. ToolTipText = "Close this Form" Name = "Cmdok1" RELEASE THISFORM, default button "Arial, 1, 10, 6, 16, 13, 15, 3, 0 \samples\controls OBJSAMP samples\data\testdata Where is testdata? Activate, Destroyg Loadx c:\vfp\samples\controls\ main.scx c:\vfp\samples\controls\main.scx Objects OBJSAMP THISFORM LSTOPTIONS REQUERY REFRESHE OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESHF Timer OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESHE OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESHF Frame OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESHI Graphics OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESH8 OBJSAMP THISFORM LSTOPTIONS ROWSOURCE REFRESH optObjects.Click, optList.Click optTimer.Click% optGrid.Click optPageFrame.Click* optFormGraphics.Click optAll.Click3 c:\vfp\samples\controls\ main.scx c:\vfp\samples\controls\main.scx THISFORM REFRESH InteractiveChange, c:\vfp\samples\controls\ main.scx c:\vfp\samples\controls\main.scx THISFORM LOCKSCREEN HEIGHT LSTOPTIONS VISIBLE THISFORM LBLDBLCLICK VISIBLE THISFORM LBLDBLCLICK VISIBLE DblClick, GotFocus LostFocusH c:\vfp\samples\controls\ main.scx c:\vfp\samples\controls\main.scx CFILE Click, c:\vfp\samples\controls\ main.scx c:\vfp\samples\controls\main.scx THISFORM Click, c:\vfp\samples\controls\ main.scx c:\vfp\samples\controls\main.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 0 8 WINDOWS _QTU0OX7J6 493773858 9 10 11 12 14 WINDOWS _QV40QWFQK 495222188 15 16 17 18 19 WINDOWS _QTU0NFY5J 495222188 22 23 24 25 29 589 WINDOWS _QTH0QYAC3 495222188 37 38 39 40 41 44 599 WINDOWS _QTF18V4P3 495222188 49 50 51 52 53 WINDOWS _QTF1AWYR8 495222188 60 61 62 63 64 78 608 WINDOWS _QTF1AWYS2 495222188 82 83 84 85 86 102 617 WINDOWS _QTF1AWYU0 495222188 112 113 114 115 116 WINDOWS _QTF1AWYW0 495222188 119 120 121 122 123 138 633 WINDOWS _QTF1AWYWE 495222188 148 149 150 151 152 WINDOWS _QTF1AWYYD 495222188 155 156 157 158 159 174 649 WINDOWS _QTF1AWZ17 495222188 179 180 181 182 183 197 658 WINDOWS _QTF1AWZ33 495222188 201 202 203 204 205 219 667 WINDOWS _QTF1AWZ4Q 495222188 223 224 225 226 227 WINDOWS _QTF1AWZ53 495222188 230 231 232 233 234 WINDOWS _QTF1AWZ5G 495222188 237 238 239 240 241 WINDOWS _QTF1AWYYR 495222188 244 245 246 247 248 WINDOWS _QTF1AWZ0T 492404217 251 252 253 254 255 270 675 WINDOWS _QTH0QF615 491941425 281 282 283 284 285 295 691 WINDOWS _QTH0QF61Z 491941425 298 299 300 301 302 312 698 WINDOWS _QTH0QF62T 491941425 315 316 317 318 319 329 705 WINDOWS _QTH0Q4V7O 491941425 332 333 334 335 336 346 712 WINDOWS _QTH0Q2I5R 491941425 349 350 351 352 353 363 719 WINDOWS _QTH0QEWHV 491941425 366 367 368 369 370 WINDOWS _QTH0QEWH1 491941425 373 374 375 376 377 WINDOWS _QTH0QEWIP 491941425 380 381 382 383 384 WINDOWS _QTF1AWZ5T 491941425 387 388 389 390 391 WINDOWS _QTH0QF66P 491941425 394 395 396 397 398 WINDOWS _QTH0QF66Z 492404217 401 402 403 404 405 WINDOWS _QTU0VHTEP 495222189 408 409 410 411 412 416 726 WINDOWS _QUD0TMTSD 491941425 421 422 423 424 425 WINDOWS _QTH0QRT5T 495222189 429 430 431 432 433 436 734 COMMENT FONTINFO 0 438 VERSION = 0.028 dataenvironment dataenvironment Datanavigation JLeft = 37 Top = 118 Width = 615 Height = 326 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation Left = 20 Top = 10 Width = 98 Height = 108 Alias = "customer" Database = ..\..\data\testdata.dbc CursorSource = "customer" Name = "Cursor1" frmgridproperties ScaleMode = 3 FontName = "MS Sans Serif" Top = 139 Left = 189 Height = 323 Width = 422 AutoCenter = .T. BackColor = 192,192,192 Caption = "Modify the Grid's Properties" DataSession = 2 WindowState = 0 Name = "frmgridproperties" PROCEDURE Load public array field_names(1) public header_val_temp public header_val public combo_val public num_records num_records = afields(table_used) dime field_names ( num_records ) for i = 1 to num_records field_names(i) = table_used(i,1) endfor ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC grdModifyMe frmgridproperties ColumnCount = -1 FontName = "MS Sans Serif" FontSize = 8 BackColor = 255,255,255 Height = 260 Left = 12 RecordSource = "customer" Top = 12 Width = 193 Name = "grdModifyMe" %PROCEDURE Init thisform.grdModifyMe.columncount = num_records for y = 1 to num_records field_name = field_names(y) change_header_caption = "thisform.grdModifyMe.column" + alltrim(str(y)) + ".header1.caption = " + "field_name" &change_header_caption endfor thisform.refresh ENDPROC pageframe pageframe pgfProperties frmgridproperties ErasePage = .T. PageCount = 3 Top = 12 Left = 216 Height = 260 Width = 193 Name = "pgfProperties" Page1.FontName = "MS Sans Serif" Page1.Caption = "Properties I" Page1.Name = "pagPropertiesI" Page2.FontName = "MS Sans Serif" Page2.Caption = "Properties II" Page2.Name = "pagPropertiesII" Page3.FontName = "MS Sans Serif" Page3.FontSize = 8 Page3.Caption = "Properties III" Page3.Name = "pagPropertiesIII" optiongroup optiongroup opgGridLnWidth .frmgridproperties.pgfProperties.pagPropertiesI WButtonCount = 3 BackColor = 192,192,192 Caption = "Optiongroup4" Height = 72 Left = 96 Top = 82 Width = 85 Name = "opgGridLnWidth" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackColor = 192,192,192 Option1.Caption = "One" Option1.Height = 15 Option1.Left = 22 Option1.Style = 0 Option1.Top = 18 Option1.Width = 52 Option1.Name = "optOne" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackColor = 192,192,192 Option2.Caption = "Five" Option2.Height = 15 Option2.Left = 22 Option2.Style = 0 Option2.Top = 35 Option2.Width = 49 Option2.Name = "optFive" Option3.FontName = "MS Sans Serif" Option3.FontSize = 8 Option3.BackColor = 192,192,192 Option3.Caption = "Ten" Option3.Height = 15 Option3.Left = 22 Option3.Style = 0 Option3.Top = 52 Option3.Width = 52 Option3.Name = "optTen" PROCEDURE optOne.Click thisform.grdModifyMe.gridlinewidth = 1 ENDPROC PROCEDURE optFive.Click thisform.grdModifyMe.gridlinewidth = 5 ENDPROC PROCEDURE optTen.Click thisform.grdModifyMe.gridlinewidth = 10 ENDPROC optiongroup optiongroup opgForeColor .frmgridproperties.pgfProperties.pagPropertiesI ButtonCount = 3 BackColor = 192,192,192 Caption = "Optiongroup1" Height = 72 Left = 11 Top = 10 Width = 85 Name = "opgForeColor" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackColor = 192,192,192 Option1.BackStyle = 0 Option1.Caption = "Red" Option1.ForeColor = 255,0,0 Option1.Height = 15 Option1.Left = 16 Option1.Style = 0 Option1.Top = 19 Option1.Width = 45 Option1.Name = "optRed" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackColor = 192,192,192 Option2.Caption = "Green" Option2.ForeColor = 0,255,0 Option2.Height = 15 Option2.Left = 16 Option2.Style = 0 Option2.Top = 36 Option2.Width = 58 Option2.Name = "optGreen" Option3.FontName = "MS Sans Serif" Option3.FontSize = 8 Option3.BackColor = 192,192,192 Option3.Caption = "Blue" Option3.ForeColor = 0,0,255 Option3.Height = 15 Option3.Left = 16 Option3.Style = 0 Option3.Top = 53 Option3.Width = 51 Option3.Name = "optBlue" sPROCEDURE optRed.Click for x = 1 to num_records column_forecolor = "thisform.grdModifyMe.column" + alltrim(str(x)) + ".forecolor = rgb( 255, 0, 0 )" &column_forecolor endfor thisform.refresh ENDPROC PROCEDURE optGreen.Click for x = 1 to num_records column_forecolor = "thisform.grdModifyMe.column" + alltrim(str(x)) + ".forecolor = rgb( 0, 255, 0 )" &column_forecolor endfor thisform.refresh ENDPROC PROCEDURE optBlue.Click for x = 1 to num_records column_forecolor = "thisform.grdModifyMe.column" + alltrim(str(x)) + ".forecolor = rgb( 0, 0, 255 )" &column_forecolor endfor thisform.refresh ENDPROC label label lblForeColor .frmgridproperties.pgfProperties.pagPropertiesI FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 Caption = "ForeColor:" Height = 13 Left = 13 Top = 12 Width = 73 Name = "lblForeColor" optiongroup optiongroup opgBackColor .frmgridproperties.pgfProperties.pagPropertiesI ButtonCount = 3 BackColor = 192,192,192 Caption = "Optiongroup1" Height = 72 Left = 96 Top = 10 Width = 85 Name = "opgBackColor" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackColor = 192,192,192 Option1.Caption = "Red" Option1.ForeColor = 255,0,0 Option1.Height = 15 Option1.Left = 20 Option1.Style = 0 Option1.Top = 19 Option1.Width = 45 Option1.Name = "optRed" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackColor = 192,192,192 Option2.Caption = "Green" Option2.ForeColor = 0,255,0 Option2.Height = 15 Option2.Left = 20 Option2.Style = 0 Option2.Top = 36 Option2.Width = 58 Option2.Name = "optGreen" Option3.FontName = "MS Sans Serif" Option3.FontSize = 8 Option3.BackColor = 192,192,192 Option3.Caption = "Blue" Option3.ForeColor = 0,0,255 Option3.Height = 15 Option3.Left = 20 Option3.Style = 0 Option3.Top = 53 Option3.Width = 51 Option3.Name = "optBlue" sPROCEDURE optRed.Click for x = 1 to num_records column_backcolor = "thisform.grdModifyMe.column" + alltrim(str(x)) + ".backcolor = rgb( 255, 0, 0 )" &column_backcolor endfor thisform.refresh ENDPROC PROCEDURE optGreen.Click for x = 1 to num_records column_backcolor = "thisform.grdModifyMe.column" + alltrim(str(x)) + ".backcolor = rgb( 0, 255, 0 )" &column_backcolor endfor thisform.refresh ENDPROC PROCEDURE optBlue.Click for x = 1 to num_records column_backcolor = "thisform.grdModifyMe.column" + alltrim(str(x)) + ".backcolor = rgb( 0, 0, 255 )" &column_backcolor endfor thisform.refresh ENDPROC label label lblBackColor .frmgridproperties.pgfProperties.pagPropertiesI FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 Caption = "BackColor:" Height = 13 Left = 98 Top = 12 Width = 73 Name = "lblBackColor" optiongroup optiongroup opgGridLineColor .frmgridproperties.pgfProperties.pagPropertiesI ButtonCount = 3 BackColor = 192,192,192 Caption = "Optiongroup3" Height = 72 Left = 11 Top = 82 Width = 85 Name = "opgGridLineColor" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackColor = 192,192,192 Option1.Caption = "Red" Option1.ForeColor = 255,0,0 Option1.Height = 15 Option1.Left = 16 Option1.Style = 0 Option1.Top = 19 Option1.Width = 53 Option1.Name = "optRed" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackColor = 192,192,192 Option2.Caption = "Green" Option2.ForeColor = 0,255,0 Option2.Height = 15 Option2.Left = 16 Option2.Style = 0 Option2.Top = 36 Option2.Width = 57 Option2.Name = "optGreen" Option3.FontName = "MS Sans Serif" Option3.FontSize = 8 Option3.BackColor = 192,192,192 Option3.Caption = "Blue" Option3.ForeColor = 0,0,255 Option3.Height = 15 Option3.Left = 16 Option3.Style = 0 Option3.Top = 53 Option3.Width = 46 Option3.Name = "optBlue" PROCEDURE optRed.Click thisform.grdModifyMe.gridlinecolor = rgb ( 255, 0, 0 ) ENDPROC PROCEDURE optGreen.Click thisform.grdModifyMe.gridlinecolor = rgb ( 0, 255, 0 ) ENDPROC PROCEDURE optBlue.Click thisform.grdModifyMe.gridlinecolor = rgb ( 0, 0, 255 ) ENDPROC optiongroup optiongroup opgHeaderHeight .frmgridproperties.pgfProperties.pagPropertiesI QButtonCount = 3 BackColor = 192,192,192 Caption = "Optiongroup5" Height = 72 Left = 11 Top = 154 Width = 85 Name = "opgHeaderHeight" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackColor = 192,192,192 Option1.Caption = "16" Option1.Height = 15 Option1.Left = 16 Option1.Style = 0 Option1.Top = 17 Option1.Width = 40 Option1.Name = "opt16" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackColor = 192,192,192 Option2.Caption = "25" Option2.Height = 15 Option2.Left = 16 Option2.Style = 0 Option2.Top = 34 Option2.Width = 40 Option2.Name = "opt25" Option3.FontName = "MS Sans Serif" Option3.FontSize = 8 Option3.BackColor = 192,192,192 Option3.Caption = "50" Option3.Height = 15 Option3.Left = 16 Option3.Style = 0 Option3.Top = 51 Option3.Width = 40 Option3.Name = "opt50" PROCEDURE opt16.Click thisform.grdModifyMe.headerheight = 16 ENDPROC PROCEDURE opt25.Click thisform.grdModifyMe.headerheight = 25 ENDPROC PROCEDURE opt50.Click thisform.grdModifyMe.headerheight = 50 ENDPROC optiongroup optiongroup opgGridHeight .frmgridproperties.pgfProperties.pagPropertiesI MButtonCount = 3 BackColor = 192,192,192 Caption = "Optiongroup6" Height = 72 Left = 96 Top = 154 Width = 85 Name = "opgGridHeight" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackColor = 192,192,192 Option1.Caption = "20" Option1.Height = 15 Option1.Left = 24 Option1.Style = 0 Option1.Top = 17 Option1.Width = 38 Option1.Name = "opt20" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackColor = 192,192,192 Option2.Caption = "10" Option2.Height = 15 Option2.Left = 24 Option2.Style = 0 Option2.Top = 34 Option2.Width = 37 Option2.Name = "opt10" Option3.FontName = "MS Sans Serif" Option3.FontSize = 8 Option3.BackColor = 192,192,192 Option3.Caption = "5" Option3.Height = 15 Option3.Left = 24 Option3.Style = 0 Option3.Top = 51 Option3.Width = 38 Option3.Name = "opt5" PROCEDURE opt20.Click thisform.grdModifyMe.height = 20 ENDPROC PROCEDURE opt10.Click thisform.grdModifyMe.height = 10 ENDPROC PROCEDURE opt5.Click thisform.grdModifyMe.height = 5 ENDPROC label label lblGridLineColor .frmgridproperties.pgfProperties.pagPropertiesI FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 Caption = "GridLineColor:" Height = 13 Left = 13 Top = 84 Width = 82 Name = "lblGridLineColor" label label lblHeaderHeight .frmgridproperties.pgfProperties.pagPropertiesI FontName = "MS Sans Serif" FontSize = 8 Alignment = 1 BackColor = 192,192,192 Caption = "HeadrHeight:" Height = 13 Left = 14 Top = 156 Width = 75 Name = "lblHeaderHeight" label label lblGridHeight .frmgridproperties.pgfProperties.pagPropertiesI FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 Caption = "GridHeight:" Height = 13 Left = 98 Top = 156 Width = 71 Name = "lblGridHeight" label label lblGridLnWidth .frmgridproperties.pgfProperties.pagPropertiesI FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 Caption = "GridLnWidth:" Height = 13 Left = 98 Top = 84 Width = 71 Name = "lblGridLnWidth" optiongroup optiongroup opgColumns /frmgridproperties.pgfProperties.pagPropertiesII ButtonCount = 3 BackColor = 192,192,192 Caption = "Optiongroup6" Height = 72 Left = 96 Top = 154 Width = 85 Name = "opgColumns" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackColor = 192,192,192 Option1.Caption = "Red" Option1.ForeColor = 255,0,0 Option1.Height = 15 Option1.Left = 25 Option1.Style = 0 Option1.Top = 18 Option1.Width = 71 Option1.Name = "optRed" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackColor = 192,192,192 Option2.Caption = "Green" Option2.ForeColor = 0,255,0 Option2.Height = 15 Option2.Left = 25 Option2.Style = 0 Option2.Top = 35 Option2.Width = 71 Option2.Name = "optGreen" Option3.FontName = "MS Sans Serif" Option3.FontSize = 8 Option3.BackColor = 192,192,192 Option3.Caption = "Blue" Option3.ForeColor = 0,0,255 Option3.Height = 18 Option3.Left = 25 Option3.Top = 51 Option3.Width = 75 Option3.Name = "optBlue" PROCEDURE optRed.Click for x = 1 to num_records column_forecolor = "thisform.grdModifyMe.column" + alltrim(str(x)) + ".header1.forecolor = rgb( 255, 0, 0 )" &column_forecolor endfor thisform.refresh ENDPROC PROCEDURE optGreen.Click for x = 1 to num_records column_forecolor = "thisform.grdModifyMe.column" + alltrim(str(x)) + ".header1.forecolor = rgb( 0, 255, 0 )" &column_forecolor endfor thisform.refresh ENDPROC PROCEDURE optBlue.Click for x = 1 to num_records column_forecolor = "thisform.grdModifyMe.column" + alltrim(str(x)) + ".header1.forecolor = rgb( 0, 0, 255 )" &column_forecolor endfor thisform.refresh ENDPROC optiongroup optiongroup opgHightLight /frmgridproperties.pgfProperties.pagPropertiesII eButtonCount = 2 BackColor = 192,192,192 Caption = "Optiongroup5" Height = 72 Left = 11 Top = 154 Width = 85 Name = "opgHightLight" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackColor = 192,192,192 Option1.Caption = "On" Option1.Height = 15 Option1.Left = 25 Option1.Style = 0 Option1.Top = 23 Option1.Width = 71 Option1.Name = "optOn" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackColor = 192,192,192 Option2.Caption = "Off" Option2.Height = 15 Option2.Left = 25 Option2.Style = 0 Option2.Top = 40 Option2.Width = 71 Option2.Name = "optOff" PROCEDURE optOn.Click thisform.grdModifyMe.highlight = 1 ENDPROC PROCEDURE optOff.Click thisform.grdModifyMe.highlight = 0 ENDPROC optiongroup optiongroup opgScrollBars /frmgridproperties.pgfProperties.pagPropertiesII dButtonCount = 2 BackColor = 192,192,192 Caption = "Optiongroup1" Height = 71 Left = 96 Top = 83 Width = 85 Name = "opgScrollBars" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackColor = 192,192,192 Option1.Caption = "On" Option1.Height = 15 Option1.Left = 23 Option1.Style = 0 Option1.Top = 21 Option1.Width = 71 Option1.Name = "optOn" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackColor = 192,192,192 Option2.Caption = "Off" Option2.Height = 15 Option2.Left = 23 Option2.Style = 0 Option2.Top = 38 Option2.Width = 71 Option2.Name = "optOff" PROCEDURE optOn.Click thisform.grdModifyMe.scrollbars = 3 ENDPROC PROCEDURE optOff.Click thisform.grdModifyMe.scrollbars = 0 ENDPROC optiongroup optiongroup opgPartition /frmgridproperties.pgfProperties.pagPropertiesII cButtonCount = 2 BackColor = 192,192,192 Caption = "Optiongroup3" Height = 71 Left = 11 Top = 83 Width = 85 Name = "opgPartition" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackColor = 192,192,192 Option1.Caption = "On" Option1.Height = 15 Option1.Left = 24 Option1.Style = 0 Option1.Top = 20 Option1.Width = 71 Option1.Name = "optOn" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackColor = 192,192,192 Option2.Caption = "Off" Option2.Height = 15 Option2.Left = 24 Option2.Style = 0 Option2.Top = 37 Option2.Width = 71 Option2.Name = "optOff" PROCEDURE optOn.Click thisform.grdModifyMe.partition = 100 ENDPROC PROCEDURE optOff.Click thisform.grdModifyMe.partition = 0 ENDPROC optiongroup optiongroup opgDeleteMark /frmgridproperties.pgfProperties.pagPropertiesII dButtonCount = 2 BackColor = 192,192,192 Caption = "Optiongroup2" Height = 73 Left = 96 Top = 10 Width = 85 Name = "opgDeleteMark" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackColor = 192,192,192 Option1.Caption = "On" Option1.Height = 15 Option1.Left = 23 Option1.Style = 0 Option1.Top = 24 Option1.Width = 71 Option1.Name = "optOn" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackColor = 192,192,192 Option2.Caption = "Off" Option2.Height = 15 Option2.Left = 23 Option2.Style = 0 Option2.Top = 41 Option2.Width = 71 Option2.Name = "optOff" PROCEDURE optOn.Click thisform.grdModifyMe.deletemark = 1 ENDPROC PROCEDURE optOff.Click thisform.grdModifyMe.deletemark = 0 ENDPROC optiongroup optiongroup opgRecordMark /frmgridproperties.pgfProperties.pagPropertiesII dButtonCount = 2 BackColor = 192,192,192 Caption = "Optiongroup1" Height = 73 Left = 11 Top = 10 Width = 85 Name = "opgRecordMark" Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackColor = 192,192,192 Option1.Caption = "On" Option1.Height = 15 Option1.Left = 23 Option1.Style = 0 Option1.Top = 24 Option1.Width = 42 Option1.Name = "optOn" Option2.FontName = "MS Sans Serif" Option2.FontSize = 8 Option2.BackColor = 192,192,192 Option2.Caption = "Off" Option2.Height = 15 Option2.Left = 23 Option2.Style = 0 Option2.Top = 41 Option2.Width = 42 Option2.Name = "optOff" PROCEDURE optOn.Click thisform.grdModifyMe.recordmark = 1 ENDPROC PROCEDURE optOff.Click thisform.grdModifyMe.recordmark = 0 ENDPROC label label lblRecordMark /frmgridproperties.pgfProperties.pagPropertiesII FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 Caption = "RecordMark:" Height = 13 Left = 15 Top = 12 Width = 73 Name = "lblRecordMark" label label lblDeleteMark /frmgridproperties.pgfProperties.pagPropertiesII FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 Caption = "DeleteMark:" Height = 13 Left = 99 Top = 12 Width = 73 Name = "lblDeleteMark" label label lblPartition /frmgridproperties.pgfProperties.pagPropertiesII FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 Caption = "Partition:" Height = 13 Left = 14 Top = 85 Width = 61 Name = "lblPartition" label label lblScrollBars /frmgridproperties.pgfProperties.pagPropertiesII FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 Caption = "ScrollBars:" Height = 13 Left = 100 Top = 85 Width = 61 Name = "lblScrollBars" label label lblHighLight /frmgridproperties.pgfProperties.pagPropertiesII FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 Caption = "HighLight:" Height = 13 Left = 15 Top = 157 Width = 73 Name = "lblHighLight" label label lblColumns /frmgridproperties.pgfProperties.pagPropertiesII FontName = "MS Sans Serif" FontSize = 8 BackColor = 192,192,192 Caption = "HeaderColor:" Height = 13 Left = 99 Top = 157 Width = 75 Name = "lblColumns" combobox combobox cboFieldNames 0frmgridproperties.pgfProperties.pagPropertiesIII FontName = "MS Sans Serif" FontSize = 8 RowSourceType = 8 RowSource = "customer" ControlSource = "" Height = 25 Left = 36 Style = 2 Top = 109 Width = 121 Name = "cboFieldNames" PROCEDURE InteractiveChange combo_val = alltrim(thisform.pgfProperties.pagPropertiesIII.cboFieldNames.value) thisform.grdModifyMe.column1.controlsource = combo_val thisform.grdModifyMe.column1.header1.caption = combo_val thisform.refresh ENDPROC label label lblFieldName 0frmgridproperties.pgfProperties.pagPropertiesIII FontName = "MS Sans Serif" FontSize = 8 Alignment = 2 BackColor = 192,192,192 Caption = "Select a new DataSource for the left most column in the Grid." Height = 49 Left = 24 Top = 49 Width = 145 Name = "lblFieldName" commandbutton commandbutton cmdQuit frmgridproperties Top = 288 Left = 252 Height = 25 Width = 121 FontName = "MS Sans Serif" FontSize = 8 Caption = "Quit" Name = "cmdQuit" ;PROCEDURE Click thisform.hide release thisform ENDPROC )MS Sans Serif, 1, 8, 6, 13, 11, 12, 2, 0 FIELD_NAMES HEADER_VAL_TEMP HEADER_VAL COMBO_VAL NUM_RECORDS TABLE_USED mainb Load, Unload c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx thisform.grdModifyMe.columnCC .header1.caption = field_name &change_header_caption THISFORM GRDMODIFYME COLUMNCOUNT NUM_RECORDS FIELD_NAME FIELD_NAMES CHANGE_HEADER_CAPTION REFRESH Init, c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME GRIDLINEWIDTH THISFORM GRDMODIFYME GRIDLINEWIDTH THISFORM GRDMODIFYME GRIDLINEWIDTH optOne.Click, optFive.Clickl optTen.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx thisform.grdModifyMe.columnCC .forecolor = rgb( 255, 0, 0 ) &column_forecolor NUM_RECORDS COLUMN_FORECOLOR THISFORM REFRESH thisform.grdModifyMe.columnCC .forecolor = rgb( 0, 255, 0 ) &column_forecolor NUM_RECORDS COLUMN_FORECOLOR THISFORM REFRESH thisform.grdModifyMe.columnCC .forecolor = rgb( 0, 0, 255 ) &column_forecolor NUM_RECORDS COLUMN_FORECOLOR THISFORM REFRESH optRed.Click, optGreen.Click optBlue.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx thisform.grdModifyMe.columnCC .backcolor = rgb( 255, 0, 0 ) &column_backcolor NUM_RECORDS COLUMN_BACKCOLOR THISFORM REFRESH thisform.grdModifyMe.columnCC .backcolor = rgb( 0, 255, 0 ) &column_backcolor NUM_RECORDS COLUMN_BACKCOLOR THISFORM REFRESH thisform.grdModifyMe.columnCC .backcolor = rgb( 0, 0, 255 ) &column_backcolor NUM_RECORDS COLUMN_BACKCOLOR THISFORM REFRESH optRed.Click, optGreen.Click optBlue.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME GRIDLINECOLOR THISFORM GRDMODIFYME GRIDLINECOLOR THISFORM GRDMODIFYME GRIDLINECOLOR optRed.Click, optGreen.Clicku optBlue.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME HEADERHEIGHT THISFORM GRDMODIFYME HEADERHEIGHT THISFORM GRDMODIFYME HEADERHEIGHT opt16.Click, opt25.Clickk opt50.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME HEIGHT THISFORM GRDMODIFYME HEIGHT THISFORM GRDMODIFYME HEIGHT opt20.Click, opt10.Clicke opt5.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx thisform.grdModifyMe.columnCC .header1.forecolor = rgb( 255, 0, 0 ) &column_forecolor NUM_RECORDS COLUMN_FORECOLOR THISFORM REFRESH thisform.grdModifyMe.columnCC .header1.forecolor = rgb( 0, 255, 0 ) &column_forecolor NUM_RECORDS COLUMN_FORECOLOR THISFORM REFRESH thisform.grdModifyMe.columnCC .header1.forecolor = rgb( 0, 0, 255 ) &column_forecolor NUM_RECORDS COLUMN_FORECOLOR THISFORM REFRESH optRed.Click, optGreen.Click optBlue.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME HIGHLIGHT THISFORM GRDMODIFYME HIGHLIGHT optOn.Click, optOff.Clickh c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME SCROLLBARS THISFORM GRDMODIFYME SCROLLBARS optOn.Click, optOff.Clicki c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME PARTITION THISFORM GRDMODIFYME PARTITION optOn.Click, optOff.Clickh c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME DELETEMARK THISFORM GRDMODIFYME DELETEMARK optOn.Click, optOff.Clicki c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME RECORDMARK THISFORM GRDMODIFYME RECORDMARK optOn.Click, optOff.Clicki c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx COMBO_VAL THISFORM PGFPROPERTIES PAGPROPERTIESIII CBOFIELDNAMES VALUE GRDMODIFYME COLUMN1 CONTROLSOURCE HEADER1 CAPTION REFRESH InteractiveChange, c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM Click, c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx FIELD_NAMES HEADER_VAL_TEMP HEADER_VAL COMBO_VAL NUM_RECORDS TABLE_USED mainb Load, Unload c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx thisform.grdModifyMe.columnCC .header1.caption = field_name &change_header_caption THISFORM GRDMODIFYME COLUMNCOUNT NUM_RECORDS FIELD_NAME FIELD_NAMES CHANGE_HEADER_CAPTION REFRESH Init, c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME GRIDLINEWIDTH THISFORM GRDMODIFYME GRIDLINEWIDTH THISFORM GRDMODIFYME GRIDLINEWIDTH optOne.Click, optFive.Clickl optTen.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx thisform.grdModifyMe.columnCC .forecolor = rgb( 255, 0, 0 ) &column_forecolor NUM_RECORDS COLUMN_FORECOLOR THISFORM REFRESH thisform.grdModifyMe.columnCC .forecolor = rgb( 0, 255, 0 ) &column_forecolor NUM_RECORDS COLUMN_FORECOLOR THISFORM REFRESH thisform.grdModifyMe.columnCC .forecolor = rgb( 0, 0, 255 ) &column_forecolor NUM_RECORDS COLUMN_FORECOLOR THISFORM REFRESH optRed.Click, optGreen.Click optBlue.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx thisform.grdModifyMe.columnCC .backcolor = rgb( 255, 0, 0 ) &column_backcolor NUM_RECORDS COLUMN_BACKCOLOR THISFORM REFRESH thisform.grdModifyMe.columnCC .backcolor = rgb( 0, 255, 0 ) &column_backcolor NUM_RECORDS COLUMN_BACKCOLOR THISFORM REFRESH thisform.grdModifyMe.columnCC .backcolor = rgb( 0, 0, 255 ) &column_backcolor NUM_RECORDS COLUMN_BACKCOLOR THISFORM REFRESH optRed.Click, optGreen.Click optBlue.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME GRIDLINECOLOR THISFORM GRDMODIFYME GRIDLINECOLOR THISFORM GRDMODIFYME GRIDLINECOLOR optRed.Click, optGreen.Clicku optBlue.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME HEADERHEIGHT THISFORM GRDMODIFYME HEADERHEIGHT THISFORM GRDMODIFYME HEADERHEIGHT opt16.Click, opt25.Clickk opt50.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME HEIGHT THISFORM GRDMODIFYME HEIGHT THISFORM GRDMODIFYME HEIGHT opt20.Click, opt10.Clicke opt5.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx thisform.grdModifyMe.columnCC .header1.forecolor = rgb( 255, 0, 0 ) &column_forecolor NUM_RECORDS COLUMN_FORECOLOR THISFORM REFRESH thisform.grdModifyMe.columnCC .header1.forecolor = rgb( 0, 255, 0 ) &column_forecolor NUM_RECORDS COLUMN_FORECOLOR THISFORM REFRESH thisform.grdModifyMe.columnCC .header1.forecolor = rgb( 0, 0, 255 ) &column_forecolor NUM_RECORDS COLUMN_FORECOLOR THISFORM REFRESH optRed.Click, optGreen.Click optBlue.Click c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME HIGHLIGHT THISFORM GRDMODIFYME HIGHLIGHT optOn.Click, optOff.Clickh c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME SCROLLBARS THISFORM GRDMODIFYME SCROLLBARS optOn.Click, optOff.Clicki c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME PARTITION THISFORM GRDMODIFYME PARTITION optOn.Click, optOff.Clickh c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME DELETEMARK THISFORM GRDMODIFYME DELETEMARK optOn.Click, optOff.Clicki c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM GRDMODIFYME RECORDMARK THISFORM GRDMODIFYME RECORDMARK optOn.Click, optOff.Clicki c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx COMBO_VAL THISFORM PGFPROPERTIES PAGPROPERTIESIII CBOFIELDNAMES VALUE GRDMODIFYME COLUMN1 CONTROLSOURCE HEADER1 CAPTION REFRESH InteractiveChange, c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx THISFORM Click, c:\vfp\samples\controls\grid\ grd_prp.scx c:\vfp\samples\controls\grid\grd_prp.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QTN0J7HT2 490096437 17 18 19 20 21 WINDOWS _QSB0LD5OW 506035367 22 23 24 25 31 43 59 WINDOWS _QSB0LD5QK 506035235 60 61 62 63 64 70 79 WINDOWS FONTINFO 506035235 96 97 98 99 100 110 129 WINDOWS _QTU164ROU 506035236 143 144 145 146 147 WINDOWS _QTU164RQ4 506035236 153 154 155 156 157 WINDOWS _QWQ0XBAIV 506035236 163 164 165 166 167 WINDOWS _QWQ0XBZ5Z 506035236 173 174 175 176 177 178 COMMENT FONTINFO 180 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" frmaddremove Caption = "Adding and Removing List Items" oktoleave = .T. Top = 0.00 Left = 0.00 Height = 16.69 Width = 58.17 AutoCenter = .F. BackColor = 192,192,192 Name = "frmaddremove" lPROCEDURE Init THIS.AutoCenter = .T. ENDPROC PROCEDURE Activate This.txtAddText.SetFocus ENDPROC PROCEDURE Load ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC AUTOCENTER TXTADDTEXT SETFOCUS mainb Init, ActivateS Unload c:\vfp\samples\controls\lists\ 00000053.tmp c:\vfp\samples\controls\lists\00000053.tmp oktoleave listbox listbox lstAdd frmaddremove. Top = 0.69 Left = 4.17 Height = 7.50 TabIndex = 2 Width = 50.17 SelectedItemForeColor = 255,255,255 SelectedItemBackColor = 0,0,128 Name = "lstAdd" PROCEDURE DblClick ThisForm.txtAddText.Value = This.List(This.ListIndex) This.RemoveItem (This.ListIndex) ThisForm.Refresh ENDPROC PROCEDURE GotFocus IF !Thisform.OkToLeave Thisform.OkToLeave = .T. ThisForm.txtAddText.SETFOCUS ENDIF ENDPROC THISFORM TXTADDTEXT VALUE LIST LISTINDEX REMOVEITEM REFRESH3 THISFORM OKTOLEAVE TXTADDTEXT SETFOCUS DblClick, GotFocus c:\vfp\samples\controls\lists\ 00000053.tmp c:\vfp\samples\controls\lists\00000053.tmp textbox textbox txtAddText frmaddremove. /Top = 10.00 Left = 9.17 Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ForeColor = 0,0,0 Height = 1.50 HideSelection = .T. InputMask = "" ReadOnly = .F. SelLength = 0 SelStart = 0 TabIndex = 1 Width = 40.17 Name = "txtAddText" ^PROCEDURE KeyPress Parameters nKeyCode, nShiftCtrlAlt If nKeyCode = 13 && Enter Key *add the value to the list box *------------------------------ ThisForm.lstAdd.AddItem (This.Value) *Set the text box value to an empty string *------------------------------ This.Value = "" *Refresh the List box display *------------------------------ ThisForm.Refresh *Set the property to .F. so that the GOTFOCUS of * the next control in the tab order (cmdOK)will * set the focus back to the textbox *------------------------------ ThisForm.OkToLeave = .F. Endif ENDPROC NKEYCODE NSHIFTCTRLALT THISFORM LSTADD ADDITEM VALUE REFRESH OKTOLEAVE KeyPress, c:\vfp\samples\controls\lists\ 00000053.tmp c:\vfp\samples\controls\lists\00000053.tmp label label Label1 frmaddremove. Caption = "Typ" Top = 16.50 Left = 4.00 FontSize = 8 BackColor = 255,255,255 BackStyle = 0 BorderStyle = 0 ForeColor = 0,0,0 Height = 3.75 Width = 36.17 Name = "Label1" label label Label2 frmaddremove. Caption = "Type text and press Enter to add it to the list." Top = 12.00 Left = 4.17 AutoSize = .T. BackColor = 192,192,192 Height = 1.50 Width = 50.17 Name = "Label2" label label Label3 frmaddremove. Caption = "Double-click on an item in the list to remove it." Top = 8.25 Left = 2.67 AutoSize = .T. BackColor = 192,192,192 Height = 1.44 Width = 52.67 Name = "Label3" cmdok ..\buttons.vcx commandbutton Cmdok1 frmaddremove. .Top = 14.25 Left = 21.17 Name = "Cmdok1" CArial, 1, 10, 6, 16, 13, 15, 3, 0 Arial, 1, 8, 5, 14, 11, 13, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" frmaddremove Caption = "Adding and Removing List Items" oktoleave = .T. Top = 0.00 Left = -0.17 Height = 16.69 Width = 58.17 AutoCenter = .T. BackColor = 192,192,192 Name = "frmaddremove" lPROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC PROCEDURE Load ENDPROC PROCEDURE Activate This.txtAddText.SetFocus ENDPROC PROCEDURE Init THIS.AutoCenter = .T. ENDPROC mainb TXTADDTEXT SETFOCUS AUTOCENTER Unload, Loadp Activatew c:\vfp\samples\controls\lists\ 00000047.tmp c:\vfp\samples\controls\lists\00000047.tmp oktoleave listbox listbox lstAdd frmaddremove Top = 0.69 Left = 4.17 Height = 7.50 TabIndex = 2 Width = 50.17 SelectedItemForeColor = 255,255,255 SelectedItemBackColor = 0,0,128 Name = "lstAdd" PROCEDURE GotFocus IF !Thisform.OkToLeave Thisform.OkToLeave = .T. ThisForm.txtAddText.SETFOCUS ENDIF ENDPROC PROCEDURE DblClick ThisForm.txtAddText.Value = This.List(This.ListIndex) This.RemoveItem (This.ListIndex) ThisForm.Refresh ENDPROC THISFORM OKTOLEAVE TXTADDTEXT SETFOCUS= THISFORM TXTADDTEXT VALUE LIST LISTINDEX REMOVEITEM REFRESH GotFocus, DblClick c:\vfp\samples\controls\lists\ 00000047.tmp c:\vfp\samples\controls\lists\00000047.tmp textbox textbox txtAddText frmaddremove /Top = 10.00 Left = 9.17 Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = ForeColor = 0,0,0 Height = 1.50 HideSelection = .T. InputMask = "" ReadOnly = .F. SelLength = 0 SelStart = 0 TabIndex = 1 Width = 40.17 Name = "txtAddText" ^PROCEDURE KeyPress Parameters nKeyCode, nShiftCtrlAlt If nKeyCode = 13 && Enter Key *add the value to the list box *------------------------------ ThisForm.lstAdd.AddItem (This.Value) *Set the text box value to an empty string *------------------------------ This.Value = "" *Refresh the List box display *------------------------------ ThisForm.Refresh *Set the property to .F. so that the GOTFOCUS of * the next control in the tab order (cmdOK)will * set the focus back to the textbox *------------------------------ ThisForm.OkToLeave = .F. Endif ENDPROC NKEYCODE NSHIFTCTRLALT THISFORM LSTADD ADDITEM VALUE REFRESH OKTOLEAVE KeyPress, c:\vfp\samples\controls\lists\ 00000047.tmp c:\vfp\samples\controls\lists\00000047.tmp label label Label1 frmaddremove Caption = "Typ" Top = 16.50 Left = 4.00 FontSize = 8 BackColor = 255,255,255 BackStyle = 0 BorderStyle = 0 ForeColor = 0,0,0 Height = 3.75 Width = 36.17 Name = "Label1" label label Label2 frmaddremove Caption = "Type text and press Enter to add it to the list." Top = 12.00 Left = 4.17 AutoSize = .T. BackColor = 192,192,192 Height = 1.50 Width = 50.17 Name = "Label2" label label Label3 frmaddremove Caption = "Double-click on an item in the list to remove it." Top = 8.25 Left = 2.67 AutoSize = .T. BackColor = 192,192,192 Height = 1.44 Width = 52.67 Name = "Label3" cmdok ..\buttons.vcx commandbutton Cmdok1 frmaddremove .Top = 14.25 Left = 21.17 Name = "Cmdok1" CArial, 1, 10, 6, 16, 13, 15, 3, 0 Arial, 1, 8, 5, 14, 11, 13, 3, 0 PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QTU15NZS0 490576715 17 18 19 20 21 WINDOWS _QSB0LELNG 506035322 22 23 24 25 31 58 WINDOWS _QSB0LELQI 492001735 79 80 81 82 83 88 97 WINDOWS _QSB0NBC0E 492001700 114 115 116 117 118 WINDOWS _QT10YCNB2 492001700 126 127 128 129 130 WINDOWS _QT10YIX0T 493569817 134 135 136 137 138 WINDOWS _QTU15O0EO 492001700 144 145 146 147 148 WINDOWS _QTU15O0I6 506035322 153 154 155 156 157 WINDOWS _QWQ0XFIMT 506035322 163 164 165 166 167 168 COMMENT FONTINFO 170 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" frmmultisel ScaleMode = 3 Caption = "MultiSelecting Items in a List" Top = -1 Left = -1 Height = 218 Width = 457 AutoCenter = .F. BackColor = 192,192,192 Visible = .F. Name = "frmmultisel" aPROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC PROCEDURE Init #define ONE_LOC "one" #define TWO_LOC "two" #define THREE_LOC "three" #define FOUR_LOC "four" #define FIVE_LOC "five" #define SIX_LOC "six" #define SEVEN_LOC "seven" #define EIGHT_LOC "eight" #define NINE_LOC "nine" #define TEN_LOC "ten" This.lstMulti.AddItem (ONE_LOC) This.lstMulti.AddItem (TWO_LOC) This.lstMulti.AddItem (THREE_LOC) This.lstMulti.AddItem (FOUR_LOC) This.lstMulti.AddItem (FIVE_LOC) This.lstMulti.AddItem (SIX_LOC) This.lstMulti.AddItem (SEVEN_LOC) This.lstMulti.AddItem (EIGHT_LOC) This.lstMulti.AddItem (NINE_LOC) This.lstMulti.AddItem (TEN_LOC) This.AutoCenter = .T. ENDPROC mainb three seven eight LSTMULTI ADDITEM AUTOCENTER Unload, Initp c:\vfp\samples\controls\lists\ 00000050.tmp c:\vfp\samples\controls\lists\00000050.tmp listbox listbox lstMulti frmmultisel. Top = 12 Left = 96 RowSourceType = 0 RowSource = "aMulti" Height = 169 MultiSelect = .T. Width = 181 Name = "lstMulti" PROCEDURE Click nNoSelected = 0 ThisForm.cboSelected.Clear FOR i = 1 TO This.ListCount IF This.Selected(i) nNoSelected = nNoSelected + 1 ThisForm.cboSelected.Additem (This.List(i)) ENDIF ENDFOR ThisForm.txtNoSelected.Value = nNoSelected ENDPROC NNOSELECTED THISFORM CBOSELECTED CLEAR THIS LISTCOUNT SELECTED ADDITEM TXTNOSELECTED VALUE Click, c:\vfp\samples\controls\lists\ 00000050.tmp c:\vfp\samples\controls\lists\00000050.tmp textbox textbox txtNoSelected frmmultisel. Top = 12 Left = 24 Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = 0.00 ForeColor = 0,0,0 Height = 21 HideSelection = .T. InputMask = "99" ReadOnly = .F. SelLength = 0 SelStart = 0 Width = 37 Name = "txtNoSelected" combobox combobox cboSelected frmmultisel. jTop = 12 Left = 288 BackColor = 255,255,255 Height = 25 Style = 2 Width = 157 Name = "cboSelected" label label Label1 frmmultisel. Caption = "Number of Selected Items" Top = 36 Left = 12 AutoSize = .F. BackColor = 192,192,192 BackStyle = 1 Height = 61 Width = 73 WordWrap = .T. Name = "Label1" label label Label2 frmmultisel. Caption = "Selected Items" Top = 48 Left = 312 BackColor = 192,192,192 BackStyle = 1 Height = 13 Width = 98 Name = "Label2" label label Label3 frmmultisel. Caption = "Shift+Click or Ctrl+Click to Select Multiple Items." Top = 192 Left = 36 BackColor = 192,192,192 BackStyle = 1 Height = 25 Width = 343 Name = "Label3" cmdok ..\buttons.vcx commandbutton Cmdok1 frmmultisel. (Top = 144 Left = 324 Name = "Cmdok1" "Arial, 1, 10, 6, 16, 13, 15, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" frmmultisel ScaleMode = 3 Top = 135 Left = 92 Height = 211 Width = 457 AutoCenter = .T. BackColor = 192,192,192 Caption = "MultiSelecting Items in a List" Visible = .F. Name = "frmmultisel" NPROCEDURE Activate #define ONE_LOC "one" #define TWO_LOC "two" #define THREE_LOC "three" #define FOUR_LOC "four" #define FIVE_LOC "five" #define SIX_LOC "six" #define SEVEN_LOC "seven" #define EIGHT_LOC "eight" #define NINE_LOC "nine" #define TEN_LOC "ten" This.lstMulti.AddItem (ONE_LOC) This.lstMulti.AddItem (TWO_LOC) This.lstMulti.AddItem (THREE_LOC) This.lstMulti.AddItem (FOUR_LOC) This.lstMulti.AddItem (FIVE_LOC) This.lstMulti.AddItem (SIX_LOC) This.lstMulti.AddItem (SEVEN_LOC) This.lstMulti.AddItem (EIGHT_LOC) This.lstMulti.AddItem (NINE_LOC) This.lstMulti.AddItem (TEN_LOC) ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC three seven eight LSTMULTI ADDITEM4 mainb Activate, Unload1 c:\vfp\samples\controls\lists\ lmsel.scx c:\vfp\samples\controls\lists\lmsel.scx listbox listbox lstMulti frmmultisel RowSourceType = 0 RowSource = "aMulti" Height = 169 Left = 96 MultiSelect = .T. Top = 12 Width = 181 Name = "lstMulti" PROCEDURE Click nNoSelected = 0 ThisForm.cboSelected.Clear FOR i = 1 TO This.ListCount IF This.Selected(i) nNoSelected = nNoSelected + 1 ThisForm.cboSelected.Additem (This.List(i)) ENDIF ENDFOR ThisForm.txtNoSelected.Value = nNoSelected ENDPROC NNOSELECTED THISFORM CBOSELECTED CLEAR THIS LISTCOUNT SELECTED ADDITEM TXTNOSELECTED VALUE Click, c:\vfp\samples\controls\lists\ lmsel.scx c:\vfp\samples\controls\lists\lmsel.scx commandbutton commandbutton cmdOK frmmultisel RTop = 156 Left = 324 Height = 23 Width = 84 Caption = "\<OK" Name = "cmdOK" .PROCEDURE Click RELEASE ThisForm ENDPROC THISFORM Click, c:\vfp\samples\controls\lists\ lmsel.scx c:\vfp\samples\controls\lists\lmsel.scx textbox textbox txtNoSelected frmmultisel Alignment = 0 BackColor = 255,255,255 BorderStyle = 1 Value = 0.00 ForeColor = 0,0,0 Height = 21 HideSelection = .T. InputMask = "99" Left = 24 ReadOnly = .F. SelLength = 0 SelStart = 0 Top = 12 Width = 37 Name = "txtNoSelected" combobox combobox cboSelected frmmultisel jBackColor = 255,255,255 Height = 25 Left = 288 Style = 2 Top = 12 Width = 157 Name = "cboSelected" label label Label1 frmmultisel AutoSize = .F. BackColor = 192,192,192 BackStyle = 1 Caption = "Number of Selected Items" Height = 61 Left = 12 Top = 36 Width = 73 WordWrap = .T. Name = "Label1" label label Label2 frmmultisel BackColor = 192,192,192 BackStyle = 1 Caption = "Selected Items" Height = 13 Left = 312 Top = 48 Width = 98 Name = "Label2" label label Label3 frmmultisel BackColor = 192,192,192 BackStyle = 1 Caption = "Shift+Click or Ctrl+Click to Select Multiple Items." Height = 13 Left = 36 Top = 192 Width = 343 Name = "Label3" "Arial, 1, 10, 6, 16, 13, 15, 3, 0 PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 0 8 WINDOWS _QUK0VQ154 493773884 9 10 11 12 14 WINDOWS _QV40QXJ3M 495290761 15 16 17 18 19 WINDOWS _QS711N1YU 495290761 22 23 24 25 28 96 WINDOWS _QS711N20I 495290761 32 33 34 35 36 WINDOWS _QS80WN2U8 494373793 40 41 42 43 44 46 102 WINDOWS _QSA0IR9J2 494373793 47 48 49 50 51 55 107 WINDOWS _QSA0IR9M4 494373793 64 65 66 67 68 COMMENT FONTINFO 0 72 VERSION = 0.028 dataenvironment dataenvironment Dataenvironment LLeft = 104 Top = 199 Width = 607 Height = 300 Name = "Dataenvironment" cursor cursor Cursor1 Dataenvironment Left = 20 Top = 10 Width = 98 Height = 108 Alias = "customer" Database = ..\..\data\testdata.dbc CursorSource = "customer" Name = "Cursor1" frmmulticol Top = 2.13 Left = 8.50 Height = 11.00 Width = 76.17 AutoCenter = .T. BackColor = 192,192,192 Caption = "Multicolumn Listbox" Visible = .F. Name = "frmmulticol" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC ENDPROC listbox listbox lstdemo frmmulticol FontBold = .F. FontName = "Terminal" ColumnWidths = "60" RowSourceType = 6 RowSource = "contact" Value = ControlSource = "" Height = 7.19 ColumnLines = .T. Left = 2.17 Top = 0.63 Width = 69.67 Name = "lstdemo" commandbutton commandbutton cmdOK frmmulticol `Top = 8.69 Left = 53.17 Height = 1.44 Width = 15.17 Caption = "\<OK" Name = "cmdOK" 5PROCEDURE Click Release ThisForm ENDPROC ENDPROC spinner spinner spnColumns frmmulticol FontBold = .T. BackColor = 255,255,255 Value = 1.00 Height = 1.50 KeyboardHighValue = 3.00 KeyboardLowValue = 1.00 Left = 28.00 SpinnerHighValue = 3.00 SpinnerLowValue = 1.00 Top = 8.25 Width = 8.17 Name = "spnColumns" PROCEDURE InteractiveChange DO CASE CASE This.Value = 1 ThisForm.lstDemo.ColumnCount = 1 ThisForm.lstDemo.ColumnWidths = "35" ThisForm.lstDemo.RowSource = "contact" CASE This.Value = 2 ThisForm.lstDemo.ColumnCount = 2 ThisForm.lstDemo.ColumnWidths = "35,35" ThisForm.lstDemo.RowSource = "contact,city" CASE This.Value = 3 ThisForm.lstDemo.ColumnCount = 3 ThisForm.lstDemo.ColumnWidths = "25,20,20" ThisForm.lstDemo.RowSource = "contact,city,country" ENDCASE ENDPROC ENDPROC label label Label1 frmmulticol BackColor = 255,255,255 BackStyle = 0 BorderStyle = 0 Caption = "Number of Columns" ForeColor = 0,0,0 Height = 1.00 Left = 4.00 Top = 8.50 Width = 23.17 Name = "Label1" FTerminal, 0, 10, 8, 12, 10, 8, 2, 0 Arial, 1, 10, 6, 16, 13, 15, 3, 0 mainb Unload, c:\vfp\samples\controls\lists\ lmulcol.scx c:\vfp\samples\controls\lists\lmulcol.scx THISFORM Click, c:\vfp\samples\controls\lists\ lmulcol.scx c:\vfp\samples\controls\lists\lmulcol.scx contact 35,35 contact,city 25,20,20 contact,city,country VALUE THISFORM LSTDEMO COLUMNCOUNT COLUMNWIDTHS ROWSOURCE InteractiveChange, c:\vfp\samples\controls\lists\ lmulcol.scx c:\vfp\samples\controls\lists\lmulcol.scx mainb Unload, c:\vfp\samples\controls\lists\ lmulcol.scx c:\vfp\samples\controls\lists\lmulcol.scx THISFORM Click, c:\vfp\samples\controls\lists\ lmulcol.scx c:\vfp\samples\controls\lists\lmulcol.scx contact 35,35 contact,city 25,20,20 contact,city,country VALUE THISFORM LSTDEMO COLUMNCOUNT COLUMNWIDTHS ROWSOURCE InteractiveChange, c:\vfp\samples\controls\lists\ lmulcol.scx c:\vfp\samples\controls\lists\lmulcol.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 0 8 WINDOWS _QTU1585FY 490576322 9 10 11 12 13 WINDOWS _QSC0TSPBM 495275899 14 15 16 17 20 89 WINDOWS _QSC0TRZ04 490576322 34 35 36 37 38 WINDOWS _QV40TBB37 493776147 40 41 42 43 44 WINDOWS _QV40TBB19 493776147 49 50 51 52 53 56 100 WINDOWS _QSC0TSPG2 493776117 59 60 61 62 63 65 106 COMMENT FONTINFO 0 66 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" frmorder ScaleMode = 3 Top = 46 Left = 71 Height = 222 Width = 361 AutoCenter = .T. BackColor = 192,192,192 Caption = "Arranging items in a list" Visible = .T. Name = "frmorder" ^PROCEDURE Activate #define ONE_LOC "one" #define TWO_LOC "two" #define THREE_LOC "three" #define FOUR_LOC "four" #define FIVE_LOC "five" #define SIX_LOC "six" #define SEVEN_LOC "seven" #define EIGHT_LOC "eight" #define NINE_LOC "nine" #define TEN_LOC "ten" This.lstMover.AddItem (ONE_LOC) This.lstMover.AddItem (TWO_LOC) This.lstMover.AddItem (THREE_LOC) This.lstMover.AddItem (FOUR_LOC) This.lstMover.AddItem (FIVE_LOC) This.lstMover.AddItem (SIX_LOC) This.lstMover.AddItem (SEVEN_LOC) This.lstMover.AddItem (EIGHT_LOC) This.lstMover.AddItem (NINE_LOC) This.lstMover.AddItem (TEN_LOC) This.Refresh ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC listbox listbox lstMover frmorder THeight = 193 Left = 25 MoverBars = .T. Top = 12 Width = 180 Name = "lstMover" label label lblMover frmorder FontSize = 10 BackColor = 255,255,255 BackStyle = 0 BorderStyle = 0 Caption = "Drag the button to the left of an item up or down to rearrange the item in the list." ForeColor = 0,0,0 Height = 97 Left = 216 Top = 60 Visible = .T. Width = 121 WordWrap = .T. Name = "lblMover" checkbox checkbox chkSorted frmorder Top = 24 Left = 276 Height = 24 Width = 68 AutoSize = .T. Alignment = 1 BackColor = 192,192,192 Caption = "Sorted" TabIndex = 3 Visible = .T. Name = "chkSorted" PROCEDURE InteractiveChange If This.Value = 1 ThisForm.lstMover.Sorted = .T. ThisForm.lstMover.Sorted = .F. EndIf ENDPROC commandbutton commandbutton cmdOK frmorder aTop = 180 Left = 255 Height = 23 Width = 91 Caption = "\<OK" Visible = .T. Name = "cmdOK" .PROCEDURE Click Release ThisForm ENDPROC "Arial, 1, 10, 6, 16, 13, 15, 3, 0 three seven eight LSTMOVER ADDITEM REFRESH4 mainb Activate, UnloadD c:\vfp\samples\controls\lists\ lsort.scx c:\vfp\samples\controls\lists\lsort.scx VALUE THISFORM LSTMOVER SORTED InteractiveChange, c:\vfp\samples\controls\lists\ lsort.scx c:\vfp\samples\controls\lists\lsort.scx THISFORM Click, c:\vfp\samples\controls\lists\ lsort.scx c:\vfp\samples\controls\lists\lsort.scx three seven eight LSTMOVER ADDITEM REFRESH4 mainb Activate, UnloadD c:\vfp\samples\controls\lists\ lsort.scx c:\vfp\samples\controls\lists\lsort.scx VALUE THISFORM LSTMOVER SORTED InteractiveChange, c:\vfp\samples\controls\lists\ lsort.scx c:\vfp\samples\controls\lists\lsort.scx THISFORM Click, c:\vfp\samples\controls\lists\ lsort.scx c:\vfp\samples\controls\lists\lsort.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QTY1DVF6E 495941760 17 18 19 20 23 WINDOWS _QSR0UBQNU 496332346 24 25 26 27 34 197 WINDOWS _QSR0UBQP8 494633837 73 74 75 76 77 WINDOWS _QSR0UBQQW 494633837 81 82 83 84 85 89 218 COMMENT FONTINFO 102 VERSION = 0.028 dataenvironment dataenvironment Datanavigation KLeft = 100 Top = 198 Width = 581 Height = 281 Name = "Datanavigation" frmsize Caption = "Adjust Control Size and Position" Top = 0.69 Left = 7.67 Height = 16.25 Width = 62.50 AutoCenter = .T. BackColor = 192,192,192 MinHeight = 7.00 MinWidth = 50.00 Name = "frmsize" 8PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC PROCEDURE Resize This.edtResize.Width = This.Width - 10 This.edtResize.Height = This.Height - 5 This.cmdOK.Top = This.Height - 2.5 This.cmdOk.Left = (This.Width / 2) - (This.cmdOk.Width / 2) ENDPROC PROCEDURE Init #define INSTRUCTION_LOC "Drag the border of the form to resize." This.edtResize.Value = INSTRUCTION_LOC ENDPROC mainb THIS EDTRESIZE WIDTH HEIGHT CMDOK LEFT< Drag the border of the form to resize. THIS EDTRESIZE VALUE Unload, Resizep Init) c:\vfp\samples\controls\objects\ 76560382.tmp c:\vfp\samples\controls\objects\76560382.tmp editbox editbox edtResize frmsize. kTop = 0.75 Left = 4.00 BackColor = 255,255,255 Height = 12.19 Width = 54.17 Name = "edtResize" commandbutton commandbutton cmdOk frmsize. `Caption = "\<OK" Top = 13.75 Left = 24.00 Height = 1.44 Width = 14.00 Name = "cmdOk" ;PROCEDURE Click ThisForm.HIDE Release thisform ENDPROC THISFORM Click, c:\vfp\samples\controls\objects\ 76560382.tmp c:\vfp\samples\controls\objects\76560382.tmp "Arial, 1, 10, 6, 16, 13, 15, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation KLeft = 100 Top = 198 Width = 581 Height = 281 Name = "Datanavigation" frmsize Top = 6.88 Left = 22.17 Height = 16.25 Width = 62.50 AutoCenter = .T. BackColor = 192,192,192 Caption = "Adjust Control Size and Position" Name = "frmsize" PROCEDURE Init #define INSTRUCTION_LOC "Drag the border of the form to resize." This.edtResize.Value = INSTRUCTION_LOC ENDPROC PROCEDURE Resize if This.Width < 50 THIS.Width = 50 ENDIF IF THIS.Height < 7 THIS.HEIGHT = 7 ENDIF This.edtResize.Width = This.Width - 10 This.edtResize.Height = This.Height - 5 This.cmdOK.Top = This.Height - 2.5 This.cmdOk.Left = (This.Width / 2) - (This.cmdOk.Width / 2) ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC Drag the border of the form to resize. THIS EDTRESIZE VALUE WIDTH HEIGHT EDTRESIZE CMDOK LEFT4 mainb Init, Resize Unload c:\vfp\samples\controls\objects\ 62576041.tmp c:\vfp\samples\controls\objects\62576041.tmp editbox editbox edtResize frmsize kBackColor = 255,255,255 Height = 12.19 Left = 4.00 Top = 0.75 Width = 54.17 Name = "edtResize" commandbutton commandbutton cmdOk frmsize `Top = 13.75 Left = 24.00 Height = 1.44 Width = 14.00 Caption = "\<OK" Name = "cmdOk" ;PROCEDURE Click ThisForm.HIDE Release thisform ENDPROC THISFORM Click, c:\vfp\samples\controls\objects\ 62576041.tmp c:\vfp\samples\controls\objects\62576041.tmp "Arial, 1, 10, 6, 16, 13, 15, 3, 0 mainb THIS EDTRESIZE WIDTH HEIGHT CMDOK LEFT< Drag the border of the form to resize. THIS EDTRESIZE VALUE Unload, Resizep Init) c:\vfp\samples\controls\objects\ cresize.scx c:\vfp\samples\controls\objects\cresize.scx THISFORM Click, c:\vfp\samples\controls\objects\ cresize.scx c:\vfp\samples\controls\objects\cresize.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QTX0RHI3U 490890797 17 18 19 20 21 WINDOWS _QRA0O39U4 495287301 22 23 24 25 27 514 WINDOWS _QRA0O39U5 496912053 46 47 48 49 50 WINDOWS _QRA0O39X6 484268491 54 55 56 57 58 WINDOWS _QRA0O39YK 495287204 63 64 65 66 67 71 525 WINDOWS _QRA0O3A3A 495287204 85 86 87 88 89 93 536 WINDOWS _QRA0O3A6C 495287093 107 108 109 110 111 114 546 WINDOWS _QRA0OL1WW 496912053 134 135 136 137 138 WINDOWS _QRA0OL1ZY 495287301 143 144 145 146 147 151 559 WINDOWS _QRA0OL230 495287301 166 167 168 169 170 175 570 WINDOWS _QRA0OL24E 495287301 189 190 191 192 193 197 581 WINDOWS _QRA0OL262 495287301 213 214 215 216 217 220 592 WINDOWS _QRA0OL27G 496261618 231 232 233 234 235 239 601 COMMENT FONTINFO 262 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" formset formset Formset1 &AutoRelease = .T. Name = "Formset1" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC mainb Unload, c:\vfp\samples\controls\objects\ 36309173.tmp c:\vfp\samples\controls\objects\36309173.tmp frmLeft Formset1. xScaleMode = 3 Caption = "Left Form" Top = 36 Left = 12 Height = 136 Width = 301 Closable = .F. Name = "frmLeft" textbox textbox txtInput Formset1.frmLeft. Top = 13 Left = 54 FontBold = .F. Value = User Input Height = 24 InputMask = "XXXXXXXXXXXXXXXXXXXXXXX" Width = 193 Name = "txtInput" checkbox checkbox chkItalic Formset1.frmLeft. cCaption = "Italic" Top = 54 Left = 67 Height = 15 Width = 90 Value = .F. Name = "chkItalic" EPROCEDURE Click ThisForm.txtInput.FontItalic = This.Value ENDPROC THISFORM TXTINPUT FONTITALIC VALUE Click, c:\vfp\samples\controls\objects\ 36309173.tmp c:\vfp\samples\controls\objects\36309173.tmp checkbox checkbox chkBold Formset1.frmLeft. `Caption = "Bold" Top = 53 Left = 190 Height = 15 Width = 90 Value = .F. Name = "chkBold" EPROCEDURE Click ThisForm.txtInput.FontBold = This.Value ENDPROC THISFORM TXTINPUT FONTBOLD VALUE Click, c:\vfp\samples\controls\objects\ 36309173.tmp c:\vfp\samples\controls\objects\36309173.tmp commandbutton commandbutton cmdClear Formset1.frmLeft. WCaption = "\<Clear" Top = 84 Left = 96 Height = 23 Width = 110 Name = "cmdClear" PROCEDURE Click ThisForm.txtInput.Value = "" ThisForm.txtInput.FontBold = .F. ThisForm.txtInput.FontItalic = .F. ThisForm.chkItalic.Value = .F. ThisForm.chkBold.Value = .F. ENDPROC THISFORM TXTINPUT VALUE FONTBOLD FONTITALIC CHKITALIC CHKBOLD Click, c:\vfp\samples\controls\objects\ 36309173.tmp c:\vfp\samples\controls\objects\36309173.tmp frmRight Formset1. ScaleMode = 3 Caption = "Right Form" Top = 11 Left = 339 Height = 235 Width = 231 BackColor = 192,192,192 Closable = .F. Name = "frmRight" commandbutton commandbutton cmdCaption1 Formset1.frmRight. kCaption = "Change Left Form Caption" Top = 17 Left = 15 Height = 23 Width = 200 Name = "cmdCaption1" ^PROCEDURE Click ThisFormSet.frmLeft.Caption = ThisFormSet.frmLeft.txtInput.Value ENDPROC THISFORMSET FRMLEFT CAPTION TXTINPUT VALUE Click, c:\vfp\samples\controls\objects\ 36309173.tmp c:\vfp\samples\controls\objects\36309173.tmp commandbutton commandbutton cmdCaption2 Formset1.frmRight. }Caption = "Change This Form's Caption" Top = 60 Left = 15 Height = 24 Width = 200 AutoSize = .T. Name = "cmdCaption2" SPROCEDURE Click ThisForm.Caption = ThisFormSet.frmLeft.txtInput.Value ENDPROC THISFORM CAPTION THISFORMSET FRMLEFT TXTINPUT VALUE Click, c:\vfp\samples\controls\objects\ 36309173.tmp c:\vfp\samples\controls\objects\36309173.tmp commandbutton commandbutton cmdChgBold Formset1.frmRight. fCaption = "Change Bold Setting" Top = 103 Left = 15 Height = 23 Width = 200 Name = "cmdChgBold" PROCEDURE Click ThisFormSet.frmLeft.chkBold.Value = NOT ThisFormSet.frmLeft.chkBold.Value ThisFormSet.frmLeft.chkBold.CLICK ENDPROC THISFORMSET FRMLEFT CHKBOLD VALUE CLICK Click, c:\vfp\samples\controls\objects\ 36309173.tmp c:\vfp\samples\controls\objects\36309173.tmp commandbutton commandbutton cmdQuit Formset1.frmRight. VCaption = "\<Quit" Top = 188 Left = 15 Height = 23 Width = 200 Name = "cmdQuit" 1PROCEDURE Click release thisformset ENDPROC THISFORMSET Click, c:\vfp\samples\controls\objects\ 36309173.tmp c:\vfp\samples\controls\objects\36309173.tmp commandbutton commandbutton cmdHideShow Formset1.frmRight. bCaption = "Hide Left Form" Top = 148 Left = 15 Height = 23 Width = 200 Name = "cmdHideShow" PROCEDURE Click #define SHOW_LOC "Show Left Form" #define HIDE_LOC "Hide Left Form" IF ThisFormSet.frmLeft.Visible ThisFormSet.frmLeft.Hide This.Caption = "Show Left Form" ThisFormSet.frmLeft.Show This.Caption = "Hide Left Form" ENDIF ENDPROC Show Left Form Hide Left Form THISFORMSET FRMLEFT VISIBLE CAPTION Click, c:\vfp\samples\controls\objects\ 36309173.tmp c:\vfp\samples\controls\objects\36309173.tmp DArial, 0, 10, 6, 16, 13, 16, 3, 0 Arial, 1, 10, 6, 16, 13, 15, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" formset formset Formset1 &AutoRelease = .T. Name = "Formset1" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC mainb Unload, c:\vfp\samples\controls\objects\ 80896044.tmp c:\vfp\samples\controls\objects\80896044.tmp frmLeft Formset1 hScaleMode = 3 Top = 36 Left = 12 Height = 136 Width = 301 Caption = "Left Form" Name = "frmLeft" textbox textbox txtInput Formset1.frmLeft FontBold = .F. Value = User Input Height = 24 InputMask = "XXXXXXXXXXXXXXXXXXXXXXX" Left = 54 Top = 13 Width = 193 Name = "txtInput" checkbox checkbox chkItalic Formset1.frmLeft cTop = 54 Left = 67 Height = 15 Width = 90 Caption = "Italic" Value = .F. Name = "chkItalic" EPROCEDURE Click ThisForm.txtInput.FontItalic = This.Value ENDPROC THISFORM TXTINPUT FONTITALIC VALUE Click, c:\vfp\samples\controls\objects\ 80896044.tmp c:\vfp\samples\controls\objects\80896044.tmp checkbox checkbox chkBold Formset1.frmLeft `Top = 53 Left = 190 Height = 15 Width = 90 Caption = "Bold" Value = .F. Name = "chkBold" EPROCEDURE Click ThisForm.txtInput.FontBold = This.Value ENDPROC THISFORM TXTINPUT FONTBOLD VALUE Click, c:\vfp\samples\controls\objects\ 80896044.tmp c:\vfp\samples\controls\objects\80896044.tmp commandbutton commandbutton cmdClear Formset1.frmLeft WTop = 84 Left = 96 Height = 23 Width = 110 Caption = "\<Clear" Name = "cmdClear" PROCEDURE Click ThisForm.txtInput.Value = "" ThisForm.txtInput.FontBold = .F. ThisForm.txtInput.FontItalic = .F. ThisForm.chkItalic.Value = .F. ThisForm.chkBold.Value = .F. ENDPROC THISFORM TXTINPUT VALUE FONTBOLD FONTITALIC CHKITALIC CHKBOLD Click, c:\vfp\samples\controls\objects\ 80896044.tmp c:\vfp\samples\controls\objects\80896044.tmp frmRight Formset1 ScaleMode = 3 Top = 11 Left = 339 Height = 235 Width = 231 BackColor = 192,192,192 Caption = "Right Form" Name = "frmRight" commandbutton commandbutton cmdCaption1 Formset1.frmRight kTop = 17 Left = 15 Height = 23 Width = 200 Caption = "Change Left Form Caption" Name = "cmdCaption1" ^PROCEDURE Click ThisFormSet.frmLeft.Caption = ThisFormSet.frmLeft.txtInput.Value ENDPROC THISFORMSET FRMLEFT CAPTION TXTINPUT VALUE Click, c:\vfp\samples\controls\objects\ 80896044.tmp c:\vfp\samples\controls\objects\80896044.tmp commandbutton commandbutton cmdCaption2 Formset1.frmRight }Top = 60 Left = 15 Height = 24 Width = 200 AutoSize = .T. Caption = "Change This Form's Caption" Name = "cmdCaption2" SPROCEDURE Click ThisForm.Caption = ThisFormSet.frmLeft.txtInput.Value ENDPROC THISFORM CAPTION THISFORMSET FRMLEFT TXTINPUT VALUE Click, c:\vfp\samples\controls\objects\ 80896044.tmp c:\vfp\samples\controls\objects\80896044.tmp commandbutton commandbutton cmdChgBold Formset1.frmRight fTop = 103 Left = 15 Height = 23 Width = 200 Caption = "Change Bold Setting" Name = "cmdChgBold" PROCEDURE Click ThisFormSet.frmLeft.chkBold.Value = NOT ThisFormSet.frmLeft.chkBold.Value ThisFormSet.frmLeft.chkBold.CLICK ENDPROC THISFORMSET FRMLEFT CHKBOLD VALUE CLICK Click, c:\vfp\samples\controls\objects\ 80896044.tmp c:\vfp\samples\controls\objects\80896044.tmp commandbutton commandbutton cmdQuit Formset1.frmRight VTop = 188 Left = 15 Height = 23 Width = 200 Caption = "\<Quit" Name = "cmdQuit" 1PROCEDURE Click release thisformset ENDPROC THISFORMSET Click, c:\vfp\samples\controls\objects\ 80896044.tmp c:\vfp\samples\controls\objects\80896044.tmp commandbutton commandbutton cmdHideShow Formset1.frmRight bTop = 148 Left = 15 Height = 23 Width = 200 Caption = "Hide Left Form" Name = "cmdHideShow" PROCEDURE Click #define SHOW_LOC "Show Left Form" #define HIDE_LOC "Hide Left Form" IF ThisFormSet.frmLeft.Visible ThisFormSet.frmLeft.Hide This.Caption = "Show Left Form" ThisFormSet.frmLeft.Show This.Caption = "Hide Left Form" ENDIF ENDPROC Show Left Form Hide Left Form THISFORMSET FRMLEFT VISIBLE CAPTION Click, c:\vfp\samples\controls\objects\ 80896044.tmp c:\vfp\samples\controls\objects\80896044.tmp DArial, 0, 10, 6, 16, 13, 16, 3, 0 Arial, 1, 10, 6, 16, 13, 15, 3, 0 mainb Unload, c:\vfp\samples\controls\objects\ objects.scx c:\vfp\samples\controls\objects\objects.scx THISFORM TXTINPUT FONTITALIC VALUE Click, c:\vfp\samples\controls\objects\ objects.scx c:\vfp\samples\controls\objects\objects.scx THISFORM TXTINPUT FONTBOLD VALUE Click, c:\vfp\samples\controls\objects\ objects.scx c:\vfp\samples\controls\objects\objects.scx THISFORM TXTINPUT VALUE FONTBOLD FONTITALIC CHKITALIC CHKBOLD Click, c:\vfp\samples\controls\objects\ objects.scx c:\vfp\samples\controls\objects\objects.scx THISFORMSET FRMLEFT CAPTION TXTINPUT VALUE Click, c:\vfp\samples\controls\objects\ objects.scx c:\vfp\samples\controls\objects\objects.scx THISFORM CAPTION THISFORMSET FRMLEFT TXTINPUT VALUE Click, c:\vfp\samples\controls\objects\ objects.scx c:\vfp\samples\controls\objects\objects.scx THISFORMSET FRMLEFT CHKBOLD VALUE CLICK Click, c:\vfp\samples\controls\objects\ objects.scx c:\vfp\samples\controls\objects\objects.scx THISFORMSET Click, c:\vfp\samples\controls\objects\ objects.scx c:\vfp\samples\controls\objects\objects.scx Show Left Form Hide Left Form THISFORMSET FRMLEFT VISIBLE CAPTION Click, c:\vfp\samples\controls\objects\ objects.scx c:\vfp\samples\controls\objects\objects.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QTT15OKKU 493774041 17 18 19 20 31 WINDOWS _QUL0HX24E 496785610 23 24 25 26 27 WINDOWS _QTT15OKL0 496785610 32 33 34 35 42 851 WINDOWS _QTT15OKLH 496785610 61 62 63 64 65 WINDOWS _QTT15OKMI 496785610 79 80 81 82 83 108 861 WINDOWS _QTT15OKNY 492785795 141 142 143 144 145 166 883 WINDOWS _QTT15OKPA 492785795 199 200 201 202 204 226 905 WINDOWS _QTU0MMHDB 492395229 261 262 263 264 265 WINDOWS _QTU0MMHDO 490834308 269 270 271 272 273 WINDOWS _QTU0MMHE6 496785610 281 282 283 284 285 290 927 WINDOWS _QTU0MMHEO 492785796 312 313 314 315 316 320 942 WINDOWS _QTU0MMHF5 492785796 342 343 344 345 346 350 957 WINDOWS _QTU0MMHFH 496785610 378 379 380 381 382 386 975 WINDOWS _QTU0MMHFY 492785796 414 415 416 417 418 422 993 COMMENT FONTINFO 433 VERSION = 0.028 dataenvironment dataenvironment Datanavigation KLeft = 103 Top = 200 Width = 615 Height = 326 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation. oLeft = 20 Top = 10 Width = 106 Height = 126 Alias = "pfsam2" CursorSource = pfsam2.dbf Name = "Cursor1" frmpgfsam1 ScaleMode = 3 Top = 103 Left = 107 Height = 275 Width = 426 AutoCenter = .T. BackColor = 192,192,192 Caption = "PageFrame Example - No Tabs" DataSession = 2 DefButton = DefButton Name = "frmpgfsam1" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC mainb Unload, j:\rodh\samples\controls\pgframe\ 03294785.tmp j:\rodh\samples\controls\pgframe\03294785.tmp pageframe pageframe pgfcolor frmpgfsam1. ErasePage = .T. PageCount = 3 BorderWidth = 3 BorderColor = 128,0,0 Top = 80 Left = 11 Height = 142 Width = 398 SpecialEffect = 2 Tabs = .F. TabIndex = 6 TabStop = .F. Name = "pgfcolor" Page1.Caption = "Page1" Page1.BackColor = 255,0,0 Page1.Name = "pgone" Page2.Caption = "Page2" Page2.BackColor = 128,0,0 Page2.Name = "pgtwo" Page3.Caption = "Page3" Page3.BackColor = 255,128,128 Page3.Name = "pgthree" optiongroup optiongroup opgpg1color frmpgfsam1.pgfcolor.pgone ButtonCount = 3 AutoSize = .F. BackColor = 192,192,192 Caption = "Optiongroup1" Height = 59 Left = 33 Top = 37 Width = 81 Name = "opgpg1color" Option1.BackColor = 192,192,192 Option1.Caption = "Red" Option1.Value = F Option1.Height = 15 Option1.Left = 5 Option1.SpecialEffect = 0 Option1.Style = 0 Option1.Top = 5 Option1.Width = 71 Option1.DisabledForeColor = 192,192,192 Option1.DisabledBackColor = 255,255,255 Option1.Name = "optpg1red" Option2.BackColor = 192,192,192 Option2.Caption = "Green" Option2.Height = 15 Option2.Left = 5 Option2.Top = 22 Option2.Width = 71 Option2.Name = "optpg1green" Option3.BackColor = 192,192,192 Option3.Caption = "Blue" Option3.Height = 15 Option3.Left = 5 Option3.Top = 39 Option3.Width = 71 Option3.Name = "optpg1blue" YPROCEDURE optpg1red.Click thisform.pgfcolor.pgone.backcolor=RGB(255,0,0) ENDPROC PROCEDURE optpg1red.Init thisform.pgfcolor.pgone.opgpg1color.optpg1red.value=1 ENDPROC PROCEDURE optpg1green.Click thisform.pgfcolor.pgone.backcolor=RGB(0,255,0) ENDPROC PROCEDURE optpg1blue.Click thisform.pgfcolor.pgone.backcolor=RGB(0,0,255) ENDPROC THISFORM PGFCOLOR PGONE BACKCOLOR THISFORM PGFCOLOR PGONE OPGPG1COLOR OPTPG1RED VALUE" THISFORM PGFCOLOR PGONE BACKCOLOR" THISFORM PGFCOLOR PGONE BACKCOLOR optpg1red.Click, optpg1red.Initx optpg1green.Click optpg1blue.Click! j:\rodh\samples\controls\pgframe\ 03294785.tmp j:\rodh\samples\controls\pgframe\03294785.tmp optiongroup optiongroup opgpg2color frmpgfsam1.pgfcolor.pgtwo ButtonCount = 3 AutoSize = .F. BackColor = 192,192,192 Caption = "Optiongroup1" Height = 59 Left = 141 Top = 37 Width = 81 Name = "opgpg2color" Option1.BackColor = 192,192,192 Option1.Caption = "Red" Option1.Value = F Option1.Height = 15 Option1.Left = 5 Option1.Top = 5 Option1.Width = 71 Option1.Name = "optpg2red" Option2.BackColor = 192,192,192 Option2.Caption = "Green" Option2.Height = 15 Option2.Left = 5 Option2.Top = 22 Option2.Width = 71 Option2.Name = "optpg2green" Option3.BackColor = 192,192,192 Option3.Caption = "Blue" Option3.Height = 15 Option3.Left = 5 Option3.Top = 39 Option3.Width = 71 Option3.Name = "optpg2blue" _PROCEDURE optpg2red.Click Thisform.pgfcolor.pgtwo.backcolor = RGB(128,0,0) ENDPROC PROCEDURE optpg2red.Init Thisform.pgfcolor.pgtwo.opgpg2color.optpg2red.value=1 ENDPROC PROCEDURE optpg2green.Click Thisform.pgfcolor.pgtwo.backcolor = RGB(0,128,0) ENDPROC PROCEDURE optpg2blue.Click Thisform.pgfcolor.pgtwo.backcolor = RGB(0,0,128) ENDPROC THISFORM PGFCOLOR PGTWO BACKCOLOR THISFORM PGFCOLOR PGTWO OPGPG2COLOR OPTPG2RED VALUE" THISFORM PGFCOLOR PGTWO BACKCOLOR" THISFORM PGFCOLOR PGTWO BACKCOLOR optpg2red.Click, optpg2red.Initx optpg2green.Click optpg2blue.Click! j:\rodh\samples\controls\pgframe\ 03294785.tmp j:\rodh\samples\controls\pgframe\03294785.tmp optiongroup optiongroup opgpg3color frmpgfsam1.pgfcolor.pgthree. ButtonCount = 3 AutoSize = .F. BackColor = 192,192,192 Caption = "Optiongroup1" Value = 0 Height = 59 Left = 261 Top = 37 Width = 81 Name = "opgpg3color" Option1.BackColor = 192,192,192 Option1.Caption = "Red" Option1.Value = F Option1.Height = 15 Option1.Left = 5 Option1.Top = 5 Option1.Width = 71 Option1.Name = "optpg3red" Option2.BackColor = 192,192,192 Option2.Caption = "Green" Option2.Value = F Option2.Height = 15 Option2.Left = 5 Option2.Top = 22 Option2.Width = 71 Option2.Name = "optpg3green" Option3.BackColor = 192,192,192 Option3.Caption = "Blue" Option3.Value = F Option3.Height = 15 Option3.Left = 5 Option3.Top = 39 Option3.Width = 71 Option3.Name = "optpg3blue" hPROCEDURE optpg3red.Click thisform.pgfcolor.pgthree.backcolor=RGB(255,128,128) ENDPROC PROCEDURE optpg3red.Init Thisform.pgfcolor.pgthree.opgpg3color.optpg3red.value=1 ENDPROC PROCEDURE optpg3green.Click thisform.pgfcolor.pgthree.backcolor=RGB(0,255,64) ENDPROC PROCEDURE optpg3blue.Click thisform.pgfcolor.pgthree.backcolor=RGB(0,128,255) ENDPROC THISFORM PGFCOLOR PGTHREE BACKCOLOR THISFORM PGFCOLOR PGTHREE OPGPG3COLOR OPTPG3RED VALUE" THISFORM PGFCOLOR PGTHREE BACKCOLOR" THISFORM PGFCOLOR PGTHREE BACKCOLOR optpg3red.Click, optpg3red.Initz optpg3green.Click optpg3blue.Click' j:\rodh\samples\controls\pgframe\ 03294785.tmp j:\rodh\samples\controls\pgframe\03294785.tmp image image Imgfox frmpgfsam1. {Picture = (sys(2004)+'fox.bmp') BackStyle = 1 Height = 63 Left = 30 Stretch = 2 Top = 9 Width = 74 Name = "Imgfox" textbox textbox Txtpgnum frmpgfsam1. BackColor = 192,192,192 ControlSource = "pfsam2.text" Enabled = .F. Height = 61 Left = 144 ReadOnly = .T. TabIndex = 0 Top = 12 Width = 241 DisabledForeColor = 0,0,0 DisabledBackColor = 255,255,255 Name = "Txtpgnum" commandbutton commandbutton cmdtop frmpgfsam1. Top = 228 Left = 12 Height = 37 Width = 73 Caption = "1st Page" Default = .F. Enabled = .F. TabIndex = 1 Name = "cmdtop" PROCEDURE Click Goto 1 thisform.txtpgnum.refresh thisform.pgfcolor.pgone.zorder thisform.cmdtop.enabled=.F. thisform.cmdback.enabled=.F. thisform.cmdbottom.enabled=.T. thisform.cmdnext.enabled=.T. ENDPROC THISFORM TXTPGNUM REFRESH PGFCOLOR PGONE ZORDER CMDTOP ENABLED CMDBACK CMDBOTTOM CMDNEXT Click, j:\rodh\samples\controls\pgframe\ 03294785.tmp j:\rodh\samples\controls\pgframe\03294785.tmp commandbutton commandbutton cmdbottom frmpgfsam1. iTop = 228 Left = 264 Height = 37 Width = 73 Caption = "Last Page" TabIndex = 4 Name = "cmdbottom" PROCEDURE Click Goto 3 thisform.txtpgnum.refresh Thisform.pgfcolor.pgthree.zorder Thisform.cmdbottom.enabled=.F. Thisform.cmdnext.enabled=.F. Thisform.cmdtop.enabled=.T. Thisform.cmdback.enabled=.T. ENDPROC THISFORM TXTPGNUM REFRESH PGFCOLOR PGTHREE ZORDER CMDBOTTOM ENABLED CMDNEXT CMDTOP CMDBACK Click, j:\rodh\samples\controls\pgframe\ 03294785.tmp j:\rodh\samples\controls\pgframe\03294785.tmp commandbutton commandbutton cmdnext frmpgfsam1. bTop = 228 Left = 180 Height = 37 Width = 73 Caption = "Next" TabIndex = 3 Name = "cmdnext" ;PROCEDURE Click var1=thisform.pgfcolor.activepage skip 1 thisform.txtpgnum.refresh If var1 = 1 thisform.pgfcolor.pgtwo.zorder thisform.cmdtop.enabled=.T. thisform.cmdback.enabled=.T. thisform.pgfcolor.pgthree.zorder thisform.cmdnext.enabled=.F. thisform.cmdbottom.enabled=.F. endif ENDPROC THISFORM PGFCOLOR ACTIVEPAGE TXTPGNUM REFRESH PGTWO ZORDER CMDTOP ENABLED CMDBACK PGTHREE CMDNEXT CMDBOTTOM Click, j:\rodh\samples\controls\pgframe\ 03294785.tmp j:\rodh\samples\controls\pgframe\03294785.tmp commandbutton commandbutton cmdback frmpgfsam1. pTop = 228 Left = 96 Height = 37 Width = 73 Caption = "Back" Enabled = .F. TabIndex = 2 Name = "cmdback" :PROCEDURE Click var1=thisform.pgfcolor.activepage skip -1 thisform.txtpgnum.refresh If var1 = 2 thisform.pgfcolor.pgone.zorder thisform.cmdtop.enabled=.F. thisform.cmdback.enabled=.F. thisform.pgfcolor.pgtwo.zorder thisform.cmdbottom.enabled=.T. thisform.cmdnext.enabled=.T. endif ENDPROC THISFORM PGFCOLOR ACTIVEPAGE TXTPGNUM REFRESH PGONE ZORDER CMDTOP ENABLED CMDBACK PGTWO CMDBOTTOM CMDNEXT Click, j:\rodh\samples\controls\pgframe\ 03294785.tmp j:\rodh\samples\controls\pgframe\03294785.tmp commandbutton commandbutton cmdexit frmpgfsam1. qTop = 228 Left = 348 Height = 37 Width = 73 Caption = "Exit" Default = .T. TabIndex = 5 Name = "cmdexit" ,PROCEDURE Click RELEASE THISFORM ENDPROC THISFORM Click, j:\rodh\samples\controls\pgframe\ 03294785.tmp j:\rodh\samples\controls\pgframe\03294785.tmp "Arial, 1, 10, 6, 16, 13, 14, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation KLeft = 103 Top = 200 Width = 615 Height = 326 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation oLeft = 20 Top = 10 Width = 106 Height = 126 Alias = "pfsam2" CursorSource = pfsam2.dbf Name = "Cursor1" frmpgfsam1 ScaleMode = 3 Top = 18 Left = 55 Height = 275 Width = 426 AutoCenter = .T. BackColor = 192,192,192 Caption = "PageFrame Example - No Tabs" DataSession = 2 DefButton = DefButton Name = "frmpgfsam1" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC mainb Unload, c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx pageframe pageframe pgfcolor frmpgfsam1 ErasePage = .T. PageCount = 3 BorderWidth = 3 BorderColor = 128,0,0 Top = 80 Left = 11 Height = 141 Width = 398 SpecialEffect = 2 Tabs = .F. TabIndex = 6 TabStop = .F. Name = "pgfcolor" Page1.Caption = "Page1" Page1.BackColor = 255,0,0 Page1.Name = "pgone" Page2.Caption = "Page2" Page2.BackColor = 128,0,0 Page2.Name = "pgtwo" Page3.Caption = "Page3" Page3.BackColor = 255,128,128 Page3.Name = "pgthree" optiongroup optiongroup opgpg1color frmpgfsam1.pgfcolor.pgone ButtonCount = 3 AutoSize = .F. BackColor = 192,192,192 Caption = "Optiongroup1" Height = 59 Left = 33 Top = 37 Width = 81 Name = "opgpg1color" Option1.BackColor = 192,192,192 Option1.Caption = "Red" Option1.Value = F Option1.Height = 15 Option1.Left = 5 Option1.SpecialEffect = 0 Option1.Style = 0 Option1.Top = 5 Option1.Width = 71 Option1.DisabledForeColor = 192,192,192 Option1.DisabledBackColor = 255,255,255 Option1.Name = "optpg1red" Option2.BackColor = 192,192,192 Option2.Caption = "Green" Option2.Height = 15 Option2.Left = 5 Option2.Top = 22 Option2.Width = 71 Option2.Name = "optpg1green" Option3.BackColor = 192,192,192 Option3.Caption = "Blue" Option3.Height = 15 Option3.Left = 5 Option3.Top = 39 Option3.Width = 71 Option3.Name = "optpg1blue" YPROCEDURE optpg1red.Click thisform.pgfcolor.pgone.backcolor=RGB(255,0,0) ENDPROC PROCEDURE optpg1red.Init thisform.pgfcolor.pgone.opgpg1color.optpg1red.value=1 ENDPROC PROCEDURE optpg1green.Click thisform.pgfcolor.pgone.backcolor=RGB(0,255,0) ENDPROC PROCEDURE optpg1blue.Click thisform.pgfcolor.pgone.backcolor=RGB(0,0,255) ENDPROC THISFORM PGFCOLOR PGONE BACKCOLOR THISFORM PGFCOLOR PGONE OPGPG1COLOR OPTPG1RED VALUE" THISFORM PGFCOLOR PGONE BACKCOLOR" THISFORM PGFCOLOR PGONE BACKCOLOR optpg1red.Click, optpg1red.Initx optpg1green.Click optpg1blue.Click! c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx optiongroup optiongroup opgpg2color frmpgfsam1.pgfcolor.pgtwo ButtonCount = 3 AutoSize = .F. BackColor = 192,192,192 Caption = "Optiongroup1" Height = 59 Left = 141 Top = 37 Width = 81 Name = "opgpg2color" Option1.BackColor = 192,192,192 Option1.Caption = "Red" Option1.Value = F Option1.Height = 15 Option1.Left = 5 Option1.Top = 5 Option1.Width = 71 Option1.Name = "optpg2red" Option2.BackColor = 192,192,192 Option2.Caption = "Green" Option2.Height = 15 Option2.Left = 5 Option2.Top = 22 Option2.Width = 71 Option2.Name = "optpg2green" Option3.BackColor = 192,192,192 Option3.Caption = "Blue" Option3.Height = 15 Option3.Left = 5 Option3.Top = 39 Option3.Width = 71 Option3.Name = "optpg2blue" _PROCEDURE optpg2red.Click Thisform.pgfcolor.pgtwo.backcolor = RGB(128,0,0) ENDPROC PROCEDURE optpg2red.Init Thisform.pgfcolor.pgtwo.opgpg2color.optpg2red.value=1 ENDPROC PROCEDURE optpg2green.Click Thisform.pgfcolor.pgtwo.backcolor = RGB(0,128,0) ENDPROC PROCEDURE optpg2blue.Click Thisform.pgfcolor.pgtwo.backcolor = RGB(0,0,128) ENDPROC THISFORM PGFCOLOR PGTWO BACKCOLOR THISFORM PGFCOLOR PGTWO OPGPG2COLOR OPTPG2RED VALUE" THISFORM PGFCOLOR PGTWO BACKCOLOR" THISFORM PGFCOLOR PGTWO BACKCOLOR optpg2red.Click, optpg2red.Initx optpg2green.Click optpg2blue.Click! c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx optiongroup optiongroup opgpg3color frmpgfsam1.pgfcolor.pgthree ButtonCount = 3 AutoSize = .F. BackColor = 192,192,192 Caption = "Optiongroup1" Value = 0 Height = 59 Left = 261 Top = 37 Width = 81 Name = "opgpg3color" Option1.BackColor = 192,192,192 Option1.Caption = "Red" Option1.Value = F Option1.Height = 15 Option1.Left = 5 Option1.Top = 5 Option1.Width = 71 Option1.Name = "optpg3red" Option2.BackColor = 192,192,192 Option2.Caption = "Green" Option2.Value = F Option2.Height = 15 Option2.Left = 5 Option2.Top = 22 Option2.Width = 71 Option2.Name = "optpg3green" Option3.BackColor = 192,192,192 Option3.Caption = "Blue" Option3.Value = F Option3.Height = 15 Option3.Left = 5 Option3.Top = 39 Option3.Width = 71 Option3.Name = "optpg3blue" hPROCEDURE optpg3red.Click thisform.pgfcolor.pgthree.backcolor=RGB(255,128,128) ENDPROC PROCEDURE optpg3red.Init Thisform.pgfcolor.pgthree.opgpg3color.optpg3red.value=1 ENDPROC PROCEDURE optpg3green.Click thisform.pgfcolor.pgthree.backcolor=RGB(0,255,64) ENDPROC PROCEDURE optpg3blue.Click thisform.pgfcolor.pgthree.backcolor=RGB(0,128,255) ENDPROC THISFORM PGFCOLOR PGTHREE BACKCOLOR THISFORM PGFCOLOR PGTHREE OPGPG3COLOR OPTPG3RED VALUE" THISFORM PGFCOLOR PGTHREE BACKCOLOR" THISFORM PGFCOLOR PGTHREE BACKCOLOR optpg3red.Click, optpg3red.Initz optpg3green.Click optpg3blue.Click' c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx image image Imgfox frmpgfsam1 {Picture = (sys(2004)+'fox.bmp') BackStyle = 1 Height = 63 Left = 30 Stretch = 2 Top = 9 Width = 74 Name = "Imgfox" textbox textbox Txtpgnum frmpgfsam1 BackColor = 192,192,192 ControlSource = "pfsam2.text" Enabled = .F. Height = 61 Left = 144 ReadOnly = .T. TabIndex = 0 Top = 12 Width = 241 DisabledForeColor = 0,0,0 DisabledBackColor = 255,255,255 Name = "Txtpgnum" commandbutton commandbutton cmdtop frmpgfsam1 sTop = 228 Left = 12 Height = 37 Width = 73 Caption = "1st Page" Default = .F. TabIndex = 1 Name = "cmdtop" PROCEDURE Click Goto 1 thisform.txtpgnum.refresh thisform.pgfcolor.pgone.zorder thisform.cmdtop.enabled=.F. thisform.cmdback.enabled=.F. thisform.cmdbottom.enabled=.T. thisform.cmdnext.enabled=.T. ENDPROC THISFORM TXTPGNUM REFRESH PGFCOLOR PGONE ZORDER CMDTOP ENABLED CMDBACK CMDBOTTOM CMDNEXT Click, c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx commandbutton commandbutton cmdbottom frmpgfsam1 iTop = 228 Left = 264 Height = 37 Width = 73 Caption = "Last Page" TabIndex = 4 Name = "cmdbottom" PROCEDURE Click Goto 3 thisform.txtpgnum.refresh Thisform.pgfcolor.pgthree.zorder Thisform.cmdbottom.enabled=.F. Thisform.cmdnext.enabled=.F. Thisform.cmdtop.enabled=.T. Thisform.cmdback.enabled=.T. ENDPROC THISFORM TXTPGNUM REFRESH PGFCOLOR PGTHREE ZORDER CMDBOTTOM ENABLED CMDNEXT CMDTOP CMDBACK Click, c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx commandbutton commandbutton cmdnext frmpgfsam1 bTop = 228 Left = 180 Height = 37 Width = 73 Caption = "Next" TabIndex = 3 Name = "cmdnext" ;PROCEDURE Click var1=thisform.pgfcolor.activepage skip 1 thisform.txtpgnum.refresh If var1 = 1 thisform.pgfcolor.pgtwo.zorder thisform.cmdtop.enabled=.T. thisform.cmdback.enabled=.T. thisform.pgfcolor.pgthree.zorder thisform.cmdnext.enabled=.F. thisform.cmdbottom.enabled=.F. endif ENDPROC THISFORM PGFCOLOR ACTIVEPAGE TXTPGNUM REFRESH PGTWO ZORDER CMDTOP ENABLED CMDBACK PGTHREE CMDNEXT CMDBOTTOM Click, c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx commandbutton commandbutton cmdback frmpgfsam1 aTop = 228 Left = 96 Height = 37 Width = 73 Caption = "Back" TabIndex = 2 Name = "cmdback" :PROCEDURE Click var1=thisform.pgfcolor.activepage skip -1 thisform.txtpgnum.refresh If var1 = 2 thisform.pgfcolor.pgone.zorder thisform.cmdtop.enabled=.F. thisform.cmdback.enabled=.F. thisform.pgfcolor.pgtwo.zorder thisform.cmdbottom.enabled=.T. thisform.cmdnext.enabled=.T. endif ENDPROC THISFORM PGFCOLOR ACTIVEPAGE TXTPGNUM REFRESH PGONE ZORDER CMDTOP ENABLED CMDBACK PGTWO CMDBOTTOM CMDNEXT Click, c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx commandbutton commandbutton cmdexit frmpgfsam1 qTop = 228 Left = 348 Height = 37 Width = 73 Caption = "Exit" Default = .T. TabIndex = 5 Name = "cmdexit" ,PROCEDURE Click RELEASE THISFORM ENDPROC THISFORM Click, c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx "Arial, 1, 10, 6, 16, 13, 15, 3, 0 mainb Unload, c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx THISFORM PGFCOLOR PGONE BACKCOLOR THISFORM PGFCOLOR PGONE OPGPG1COLOR OPTPG1RED VALUE" THISFORM PGFCOLOR PGONE BACKCOLOR" THISFORM PGFCOLOR PGONE BACKCOLOR optpg1red.Click, optpg1red.Initx optpg1green.Click optpg1blue.Click! c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx THISFORM PGFCOLOR PGTWO BACKCOLOR THISFORM PGFCOLOR PGTWO OPGPG2COLOR OPTPG2RED VALUE" THISFORM PGFCOLOR PGTWO BACKCOLOR" THISFORM PGFCOLOR PGTWO BACKCOLOR optpg2red.Click, optpg2red.Initx optpg2green.Click optpg2blue.Click! c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx THISFORM PGFCOLOR PGTHREE BACKCOLOR THISFORM PGFCOLOR PGTHREE OPGPG3COLOR OPTPG3RED VALUE" THISFORM PGFCOLOR PGTHREE BACKCOLOR" THISFORM PGFCOLOR PGTHREE BACKCOLOR optpg3red.Click, optpg3red.Initz optpg3green.Click optpg3blue.Click' c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx THISFORM TXTPGNUM REFRESH PGFCOLOR PGONE ZORDER CMDTOP ENABLED CMDBACK CMDBOTTOM CMDNEXT Click, c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx THISFORM TXTPGNUM REFRESH PGFCOLOR PGTHREE ZORDER CMDBOTTOM ENABLED CMDNEXT CMDTOP CMDBACK Click, c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx THISFORM PGFCOLOR ACTIVEPAGE TXTPGNUM REFRESH PGTWO ZORDER CMDTOP ENABLED CMDBACK PGTHREE CMDNEXT CMDBOTTOM Click, c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx THISFORM PGFCOLOR ACTIVEPAGE TXTPGNUM REFRESH PGONE ZORDER CMDTOP ENABLED CMDBACK PGTWO CMDBOTTOM CMDNEXT Click, c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx THISFORM Click, c:\vfp\samples\controls\pgframe\ pfsam2.scx c:\vfp\samples\controls\pgframe\pfsam2.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QTV119FVT 492001508 17 18 19 20 23 WINDOWS _QTV119FW2 496261177 24 25 26 27 33 236 52 WINDOWS _QTV119FXF 496261177 53 54 55 56 57 60 246 WINDOWS _QTV119FZ1 492001508 106 107 108 109 110 113 263 COMMENT FONTINFO 124 VERSION = 0.028 dataenvironment dataenvironment Datanavigation ILeft = 72 Top = 56 Width = 581 Height = 266 Name = "Datanavigation" frmlauncher ScaleMode = 3 Top = 196 Left = 262 Height = 88 Width = 117 AutoCenter = .T. BackColor = 192,192,192 Caption = "Launcher" MaxButton = .F. MinButton = .F. Name = "frmlauncher" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC mainb Unload, c:\vfp\samples\controls\objects\ 80069746.tmp c:\vfp\samples\controls\objects\80069746.tmp ^aforms[1,0] commandbutton commandbutton cmdLaunch frmlauncher. [Top = 11 Left = 12 Height = 23 Width = 97 Caption = "Launch Form" Name = "cmdLaunch" PROCEDURE Click #define INSTANCE_LOC "Instance " nInstance = ALEN(THISFORM.aForms) * Run the form and assign the object variable to the array element * The Linked keyword indicates that all instances will be released when * the array is released. Without 'LINKED', the multiple instance forms * would persist after the array is released DO FORM Multi NAME THISFORM.aForms[nInstance] LINKED *Set the caption to reflect the instance number THISFORM.aForms[nInstance].Caption = INSTANCE_LOC + ; ALLTRIM(STR(nInstance)) *Set the Top and Left Properties to Cascade the new Forms THISFORM.aForms[nInstance].Top = THISFORM.aForms[nInstance].Top + nInstance THISFORM.aForms[nInstance].Left = THISFORM.aForms[nInstance].Left + nInstance THISFORM.aForms[nInstance].Visible = .T. *Redimension the array so that more instances of the form can be launched DIMENSION THISFORM.aforms[nInstance + 1] ENDPROC MultiJ Instance CC NINSTANCE THISFORM AFORMS MULTI CAPTION VISIBLE Click, c:\vfp\samples\controls\objects\ 80069746.tmp c:\vfp\samples\controls\objects\80069746.tmp commandbutton commandbutton cmdQuit frmlauncher. RTop = 48 Left = 12 Height = 23 Width = 97 Caption = "Quit" Name = "cmdQuit" .PROCEDURE Click RELEASE THISFORM ENDPROC THISFORM Click, c:\vfp\samples\controls\objects\ 80069746.tmp c:\vfp\samples\controls\objects\80069746.tmp "Arial, 1, 10, 6, 16, 13, 15, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation ILeft = 72 Top = 56 Width = 581 Height = 266 Name = "Datanavigation" frmlauncher ScaleMode = 3 Top = 256 Left = 342 Height = 88 Width = 117 AutoCenter = .T. BackColor = 192,192,192 Caption = "Launcher" MaxButton = .F. MinButton = .F. Name = "frmlauncher" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC ENDPROC ENDPROC ENDPROC mainb Unload, c:\vfp\samples\controls\objects\ launch.scx c:\vfp\samples\controls\objects\launch.scx ^aforms[1,0] commandbutton commandbutton cmdLaunch frmlauncher [Top = 11 Left = 12 Height = 23 Width = 97 Caption = "Launch Form" Name = "cmdLaunch" }PROCEDURE Click nInstance = ALEN(THISFORM.aForms) * Run the form and assign the object variable to the array element * The Linked keyword indicates that all instances will be released when * the array is released. Without 'LINKED', the multiple instance forms * would persist after the array is released DO FORM Multi NAME THISFORM.aForms[nInstance] LINKED *Set the caption to reflect the instance number THISFORM.aForms[nInstance].Caption = "Instance " + ; ALLTRIM(STR(nInstance)) *Set the Top and Left Properties to Cascade the new Forms THISFORM.aForms[nInstance].Top = THISFORM.aForms[nInstance].Top + nInstance THISFORM.aForms[nInstance].Left = THISFORM.aForms[nInstance].Left + nInstance THISFORM.aForms[nInstance].Visible = .T. *Redimension the array so that more instances of the form can be launched DIMENSION THISFORM.aforms[nInstance + 1] ENDPROC MultiJ Instance CC NINSTANCE THISFORM AFORMS MULTI CAPTION VISIBLE Click, c:\vfp\samples\controls\objects\ launch.scx c:\vfp\samples\controls\objects\launch.scx commandbutton commandbutton cmdQuit frmlauncher RTop = 48 Left = 12 Height = 23 Width = 97 Caption = "Quit" Name = "cmdQuit" RPROCEDURE Click RELEASE THISFORM ENDPROC ENDPROC ENDPROC ENDPROC ENDPROC THISFORM Click, c:\vfp\samples\controls\objects\ launch.scx c:\vfp\samples\controls\objects\launch.scx "Arial, 1, 10, 6, 16, 13, 15, 3, 0 mainb Unload, c:\vfp\samples\controls\objects\ launch.scx c:\vfp\samples\controls\objects\launch.scx MultiJ Instance CC NINSTANCE THISFORM AFORMS MULTI CAPTION VISIBLE Click, c:\vfp\samples\controls\objects\ launch.scx c:\vfp\samples\controls\objects\launch.scx THISFORM Click, c:\vfp\samples\controls\objects\ launch.scx c:\vfp\samples\controls\objects\launch.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 0 8 WINDOWS _QUK0UO435 495939165 9 10 11 12 14 WINDOWS _QVZ0TOLYI 495939240 15 16 17 18 19 WINDOWS _QTV11FNM7 495939240 22 23 24 25 WINDOWS _QTV11FNO0 495939064 29 30 31 32 33 WINDOWS _QTV11FNPB 495939064 35 36 37 38 39 WINDOWS _QUE0MEYLZ 495939240 42 43 44 45 46 47 52 WINDOWS _QVP0UG35F 495284618 53 54 55 56 57 59 66 COMMENT FONTINFO 0 60 VERSION = 0.028 dataenvironment dataenvironment Dataenvironment LLeft = 104 Top = 199 Width = 623 Height = 352 Name = "Dataenvironment" cursor cursor cursor1 Dataenvironment Left = 20 Top = 10 Width = 98 Height = 108 Alias = "employee" Database = ..\..\data\testdata.dbc CursorSource = "employee" Name = "cursor1" frmmulti ScaleMode = 0 BufferMode = 0 Top = 1.00 Left = 2.00 Height = 6.63 Width = 54.67 BackColor = 192,192,192 Caption = "Multiple Instances" Visible = .F. DataSession = 2 Name = "frmmulti" editbox editbox last_name frmmulti xHeight = 1.50 Left = 28.00 Top = 1.50 Width = 24.17 ControlSource = "employee.last_name" Name = "last_name" editbox editbox first_name frmmulti zHeight = 1.50 Left = 2.00 Top = 1.50 Width = 24.17 ControlSource = "employee.first_name" Name = "first_name" ..\buttons.vcx container frmmulti ,Top = 4.00 Left = 6.67 Width = 30.17 Height = 1.63 Visible = .T. skiptable = (Space(1)) Name = "Vcr1" cmdTop.Top = 0.00 cmdTop.Left = 0.00 cmdPrior.Top = 0.00 cmdPrior.Left = 8.00 cmdNext.Top = 0.00 cmdNext.Left = 16.00 cmdBottom.Top = 0.00 cmdBottom.Left = 24.00 generic vcr buttons commandbutton commandbutton command1 frmmulti qTop = 4.00 Left = 38.50 Height = 1.50 Width = 6.83 AutoSize = .T. Caption = "OK" Name = "command1" .PROCEDURE Click RELEASE THISFORM ENDPROC "Arial, 1, 10, 6, 16, 13, 15, 3, 0 THISFORM Click, c:\vfp\samples\controls\objects\ multi.scx c:\vfp\samples\controls\objects\multi.scx THISFORM Click, c:\vfp\samples\controls\objects\ multi.scx c:\vfp\samples\controls\objects\multi.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QTY0S7T3Y 490957114 17 18 19 20 21 WINDOWS _QTY0S7T47 506034810 22 23 24 25 31 856 87 WINDOWS _QTY0S7TG1 506034754 92 93 94 95 96 99 881 WINDOWS _QVP0Q3BH3 506034754 110 111 112 113 114 123 890 WINDOWS _QVP0Q3BIH 506034754 179 180 181 182 183 193 923 WINDOWS _QVP0Q3BJV 506034754 243 244 245 246 247 251 953 WINDOWS _QVP0Q3BLJ 506034754 280 281 282 283 284 288 969 WINDOWS _QVP0Q3BN7 506034754 308 309 310 311 312 316 983 WINDOWS _QVP0Q3BO1 506034754 343 344 345 346 347 351 999 WINDOWS _QVP0Q3BOV 506034754 372 373 374 375 376 382 1013 WINDOWS _QVP0Q3BRD 506034754 403 404 405 406 407 WINDOWS _QVP0Q3BT1 506034754 411 412 413 414 415 WINDOWS _QVZ0ZZ7TW 506034754 419 420 421 422 423 COMMENT FONTINFO 433 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" frmmover ScaleMode = 3 Caption = "Mover List Boxes" ShowTips = .T. Top = 0 Left = 0 Height = 276 Width = 440 AutoCenter = .F. BackColor = 192,192,192 Name = "frmmover" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC PROCEDURE Init #define ONE_LOC "one" #define TWO_LOC "two" #define THREE_LOC "three" #define FOUR_LOC "four" #define FIVE_LOC "five" #define SIX_LOC "six" #define SEVEN_LOC "seven" #define EIGHT_LOC "eight" #define NINE_LOC "nine" #define TEN_LOC "ten" This.lstSource.AddItem (ONE_LOC) This.lstSource.AddItem (TWO_LOC) This.lstSource.AddItem(THREE_LOC) This.lstSource.AddItem (FOUR_LOC) This.lstSource.AddItem (FIVE_LOC) This.lstSource.AddItem (SIX_LOC) This.lstSource.AddItem (SEVEN_LOC) This.lstSource.AddItem (EIGHT_LOC) This.lstSource.AddItem (NINE_LOC) This.lstSource.AddItem (TEN_LOC) This.AutoCenter = .T. This.CanDropIcon = (SYS(2004) + "samples\controls\dragmove.cur") This.NoDropIcon = (SYS(2004) + "samples\controls\nodrop01.cur") ENDPROC mainb SHOW` three seven eight samples\controls\dragmove.cur samples\controls\nodrop01.cur THIS LSTSOURCE ADDITEM AUTOCENTER CANDROPICON NODROPICON Unload, Initp c:\vfp\samples\controls\lists\ 00000029.tmp c:\vfp\samples\controls\lists\00000029.tmp candropicon DragIcon to be displayed over valid drop targets. nodropicon DragIcon to be displayed over invalid drop targets. commandbutton commandbutton cmdOK frmmover. RCaption = "\<OK" Top = 247 Left = 178 Height = 23 Width = 84 Name = "cmdOK" .PROCEDURE Click RELEASE THISFORM ENDPROC THISFORM Click, c:\vfp\samples\controls\lists\ 00000029.tmp c:\vfp\samples\controls\lists\00000029.tmp listbox listbox lstSource frmmover. Top = 24 Left = 12 ColumnCount = 0 ColumnWidths = "" RowSourceType = 0 RowSource = "" ControlSource = "" DragIcon = ..\..\..\misc\cursors\dragmove.cur DragMode = 0 FirstElement = 1 Height = 132 MultiSelect = .T. NumberOfElements = 0 Width = 169 Name = "lstSource" PROCEDURE DragOver Parameters oSource, nXCoord, nYCoord, nState DO CASE CASE nState = 0 && Enter oSource.DragIcon = This.Parent.CanDropIcon CASE nState = 1 && Leave oSource.DragIcon = This.Parent.NoDropIcon ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF nButton = 2 && Right Mouse Button THIS.Drag ENDIF ENDPROC PROCEDURE DragDrop Parameters oSource, nXCoord, nYCoord IF oSource.Name != THIS.Name THISFORM.cmdRemove.Click ENDIF FOR i = 1 TO This.Parent.lstSelected.ListCount This.Parent.lstSelected.Selected(i) = .F. ENDFOR ENDPROC PROCEDURE DblClick ThisForm.lstSelected.AddItem(This.List(This.ListIndex)) This.RemoveItem(This.ListIndex) ThisForm.Refresh ENDPROC OSOURCE NXCOORD NYCOORD NSTATE DRAGICON PARENT CANDROPICON NODROPICON5 NBUTTON NSHIFT NXCOORD NYCOORD DRAGx OSOURCE NXCOORD NYCOORD THISFORM CMDREMOVE CLICK PARENT LSTSELECTED LISTCOUNT SELECTED= THISFORM LSTSELECTED ADDITEM LIST LISTINDEX REMOVEITEM REFRESH DragOver, MouseDown DragDropa DblClickM c:\vfp\samples\controls\lists\ 00000029.tmp c:\vfp\samples\controls\lists\00000029.tmp listbox listbox lstSelected frmmover. +Top = 24 Left = 252 ColumnCount = 0 ColumnWidths = "" RowSourceType = 0 RowSource = "" ControlSource = "" DragIcon = ..\..\..\misc\cursors\dragmove.cur DragMode = 0 FirstElement = 1 Height = 132 MoverBars = .T. MultiSelect = .T. NumberOfElements = 0 Width = 169 Name = "lstSelected" PROCEDURE DragOver Parameters oSource, nXCoord, nYCoord, nState DO CASE CASE nState = 0 && Enter oSource.DragIcon = This.Parent.CanDropIcon CASE nState = 1 && Leave oSource.DragIcon = This.Parent.NoDropIcon ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF nButton = 2 && Right Mouse Button THIS.Drag ENDIF ENDPROC PROCEDURE DragDrop Parameters oSource, nXCoord, nYCoord IF oSource.Name != THIS.Name ThisForm.cmdAdd.Click ENDIF ENDPROC PROCEDURE DblClick ThisForm.lstSource.AddItem(This.List(This.ListIndex)) This.RemoveItem(This.ListIndex) ThisForm.Refresh ENDPROC OSOURCE NXCOORD NYCOORD NSTATE DRAGICON PARENT CANDROPICON NODROPICON5 NBUTTON NSHIFT NXCOORD NYCOORD DRAG: OSOURCE NXCOORD NYCOORD THISFORM CMDADD CLICK= THISFORM LSTSOURCE ADDITEM LIST LISTINDEX REMOVEITEM REFRESH DragOver, MouseDown DragDropa DblClick c:\vfp\samples\controls\lists\ 00000029.tmp c:\vfp\samples\controls\lists\00000029.tmp commandbutton commandbutton cmdAdd frmmover. sCaption = ">" Top = 26 Left = 198 Height = 25 Width = 37 ToolTipText = "Add Selected Items" Name = "cmdAdd" ePROCEDURE Click * The ListCount value changes whenever the RemoveItem method is called nCnt = 1 DO WHILE nCnt <= ThisForm.lstSource.ListCount IF ThisForm.lstSource.Selected(nCnt) ThisForm.lstSelected.AddItem(ThisForm.lstSource.List(nCnt)) ThisForm.lstSource.RemoveItem(nCnt) ELSE nCnt = nCnt + 1 ENDIF ENDDO ThisForm.Refresh ENDPROC THISFORM LSTSOURCE LISTCOUNT SELECTED LSTSELECTED ADDITEM REMOVEITEM REFRESH Click, c:\vfp\samples\controls\lists\ 00000029.tmp c:\vfp\samples\controls\lists\00000029.tmp commandbutton commandbutton cmdAddAll frmmover. rCaption = ">>" Top = 55 Left = 198 Height = 25 Width = 37 ToolTipText = "Add All Items" Name = "cmdAddAll" PROCEDURE Click DO WHILE ThisForm.lstSource.ListCount > 0 ThisForm.lstSelected.AddItem(ThisForm.lstSource.List(1)) ThisForm.lstSource.RemoveItem(1) ENDDO ThisForm.Refresh ENDPROC THISFORM LSTSOURCE LISTCOUNT LSTSELECTED ADDITEM REMOVEITEM REFRESH Click, c:\vfp\samples\controls\lists\ 00000029.tmp c:\vfp\samples\controls\lists\00000029.tmp commandbutton commandbutton cmdRemove frmmover. yCaption = "<" Top = 96 Left = 198 Height = 25 Width = 37 ToolTipText = "Remove Selected Items" Name = "cmdRemove" #PROCEDURE Click nCnt = 1 DO WHILE nCnt <= ThisForm.lstSelected.ListCount IF ThisForm.lstSelected.Selected(nCnt) ThisForm.lstSource.AddItem(ThisForm.lstSelected.List(nCnt)) ThisForm.lstSelected.RemoveItem(nCnt) ELSE nCnt = nCnt + 1 ENDIF ENDDO ThisForm.Refresh ENDPROC THISFORM LSTSELECTED LISTCOUNT SELECTED LSTSOURCE ADDITEM REMOVEITEM REFRESH Click, c:\vfp\samples\controls\lists\ 00000029.tmp c:\vfp\samples\controls\lists\00000029.tmp commandbutton commandbutton cmdRemoveAll frmmover. yCaption = "<<" Top = 126 Left = 198 Height = 25 Width = 37 ToolTipText = "Remove All Items" Name = "cmdRemoveAll" PROCEDURE Click DO WHILE ThisForm.lstSelected.ListCount > 0 ThisForm.lstSource.AddItem(ThisForm.lstSelected.List(1)) ThisForm.lstSelected.RemoveItem(1) ENDDO ThisForm.Refresh ENDPROC THISFORM LSTSELECTED LISTCOUNT LSTSOURCE ADDITEM REMOVEITEM REFRESH Click, c:\vfp\samples\controls\lists\ 00000029.tmp c:\vfp\samples\controls\lists\00000029.tmp commandbutton commandbutton cmdPrint frmmover. Caption = "Print to Screen" Top = 161 Left = 290 Height = 21 Width = 87 FontBold = .F. FontSize = 8 AutoSize = .T. ToolTipText = "Print Items to the Screen" Name = "cmdPrint" PROCEDURE Click #define HEADER_LOC "Selected items:" ACTIVATE SCREEN ? HEADER_LOC ? "---------------" FOR nCnt = 1 to ThisForm.lstSelected.ListCount ? SPACE(5) + ThisForm.lstSelected.List(nCnt) ENDFOR ENDPROC Selected items: --------------- THISFORM LSTSELECTED LISTCOUNT Click, c:\vfp\samples\controls\lists\ 00000029.tmp c:\vfp\samples\controls\lists\00000029.tmp label label label1 frmmover. vCaption = "Source List" Top = 6 Left = 16 AutoSize = .T. BackStyle = 0 Height = 16 Width = 71 Name = "label1" label label label2 frmmover. yCaption = "Selected List" Top = 5 Left = 253 AutoSize = .T. BackStyle = 0 Height = 16 Width = 82 Name = "label2" label label label3 frmmover. 'Caption = "Select or MultiSelect items in the lists. Use the command buttons or Right-Click+Drag to move items between the Lists. Double-clicking an item in a list also moves it to the other list." Top = 188 Left = 16 BackStyle = 0 Height = 51 Width = 421 WordWrap = .T. Name = "label3" CArial, 1, 10, 6, 16, 13, 15, 3, 0 Arial, 0, 8, 5, 14, 11, 13, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" frmmover ScaleMode = 3 Caption = "Mover List Boxes" ShowTips = .T. Top = 0 Left = 0 Height = 276 Width = 440 AutoCenter = .F. BackColor = 192,192,192 Name = "frmmover" PROCEDURE Init #define ONE_LOC "one" #define TWO_LOC "two" #define THREE_LOC "three" #define FOUR_LOC "four" #define FIVE_LOC "five" #define SIX_LOC "six" #define SEVEN_LOC "seven" #define EIGHT_LOC "eight" #define NINE_LOC "nine" #define TEN_LOC "ten" This.lstSource.AddItem (ONE_LOC) This.lstSource.AddItem (TWO_LOC) This.lstSource.AddItem(THREE_LOC) This.lstSource.AddItem (FOUR_LOC) This.lstSource.AddItem (FIVE_LOC) This.lstSource.AddItem (SIX_LOC) This.lstSource.AddItem (SEVEN_LOC) This.lstSource.AddItem (EIGHT_LOC) This.lstSource.AddItem (NINE_LOC) This.lstSource.AddItem (TEN_LOC) This.AutoCenter = .T. This.CanDropIcon = (SYS(2004) + "samples\controls\dragmove.cur") This.NoDropIcon = (SYS(2004) + "samples\controls\nodrop.cur") ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC three seven eight samples\controls\dragmove.cur samples\controls\nodrop.cur THIS LSTSOURCE ADDITEM AUTOCENTER CANDROPICON NODROPICON4 mainb Init, Unload c:\vfp\samples\controls\lists\ 00000026.tmp c:\vfp\samples\controls\lists\00000026.tmp candropicon DragIcon to be displayed over valid drop targets. nodropicon DragIcon to be displayed over invalid drop targets. commandbutton commandbutton cmdOK frmmover RCaption = "\<OK" Top = 247 Left = 178 Height = 23 Width = 84 Name = "cmdOK" .PROCEDURE Click RELEASE THISFORM ENDPROC THISFORM Click, c:\vfp\samples\controls\lists\ 00000026.tmp c:\vfp\samples\controls\lists\00000026.tmp listbox listbox lstSource frmmover Top = 24 Left = 12 ColumnCount = 0 ColumnWidths = "" RowSourceType = 0 RowSource = "" ControlSource = "" DragIcon = ..\..\..\misc\cursors\dragmove.cur DragMode = 0 FirstElement = 1 Height = 132 MultiSelect = .T. NumberOfElements = 0 Width = 169 Name = "lstSource" PROCEDURE DblClick ThisForm.lstSelected.AddItem(This.List(This.ListIndex)) This.RemoveItem(This.ListIndex) ThisForm.Refresh ENDPROC PROCEDURE DragDrop Parameters oSource, nXCoord, nYCoord IF oSource.Name != THIS.Name THISFORM.cmdRemove.Click ENDIF FOR i = 1 TO This.Parent.lstSelected.ListCount This.Parent.lstSelected.Selected(i) = .F. ENDFOR ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF nButton = 2 && Right Mouse Button THIS.Drag ENDIF ENDPROC PROCEDURE DragOver Parameters oSource, nXCoord, nYCoord, nState DO CASE CASE nState = 0 && Enter oSource.DragIcon = This.Parent.CanDropIcon CASE nState = 1 && Leave oSource.DragIcon = This.Parent.NoDropIcon ENDCASE ENDPROC THISFORM LSTSELECTED ADDITEM LIST LISTINDEX REMOVEITEM REFRESHx OSOURCE NXCOORD NYCOORD THISFORM CMDREMOVE CLICK PARENT LSTSELECTED LISTCOUNT SELECTED5 NBUTTON NSHIFT NXCOORD NYCOORD DRAGu OSOURCE NXCOORD NYCOORD NSTATE DRAGICON PARENT CANDROPICON NODROPICON DblClick, DragDrop MouseDown DragOver c:\vfp\samples\controls\lists\ 00000026.tmp c:\vfp\samples\controls\lists\00000026.tmp listbox listbox lstSelected frmmover +Top = 24 Left = 252 ColumnCount = 0 ColumnWidths = "" RowSourceType = 0 RowSource = "" ControlSource = "" DragIcon = ..\..\..\misc\cursors\dragmove.cur DragMode = 0 FirstElement = 1 Height = 132 MoverBars = .T. MultiSelect = .T. NumberOfElements = 0 Width = 169 Name = "lstSelected" PROCEDURE DblClick ThisForm.lstSource.AddItem(This.List(This.ListIndex)) This.RemoveItem(This.ListIndex) ThisForm.Refresh ENDPROC PROCEDURE DragDrop Parameters oSource, nXCoord, nYCoord IF oSource.Name != THIS.Name ThisForm.cmdAdd.Click ENDIF ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF nButton = 2 && Right Mouse Button THIS.Drag ENDIF ENDPROC PROCEDURE DragOver Parameters oSource, nXCoord, nYCoord, nState DO CASE CASE nState = 0 && Enter oSource.DragIcon = This.Parent.CanDropIcon CASE nState = 1 && Leave oSource.DragIcon = This.Parent.NoDropIcon ENDCASE ENDPROC THISFORM LSTSOURCE ADDITEM LIST LISTINDEX REMOVEITEM REFRESH: OSOURCE NXCOORD NYCOORD THISFORM CMDADD CLICK5 NBUTTON NSHIFT NXCOORD NYCOORD DRAGu OSOURCE NXCOORD NYCOORD NSTATE DRAGICON PARENT CANDROPICON NODROPICON DblClick, DragDrop MouseDown5 DragOver c:\vfp\samples\controls\lists\ 00000026.tmp c:\vfp\samples\controls\lists\00000026.tmp commandbutton commandbutton cmdAdd frmmover sCaption = ">" Top = 26 Left = 198 Height = 25 Width = 37 ToolTipText = "Add Selected Items" Name = "cmdAdd" ePROCEDURE Click * The ListCount value changes whenever the RemoveItem method is called nCnt = 1 DO WHILE nCnt <= ThisForm.lstSource.ListCount IF ThisForm.lstSource.Selected(nCnt) ThisForm.lstSelected.AddItem(ThisForm.lstSource.List(nCnt)) ThisForm.lstSource.RemoveItem(nCnt) ELSE nCnt = nCnt + 1 ENDIF ENDDO ThisForm.Refresh ENDPROC THISFORM LSTSOURCE LISTCOUNT SELECTED LSTSELECTED ADDITEM REMOVEITEM REFRESH Click, c:\vfp\samples\controls\lists\ 00000026.tmp c:\vfp\samples\controls\lists\00000026.tmp commandbutton commandbutton cmdAddAll frmmover rCaption = ">>" Top = 55 Left = 198 Height = 25 Width = 37 ToolTipText = "Add All Items" Name = "cmdAddAll" PROCEDURE Click DO WHILE ThisForm.lstSource.ListCount > 0 ThisForm.lstSelected.AddItem(ThisForm.lstSource.List(1)) ThisForm.lstSource.RemoveItem(1) ENDDO ThisForm.Refresh ENDPROC THISFORM LSTSOURCE LISTCOUNT LSTSELECTED ADDITEM REMOVEITEM REFRESH Click, c:\vfp\samples\controls\lists\ 00000026.tmp c:\vfp\samples\controls\lists\00000026.tmp commandbutton commandbutton cmdRemove frmmover yCaption = "<" Top = 96 Left = 198 Height = 25 Width = 37 ToolTipText = "Remove Selected Items" Name = "cmdRemove" #PROCEDURE Click nCnt = 1 DO WHILE nCnt <= ThisForm.lstSelected.ListCount IF ThisForm.lstSelected.Selected(nCnt) ThisForm.lstSource.AddItem(ThisForm.lstSelected.List(nCnt)) ThisForm.lstSelected.RemoveItem(nCnt) ELSE nCnt = nCnt + 1 ENDIF ENDDO ThisForm.Refresh ENDPROC THISFORM LSTSELECTED LISTCOUNT SELECTED LSTSOURCE ADDITEM REMOVEITEM REFRESH Click, c:\vfp\samples\controls\lists\ 00000026.tmp c:\vfp\samples\controls\lists\00000026.tmp commandbutton commandbutton cmdRemoveAll frmmover yCaption = "<<" Top = 126 Left = 198 Height = 25 Width = 37 ToolTipText = "Remove All Items" Name = "cmdRemoveAll" PROCEDURE Click DO WHILE ThisForm.lstSelected.ListCount > 0 ThisForm.lstSource.AddItem(ThisForm.lstSelected.List(1)) ThisForm.lstSelected.RemoveItem(1) ENDDO ThisForm.Refresh ENDPROC THISFORM LSTSELECTED LISTCOUNT LSTSOURCE ADDITEM REMOVEITEM REFRESH Click, c:\vfp\samples\controls\lists\ 00000026.tmp c:\vfp\samples\controls\lists\00000026.tmp commandbutton commandbutton cmdPrint frmmover Caption = "Print to Screen" Top = 161 Left = 290 Height = 21 Width = 87 FontBold = .F. FontSize = 8 AutoSize = .T. ToolTipText = "Print Items to the Screen" Name = "cmdPrint" PROCEDURE Click #define HEADER_LOC "Selected items:" ACTIVATE SCREEN ? HEADER_LOC ? "---------------" FOR nCnt = 1 to ThisForm.lstSelected.ListCount ? SPACE(5) + ThisForm.lstSelected.List(nCnt) ENDFOR ENDPROC Selected items: --------------- THISFORM LSTSELECTED LISTCOUNT Click, c:\vfp\samples\controls\lists\ 00000026.tmp c:\vfp\samples\controls\lists\00000026.tmp label label label1 frmmover vCaption = "Source List" Top = 6 Left = 16 AutoSize = .T. BackStyle = 0 Height = 16 Width = 71 Name = "label1" label label label2 frmmover yCaption = "Selected List" Top = 5 Left = 253 AutoSize = .T. BackStyle = 0 Height = 16 Width = 82 Name = "label2" label label label3 frmmover 'Caption = "Select or MultiSelect items in the lists. Use the command buttons or Right-Click+Drag to move items between the Lists. Double-clicking an item in a list also moves it to the other list." Top = 188 Left = 16 BackStyle = 0 Height = 51 Width = 421 WordWrap = .T. Name = "label3" CArial, 1, 10, 6, 16, 13, 15, 3, 0 Arial, 0, 8, 5, 14, 11, 13, 3, 0 mainb SHOW` three seven eight samples\controls\dragmove.cur samples\controls\nodrop01.cur THIS LSTSOURCE ADDITEM AUTOCENTER CANDROPICON NODROPICON Unload, Initp c:\vfp\samples\controls\lists\ lmover.scx c:\vfp\samples\controls\lists\lmover.scx THISFORM Click, c:\vfp\samples\controls\lists\ lmover.scx c:\vfp\samples\controls\lists\lmover.scx OSOURCE NXCOORD NYCOORD NSTATE DRAGICON PARENT CANDROPICON NODROPICON5 NBUTTON NSHIFT NXCOORD NYCOORD DRAGx OSOURCE NXCOORD NYCOORD THISFORM CMDREMOVE CLICK PARENT LSTSELECTED LISTCOUNT SELECTED= THISFORM LSTSELECTED ADDITEM LIST LISTINDEX REMOVEITEM REFRESH DragOver, MouseDown DragDropa DblClickM c:\vfp\samples\controls\lists\ lmover.scx c:\vfp\samples\controls\lists\lmover.scx OSOURCE NXCOORD NYCOORD NSTATE DRAGICON PARENT CANDROPICON NODROPICON5 NBUTTON NSHIFT NXCOORD NYCOORD DRAG: OSOURCE NXCOORD NYCOORD THISFORM CMDADD CLICK= THISFORM LSTSOURCE ADDITEM LIST LISTINDEX REMOVEITEM REFRESH DragOver, MouseDown DragDropa DblClick c:\vfp\samples\controls\lists\ lmover.scx c:\vfp\samples\controls\lists\lmover.scx THISFORM LSTSOURCE LISTCOUNT SELECTED LSTSELECTED ADDITEM REMOVEITEM REFRESH Click, c:\vfp\samples\controls\lists\ lmover.scx c:\vfp\samples\controls\lists\lmover.scx THISFORM LSTSOURCE LISTCOUNT LSTSELECTED ADDITEM REMOVEITEM REFRESH Click, c:\vfp\samples\controls\lists\ lmover.scx c:\vfp\samples\controls\lists\lmover.scx THISFORM LSTSELECTED LISTCOUNT SELECTED LSTSOURCE ADDITEM REMOVEITEM REFRESH Click, c:\vfp\samples\controls\lists\ lmover.scx c:\vfp\samples\controls\lists\lmover.scx THISFORM LSTSELECTED LISTCOUNT LSTSOURCE ADDITEM REMOVEITEM REFRESH Click, c:\vfp\samples\controls\lists\ lmover.scx c:\vfp\samples\controls\lists\lmover.scx Selected items: --------------- THISFORM LSTSELECTED LISTCOUNT Click, c:\vfp\samples\controls\lists\ lmover.scx c:\vfp\samples\controls\lists\lmover.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QTR0PPD0D 493773701 17 18 19 20 32 WINDOWS _QV40QQ3ZK 496277658 23 24 25 26 27 WINDOWS _QTR0MZ7TX 495937768 33 34 35 36 38 13560 WINDOWS _QT80U9H3R 495937768 169 170 171 172 173 182 13627 WINDOWS _QTY0Y6TTN 492469963 568 569 570 571 572 WINDOWS _QTY0Y6TU1 495937768 575 576 577 578 579 584 13815 WINDOWS _QTY0Y6TVV 495937768 605 606 607 608 609 WINDOWS _QTY0Y6TW9 495937768 614 615 616 617 618 621 13830 WINDOWS _QTZ0LRULK 495937768 1037 1038 1039 1040 1041 1045 14039 WINDOWS _QW414WC1O 496277659 1399 1400 1401 1402 1403 1404 WINDOWS _QTZ0LK81O 495937769 1406 1407 1408 1409 1410 WINDOWS _QTZ0LK87D 492142312 1415 1416 1417 1418 1419 WINDOWS _QTZ0LIGZU 496277659 1422 1423 1424 1425 1426 1431 14216 WINDOWS _QTZ0LIH6Q 496277659 1828 1829 1830 1831 1832 1839 14411 WINDOWS _QTG0KB4NX 496277660 2745 2746 2747 2748 2750 2754 14861 WINDOWS _QTU0ZKI8G 496277660 3170 3171 3172 3173 3175 3178 15070 WINDOWS _QTZ0LKA5W 495937769 3615 3616 3617 3618 3620 3625 15289 WINDOWS _QTZ0LRWAF 495937769 4139 4140 4141 4142 4144 4148 15546 WINDOWS FONTINFO 495937769 4439 4440 4441 4442 4443 4455 15693 WINDOWS _QUG0Y4I6M 495937769 4862 4863 4864 4865 4867 4869 15897 WINDOWS _QUG0Y4I9Y 495937770 5049 5050 5051 5052 5054 5056 15989 WINDOWS _QTZ0LRWVE 495937770 5236 5237 5238 5239 5240 5261 16081 COMMENT FONTINFO 6790 VERSION = 0.028 dataenvironment dataenvironment Datanavigation KLeft = 133 Top = 200 Width = 581 Height = 300 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation. Left = 20 Top = 10 Width = 98 Height = 108 Alias = "customer" Database = ..\..\data\testdata.dbc CursorSource = "customer" Name = "Cursor1" formset formset Formset1 &AutoRelease = .T. Name = "Formset1" 'PROCEDURE Activate DO CASE CASE Noutput = 1 ? "Formset1.Activate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Activate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Activate" Nowait ENDCASE IF LDone Release ThisFormSet ENDIF ENDPROC PROCEDURE Deactivate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Deactivate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Deactivate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Deactivate" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Init" Nowait ENDCASE ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine WAIT WINDOW "ERROR " + ALLTRIM(STR(nError)) ENDPROC PROCEDURE Load DO Toolbar Public Noutput Noutput = 1 DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Load" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Load" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Load" Nowait ENDCASE ENDPROC PROCEDURE Unload DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Unload" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Unload" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Unload" Nowait ENDCASE * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC Formset1.Activate Formset1.ActivateC Formset1.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE LDONE Formset1.Deactivate Formset1.DeactivateC Formset1.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Destroy Formset1.DestroyC Formset1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Init Formset1.InitC Formset1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE* ERROR CC NERROR CMETHOD NLINE Formset1.Load Formset1.LoadC Formset1.Load TOOLBAR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Unload Formset1.UnloadC Formset1.Unload mainb NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Activate, Deactivate7 Destroy. Error LoadG UnloadP c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp form1 Formset1. ScaleMode = 3 Top = 24 Left = 234 Height = 186 Width = 119 BackColor = 192,192,192 BorderStyle = 3 Caption = "Form1" Closable = .F. ControlBox = .F. HalfHeightCaption = .F. MaxButton = .F. MinButton = .F. Movable = .T. WindowState = 0 Name = "form1" iPROCEDURE Activate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Activate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Activate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Activate" Nowait ENDCASE ENDPROC PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Deactivate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Deactivate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Deactivate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Deactivate" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord CParamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.DragDrop "+CParamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.DragDrop "+CParamstr + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.DragDrop "+CParamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.DragOver "+CParamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.DragOver "+CParamstr + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.DragOver "+CParamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.KeyPress "+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.KeyPress "+Cparamstr + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.KeyPress "+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Load Public Noutput,oFormSet oFormSet = ThisFormSet *IF USED('customer') * SELECT customer *ELSE * SELECT 0 * USE customer alias customer *ENDIF DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Load" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Load" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Load" Nowait ENDCASE ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.MouseDown "+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.MouseDown "+Cparamstr + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.MouseDown "+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.MouseMove "+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.MouseMove "+Cparamstr + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.MouseMove "+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.MouseUp "+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.MouseUp "+Cparamstr + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.MouseUp "+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Paint *DO CASE *CASE Noutput = 1 * Activate Screen * ? "Formset1.Form1.Paint" *CASE Noutput = 2 * ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Paint" + ; * chr(13) + ThisFormSet.EventWin.Edit1.Value *CASE Noutput = 3 * Wait Window "Formset1.Form1.Paint" Nowait *ENDCASE ENDPROC PROCEDURE Resize DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Resize" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Resize" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Resize" Nowait ENDCASE ENDPROC PROCEDURE Unload DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Unload" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Unload" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Unload" Nowait ENDCASE RELEASE EventTool ENDPROC Formset1.Form1.Activate Formset1.Form1.ActivateC Formset1.Form1.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Click Formset1.Form1.ClickC Formset1.Form1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.DblClick Formset1.Form1.DblClickC Formset1.Form1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Deactivate Formset1.Form1.DeactivateC Formset1.Form1.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Destroy Formset1.Form1.DestroyC Formset1.Form1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.DragDrop Formset1.Form1.DragDrop Formset1.Form1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE/ Formset1.Form1.DragOver Formset1.Form1.DragOver Formset1.Form1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.GotFocus Formset1.Form1.GotFocusC Formset1.Form1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.KeyPress Formset1.Form1.KeyPress Formset1.Form1.KeyPress NKEYCODE NSHIFTALTCTRL CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Load Formset1.Form1.LoadC Formset1.Form1.Load NOUTPUT OFORMSET THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.LostFocus Formset1.Form1.LostFocusC Formset1.Form1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUED Formset1.Form1.MouseDown Formset1.Form1.MouseDown Formset1.Form1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUED Formset1.Form1.MouseMove Formset1.Form1.MouseMove Formset1.Form1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE> Formset1.Form1.MouseUp Formset1.Form1.MouseUp Formset1.Form1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Resize Formset1.Form1.ResizeC Formset1.Form1.Resize NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Unload Formset1.Form1.UnloadC Formset1.Form1.Unload NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE EVENTTOOL Activate, Click/ DblClick) Deactivate, Destroy5 DragDrop5 DragOver GotFocusF KeyPressI LostFocus MouseDown MouseMove} MouseUp. Paint Resize Unload c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp shape shape Shape1 Formset1.form1. @Height = 42 Left = 11 Top = 138 Width = 93 Name = "Shape1" image image FoxIcon Formset1.form1. Picture = ..\..\..\fox.bmp DragIcon = fox.cur DragMode = 1 Height = 26 Left = 75 Top = 147 Width = 25 Name = "FoxIcon" PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord This.Drag(1) ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord This.Drag(2) ENDPROC NBUTTON NSHIFT NXCOORD NYCOORD DRAG& NBUTTON NSHIFT NXCOORD NYCOORD DRAG MouseDown, MouseUp c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp label label Label2 Formset1.form1. BackColor = 255,255,255 Caption = "Drag this icon ->" Height = 33 Left = 15 Top = 142 Width = 57 WordWrap = .T. Name = "Label2" spinner spinner Spinner1 Formset1.form1. @Height = 25 Left = 43 Top = 3 Width = 42 Name = "Spinner1" PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DownClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.DownClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.DownClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.DownClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE InteractiveChange DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.InteractiveChange" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.InteractiveChange" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.InteractiveChange" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE UpClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.UpClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.UpClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.UpClick" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.Init" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.When" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.Valid" Nowait ENDCASE ENDPROC Formset1.Form1.Spinner1.Click Formset1.Form1.Spinner1.ClickC Formset1.Form1.Spinner1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.DblClick Formset1.Form1.Spinner1.DblClickC Formset1.Form1.Spinner1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.DownClick Formset1.Form1.Spinner1.DownClickC Formset1.Form1.Spinner1.DownClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE6 Formset1.Form1.Spinner1.DragDrop Formset1.Form1.Spinner1.DragDrop Formset1.Form1.Spinner1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEG Formset1.Form1.Spinner1.DragOver Formset1.Form1.Spinner1.DragOver Formset1.Form1.Spinner1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.GotFocus Formset1.Form1.Spinner1.GotFocusC Formset1.Form1.Spinner1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.InteractiveChange Formset1.Form1.Spinner1.InteractiveChangeC Formset1.Form1.Spinner1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE7 Formset1.Form1.Spinner1.KeyPress Formset1.Form1.Spinner1.KeyPress Formset1.Form1.Spinner1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.LostFocus Formset1.Form1.Spinner1.LostFocusC Formset1.Form1.Spinner1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form1.Spinner1.MouseDown Formset1.Form1.Spinner1.MouseDown Formset1.Form1.Spinner1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form1.Spinner1.MouseMove Formset1.Form1.Spinner1.MouseMove Formset1.Form1.Spinner1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEV Formset1.Form1.Spinner1.MouseUp Formset1.Form1.Spinner1.MouseUp Formset1.Form1.Spinner1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.RightClick Formset1.Form1.Spinner1.RightClickC Formset1.Form1.Spinner1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.UpClick Formset1.Form1.Spinner1.UpClickC Formset1.Form1.Spinner1.UpClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.Init Formset1.Form1.Spinner1.InitC Formset1.Form1.Spinner1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.When Formset1.Form1.Spinner1.WhenC Formset1.Form1.Spinner1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.Valid Formset1.Form1.Spinner1.ValidC Formset1.Form1.Spinner1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickA DownClick_ DragDrop DragOver GotFocus InteractiveChange KeyPress LostFocus MouseDown MouseMove MouseUpe RightClick( UpClickL Initg Wheny Valid c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp commandbutton commandbutton Command1 Formset1.form1. ^Top = 110 Left = 1 Height = 25 Width = 117 Caption = "Command Button" Name = "Command1" PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.Click" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.Init" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.When" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.Valid" Nowait ENDCASE ENDPROC Formset1.Form1.Command1.Click Formset1.Form1.Command1.ClickC Formset1.Form1.Command1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE6 Formset1.Form1.Command1.DragDrop Formset1.Form1.Command1.DragDrop Formset1.Form1.Command1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEG Formset1.Form1.Command1.DragOver Formset1.Form1.Command1.DragOver Formset1.Form1.Command1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.GotFocus Formset1.Form1.Command1.GotFocusC Formset1.Form1.Command1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE7 Formset1.Form1.Command1.KeyPress Formset1.Form1.Command1.KeyPress Formset1.Form1.Command1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.LostFocus Formset1.Form1.Command1.LostFocusC Formset1.Form1.Command1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form1.Command1.MouseDown Formset1.Form1.Command1.MouseDown Formset1.Form1.Command1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form1.Command1.MouseMove Formset1.Form1.Command1.MouseMove Formset1.Form1.Command1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEV Formset1.Form1.Command1.MouseUp Formset1.Form1.Command1.MouseUp Formset1.Form1.Command1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.RightClick Formset1.Form1.Command1.RightClickC Formset1.Form1.Command1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.Destroy Formset1.Form1.Command1.DestroyC Formset1.Form1.Command1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.Init Formset1.Form1.Command1.InitC Formset1.Form1.Command1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.When Formset1.Form1.Command1.WhenC Formset1.Form1.Command1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.Valid Formset1.Form1.Command1.ValidC Formset1.Form1.Command1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DragDropA DragOver GotFocus KeyPress LostFocus: MouseDown[ MouseMove$ MouseUp RightClick Destroy Valid c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp shaper ..\samples.vcx container Shaper1 Formset1.form1. 'Top = 33 Left = 14 Name = "Shaper1" eventwin Formset1. ScaleMode = 3 Top = 236 Left = 234 Height = 144 Width = 388 Caption = "Event Window" Closable = .F. Visible = .F. Name = "eventwin" editbox editbox Edit1 Formset1.eventwin. WBackColor = 255,255,255 Height = 144 Left = 0 Top = 0 Width = 389 Name = "Edit1" form2 Formset1. ScaleMode = 3 Top = 24 Left = 363 Height = 186 Width = 259 BackColor = 192,192,192 Caption = "Form2" WindowState = 0 Name = "form2" PROCEDURE Activate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Activate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Activate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Activate" Nowait ENDCASE ENDPROC PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Deactivate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Deactivate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Deactivate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Deactivate" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Destroy" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Init" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Load DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Load" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Load" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Load" Nowait ENDCASE ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Paint *DO CASE *CASE Noutput = 1 * Activate Screen * ? "Formset1.Form2.Paint" *CASE Noutput = 2 * ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Paint" + ; * chr(13) + ThisFormSet.EventWin.Edit1.Value *CASE Noutput = 3 * Wait Window "Formset1.Form2.Paint" Nowait *ENDCASE ENDPROC PROCEDURE Resize DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Resize" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Resize" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Resize" Nowait ENDCASE ENDPROC PROCEDURE Unload DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Unload" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Unload" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Unload" Nowait ENDCASE ENDPROC Formset1.Form2.Activate Formset1.Form2.ActivateC Formset1.Form2.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Click Formset1.Form2.ClickC Formset1.Form2.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.DblClick Formset1.Form2.DblClickC Formset1.Form2.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Deactivate Formset1.Form2.DeactivateC Formset1.Form2.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Destroy Formset1.Form2.DestroyC Formset1.Form2.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.DragDrop Formset1.Form2.DragDrop Formset1.Form2.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE, Formset1.Form2.DragOver Formset1.Form2.DragOver Formset1.Form2.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.GotFocus Formset1.Form2.GotFocusC Formset1.Form2.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Init Formset1.Form2.InitC Formset1.Form2.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.KeyPress Formset1.Form2.KeyPress Formset1.Form2.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Load Formset1.Form2.LoadC Formset1.Form2.Load NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.LostFocus Formset1.Form2.LostFocusC Formset1.Form2.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEA Formset1.Form2.MouseDown Formset1.Form2.MouseDown Formset1.Form2.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEA Formset1.Form2.MouseMove Formset1.Form2.MouseMove Formset1.Form2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE; Formset1.Form2.MouseUp Formset1.Form2.MouseUp Formset1.Form2.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Resize Formset1.Form2.ResizeC Formset1.Form2.Resize NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Unload Formset1.Form2.UnloadC Formset1.Form2.Unload NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Activate, Click/ DblClick) Deactivate, Destroy5 DragDrop5 DragOver GotFocus@ InitC KeyPress: LostFocus MouseDown MouseMoved MouseUp Paint Resize Unload c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp pageframe pageframe Pageframe1 Formset1.form2. ErasePage = .T. PageCount = 2 Top = 3 Left = 7 Height = 87 Width = 245 Name = "Pageframe1" Page1.Caption = "Page1" Page1.Name = "Page1" Page2.Caption = "Page2" Page2.Name = "Page2" PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Init" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Page1.Activate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.Activate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.Activate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.Activate" Nowait ENDCASE ENDPROC PROCEDURE Page1.Deactivate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.Deactivate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.Deactivate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.Deactivate" Nowait ENDCASE ENDPROC PROCEDURE Page1.Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Page1.Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.Init" Nowait ENDCASE ENDPROC PROCEDURE Page1.Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.Click" Nowait ENDCASE ENDPROC PROCEDURE Page1.DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Page1.DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Page1.DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Page1.MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Page1.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Page1.MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Page1.RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Page2.Activate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Activate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Activate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Activate" Nowait ENDCASE ENDPROC PROCEDURE Page2.Deactivate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Deactivate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Deactivate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Deactivate" Nowait ENDCASE ENDPROC PROCEDURE Page2.Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Page2.Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Init" Nowait ENDCASE ENDPROC PROCEDURE Page2.Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Click" Nowait ENDCASE ENDPROC PROCEDURE Page2.DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Page2.DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Page2.DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Page2.MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Page2.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Page2.MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Page2.RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.RightClick" Nowait ENDCASE ENDPROC Formset1.Form2.PageFrame1.Init Formset1.Form2.PageFrame1.InitC Formset1.Form2.PageFrame1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Destroy Formset1.Form2.PageFrame1.DestroyC Formset1.Form2.PageFrame1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Click Formset1.Form2.PageFrame1.ClickC Formset1.Form2.PageFrame1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.DblClick Formset1.Form2.PageFrame1.DblClickC Formset1.Form2.PageFrame1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE< Formset1.Form2.PageFrame1.DragDrop Formset1.Form2.PageFrame1.DragDrop Formset1.Form2.PageFrame1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEM Formset1.Form2.PageFrame1.DragOver Formset1.Form2.PageFrame1.DragOver Formset1.Form2.PageFrame1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEb Formset1.Form2.PageFrame1.MouseDown Formset1.Form2.PageFrame1.MouseDown Formset1.Form2.PageFrame1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEb Formset1.Form2.PageFrame1.MouseMove Formset1.Form2.PageFrame1.MouseMove Formset1.Form2.PageFrame1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form2.PageFrame1.MouseUp Formset1.Form2.PageFrame1.MouseUp Formset1.Form2.PageFrame1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.RightClick Formset1.Form2.PageFrame1.RightClickC Formset1.Form2.PageFrame1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Activate Formset1.Form2.PageFrame1.Page1.ActivateC Formset1.Form2.PageFrame1.Page1.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Deactivate Formset1.Form2.PageFrame1.Page1.DeactivateC Formset1.Form2.PageFrame1.Page1.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Destroy Formset1.Form2.PageFrame1.Page1.DestroyC Formset1.Form2.PageFrame1.Page1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Init Formset1.Form2.PageFrame1.Page1.InitC Formset1.Form2.PageFrame1.Page1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Click Formset1.Form2.PageFrame1.Page1.ClickC Formset1.Form2.PageFrame1.Page1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.DblClick Formset1.Form2.PageFrame1.Page1.DblClickC Formset1.Form2.PageFrame1.Page1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEN Formset1.Form2.PageFrame1.Page1.DragDrop Formset1.Form2.PageFrame1.Page1.DragDrop Formset1.Form2.PageFrame1.Page1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE_ Formset1.Form2.PageFrame1.Page1.DragOver Formset1.Form2.PageFrame1.Page1.DragOver Formset1.Form2.PageFrame1.Page1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page1.MouseDown Formset1.Form2.PageFrame1.Page1.MouseDown Formset1.Form2.PageFrame1.Page1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page1.MouseMove Formset1.Form2.PageFrame1.Page1.MouseMove Formset1.Form2.PageFrame1.Page1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEn Formset1.Form2.PageFrame1.Page1.MouseUp Formset1.Form2.PageFrame1.Page1.MouseUp Formset1.Form2.PageFrame1.Page1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.RightClick Formset1.Form2.PageFrame1.Page1.RightClickC Formset1.Form2.PageFrame1.Page1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Activate Formset1.Form2.PageFrame1.Page2.ActivateC Formset1.Form2.PageFrame1.Page2.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Deactivate Formset1.Form2.PageFrame1.Page2.DeactivateC Formset1.Form2.PageFrame1.Page2.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Destroy Formset1.Form2.PageFrame1.Page2.DestroyC Formset1.Form2.PageFrame1.Page2.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Init Formset1.Form2.PageFrame1.Page2.InitC Formset1.Form2.PageFrame1.Page2.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Click Formset1.Form2.PageFrame1.Page2.ClickC Formset1.Form2.PageFrame1.Page2.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.DblClick Formset1.Form2.PageFrame1.Page2.DblClickC Formset1.Form2.PageFrame1.Page2.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEN Formset1.Form2.PageFrame1.Page2.DragDrop Formset1.Form2.PageFrame1.Page2.DragDrop Formset1.Form2.PageFrame1.Page2.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE_ Formset1.Form2.PageFrame1.Page2.DragOver Formset1.Form2.PageFrame1.Page2.DragOver Formset1.Form2.PageFrame1.Page2.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.MouseDown Formset1.Form2.PageFrame1.Page2.MouseDown Formset1.Form2.PageFrame1.Page2.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.MouseMove Formset1.Form2.PageFrame1.Page2.MouseMove Formset1.Form2.PageFrame1.Page2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEn Formset1.Form2.PageFrame1.Page2.MouseUp Formset1.Form2.PageFrame1.Page2.MouseUp Formset1.Form2.PageFrame1.Page2.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.RightClick Formset1.Form2.PageFrame1.Page2.RightClickC Formset1.Form2.PageFrame1.Page2.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Init, DestroyD Clicke DblClick DragDrop DragOver> MouseDown MouseMove MouseUp RightClickX Page1.Activate Page1.Deactivate Page1.Destroy Page1.Init' Page1.ClickQ Page1.DblClick~ Page1.DragDrop Page1.DragOver` Page1.MouseDown% Page1.MouseMove Page1.MouseUp Page1.RightClick Page2.Activate Page2.Deactivate4! Page2.Destroyp" Page2.Init Page2.Click Page2.DblClick Page2.DragDrop0' Page2.DragOver Page2.MouseDown Page2.MouseMove Page2.MouseUpc. Page2.RightClick>0 c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp checkbox checkbox Check1 Formset1.form2.Pageframe1.Page1. oTop = 10 Left = 12 Height = 17 Width = 113 BackColor = 192,192,192 Caption = "CheckBox" Name = "Check1" PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.Click" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE InteractiveChange DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChange" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChange" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChange" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.Init" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.When" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.Valid" Nowait ENDCASE ENDPROC Formset1.Form2.PageFrame1.Page2.Check1.Click Formset1.Form2.PageFrame1.Page2.Check1.ClickC Formset1.Form2.PageFrame1.Page2.Check1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEc Formset1.Form2.PageFrame1.Page2.Check1.DragDrop Formset1.Form2.PageFrame1.Page2.Check1.DragDrop Formset1.Form2.PageFrame1.Page2.Check1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.Check1.DragOver Formset1.Form2.PageFrame1.Page2.Check1.DragOver Formset1.Form2.PageFrame1.Page2.Check1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.GotFocus Formset1.Form2.PageFrame1.Page2.Check1.GotFocusC Formset1.Form2.PageFrame1.Page2.Check1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE4 Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChange Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChangeC Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEd Formset1.Form2.PageFrame1.Page2.Check1.KeyPress Formset1.Form2.PageFrame1.Page2.Check1.KeyPress Formset1.Form2.PageFrame1.Page2.Check1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.LostFocus Formset1.Form2.PageFrame1.Page2.Check1.LostFocusC Formset1.Form2.PageFrame1.Page2.Check1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.MouseDown Formset1.Form2.PageFrame1.Page2.Check1.MouseDown Formset1.Form2.PageFrame1.Page2.Check1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.MouseMove Formset1.Form2.PageFrame1.Page2.Check1.MouseMove Formset1.Form2.PageFrame1.Page2.Check1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.MouseUp Formset1.Form2.PageFrame1.Page2.Check1.MouseUp Formset1.Form2.PageFrame1.Page2.Check1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.RightClick Formset1.Form2.PageFrame1.Page2.Check1.RightClickC Formset1.Form2.PageFrame1.Page2.Check1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.Destroy Formset1.Form2.PageFrame1.Page2.Check1.DestroyC Formset1.Form2.PageFrame1.Page2.Check1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.Init Formset1.Form2.PageFrame1.Page2.Check1.InitC Formset1.Form2.PageFrame1.Page2.Check1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.When Formset1.Form2.PageFrame1.Page2.Check1.WhenC Formset1.Form2.PageFrame1.Page2.Check1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.Valid Formset1.Form2.PageFrame1.Page2.Check1.ValidC Formset1.Form2.PageFrame1.Page2.Check1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DragDropn DragOver/ GotFocus InteractiveChangeT KeyPress LostFocus MouseDown MouseMove MouseUp RightClick Destroy InitD Valid c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp textbox textbox Text1 Formset1.form2.Pageframe1.Page1. YValue = Text Box Height = 23 Left = 12 Top = 32 Width = 105 Name = "Text1" PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE InteractiveChange DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChange" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChange" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChange" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.Init" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.When" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.Valid" Nowait ENDCASE ENDPROC Formset1.Form2.PageFrame1.Page2.Text1.Click Formset1.Form2.PageFrame1.Page2.Text1.ClickC Formset1.Form2.PageFrame1.Page2.Text1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.DblClick Formset1.Form2.PageFrame1.Page2.Text1.DblClickC Formset1.Form2.PageFrame1.Page2.Text1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE` Formset1.Form2.PageFrame1.Page2.Text1.DragDrop Formset1.Form2.PageFrame1.Page2.Text1.DragDrop Formset1.Form2.PageFrame1.Page2.Text1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEq Formset1.Form2.PageFrame1.Page2.Text1.DragOver Formset1.Form2.PageFrame1.Page2.Text1.DragOver Formset1.Form2.PageFrame1.Page2.Text1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.GotFocus Formset1.Form2.PageFrame1.Page2.Text1.GotFocusC Formset1.Form2.PageFrame1.Page2.Text1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE1 Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChange Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChangeC Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEa Formset1.Form2.PageFrame1.Page2.Text1.KeyPress Formset1.Form2.PageFrame1.Page2.Text1.KeyPress Formset1.Form2.PageFrame1.Page2.Text1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.LostFocus Formset1.Form2.PageFrame1.Page2.Text1.LostFocusC Formset1.Form2.PageFrame1.Page2.Text1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.MouseDown Formset1.Form2.PageFrame1.Page2.Text1.MouseDown Formset1.Form2.PageFrame1.Page2.Text1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.MouseMove Formset1.Form2.PageFrame1.Page2.Text1.MouseMove Formset1.Form2.PageFrame1.Page2.Text1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.MouseUp Formset1.Form2.PageFrame1.Page2.Text1.MouseUp Formset1.Form2.PageFrame1.Page2.Text1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.RightClick Formset1.Form2.PageFrame1.Page2.Text1.RightClickC Formset1.Form2.PageFrame1.Page2.Text1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.Destroy Formset1.Form2.PageFrame1.Page2.Text1.DestroyC Formset1.Form2.PageFrame1.Page2.Text1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.Init Formset1.Form2.PageFrame1.Page2.Text1.InitC Formset1.Form2.PageFrame1.Page2.Text1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.When Formset1.Form2.PageFrame1.Page2.Text1.WhenC Formset1.Form2.PageFrame1.Page2.Text1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.Valid Formset1.Form2.PageFrame1.Page2.Text1.ValidC Formset1.Form2.PageFrame1.Page2.Text1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickk DragDrop DragOverq GotFocusH InteractiveChange KeyPress LostFocus MouseDown MouseMove MouseUp RightClick Destroy# Inith Valid c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp combobox combobox Combo1 Formset1.form2.Pageframe1.Page2. RowSourceType = 1 RowSource = "one,two,three,four,five,six,seven,eight,nine,ten" Height = 22 Left = 9 Top = 8 Width = 101 Name = "Combo1" PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DownClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.DownClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.DownClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.DownClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DropDown Parameters nIndex *Cparamstr = ","+allt(str(nIndex)) Cparamstr = "" DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.DropDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.DropDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.DropDown"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE InteractiveChange DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChange" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChange" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChange" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE UpClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.UpClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.UpClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.UpClick" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.Init" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.When" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.Valid" Nowait ENDCASE ENDPROC Formset1.Form2.PageFrame1.Page2.Combo1.Click Formset1.Form2.PageFrame1.Page2.Combo1.ClickC Formset1.Form2.PageFrame1.Page2.Combo1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.DblClick Formset1.Form2.PageFrame1.Page2.Combo1.DblClickC Formset1.Form2.PageFrame1.Page2.Combo1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.DownClick Formset1.Form2.PageFrame1.Page2.Combo1.DownClickC Formset1.Form2.PageFrame1.Page2.Combo1.DownClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEf Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.Combo1.DragOver Formset1.Form2.PageFrame1.Page2.Combo1.DragOver Formset1.Form2.PageFrame1.Page2.Combo1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE9 Formset1.Form2.PageFrame1.Page2.Combo1.DropDown Formset1.Form2.PageFrame1.Page2.Combo1.DropDown Formset1.Form2.PageFrame1.Page2.Combo1.DropDown NINDEX CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.GotFocus Formset1.Form2.PageFrame1.Page2.Combo1.GotFocusC Formset1.Form2.PageFrame1.Page2.Combo1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE4 Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChange Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChangeC Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEd Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.LostFocus Formset1.Form2.PageFrame1.Page2.Combo1.LostFocusC Formset1.Form2.PageFrame1.Page2.Combo1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.RightClick Formset1.Form2.PageFrame1.Page2.Combo1.RightClickC Formset1.Form2.PageFrame1.Page2.Combo1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.UpClick Formset1.Form2.PageFrame1.Page2.Combo1.UpClickC Formset1.Form2.PageFrame1.Page2.Combo1.UpClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.Destroy Formset1.Form2.PageFrame1.Page2.Combo1.DestroyC Formset1.Form2.PageFrame1.Page2.Combo1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.Init Formset1.Form2.PageFrame1.Page2.Combo1.InitC Formset1.Form2.PageFrame1.Page2.Combo1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.When Formset1.Form2.PageFrame1.Page2.Combo1.WhenC Formset1.Form2.PageFrame1.Page2.Combo1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.Valid Formset1.Form2.PageFrame1.Page2.Combo1.ValidC Formset1.Form2.PageFrame1.Page2.Combo1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickn DownClick DragDrop DragOver DropDown GotFocus# InteractiveChangen KeyPress LostFocus MouseDown MouseMove MouseUp RightClick UpClick Destroy^ Valid$ c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp label label Label1 Formset1.form2.Pageframe1.Page2. iBackColor = 0,255,255 Caption = "Label" Height = 17 Left = 9 Top = 36 Width = 105 Name = "Label1" PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.Init" Nowait ENDCASE ENDPROC Formset1.Form2.PageFrame1.Page2.Label1.Click Formset1.Form2.PageFrame1.Page2.Label1.ClickC Formset1.Form2.PageFrame1.Page2.Label1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.DblClick Formset1.Form2.PageFrame1.Page2.Label1.DblClickC Formset1.Form2.PageFrame1.Page2.Label1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEc Formset1.Form2.PageFrame1.Page2.Label1.DragDrop Formset1.Form2.PageFrame1.Page2.Label1.DragDrop Formset1.Form2.PageFrame1.Page2.Label1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.Label1.DragOver Formset1.Form2.PageFrame1.Page2.Label1.DragOver Formset1.Form2.PageFrame1.Page2.Label1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.MouseDown Formset1.Form2.PageFrame1.Page2.Label1.MouseDown Formset1.Form2.PageFrame1.Page2.Label1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.MouseMove Formset1.Form2.PageFrame1.Page2.Label1.MouseMove Formset1.Form2.PageFrame1.Page2.Label1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.MouseUp Formset1.Form2.PageFrame1.Page2.Label1.MouseUp Formset1.Form2.PageFrame1.Page2.Label1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.RightClick Formset1.Form2.PageFrame1.Page2.Label1.RightClickC Formset1.Form2.PageFrame1.Page2.Label1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.Destroy Formset1.Form2.PageFrame1.Page2.Label1.DestroyC Formset1.Form2.PageFrame1.Page2.Label1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.Init Formset1.Form2.PageFrame1.Page2.Label1.InitC Formset1.Form2.PageFrame1.Page2.Label1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickn DragDrop DragOverz MouseDownT MouseMoveJ MouseUp@ RightClick0 Destroy c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp Grid1 Formset1.form2. kColumnCount = 2 BackColor = 0,255,255 Height = 81 Left = 7 Panel = 1 RecordSource = "customer" RecordSourceType = 1 Top = 94 Width = 245 Name = "Grid1" Column1.Alignment = 2 Column1.ControlSource = "customer.contact" Column1.Width = 148 Column1.Name = "Column1" Column2.ControlSource = "customer.city" Column2.Width = 65 Column2.Name = "Column2" #PROCEDURE BeforeRowColChange Parameters nColIndex DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.RowColChange" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.RowColChange" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.RowColChange" Nowait ENDCASE ENDPROC PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Click" Nowait ENDCASE ENDPROC PROCEDURE Deleted Parameters nRecNo DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Deleted" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Deleted" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Deleted" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Valid" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.When" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Init" Nowait ENDCASE ENDPROC PROCEDURE Column1.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Column2.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC Formset1.Form2.Grid1.RowColChange Formset1.Form2.Grid1.RowColChangeC Formset1.Form2.Grid1.RowColChange NCOLINDEX NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Click Formset1.Form2.Grid1.ClickC Formset1.Form2.Grid1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Deleted Formset1.Form2.Grid1.DeletedC Formset1.Form2.Grid1.Deleted NRECNO NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.DblClick Formset1.Form2.Grid1.DblClickC Formset1.Form2.Grid1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE- Formset1.Form2.Grid1.DragDrop Formset1.Form2.Grid1.DragDrop Formset1.Form2.Grid1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE> Formset1.Form2.Grid1.DragOver Formset1.Form2.Grid1.DragOver Formset1.Form2.Grid1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUES Formset1.Form2.Grid1.MouseDown Formset1.Form2.Grid1.MouseDown Formset1.Form2.Grid1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUES Formset1.Form2.Grid1.MouseMove Formset1.Form2.Grid1.MouseMove Formset1.Form2.Grid1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEM Formset1.Form2.Grid1.MouseUp Formset1.Form2.Grid1.MouseUp Formset1.Form2.Grid1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.RightClick Formset1.Form2.Grid1.RightClickC Formset1.Form2.Grid1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Valid Formset1.Form2.Grid1.ValidC Formset1.Form2.Grid1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.When Formset1.Form2.Grid1.WhenC Formset1.Form2.Grid1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Destroy Formset1.Form2.Grid1.DestroyC Formset1.Form2.Grid1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Init Formset1.Form2.Grid1.InitC Formset1.Form2.Grid1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.Grid1.Column1.MouseMove Formset1.Form2.Grid1.Column1.MouseMove Formset1.Form2.Grid1.Column1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.Grid1.Column2.MouseMove Formset1.Form2.Grid1.Column2.MouseMove Formset1.Form2.Grid1.Column2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE BeforeRowColChange, Click_ Deletedk DblClick DragDrop DragOver, MouseDown MouseMove MouseUpP RightClick Valid% When1 Destroy: InitL Column1.MouseMoveU Column2.MouseMove- c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp header header Header1 Formset1.form2.Grid1.Column1. -Caption = "Customer Name" Name = "Header1" FPROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.Header1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.Header1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.Header1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.Header1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.Header1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.Header1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.Header1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.Header1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.Header1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.Header1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.Header1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.Header1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.Header1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.Header1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.Header1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.Header1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.Header1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.Header1.RightClick" Nowait ENDCASE ENDPROC Formset1.Form2.Grid1.Column1.Header1.Click Formset1.Form2.Grid1.Column1.Header1.ClickC Formset1.Form2.Grid1.Column1.Header1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column1.Header1.DblClick Formset1.Form2.Grid1.Column1.Header1.DblClickC Formset1.Form2.Grid1.Column1.Header1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column1.Header1.MouseDown Formset1.Form2.Grid1.Column1.Header1.MouseDown Formset1.Form2.Grid1.Column1.Header1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column1.Header1.MouseMove Formset1.Form2.Grid1.Column1.Header1.MouseMove Formset1.Form2.Grid1.Column1.Header1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE} Formset1.Form2.Grid1.Column1.Header1.MouseUp Formset1.Form2.Grid1.Column1.Header1.MouseUp Formset1.Form2.Grid1.Column1.Header1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column1.Header1.RightClick Formset1.Form2.Grid1.Column1.Header1.RightClickC Formset1.Form2.Grid1.Column1.Header1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickh MouseDown MouseMove MouseUp RightClickw c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp header header Header2 Formset1.form2.Grid1.Column2. 6Alignment = 2 Caption = "Country" Name = "Header2" FPROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.Header2.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.Header2.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.Header2.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.Header2.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.Header2.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.Header2.DblClick" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.Header2.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.Header2.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.Header2.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.Header2.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.Header2.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.Header2.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.Header2.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.Header2.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.Header2.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.Header2.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.Header2.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.Header2.RightClick" Nowait ENDCASE ENDPROC Formset1.Form2.Grid1.Column2.Header2.Click Formset1.Form2.Grid1.Column2.Header2.ClickC Formset1.Form2.Grid1.Column2.Header2.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column2.Header2.DblClick Formset1.Form2.Grid1.Column2.Header2.DblClickC Formset1.Form2.Grid1.Column2.Header2.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column2.Header2.MouseDown Formset1.Form2.Grid1.Column2.Header2.MouseDown Formset1.Form2.Grid1.Column2.Header2.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column2.Header2.MouseMove Formset1.Form2.Grid1.Column2.Header2.MouseMove Formset1.Form2.Grid1.Column2.Header2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE} Formset1.Form2.Grid1.Column2.Header2.MouseUp Formset1.Form2.Grid1.Column2.Header2.MouseUp Formset1.Form2.Grid1.Column2.Header2.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column2.Header2.RightClick Formset1.Form2.Grid1.Column2.Header2.RightClickC Formset1.Form2.Grid1.Column2.Header2.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickh MouseDown MouseMove MouseUp RightClickw c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp optiongroup optiongroup Optiongroup1 Formset1.form2. ButtonCount = 3 BackColor = 192,192,192 Caption = "Optiongroup1" Height = 54 Left = 156 Top = 31 Width = 83 Name = "Optiongroup1" Option1.BackColor = 192,192,192 Option1.Caption = "Option 1" Option1.Height = 15 Option1.Left = 5 Option1.Top = 3 Option1.Width = 71 Option1.Name = "Option1" Option2.BackColor = 192,192,192 Option2.Caption = "Option 2" Option2.Height = 15 Option2.Left = 5 Option2.Top = 20 Option2.Width = 71 Option2.Name = "Option2" Option3.BackColor = 192,192,192 Option3.BackStyle = 1 Option3.Caption = "Option 3" Option3.Height = 15 Option3.Left = 5 Option3.Top = 37 Option3.Width = 71 Option3.Name = "Option3" c!PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE InteractiveChange DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.InteractiveChange" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.InteractiveChange" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.InteractiveChange" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Init" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.When" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Valid" Nowait ENDCASE ENDPROC PROCEDURE Option1.Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.Click" Nowait ENDCASE ENDPROC PROCEDURE Option1.DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Option1.DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Option1.DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Option1.GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE Option1.KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option1.LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE Option1.MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option1.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option1.MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option1.RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Option1.Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Option1.Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.Init" Nowait ENDCASE ENDPROC PROCEDURE Option1.When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.When" Nowait ENDCASE ENDPROC PROCEDURE Option1.Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.Valid" Nowait ENDCASE ENDPROC PROCEDURE Option2.Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.Click" Nowait ENDCASE ENDPROC PROCEDURE Option2.DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Option2.DragDrop Parameters cSource, nXCoord, nYCoord paramstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.DragDrop"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.DragDrop"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.DragDrop"+paramstr Nowait ENDCASE ENDPROC PROCEDURE Option2.DragOver Parameters cSource, nXCoord, nYCoord, nState paramstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.DragOver"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.DragOver"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.DragOver"+paramstr Nowait ENDCASE ENDPROC PROCEDURE Option2.GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE Option2.KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse paramstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.KeyPress"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.KeyPress"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.KeyPress"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option2.LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE Option2.MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse paramstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.MouseDown"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.MouseDown"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.MouseDown"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option2.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse paramstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.MouseMove"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.MouseMove"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.MouseMove"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option2.MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse paramstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.MouseUp"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.MouseUp"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.MouseUp"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option2.RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Option2.Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Option2.Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.Init" Nowait ENDCASE ENDPROC PROCEDURE Option2.When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.When" Nowait ENDCASE ENDPROC PROCEDURE Option2.Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.Valid" Nowait ENDCASE ENDPROC PROCEDURE Option3.Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.Click" Nowait ENDCASE ENDPROC PROCEDURE Option3.DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Option3.DragDrop Parameters cSource, nXCoord, nYCoord paramstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.DragDrop"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.DragDrop"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.DragDrop"+paramstr Nowait ENDCASE ENDPROC PROCEDURE Option3.DragOver Parameters cSource, nXCoord, nYCoord, nState paramstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.DragOver"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.DragOver"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.DragOver"+paramstr Nowait ENDCASE ENDPROC PROCEDURE Option3.GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE Option3.KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse paramstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.KeyPress"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.KeyPress"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.KeyPress"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option3.LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE Option3.MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse paramstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.MouseDown"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.MouseDown"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.MouseDown"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option3.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse paramstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.MouseMove"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.MouseMove"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.MouseMove"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option3.MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse paramstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.MouseUp"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.MouseUp"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.MouseUp"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option3.RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Option3.Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Option3.Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.Init" Nowait ENDCASE ENDPROC PROCEDURE Option3.When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.When" Nowait ENDCASE ENDPROC PROCEDURE Option3.Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.Valid" Nowait ENDCASE ENDPROC Formset1.Form2.OptionGroup1.Click Formset1.Form2.OptionGroup1.ClickC Formset1.Form2.OptionGroup1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.DblClick Formset1.Form2.OptionGroup1.DblClickC Formset1.Form2.OptionGroup1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEB Formset1.Form2.OptionGroup1.DragDrop Formset1.Form2.OptionGroup1.DragDrop Formset1.Form2.OptionGroup1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUES Formset1.Form2.OptionGroup1.DragOver Formset1.Form2.OptionGroup1.DragOver Formset1.Form2.OptionGroup1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.InteractiveChange Formset1.Form2.OptionGroup1.InteractiveChangeC Formset1.Form2.OptionGroup1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEh Formset1.Form2.OptionGroup1.MouseDown Formset1.Form2.OptionGroup1.MouseDown Formset1.Form2.OptionGroup1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEh Formset1.Form2.OptionGroup1.MouseMove Formset1.Form2.OptionGroup1.MouseMove Formset1.Form2.OptionGroup1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEb Formset1.Form2.OptionGroup1.MouseUp Formset1.Form2.OptionGroup1.MouseUp Formset1.Form2.OptionGroup1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.RightClick Formset1.Form2.OptionGroup1.RightClickC Formset1.Form2.OptionGroup1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Init Formset1.Form2.OptionGroup1.InitC Formset1.Form2.OptionGroup1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.When Formset1.Form2.OptionGroup1.WhenC Formset1.Form2.OptionGroup1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Valid Formset1.Form2.OptionGroup1.ValidC Formset1.Form2.OptionGroup1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.Click Formset1.Form2.OptionGroup1.Option1.ClickC Formset1.Form2.OptionGroup1.Option1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.DblClick Formset1.Form2.OptionGroup1.Option1.DblClickC Formset1.Form2.OptionGroup1.Option1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEZ Formset1.Form2.OptionGroup1.Option1.DragDrop Formset1.Form2.OptionGroup1.Option1.DragDrop Formset1.Form2.OptionGroup1.Option1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.OptionGroup1.Option1.DragOver Formset1.Form2.OptionGroup1.Option1.DragOver Formset1.Form2.OptionGroup1.Option1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.GotFocus Formset1.Form2.OptionGroup1.Option1.GotFocusC Formset1.Form2.OptionGroup1.Option1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE[ Formset1.Form2.OptionGroup1.Option1.KeyPress Formset1.Form2.OptionGroup1.Option1.KeyPress Formset1.Form2.OptionGroup1.Option1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.LostFocus Formset1.Form2.OptionGroup1.Option1.LostFocusC Formset1.Form2.OptionGroup1.Option1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.MouseDown Formset1.Form2.OptionGroup1.Option1.MouseDown Formset1.Form2.OptionGroup1.Option1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.MouseMove Formset1.Form2.OptionGroup1.Option1.MouseMove Formset1.Form2.OptionGroup1.Option1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEz Formset1.Form2.OptionGroup1.Option1.MouseUp Formset1.Form2.OptionGroup1.Option1.MouseUp Formset1.Form2.OptionGroup1.Option1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.RightClick Formset1.Form2.OptionGroup1.Option1.RightClickC Formset1.Form2.OptionGroup1.Option1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.Destroy Formset1.Form2.OptionGroup1.Option1.DestroyC Formset1.Form2.OptionGroup1.Option1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.Init Formset1.Form2.OptionGroup1.Option1.InitC Formset1.Form2.OptionGroup1.Option1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.When Formset1.Form2.OptionGroup1.Option1.WhenC Formset1.Form2.OptionGroup1.Option1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.Valid Formset1.Form2.OptionGroup1.Option1.ValidC Formset1.Form2.OptionGroup1.Option1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.Click Formset1.Form2.OptionGroup1.Option2.ClickC Formset1.Form2.OptionGroup1.Option2.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.DblClick Formset1.Form2.OptionGroup1.Option2.DblClickC Formset1.Form2.OptionGroup1.Option2.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEZ Formset1.Form2.OptionGroup1.Option2.DragDrop Formset1.Form2.OptionGroup1.Option2.DragDrop Formset1.Form2.OptionGroup1.Option2.DragDrop CSOURCE NXCOORD NYCOORD PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.OptionGroup1.Option2.DragOver Formset1.Form2.OptionGroup1.Option2.DragOver Formset1.Form2.OptionGroup1.Option2.DragOver CSOURCE NXCOORD NYCOORD NSTATE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.GotFocus Formset1.Form2.OptionGroup1.Option2.GotFocusC Formset1.Form2.OptionGroup1.Option2.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE[ Formset1.Form2.OptionGroup1.Option2.KeyPress Formset1.Form2.OptionGroup1.Option2.KeyPress Formset1.Form2.OptionGroup1.Option2.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.LostFocus Formset1.Form2.OptionGroup1.Option2.LostFocusC Formset1.Form2.OptionGroup1.Option2.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.MouseDown Formset1.Form2.OptionGroup1.Option2.MouseDown Formset1.Form2.OptionGroup1.Option2.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.MouseMove Formset1.Form2.OptionGroup1.Option2.MouseMove Formset1.Form2.OptionGroup1.Option2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEz Formset1.Form2.OptionGroup1.Option2.MouseUp Formset1.Form2.OptionGroup1.Option2.MouseUp Formset1.Form2.OptionGroup1.Option2.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.RightClick Formset1.Form2.OptionGroup1.Option2.RightClickC Formset1.Form2.OptionGroup1.Option2.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.Destroy Formset1.Form2.OptionGroup1.Option2.DestroyC Formset1.Form2.OptionGroup1.Option2.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.Init Formset1.Form2.OptionGroup1.Option2.InitC Formset1.Form2.OptionGroup1.Option2.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.When Formset1.Form2.OptionGroup1.Option2.WhenC Formset1.Form2.OptionGroup1.Option2.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.Valid Formset1.Form2.OptionGroup1.Option2.ValidC Formset1.Form2.OptionGroup1.Option2.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.Click Formset1.Form2.OptionGroup1.Option3.ClickC Formset1.Form2.OptionGroup1.Option3.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.DblClick Formset1.Form2.OptionGroup1.Option3.DblClickC Formset1.Form2.OptionGroup1.Option3.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEZ Formset1.Form2.OptionGroup1.Option3.DragDrop Formset1.Form2.OptionGroup1.Option3.DragDrop Formset1.Form2.OptionGroup1.Option3.DragDrop CSOURCE NXCOORD NYCOORD PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.OptionGroup1.Option3.DragOver Formset1.Form2.OptionGroup1.Option3.DragOver Formset1.Form2.OptionGroup1.Option3.DragOver CSOURCE NXCOORD NYCOORD NSTATE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.GotFocus Formset1.Form2.OptionGroup1.Option3.GotFocusC Formset1.Form2.OptionGroup1.Option3.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE[ Formset1.Form2.OptionGroup1.Option3.KeyPress Formset1.Form2.OptionGroup1.Option3.KeyPress Formset1.Form2.OptionGroup1.Option3.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.LostFocus Formset1.Form2.OptionGroup1.Option3.LostFocusC Formset1.Form2.OptionGroup1.Option3.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.MouseDown Formset1.Form2.OptionGroup1.Option3.MouseDown Formset1.Form2.OptionGroup1.Option3.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.MouseMove Formset1.Form2.OptionGroup1.Option3.MouseMove Formset1.Form2.OptionGroup1.Option3.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEz Formset1.Form2.OptionGroup1.Option3.MouseUp Formset1.Form2.OptionGroup1.Option3.MouseUp Formset1.Form2.OptionGroup1.Option3.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.RightClick Formset1.Form2.OptionGroup1.Option3.RightClickC Formset1.Form2.OptionGroup1.Option3.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.Destroy Formset1.Form2.OptionGroup1.Option3.DestroyC Formset1.Form2.OptionGroup1.Option3.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.Init Formset1.Form2.OptionGroup1.Option3.InitC Formset1.Form2.OptionGroup1.Option3.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.When Formset1.Form2.OptionGroup1.Option3.WhenC Formset1.Form2.OptionGroup1.Option3.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.Valid Formset1.Form2.OptionGroup1.Option3.ValidC Formset1.Form2.OptionGroup1.Option3.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickM DragDropw DragOver InteractiveChange MouseDown MouseMove MouseUp RightClick Valid Option1.Click Option1.DblClickT Option1.DragDrop Option1.DragOverN Option1.GotFocus Option1.KeyPressa Option1.LostFocus Option1.MouseDownd Option1.MouseMoveQ Option1.MouseUp> Option1.RightClick%! Option1.Destroym" Option1.Init Option1.When Option1.Valid Option2.ClickQ' Option2.DblClick Option2.DragDrop Option2.DragOver Option2.GotFocusS- Option2.KeyPress Option2.LostFocusR0 Option2.MouseDown Option2.MouseMove Option2.MouseUpo5 Option2.RightClickU7 Option2.Destroy Option2.Init Option2.When Option2.ValidH< Option3.Click Option3.DblClick Option3.DragDrop Option3.DragOver Option3.GotFocus Option3.KeyPress Option3.LostFocus Option3.MouseDown Option3.MouseMove Option3.MouseUp Option3.RightClick Option3.Destroy Option3.Init Option3.WhenBQ Option3.ValidxR c:\vfp\samples\controls\events\ 09056567.tmp c:\vfp\samples\controls\events\09056567.tmp "Arial, 1, 10, 6, 16, 13, 15, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation KLeft = 133 Top = 200 Width = 581 Height = 300 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation Left = 20 Top = 10 Width = 98 Height = 108 Alias = "customer" Database = ..\..\data\testdata.dbc CursorSource = "customer" Name = "Cursor1" formset formset Formset1 &AutoRelease = .T. Name = "Formset1" 'PROCEDURE Activate DO CASE CASE Noutput = 1 ? "Formset1.Activate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Activate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Activate" Nowait ENDCASE IF LDone Release ThisFormSet ENDIF ENDPROC PROCEDURE Deactivate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Deactivate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Deactivate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Deactivate" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Init" Nowait ENDCASE ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine WAIT WINDOW "ERROR " + ALLTRIM(STR(nError)) ENDPROC PROCEDURE Load DO Toolbar Public Noutput Noutput = 1 DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Load" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Load" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Load" Nowait ENDCASE ENDPROC PROCEDURE Unload DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Unload" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Unload" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Unload" Nowait ENDCASE * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC Formset1.Activate Formset1.ActivateC Formset1.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE LDONE Formset1.Deactivate Formset1.DeactivateC Formset1.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Destroy Formset1.DestroyC Formset1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Init Formset1.InitC Formset1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE* ERROR CC NERROR CMETHOD NLINE Formset1.Load Formset1.LoadC Formset1.Load TOOLBAR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Unload Formset1.UnloadC Formset1.Unload mainb NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Activate, Deactivate7 Destroy. Error LoadG UnloadP c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx form1 Formset1 ScaleMode = 3 Top = 24 Left = 234 Height = 186 Width = 119 BackColor = 192,192,192 BorderStyle = 3 Caption = "Form1" Closable = .F. ControlBox = .F. HalfHeightCaption = .F. MaxButton = .F. MinButton = .F. Movable = .T. WindowState = 0 Name = "form1" iPROCEDURE Activate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Activate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Activate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Activate" Nowait ENDCASE ENDPROC PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Deactivate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Deactivate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Deactivate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Deactivate" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord CParamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.DragDrop "+CParamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.DragDrop "+CParamstr + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.DragDrop "+CParamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.DragOver "+CParamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.DragOver "+CParamstr + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.DragOver "+CParamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.KeyPress "+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.KeyPress "+Cparamstr + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.KeyPress "+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Load Public Noutput,oFormSet oFormSet = ThisFormSet *IF USED('customer') * SELECT customer *ELSE * SELECT 0 * USE customer alias customer *ENDIF DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Load" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Load" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Load" Nowait ENDCASE ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.MouseDown "+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.MouseDown "+Cparamstr + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.MouseDown "+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.MouseMove "+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.MouseMove "+Cparamstr + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.MouseMove "+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.MouseUp "+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.MouseUp "+Cparamstr + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.MouseUp "+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Paint *DO CASE *CASE Noutput = 1 * Activate Screen * ? "Formset1.Form1.Paint" *CASE Noutput = 2 * ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Paint" + ; * chr(13) + ThisFormSet.EventWin.Edit1.Value *CASE Noutput = 3 * Wait Window "Formset1.Form1.Paint" Nowait *ENDCASE ENDPROC PROCEDURE Resize DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Resize" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Resize" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Resize" Nowait ENDCASE ENDPROC PROCEDURE Unload DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Unload" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Unload" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Unload" Nowait ENDCASE RELEASE EventTool ENDPROC Formset1.Form1.Activate Formset1.Form1.ActivateC Formset1.Form1.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Click Formset1.Form1.ClickC Formset1.Form1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.DblClick Formset1.Form1.DblClickC Formset1.Form1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Deactivate Formset1.Form1.DeactivateC Formset1.Form1.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Destroy Formset1.Form1.DestroyC Formset1.Form1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.DragDrop Formset1.Form1.DragDrop Formset1.Form1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE/ Formset1.Form1.DragOver Formset1.Form1.DragOver Formset1.Form1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.GotFocus Formset1.Form1.GotFocusC Formset1.Form1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.KeyPress Formset1.Form1.KeyPress Formset1.Form1.KeyPress NKEYCODE NSHIFTALTCTRL CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Load Formset1.Form1.LoadC Formset1.Form1.Load NOUTPUT OFORMSET THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.LostFocus Formset1.Form1.LostFocusC Formset1.Form1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUED Formset1.Form1.MouseDown Formset1.Form1.MouseDown Formset1.Form1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUED Formset1.Form1.MouseMove Formset1.Form1.MouseMove Formset1.Form1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE> Formset1.Form1.MouseUp Formset1.Form1.MouseUp Formset1.Form1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Resize Formset1.Form1.ResizeC Formset1.Form1.Resize NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Unload Formset1.Form1.UnloadC Formset1.Form1.Unload NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE EVENTTOOL Activate, Click/ DblClick) Deactivate, Destroy5 DragDrop5 DragOver GotFocusF KeyPressI LostFocus MouseDown MouseMove} MouseUp. Paint Resize Unload c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx shape shape Shape1 Formset1.form1 @Height = 42 Left = 11 Top = 138 Width = 93 Name = "Shape1" image image FoxIcon Formset1.form1 Picture = ..\..\..\fox.bmp DragIcon = fox.cur DragMode = 1 Height = 26 Left = 75 Top = 147 Width = 25 Name = "FoxIcon" PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord This.Drag(1) ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord This.Drag(2) ENDPROC NBUTTON NSHIFT NXCOORD NYCOORD DRAG& NBUTTON NSHIFT NXCOORD NYCOORD DRAG MouseDown, MouseUp c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx label label Label2 Formset1.form1 BackColor = 255,255,255 Caption = "Drag this icon ->" Height = 33 Left = 15 Top = 142 Width = 57 WordWrap = .T. Name = "Label2" spinner spinner Spinner1 Formset1.form1 @Height = 25 Left = 43 Top = 3 Width = 42 Name = "Spinner1" PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DownClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.DownClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.DownClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.DownClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE InteractiveChange DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.InteractiveChange" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.InteractiveChange" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.InteractiveChange" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE UpClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.UpClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.UpClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.UpClick" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.Init" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.When" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Spinner1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Spinner1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Spinner1.Valid" Nowait ENDCASE ENDPROC Formset1.Form1.Spinner1.Click Formset1.Form1.Spinner1.ClickC Formset1.Form1.Spinner1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.DblClick Formset1.Form1.Spinner1.DblClickC Formset1.Form1.Spinner1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.DownClick Formset1.Form1.Spinner1.DownClickC Formset1.Form1.Spinner1.DownClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE6 Formset1.Form1.Spinner1.DragDrop Formset1.Form1.Spinner1.DragDrop Formset1.Form1.Spinner1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEG Formset1.Form1.Spinner1.DragOver Formset1.Form1.Spinner1.DragOver Formset1.Form1.Spinner1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.GotFocus Formset1.Form1.Spinner1.GotFocusC Formset1.Form1.Spinner1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.InteractiveChange Formset1.Form1.Spinner1.InteractiveChangeC Formset1.Form1.Spinner1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE7 Formset1.Form1.Spinner1.KeyPress Formset1.Form1.Spinner1.KeyPress Formset1.Form1.Spinner1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.LostFocus Formset1.Form1.Spinner1.LostFocusC Formset1.Form1.Spinner1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form1.Spinner1.MouseDown Formset1.Form1.Spinner1.MouseDown Formset1.Form1.Spinner1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form1.Spinner1.MouseMove Formset1.Form1.Spinner1.MouseMove Formset1.Form1.Spinner1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEV Formset1.Form1.Spinner1.MouseUp Formset1.Form1.Spinner1.MouseUp Formset1.Form1.Spinner1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.RightClick Formset1.Form1.Spinner1.RightClickC Formset1.Form1.Spinner1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.UpClick Formset1.Form1.Spinner1.UpClickC Formset1.Form1.Spinner1.UpClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.Init Formset1.Form1.Spinner1.InitC Formset1.Form1.Spinner1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.When Formset1.Form1.Spinner1.WhenC Formset1.Form1.Spinner1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.Valid Formset1.Form1.Spinner1.ValidC Formset1.Form1.Spinner1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickA DownClick_ DragDrop DragOver GotFocus InteractiveChange KeyPress LostFocus MouseDown MouseMove MouseUpe RightClick( UpClickL Initg Wheny Valid c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx commandbutton commandbutton Command1 Formset1.form1 ^Top = 110 Left = 1 Height = 25 Width = 117 Caption = "Command Button" Name = "Command1" PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.Click" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.Init" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.When" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form1.Command1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form1.Command1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form1.Command1.Valid" Nowait ENDCASE ENDPROC Formset1.Form1.Command1.Click Formset1.Form1.Command1.ClickC Formset1.Form1.Command1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE6 Formset1.Form1.Command1.DragDrop Formset1.Form1.Command1.DragDrop Formset1.Form1.Command1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEG Formset1.Form1.Command1.DragOver Formset1.Form1.Command1.DragOver Formset1.Form1.Command1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.GotFocus Formset1.Form1.Command1.GotFocusC Formset1.Form1.Command1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE7 Formset1.Form1.Command1.KeyPress Formset1.Form1.Command1.KeyPress Formset1.Form1.Command1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.LostFocus Formset1.Form1.Command1.LostFocusC Formset1.Form1.Command1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form1.Command1.MouseDown Formset1.Form1.Command1.MouseDown Formset1.Form1.Command1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form1.Command1.MouseMove Formset1.Form1.Command1.MouseMove Formset1.Form1.Command1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEV Formset1.Form1.Command1.MouseUp Formset1.Form1.Command1.MouseUp Formset1.Form1.Command1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.RightClick Formset1.Form1.Command1.RightClickC Formset1.Form1.Command1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.Destroy Formset1.Form1.Command1.DestroyC Formset1.Form1.Command1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.Init Formset1.Form1.Command1.InitC Formset1.Form1.Command1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.When Formset1.Form1.Command1.WhenC Formset1.Form1.Command1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.Valid Formset1.Form1.Command1.ValidC Formset1.Form1.Command1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DragDropA DragOver GotFocus KeyPress LostFocus: MouseDown[ MouseMove$ MouseUp RightClick Destroy Valid c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx eventwin Formset1 ScaleMode = 3 Top = 236 Left = 234 Height = 144 Width = 388 Caption = "Event Window" Closable = .F. Visible = .F. Name = "eventwin" editbox editbox Edit1 Formset1.eventwin WBackColor = 255,255,255 Height = 144 Left = 0 Top = 0 Width = 389 Name = "Edit1" form2 Formset1 ScaleMode = 3 Top = 24 Left = 363 Height = 186 Width = 259 BackColor = 192,192,192 Caption = "Form2" WindowState = 0 Name = "form2" PROCEDURE Activate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Activate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Activate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Activate" Nowait ENDCASE ENDPROC PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Deactivate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Deactivate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Deactivate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Deactivate" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Destroy" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Init" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Load DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Load" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Load" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Load" Nowait ENDCASE ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Paint *DO CASE *CASE Noutput = 1 * Activate Screen * ? "Formset1.Form2.Paint" *CASE Noutput = 2 * ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Paint" + ; * chr(13) + ThisFormSet.EventWin.Edit1.Value *CASE Noutput = 3 * Wait Window "Formset1.Form2.Paint" Nowait *ENDCASE ENDPROC PROCEDURE Resize DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Resize" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Resize" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Resize" Nowait ENDCASE ENDPROC PROCEDURE Unload DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Unload" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Unload" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Unload" Nowait ENDCASE ENDPROC Formset1.Form2.Activate Formset1.Form2.ActivateC Formset1.Form2.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Click Formset1.Form2.ClickC Formset1.Form2.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.DblClick Formset1.Form2.DblClickC Formset1.Form2.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Deactivate Formset1.Form2.DeactivateC Formset1.Form2.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Destroy Formset1.Form2.DestroyC Formset1.Form2.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.DragDrop Formset1.Form2.DragDrop Formset1.Form2.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE, Formset1.Form2.DragOver Formset1.Form2.DragOver Formset1.Form2.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.GotFocus Formset1.Form2.GotFocusC Formset1.Form2.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Init Formset1.Form2.InitC Formset1.Form2.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.KeyPress Formset1.Form2.KeyPress Formset1.Form2.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Load Formset1.Form2.LoadC Formset1.Form2.Load NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.LostFocus Formset1.Form2.LostFocusC Formset1.Form2.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEA Formset1.Form2.MouseDown Formset1.Form2.MouseDown Formset1.Form2.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEA Formset1.Form2.MouseMove Formset1.Form2.MouseMove Formset1.Form2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE; Formset1.Form2.MouseUp Formset1.Form2.MouseUp Formset1.Form2.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Resize Formset1.Form2.ResizeC Formset1.Form2.Resize NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Unload Formset1.Form2.UnloadC Formset1.Form2.Unload NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Activate, Click/ DblClick) Deactivate, Destroy5 DragDrop5 DragOver GotFocus@ InitC KeyPress: LostFocus MouseDown MouseMoved MouseUp Paint Resize Unload c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx pageframe pageframe Pageframe1 Formset1.form2 ErasePage = .T. PageCount = 2 Top = 3 Left = 7 Height = 87 Width = 245 Name = "Pageframe1" Page1.Caption = "Page1" Page1.Name = "Page1" Page2.Caption = "Page2" Page2.Name = "Page2" PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Init" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Page1.Activate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.Activate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.Activate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.Activate" Nowait ENDCASE ENDPROC PROCEDURE Page1.Deactivate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.Deactivate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.Deactivate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.Deactivate" Nowait ENDCASE ENDPROC PROCEDURE Page1.Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Page1.Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.Init" Nowait ENDCASE ENDPROC PROCEDURE Page1.Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.Click" Nowait ENDCASE ENDPROC PROCEDURE Page1.DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Page1.DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Page1.DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Page1.MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Page1.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Page1.MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Page1.RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Page2.Activate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Activate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Activate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Activate" Nowait ENDCASE ENDPROC PROCEDURE Page2.Deactivate DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Deactivate" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Deactivate" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Deactivate" Nowait ENDCASE ENDPROC PROCEDURE Page2.Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Page2.Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Init" Nowait ENDCASE ENDPROC PROCEDURE Page2.Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Click" Nowait ENDCASE ENDPROC PROCEDURE Page2.DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Page2.DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Page2.DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Page2.MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Page2.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Page2.MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Page2.RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.RightClick" Nowait ENDCASE ENDPROC Formset1.Form2.PageFrame1.Init Formset1.Form2.PageFrame1.InitC Formset1.Form2.PageFrame1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Destroy Formset1.Form2.PageFrame1.DestroyC Formset1.Form2.PageFrame1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Click Formset1.Form2.PageFrame1.ClickC Formset1.Form2.PageFrame1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.DblClick Formset1.Form2.PageFrame1.DblClickC Formset1.Form2.PageFrame1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE< Formset1.Form2.PageFrame1.DragDrop Formset1.Form2.PageFrame1.DragDrop Formset1.Form2.PageFrame1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEM Formset1.Form2.PageFrame1.DragOver Formset1.Form2.PageFrame1.DragOver Formset1.Form2.PageFrame1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEb Formset1.Form2.PageFrame1.MouseDown Formset1.Form2.PageFrame1.MouseDown Formset1.Form2.PageFrame1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEb Formset1.Form2.PageFrame1.MouseMove Formset1.Form2.PageFrame1.MouseMove Formset1.Form2.PageFrame1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form2.PageFrame1.MouseUp Formset1.Form2.PageFrame1.MouseUp Formset1.Form2.PageFrame1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.RightClick Formset1.Form2.PageFrame1.RightClickC Formset1.Form2.PageFrame1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Activate Formset1.Form2.PageFrame1.Page1.ActivateC Formset1.Form2.PageFrame1.Page1.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Deactivate Formset1.Form2.PageFrame1.Page1.DeactivateC Formset1.Form2.PageFrame1.Page1.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Destroy Formset1.Form2.PageFrame1.Page1.DestroyC Formset1.Form2.PageFrame1.Page1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Init Formset1.Form2.PageFrame1.Page1.InitC Formset1.Form2.PageFrame1.Page1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Click Formset1.Form2.PageFrame1.Page1.ClickC Formset1.Form2.PageFrame1.Page1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.DblClick Formset1.Form2.PageFrame1.Page1.DblClickC Formset1.Form2.PageFrame1.Page1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEN Formset1.Form2.PageFrame1.Page1.DragDrop Formset1.Form2.PageFrame1.Page1.DragDrop Formset1.Form2.PageFrame1.Page1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE_ Formset1.Form2.PageFrame1.Page1.DragOver Formset1.Form2.PageFrame1.Page1.DragOver Formset1.Form2.PageFrame1.Page1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page1.MouseDown Formset1.Form2.PageFrame1.Page1.MouseDown Formset1.Form2.PageFrame1.Page1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page1.MouseMove Formset1.Form2.PageFrame1.Page1.MouseMove Formset1.Form2.PageFrame1.Page1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEn Formset1.Form2.PageFrame1.Page1.MouseUp Formset1.Form2.PageFrame1.Page1.MouseUp Formset1.Form2.PageFrame1.Page1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.RightClick Formset1.Form2.PageFrame1.Page1.RightClickC Formset1.Form2.PageFrame1.Page1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Activate Formset1.Form2.PageFrame1.Page2.ActivateC Formset1.Form2.PageFrame1.Page2.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Deactivate Formset1.Form2.PageFrame1.Page2.DeactivateC Formset1.Form2.PageFrame1.Page2.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Destroy Formset1.Form2.PageFrame1.Page2.DestroyC Formset1.Form2.PageFrame1.Page2.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Init Formset1.Form2.PageFrame1.Page2.InitC Formset1.Form2.PageFrame1.Page2.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Click Formset1.Form2.PageFrame1.Page2.ClickC Formset1.Form2.PageFrame1.Page2.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.DblClick Formset1.Form2.PageFrame1.Page2.DblClickC Formset1.Form2.PageFrame1.Page2.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEN Formset1.Form2.PageFrame1.Page2.DragDrop Formset1.Form2.PageFrame1.Page2.DragDrop Formset1.Form2.PageFrame1.Page2.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE_ Formset1.Form2.PageFrame1.Page2.DragOver Formset1.Form2.PageFrame1.Page2.DragOver Formset1.Form2.PageFrame1.Page2.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.MouseDown Formset1.Form2.PageFrame1.Page2.MouseDown Formset1.Form2.PageFrame1.Page2.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.MouseMove Formset1.Form2.PageFrame1.Page2.MouseMove Formset1.Form2.PageFrame1.Page2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEn Formset1.Form2.PageFrame1.Page2.MouseUp Formset1.Form2.PageFrame1.Page2.MouseUp Formset1.Form2.PageFrame1.Page2.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.RightClick Formset1.Form2.PageFrame1.Page2.RightClickC Formset1.Form2.PageFrame1.Page2.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Init, DestroyD Clicke DblClick DragDrop DragOver> MouseDown MouseMove MouseUp RightClickX Page1.Activate Page1.Deactivate Page1.Destroy Page1.Init' Page1.ClickQ Page1.DblClick~ Page1.DragDrop Page1.DragOver` Page1.MouseDown% Page1.MouseMove Page1.MouseUp Page1.RightClick Page2.Activate Page2.Deactivate4! Page2.Destroyp" Page2.Init Page2.Click Page2.DblClick Page2.DragDrop0' Page2.DragOver Page2.MouseDown Page2.MouseMove Page2.MouseUpc. Page2.RightClick>0 c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx checkbox checkbox Check1 Formset1.form2.Pageframe1.Page1 oTop = 10 Left = 12 Height = 17 Width = 113 BackColor = 192,192,192 Caption = "CheckBox" Name = "Check1" PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.Click" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE InteractiveChange DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChange" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChange" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChange" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.Init" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.When" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Check1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Check1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Check1.Valid" Nowait ENDCASE ENDPROC Formset1.Form2.PageFrame1.Page2.Check1.Click Formset1.Form2.PageFrame1.Page2.Check1.ClickC Formset1.Form2.PageFrame1.Page2.Check1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEc Formset1.Form2.PageFrame1.Page2.Check1.DragDrop Formset1.Form2.PageFrame1.Page2.Check1.DragDrop Formset1.Form2.PageFrame1.Page2.Check1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.Check1.DragOver Formset1.Form2.PageFrame1.Page2.Check1.DragOver Formset1.Form2.PageFrame1.Page2.Check1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.GotFocus Formset1.Form2.PageFrame1.Page2.Check1.GotFocusC Formset1.Form2.PageFrame1.Page2.Check1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE4 Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChange Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChangeC Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEd Formset1.Form2.PageFrame1.Page2.Check1.KeyPress Formset1.Form2.PageFrame1.Page2.Check1.KeyPress Formset1.Form2.PageFrame1.Page2.Check1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.LostFocus Formset1.Form2.PageFrame1.Page2.Check1.LostFocusC Formset1.Form2.PageFrame1.Page2.Check1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.MouseDown Formset1.Form2.PageFrame1.Page2.Check1.MouseDown Formset1.Form2.PageFrame1.Page2.Check1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.MouseMove Formset1.Form2.PageFrame1.Page2.Check1.MouseMove Formset1.Form2.PageFrame1.Page2.Check1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.MouseUp Formset1.Form2.PageFrame1.Page2.Check1.MouseUp Formset1.Form2.PageFrame1.Page2.Check1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.RightClick Formset1.Form2.PageFrame1.Page2.Check1.RightClickC Formset1.Form2.PageFrame1.Page2.Check1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.Destroy Formset1.Form2.PageFrame1.Page2.Check1.DestroyC Formset1.Form2.PageFrame1.Page2.Check1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.Init Formset1.Form2.PageFrame1.Page2.Check1.InitC Formset1.Form2.PageFrame1.Page2.Check1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.When Formset1.Form2.PageFrame1.Page2.Check1.WhenC Formset1.Form2.PageFrame1.Page2.Check1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.Valid Formset1.Form2.PageFrame1.Page2.Check1.ValidC Formset1.Form2.PageFrame1.Page2.Check1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DragDropn DragOver/ GotFocus InteractiveChangeT KeyPress LostFocus MouseDown MouseMove MouseUp RightClick Destroy InitD Valid c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx textbox textbox Text1 Formset1.form2.Pageframe1.Page1 YValue = Text Box Height = 23 Left = 12 Top = 32 Width = 105 Name = "Text1" PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE InteractiveChange DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChange" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChange" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChange" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.Init" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.When" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Text1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Text1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Text1.Valid" Nowait ENDCASE ENDPROC Formset1.Form2.PageFrame1.Page2.Text1.Click Formset1.Form2.PageFrame1.Page2.Text1.ClickC Formset1.Form2.PageFrame1.Page2.Text1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.DblClick Formset1.Form2.PageFrame1.Page2.Text1.DblClickC Formset1.Form2.PageFrame1.Page2.Text1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE` Formset1.Form2.PageFrame1.Page2.Text1.DragDrop Formset1.Form2.PageFrame1.Page2.Text1.DragDrop Formset1.Form2.PageFrame1.Page2.Text1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEq Formset1.Form2.PageFrame1.Page2.Text1.DragOver Formset1.Form2.PageFrame1.Page2.Text1.DragOver Formset1.Form2.PageFrame1.Page2.Text1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.GotFocus Formset1.Form2.PageFrame1.Page2.Text1.GotFocusC Formset1.Form2.PageFrame1.Page2.Text1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE1 Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChange Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChangeC Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEa Formset1.Form2.PageFrame1.Page2.Text1.KeyPress Formset1.Form2.PageFrame1.Page2.Text1.KeyPress Formset1.Form2.PageFrame1.Page2.Text1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.LostFocus Formset1.Form2.PageFrame1.Page2.Text1.LostFocusC Formset1.Form2.PageFrame1.Page2.Text1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.MouseDown Formset1.Form2.PageFrame1.Page2.Text1.MouseDown Formset1.Form2.PageFrame1.Page2.Text1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.MouseMove Formset1.Form2.PageFrame1.Page2.Text1.MouseMove Formset1.Form2.PageFrame1.Page2.Text1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.MouseUp Formset1.Form2.PageFrame1.Page2.Text1.MouseUp Formset1.Form2.PageFrame1.Page2.Text1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.RightClick Formset1.Form2.PageFrame1.Page2.Text1.RightClickC Formset1.Form2.PageFrame1.Page2.Text1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.Destroy Formset1.Form2.PageFrame1.Page2.Text1.DestroyC Formset1.Form2.PageFrame1.Page2.Text1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.Init Formset1.Form2.PageFrame1.Page2.Text1.InitC Formset1.Form2.PageFrame1.Page2.Text1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.When Formset1.Form2.PageFrame1.Page2.Text1.WhenC Formset1.Form2.PageFrame1.Page2.Text1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.Valid Formset1.Form2.PageFrame1.Page2.Text1.ValidC Formset1.Form2.PageFrame1.Page2.Text1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickk DragDrop DragOverq GotFocusH InteractiveChange KeyPress LostFocus MouseDown MouseMove MouseUp RightClick Destroy# Inith Valid c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx combobox combobox Combo1 Formset1.form2.Pageframe1.Page2 RowSourceType = 1 RowSource = "one,two,three,four,five,six,seven,eight,nine,ten" Height = 22 Left = 9 Top = 8 Width = 101 Name = "Combo1" PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DownClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.DownClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.DownClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.DownClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DropDown Parameters nIndex *Cparamstr = ","+allt(str(nIndex)) Cparamstr = "" DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.DropDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.DropDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.DropDown"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE InteractiveChange DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChange" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChange" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChange" Nowait ENDCASE ENDPROC PROCEDURE KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE UpClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.UpClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.UpClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.UpClick" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.Init" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.When" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Combo1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Combo1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Combo1.Valid" Nowait ENDCASE ENDPROC Formset1.Form2.PageFrame1.Page2.Combo1.Click Formset1.Form2.PageFrame1.Page2.Combo1.ClickC Formset1.Form2.PageFrame1.Page2.Combo1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.DblClick Formset1.Form2.PageFrame1.Page2.Combo1.DblClickC Formset1.Form2.PageFrame1.Page2.Combo1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.DownClick Formset1.Form2.PageFrame1.Page2.Combo1.DownClickC Formset1.Form2.PageFrame1.Page2.Combo1.DownClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEf Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.Combo1.DragOver Formset1.Form2.PageFrame1.Page2.Combo1.DragOver Formset1.Form2.PageFrame1.Page2.Combo1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE9 Formset1.Form2.PageFrame1.Page2.Combo1.DropDown Formset1.Form2.PageFrame1.Page2.Combo1.DropDown Formset1.Form2.PageFrame1.Page2.Combo1.DropDown NINDEX CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.GotFocus Formset1.Form2.PageFrame1.Page2.Combo1.GotFocusC Formset1.Form2.PageFrame1.Page2.Combo1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE4 Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChange Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChangeC Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEd Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.LostFocus Formset1.Form2.PageFrame1.Page2.Combo1.LostFocusC Formset1.Form2.PageFrame1.Page2.Combo1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.RightClick Formset1.Form2.PageFrame1.Page2.Combo1.RightClickC Formset1.Form2.PageFrame1.Page2.Combo1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.UpClick Formset1.Form2.PageFrame1.Page2.Combo1.UpClickC Formset1.Form2.PageFrame1.Page2.Combo1.UpClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.Destroy Formset1.Form2.PageFrame1.Page2.Combo1.DestroyC Formset1.Form2.PageFrame1.Page2.Combo1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.Init Formset1.Form2.PageFrame1.Page2.Combo1.InitC Formset1.Form2.PageFrame1.Page2.Combo1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.When Formset1.Form2.PageFrame1.Page2.Combo1.WhenC Formset1.Form2.PageFrame1.Page2.Combo1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.Valid Formset1.Form2.PageFrame1.Page2.Combo1.ValidC Formset1.Form2.PageFrame1.Page2.Combo1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickn DownClick DragDrop DragOver DropDown GotFocus# InteractiveChangen KeyPress LostFocus MouseDown MouseMove MouseUp RightClick UpClick Destroy^ Valid$ c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx label label Label1 Formset1.form2.Pageframe1.Page2 iBackColor = 0,255,255 Caption = "Label" Height = 17 Left = 9 Top = 36 Width = 105 Name = "Label1" PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.PageFrame1.Page2.Label1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.PageFrame1.Page2.Label1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.PageFrame1.Page2.Label1.Init" Nowait ENDCASE ENDPROC Formset1.Form2.PageFrame1.Page2.Label1.Click Formset1.Form2.PageFrame1.Page2.Label1.ClickC Formset1.Form2.PageFrame1.Page2.Label1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.DblClick Formset1.Form2.PageFrame1.Page2.Label1.DblClickC Formset1.Form2.PageFrame1.Page2.Label1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEc Formset1.Form2.PageFrame1.Page2.Label1.DragDrop Formset1.Form2.PageFrame1.Page2.Label1.DragDrop Formset1.Form2.PageFrame1.Page2.Label1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.Label1.DragOver Formset1.Form2.PageFrame1.Page2.Label1.DragOver Formset1.Form2.PageFrame1.Page2.Label1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.MouseDown Formset1.Form2.PageFrame1.Page2.Label1.MouseDown Formset1.Form2.PageFrame1.Page2.Label1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.MouseMove Formset1.Form2.PageFrame1.Page2.Label1.MouseMove Formset1.Form2.PageFrame1.Page2.Label1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.MouseUp Formset1.Form2.PageFrame1.Page2.Label1.MouseUp Formset1.Form2.PageFrame1.Page2.Label1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.RightClick Formset1.Form2.PageFrame1.Page2.Label1.RightClickC Formset1.Form2.PageFrame1.Page2.Label1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.Destroy Formset1.Form2.PageFrame1.Page2.Label1.DestroyC Formset1.Form2.PageFrame1.Page2.Label1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.Init Formset1.Form2.PageFrame1.Page2.Label1.InitC Formset1.Form2.PageFrame1.Page2.Label1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickn DragDrop DragOverz MouseDownT MouseMoveJ MouseUp@ RightClick0 Destroy c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Grid1 Formset1.form2 kColumnCount = 2 BackColor = 0,255,255 Height = 81 Left = 7 Panel = 1 RecordSource = "customer" RecordSourceType = 1 Top = 94 Width = 245 Name = "Grid1" Column1.Alignment = 2 Column1.ControlSource = "customer.contact" Column1.Width = 148 Column1.Name = "Column1" Column2.ControlSource = "customer.city" Column2.Width = 65 Column2.Name = "Column2" #PROCEDURE BeforeRowColChange Parameters nColIndex DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.RowColChange" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.RowColChange" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.RowColChange" Nowait ENDCASE ENDPROC PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Click" Nowait ENDCASE ENDPROC PROCEDURE Deleted Parameters nRecNo DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Deleted" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Deleted" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Deleted" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Valid" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.When" Nowait ENDCASE ENDPROC PROCEDURE Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Init" Nowait ENDCASE ENDPROC PROCEDURE Column1.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Column2.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC Formset1.Form2.Grid1.RowColChange Formset1.Form2.Grid1.RowColChangeC Formset1.Form2.Grid1.RowColChange NCOLINDEX NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Click Formset1.Form2.Grid1.ClickC Formset1.Form2.Grid1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Deleted Formset1.Form2.Grid1.DeletedC Formset1.Form2.Grid1.Deleted NRECNO NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.DblClick Formset1.Form2.Grid1.DblClickC Formset1.Form2.Grid1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE- Formset1.Form2.Grid1.DragDrop Formset1.Form2.Grid1.DragDrop Formset1.Form2.Grid1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE> Formset1.Form2.Grid1.DragOver Formset1.Form2.Grid1.DragOver Formset1.Form2.Grid1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUES Formset1.Form2.Grid1.MouseDown Formset1.Form2.Grid1.MouseDown Formset1.Form2.Grid1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUES Formset1.Form2.Grid1.MouseMove Formset1.Form2.Grid1.MouseMove Formset1.Form2.Grid1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEM Formset1.Form2.Grid1.MouseUp Formset1.Form2.Grid1.MouseUp Formset1.Form2.Grid1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.RightClick Formset1.Form2.Grid1.RightClickC Formset1.Form2.Grid1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Valid Formset1.Form2.Grid1.ValidC Formset1.Form2.Grid1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.When Formset1.Form2.Grid1.WhenC Formset1.Form2.Grid1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Destroy Formset1.Form2.Grid1.DestroyC Formset1.Form2.Grid1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Init Formset1.Form2.Grid1.InitC Formset1.Form2.Grid1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.Grid1.Column1.MouseMove Formset1.Form2.Grid1.Column1.MouseMove Formset1.Form2.Grid1.Column1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.Grid1.Column2.MouseMove Formset1.Form2.Grid1.Column2.MouseMove Formset1.Form2.Grid1.Column2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE BeforeRowColChange, Click_ Deletedk DblClick DragDrop DragOver, MouseDown MouseMove MouseUpP RightClick Valid% When1 Destroy: InitL Column1.MouseMoveU Column2.MouseMove- c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx header header Header1 Formset1.form2.Grid1.Column1 -Caption = "Customer Name" Name = "Header1" FPROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.Header1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.Header1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.Header1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.Header1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.Header1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.Header1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.Header1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.Header1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.Header1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.Header1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.Header1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.Header1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.Header1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.Header1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.Header1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column1.Header1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column1.Header1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column1.Header1.RightClick" Nowait ENDCASE ENDPROC Formset1.Form2.Grid1.Column1.Header1.Click Formset1.Form2.Grid1.Column1.Header1.ClickC Formset1.Form2.Grid1.Column1.Header1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column1.Header1.DblClick Formset1.Form2.Grid1.Column1.Header1.DblClickC Formset1.Form2.Grid1.Column1.Header1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column1.Header1.MouseDown Formset1.Form2.Grid1.Column1.Header1.MouseDown Formset1.Form2.Grid1.Column1.Header1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column1.Header1.MouseMove Formset1.Form2.Grid1.Column1.Header1.MouseMove Formset1.Form2.Grid1.Column1.Header1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE} Formset1.Form2.Grid1.Column1.Header1.MouseUp Formset1.Form2.Grid1.Column1.Header1.MouseUp Formset1.Form2.Grid1.Column1.Header1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column1.Header1.RightClick Formset1.Form2.Grid1.Column1.Header1.RightClickC Formset1.Form2.Grid1.Column1.Header1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickh MouseDown MouseMove MouseUp RightClickw c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx header header Header2 Formset1.form2.Grid1.Column2 6Alignment = 2 Caption = "Country" Name = "Header2" FPROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.Header2.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.Header2.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.Header2.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.Header2.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.Header2.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.Header2.DblClick" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.Header2.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.Header2.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.Header2.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.Header2.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.Header2.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.Header2.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.Header2.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.Header2.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.Header2.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.Grid1.Column2.Header2.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.Grid1.Column2.Header2.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.Grid1.Column2.Header2.RightClick" Nowait ENDCASE ENDPROC Formset1.Form2.Grid1.Column2.Header2.Click Formset1.Form2.Grid1.Column2.Header2.ClickC Formset1.Form2.Grid1.Column2.Header2.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column2.Header2.DblClick Formset1.Form2.Grid1.Column2.Header2.DblClickC Formset1.Form2.Grid1.Column2.Header2.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column2.Header2.MouseDown Formset1.Form2.Grid1.Column2.Header2.MouseDown Formset1.Form2.Grid1.Column2.Header2.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column2.Header2.MouseMove Formset1.Form2.Grid1.Column2.Header2.MouseMove Formset1.Form2.Grid1.Column2.Header2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE} Formset1.Form2.Grid1.Column2.Header2.MouseUp Formset1.Form2.Grid1.Column2.Header2.MouseUp Formset1.Form2.Grid1.Column2.Header2.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column2.Header2.RightClick Formset1.Form2.Grid1.Column2.Header2.RightClickC Formset1.Form2.Grid1.Column2.Header2.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickh MouseDown MouseMove MouseUp RightClickw c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx optiongroup optiongroup Optiongroup1 Formset1.form2 ButtonCount = 3 BackColor = 192,192,192 Caption = "Optiongroup1" Height = 54 Left = 156 Top = 31 Width = 83 Name = "Optiongroup1" Option1.BackColor = 192,192,192 Option1.Caption = "Option 1" Option1.Height = 15 Option1.Left = 5 Option1.Top = 3 Option1.Width = 71 Option1.Name = "Option1" Option2.BackColor = 192,192,192 Option2.Caption = "Option 2" Option2.Height = 15 Option2.Left = 5 Option2.Top = 20 Option2.Width = 71 Option2.Name = "Option2" Option3.BackColor = 192,192,192 Option3.BackStyle = 1 Option3.Caption = "Option 3" Option3.Height = 15 Option3.Left = 5 Option3.Top = 37 Option3.Width = 71 Option3.Name = "Option3" c!PROCEDURE Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Click" Nowait ENDCASE ENDPROC PROCEDURE DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE InteractiveChange DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.InteractiveChange" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.InteractiveChange" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.InteractiveChange" Nowait ENDCASE ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Init" Nowait ENDCASE ENDPROC PROCEDURE When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.When" Nowait ENDCASE ENDPROC PROCEDURE Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Valid" Nowait ENDCASE ENDPROC PROCEDURE Option1.Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.Click" Nowait ENDCASE ENDPROC PROCEDURE Option1.DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Option1.DragDrop Parameters cSource, nXCoord, nYCoord Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.DragDrop"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.DragDrop"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.DragDrop"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Option1.DragOver Parameters cSource, nXCoord, nYCoord, nState Cparamstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.DragOver"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.DragOver"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.DragOver"+Cparamstr Nowait ENDCASE ENDPROC PROCEDURE Option1.GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE Option1.KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse Cparamstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.KeyPress"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.KeyPress"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.KeyPress"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option1.LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE Option1.MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.MouseDown"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.MouseDown"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.MouseDown"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option1.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.MouseMove"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.MouseMove"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.MouseMove"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option1.MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse Cparamstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.MouseUp"+Cparamstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.MouseUp"+Cparamstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.MouseUp"+Cparamstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option1.RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Option1.Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Option1.Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.Init" Nowait ENDCASE ENDPROC PROCEDURE Option1.When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.When" Nowait ENDCASE ENDPROC PROCEDURE Option1.Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option1.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option1.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option1.Valid" Nowait ENDCASE ENDPROC PROCEDURE Option2.Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.Click" Nowait ENDCASE ENDPROC PROCEDURE Option2.DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Option2.DragDrop Parameters cSource, nXCoord, nYCoord paramstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.DragDrop"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.DragDrop"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.DragDrop"+paramstr Nowait ENDCASE ENDPROC PROCEDURE Option2.DragOver Parameters cSource, nXCoord, nYCoord, nState paramstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.DragOver"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.DragOver"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.DragOver"+paramstr Nowait ENDCASE ENDPROC PROCEDURE Option2.GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE Option2.KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse paramstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.KeyPress"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.KeyPress"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.KeyPress"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option2.LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE Option2.MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse paramstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.MouseDown"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.MouseDown"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.MouseDown"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option2.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse paramstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.MouseMove"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.MouseMove"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.MouseMove"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option2.MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse paramstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.MouseUp"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.MouseUp"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.MouseUp"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option2.RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Option2.Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Option2.Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.Init" Nowait ENDCASE ENDPROC PROCEDURE Option2.When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.When" Nowait ENDCASE ENDPROC PROCEDURE Option2.Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option2.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option2.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option2.Valid" Nowait ENDCASE ENDPROC PROCEDURE Option3.Click DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.Click" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.Click" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.Click" Nowait ENDCASE ENDPROC PROCEDURE Option3.DblClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.DblClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.DblClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.DblClick" Nowait ENDCASE ENDPROC PROCEDURE Option3.DragDrop Parameters cSource, nXCoord, nYCoord paramstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.DragDrop"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.DragDrop"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.DragDrop"+paramstr Nowait ENDCASE ENDPROC PROCEDURE Option3.DragOver Parameters cSource, nXCoord, nYCoord, nState paramstr = ","+cSource.name+","+allt(str(nXCoord))+","+allt(str(nYCoord))+","+allt(str(nState)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.DragOver"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.DragOver"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.DragOver"+paramstr Nowait ENDCASE ENDPROC PROCEDURE Option3.GotFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.GotFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.GotFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.GotFocus" Nowait ENDCASE ENDPROC PROCEDURE Option3.KeyPress Parameters nKeyCode, nShiftAltCtrl IF lTrackMouse paramstr = ","+allt(str(nKeyCode))+","+allt(str(nShiftAltCtrl)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.KeyPress"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.KeyPress"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.KeyPress"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option3.LostFocus DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.LostFocus" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.LostFocus" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.LostFocus" Nowait ENDCASE ENDPROC PROCEDURE Option3.MouseDown Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse paramstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.MouseDown"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.MouseDown"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.MouseDown"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option3.MouseMove Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse paramstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.MouseMove"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.MouseMove"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.MouseMove"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option3.MouseUp Parameters nButton, nShift, nXCoord, nYCoord IF lTrackMouse paramstr = ","+allt(str(nButton))+","+allt(str(nShift))+","+allt(str(nXCoord))+","+allt(str(nYCoord)) DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.MouseUp"+paramstr CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.MouseUp"+paramstr + ; CHR(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.MouseUp"+paramstr Nowait ENDCASE ENDIF ENDPROC PROCEDURE Option3.RightClick DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.RightClick" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.RightClick" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.RightClick" Nowait ENDCASE ENDPROC PROCEDURE Option3.Destroy DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.Destroy" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.Destroy" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.Destroy" Nowait ENDCASE ENDPROC PROCEDURE Option3.Init DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.Init" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.Init" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.Init" Nowait ENDCASE ENDPROC PROCEDURE Option3.When DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.When" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.When" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.When" Nowait ENDCASE ENDPROC PROCEDURE Option3.Valid DO CASE CASE Noutput = 1 Activate Screen ? "Formset1.Form2.OptionGroup1.Option3.Valid" CASE Noutput = 2 ThisFormSet.EventWin.Edit1.Value = "Formset1.Form2.OptionGroup1.Option3.Valid" + ; chr(13) + ThisFormSet.EventWin.Edit1.Value CASE Noutput = 3 Wait Window "Formset1.Form2.OptionGroup1.Option3.Valid" Nowait ENDCASE ENDPROC Formset1.Form2.OptionGroup1.Click Formset1.Form2.OptionGroup1.ClickC Formset1.Form2.OptionGroup1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.DblClick Formset1.Form2.OptionGroup1.DblClickC Formset1.Form2.OptionGroup1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEB Formset1.Form2.OptionGroup1.DragDrop Formset1.Form2.OptionGroup1.DragDrop Formset1.Form2.OptionGroup1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUES Formset1.Form2.OptionGroup1.DragOver Formset1.Form2.OptionGroup1.DragOver Formset1.Form2.OptionGroup1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.InteractiveChange Formset1.Form2.OptionGroup1.InteractiveChangeC Formset1.Form2.OptionGroup1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEh Formset1.Form2.OptionGroup1.MouseDown Formset1.Form2.OptionGroup1.MouseDown Formset1.Form2.OptionGroup1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEh Formset1.Form2.OptionGroup1.MouseMove Formset1.Form2.OptionGroup1.MouseMove Formset1.Form2.OptionGroup1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEb Formset1.Form2.OptionGroup1.MouseUp Formset1.Form2.OptionGroup1.MouseUp Formset1.Form2.OptionGroup1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.RightClick Formset1.Form2.OptionGroup1.RightClickC Formset1.Form2.OptionGroup1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Init Formset1.Form2.OptionGroup1.InitC Formset1.Form2.OptionGroup1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.When Formset1.Form2.OptionGroup1.WhenC Formset1.Form2.OptionGroup1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Valid Formset1.Form2.OptionGroup1.ValidC Formset1.Form2.OptionGroup1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.Click Formset1.Form2.OptionGroup1.Option1.ClickC Formset1.Form2.OptionGroup1.Option1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.DblClick Formset1.Form2.OptionGroup1.Option1.DblClickC Formset1.Form2.OptionGroup1.Option1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEZ Formset1.Form2.OptionGroup1.Option1.DragDrop Formset1.Form2.OptionGroup1.Option1.DragDrop Formset1.Form2.OptionGroup1.Option1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.OptionGroup1.Option1.DragOver Formset1.Form2.OptionGroup1.Option1.DragOver Formset1.Form2.OptionGroup1.Option1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.GotFocus Formset1.Form2.OptionGroup1.Option1.GotFocusC Formset1.Form2.OptionGroup1.Option1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE[ Formset1.Form2.OptionGroup1.Option1.KeyPress Formset1.Form2.OptionGroup1.Option1.KeyPress Formset1.Form2.OptionGroup1.Option1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.LostFocus Formset1.Form2.OptionGroup1.Option1.LostFocusC Formset1.Form2.OptionGroup1.Option1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.MouseDown Formset1.Form2.OptionGroup1.Option1.MouseDown Formset1.Form2.OptionGroup1.Option1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.MouseMove Formset1.Form2.OptionGroup1.Option1.MouseMove Formset1.Form2.OptionGroup1.Option1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEz Formset1.Form2.OptionGroup1.Option1.MouseUp Formset1.Form2.OptionGroup1.Option1.MouseUp Formset1.Form2.OptionGroup1.Option1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.RightClick Formset1.Form2.OptionGroup1.Option1.RightClickC Formset1.Form2.OptionGroup1.Option1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.Destroy Formset1.Form2.OptionGroup1.Option1.DestroyC Formset1.Form2.OptionGroup1.Option1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.Init Formset1.Form2.OptionGroup1.Option1.InitC Formset1.Form2.OptionGroup1.Option1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.When Formset1.Form2.OptionGroup1.Option1.WhenC Formset1.Form2.OptionGroup1.Option1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.Valid Formset1.Form2.OptionGroup1.Option1.ValidC Formset1.Form2.OptionGroup1.Option1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.Click Formset1.Form2.OptionGroup1.Option2.ClickC Formset1.Form2.OptionGroup1.Option2.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.DblClick Formset1.Form2.OptionGroup1.Option2.DblClickC Formset1.Form2.OptionGroup1.Option2.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEZ Formset1.Form2.OptionGroup1.Option2.DragDrop Formset1.Form2.OptionGroup1.Option2.DragDrop Formset1.Form2.OptionGroup1.Option2.DragDrop CSOURCE NXCOORD NYCOORD PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.OptionGroup1.Option2.DragOver Formset1.Form2.OptionGroup1.Option2.DragOver Formset1.Form2.OptionGroup1.Option2.DragOver CSOURCE NXCOORD NYCOORD NSTATE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.GotFocus Formset1.Form2.OptionGroup1.Option2.GotFocusC Formset1.Form2.OptionGroup1.Option2.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE[ Formset1.Form2.OptionGroup1.Option2.KeyPress Formset1.Form2.OptionGroup1.Option2.KeyPress Formset1.Form2.OptionGroup1.Option2.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.LostFocus Formset1.Form2.OptionGroup1.Option2.LostFocusC Formset1.Form2.OptionGroup1.Option2.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.MouseDown Formset1.Form2.OptionGroup1.Option2.MouseDown Formset1.Form2.OptionGroup1.Option2.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.MouseMove Formset1.Form2.OptionGroup1.Option2.MouseMove Formset1.Form2.OptionGroup1.Option2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEz Formset1.Form2.OptionGroup1.Option2.MouseUp Formset1.Form2.OptionGroup1.Option2.MouseUp Formset1.Form2.OptionGroup1.Option2.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.RightClick Formset1.Form2.OptionGroup1.Option2.RightClickC Formset1.Form2.OptionGroup1.Option2.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.Destroy Formset1.Form2.OptionGroup1.Option2.DestroyC Formset1.Form2.OptionGroup1.Option2.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.Init Formset1.Form2.OptionGroup1.Option2.InitC Formset1.Form2.OptionGroup1.Option2.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.When Formset1.Form2.OptionGroup1.Option2.WhenC Formset1.Form2.OptionGroup1.Option2.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.Valid Formset1.Form2.OptionGroup1.Option2.ValidC Formset1.Form2.OptionGroup1.Option2.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.Click Formset1.Form2.OptionGroup1.Option3.ClickC Formset1.Form2.OptionGroup1.Option3.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.DblClick Formset1.Form2.OptionGroup1.Option3.DblClickC Formset1.Form2.OptionGroup1.Option3.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEZ Formset1.Form2.OptionGroup1.Option3.DragDrop Formset1.Form2.OptionGroup1.Option3.DragDrop Formset1.Form2.OptionGroup1.Option3.DragDrop CSOURCE NXCOORD NYCOORD PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.OptionGroup1.Option3.DragOver Formset1.Form2.OptionGroup1.Option3.DragOver Formset1.Form2.OptionGroup1.Option3.DragOver CSOURCE NXCOORD NYCOORD NSTATE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.GotFocus Formset1.Form2.OptionGroup1.Option3.GotFocusC Formset1.Form2.OptionGroup1.Option3.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE[ Formset1.Form2.OptionGroup1.Option3.KeyPress Formset1.Form2.OptionGroup1.Option3.KeyPress Formset1.Form2.OptionGroup1.Option3.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.LostFocus Formset1.Form2.OptionGroup1.Option3.LostFocusC Formset1.Form2.OptionGroup1.Option3.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.MouseDown Formset1.Form2.OptionGroup1.Option3.MouseDown Formset1.Form2.OptionGroup1.Option3.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.MouseMove Formset1.Form2.OptionGroup1.Option3.MouseMove Formset1.Form2.OptionGroup1.Option3.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEz Formset1.Form2.OptionGroup1.Option3.MouseUp Formset1.Form2.OptionGroup1.Option3.MouseUp Formset1.Form2.OptionGroup1.Option3.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.RightClick Formset1.Form2.OptionGroup1.Option3.RightClickC Formset1.Form2.OptionGroup1.Option3.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.Destroy Formset1.Form2.OptionGroup1.Option3.DestroyC Formset1.Form2.OptionGroup1.Option3.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.Init Formset1.Form2.OptionGroup1.Option3.InitC Formset1.Form2.OptionGroup1.Option3.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.When Formset1.Form2.OptionGroup1.Option3.WhenC Formset1.Form2.OptionGroup1.Option3.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.Valid Formset1.Form2.OptionGroup1.Option3.ValidC Formset1.Form2.OptionGroup1.Option3.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickM DragDropw DragOver InteractiveChange MouseDown MouseMove MouseUp RightClick Valid Option1.Click Option1.DblClickT Option1.DragDrop Option1.DragOverN Option1.GotFocus Option1.KeyPressa Option1.LostFocus Option1.MouseDownd Option1.MouseMoveQ Option1.MouseUp> Option1.RightClick%! Option1.Destroym" Option1.Init Option1.When Option1.Valid Option2.ClickQ' Option2.DblClick Option2.DragDrop Option2.DragOver Option2.GotFocusS- Option2.KeyPress Option2.LostFocusR0 Option2.MouseDown Option2.MouseMove Option2.MouseUpo5 Option2.RightClickU7 Option2.Destroy Option2.Init Option2.When Option2.ValidH< Option3.Click Option3.DblClick Option3.DragDrop Option3.DragOver Option3.GotFocus Option3.KeyPress Option3.LostFocus Option3.MouseDown Option3.MouseMove Option3.MouseUp Option3.RightClick Option3.Destroy Option3.Init Option3.WhenBQ Option3.ValidxR c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx "Arial, 1, 10, 6, 16, 13, 15, 3, 0 Formset1.Activate Formset1.ActivateC Formset1.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE LDONE Formset1.Deactivate Formset1.DeactivateC Formset1.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Destroy Formset1.DestroyC Formset1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Init Formset1.InitC Formset1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE* ERROR CC NERROR CMETHOD NLINE Formset1.Load Formset1.LoadC Formset1.Load TOOLBAR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Unload Formset1.UnloadC Formset1.Unload mainb NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Activate, Deactivate7 Destroy. Error LoadG UnloadP c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form1.Activate Formset1.Form1.ActivateC Formset1.Form1.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Click Formset1.Form1.ClickC Formset1.Form1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.DblClick Formset1.Form1.DblClickC Formset1.Form1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Deactivate Formset1.Form1.DeactivateC Formset1.Form1.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Destroy Formset1.Form1.DestroyC Formset1.Form1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.DragDrop Formset1.Form1.DragDrop Formset1.Form1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE/ Formset1.Form1.DragOver Formset1.Form1.DragOver Formset1.Form1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.GotFocus Formset1.Form1.GotFocusC Formset1.Form1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.KeyPress Formset1.Form1.KeyPress Formset1.Form1.KeyPress NKEYCODE NSHIFTALTCTRL CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Load Formset1.Form1.LoadC Formset1.Form1.Load NOUTPUT OFORMSET THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.LostFocus Formset1.Form1.LostFocusC Formset1.Form1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUED Formset1.Form1.MouseDown Formset1.Form1.MouseDown Formset1.Form1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUED Formset1.Form1.MouseMove Formset1.Form1.MouseMove Formset1.Form1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE> Formset1.Form1.MouseUp Formset1.Form1.MouseUp Formset1.Form1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Resize Formset1.Form1.ResizeC Formset1.Form1.Resize NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Unload Formset1.Form1.UnloadC Formset1.Form1.Unload NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE EVENTTOOL Activate, Click/ DblClick) Deactivate, Destroy5 DragDrop5 DragOver GotFocusF KeyPressI LostFocus MouseDown MouseMove} MouseUp. Paint Resize Unload c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx NBUTTON NSHIFT NXCOORD NYCOORD DRAG& NBUTTON NSHIFT NXCOORD NYCOORD DRAG MouseDown, MouseUp c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form1.Spinner1.Click Formset1.Form1.Spinner1.ClickC Formset1.Form1.Spinner1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.DblClick Formset1.Form1.Spinner1.DblClickC Formset1.Form1.Spinner1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.DownClick Formset1.Form1.Spinner1.DownClickC Formset1.Form1.Spinner1.DownClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE6 Formset1.Form1.Spinner1.DragDrop Formset1.Form1.Spinner1.DragDrop Formset1.Form1.Spinner1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEG Formset1.Form1.Spinner1.DragOver Formset1.Form1.Spinner1.DragOver Formset1.Form1.Spinner1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.GotFocus Formset1.Form1.Spinner1.GotFocusC Formset1.Form1.Spinner1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.InteractiveChange Formset1.Form1.Spinner1.InteractiveChangeC Formset1.Form1.Spinner1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE7 Formset1.Form1.Spinner1.KeyPress Formset1.Form1.Spinner1.KeyPress Formset1.Form1.Spinner1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.LostFocus Formset1.Form1.Spinner1.LostFocusC Formset1.Form1.Spinner1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form1.Spinner1.MouseDown Formset1.Form1.Spinner1.MouseDown Formset1.Form1.Spinner1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form1.Spinner1.MouseMove Formset1.Form1.Spinner1.MouseMove Formset1.Form1.Spinner1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEV Formset1.Form1.Spinner1.MouseUp Formset1.Form1.Spinner1.MouseUp Formset1.Form1.Spinner1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.RightClick Formset1.Form1.Spinner1.RightClickC Formset1.Form1.Spinner1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.UpClick Formset1.Form1.Spinner1.UpClickC Formset1.Form1.Spinner1.UpClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.Init Formset1.Form1.Spinner1.InitC Formset1.Form1.Spinner1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.When Formset1.Form1.Spinner1.WhenC Formset1.Form1.Spinner1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Spinner1.Valid Formset1.Form1.Spinner1.ValidC Formset1.Form1.Spinner1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickA DownClick_ DragDrop DragOver GotFocus InteractiveChange KeyPress LostFocus MouseDown MouseMove MouseUpe RightClick( UpClickL Initg Wheny Valid c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form1.Command1.Click Formset1.Form1.Command1.ClickC Formset1.Form1.Command1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE6 Formset1.Form1.Command1.DragDrop Formset1.Form1.Command1.DragDrop Formset1.Form1.Command1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEG Formset1.Form1.Command1.DragOver Formset1.Form1.Command1.DragOver Formset1.Form1.Command1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.GotFocus Formset1.Form1.Command1.GotFocusC Formset1.Form1.Command1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE7 Formset1.Form1.Command1.KeyPress Formset1.Form1.Command1.KeyPress Formset1.Form1.Command1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.LostFocus Formset1.Form1.Command1.LostFocusC Formset1.Form1.Command1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form1.Command1.MouseDown Formset1.Form1.Command1.MouseDown Formset1.Form1.Command1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form1.Command1.MouseMove Formset1.Form1.Command1.MouseMove Formset1.Form1.Command1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEV Formset1.Form1.Command1.MouseUp Formset1.Form1.Command1.MouseUp Formset1.Form1.Command1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.RightClick Formset1.Form1.Command1.RightClickC Formset1.Form1.Command1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.Destroy Formset1.Form1.Command1.DestroyC Formset1.Form1.Command1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.Init Formset1.Form1.Command1.InitC Formset1.Form1.Command1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.When Formset1.Form1.Command1.WhenC Formset1.Form1.Command1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form1.Command1.Valid Formset1.Form1.Command1.ValidC Formset1.Form1.Command1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DragDropA DragOver GotFocus KeyPress LostFocus: MouseDown[ MouseMove$ MouseUp RightClick Destroy Valid c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form2.Activate Formset1.Form2.ActivateC Formset1.Form2.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Click Formset1.Form2.ClickC Formset1.Form2.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.DblClick Formset1.Form2.DblClickC Formset1.Form2.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Deactivate Formset1.Form2.DeactivateC Formset1.Form2.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Destroy Formset1.Form2.DestroyC Formset1.Form2.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.DragDrop Formset1.Form2.DragDrop Formset1.Form2.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE, Formset1.Form2.DragOver Formset1.Form2.DragOver Formset1.Form2.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.GotFocus Formset1.Form2.GotFocusC Formset1.Form2.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Init Formset1.Form2.InitC Formset1.Form2.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.KeyPress Formset1.Form2.KeyPress Formset1.Form2.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Load Formset1.Form2.LoadC Formset1.Form2.Load NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.LostFocus Formset1.Form2.LostFocusC Formset1.Form2.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEA Formset1.Form2.MouseDown Formset1.Form2.MouseDown Formset1.Form2.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEA Formset1.Form2.MouseMove Formset1.Form2.MouseMove Formset1.Form2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE; Formset1.Form2.MouseUp Formset1.Form2.MouseUp Formset1.Form2.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Resize Formset1.Form2.ResizeC Formset1.Form2.Resize NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Unload Formset1.Form2.UnloadC Formset1.Form2.Unload NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Activate, Click/ DblClick) Deactivate, Destroy5 DragDrop5 DragOver GotFocus@ InitC KeyPress: LostFocus MouseDown MouseMoved MouseUp Paint Resize Unload c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form2.PageFrame1.Init Formset1.Form2.PageFrame1.InitC Formset1.Form2.PageFrame1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Destroy Formset1.Form2.PageFrame1.DestroyC Formset1.Form2.PageFrame1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Click Formset1.Form2.PageFrame1.ClickC Formset1.Form2.PageFrame1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.DblClick Formset1.Form2.PageFrame1.DblClickC Formset1.Form2.PageFrame1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE< Formset1.Form2.PageFrame1.DragDrop Formset1.Form2.PageFrame1.DragDrop Formset1.Form2.PageFrame1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEM Formset1.Form2.PageFrame1.DragOver Formset1.Form2.PageFrame1.DragOver Formset1.Form2.PageFrame1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEb Formset1.Form2.PageFrame1.MouseDown Formset1.Form2.PageFrame1.MouseDown Formset1.Form2.PageFrame1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEb Formset1.Form2.PageFrame1.MouseMove Formset1.Form2.PageFrame1.MouseMove Formset1.Form2.PageFrame1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE\ Formset1.Form2.PageFrame1.MouseUp Formset1.Form2.PageFrame1.MouseUp Formset1.Form2.PageFrame1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.RightClick Formset1.Form2.PageFrame1.RightClickC Formset1.Form2.PageFrame1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Activate Formset1.Form2.PageFrame1.Page1.ActivateC Formset1.Form2.PageFrame1.Page1.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Deactivate Formset1.Form2.PageFrame1.Page1.DeactivateC Formset1.Form2.PageFrame1.Page1.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Destroy Formset1.Form2.PageFrame1.Page1.DestroyC Formset1.Form2.PageFrame1.Page1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Init Formset1.Form2.PageFrame1.Page1.InitC Formset1.Form2.PageFrame1.Page1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.Click Formset1.Form2.PageFrame1.Page1.ClickC Formset1.Form2.PageFrame1.Page1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.DblClick Formset1.Form2.PageFrame1.Page1.DblClickC Formset1.Form2.PageFrame1.Page1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEN Formset1.Form2.PageFrame1.Page1.DragDrop Formset1.Form2.PageFrame1.Page1.DragDrop Formset1.Form2.PageFrame1.Page1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE_ Formset1.Form2.PageFrame1.Page1.DragOver Formset1.Form2.PageFrame1.Page1.DragOver Formset1.Form2.PageFrame1.Page1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page1.MouseDown Formset1.Form2.PageFrame1.Page1.MouseDown Formset1.Form2.PageFrame1.Page1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page1.MouseMove Formset1.Form2.PageFrame1.Page1.MouseMove Formset1.Form2.PageFrame1.Page1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEn Formset1.Form2.PageFrame1.Page1.MouseUp Formset1.Form2.PageFrame1.Page1.MouseUp Formset1.Form2.PageFrame1.Page1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page1.RightClick Formset1.Form2.PageFrame1.Page1.RightClickC Formset1.Form2.PageFrame1.Page1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Activate Formset1.Form2.PageFrame1.Page2.ActivateC Formset1.Form2.PageFrame1.Page2.Activate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Deactivate Formset1.Form2.PageFrame1.Page2.DeactivateC Formset1.Form2.PageFrame1.Page2.Deactivate NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Destroy Formset1.Form2.PageFrame1.Page2.DestroyC Formset1.Form2.PageFrame1.Page2.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Init Formset1.Form2.PageFrame1.Page2.InitC Formset1.Form2.PageFrame1.Page2.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Click Formset1.Form2.PageFrame1.Page2.ClickC Formset1.Form2.PageFrame1.Page2.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.DblClick Formset1.Form2.PageFrame1.Page2.DblClickC Formset1.Form2.PageFrame1.Page2.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEN Formset1.Form2.PageFrame1.Page2.DragDrop Formset1.Form2.PageFrame1.Page2.DragDrop Formset1.Form2.PageFrame1.Page2.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE_ Formset1.Form2.PageFrame1.Page2.DragOver Formset1.Form2.PageFrame1.Page2.DragOver Formset1.Form2.PageFrame1.Page2.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.MouseDown Formset1.Form2.PageFrame1.Page2.MouseDown Formset1.Form2.PageFrame1.Page2.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.MouseMove Formset1.Form2.PageFrame1.Page2.MouseMove Formset1.Form2.PageFrame1.Page2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEn Formset1.Form2.PageFrame1.Page2.MouseUp Formset1.Form2.PageFrame1.Page2.MouseUp Formset1.Form2.PageFrame1.Page2.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.RightClick Formset1.Form2.PageFrame1.Page2.RightClickC Formset1.Form2.PageFrame1.Page2.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Init, DestroyD Clicke DblClick DragDrop DragOver> MouseDown MouseMove MouseUp RightClickX Page1.Activate Page1.Deactivate Page1.Destroy Page1.Init' Page1.ClickQ Page1.DblClick~ Page1.DragDrop Page1.DragOver` Page1.MouseDown% Page1.MouseMove Page1.MouseUp Page1.RightClick Page2.Activate Page2.Deactivate4! Page2.Destroyp" Page2.Init Page2.Click Page2.DblClick Page2.DragDrop0' Page2.DragOver Page2.MouseDown Page2.MouseMove Page2.MouseUpc. Page2.RightClick>0 c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form2.PageFrame1.Page2.Check1.Click Formset1.Form2.PageFrame1.Page2.Check1.ClickC Formset1.Form2.PageFrame1.Page2.Check1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEc Formset1.Form2.PageFrame1.Page2.Check1.DragDrop Formset1.Form2.PageFrame1.Page2.Check1.DragDrop Formset1.Form2.PageFrame1.Page2.Check1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.Check1.DragOver Formset1.Form2.PageFrame1.Page2.Check1.DragOver Formset1.Form2.PageFrame1.Page2.Check1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.GotFocus Formset1.Form2.PageFrame1.Page2.Check1.GotFocusC Formset1.Form2.PageFrame1.Page2.Check1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE4 Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChange Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChangeC Formset1.Form2.PageFrame1.Page2.Check1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEd Formset1.Form2.PageFrame1.Page2.Check1.KeyPress Formset1.Form2.PageFrame1.Page2.Check1.KeyPress Formset1.Form2.PageFrame1.Page2.Check1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.LostFocus Formset1.Form2.PageFrame1.Page2.Check1.LostFocusC Formset1.Form2.PageFrame1.Page2.Check1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.MouseDown Formset1.Form2.PageFrame1.Page2.Check1.MouseDown Formset1.Form2.PageFrame1.Page2.Check1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.MouseMove Formset1.Form2.PageFrame1.Page2.Check1.MouseMove Formset1.Form2.PageFrame1.Page2.Check1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.MouseUp Formset1.Form2.PageFrame1.Page2.Check1.MouseUp Formset1.Form2.PageFrame1.Page2.Check1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.RightClick Formset1.Form2.PageFrame1.Page2.Check1.RightClickC Formset1.Form2.PageFrame1.Page2.Check1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.Destroy Formset1.Form2.PageFrame1.Page2.Check1.DestroyC Formset1.Form2.PageFrame1.Page2.Check1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.Init Formset1.Form2.PageFrame1.Page2.Check1.InitC Formset1.Form2.PageFrame1.Page2.Check1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.When Formset1.Form2.PageFrame1.Page2.Check1.WhenC Formset1.Form2.PageFrame1.Page2.Check1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Check1.Valid Formset1.Form2.PageFrame1.Page2.Check1.ValidC Formset1.Form2.PageFrame1.Page2.Check1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DragDropn DragOver/ GotFocus InteractiveChangeT KeyPress LostFocus MouseDown MouseMove MouseUp RightClick Destroy InitD Valid c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form2.PageFrame1.Page2.Text1.Click Formset1.Form2.PageFrame1.Page2.Text1.ClickC Formset1.Form2.PageFrame1.Page2.Text1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.DblClick Formset1.Form2.PageFrame1.Page2.Text1.DblClickC Formset1.Form2.PageFrame1.Page2.Text1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE` Formset1.Form2.PageFrame1.Page2.Text1.DragDrop Formset1.Form2.PageFrame1.Page2.Text1.DragDrop Formset1.Form2.PageFrame1.Page2.Text1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEq Formset1.Form2.PageFrame1.Page2.Text1.DragOver Formset1.Form2.PageFrame1.Page2.Text1.DragOver Formset1.Form2.PageFrame1.Page2.Text1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.GotFocus Formset1.Form2.PageFrame1.Page2.Text1.GotFocusC Formset1.Form2.PageFrame1.Page2.Text1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE1 Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChange Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChangeC Formset1.Form2.PageFrame1.Page2.Text1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEa Formset1.Form2.PageFrame1.Page2.Text1.KeyPress Formset1.Form2.PageFrame1.Page2.Text1.KeyPress Formset1.Form2.PageFrame1.Page2.Text1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.LostFocus Formset1.Form2.PageFrame1.Page2.Text1.LostFocusC Formset1.Form2.PageFrame1.Page2.Text1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.MouseDown Formset1.Form2.PageFrame1.Page2.Text1.MouseDown Formset1.Form2.PageFrame1.Page2.Text1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.MouseMove Formset1.Form2.PageFrame1.Page2.Text1.MouseMove Formset1.Form2.PageFrame1.Page2.Text1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.MouseUp Formset1.Form2.PageFrame1.Page2.Text1.MouseUp Formset1.Form2.PageFrame1.Page2.Text1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.RightClick Formset1.Form2.PageFrame1.Page2.Text1.RightClickC Formset1.Form2.PageFrame1.Page2.Text1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.Destroy Formset1.Form2.PageFrame1.Page2.Text1.DestroyC Formset1.Form2.PageFrame1.Page2.Text1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.Init Formset1.Form2.PageFrame1.Page2.Text1.InitC Formset1.Form2.PageFrame1.Page2.Text1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.When Formset1.Form2.PageFrame1.Page2.Text1.WhenC Formset1.Form2.PageFrame1.Page2.Text1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Text1.Valid Formset1.Form2.PageFrame1.Page2.Text1.ValidC Formset1.Form2.PageFrame1.Page2.Text1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickk DragDrop DragOverq GotFocusH InteractiveChange KeyPress LostFocus MouseDown MouseMove MouseUp RightClick Destroy# Inith Valid c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form2.PageFrame1.Page2.Combo1.Click Formset1.Form2.PageFrame1.Page2.Combo1.ClickC Formset1.Form2.PageFrame1.Page2.Combo1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.DblClick Formset1.Form2.PageFrame1.Page2.Combo1.DblClickC Formset1.Form2.PageFrame1.Page2.Combo1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.DownClick Formset1.Form2.PageFrame1.Page2.Combo1.DownClickC Formset1.Form2.PageFrame1.Page2.Combo1.DownClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEf Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop Formset1.Form2.PageFrame1.Page2.Combo1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.Combo1.DragOver Formset1.Form2.PageFrame1.Page2.Combo1.DragOver Formset1.Form2.PageFrame1.Page2.Combo1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE9 Formset1.Form2.PageFrame1.Page2.Combo1.DropDown Formset1.Form2.PageFrame1.Page2.Combo1.DropDown Formset1.Form2.PageFrame1.Page2.Combo1.DropDown NINDEX CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.GotFocus Formset1.Form2.PageFrame1.Page2.Combo1.GotFocusC Formset1.Form2.PageFrame1.Page2.Combo1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE4 Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChange Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChangeC Formset1.Form2.PageFrame1.Page2.Combo1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEd Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress Formset1.Form2.PageFrame1.Page2.Combo1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.LostFocus Formset1.Form2.PageFrame1.Page2.Combo1.LostFocusC Formset1.Form2.PageFrame1.Page2.Combo1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown Formset1.Form2.PageFrame1.Page2.Combo1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove Formset1.Form2.PageFrame1.Page2.Combo1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp Formset1.Form2.PageFrame1.Page2.Combo1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.RightClick Formset1.Form2.PageFrame1.Page2.Combo1.RightClickC Formset1.Form2.PageFrame1.Page2.Combo1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.UpClick Formset1.Form2.PageFrame1.Page2.Combo1.UpClickC Formset1.Form2.PageFrame1.Page2.Combo1.UpClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.Destroy Formset1.Form2.PageFrame1.Page2.Combo1.DestroyC Formset1.Form2.PageFrame1.Page2.Combo1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.Init Formset1.Form2.PageFrame1.Page2.Combo1.InitC Formset1.Form2.PageFrame1.Page2.Combo1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.When Formset1.Form2.PageFrame1.Page2.Combo1.WhenC Formset1.Form2.PageFrame1.Page2.Combo1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Combo1.Valid Formset1.Form2.PageFrame1.Page2.Combo1.ValidC Formset1.Form2.PageFrame1.Page2.Combo1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickn DownClick DragDrop DragOver DropDown GotFocus# InteractiveChangen KeyPress LostFocus MouseDown MouseMove MouseUp RightClick UpClick Destroy^ Valid$ c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form2.PageFrame1.Page2.Label1.Click Formset1.Form2.PageFrame1.Page2.Label1.ClickC Formset1.Form2.PageFrame1.Page2.Label1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.DblClick Formset1.Form2.PageFrame1.Page2.Label1.DblClickC Formset1.Form2.PageFrame1.Page2.Label1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEc Formset1.Form2.PageFrame1.Page2.Label1.DragDrop Formset1.Form2.PageFrame1.Page2.Label1.DragDrop Formset1.Form2.PageFrame1.Page2.Label1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEt Formset1.Form2.PageFrame1.Page2.Label1.DragOver Formset1.Form2.PageFrame1.Page2.Label1.DragOver Formset1.Form2.PageFrame1.Page2.Label1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.MouseDown Formset1.Form2.PageFrame1.Page2.Label1.MouseDown Formset1.Form2.PageFrame1.Page2.Label1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.MouseMove Formset1.Form2.PageFrame1.Page2.Label1.MouseMove Formset1.Form2.PageFrame1.Page2.Label1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.MouseUp Formset1.Form2.PageFrame1.Page2.Label1.MouseUp Formset1.Form2.PageFrame1.Page2.Label1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.RightClick Formset1.Form2.PageFrame1.Page2.Label1.RightClickC Formset1.Form2.PageFrame1.Page2.Label1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.Destroy Formset1.Form2.PageFrame1.Page2.Label1.DestroyC Formset1.Form2.PageFrame1.Page2.Label1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.PageFrame1.Page2.Label1.Init Formset1.Form2.PageFrame1.Page2.Label1.InitC Formset1.Form2.PageFrame1.Page2.Label1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickn DragDrop DragOverz MouseDownT MouseMoveJ MouseUp@ RightClick0 Destroy c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form2.Grid1.RowColChange Formset1.Form2.Grid1.RowColChangeC Formset1.Form2.Grid1.RowColChange NCOLINDEX NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Click Formset1.Form2.Grid1.ClickC Formset1.Form2.Grid1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Deleted Formset1.Form2.Grid1.DeletedC Formset1.Form2.Grid1.Deleted NRECNO NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.DblClick Formset1.Form2.Grid1.DblClickC Formset1.Form2.Grid1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE- Formset1.Form2.Grid1.DragDrop Formset1.Form2.Grid1.DragDrop Formset1.Form2.Grid1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE> Formset1.Form2.Grid1.DragOver Formset1.Form2.Grid1.DragOver Formset1.Form2.Grid1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUES Formset1.Form2.Grid1.MouseDown Formset1.Form2.Grid1.MouseDown Formset1.Form2.Grid1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUES Formset1.Form2.Grid1.MouseMove Formset1.Form2.Grid1.MouseMove Formset1.Form2.Grid1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEM Formset1.Form2.Grid1.MouseUp Formset1.Form2.Grid1.MouseUp Formset1.Form2.Grid1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.RightClick Formset1.Form2.Grid1.RightClickC Formset1.Form2.Grid1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Valid Formset1.Form2.Grid1.ValidC Formset1.Form2.Grid1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.When Formset1.Form2.Grid1.WhenC Formset1.Form2.Grid1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Destroy Formset1.Form2.Grid1.DestroyC Formset1.Form2.Grid1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Init Formset1.Form2.Grid1.InitC Formset1.Form2.Grid1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.Grid1.Column1.MouseMove Formset1.Form2.Grid1.Column1.MouseMove Formset1.Form2.Grid1.Column1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.Grid1.Column2.MouseMove Formset1.Form2.Grid1.Column2.MouseMove Formset1.Form2.Grid1.Column2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE BeforeRowColChange, Click_ Deletedk DblClick DragDrop DragOver, MouseDown MouseMove MouseUpP RightClick Valid% When1 Destroy: InitL Column1.MouseMoveU Column2.MouseMove- c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form2.Grid1.Column1.Header1.Click Formset1.Form2.Grid1.Column1.Header1.ClickC Formset1.Form2.Grid1.Column1.Header1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column1.Header1.DblClick Formset1.Form2.Grid1.Column1.Header1.DblClickC Formset1.Form2.Grid1.Column1.Header1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column1.Header1.MouseDown Formset1.Form2.Grid1.Column1.Header1.MouseDown Formset1.Form2.Grid1.Column1.Header1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column1.Header1.MouseMove Formset1.Form2.Grid1.Column1.Header1.MouseMove Formset1.Form2.Grid1.Column1.Header1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE} Formset1.Form2.Grid1.Column1.Header1.MouseUp Formset1.Form2.Grid1.Column1.Header1.MouseUp Formset1.Form2.Grid1.Column1.Header1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column1.Header1.RightClick Formset1.Form2.Grid1.Column1.Header1.RightClickC Formset1.Form2.Grid1.Column1.Header1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickh MouseDown MouseMove MouseUp RightClickw c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form2.Grid1.Column2.Header2.Click Formset1.Form2.Grid1.Column2.Header2.ClickC Formset1.Form2.Grid1.Column2.Header2.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column2.Header2.DblClick Formset1.Form2.Grid1.Column2.Header2.DblClickC Formset1.Form2.Grid1.Column2.Header2.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column2.Header2.MouseDown Formset1.Form2.Grid1.Column2.Header2.MouseDown Formset1.Form2.Grid1.Column2.Header2.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column2.Header2.MouseMove Formset1.Form2.Grid1.Column2.Header2.MouseMove Formset1.Form2.Grid1.Column2.Header2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE} Formset1.Form2.Grid1.Column2.Header2.MouseUp Formset1.Form2.Grid1.Column2.Header2.MouseUp Formset1.Form2.Grid1.Column2.Header2.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.Grid1.Column2.Header2.RightClick Formset1.Form2.Grid1.Column2.Header2.RightClickC Formset1.Form2.Grid1.Column2.Header2.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickh MouseDown MouseMove MouseUp RightClickw c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx Formset1.Form2.OptionGroup1.Click Formset1.Form2.OptionGroup1.ClickC Formset1.Form2.OptionGroup1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.DblClick Formset1.Form2.OptionGroup1.DblClickC Formset1.Form2.OptionGroup1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEB Formset1.Form2.OptionGroup1.DragDrop Formset1.Form2.OptionGroup1.DragDrop Formset1.Form2.OptionGroup1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUES Formset1.Form2.OptionGroup1.DragOver Formset1.Form2.OptionGroup1.DragOver Formset1.Form2.OptionGroup1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.InteractiveChange Formset1.Form2.OptionGroup1.InteractiveChangeC Formset1.Form2.OptionGroup1.InteractiveChange NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEh Formset1.Form2.OptionGroup1.MouseDown Formset1.Form2.OptionGroup1.MouseDown Formset1.Form2.OptionGroup1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEh Formset1.Form2.OptionGroup1.MouseMove Formset1.Form2.OptionGroup1.MouseMove Formset1.Form2.OptionGroup1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEb Formset1.Form2.OptionGroup1.MouseUp Formset1.Form2.OptionGroup1.MouseUp Formset1.Form2.OptionGroup1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.RightClick Formset1.Form2.OptionGroup1.RightClickC Formset1.Form2.OptionGroup1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Init Formset1.Form2.OptionGroup1.InitC Formset1.Form2.OptionGroup1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.When Formset1.Form2.OptionGroup1.WhenC Formset1.Form2.OptionGroup1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Valid Formset1.Form2.OptionGroup1.ValidC Formset1.Form2.OptionGroup1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.Click Formset1.Form2.OptionGroup1.Option1.ClickC Formset1.Form2.OptionGroup1.Option1.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.DblClick Formset1.Form2.OptionGroup1.Option1.DblClickC Formset1.Form2.OptionGroup1.Option1.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEZ Formset1.Form2.OptionGroup1.Option1.DragDrop Formset1.Form2.OptionGroup1.Option1.DragDrop Formset1.Form2.OptionGroup1.Option1.DragDrop CSOURCE NXCOORD NYCOORD CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.OptionGroup1.Option1.DragOver Formset1.Form2.OptionGroup1.Option1.DragOver Formset1.Form2.OptionGroup1.Option1.DragOver CSOURCE NXCOORD NYCOORD NSTATE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.GotFocus Formset1.Form2.OptionGroup1.Option1.GotFocusC Formset1.Form2.OptionGroup1.Option1.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE[ Formset1.Form2.OptionGroup1.Option1.KeyPress Formset1.Form2.OptionGroup1.Option1.KeyPress Formset1.Form2.OptionGroup1.Option1.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.LostFocus Formset1.Form2.OptionGroup1.Option1.LostFocusC Formset1.Form2.OptionGroup1.Option1.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.MouseDown Formset1.Form2.OptionGroup1.Option1.MouseDown Formset1.Form2.OptionGroup1.Option1.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.MouseMove Formset1.Form2.OptionGroup1.Option1.MouseMove Formset1.Form2.OptionGroup1.Option1.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEz Formset1.Form2.OptionGroup1.Option1.MouseUp Formset1.Form2.OptionGroup1.Option1.MouseUp Formset1.Form2.OptionGroup1.Option1.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE CPARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.RightClick Formset1.Form2.OptionGroup1.Option1.RightClickC Formset1.Form2.OptionGroup1.Option1.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.Destroy Formset1.Form2.OptionGroup1.Option1.DestroyC Formset1.Form2.OptionGroup1.Option1.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.Init Formset1.Form2.OptionGroup1.Option1.InitC Formset1.Form2.OptionGroup1.Option1.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.When Formset1.Form2.OptionGroup1.Option1.WhenC Formset1.Form2.OptionGroup1.Option1.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option1.Valid Formset1.Form2.OptionGroup1.Option1.ValidC Formset1.Form2.OptionGroup1.Option1.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.Click Formset1.Form2.OptionGroup1.Option2.ClickC Formset1.Form2.OptionGroup1.Option2.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.DblClick Formset1.Form2.OptionGroup1.Option2.DblClickC Formset1.Form2.OptionGroup1.Option2.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEZ Formset1.Form2.OptionGroup1.Option2.DragDrop Formset1.Form2.OptionGroup1.Option2.DragDrop Formset1.Form2.OptionGroup1.Option2.DragDrop CSOURCE NXCOORD NYCOORD PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.OptionGroup1.Option2.DragOver Formset1.Form2.OptionGroup1.Option2.DragOver Formset1.Form2.OptionGroup1.Option2.DragOver CSOURCE NXCOORD NYCOORD NSTATE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.GotFocus Formset1.Form2.OptionGroup1.Option2.GotFocusC Formset1.Form2.OptionGroup1.Option2.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE[ Formset1.Form2.OptionGroup1.Option2.KeyPress Formset1.Form2.OptionGroup1.Option2.KeyPress Formset1.Form2.OptionGroup1.Option2.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.LostFocus Formset1.Form2.OptionGroup1.Option2.LostFocusC Formset1.Form2.OptionGroup1.Option2.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.MouseDown Formset1.Form2.OptionGroup1.Option2.MouseDown Formset1.Form2.OptionGroup1.Option2.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.MouseMove Formset1.Form2.OptionGroup1.Option2.MouseMove Formset1.Form2.OptionGroup1.Option2.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEz Formset1.Form2.OptionGroup1.Option2.MouseUp Formset1.Form2.OptionGroup1.Option2.MouseUp Formset1.Form2.OptionGroup1.Option2.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.RightClick Formset1.Form2.OptionGroup1.Option2.RightClickC Formset1.Form2.OptionGroup1.Option2.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.Destroy Formset1.Form2.OptionGroup1.Option2.DestroyC Formset1.Form2.OptionGroup1.Option2.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.Init Formset1.Form2.OptionGroup1.Option2.InitC Formset1.Form2.OptionGroup1.Option2.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.When Formset1.Form2.OptionGroup1.Option2.WhenC Formset1.Form2.OptionGroup1.Option2.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option2.Valid Formset1.Form2.OptionGroup1.Option2.ValidC Formset1.Form2.OptionGroup1.Option2.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.Click Formset1.Form2.OptionGroup1.Option3.ClickC Formset1.Form2.OptionGroup1.Option3.Click NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.DblClick Formset1.Form2.OptionGroup1.Option3.DblClickC Formset1.Form2.OptionGroup1.Option3.DblClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEZ Formset1.Form2.OptionGroup1.Option3.DragDrop Formset1.Form2.OptionGroup1.Option3.DragDrop Formset1.Form2.OptionGroup1.Option3.DragDrop CSOURCE NXCOORD NYCOORD PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEk Formset1.Form2.OptionGroup1.Option3.DragOver Formset1.Form2.OptionGroup1.Option3.DragOver Formset1.Form2.OptionGroup1.Option3.DragOver CSOURCE NXCOORD NYCOORD NSTATE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.GotFocus Formset1.Form2.OptionGroup1.Option3.GotFocusC Formset1.Form2.OptionGroup1.Option3.GotFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE[ Formset1.Form2.OptionGroup1.Option3.KeyPress Formset1.Form2.OptionGroup1.Option3.KeyPress Formset1.Form2.OptionGroup1.Option3.KeyPress NKEYCODE NSHIFTALTCTRL LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.LostFocus Formset1.Form2.OptionGroup1.Option3.LostFocusC Formset1.Form2.OptionGroup1.Option3.LostFocus NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.MouseDown Formset1.Form2.OptionGroup1.Option3.MouseDown Formset1.Form2.OptionGroup1.Option3.MouseDown NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.MouseMove Formset1.Form2.OptionGroup1.Option3.MouseMove Formset1.Form2.OptionGroup1.Option3.MouseMove NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUEz Formset1.Form2.OptionGroup1.Option3.MouseUp Formset1.Form2.OptionGroup1.Option3.MouseUp Formset1.Form2.OptionGroup1.Option3.MouseUp NBUTTON NSHIFT NXCOORD NYCOORD LTRACKMOUSE PARAMSTR NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.RightClick Formset1.Form2.OptionGroup1.Option3.RightClickC Formset1.Form2.OptionGroup1.Option3.RightClick NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.Destroy Formset1.Form2.OptionGroup1.Option3.DestroyC Formset1.Form2.OptionGroup1.Option3.Destroy NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.Init Formset1.Form2.OptionGroup1.Option3.InitC Formset1.Form2.OptionGroup1.Option3.Init NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.When Formset1.Form2.OptionGroup1.Option3.WhenC Formset1.Form2.OptionGroup1.Option3.When NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Formset1.Form2.OptionGroup1.Option3.Valid Formset1.Form2.OptionGroup1.Option3.ValidC Formset1.Form2.OptionGroup1.Option3.Valid NOUTPUT THISFORMSET EVENTWIN EDIT1 VALUE Click, DblClickM DragDropw DragOver InteractiveChange MouseDown MouseMove MouseUp RightClick Valid Option1.Click Option1.DblClickT Option1.DragDrop Option1.DragOverN Option1.GotFocus Option1.KeyPressa Option1.LostFocus Option1.MouseDownd Option1.MouseMoveQ Option1.MouseUp> Option1.RightClick%! Option1.Destroym" Option1.Init Option1.When Option1.Valid Option2.ClickQ' Option2.DblClick Option2.DragDrop Option2.DragOver Option2.GotFocusS- Option2.KeyPress Option2.LostFocusR0 Option2.MouseDown Option2.MouseMove Option2.MouseUpo5 Option2.RightClickU7 Option2.Destroy Option2.Init Option2.When Option2.ValidH< Option3.Click Option3.DblClick Option3.DragDrop Option3.DragOver Option3.GotFocus Option3.KeyPress Option3.LostFocus Option3.MouseDown Option3.MouseMove Option3.MouseUp Option3.RightClick Option3.Destroy Option3.Init Option3.WhenBQ Option3.ValidxR c:\vfp\samples\controls\events\ events.scx c:\vfp\samples\controls\events\events.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QU00R9JS3 491087207 17 18 19 20 21 WINDOWS _QU00R9JSB 496261721 22 23 24 25 31 260 WINDOWS _QU00R9JT3 496261721 53 54 55 56 57 58 WINDOWS _QU00R9JVU 496261722 72 73 74 75 76 79 273 WINDOWS _QU00R9JY0 496261722 100 101 102 103 104 107 286 WINDOWS _QU00R9JZ2 496261722 119 120 121 122 123 126 296 COMMENT FONTINFO 137 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" frmstop ScaleMode = 3 Top = 117 Left = 307 Height = 163 Width = 109 AutoCenter = .F. BackColor = 192,192,192 Caption = "Stopwatch" MaxButton = .F. MinButton = .F. Name = "frmstop" PROCEDURE Init this.stopwatch1.stop ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC STOPWATCH1 STOP4 mainb Init, UnloadX c:\vfp\samples\controls\timer\ 81091315.tmp c:\vfp\samples\controls\timer\81091315.tmp stopwatch samples.vcx container Stopwatch1 frmstop. Top = 17 Left = 20 Width = 69 Height = 29 ClassLibrary = "samples.vcx" Name = "Stopwatch1" Timer1.Top = 27 Timer1.Left = 6 Timer1.Enabled = .T. lblhours.Caption = "00" lblhours.Left = 8 lblhours.Top = 8 lblColon2.Left = 23 lblColon2.Top = 7 lblMinutes.Caption = "00" lblMinutes.Left = 27 lblMinutes.Top = 8 lblColon1.Left = 42 lblColon1.Top = 7 lblSeconds.Caption = "00" lblSeconds.Left = 46 lblSeconds.Top = 8 commandbutton commandbutton cmdStartStop frmstop. WTop = 60 Left = 6 Height = 25 Width = 97 Caption = "Start" Name = "cmdStartStop" PROCEDURE Click #define START_LOC "Start" #define STOP_LOC "Stop" IF This.Caption = START_LOC This.Caption = STOP_LOC thisform.stopwatch1.start This.Caption = START_LOC thisform.stopwatch1.stop ENDIF ENDPROC Start Start CAPTION THISFORM STOPWATCH1 START Click, c:\vfp\samples\controls\timer\ 81091315.tmp c:\vfp\samples\controls\timer\81091315.tmp commandbutton commandbutton cmdReset frmstop. STop = 95 Left = 6 Height = 25 Width = 97 Caption = "Reset" Name = "cmdReset" 5PROCEDURE Click thisform.stopwatch1.reset ENDPROC THISFORM STOPWATCH1 RESET Click, c:\vfp\samples\controls\timer\ 81091315.tmp c:\vfp\samples\controls\timer\81091315.tmp commandbutton commandbutton cmdClose frmstop. TTop = 132 Left = 6 Height = 25 Width = 97 Caption = "Close" Name = "cmdClose" ,PROCEDURE Click release thisform ENDPROC THISFORM Click, c:\vfp\samples\controls\timer\ 81091315.tmp c:\vfp\samples\controls\timer\81091315.tmp "Arial, 1, 10, 6, 16, 13, 15, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" frmstop ScaleMode = 3 Top = 117 Left = 307 Height = 163 Width = 109 AutoCenter = .F. BackColor = 192,192,192 Caption = "Stopwatch" MaxButton = .F. MinButton = .F. Name = "frmstop" PROCEDURE Init this.stopwatch1.stop ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC STOPWATCH1 STOP4 mainb Init, UnloadX c:\vfp\samples\controls\timer\ swatch.scx c:\vfp\samples\controls\timer\swatch.scx stopwatch samples.vcx container Stopwatch1 frmstop Top = 17 Left = 20 Width = 69 Height = 29 ClassLibrary = "samples.vcx" Name = "Stopwatch1" Timer1.Top = 27 Timer1.Left = 6 Timer1.Enabled = .T. lblhours.Caption = "00" lblhours.Left = 8 lblhours.Top = 8 lblColon2.Left = 23 lblColon2.Top = 7 lblMinutes.Caption = "00" lblMinutes.Left = 27 lblMinutes.Top = 8 lblColon1.Left = 42 lblColon1.Top = 7 lblSeconds.Caption = "00" lblSeconds.Left = 46 lblSeconds.Top = 8 commandbutton commandbutton Command1 frmstop STop = 60 Left = 6 Height = 25 Width = 97 Caption = "Start" Name = "Command1" PROCEDURE Click IF This.Caption = "Start" This.Caption = "Stop" thisform.stopwatch1.start This.Caption = "Start" thisform.stopwatch1.stop ENDIF ENDPROC Start Start CAPTION THISFORM STOPWATCH1 START Click, c:\vfp\samples\controls\timer\ swatch.scx c:\vfp\samples\controls\timer\swatch.scx commandbutton commandbutton Command3 frmstop STop = 95 Left = 6 Height = 25 Width = 97 Caption = "Reset" Name = "Command3" 5PROCEDURE Click thisform.stopwatch1.reset ENDPROC THISFORM STOPWATCH1 RESET Click, c:\vfp\samples\controls\timer\ swatch.scx c:\vfp\samples\controls\timer\swatch.scx commandbutton commandbutton Command4 frmstop TTop = 132 Left = 6 Height = 25 Width = 97 Caption = "Close" Name = "Command4" ,PROCEDURE Click release thisform ENDPROC THISFORM Click, c:\vfp\samples\controls\timer\ swatch.scx c:\vfp\samples\controls\timer\swatch.scx "Arial, 1, 10, 6, 16, 13, 15, 3, 0 STOPWATCH1 STOP4 mainb Init, UnloadX c:\vfp\samples\controls\timer\ swatch.scx c:\vfp\samples\controls\timer\swatch.scx Start Start CAPTION THISFORM STOPWATCH1 START Click, c:\vfp\samples\controls\timer\ swatch.scx c:\vfp\samples\controls\timer\swatch.scx THISFORM STOPWATCH1 RESET Click, c:\vfp\samples\controls\timer\ swatch.scx c:\vfp\samples\controls\timer\swatch.scx THISFORM Click, c:\vfp\samples\controls\timer\ swatch.scx c:\vfp\samples\controls\timer\swatch.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 0 8 WINDOWS _QU00T27RA 491088944 9 10 11 12 13 WINDOWS _QU00T27RO 495290490 14 15 16 17 20 102 WINDOWS _QU00T27SM 491932480 26 27 28 29 30 32 110 WINDOWS _QU00U2PCU 491932480 34 35 36 37 38 WINDOWS _QU00U2PDR 495275472 40 41 42 43 44 WINDOWS _QU00U2PEQ 491932480 47 48 49 50 51 WINDOWS _QU00U2PFJ 491932480 54 55 56 57 58 WINDOWS _QU00U2PGX 495290490 60 61 62 63 64 67 115 WINDOWS _QU00U2PIA 495290490 69 70 71 72 73 75 121 COMMENT FONTINFO 0 77 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" form1 ScaleMode = 3 Top = 169 Left = 157 Height = 134 Width = 296 BackColor = 192,192,192 Caption = "Timer Intervals" MaxButton = .F. MinButton = .F. Name = "form1" LPROCEDURE Init This.Spinner1.value = 5 This.Timer1.Interval = 5000 ENDPROC ENDPROC ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC ENDPROC commandbutton commandbutton Command1 form1 VTop = 104 Left = 118 Height = 25 Width = 61 Caption = "Close" Name = "Command1" >PROCEDURE Click release thisform ENDPROC ENDPROC ENDPROC label label Label1 form1 nBackColor = 192,192,192 Caption = "Seconds" Height = 15 Left = 229 Top = 72 Width = 58 Name = "Label1" label label Label2 form1 AutoSize = .T. BackColor = 192,192,192 Caption = "Wait Window Text" Height = 15 Left = 7 Top = 12 Width = 150 Name = "Label2" label label Label3 form1 BackColor = 192,192,192 Caption = "Display Wait Window Every" Height = 15 Left = 7 Top = 72 Width = 181 Name = "Label3" textbox textbox Text1 form1 WValue = Enter Text Here Height = 24 Left = 7 Top = 34 Width = 279 Name = "Text1" spinner spinner Spinner1 form1 Height = 22 InputMask = "###" KeyboardLowValue = 1.00 Left = 187 SpinnerLowValue = 1.00 Top = 68 Width = 37 Name = "Spinner1" XPROCEDURE InteractiveChange ThisForm.Timer1.Interval = (This.Value * 1000) ENDPROC timer timer Timer1 form1 ATop = 108 Left = 264 Height = 25 Width = 25 Name = "Timer1" ZPROCEDURE Timer WAIT WINDOW ALLTRIM(ThisForm.Text1.Value) TIMEOUT 0.5 ENDPROC ENDPROC "Arial, 1, 10, 6, 16, 13, 15, 3, 0 SPINNER1 VALUE TIMER1 INTERVAL4 mainb Init, Unload c:\vfp\samples\controls\timer\ timecomm.scx c:\vfp\samples\controls\timer\timecomm.scx THISFORM Click, c:\vfp\samples\controls\timer\ timecomm.scx c:\vfp\samples\controls\timer\timecomm.scx THISFORM TIMER1 INTERVAL VALUE InteractiveChange, c:\vfp\samples\controls\timer\ timecomm.scx c:\vfp\samples\controls\timer\timecomm.scx THISFORM TEXT1 VALUE Timer, c:\vfp\samples\controls\timer\ timecomm.scx c:\vfp\samples\controls\timer\timecomm.scx SPINNER1 VALUE TIMER1 INTERVAL4 mainb Init, Unload c:\vfp\samples\controls\timer\ timecomm.scx c:\vfp\samples\controls\timer\timecomm.scx THISFORM Click, c:\vfp\samples\controls\timer\ timecomm.scx c:\vfp\samples\controls\timer\timecomm.scx THISFORM TIMER1 INTERVAL VALUE InteractiveChange, c:\vfp\samples\controls\timer\ timecomm.scx c:\vfp\samples\controls\timer\timecomm.scx THISFORM TEXT1 VALUE Timer, c:\vfp\samples\controls\timer\ timecomm.scx c:\vfp\samples\controls\timer\timecomm.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QU00WNNAD 491092421 17 18 19 20 21 WINDOWS _QU00WNNAJ 496259867 22 23 24 25 33 191 WINDOWS _QU00WU3SX 496259867 69 70 71 72 73 74 90 210 COMMENT FONTINFO 101 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" form1 ScaleMode = 3 Top = 247 Left = 98 Height = 23 Width = 251 BackColor = 255,255,255 Caption = "Clock - double click to change time format (12)" HalfHeightCaption = .T. MaxButton = .F. MinButton = .F. Movable = .T. Name = "form1" )PROCEDURE DblClick #define CAP24_LOC 'Clock - double click to change time format (24)' #define CAP12_LOC 'Clock - double click to change time format (12)' IF This.Clock1.TimeFormat = 0 This.Clock1.TimeFormat = 1 This.caption = CAP24_LOC This.Clock1.TimeFormat = 0 This.caption = CAP12_LOC ENDIF ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC Clock - double click to change time format (24) Clock - double click to change time format (12) CLOCK1 TIMEFORMAT CAPTION4 mainb DblClick, Unload c:\vfp\samples\controls\timer\ 77854480.tmp c:\vfp\samples\controls\timer\77854480.tmp clock samples.vcx container Clock1 form1. Top = 1 Left = 0 Width = 247 Height = 21 BackColor = 255,255,255 BorderWidth = 0 ClassLibrary = "samples.vcx" timeformat = 0 Name = "Clock1" txtDate.BackColor = 255,255,255 txtDate.Left = -1 txtDate.StatusBarText = "Double Click to change Time Format to 24 hour" txtDate.Top = -1 txtDate.DisabledForeColor = 0,0,0 txtDate.DisabledBackColor = 255,255,255 txtTime.Left = 184 txtTime.StatusBarText = "Double Click to change Time Format to 24 hour" txtTime.Top = -1 Timer1.Top = -1 Timer1.Left = -1 2PROCEDURE DblClick ThisForm.DblClick ENDPROC THISFORM DBLCLICK DblClick, c:\vfp\samples\controls\timer\ 77854480.tmp c:\vfp\samples\controls\timer\77854480.tmp "Arial, 1, 10, 6, 16, 13, 15, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation Name = "Datanavigation" form1 ScaleMode = 3 Top = 247 Left = 98 Height = 23 Width = 251 BackColor = 255,255,255 Caption = "Clock - double click to change time format (12)" HalfHeightCaption = .T. MaxButton = .F. MinButton = .F. Movable = .T. Name = "form1" PROCEDURE DblClick IF This.Clock1.TimeFormat = 0 This.Clock1.TimeFormat = 1 This.caption = 'Clock - double click to change time format (24)' This.Clock1.TimeFormat = 0 This.caption = 'Clock - double click to change time format (12)' ENDIF ENDPROC ENDPROC ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC ENDPROC ENDPROC Clock - double click to change time format (24) Clock - double click to change time format (12) CLOCK1 TIMEFORMAT CAPTION4 mainb DblClick, Unload c:\vfp\samples\controls\timer\ clock.scx c:\vfp\samples\controls\timer\clock.scx clock samples.vcx container Clock1 form1 Top = 1 Left = 0 Width = 247 Height = 21 BackColor = 255,255,255 BorderWidth = 0 ClassLibrary = "samples.vcx" timeformat = 0 Name = "Clock1" txtDate.BackColor = 255,255,255 txtDate.Left = -1 txtDate.StatusBarText = "Double Click to change Time Format to 24 hour" txtDate.Top = -1 txtDate.DisabledForeColor = 0,0,0 txtDate.DisabledBackColor = 255,255,255 txtTime.Left = 184 txtTime.StatusBarText = "Double Click to change Time Format to 24 hour" txtTime.Top = -1 Timer1.Top = -1 Timer1.Left = -1 ;PROCEDURE DblClick ThisForm.DblClick ENDPROC ENDPROC THISFORM DBLCLICK DblClick, c:\vfp\samples\controls\timer\ clock.scx c:\vfp\samples\controls\timer\clock.scx "Arial, 1, 10, 6, 16, 13, 15, 3, 0 Clock - double click to change time format (24) Clock - double click to change time format (12) CLOCK1 TIMEFORMAT CAPTION4 mainb DblClick, Unload c:\vfp\samples\controls\timer\ clock.scx c:\vfp\samples\controls\timer\clock.scx THISFORM DBLCLICK DblClick, c:\vfp\samples\controls\timer\ clock.scx c:\vfp\samples\controls\timer\clock.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QTS13T6TM 495742449 17 18 19 20 32 WINDOWS _QV40R2XRH 505828807 23 24 25 26 27 WINDOWS _QTS13JFW5 505828807 33 34 35 36 44 748 105 WINDOWS _QTS120NXG 505828807 106 107 108 109 110 128 778 WINDOWS _QTS13JKBO 495359381 164 165 166 167 168 WINDOWS _QTS13JKCT 505828807 173 174 175 176 177 185 799 WINDOWS _QU00JPUKU 505703118 349 350 351 352 353 WINDOWS _QU00SIUVG 505828807 363 364 365 366 367 371 875 COMMENT FONTINFO 382 VERSION = 0.028 dataenvironment dataenvironment Datanavigation ILeft = 24 Top = 49 Width = 632 Height = 358 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation. Database = ..\..\data\testdata.dbc Left = 20 Top = 10 Width = 106 Height = 126 Alias = "customer" CursorSource = "customer" Name = "Cursor1" frmpgfsam1 ScaleMode = 0 Caption = "PageFrame Tab Sample" alphabet = ABCDEFGHIJKLMNOPQRSTUVWXYZ Top = 6.31 Left = 6.33 Height = 17.38 Width = 94.17 AutoCenter = .T. BackColor = 192,192,192 DataSession = 2 Name = "frmpgfsam1" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC PROCEDURE Load Public array myarray[1,2] ENDPROC PROCEDURE Init *Populate first screen of the listbox when you enter the sample var1 = thisform.pgfrolodex.activepage var2 = substr(thisform.pgfrolodex.pages(var1).caption,3,1) var3 = substr(thisform.pgfrolodex.pages(var1).caption,1,1) Select Company, phone from customer; where company <= var2 and company => var3; order by company; into array myarray var4=alen(myarray,1) thisform.list1.numberofelements=var4 ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine WAIT WINDOW "ERROR " + ALLTRIM(STR(nError)) ENDPROC PROCEDURE Destroy * If the sample was run from the main controls application, * show main. IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC mainb MYARRAY customer THISFORM PGFROLODEX ACTIVEPAGE PAGES CAPTION COMPANY PHONE CUSTOMER MYARRAY LIST1 NUMBEROFELEMENTS* ERROR CC NERROR CMETHOD NLINE4 mainb Unload, Loadp Error Destroy j:\rodh\samples\controls\pgframe\ 00489694.tmp j:\rodh\samples\controls\pgframe\00489694.tmp alphabet pageframe pageframe pgfrolodex frmpgfsam1. 0ErasePage = .T. PageCount = 3 TabStretch = 1 Top = 0.50 Left = 2.17 ActivePage = 1 Height = 12.00 Width = 90.17 Tabs = .T. Name = "pgfrolodex" Page1.Caption = "A-H" Page1.PageOrder = 1 Page1.Name = "page1" Page2.Caption = "I-P" Page2.PageOrder = 2 Page2.Name = "page2" Page3.Caption = "Q-Z" Page3.PageOrder = 3 Page3.FontItalic = .F. Page3.FontName = "MS Sans Serif" Page3.FontOutline = .F. Page3.FontShadow = .F. Page3.FontStrikethru = .F. Page3.FontUnderline = .F. Page3.DragMode = 0 Page3.Enabled = .T. Page3.Name = "page3" PROCEDURE Click *Updates the grid to have the proper data thisform.lockscreen=.t. Dime myarray[1,2] myarray[1,1]='No Results' var1 = this.activepage var2 = substr(this.pages(var1).caption,3,1) var3 = substr(this.pages(var1).caption,1,1) Select Company, phone from customer; where company <= var2 and company => var3; order by company; into array myarray var4=alen(myarray,1) thisform.list1.numberofelements=var4 thisform.lockscreen=.f. ENDPROC No Results customer THISFORM LOCKSCREEN MYARRAY ACTIVEPAGE PAGES CAPTION COMPANY PHONE CUSTOMER LIST1 NUMBEROFELEMENTS Click, j:\rodh\samples\controls\pgframe\ 00489694.tmp j:\rodh\samples\controls\pgframe\00489694.tmp label label Lblnumpages frmpgfsam1. Caption = "Number of pages" Top = 2.63 Left = 3.67 Alignment = 2 BackColor = 192,192,192 Height = 1.25 Width = 19.00 Name = "Lblnumpages" spinner spinner spnnumpages frmpgfsam1. Top = 2.44 Left = 23.17 BackColor = 192,192,192 Enabled = .T. Height = 1.69 KeyboardHighValue = 9.00 KeyboardLowValue = 1.00 SpinnerHighValue = 9.00 SpinnerLowValue = 1.00 Width = 5.67 Value = 3 Name = "spnnumpages" 6PROCEDURE UpClick *Variables pfnum = thisform.pgfrolodex.pagecount spinval = thisform.spnnumpages.value *Adds the amount of pages to the pageframe IF pfnum < 9 thisform.pgfrolodex.pagecount = spinval thisform.pgfrolodex.pagecount = pfnum ENDIF *Changes the caption on the Pages at runtime FOR xxx = 1 to thisform.pgfrolodex.pagecount FirstLetter = substr(thisform.alphabet,((xxx - 1)*ROUND(len(thisform.alphabet)/thisform.pgfrolodex.pagecount,0))+1,1) IF xxx = thisform.pgfrolodex.pagecount &&last page LastLetter = right(thisform.alphabet,1) ELSE LastLetter = substr(thisform.alphabet,((xxx)*ROUND(len(thisform.alphabet)/thisform.pgfrolodex.pagecount,0)),1) ENDIF objmacro = "THISFORM.pgfrolodex.page" + ALLTRIM(STR(xxx)) &objmacro..caption = FirstLetter + "-" + LastLetter *Updates the grid to have the proper data dime myarray[1,2] myarray(1,1)='No Results' var1 = thisform.pgfrolodex.activepage var2 = substr(thisform.pgfrolodex.pages(var1).caption,3,1) var3 = substr(thisform.pgfrolodex.pages(var1).caption,1,1) Select Company, phone from customer; where company <= var2 and company => var3; order by company; into array myarray var4=alen(myarray,1) thisform.list1.numberofelements=var4 ENDPROC PROCEDURE InteractiveChange pfnum = thisform.pgfrolodex.pagecount spinval = thisform.spnnumpages.value DO CASE CASE spinval > 1 or spinval < 9 this.upclick CASE spinval < 1 thisform.spnnumpages.value = 1 this.upclick CASE spinval > 9 thisform.spnnumpages.value = 9 this.upclick ENDCASE ENDPROC PROCEDURE DownClick *Variables pfnum = thisform.pgfrolodex.pagecount spinval = thisform.spnnumpages.value *Adds the amount of pages to the pageframe IF pfnum > 1 thisform.pgfrolodex.pagecount = spinval thisform.pgfrolodex.pagecount = pfnum ENDIF *Changes the caption on the Pages at runtime FOR xxx = 1 to thisform.pgfrolodex.pagecount FirstLetter = substr(thisform.alphabet,((xxx - 1)*ROUND(len(thisform.alphabet)/thisform.pgfrolodex.pagecount,0))+1,1) IF xxx = thisform.pgfrolodex.pagecount &&last page LastLetter = right(thisform.alphabet,1) ELSE LastLetter = substr(thisform.alphabet,((xxx)*ROUND(len(thisform.alphabet)/thisform.pgfrolodex.pagecount,0)),1) ENDIF objmacro = "THISFORM.pgfrolodex.page" + ALLTRIM(STR(xxx)) &objmacro..caption = FirstLetter + "-" + LastLetter *Updates the grid to have the proper data dime myarray[1,2] myarray(1,1)='No Results' var1 = thisform.pgfrolodex.activepage var2 = substr(thisform.pgfrolodex.pages(var1).caption,3,1) var3 = substr(thisform.pgfrolodex.pages(var1).caption,1,1) Select Company, phone from customer; where company <= var2 and company => var3; order by company; into array myarray var4=alen(myarray,1) thisform.list1.numberofelements=var4 ENDPROC THISFORM.pgfrolodex.pageCC &objmacro..caption = FirstLetter + "-" + LastLetter No Results customer PFNUM THISFORM PGFROLODEX PAGECOUNT SPINVAL SPNNUMPAGES VALUE FIRSTLETTER ALPHABET LASTLETTER OBJMACRO MYARRAY ACTIVEPAGE PAGES CAPTION COMPANY PHONE CUSTOMER LIST1 NUMBEROFELEMENTS PFNUM THISFORM PGFROLODEX PAGECOUNT SPINVAL SPNNUMPAGES VALUE UPCLICK THISFORM.pgfrolodex.pageCC &objmacro..caption = FirstLetter + "-" + LastLetter No Results customer PFNUM THISFORM PGFROLODEX PAGECOUNT SPINVAL SPNNUMPAGES VALUE FIRSTLETTER ALPHABET LASTLETTER OBJMACRO MYARRAY ACTIVEPAGE PAGES CAPTION COMPANY PHONE CUSTOMER LIST1 NUMBEROFELEMENTS UpClick, InteractiveChange DownClick j:\rodh\samples\controls\pgframe\ 00489694.tmp j:\rodh\samples\controls\pgframe\00489694.tmp listbox listbox List1 frmpgfsam1. =Top = 4.25 Left = 4.17 FontName = "Courier New" FontSize = 8 BoundColumn = 1 ColumnCount = 2 ColumnWidths = "40,40" RowSourceType = 5 RowSource = "myarray" Height = 7.50 ColumnLines = .T. Sorted = .F. Width = 86.17 SelectedItemForeColor = 0,0,0 SelectedItemBackColor = 0,128,128 Name = "List1" commandbutton commandbutton cmdexit frmpgfsam1. oCaption = "OK" Top = 13.50 Left = 35.67 Height = 2.25 Width = 18.50 Default = .F. Name = "cmdexit" ,PROCEDURE Click RELEASE THISFORM ENDPROC THISFORM Click, j:\rodh\samples\controls\pgframe\ 00489694.tmp j:\rodh\samples\controls\pgframe\00489694.tmp HArial, 1, 10, 6, 16, 13, 14, 3, 0 Courier New, 1, 8, 7, 14, 11, 8, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation ILeft = 24 Top = 49 Width = 632 Height = 358 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation Left = 20 Top = 10 Width = 106 Height = 126 Alias = "customer" Database = ..\..\data\testdata.dbc CursorSource = "customer" Name = "Cursor1" frmpgfsam1 ScaleMode = 0 Top = 6.31 Left = 6.33 Height = 17.38 Width = 94.17 AutoCenter = .T. BackColor = 192,192,192 Caption = "PageFrame Tab Sample" DataSession = 2 alphabet = ABCDEFGHIJKLMNOPQRSTUVWXYZ Name = "frmpgfsam1" PROCEDURE Destroy * If the sample was run from the main controls application, * show main. IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine WAIT WINDOW "ERROR " + ALLTRIM(STR(nError)) ENDPROC PROCEDURE Init *Populate first screen of the listbox when you enter the sample var1 = thisform.pgfrolodex.activepage var2 = substr(thisform.pgfrolodex.pages(var1).caption,3,1) var3 = substr(thisform.pgfrolodex.pages(var1).caption,1,1) Select Company, phone from customer; where company <= var2 and company => var3; order by company; into array myarray ENDPROC PROCEDURE Load Public array myarray[1,2] ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC mainb SHOW* ERROR CC NERROR CMETHOD NLINE customer THISFORM PGFROLODEX ACTIVEPAGE PAGES CAPTION COMPANY PHONE CUSTOMER MYARRAY MYARRAY4 mainb Destroy, Errorp Unload c:\vfp\samples\controls\pgframe\ 02182884.tmp c:\vfp\samples\controls\pgframe\02182884.tmp alphabet pageframe pageframe pgfrolodex frmpgfsam1 ErasePage = .T. PageCount = 3 ActivePage = 1 Top = 0.50 Left = 2.17 Height = 12.00 Width = 90.17 Tabs = .T. TabStretch = 1 Name = "pgfrolodex" Page1.Caption = "A-H" Page1.Name = "page1" Page2.Caption = "I-P" Page2.Name = "page2" Page3.FontItalic = .F. Page3.FontName = "MS Sans Serif" Page3.FontOutline = .F. Page3.FontShadow = .F. Page3.FontStrikethru = .F. Page3.FontUnderline = .F. Page3.Caption = "Q-Z" Page3.DragMode = 0 Page3.Enabled = .T. Page3.PageOrder = 3 Page3.Name = "page3" PROCEDURE Click *Updates the grid to have the proper data thisform.lockscreen=.t. Dime myarray[1,2] myarray[1,1]='No Results' var1 = this.activepage var2 = substr(this.pages(var1).caption,3,1) var3 = substr(this.pages(var1).caption,1,1) Select Company, phone from customer; where company <= var2 and company => var3; order by company; into array myarray var4=alen(myarray,1) thisform.list1.numberofelements=var4 thisform.lockscreen=.f. ENDPROC No Results customer THISFORM LOCKSCREEN MYARRAY ACTIVEPAGE PAGES CAPTION COMPANY PHONE CUSTOMER LIST1 NUMBEROFELEMENTS Click, c:\vfp\samples\controls\pgframe\ 02182884.tmp c:\vfp\samples\controls\pgframe\02182884.tmp label label Lblnumpages frmpgfsam1 Alignment = 2 BackColor = 192,192,192 Caption = "Number of pages" Height = 1.25 Left = 3.67 Top = 2.63 Width = 19.00 Name = "Lblnumpages" spinner spinner spnnumpages frmpgfsam1 BackColor = 192,192,192 Enabled = .T. Height = 1.69 KeyboardHighValue = 9.00 KeyboardLowValue = 1.00 Left = 23.17 SpinnerHighValue = 9.00 SpinnerLowValue = 1.00 Top = 2.44 Width = 5.67 Value = 3 Name = "spnnumpages" 6PROCEDURE DownClick *Variables pfnum = thisform.pgfrolodex.pagecount spinval = thisform.spnnumpages.value *Adds the amount of pages to the pageframe IF pfnum > 1 thisform.pgfrolodex.pagecount = spinval thisform.pgfrolodex.pagecount = pfnum ENDIF *Changes the caption on the Pages at runtime FOR xxx = 1 to thisform.pgfrolodex.pagecount FirstLetter = substr(thisform.alphabet,((xxx - 1)*ROUND(len(thisform.alphabet)/thisform.pgfrolodex.pagecount,0))+1,1) IF xxx = thisform.pgfrolodex.pagecount &&last page LastLetter = right(thisform.alphabet,1) ELSE LastLetter = substr(thisform.alphabet,((xxx)*ROUND(len(thisform.alphabet)/thisform.pgfrolodex.pagecount,0)),1) ENDIF objmacro = "THISFORM.pgfrolodex.page" + ALLTRIM(STR(xxx)) &objmacro..caption = FirstLetter + "-" + LastLetter *Updates the grid to have the proper data dime myarray[1,2] myarray(1,1)='No Results' var1 = thisform.pgfrolodex.activepage var2 = substr(thisform.pgfrolodex.pages(var1).caption,3,1) var3 = substr(thisform.pgfrolodex.pages(var1).caption,1,1) Select Company, phone from customer; where company <= var2 and company => var3; order by company; into array myarray var4=alen(myarray,1) thisform.list1.numberofelements=var4 ENDPROC PROCEDURE InteractiveChange pfnum = thisform.pgfrolodex.pagecount spinval = thisform.spnnumpages.value DO CASE CASE spinval > 1 or spinval < 9 this.upclick CASE spinval < 1 thisform.spnnumpages.value = 1 this.upclick CASE spinval > 9 thisform.spnnumpages.value = 9 this.upclick ENDCASE ENDPROC PROCEDURE UpClick *Variables pfnum = thisform.pgfrolodex.pagecount spinval = thisform.spnnumpages.value *Adds the amount of pages to the pageframe IF pfnum < 9 thisform.pgfrolodex.pagecount = spinval thisform.pgfrolodex.pagecount = pfnum ENDIF *Changes the caption on the Pages at runtime FOR xxx = 1 to thisform.pgfrolodex.pagecount FirstLetter = substr(thisform.alphabet,((xxx - 1)*ROUND(len(thisform.alphabet)/thisform.pgfrolodex.pagecount,0))+1,1) IF xxx = thisform.pgfrolodex.pagecount &&last page LastLetter = right(thisform.alphabet,1) ELSE LastLetter = substr(thisform.alphabet,((xxx)*ROUND(len(thisform.alphabet)/thisform.pgfrolodex.pagecount,0)),1) ENDIF objmacro = "THISFORM.pgfrolodex.page" + ALLTRIM(STR(xxx)) &objmacro..caption = FirstLetter + "-" + LastLetter *Updates the grid to have the proper data dime myarray[1,2] myarray(1,1)='No Results' var1 = thisform.pgfrolodex.activepage var2 = substr(thisform.pgfrolodex.pages(var1).caption,3,1) var3 = substr(thisform.pgfrolodex.pages(var1).caption,1,1) Select Company, phone from customer; where company <= var2 and company => var3; order by company; into array myarray var4=alen(myarray,1) thisform.list1.numberofelements=var4 ENDPROC THISFORM.pgfrolodex.pageCC &objmacro..caption = FirstLetter + "-" + LastLetter No Results customer PFNUM THISFORM PGFROLODEX PAGECOUNT SPINVAL SPNNUMPAGES VALUE FIRSTLETTER ALPHABET LASTLETTER OBJMACRO MYARRAY ACTIVEPAGE PAGES CAPTION COMPANY PHONE CUSTOMER LIST1 NUMBEROFELEMENTS PFNUM THISFORM PGFROLODEX PAGECOUNT SPINVAL SPNNUMPAGES VALUE UPCLICK THISFORM.pgfrolodex.pageCC &objmacro..caption = FirstLetter + "-" + LastLetter No Results customer PFNUM THISFORM PGFROLODEX PAGECOUNT SPINVAL SPNNUMPAGES VALUE FIRSTLETTER ALPHABET LASTLETTER OBJMACRO MYARRAY ACTIVEPAGE PAGES CAPTION COMPANY PHONE CUSTOMER LIST1 NUMBEROFELEMENTS DownClick, InteractiveChange UpClick c:\vfp\samples\controls\pgframe\ 02182884.tmp c:\vfp\samples\controls\pgframe\02182884.tmp listbox listbox List1 frmpgfsam1 =FontName = "Courier New" FontSize = 8 BoundColumn = 1 ColumnCount = 2 ColumnWidths = "40,40" RowSourceType = 5 RowSource = "myarray" Height = 7.50 ColumnLines = .T. Left = 4.17 Sorted = .F. Top = 4.25 Width = 86.17 SelectedItemForeColor = 0,0,0 SelectedItemBackColor = 0,128,128 Name = "List1" commandbutton commandbutton cmdexit frmpgfsam1 oTop = 13.50 Left = 35.67 Height = 2.25 Width = 18.50 Caption = "OK" Default = .F. Name = "cmdexit" ,PROCEDURE Click RELEASE THISFORM ENDPROC THISFORM Click, c:\vfp\samples\controls\pgframe\ 02182884.tmp c:\vfp\samples\controls\pgframe\02182884.tmp HArial, 1, 10, 6, 16, 13, 14, 3, 0 Courier New, 1, 8, 7, 14, 11, 8, 3, 0 mainb MYARRAY customer THISFORM PGFROLODEX ACTIVEPAGE PAGES CAPTION COMPANY PHONE CUSTOMER MYARRAY LIST1 NUMBEROFELEMENTS* ERROR CC NERROR CMETHOD NLINE4 mainb Unload, Loadp Error Destroy c:\vfp\samples\controls\pgframe\ pfsam1.scx c:\vfp\samples\controls\pgframe\pfsam1.scx No Results customer THISFORM LOCKSCREEN MYARRAY ACTIVEPAGE PAGES CAPTION COMPANY PHONE CUSTOMER LIST1 NUMBEROFELEMENTS Click, c:\vfp\samples\controls\pgframe\ pfsam1.scx c:\vfp\samples\controls\pgframe\pfsam1.scx THISFORM.pgfrolodex.pageCC &objmacro..caption = FirstLetter + "-" + LastLetter No Results customer PFNUM THISFORM PGFROLODEX PAGECOUNT SPINVAL SPNNUMPAGES VALUE FIRSTLETTER ALPHABET LASTLETTER OBJMACRO MYARRAY ACTIVEPAGE PAGES CAPTION COMPANY PHONE CUSTOMER LIST1 NUMBEROFELEMENTS PFNUM THISFORM PGFROLODEX PAGECOUNT SPINVAL SPNNUMPAGES VALUE UPCLICK THISFORM.pgfrolodex.pageCC &objmacro..caption = FirstLetter + "-" + LastLetter No Results customer PFNUM THISFORM PGFROLODEX PAGECOUNT SPINVAL SPNNUMPAGES VALUE FIRSTLETTER ALPHABET LASTLETTER OBJMACRO MYARRAY ACTIVEPAGE PAGES CAPTION COMPANY PHONE CUSTOMER LIST1 NUMBEROFELEMENTS UpClick, InteractiveChange DownClick c:\vfp\samples\controls\pgframe\ pfsam1.scx c:\vfp\samples\controls\pgframe\pfsam1.scx THISFORM Click, c:\vfp\samples\controls\pgframe\ pfsam1.scx c:\vfp\samples\controls\pgframe\pfsam1.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Class 0 8 WINDOWS _QVX0NDWUT 495802069 9 10 11 12 13 15 567 WINDOWS _QVX0NDX21 495802069 19 20 21 22 23 25 575 WINDOWS _QVX0NDX7L 495802069 29 30 31 32 33 35 583 WINDOWS _QVX0NDXEA 495802069 39 40 41 42 43 45 591 WINDOWS _QVX0O2A3I 495802803 49 50 51 52 53 55 599 WINDOWS _QVX0O2AGU 495802803 61 62 63 64 65 67 609 WINDOWS _QVX0O2AQL 495802804 73 74 75 76 77 79 619 WINDOWS _QVX0O2AWP 495802804 85 86 87 88 89 91 629 *WINDOWS _QVX0O4FI0 495802857 97 98 99 100 102 639 107 108 109 110 111 112 113 *WINDOWS _QVX0O4ET8 495802857 114 115 116 117 118 120 647 *WINDOWS _QVX0O4F0H 495802857 126 127 128 129 130 132 657 *WINDOWS _QVX0O4F6B 495802857 138 139 140 141 142 144 667 *WINDOWS _QVX0O4FC5 495802857 150 151 152 153 154 156 677 *WINDOWS _QVX0R3IPK 495805649 162 163 164 165 167 687 169 170 171 172 *WINDOWS _QVX0R4IBZ 495805675 173 174 175 176 178 692 179 180 181 182 183 184 *WINDOWS _QVX0RA8RH 495805816 185 186 187 188 190 697 192 193 194 195 196 197 *WINDOWS _QW40M2714 496259634 347 335 346 337 339 703 349 348 350 351 *WINDOWS _QW40M3WJO 496259675 365 353 371 372 357 708 367 366 363 369 370 368 *WINDOWS _QW40XVD0O 496270854 380 375 376 379 378 382 381 WINDOWS _QW50W7MCK 496334902 494 384 493 386 388 713 496 495 404 498 499 500 497 WINDOWS _QW50W7L6K 496334901 405 406 407 408 409 411 721 WINDOWS _QW50W7LH5 496334901 427 428 429 430 431 433 731 WINDOWS _QW50W7LQL 496334902 449 450 451 452 453 455 741 WINDOWS _QW50W7LZ7 496334902 471 472 473 474 475 477 751 *WINDOWS _QWQ0WZ4KL 506034916 507 502 503 506 505 509 508 510 WINDOWS _QWQ0X13MQ 506034964 517 512 513 516 515 519 518 521 522 523 520 WINDOWS _QWQ0X2656 506034991 539 525 538 527 529 761 541 540 537 543 544 545 542 WINDOWS _QWQ0X3W5T 506035033 559 547 558 549 551 767 561 560 564 565 566 562 VERSION = 0.028 commandbutton commandbutton cmdTop MTop = 0 Left = 0 Height = 25 Width = 37 Caption = "|<" Name = "cmdTop" PROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF GO TOP THISFORM.Refresh ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC commandbutton commandbutton cmdPrior OTop = 0 Left = 48 Height = 25 Width = 37 Caption = "<" Name = "cmdPrior" PROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF SKIP -1 IF BOF() GO TOP ENDIF THISFORM.Refresh ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC commandbutton commandbutton cmdNext NTop = 0 Left = 96 Height = 25 Width = 37 Caption = ">" Name = "cmdNext" PROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF SKIP 1 IF EOF() GO BOTTOM ENDIF THISFORM.Refresh ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC commandbutton commandbutton cmdBottom RTop = 0 Left = 144 Height = 25 Width = 37 Caption = ">|" Name = "cmdBottom" PROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF GO BOTTOM THISFORM.Refresh ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC commandbutton commandbutton cmdTop MTop = 0 Left = 0 Height = 25 Width = 37 Caption = "|<" Name = "cmdTop" VPROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF GO TOP This.Enabled = .F. This.Parent.cmdPrior.Enabled = .F. This.Parent.cmdBottom.Enabled = .T. This.Parent.cmdNext.Enabled = .T. THISFORM.Refresh ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC commandbutton commandbutton cmdPrior OTop = 0 Left = 48 Height = 25 Width = 37 Caption = "<" Name = "cmdPrior" ePROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF SKIP -1 IF BOF() GO TOP This.Enabled = .F. This.Parent.cmdTop.Enabled = .F. This.Parent.SETALL("Enabled", .T., "Commandbutton") ENDIF THISFORM.Refresh ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC commandbutton commandbutton cmdNext NTop = 0 Left = 96 Height = 25 Width = 37 Caption = ">" Name = "cmdNext" jPROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF SKIP 1 IF EOF() GO BOTTOM This.Enabled = .F. This.Parent.cmdBottom.Enabled = .F. This.Parent.SETALL("Enabled", .T., "Commandbutton") ENDIF THISFORM.Refresh ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC commandbutton commandbutton cmdBottom RTop = 0 Left = 144 Height = 25 Width = 37 Caption = ">|" Name = "cmdBottom" VPROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF GO BOTTOM This.Enabled = .F. This.Parent.cmdNext.Enabled = .F. This.Parent.cmdTop.Enabled = .T. This.Parent.cmdPrior.Enabled = .T. THISFORM.Refresh ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC container container NWidth = 181 Height = 25 BackColor = 192,192,192 skiptable = Name = "vcr" )PROCEDURE Error Parameters nError, cMethod, nLine DO CASE CASE nError = 13 && Alias not found cNewTable = GETFILE('DBF', 'Select Table:', 'Open') IF FILE(cNewTable) SELECT 0 USE (cNewTable) This.SkipTable = ALIAS() ELSE This.SkipTable = "" ENDIF ENDCASE ENDPROC Class skiptable next.bmp keithka\bottom.bmp Pixels generic vcr buttons commandbutton commandbutton cmdTop MTop = 0 Left = 0 Height = 25 Width = 37 Caption = "|<" Name = "cmdTop" VPROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF GO TOP This.Enabled = .F. This.Parent.cmdPrior.Enabled = .F. This.Parent.cmdBottom.Enabled = .T. This.Parent.cmdNext.Enabled = .T. THISFORM.Refresh ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC commandbutton commandbutton cmdPrior OTop = 0 Left = 48 Height = 25 Width = 37 Caption = "<" Name = "cmdPrior" ePROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF SKIP -1 IF BOF() GO TOP This.Enabled = .F. This.Parent.cmdTop.Enabled = .F. This.Parent.SETALL("Enabled", .T., "Commandbutton") ENDIF THISFORM.Refresh ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC commandbutton commandbutton cmdNext NTop = 0 Left = 96 Height = 25 Width = 37 Caption = ">" Name = "cmdNext" jPROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF SKIP 1 IF EOF() GO BOTTOM This.Enabled = .F. This.Parent.cmdBottom.Enabled = .F. This.Parent.SETALL("Enabled", .T., "Commandbutton") ENDIF THISFORM.Refresh ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC commandbutton commandbutton cmdBottom RTop = 0 Left = 144 Height = 25 Width = 37 Caption = ">|" Name = "cmdBottom" VPROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF GO BOTTOM This.Enabled = .F. This.Parent.cmdNext.Enabled = .F. This.Parent.cmdTop.Enabled = .T. This.Parent.cmdPrior.Enabled = .T. THISFORM.Refresh ENDPROC PROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC commandbutton commandbutton cmdhelp SHeight = 23 Width = 84 Caption = "\<Help" HelpContextID = 15 Name = "cmdhelp" :PROCEDURE Click HELP ID This.HelpContextID ENDPROC Class help.bmp Pixels commandbutton commandbutton cmdquit =Height = 30 Width = 94 Caption = "Quit" Name = "cmdquit" .PROCEDURE Click RELEASE THISFORM ENDPROC Class formset cancel.bmp Pixels RELEASE THISFORM commandbutton commandbutton cmdok HHeight = 30 Width = 94 Caption = "OK" Default = .F. Name = "cmdok" tPROCEDURE Click IF TYPE("THISFORM.PARENT") = 'O' RELEASE THISFORMSET RELEASE THISFORM ENDIF ENDPROC Class formset ok.bmp Pixels RELEASE THISFORM, default button PARENT SKIPTABLE THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE ENABLED CMDPRIOR CMDBOTTOM CMDNEXT THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx Enableda Commandbutton PARENT SKIPTABLE ENABLED CMDTOP SETALL THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx Enableda Commandbutton PARENT SKIPTABLE ENABLED CMDBOTTOM SETALL THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error" c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE ENABLED CMDNEXT CMDTOP CMDPRIOR THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx Select Table: NERROR CMETHOD NLINE CNEWTABLE THIS SKIPTABLE Error, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE ENABLED CMDPRIOR CMDBOTTOM CMDNEXT THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx Enableda Commandbutton PARENT SKIPTABLE ENABLED CMDTOP SETALL THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx Enableda Commandbutton PARENT SKIPTABLE ENABLED CMDBOTTOM SETALL THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error" c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE ENABLED CMDNEXT CMDTOP CMDPRIOR THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx HELPCONTEXTID Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx THISFORM Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx THISFORM.PARENTb THISFORMSET THISFORM Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx commandbutton commandbutton cmdhelp SHeight = 30 Width = 94 Caption = "\<Help" HelpContextID = 15 Name = "cmdhelp" :PROCEDURE Click HELP ID This.HelpContextID ENDPROC HELPCONTEXTID Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx cmdhelp commandbutton Class help.bmp Pixels commandbutton commandbutton cmdquit ?Height = 30 Width = 94 Caption = "Cancel" Name = "cmdquit" .PROCEDURE Click RELEASE THISFORM ENDPROC THISFORM Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx formset cmdquit commandbutton Class RELEASE THISFORM cancel.bmp Pixels cmdCancel AHeight = 30 Width = 94 Caption = "Cancel" Name = "cmdCancel" shaper events\samples.vcx container shaper Name = "shaper" shaper shaper Class container container Oskiptable = Width = 181 Height = 25 BackColor = 192,192,192 Name = "vcr" PROCEDURE Error Parameters nError, cMethod, nLine * If the user tries to move the record pointer when no * table is open or when an invalid SkipTable property has bee * specified, prompt the user for a table to open. DO CASE CASE nError = 13 && Alias not found cNewTable = GETFILE('DBF', 'Select Table:', 'Open') IF FILE(cNewTable) SELECT 0 USE (cNewTable) This.SkipTable = ALIAS() ELSE This.SkipTable = "" ENDIF ENDCASE ENDPROC Select Table: NERROR CMETHOD NLINE CNEWTABLE THIS SKIPTABLE Error, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx 5skiptable The table to move the record pointer in . commandbutton commandbutton cmdTop MCaption = "|<" Top = 0 Left = 0 Height = 25 Width = 37 Name = "cmdTop" VPROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC PROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF GO TOP This.Enabled = .F. This.Parent.cmdPrior.Enabled = .F. This.Parent.cmdBottom.Enabled = .T. This.Parent.cmdNext.Enabled = .T. THISFORM.Refresh ENDPROC NERROR CMETHOD NLINE PARENT ERROR PARENT SKIPTABLE ENABLED CMDPRIOR CMDBOTTOM CMDNEXT THISFORM REFRESH Error, Click c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx commandbutton commandbutton cmdPrior OCaption = "<" Top = 0 Left = 48 Height = 25 Width = 37 Name = "cmdPrior" ePROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC PROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF SKIP -1 IF BOF() GO TOP This.Enabled = .F. This.Parent.cmdTop.Enabled = .F. This.Parent.SETALL("Enabled", .T., "Commandbutton") ENDIF THISFORM.Refresh ENDPROC NERROR CMETHOD NLINE PARENT ERROR Enableda Commandbutton PARENT SKIPTABLE ENABLED CMDTOP SETALL THISFORM REFRESH Error, Click c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx commandbutton commandbutton cmdNext NCaption = ">" Top = 0 Left = 96 Height = 25 Width = 37 Name = "cmdNext" jPROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC PROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF SKIP 1 IF EOF() GO BOTTOM This.Enabled = .F. This.Parent.cmdBottom.Enabled = .F. This.Parent.SETALL("Enabled", .T., "Commandbutton") ENDIF THISFORM.Refresh ENDPROC NERROR CMETHOD NLINE PARENT ERROR Enableda Commandbutton PARENT SKIPTABLE ENABLED CMDBOTTOM SETALL THISFORM REFRESH Error, Click c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx commandbutton commandbutton cmdBottom RCaption = ">|" Top = 0 Left = 144 Height = 25 Width = 37 Name = "cmdBottom" VPROCEDURE Error Parameters nError, cMethod, nLine This.Parent.Error(nError) ENDPROC PROCEDURE Click IF !EMPTY(This.Parent.SkipTable) SELECT (This.Parent.SkipTable) ENDIF GO BOTTOM This.Enabled = .F. This.Parent.cmdNext.Enabled = .F. This.Parent.cmdTop.Enabled = .T. This.Parent.cmdPrior.Enabled = .T. THISFORM.Refresh ENDPROC NERROR CMETHOD NLINE PARENT ERROR PARENT SKIPTABLE ENABLED CMDNEXT CMDTOP CMDPRIOR THISFORM REFRESH Error, Click c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx container Class generic vcr buttons next.bmp keithka\bottom.bmp Pixels cmdok buttons.vcx commandbutton cmdcancel Name = "cmdcancel" cmdcancel cmdok Class Pixels cmdok buttons.vcx commandbutton cmdCancel (Caption = "Cancel" Name = "cmdCancel" cmdCancel cmdok Class Release Form or Form Set cancel.bmp cancel.bmp Pixels commandbutton commandbutton cmdOk HCaption = "OK" Height = 30 Width = 94 Default = .F. Name = "cmdOk" tPROCEDURE Click IF TYPE("THISFORM.PARENT") = 'O' RELEASE THISFORMSET RELEASE THISFORM ENDIF ENDPROC THISFORM.PARENTb THISFORMSET THISFORM Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx formset cmdOk commandbutton Class RELEASE THISFORM, default button ok.bmp ok.bmp Pixels commandbutton commandbutton cmdHelp SCaption = "\<Help" Height = 30 Width = 94 HelpContextID = 15 Name = "cmdHelp" :PROCEDURE Click HELP ID This.HelpContextID ENDPROC HELPCONTEXTID Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx cmdHelp commandbutton Class GBrings up the help file, searching for the HelpContextID of the control help.bmp help.bmp Pixels PARENT SKIPTABLE THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE ENABLED CMDPRIOR CMDBOTTOM CMDNEXT THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx Enableda Commandbutton PARENT SKIPTABLE ENABLED CMDTOP SETALL THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx Enableda Commandbutton PARENT SKIPTABLE ENABLED CMDBOTTOM SETALL THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error" c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE ENABLED CMDNEXT CMDTOP CMDPRIOR THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx Select Table: NERROR CMETHOD NLINE CNEWTABLE THIS SKIPTABLE Error, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE ENABLED CMDPRIOR CMDBOTTOM CMDNEXT THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx Enableda Commandbutton PARENT SKIPTABLE ENABLED CMDTOP SETALL THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx Enableda Commandbutton PARENT SKIPTABLE ENABLED CMDBOTTOM SETALL THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error" c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PARENT SKIPTABLE ENABLED CMDNEXT CMDTOP CMDPRIOR THISFORM REFRESH& NERROR CMETHOD NLINE PARENT ERROR Click, Error c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx HELPCONTEXTID Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx THISFORM Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx THISFORM.PARENTb THISFORMSET THISFORM Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx HELPCONTEXTID Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx THISFORM Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx Select Table: NERROR CMETHOD NLINE CNEWTABLE THIS SKIPTABLE Error, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx NERROR CMETHOD NLINE PARENT ERROR PARENT SKIPTABLE ENABLED CMDPRIOR CMDBOTTOM CMDNEXT THISFORM REFRESH Error, Click c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx NERROR CMETHOD NLINE PARENT ERROR Enableda Commandbutton PARENT SKIPTABLE ENABLED CMDTOP SETALL THISFORM REFRESH Error, Click c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx NERROR CMETHOD NLINE PARENT ERROR Enableda Commandbutton PARENT SKIPTABLE ENABLED CMDBOTTOM SETALL THISFORM REFRESH Error, Click c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx NERROR CMETHOD NLINE PARENT ERROR PARENT SKIPTABLE ENABLED CMDNEXT CMDTOP CMDPRIOR THISFORM REFRESH Error, Click c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx THISFORM.PARENTb THISFORMSET THISFORM Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx HELPCONTEXTID Click, c:\vfp\samples\controls\ buttons.vcx c:\vfp\samples\controls\buttons.vcx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 0 8 WINDOWS _QUE0P5YXM 492002702 9 10 11 12 13 WINDOWS _QUE0P5YYI 495276074 14 15 16 17 21 96 WINDOWS _QUE0P5Z16 494633968 25 26 27 28 29 WINDOWS _QUE0P5Z3P 494633968 32 33 34 35 36 38 102 WINDOWS _QUE0PJF0K 494633968 42 43 44 45 46 47 49 WINDOWS _QUJ0MTWXY 494633968 50 51 52 53 54 WINDOWS _QUJ0MTWZH 494633968 58 59 60 61 62 WINDOWS _QUJ0MTX0X 494633968 66 67 68 69 70 WINDOWS _QUJ0MZ41A 494633968 74 75 76 77 78 COMMENT FONTINFO 0 82 VERSION = 0.028 dataenvironment dataenvironment Dataenvironment Name = "Dataenvironment" multifiles Top = 8.75 Left = 25.33 Height = 20.00 Width = 82.67 AutoCenter = .T. BackColor = 192,192,192 Caption = "Opening Multiple Files" DefButton = DefButton Name = "multifiles" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC listbox listbox lstFiles multifiles RowSourceType = 7 RowSource = "*.txt" Height = 15.00 Left = 4.00 MultiSelect = .T. Top = 0.75 Width = 42.17 Name = "lstFiles" commandbutton commandbutton cmdOpen multifiles hTop = 17.25 Left = 22.00 Height = 1.75 Width = 15.67 Caption = "Open Files" Name = "cmdOpen" PROCEDURE Click FOR nFile = 1 to THISFORM.lstFiles.ListCount IF THISFORM.lstFiles.Selected(nFile) MODIFY FILE (THISFORM.lstFiles.List(2) + ; THISFORM.lstFiles.List(nFile)) NOWAIT ENDIF ENDFOR ENDPROC cmdok ..\buttons.vcx commandbutton Cmdok1 multifiles ^Top = 17.25 Left = 48.00 Height = 1.88 Width = 15.67 Default = .T. Name = "Cmdok1" RELEASE THISFORM, default button label label Label1 multifiles BackColor = 192,192,192 BackStyle = 1 Caption = "Click a [Directory] to display the .txt files in it." Height = 2.25 Left = 48.00 Top = 7.50 Width = 32.17 WordWrap = .T. Name = "Label1" label label Label2 multifiles BackColor = 192,192,192 BackStyle = 1 Caption = "Click [..] to select the parent directory." Height = 2.25 Left = 48.00 Top = 3.75 Width = 32.17 WordWrap = .T. Name = "Label2" label label Label3 multifiles BackColor = 192,192,192 BackStyle = 1 Caption = "Select one or more .txt files in the directory, then choose Open Files to open them." Height = 3.75 Left = 48.00 Top = 11.25 Width = 32.17 WordWrap = .T. Name = "Label3" label label Label4 multifiles BackColor = 192,192,192 BackStyle = 1 Caption = "Click the Drive letter to select the drive." Height = 2.25 Left = 48.00 Top = 0.75 Width = 32.17 WordWrap = .T. Name = "Label4" "Arial, 1, 10, 6, 16, 13, 15, 3, 0 mainb Unload, c:\vfp\samples\controls\lists\ multfile.scx c:\vfp\samples\controls\lists\multfile.scx NFILE THISFORM LSTFILES LISTCOUNT SELECTED Click, c:\vfp\samples\controls\lists\ multfile.scx c:\vfp\samples\controls\lists\multfile.scx mainb Unload, c:\vfp\samples\controls\lists\ multfile.scx c:\vfp\samples\controls\lists\multfile.scx NFILE THISFORM LSTFILES LISTCOUNT SELECTED Click, c:\vfp\samples\controls\lists\ multfile.scx c:\vfp\samples\controls\lists\multfile.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 0 8 WINDOWS _QUD13HA4S 492800809 9 10 11 12 14 WINDOWS _QUL0L81R8 492800809 15 16 17 18 19 WINDOWS _QUD13KC70 495483203 21 22 23 24 28 446 83 WINDOWS _QUD13HA56 495483203 86 87 88 89 90 93 485 WINDOWS _QUD13KC88 495483203 120 121 122 123 124 127 507 WINDOWS _QVR1A23OI 495432973 130 131 132 133 134 WINDOWS _QVR1A23OH 495432973 136 137 138 139 140 WINDOWS _QVR1A23OR 495432973 142 143 144 145 146 WINDOWS _QUD13KC8W 495483203 148 149 150 151 152 154 513 WINDOWS _QUD196C16 495483203 158 159 160 161 162 164 519 WINDOWS _QUD19AFC7 495483203 168 169 170 171 172 174 526 WINDOWS _QUE1525DY 495483203 175 176 177 178 179 181 531 WINDOWS _QUE1525EV 495483203 187 188 189 190 191 193 539 WINDOWS _QUF0ONOUE 495432973 199 200 201 202 203 WINDOWS _QUF0ONOV0 495419658 205 206 207 208 209 WINDOWS _QUF103ZDE 495432973 211 212 213 214 215 WINDOWS _QUF103ZDT 495432973 217 218 219 220 221 WINDOWS _QUQ11YGLG 495432973 223 224 225 226 227 WINDOWS _QVR0STH2P 495483204 229 230 231 232 233 237 547 WINDOWS _QVR0XE4WW 495483204 244 245 246 247 248 250 556 WINDOWS _QVR0XIENS 495432973 256 257 258 259 260 WINDOWS _QVR0XTBKO 495432973 262 263 264 265 266 WINDOWS _QVR1091JL 495483204 268 269 270 271 272 275 563 WINDOWS _QVR1A23TR 495432973 282 283 284 285 286 WINDOWS _QVR1A23U1 495432973 288 289 290 291 292 WINDOWS _QUF103ZCY 495432973 294 295 296 297 298 WINDOWS _QVR1CR89V 495483204 300 301 302 303 304 307 572 COMMENT FONTINFO 0 312 VERSION = 0.028 dataenvironment dataenvironment Dataenvironment LLeft = 107 Top = 237 Width = 784 Height = 390 Name = "Dataenvironment" cursor cursor Cursor1 Dataenvironment mLeft = 20 Top = 10 Width = 106 Height = 126 Alias = "graph" CursorSource = graph.dbf Name = "Cursor1" formset formset frsGraphDemo DataEnvironment = "Dataenvironment" AutoRelease = .T. lcanmove = .F. ldidmove = .F. laddnumcoord = .F. nformscale = 1 nformx = 150 nformy = 150 currentcolor = 255 laddcoords = .T. Name = "frsGraphDemo" PROCEDURE Init thisformset.frmGraph.show thisformset.frmControl.show ** Reset all graphs marked for graphing. SELECT graph REPL ALL tograph WITH .f. *** Add coordinates if the flag is set. IF thisformset.lAddCoords thisformset.AddCoord ENDIF ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC PROCEDURE addcoord *** Add coordinate lines. X=0 and Y=0. thisformset.frmGraph.forecolor = rgb(0,0,0) thisformset.frmGraph.line(thisformset.nFormX,0,thisformset.nFormX,thisformset.frmGraph.height) thisformset.frmGraph.line(0,thisformset.nFormY,thisformset.frmGraph.width,thisformset.nFormY) *** Add coordinate numbers. IF thisformset.lAddNumCoord PRIVATE ymin,ymax,xmin,xmax xmin = (0-m.thisformset.nFormX)/thisformset.nFormScale xmax = (thisformset.frmGraph.width-m.thisformset.nFormX)/thisformset.nFormScale ymin = (m.thisformset.nFormY)/thisformset.nFormScale ymax = (m.thisformset.nFormY-thisformset.frmGraph.height)/thisformset.nFormScale thisformset.frmGraph.forecolor = rgb(255,255,255) thisformset.frmGraph.pset(m.thisformset.nFormX+5,0) thisformset.frmGraph.forecolor = rgb(0,0,0) thisformset.frmGraph.print(alltrim(str(ymin))) thisformset.frmGraph.forecolor = rgb(255,255,255) thisformset.frmGraph.pset(m.thisformset.nFormX+5,thisformset.frmGraph.height-35) thisformset.frmGraph.forecolor = rgb(0,0,0) thisformset.frmGraph.print(alltrim(str(ymax))) thisformset.frmGraph.forecolor = rgb(255,255,255) thisformset.frmGraph.pset(0,m.thisformset.nFormY+4) thisformset.frmGraph.forecolor = rgb(0,0,0) thisformset.frmGraph.print(alltrim(str(xmin))) thisformset.frmGraph.forecolor = rgb(255,255,255) thisformset.frmGraph.pset(thisformset.frmGraph.width-30,m.thisformset.nFormY+4) thisformset.frmGraph.forecolor = rgb(0,0,0) thisformset.frmGraph.print(alltrim(str(xmax))) ENDIF ENDPROC PROCEDURE allgraph *** Graph all records that are tagged with TOGRAPH (currently on screen). SELECT graph SCAN FOR graph.tograph IF graph.polar DO pgraph WITH graph.equation,graph.lfrom*pi(),graph.lto*pi(),graph.step,graph.ecolor,graph.connect,thisformset.nFormX,thisformset.nFormY,.f.,thisformset.frmgraph,thisformset.nFormScale ELSE DO cgraph WITH graph.equation,graph.step,graph.ecolor,graph.connect,thisformset.nFormX,thisformset.nFormY,.f.,thisformset.frmgraph,thisformset.nFormScale ENDIF ENDSCAN ENDPROC PROCEDURE onegraph #DEFINE graphNotFound "Graph was not found" PARAMETER cgraphToPlot SELECT graph *** Look for graph to plot. LOCATE FOR graph.name = m.cgraphToPlot IF NOT FOUND() =MESSAGEBOX(graphNotFound) RETURN ENDIF *** Set flag TOGRAPH to graph if zoom, resize or move orgin and color. REPLACE graph.tograph with .t.,graph.ecolor with thisformset.currentColor *** If polar call the polar graph procedure (PGRAPH) if not call the *** cartesian graph procedure (CGRAPH). IF graph.polar DO pgraph WITH graph.equation,graph.lfrom*pi(),graph.lto*pi(),graph.step,graph.ecolor,graph.connect,thisformset.nFormX,thisformset.nFormY,.f.,thisformset.frmgraph,thisformset.nFormScale DO cgraph WITH graph.equation,graph.step,graph.ecolor,graph.connect,thisformset.nFormX,thisformset.nFormY,.f.,thisformset.frmgraph,thisformset.nFormScale ENDIF ENDPROC |lcanmove ldidmove laddnumcoord nformscale nformx nformy currentcolor laddcoords *addcoord *allgraph *onegraph frmGraph frsGraphDemo ScaleMode = 3 Top = 157 Left = 13 Height = 300 Width = 300 Caption = "Graph Demo" MousePointer = 1 AlwaysOnTop = .F. Name = "frmGraph" PROCEDURE Init *** Set the form scalemode to pixels. thisform.scalemode = 3 ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord *** Claculate the absoult screen location for the orgin. xvalue = (nxcoord-thisformset.nFormX)/thisformset.nFormScale yvalue = (thisformset.nFormY-nycoord)/thisformset.nFormScale *** Update the X,Y position on the Controls form. thisformset.frmControl.lblXposition.caption = str(xvalue,9,3) thisformset.frmControl.lblYposition.caption = str(yvalue,9,3) *** See if a drag is in progress. IF nButton = 1 and thisformset.lCanMove thisformset.lDidMove = .t. RETURN ENDIF *** Check if the mouse pointer is close enough to the orgin to alloew a drag *** of the orgin. IF abs(nXCoord - thisformset.nFormX) < 4 and abs(nYCoord - thisformset.nFormY) < 4 thisformset.frmGraph.mousepointer = 2 thisformset.lCanMove = .t. thisformset.frmGraph.mousepointer = 1 thisformset.lCanMove = .f. ENDIF RETURN ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord *** If a drag happened do the following. IF thisformset.lDidMove *** Set new x,y centers. thisformset.nFormX = nxcoord thisformset.nFormY = nycoord thisformset.frmGraph.cls *** Set mouse pointer back thisformset.frmGraph.mousepointer = 2 *** Set the drag flag off. thisformset.lDidMove = .f. *** Graph all current equations. thisformset.allgraph IF thisformset.lAddCoords thisformset.addcoord ENDIF ENDIF RETURN ENDPROC PROCEDURE Resize thisformset.frmGraph.cls *** Graph all current equations. thisformset.allgraph IF thisformset.lAddCoords thisformset.addcoord ENDIF ENDPROC frmControl frsGraphDemo ScaleMode = 3 DataEnvironment = "Dataenvironment" Top = 159 Left = 324 Height = 300 Width = 300 Caption = "Controls" WindowState = 0 Name = "frmControl" PROCEDURE Init *** Set the color box on the Controls form. thisform.lblcolor.backcolor = thisformset.currentColor ENDPROC shape shape shape2 frsGraphDemo.frmControl @Height = 97 Left = 13 Top = 140 Width = 98 Name = "shape2" shape shape shape3 frsGraphDemo.frmControl BHeight = 97 Left = 117 Top = 140 Width = 104 Name = "shape3" shape shape shape1 frsGraphDemo.frmControl AHeight = 97 Left = 230 Top = 140 Width = 56 Name = "shape1" commandbutton commandbutton cmdGraph frsGraphDemo.frmControl UTop = 245 Left = 23 Height = 25 Width = 73 Caption = "Graph" Name = "cmdGraph" PROCEDURE Click *** Call the graph routine with the current selected equation. thisformset.onegraph(thisform.lstGraphList.list(thisform.lstGraphList.listitemid)) RETURN ENDPROC commandbutton commandbutton cmdClear frsGraphDemo.frmControl VTop = 245 Left = 114 Height = 25 Width = 73 Caption = "Clear" Name = "cmdClear" PROCEDURE Click thisformset.frmGraph.cls IF thisformset.lAddCoords thisformset.addcoord ENDIF *** Reset all graphs so they do no draw. SELECT graph REPLACE ALL tograph WITH .f. ENDPROC commandbutton commandbutton cmdQuit frsGraphDemo.frmControl TTop = 245 Left = 205 Height = 25 Width = 73 Caption = "Quit" Name = "cmdQuit" /PROCEDURE Click RELEASE thisformset ENDPROC commandbutton commandbutton cmdZoomUp frsGraphDemo.frmControl hTop = 181 Left = 19 Height = 37 Width = 37 Picture = arw08up.bmp Caption = "" Name = "cmdZoomUp" ZPROCEDURE Click *** Change the scale value and caption on the Controls form. thisformset.nFormScale = thisformset.nFormScale * 2 thisformset.frmControl.lblZoomPercent.caption = str(thisformset.nFormScale*100,6,2)+"%" thisformset.frmGraph.cls IF thisformset.lAddCoords thisformset.addcoord ENDIF thisformset.allgraph ENDPROC commandbutton commandbutton cmdZoomDown frsGraphDemo.frmControl jTop = 181 Left = 65 Height = 37 Width = 37 Picture = arw08dn.bmp Caption = "" Name = "cmdZoomDown" VPROCEDURE Click *** Change the scale value and caption on the Controls form. thisformset.nFormScale = thisformset.nFormScale / 2 thisformset.frmControl.lblZoomPercent.caption = str(thisformset.nFormScale*100,6,2)+"%" thisformset.frmGraph.cls IF thisformset.lAddCoords thisformset.addcoord ENDIF thisformset.allgraph ENDPROC label label lblXposition frsGraphDemo.frmControl VCaption = "0" Height = 25 Left = 151 Top = 170 Width = 61 Name = "lblXposition" label label lblYposition frsGraphDemo.frmControl WCaption = "0" Height = 25 Left = -144 Top = 132 Width = 61 Name = "lblYposition" label label Label1 frsGraphDemo.frmControl QCaption = "X=" Height = 24 Left = 127 Top = 170 Width = 16 Name = "Label1" label label Label2 frsGraphDemo.frmControl QCaption = "Y=" Height = 25 Left = 127 Top = 193 Width = 16 Name = "Label2" label label lblYposition frsGraphDemo.frmControl VCaption = "0" Height = 25 Left = 151 Top = 193 Width = 61 Name = "lblYposition" listbox listbox lstGraphList frsGraphDemo.frmControl ColumnCount = 0 ColumnWidths = "" RowSourceType = 6 RowSource = "graph.name" ControlSource = "" FirstElement = 1 Height = 119 Left = 9 NumberOfElements = 0 Top = 10 Width = 283 Name = "lstGraphList" PROCEDURE DblClick *** Call to graph current selected equation. thisformset.onegraph(thisform.lstGraphList.list(thisform.lstGraphList.listitemid)) RETURN ENDPROC PROCEDURE InteractiveChange *** Get the current color store in the graph table. thisformset.currentcolor = graph.ecolor *** Change color on the Controls form. thisform.lblcolor.backcolor = thisformset.currentColor ENDPROC commandbutton commandbutton cmdcolor frsGraphDemo.frmControl TTop = 197 Left = 245 Height = 24 Width = 25 Caption = "..." Name = "cmdcolor" kPROCEDURE Click *** Pick new color. tempColor = GETCOLOR() *** Make sure cancel was not pressed. IF tempcolor > 0 thisformset.currentColor = tempColor ENDIF *** Change color box on the Controls form. thisform.lblcolor.backcolor = thisformset.currentColor *** Set color in the table. REPLACE graph.ecolor with thisformset.currentColor ENDPROC label label lblcolor frsGraphDemo.frmControl VCaption = " " Height = 36 Left = 240 Top = 152 Width = 38 Name = "lblcolor" label label lblZoomPercent frsGraphDemo.frmControl ]Caption = "100.00%" Height = 19 Left = 23 Top = 157 Width = 76 Name = "lblZoomPercent" checkbox checkbox chkAddCoords frsGraphDemo.frmControl Top = 275 Left = 12 Height = 20 Width = 131 Caption = "Coordinate Lines" ControlSource = "thisformset.lAddCoords" SpecialEffect = 0 Style = 0 Name = "chkAddCoords" PROCEDURE Click *** Redraw form Graph with/without coordinate lines. IF thisformset.lAddCoords thisformset.addcoord thisformset.frmgraph.cls thisformset.allgraph ENDIF *** Disable add numbers checkbox if needed. IF thisformset.lAddCoords thisformset.frmcontrol.chkaddnums.enabled = .t. thisformset.frmcontrol.chkaddnums.enabled = .f. ENDIF thisformset.frmcontrol.chkaddnums.refresh ENDPROC label label label3 frsGraphDemo.frmControl UCaption = "Color:" Height = 16 Left = 236 Top = 133 Width = 43 Name = "label3" label label label5 frsGraphDemo.frmControl XCaption = "Position:" Height = 19 Left = 125 Top = 133 Width = 57 Name = "label5" label label Label4 frsGraphDemo.frmControl SCaption = "Zoom:" Height = 16 Left = 22 Top = 133 Width = 43 Name = "Label4" checkbox checkbox chkAddnums frsGraphDemo.frmControl Top = 276 Left = 147 Height = 19 Width = 154 Caption = "Coordinate Numbers" ControlSource = "thisformset.lAddNumCoord" SpecialEffect = 0 Style = 0 Name = "chkAddnums" /PROCEDURE Click *** Redraw form Graph with/without coordinate Numbers. IF thisformset.lAddNumCoord thisformset.addcoord thisformset.frmgraph.cls *** Add coordinate lines if needed. IF thisformset.lAddCoords thisformset.addcoord ENDIF thisformset.allgraph ENDIF ENDPROC "Arial, 1, 10, 6, 16, 13, 15, 3, 0 THISFORMSET FRMGRAPH FRMCONTROL GRAPH TOGRAPH LADDCOORDS ADDCOORD4 mainb THISFORMSET FRMGRAPH FORECOLOR NFORMX HEIGHT NFORMY WIDTH LADDNUMCOORD NFORMSCALE PRINT GRAPH TOGRAPH POLAR PGRAPH EQUATION LFROM ECOLOR CONNECT THISFORMSET NFORMX NFORMY FRMGRAPH NFORMSCALE CGRAPH2 Graph was not found CGRAPHTOPLOT GRAPH TOGRAPH ECOLOR THISFORMSET CURRENTCOLOR POLAR PGRAPH EQUATION LFROM CONNECT NFORMX NFORMY FRMGRAPH NFORMSCALE CGRAPH Init, Unload addcoord allgraph onegraph c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORM SCALEMODE; NBUTTON NSHIFT NXCOORD NYCOORD XVALUE THISFORMSET NFORMX NFORMSCALE YVALUE NFORMY FRMCONTROL LBLXPOSITION CAPTION LBLYPOSITION LCANMOVE LDIDMOVE FRMGRAPH MOUSEPOINTER NBUTTON NSHIFT NXCOORD NYCOORD THISFORMSET LDIDMOVE NFORMX NFORMY FRMGRAPH MOUSEPOINTER ALLGRAPH LADDCOORDS ADDCOORD8 THISFORMSET FRMGRAPH ALLGRAPH LADDCOORDS ADDCOORD Init, MouseMoveX MouseUpP Resize c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORM LBLCOLOR BACKCOLOR THISFORMSET CURRENTCOLOR Init, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET ONEGRAPH THISFORM LSTGRAPHLIST LISTITEMID Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET FRMGRAPH LADDCOORDS ADDCOORD GRAPH TOGRAPH Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET NFORMSCALE FRMCONTROL LBLZOOMPERCENT CAPTION FRMGRAPH LADDCOORDS ADDCOORD ALLGRAPH Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET NFORMSCALE FRMCONTROL LBLZOOMPERCENT CAPTION FRMGRAPH LADDCOORDS ADDCOORD ALLGRAPH Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET ONEGRAPH THISFORM LSTGRAPHLIST LISTITEMID, THISFORMSET CURRENTCOLOR GRAPH ECOLOR THISFORM LBLCOLOR BACKCOLOR DblClick, InteractiveChange c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx TEMPCOLOR THISFORMSET CURRENTCOLOR THISFORM LBLCOLOR BACKCOLOR GRAPH ECOLOR Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET LADDCOORDS ADDCOORD FRMGRAPH ALLGRAPH FRMCONTROL CHKADDNUMS ENABLED REFRESH Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET LADDNUMCOORD ADDCOORD FRMGRAPH LADDCOORDS ALLGRAPH Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET FRMGRAPH FRMCONTROL GRAPH TOGRAPH LADDCOORDS ADDCOORD4 mainb THISFORMSET FRMGRAPH FORECOLOR NFORMX HEIGHT NFORMY WIDTH LADDNUMCOORD NFORMSCALE PRINT GRAPH TOGRAPH POLAR PGRAPH EQUATION LFROM ECOLOR CONNECT THISFORMSET NFORMX NFORMY FRMGRAPH NFORMSCALE CGRAPH2 Graph was not found CGRAPHTOPLOT GRAPH TOGRAPH ECOLOR THISFORMSET CURRENTCOLOR POLAR PGRAPH EQUATION LFROM CONNECT NFORMX NFORMY FRMGRAPH NFORMSCALE CGRAPH Init, Unload addcoord allgraph onegraph c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORM SCALEMODE; NBUTTON NSHIFT NXCOORD NYCOORD XVALUE THISFORMSET NFORMX NFORMSCALE YVALUE NFORMY FRMCONTROL LBLXPOSITION CAPTION LBLYPOSITION LCANMOVE LDIDMOVE FRMGRAPH MOUSEPOINTER NBUTTON NSHIFT NXCOORD NYCOORD THISFORMSET LDIDMOVE NFORMX NFORMY FRMGRAPH MOUSEPOINTER ALLGRAPH LADDCOORDS ADDCOORD8 THISFORMSET FRMGRAPH ALLGRAPH LADDCOORDS ADDCOORD Init, MouseMoveX MouseUpP Resize c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORM LBLCOLOR BACKCOLOR THISFORMSET CURRENTCOLOR Init, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET ONEGRAPH THISFORM LSTGRAPHLIST LISTITEMID Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET FRMGRAPH LADDCOORDS ADDCOORD GRAPH TOGRAPH Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET NFORMSCALE FRMCONTROL LBLZOOMPERCENT CAPTION FRMGRAPH LADDCOORDS ADDCOORD ALLGRAPH Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET NFORMSCALE FRMCONTROL LBLZOOMPERCENT CAPTION FRMGRAPH LADDCOORDS ADDCOORD ALLGRAPH Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET ONEGRAPH THISFORM LSTGRAPHLIST LISTITEMID, THISFORMSET CURRENTCOLOR GRAPH ECOLOR THISFORM LBLCOLOR BACKCOLOR DblClick, InteractiveChange c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx TEMPCOLOR THISFORMSET CURRENTCOLOR THISFORM LBLCOLOR BACKCOLOR GRAPH ECOLOR Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET LADDCOORDS ADDCOORD FRMGRAPH ALLGRAPH FRMCONTROL CHKADDNUMS ENABLED REFRESH Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx THISFORMSET LADDNUMCOORD ADDCOORD FRMGRAPH LADDCOORDS ALLGRAPH Click, c:\vfp\samples\controls\graphics\ graph.scx c:\vfp\samples\controls\graphics\graph.scx nEquScaleb CEQUATION NFROM NSTEPINC NEQUCOLOR LCONNECT NXCENTER NYCENTER LADDCOORDS FRMFORMNAME NEQUSCALE NOLDY NOLDX NTEMPMAXNUM FORECOLOR HEIGHT WIDTH COLOR TEMPPLOTX TEMPPLOTY nEquScaleb CEQUATION NSTEPINC NEQUCOLOR LCONNECT NXCENTER NYCENTER LADDCOORDS FRMFORMNAME NEQUSCALE NOLDY NOLDX NTEMPMAXNUM FORECOLOR HEIGHT WIDTH COLOR NXTEMP PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 0 8 WINDOWS _QU00SXGMP 493773506 9 10 11 12 14 WINDOWS _QV40QIA3D 495222043 15 16 17 18 19 WINDOWS _QU00SXGMQ 495222043 22 23 24 25 29 154 WINDOWS _QU00SXGMZ 493773584 33 34 35 36 37 49 160 WINDOWS _QUE17VTPT 492022446 58 59 60 61 62 WINDOWS _QUE17VTQ3 492022446 64 65 66 67 68 WINDOWS _QUE17VTQH 492022446 70 71 72 73 74 WINDOWS _QUE17VTQS 492022446 76 77 78 79 80 WINDOWS _QUL0I5K6I 493773584 82 83 84 85 86 87 88 WINDOWS _QV40QHH1Z 493773584 89 90 91 92 93 96 172 WINDOWS _QV40QHH3D 493773585 98 99 100 101 102 105 178 WINDOWS _QV40QHH47 493773638 107 108 109 110 111 114 184 COMMENT FONTINFO 0 116 VERSION = 0.028 dataenvironment dataenvironment Datanavigation ILeft = 5 Top = 108 Width = 490 Height = 242 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation Left = 20 Top = 10 Width = 98 Height = 108 Alias = "products" Database = ..\..\data\testdata.dbc CursorSource = "products" Name = "Cursor1" form1 ScaleMode = 3 Top = 4 Left = 27 Height = 291 Width = 485 BackColor = 192,192,192 ForeColor = 0,0,0 Caption = "Controls in a Grid" WindowState = 0 DefButton = DefButton Name = "form1" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC Grid1 form1 ColumnCount = 4 BackColor = 0,0,0 DeleteMark = .F. ForeColor = 0,255,0 Height = 191 Left = 24 Panel = 1 RecordMark = .F. RecordSource = "products" RecordSourceType = 1 RowHeight = 28 ScrollBars = 2 TabIndex = 1 Top = 12 Width = 433 Name = "Grid1" Column1.FontSize = 8 Column1.ControlSource = "products.eng_name" Column1.Width = 153 Column1.Name = "Column1" Column2.FontSize = 8 Column2.ControlSource = "products.unit_price" Column2.Width = 78 Column2.Name = "Column2" Column3.FontSize = 8 Column3.ControlSource = "products.in_stock" Column3.Width = 72 Column3.Name = "Column3" Column4.FontSize = 8 Column4.ControlSource = "products.discontinu" Column4.Width = 68 Column4.Sparse = .F. Column4.Name = "Column4" "PROCEDURE Init this.column2.addobject('unit_price_spinner', 'spinner') this.column3.addobject('in_stock_spinner', 'spinner') this.column4.addobject('discontinu_checkbox', 'checkbox') this.column2.currentcontrol = 'unit_price_spinner' this.column3.currentcontrol = 'in_stock_spinner' this.column4.currentcontrol = 'discontinu_checkbox' this.column4.discontinu_checkbox.caption = "" this.column2.unit_price_spinner.visible = .t. this.column3.in_stock_spinner.visible = .t. this.column4.discontinu_checkbox.visible = .t. ENDPROC header header Header1 form1.Grid1.Column1 DFontSize = 8 Alignment = 2 Caption = "Product" Name = "Header1" header header Header2 form1.Grid1.Column2 BFontSize = 8 Alignment = 2 Caption = "Price" Name = "Header2" header header Header3 form1.Grid1.Column3 DFontSize = 8 Alignment = 2 Caption = "Stocked" Name = "Header3" header header Header4 form1.Grid1.Column4 DFontSize = 8 Alignment = 2 Caption = "Dropped" Name = "Header4" cmdok ..\buttons.vcx commandbutton Cmdok1 form1 7Top = 228 Left = 300 Default = .F. Name = "Cmdok1" RELEASE THISFORM, default button checkbox checkbox Check1 form1 Top = 216 Left = 36 Height = 24 Width = 130 AutoSize = .T. BackStyle = 0 Caption = "Column2.Sparse" Value = .T. Name = "Check1" FPROCEDURE Click ThisForm.Grid1.Column2.Sparse = This.Value ENDPROC checkbox checkbox Check2 form1 Top = 240 Left = 36 Height = 24 Width = 130 AutoSize = .T. BackStyle = 0 Caption = "Column3.Sparse" Value = .T. Name = "Check2" FPROCEDURE Click ThisForm.Grid1.Column3.Sparse = This.Value ENDPROC checkbox checkbox Check3 form1 Top = 264 Left = 36 Height = 24 Width = 130 AutoSize = .T. BackStyle = 0 Caption = "Column4.Sparse" Value = .F. Name = "Check3" FPROCEDURE Click ThisForm.Grid1.Column4.Sparse = This.Value ENDPROC CArial, 1, 10, 6, 16, 13, 15, 3, 0 Arial, 1, 8, 5, 14, 11, 13, 3, 0 mainb Unload, c:\vfp\samples\controls\grid\ controls.scx c:\vfp\samples\controls\grid\controls.scx unit_price_spinner spinner in_stock_spinner spinner discontinu_checkbox checkbox unit_price_spinner in_stock_spinner discontinu_checkbox COLUMN2 ADDOBJECT COLUMN3 COLUMN4 CURRENTCONTROL DISCONTINU_CHECKBOX CAPTION UNIT_PRICE_SPINNER VISIBLE IN_STOCK_SPINNER Init, c:\vfp\samples\controls\grid\ controls.scx c:\vfp\samples\controls\grid\controls.scx THISFORM GRID1 COLUMN2 SPARSE VALUE Click, c:\vfp\samples\controls\grid\ controls.scx c:\vfp\samples\controls\grid\controls.scx THISFORM GRID1 COLUMN3 SPARSE VALUE Click, c:\vfp\samples\controls\grid\ controls.scx c:\vfp\samples\controls\grid\controls.scx THISFORM GRID1 COLUMN4 SPARSE VALUE Click, c:\vfp\samples\controls\grid\ controls.scx c:\vfp\samples\controls\grid\controls.scx mainb Unload, c:\vfp\samples\controls\grid\ controls.scx c:\vfp\samples\controls\grid\controls.scx unit_price_spinner spinner in_stock_spinner spinner discontinu_checkbox checkbox unit_price_spinner in_stock_spinner discontinu_checkbox COLUMN2 ADDOBJECT COLUMN3 COLUMN4 CURRENTCONTROL DISCONTINU_CHECKBOX CAPTION UNIT_PRICE_SPINNER VISIBLE IN_STOCK_SPINNER Init, c:\vfp\samples\controls\grid\ controls.scx c:\vfp\samples\controls\grid\controls.scx THISFORM GRID1 COLUMN2 SPARSE VALUE Click, c:\vfp\samples\controls\grid\ controls.scx c:\vfp\samples\controls\grid\controls.scx THISFORM GRID1 COLUMN3 SPARSE VALUE Click, c:\vfp\samples\controls\grid\ controls.scx c:\vfp\samples\controls\grid\controls.scx THISFORM GRID1 COLUMN4 SPARSE VALUE Click, c:\vfp\samples\controls\grid\ controls.scx c:\vfp\samples\controls\grid\controls.scx PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QTU0N2ZQO 493773906 17 18 19 20 32 WINDOWS _QV40QYF3J 496261462 23 24 25 26 27 WINDOWS _QTU0N2ZR9 496261462 33 34 35 36 42 634 WINDOWS _QTU0N2ZVX 494633879 72 73 74 75 76 WINDOWS _QTU0N2ZYO 494633879 81 82 83 84 85 WINDOWS _QTU0N301G 496261463 90 91 92 93 94 98 651 WINDOWS _QTU0N306B 494633879 110 111 112 113 114 WINDOWS _QTU0N30A1 494633879 118 119 120 121 122 WINDOWS _QTU0N30EC 496261463 127 128 129 130 131 136 661 WINDOWS _QTU0N30KS 494633879 295 296 297 298 299 WINDOWS _QTU0N30NE 496261463 304 305 306 307 308 312 736 COMMENT FONTINFO 323 VERSION = 0.028 dataenvironment dataenvironment Datanavigation ILeft = 54 Top = 40 Width = 581 Height = 300 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation. Left = 20 Top = 10 Width = 98 Height = 108 Alias = "employee" Database = ..\..\data\testdata.dbc CursorSource = "employee" Name = "Cursor1" form1 Top = 5.19 Left = 18.83 Height = 19.63 Width = 69.00 AutoCenter = .T. BackColor = 192,192,192 Caption = "RowSourceTypes" DefButton = DefButton Name = "form1" PROCEDURE Init lTemp1 = AMEMBERS(aArray1,thisform.list1) ENDPROC PROCEDURE Load PUBLIC cValueVariable, aArray1[10] #define VAR_LOC "Hello World" cValueVariable = VAR_LOC ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC LTEMP1 AARRAY1 THISFORM LIST1, Hello World CVALUEVARIABLE AARRAY14 mainb Init, Loadm Unload c:\vfp\samples\controls\lists\ 80605206.tmp c:\vfp\samples\controls\lists\80605206.tmp label label Label1 form1. BackStyle = 0 Caption = "Listbox.RowSourceType" Height = 1.00 Left = 40.17 Top = 12.38 Width = 28.17 Name = "Label1" label label Label2 form1. }BackStyle = 0 Caption = "Listbox.RowSource" Height = 1.00 Left = 3.17 Top = 12.38 Width = 24.17 Name = "Label2" textbox textbox Text1 form1. gBackColor = 192,192,192 Height = 1.50 Left = 41.67 Top = 13.50 Width = 23.17 Name = "Text1" 2PROCEDURE Init this.value = "0 - None" ENDPROC 0 - None VALUE Init, c:\vfp\samples\controls\lists\ 80605206.tmp c:\vfp\samples\controls\lists\80605206.tmp textbox textbox Text2 form1. gBackColor = 192,192,192 Height = 4.75 Left = 2.67 Top = 13.50 Width = 35.17 Name = "Text2" listbox listbox List1 form1. RowSourceType = 6 Height = 9.44 Left = 2.50 Top = 2.38 Width = 64.00 ItemBackColor = 192,192,192 BorderColor = 255,255,255 Name = "List1" combobox combobox Combo1 form1. BackColor = 192,192,192 Value = 1 ControlSource = "" Height = 1.38 Left = 23.67 Style = 2 Top = 0.44 Width = 24.17 Name = "Combo1" PROCEDURE Click SELECT employee thisform.text1.value = alltrim(str(this.listitemid-1)) + " - " + this.list(this.listindex) DO CASE CASE this.listitemid = 1 thisform.list1.ColumnCount = 0 thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "" thisform.text2.value = "" CASE this.listitemid = 2 thisform.list1.ColumnCount = 0 thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = cValueVariable thisform.list1.rowsourcetype = 1 thisform.text2.value = "cValueVariable" CASE this.listitemid = 3 thisform.list1.ColumnCount = 3 thisform.list1.columnwidths = "6,20,20" thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "employee" thisform.list1.rowsourcetype = 2 thisform.text2.value = "employee.dbf: first 3 fields" CASE this.listitemid = 4 thisform.list1.ColumnCount = 2 thisform.list1.columnwidths = "20,25" thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "SELECT first_name,last_name from employee where first_name='A' into cursor temp" thisform.list1.rowsourcetype = 3 thisform.text2.value = "SELECT first_name,last_name from employee where first_name='A'" CASE this.listitemid = 5 thisform.list1.ColumnCount = 2 thisform.list1.columnwidths = "20,25" thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "region.qpr" thisform.list1.rowsourcetype = 4 thisform.text2.value = "REGION.QPR - a query for people who do not have a region listed in the table" CASE this.listitemid = 6 thisform.list1.ColumnCount = 0 thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "aArray1" thisform.list1.rowsourcetype = 5 thisform.text2.value = "Array - contents of the array is the AMEMBERS() of the listbox" CASE this.listitemid = 7 thisform.list1.ColumnCount = 2 thisform.list1.columnwidths = "20,20" thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "city,postalcode" thisform.list1.rowsourcetype = 6 thisform.text2.value = "city and postalcode" CASE this.listitemid = 8 thisform.list1.ColumnCount = 0 thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "*.DBF" thisform.list1.rowsourcetype = 7 thisform.text2.value = "*.DBF files only" CASE this.listitemid = 9 thisform.list1.ColumnCount = 0 thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "employee.dbf" thisform.list1.rowsourcetype = 8 thisform.text2.value = "Structure of employee.dbf" ENDCASE ENDPROC PROCEDURE Init this.additem("None") this.additem("Value") this.additem("Table") this.additem("SQL Statement") this.additem("Query (.QPR)") this.additem("Array") this.additem("Fields") this.additem("Files") this.additem("Structure") this.value = 1 ENDPROC cValueVariable 6,20,20 employee employee.dbf: first 3 fields 20,25 SELECT first_name,last_name from employee where first_name='A' into cursor temp SELECT first_name,last_name from employee where first_name='A' 20,25 region.qpr REGION.QPR - a query for people who do not have a region listed in the table aArray1 Array - contents of the array is the AMEMBERS() of the listbox 20,20 city,postalcode city and postalcode *.DBF *.DBF files only employee.dbf Structure of employee.dbf EMPLOYEE THISFORM TEXT1 VALUE LISTITEMID LIST LISTINDEX LIST1 COLUMNCOUNT ROWSOURCETYPE ROWSOURCE TEXT2 CVALUEVARIABLE COLUMNWIDTHS Value Table SQL Statement Query (.QPR) Array Fields Files Structure ADDITEM VALUE Click, Init& c:\vfp\samples\controls\lists\ 80605206.tmp c:\vfp\samples\controls\lists\80605206.tmp label label Label3 form1. Alignment = 2 BackStyle = 0 Caption = "Row Source Types" Height = 1.00 Left = 1.67 Top = 0.50 Width = 22.17 Name = "Label3" commandbutton commandbutton Command1 form1. pTop = 16.19 Left = 45.17 Height = 2.00 Width = 16.17 Caption = "OK" Default = .T. Name = "Command1" 6PROCEDURE Click release thisform rele all ENDPROC THISFORM Click, c:\vfp\samples\controls\lists\ 80605206.tmp c:\vfp\samples\controls\lists\80605206.tmp "Arial, 1, 10, 6, 16, 13, 15, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation ILeft = 54 Top = 40 Width = 581 Height = 300 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation Left = 20 Top = 10 Width = 98 Height = 108 Alias = "employee" Database = ..\..\data\testdata.dbc CursorSource = "employee" Name = "Cursor1" form1 Top = 1.38 Left = 11.67 Height = 19.63 Width = 69.00 AutoCenter = .T. BackColor = 192,192,192 Caption = "RowSourceTypes" DefButton = DefButton Name = "form1" PROCEDURE Init lTemp1 = AMEMBERS(aArray1,thisform.list1) ENDPROC PROCEDURE Load PUBLIC cValueVariable, aArray1[10] cValueVariable = "Hello World" ENDPROC PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC LTEMP1 AARRAY1 THISFORM LIST1, Hello World CVALUEVARIABLE AARRAY14 mainb Init, Loadm Unload c:\vfp\samples\controls\lists\ multdat1.scx c:\vfp\samples\controls\lists\multdat1.scx label label Label1 form1 BackStyle = 0 Caption = "Listbox.RowSourceType" Height = 1.00 Left = 40.17 Top = 12.38 Width = 28.17 Name = "Label1" label label Label2 form1 }BackStyle = 0 Caption = "Listbox.RowSource" Height = 1.00 Left = 3.17 Top = 12.38 Width = 24.17 Name = "Label2" textbox textbox Text1 form1 gBackColor = 192,192,192 Height = 1.50 Left = 41.67 Top = 13.50 Width = 23.17 Name = "Text1" 2PROCEDURE Init this.value = "0 - None" ENDPROC 0 - None VALUE Init, c:\vfp\samples\controls\lists\ multdat1.scx c:\vfp\samples\controls\lists\multdat1.scx textbox textbox Text2 form1 gBackColor = 192,192,192 Height = 4.75 Left = 2.67 Top = 13.50 Width = 35.17 Name = "Text2" listbox listbox List1 form1 RowSourceType = 6 Height = 9.44 Left = 2.50 Top = 2.38 Width = 64.00 ItemBackColor = 192,192,192 BorderColor = 255,255,255 Name = "List1" combobox combobox Combo1 form1 BackColor = 192,192,192 Value = 1 ControlSource = "" Height = 1.38 Left = 23.67 Style = 2 Top = 0.44 Width = 24.17 Name = "Combo1" PROCEDURE Click SELECT employee thisform.text1.value = alltrim(str(this.listitemid-1)) + " - " + this.list(this.listindex) DO CASE CASE this.listitemid = 1 thisform.list1.ColumnCount = 0 thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "" thisform.text2.value = "" CASE this.listitemid = 2 thisform.list1.ColumnCount = 0 thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = cValueVariable thisform.list1.rowsourcetype = 1 thisform.text2.value = "cValueVariable" CASE this.listitemid = 3 thisform.list1.ColumnCount = 3 thisform.list1.columnwidths = "6,20,20" thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "employee" thisform.list1.rowsourcetype = 2 thisform.text2.value = "employee.dbf: first 3 fields" CASE this.listitemid = 4 thisform.list1.ColumnCount = 2 thisform.list1.columnwidths = "20,25" thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "SELECT first_name,last_name from employee where first_name='A' into cursor temp" thisform.list1.rowsourcetype = 3 thisform.text2.value = "SELECT first_name,last_name from employee where first_name='A'" CASE this.listitemid = 5 thisform.list1.ColumnCount = 2 thisform.list1.columnwidths = "20,25" thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "region.qpr" thisform.list1.rowsourcetype = 4 thisform.text2.value = "REGION.QPR - a query for people who do not have a region listed in the table" CASE this.listitemid = 6 thisform.list1.ColumnCount = 0 thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "aArray1" thisform.list1.rowsourcetype = 5 thisform.text2.value = "Array - contents of the array is the AMEMBERS() of the listbox" CASE this.listitemid = 7 thisform.list1.ColumnCount = 2 thisform.list1.columnwidths = "20,20" thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "city,postalcode" thisform.list1.rowsourcetype = 6 thisform.text2.value = "city and postalcode" CASE this.listitemid = 8 thisform.list1.ColumnCount = 0 thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "*.DBF" thisform.list1.rowsourcetype = 7 thisform.text2.value = "*.DBF files only" CASE this.listitemid = 9 thisform.list1.ColumnCount = 0 thisform.list1.rowsourcetype = 0 thisform.list1.rowsource = "employee.dbf" thisform.list1.rowsourcetype = 8 thisform.text2.value = "Structure of employee.dbf" ENDCASE ENDPROC PROCEDURE Init this.additem("None") this.additem("Value") this.additem("Table") this.additem("SQL Statement") this.additem("Query (.QPR)") this.additem("Array") this.additem("Fields") this.additem("Files") this.additem("Structure") this.value = 1 ENDPROC cValueVariable 6,20,20 employee employee.dbf: first 3 fields 20,25 SELECT first_name,last_name from employee where first_name='A' into cursor temp SELECT first_name,last_name from employee where first_name='A' 20,25 region.qpr REGION.QPR - a query for people who do not have a region listed in the table aArray1 Array - contents of the array is the AMEMBERS() of the listbox 20,20 city,postalcode city and postalcode *.DBF *.DBF files only employee.dbf Structure of employee.dbf EMPLOYEE THISFORM TEXT1 VALUE LISTITEMID LIST LISTINDEX LIST1 COLUMNCOUNT ROWSOURCETYPE ROWSOURCE TEXT2 CVALUEVARIABLE COLUMNWIDTHS Value Table SQL Statement Query (.QPR) Array Fields Files Structure ADDITEM VALUE Click, Init& c:\vfp\samples\controls\lists\ multdat1.scx c:\vfp\samples\controls\lists\multdat1.scx label label Label3 form1 Alignment = 2 BackStyle = 0 Caption = "Row Source Types" Height = 1.00 Left = 1.67 Top = 0.50 Width = 22.17 Name = "Label3" commandbutton commandbutton Command1 form1 pTop = 16.19 Left = 45.17 Height = 2.00 Width = 16.17 Caption = "OK" Default = .T. Name = "Command1" 6PROCEDURE Click release thisform rele all ENDPROC THISFORM Click, c:\vfp\samples\controls\lists\ multdat1.scx c:\vfp\samples\controls\lists\multdat1.scx "Arial, 1, 10, 6, 16, 13, 15, 3, 0 LTEMP1 AARRAY1 THISFORM LIST1, Hello World CVALUEVARIABLE AARRAY14 mainb Init, Loadm Unload c:\vfp\samples\controls\lists\ multdat1.scx c:\vfp\samples\controls\lists\multdat1.scx 0 - None VALUE Init, c:\vfp\samples\controls\lists\ multdat1.scx c:\vfp\samples\controls\lists\multdat1.scx cValueVariable 6,20,20 employee employee.dbf: first 3 fields 20,25 SELECT first_name,last_name from employee where first_name='A' into cursor temp SELECT first_name,last_name from employee where first_name='A' 20,25 region.qpr REGION.QPR - a query for people who do not have a region listed in the table aArray1 Array - contents of the array is the AMEMBERS() of the listbox 20,20 city,postalcode city and postalcode *.DBF *.DBF files only employee.dbf Structure of employee.dbf EMPLOYEE THISFORM TEXT1 VALUE LISTITEMID LIST LISTINDEX LIST1 COLUMNCOUNT ROWSOURCETYPE ROWSOURCE TEXT2 CVALUEVARIABLE COLUMNWIDTHS Value Table SQL Statement Query (.QPR) Array Fields Files Structure ADDITEM VALUE Click, Init& c:\vfp\samples\controls\lists\ multdat1.scx c:\vfp\samples\controls\lists\multdat1.scx THISFORM Click, c:\vfp\samples\controls\lists\ multdat1.scx c:\vfp\samples\controls\lists\multdat1.scx employee temp2 LAST_NAME FIRST_NAME EMPLOYEE REGION TEMP24 ctoolbar formbutton OTOOLBAR ONEWFORM CMDQUIT SETFOCUSB mainb OTOOLBAR ONEWFORM Toolbar NEWSOURCE NEWCURRENTX NEWCURRENTY NEWSTATE PARENT BASECLASS CAPTION PICTURE THISFORMR THISFORM CMDFORM CAPTION PICTURE Destroy dragdrop click8 clickP Drag and Drop Toolbar red.bmp yellow.bmp Yellow green.bmp Green SCALEMODE CAPTION CMDIM CMDFORMBUTTON PICTURE Drag and Drop Example Drag toolbar objects onto form controls. Drag them to the toolbar to remove them. HEIGHT WIDTH SCALEMODE AUTOCENTER BACKCOLOR CAPTION SHPBOX SHAPE SPECIALEFFECT LABEL1 LABEL AUTOSIZE LABEL2 CMDFORM CMDFORMBUTTON CMDQUIT CMRESET CMDRESETZ SCALEMODE DRAGMODE WIDTH HEIGHT CAPTION FONTTRANSPARENTN HEIGHT CAPTION DEFAULTQ Reset HEIGHT CAPTION DEFAULT ctoolbar TOOLBAR formbutton cmdformbutton commandbutton cmdquit COMMANDBUTTONz cmdreset COMMANDBUTTON CustTool NOUTPUT LTRACKMOUSE LDONE EVENTTOOL NOUTPUT OFORMSET EVENTWIN VISIBLE! NOUTPUT OFORMSET EVENTWIN VISIBLE! NOUTPUT OFORMSET EVENTWIN VISIBLE! NOUTPUT OFORMSET EVENTWIN VISIBLEU NOUTPUT OFORMSET EVENTWIN EDIT1 VALUE2 LTRACKMOUSEA Press a key to return... OFORMSET VISIBLE LDONE OFORMSET ACTIVATE Destroy optgrp1.option1.Click optgrp1.option2.Click optgrp1.option3.ClickW optgrp1.option4.Click cmdErase.Click cmdMouse.Clickq cmdHide.Click cmdClose.Click Output Screen.BMP Output to Screen Commdwin.BMP Output to Window New.BMP Output to File Remove.BMP No Output Erase.BMP Erase Output Area Mouse.BMP Track Mouse Events Hide.BMP Hide Windows Close.BMP Close Event Tracker CAPTION HEIGHT SMALLHEIGHT SMALLWIDTH LARGEHEIGHT LARGEWIDTH BUTTONSIZE VISIBLE CONTROLBOX OPTGRP1 OPTIONGROUP BORDERWIDTH BUTTONCOUNT WIDTH OPTION1 STYLE PICTURE TOOLTIPTEXT OPTION2 OPTION3 OPTION4 SEP1 SEPARATOR CMDERASE COMMANDBUTTON CMDMOUSE CHECKBOX CMDHIDE CMDCLOSE CustTool ToolBar PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Screen 16 WINDOWS _QTS1039JM 493773160 17 18 19 20 66 WINDOWS _QV40Q4EHS 505834647 23 24 25 26 27 WINDOWS _QV40Q4EIC 505834647 32 33 34 35 36 WINDOWS _QV40Q4EJ6 505834647 41 42 43 44 45 WINDOWS _QV40Q4EKA 493773160 50 51 52 53 54 WINDOWS _QV40Q4EKK 493773160 58 59 60 61 62 WINDOWS _QTS0WZ4B6 505834647 67 68 69 70 76 558 WINDOWS _QTS117M2N 491943630 94 95 96 97 98 WINDOWS _QTS117M2X 491943630 102 103 104 105 106 WINDOWS _QTS117M37 491943630 110 111 112 113 114 WINDOWS _QTS117M38 491943630 118 119 120 121 122 WINDOWS _QTS0WZ4C4 492522637 127 128 129 130 131 WINDOWS _QTS0WZ4E0 492522637 137 138 139 140 141 WINDOWS _QTS0XU2HD 492522386 152 153 154 155 156 166 568 WINDOWS _QTS10V7G8 492404769 177 178 179 180 181 WINDOWS _QTS10V7GI 491943630 187 188 189 190 191 WINDOWS _QTS10V7GS 491943630 197 198 199 200 201 WINDOWS _QTS10V7H2 491943630 206 207 208 209 210 WINDOWS _QTT0YRNQU 492522637 215 216 217 218 219 WINDOWS _QTT0ZAEEA 491943630 224 225 226 227 228 WINDOWS _QTT0ZAEEK 491943630 233 234 235 236 237 WINDOWS _QTT0ZDRY1 491943630 241 242 243 244 245 WINDOWS _QTT0ZDRYB 491943630 248 249 250 251 252 WINDOWS _QUN0J2S24 492587852 255 256 257 258 259 263 577 WINDOWS _QVX0NI8Q7 495802178 275 276 277 278 279 280 COMMENT FONTINFO 286 VERSION = 0.028 dataenvironment dataenvironment Datanavigation ILeft = 21 Top = 59 Width = 623 Height = 352 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation. Database = ..\..\data\testdata.dbc Left = 20 Top = 10 Width = 98 Height = 226 Alias = "customer" CursorSource = "customer" Name = "Cursor1" cursor cursor Cursor2 Datanavigation. Database = ..\..\data\testdata.dbc Left = 160 Top = 10 Width = 98 Height = 225 Alias = "orders" CursorSource = "orders" Name = "Cursor2" cursor cursor Cursor3 Datanavigation. Database = ..\..\data\testdata.dbc Left = 300 Top = 10 Width = 98 Height = 223 Alias = "orditems" CursorSource = "orditems" Name = "Cursor3" relation relation Relation1 Datanavigation. yParentAlias = "customer" RelationalExpr = "cust_id" ChildAlias = "orders" ChildOrder = "cust_id" Name = "Relation1" relation relation Relation2 Datanavigation. {ParentAlias = "orders" RelationalExpr = "order_id" ChildAlias = "orditems" ChildOrder = "order_id" Name = "Relation2" frmonetomany ScaleMode = 3 Caption = "One to Many" Top = 72 Left = 152 Height = 336 Width = 337 AutoCenter = .T. BackColor = 192,192,192 DataSession = 2 Name = "frmonetomany" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC mainb Unload, c:\vfp\samples\controls\grid\ 58127480.tmp c:\vfp\samples\controls\grid\58127480.tmp label label lblItems frmonetomany. oCaption = "Items:" Top = 175 Left = 25 BackColor = 192,192,192 Height = 13 Width = 49 Name = "lblItems" label label lblOrders frmonetomany. pCaption = "Orders:" Top = 56 Left = 24 BackColor = 192,192,192 Height = 13 Width = 73 Name = "lblOrders" label label lblCustomerID frmonetomany. yCaption = "Customer ID:" Top = 8 Left = 169 BackColor = 192,192,192 Height = 13 Width = 85 Name = "lblCustomerID" label label lblCustomerName frmonetomany. }Caption = "Customer Name:" Top = 8 Left = 25 BackColor = 192,192,192 Height = 13 Width = 120 Name = "lblCustomerName" textbox textbox txtCustomerID frmonetomany. Top = 24 Left = 168 BackColor = 0,0,0 ControlSource = "customer.cust_id" ForeColor = 0,255,0 Height = 25 TabIndex = 1 Width = 145 Name = "txtCustomerID" grdOrders frmonetomany. KTop = 72 Left = 24 FontBold = .F. BackColor = 0,0,0 ChildOrder = "cust_id" DeleteMark = .F. ForeColor = 0,255,0 GridLineColor = 0,255,0 Height = 97 LinkMaster = "customer" RecordMark = .F. RecordSource = "orders" RecordSourceType = 1 RelationalExpr = "customer.cust_id" TabIndex = 3 Width = 289 Name = "grdOrders" grdItems frmonetomany. ;Top = 192 Left = 24 BackColor = 0,0,0 ChildOrder = "order_id" DeleteMark = .F. ForeColor = 0,255,0 GridLineColor = 0,255,0 Height = 97 LinkMaster = "orders" RecordMark = .F. RecordSource = "orditems" RecordSourceType = 1 RelationalExpr = "orders.order_id" TabIndex = 4 Width = 289 Name = "grdItems" ,PROCEDURE Valid thisform.refresh ENDPROC THISFORM REFRESH Valid, c:\vfp\samples\controls\grid\ 58127480.tmp c:\vfp\samples\controls\grid\58127480.tmp label label lblCustomerNames frmonetomany. Caption = "Customer Name:" Top = 7 Left = 24 BackColor = 192,192,192 BackStyle = 0 ForeColor = 255,255,255 Height = 13 Width = 121 Name = "lblCustomerNames" label label lblCustomerID frmonetomany. Caption = "Customer ID:" Top = 7 Left = 168 BackColor = 192,192,192 BackStyle = 0 ForeColor = 255,255,255 Height = 13 Width = 121 Name = "lblCustomerID" label label lblOrders frmonetomany. Caption = "Orders:" Top = 55 Left = 23 BackColor = 192,192,192 BackStyle = 0 ForeColor = 255,255,255 Height = 13 Width = 85 Name = "lblOrders" label label lblItems frmonetomany. Caption = "Items:" Top = 174 Left = 23 BackColor = 192,192,192 BackStyle = 0 ForeColor = 255,255,255 Height = 13 Width = 61 Name = "lblItems" textbox textbox txtCustomerName frmonetomany. Top = 24 Left = 24 BackColor = 0,0,0 ControlSource = "customer.company" ForeColor = 0,255,0 Height = 25 Width = 133 Name = "txtCustomerName" linBottom frmonetomany. Top = 352 Left = 0 BorderWidth = 1 BorderColor = 128,128,128 Height = 0 Width = 339 LineSlant = "/" Name = "linBottom" linTop frmonetomany. jTop = 0 Left = -1 BorderWidth = 1 BorderColor = 255,255,255 Height = 0 Width = 361 Name = "linTop" linLeft frmonetomany. ZTop = -6 Left = 0 BorderColor = 255,255,255 Height = 371 Width = 0 Name = "linLeft" Line4 frmonetomany. YTop = 1 Left = 336 BorderColor = 128,128,128 Height = 351 Width = 0 Name = "Line4" commandbutton commandbutton cmdOK frmonetomany. _Caption = "OK" Top = 300 Left = 245 Height = 25 Width = 37 Default = .F. Name = "cmdOK" =PROCEDURE Click ThisForm.HIDE RELEASE THISFORM ENDPROC THISFORM Click, c:\vfp\samples\controls\grid\ 58127480.tmp c:\vfp\samples\controls\grid\58127480.tmp ..\buttons.vcx container frmonetomany. Top = 300 Left = 36 skiptable = Customer Name = "Vcr1" cmdtop.Name = "cmdtop" cmdprior.Name = "cmdprior" cmdnext.Name = "cmdnext" cmdbottom.Name = "cmdbottom" DArial, 1, 10, 6, 16, 13, 15, 3, 0 Arial, 0, 10, 6, 16, 13, 16, 3, 0 VERSION = 0.028 dataenvironment dataenvironment Datanavigation ILeft = 21 Top = 59 Width = 623 Height = 352 Name = "Datanavigation" cursor cursor Cursor1 Datanavigation Left = 20 Top = 10 Width = 98 Height = 226 Alias = "customer" Database = ..\..\data\testdata.dbc CursorSource = "customer" Name = "Cursor1" cursor cursor Cursor2 Datanavigation Left = 160 Top = 10 Width = 98 Height = 225 Alias = "orders" Database = ..\..\data\testdata.dbc CursorSource = "orders" Name = "Cursor2" cursor cursor Cursor3 Datanavigation Left = 300 Top = 10 Width = 98 Height = 223 Alias = "orditems" Database = ..\..\data\testdata.dbc CursorSource = "orditems" Name = "Cursor3" relation relation Relation1 Datanavigation yParentAlias = "customer" RelationalExpr = "cust_id" ChildAlias = "orders" ChildOrder = "cust_id" Name = "Relation1" relation relation Relation2 Datanavigation {ParentAlias = "orders" RelationalExpr = "order_id" ChildAlias = "orditems" ChildOrder = "order_id" Name = "Relation2" frmonetomany ScaleMode = 3 Top = 10 Left = 156 Height = 336 Width = 337 AutoCenter = .T. BackColor = 192,192,192 Caption = "One to Many" Name = "frmonetomany" PROCEDURE Unload * If this form is run from main.scx in controls.app, * the hidden form object, main, is made visible when * this form is unloaded IF NOT (TYPE('main') = 'U' OR ISNULL(main)) main.show ENDIF ENDPROC mainb Unload, c:\vfp\samples\controls\grid\ 1_many.scx c:\vfp\samples\controls\grid\1_many.scx label label lblItems frmonetomany oBackColor = 192,192,192 Caption = "Items:" Height = 13 Left = 25 Top = 175 Width = 49 Name = "lblItems" label label lblOrders frmonetomany pBackColor = 192,192,192 Caption = "Orders:" Height = 13 Left = 24 Top = 56 Width = 73 Name = "lblOrders" label label lblCustomerID frmonetomany yBackColor = 192,192,192 Caption = "Customer ID:" Height = 13 Left = 169 Top = 8 Width = 85 Name = "lblCustomerID" label label lblCustomerName frmonetomany }BackColor = 192,192,192 Caption = "Customer Name:" Height = 13 Left = 25 Top = 8 Width = 120 Name = "lblCustomerName" textbox textbox txtCustomerID frmonetomany BackColor = 0,0,0 ControlSource = "customer.cust_id" ForeColor = 0,255,0 Height = 25 Left = 168 TabIndex = 1 Top = 24 Width = 145 Name = "txtCustomerID" grdOrders frmonetomany KFontBold = .F. BackColor = 0,0,0 ChildOrder = "cust_id" DeleteMark = .F. ForeColor = 0,255,0 GridLineColor = 0,255,0 Height = 97 Left = 24 LinkMaster = "customer" RecordMark = .F. RecordSource = "orders" RecordSourceType = 1 RelationalExpr = "customer.cust_id" TabIndex = 3 Top = 72 Width = 289 Name = "grdOrders" grdItems frmonetomany ;BackColor = 0,0,0 ChildOrder = "order_id" DeleteMark = .F. ForeColor = 0,255,0 GridLineColor = 0,255,0 Height = 97 Left = 24 LinkMaster = "orders" RecordMark = .F. RecordSource = "orditems" RecordSourceType = 1 RelationalExpr = "orders.order_id" TabIndex = 4 Top = 192 Width = 289 Name = "grdItems" ,PROCEDURE Valid thisform.refresh ENDPROC THISFORM REFRESH Valid, c:\vfp\samples\controls\grid\ 1_many.scx c:\vfp\samples\controls\grid\1_many.scx label label lblCustomerNames frmonetomany BackColor = 192,192,192 BackStyle = 0 Caption = "Customer Name:" ForeColor = 255,255,255 Height = 13 Left = 24 Top = 7 Width = 121 Name = "lblCustomerNames" label label lblCustomerID frmonetomany BackColor = 192,192,192 BackStyle = 0 Caption = "Customer ID:" ForeColor = 255,255,255 Height = 13 Left = 168 Top = 7 Width = 121 Name = "lblCustomerID" label label lblOrders frmonetomany BackColor = 192,192,192 BackStyle = 0 Caption = "Orders:" ForeColor = 255,255,255 Height = 13 Left = 23 Top = 55 Width = 85 Name = "lblOrders" label label lblItems frmonetomany BackColor = 192,192,192 BackStyle = 0 Caption = "Items:" ForeColor = 255,255,255 Height = 13 Left = 23 Top = 174 Width = 61 Name = "lblItems" textbox textbox txtCustomerName frmonetomany BackColor = 0,0,0 ControlSource = "customer.company" ForeColor = 0,255,0 Height = 25 Left = 24 Top = 24 Width = 133 Name = "txtCustomerName" linBottom frmonetomany BorderWidth = 1 BorderColor = 128,128,128 Height = 0 Left = 0 Top = 352 Width = 339 LineSlant = "/" Name = "linBottom" linTop frmonetomany jBorderWidth = 1 BorderColor = 255,255,255 Height = 0 Left = -1 Top = 0 Width = 361 Name = "linTop" linLeft frmonetomany ZBorderColor = 255,255,255 Height = 371 Left = 0 Top = -6 Width = 0 Name = "linLeft" Line4 frmonetomany YBorderColor = 128,128,128 Height = 351 Left = 336 Top = 1 Width = 0 Name = "Line4" commandbutton commandbutton cmdOK frmonetomany _Top = 300 Left = 245 Height = 25 Width = 37 Caption = "OK" Default = .F. Name = "cmdOK" =PROCEDURE Click ThisForm.HIDE RELEASE THISFORM ENDPROC THISFORM Click, c:\vfp\samples\controls\grid\ 1_many.scx c:\vfp\samples\controls\grid\1_many.scx ..\buttons.vcx container frmonetomany ;Top = 300 Left = 36 skiptable = Customer Name = "Vcr1" DArial, 1, 10, 6, 16, 13, 15, 3, 0 Arial, 0, 10, 6, 16, 13, 16, 3, 0 mainb Unload, c:\vfp\samples\controls\grid\ 1_many.scx c:\vfp\samples\controls\grid\1_many.scx THISFORM REFRESH Valid, c:\vfp\samples\controls\grid\ 1_many.scx c:\vfp\samples\controls\grid\1_many.scx THISFORM Click, c:\vfp\samples\controls\grid\ 1_many.scx c:\vfp\samples\controls\grid\1_many.scx FoxDraw FdProc Loading Fox Draw 1.0... fdToolBar tbrFD1 frmTF1 FRMFD1 TBRFD1 LLLAYOUT LLFORM LLCONTROLS LLPALETTE FOXDRAW FDPROC HIDETOOLBAR SCALEMODE BACKCOLOR VISIBLE PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Class 0 8 WINDOWS _QVU0USG09 495612604 9 10 11 12 16 165 87 88 89 102 103 104 VERSION = 0.028 frmfd ScaleMode = 3 Top = 27 Left = -1 Height = 360 Width = 430 Caption = "FoxDraw 1.0" Closable = .F. MousePointer = 1 tbrfd1 = "" cformname = "" cformmode = "" cpencolor = "" ndrawmode = 1 Name = "frmfd" PROCEDURE Activate *- Adjust Form postion for 640X480 if necessary IF SYSMETRIC(1) <> 640 THIS.AutoCenter = .t. THIS.Top = 1.00 THIS.Left = ((_screen.width - THIS.Width)/2) ENDIF WAIT CLEAR ENDPROC PROCEDURE Init *- Form Specific Init *- Set form properties THIS.ScaleMode = 3 THIS.cFormName = THIS.Caption THIS.cFormMode = " - (Active - " THIS.cPenColor = "Black" THIS.mousepointer = 2 THIS.SetCaption ENDPROC PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord *- Set Start point if nDrawMode = 1 (Lines) if THISFORM.MousePointer = 2 THISFORM.PSet(nXCoord, nYCoord) endif ENDPROC PROCEDURE MouseMove Parameters nButton, nShift, nXCoord, nYCoord *- Type of lines to draw - regular or 'anchored' (rays) if nButton = 1 and This.MousePointer = 2 if THISFORM.nDrawMode = 1 && Lines *- Draw from MouseDown point THISFORM.LINE(nXCoord, nYCoord) else && Rays *- Draw to CurrentX, CurrentY THISFORM.LINE(nXCoord, nYCoord, THISFORM.CurrentX, THISFORM.CurrentY) endif endif ENDPROC PROCEDURE drawaction Parameters nMPointer * Change mouse pointer and form caption as needed if nMPointer = 1 THISFORM.mousepointer = 2 else THISFORM.MousePointer = 1 endif THISFORM.cFormMode = iif(nMPointer = 2, ; " - (Inactive - "," - (Active - ") THISFORM.SetCaption THISFORM.refresh ENDPROC PROCEDURE drawcolor Parameters nColor, cColorName * Set colors, add to caption THISFORM.forecolor = nColor THISFORM.cPenColor = cColorName THISFORM.SetCaption ENDPROC PROCEDURE setcaption *- Set form caption to current mode, color LOCAL lcColorName lcColorName = THISFORM.cPenColor + " Pen" + ; "/" + ltrim(str(THISFORM.DrawWidth,3,0)) +")" THISFORM.Caption = ; THIS.cFormName + THIS.cFormMode + lcColorName ENDPROC PROCEDURE chgdrawmode *- Switch draw modes THISFORM.nDrawMode = IIF(THISFORM.nDrawMode = 1, 0, 1) ENDPROC PROCEDURE setpenwidth Parameters nValue * Set pen width THISFORM.DrawWidth = nValue ENDPROC PROCEDURE setdrawmode Parameters nValue * Set Draw mode THISFORM.DrawMode = nValue ENDPROC PROCEDURE setdrawstyle Parameters nValue * Set draw style THISFORM.DrawStyle = nValue ENDPROC PROCEDURE clearform * Clear the form surface THISFORM.Cls ENDPROC PROCEDURE graphdemo PARAMETERS nChoice * Show various graph methods - line, circle, box LOCAL I, lnXaxis,lnYaxis,lnXPos,lnYPos,lnRadius,; lnFillStyle,lnAspect,lnBoxX,lnBoxY lnXaxis = THISFORM.Width lnYAxis = THISFORM.Height lnRadius = 90 lnAspect = 3 * Select Graphics method - Line, Circle, or Box DO CASE CASE nChoice = 1 * Draw a line in each DrawStyle I = 1 THISFORM.DrawWidth = 1 THISFORM.pset(10,10) FOR I = 1 to 4 THISFORM.Pset(10,I*50) THISFORM.Print ( "Draw Style: " + str((I-1)) ) THISFORM.DrawStyle = I - 1 THISFORM.Line(10,I*50, lnXAxis-50,I*50) ENDFOR THISFORM.DrawStyle = 0 && Reset DrawStyle to normal CASE nChoice = 2 * Draw a triangle THISFORM.Line(150,50,300,200) THISFORM.line(300,200,150,200) THISFORM.line(150,200,150,50) CASE str(nChoice,1,0) $ "345678" * Circles - Open = 3, Filled = 4 * Ellipses - Open = 5, Filled = 6 * Square - Open = 7, Filled = 8 IF str(nChoice,1,0) $ "468" * Select random fill style - 0/7 THISFORM.FillStyle = THISFORM.uRand(1,7)-1 ENDIF * Calculate X,Y position for circle randomly in quadrant 1-4 DO CASE CASE THISFORM.uRand(1,4) = 1 lnXpos = lnXaxis*.25 lnYpos = lnYaxis*.25 CASE THISFORM.uRand(1,4) = 2 lnXpos = lnXaxis*.75 lnYpos = lnYaxis*.25 CASE THISFORM.uRand(1,4) = 3 lnXpos = lnXaxis*.25 lnYpos = lnYaxis*.75 OTHERWISE && uRand = 4 lnXpos = lnXaxis*.75 lnYpos = lnYaxis*.75 ENDCASE DO CASE CASE nChoice = 3 or nChoice = 4 * Circle - plain or filled THISFORM.Circle(; lnRadius * RAND(),lnXPos * RAND(),lnYpos * RAND() ) CASE nChoice = 5 or nChoice = 6 THISFORM.Circle(; lnRadius, lnXPos*RAND(),lnYPos*RAND(),lnAspect*RAND()) CASE nChoice = 7 or nChoice = 8 lnBoxX = 50 + RAND()*100 lnBoxY = 30 + RAND()*100 THISFORM.box( lnBoxX,lnBoxY, lnBoxX+170,lnBoxY+150 ) ENDCASE THISFORM.FillStyle = 1 ENDCASE THISFORM.Refresh ENDPROC PROCEDURE urand PARAMETERS nLower, nUpper * Return uniform series of integers between nLower, nUpper RETURN INT((nUpper-nLower+1)*RAND()+1) ENDPROC Class )tbrfd1 Object Reference to FoxDraw Toolbar cformname Property to store current form name cformmode Property to store FormMode - (Active or Inactive) cpencolor Property to hold literal value of pen color ndrawmode Property to hold current drawmode - 1 = Lines, 2 = Rays *nlastfill Property to hold last fillstyle *drawaction Method: What drawing action to take *drawcolor Method: Sets drawing color. *setcaption Method: Sets caption to current state *chgdrawmode Method: Switches drawing mode *setpenwidth Method: Set PenWidth property *setdrawmode Method: Sets DrawMode property *setdrawstyle Method: Sets DrawStyle property *clearform Method: Clears the form surface *graphdemo Method: Main module to demo graphic methods. *urand Method: Generates random number for use by graphdemo method. Pixels 1Form class that illustrates VFP graphics methods. foxdraw.h AUTOCENTER WIDTHr - (Active - Black THIS SCALEMODE CFORMNAME CAPTION CFORMMODE CPENCOLOR MOUSEPOINTER SETCAPTIONC NBUTTON NSHIFT NXCOORD NYCOORD THISFORM MOUSEPOINTER NBUTTON NSHIFT NXCOORD NYCOORD MOUSEPOINTER THISFORM NDRAWMODE CURRENTX CURRENTY - (Inactive - - (Active - 6 NMPOINTER THISFORM MOUSEPOINTER CFORMMODE SETCAPTION REFRESH8 NCOLOR CCOLORNAME THISFORM FORECOLOR CPENCOLOR SETCAPTION[ LCCOLORNAME THISFORM CPENCOLOR DRAWWIDTH CAPTION THIS CFORMNAME CFORMMODE( THISFORM NDRAWMODE NVALUE THISFORM DRAWWIDTH NVALUE THISFORM DRAWMODE NVALUE THISFORM DRAWSTYLE THISFORM Draw Style: C 345678 NCHOICE LNXAXIS LNYAXIS LNXPOS LNYPOS LNRADIUS LNFILLSTYLE LNASPECT LNBOXX LNBOXY THISFORM WIDTH HEIGHT DRAWWIDTH PRINT DRAWSTYLE LINE FILLSTYLE URAND CIRCLE REFRESH) NLOWER NUPPER Activate, MouseDown MouseMove drawaction drawcolor setcaptionj chgdrawmode setpenwidth\ setdrawmode setdrawstyle clearform graphdemo, urandU c:\vfp\fd6\ foxdraw.vcx c:\vfp\fd6\foxdraw.vcx AUTOCENTER WIDTHr - (Active - Black THIS SCALEMODE CFORMNAME CAPTION CFORMMODE CPENCOLOR MOUSEPOINTER SETCAPTIONC NBUTTON NSHIFT NXCOORD NYCOORD THISFORM MOUSEPOINTER NBUTTON NSHIFT NXCOORD NYCOORD MOUSEPOINTER THISFORM NDRAWMODE CURRENTX CURRENTY - (Inactive - - (Active - 6 NMPOINTER THISFORM MOUSEPOINTER CFORMMODE SETCAPTION REFRESH8 NCOLOR CCOLORNAME THISFORM FORECOLOR CPENCOLOR SETCAPTION[ LCCOLORNAME THISFORM CPENCOLOR DRAWWIDTH CAPTION THIS CFORMNAME CFORMMODE( THISFORM NDRAWMODE NVALUE THISFORM DRAWWIDTH NVALUE THISFORM DRAWMODE NVALUE THISFORM DRAWSTYLE THISFORM Draw Style: C 345678 NCHOICE LNXAXIS LNYAXIS LNXPOS LNYPOS LNRADIUS LNFILLSTYLE LNASPECT LNBOXX LNBOXY THISFORM WIDTH HEIGHT DRAWWIDTH PRINT DRAWSTYLE LINE FILLSTYLE URAND CIRCLE REFRESH) NLOWER NUPPER Activate, MouseDown MouseMove drawaction drawcolor setcaptionj chgdrawmode setpenwidth\ setdrawmode setdrawstyle clearform graphdemo, urandU c:\vfp\samples\controls\graphics\ foxdraw.vcx c:\vfp\samples\controls\graphics\foxdraw.vcx Draw Control FontSize DOCKIT SCALEMODE CAPTION CONTROLBOX SETALL# Unloading FoxDraw... ERROR DO fdMainErr with ERROR() Mainb ON ERROR &cErrorSave VISIBLE THISFORMSET FRMFD BACKCOLOR FDMAIN SCALEMODE CERRORSAVE SHOWm Inactive Active THISFORMSET FRMFD DRAWACTION MOUSEPOINTER CAPTION\ Lines THISFORMSET FRMFD CHGDRAWMODE NDRAWMODE CAPTION& THISFORMSET FRMFD SETPENWIDTH VALUE SETCAPTION THISFORMSET FRMFD SETDRAWMODE VALUE THISFORMSET FRMFD GRAPHDEMO VALUE% THISFORMSET FRMFD DRAWCOLOR CAPTION% THISFORMSET FRMFD DRAWCOLOR CAPTION% THISFORMSET FRMFD DRAWCOLOR CAPTIONA LNCOLOR THISFORMSET FRMFD DRAWCOLOR CAPTION FORECOLOR% THISFORMSET FRMFD DRAWCOLOR CAPTION THISFORMSET FRMFD CLEARFORM THISFORMSET 1-Blackness 2-Not Merge Pen 3-Mask Not Pen 4-Not Copy Pen 5-Mask Pen Not 6-Invert 7-Xor Pen 8-Not Mask Pen 9-Mask Pen 10-Not Xor Pen 11-Nop 12-Merge Not Pen 13-Copy Pen(Def) 14-Merge Pen Not 15-Merge Pen 16-Whiteness ADDITEM Line: Draw Styles Line: Triangle Circles :Open Circles :Filled Ellipses:Open Ellipses:Filled Boxes:Open Boxes:Filled ADDITEM layout controls palette LAYOUT LLLAYOUT LLFORM CONTROLS LLCONTROLS PALETTE LLPALETTE LLCONTROLS CONTROLS LLFORM LLLAYOUT LAYOUT LLPALETTE PALETTEB Error:C NERROR Init, Destroy cmdDraw.ClickN cmdDrawMode.Click spnPenWidth.InteractiveChange cboPenMode.InteractiveChange cboGDemo.CLickF cmdRed.CLICK cmdGreen.CLICK cmdBlue.CLICK= cmdCustom.CLICK cmdErase.CLICK cmdClear.CLICKr cmdDone.Click cmdDone.RightClick cboPenMode.Init cboGDemo.Init HideToolBar ShowToolBar fdMainErr Form Drawing Is: Active Click to toggle Form Drawing on/off.. Mode Is: Lines Click to toggle between Rays and Lines.. Pen Width: Set Pen Width to <n> pixels Pen Draw Mode: Set Pen Draw Mode to < 1 - 16> Change Pen Color to Red Green Change Pen Color to Green Change Pen Color to Blue Custom Select Custom Pen Color Erase Erase at Current Pen Width Clear Clear Form drawing surface.. Method Samples: Examples of Graphics Methods Exit FoxPro 3.0 Graphics Methods Sample LABEL CAPTION WIDTH BACKCOLOR CMDDRAW COMMANDBUTTON HEIGHT TOOLTIPTEXT CMDDRAWMODE SEPD2 SEPARATOR SPNPENWIDTH SPINNER VALUE SPINNERLOWVALUE SPINNERHIGHVALUE CBOPENMODE COMBOBOX STYLE SEPC1 CMDRED FORECOLOR CMDGREEN CMDBLUE CMDCUSTOM CMDERASE CMDCLEAR SEPCLR1 CBOGDEMO SEPCG1 CMDDONE fdToolBar ToolBar 9999 9999999 99999999 99991 PLATFORM UNIQUEID TIMESTAMP CLASS CLASSLOC BASECLASS OBJNAME PARENT PROPERTIES PROTECTED METHODS OBJCODE COMMENT RESERVED1 RESERVED2 RESERVED3 RESERVED4 RESERVED5 RESERVED6 RESERVED7 RESERVED8 RESERVED9 RESERVED10 COMMENT Class 0 8 WINDOWS _QUD0KJAB9 491932763 57 58 59 60 62 63 64 65 WINDOWS _QUD0KJA37 491932762 66 67 68 69 70 WINDOWS _QUD0KJA5F 491932763 75 76 77 78 79 WINDOWS _QUD0KJA7N 491932763 85 86 87 88 89 91 201 WINDOWS _QUD0KPTXQ 491932925 97 98 99 100 102 103 209 114 115 116 118 WINDOWS _QUD0KPTMC 491932925 119 120 121 122 123 125 225 WINDOWS _QUD0KPTP4 491932925 130 131 132 133 134 WINDOWS _QUD0KPTR2 491932925 136 137 138 139 140 WINDOWS _QUD0KPTSG 491932925 142 56 55 54 52 WINDOWS _QUD0KPTU4 491932925 51 50 49 48 46 WINDOWS _QUD0KPTW2 491932925 45 44 43 42 40 WINDOWS _QTZ0WOH2H 491026904 200 199 198 197 195 WINDOWS _QTZ0WOH4U 491026904 194 193 192 191 189 186 233 WINDOWS _QTZ0WOHAP 491026904 178 177 176 175 173 WINDOWS _QWN0V6RXZ 505836579 172 171 170 169 168 167 166 WINDOWS _QWN0V6RSF 505836579 165 164 163 162 160 156 241 WINDOWS _QWN0V6RW1 505836579 149 148 147 146 143 VERSION = 0.028 PARENT NHOUR UPDATEDISPLAY Timer, c:\vfp\t2\ samples.vcx c:\vfp\t2\samples.vcx NHOUR TIMER1 ENABLED TIMER1 ENABLED= NHOUR UPDATEDISPLAY CSECDISPLAY CMINDISPLAY CHOURDISPLAY NHOUR LBLSECONDS CAPTION LBLMINUTES LBLHOURS Init, Startm Reset UpdateDisplay4 c:\vfp\t2\ samples.vcx c:\vfp\t2\samples.vcx CCCC$%Z CCCC$iZ CCCC^ CCCCC^ PARENT TXTDATE VALUE TIMEFORMAT TXTTIME Timer, c:\vfp\t2\ samples.vcx c:\vfp\t2\samples.vcx RCaption = "00" Height = 13 Left = 46 Top = 8 Width = 15 Name = "lblSeconds" stopwatch lblSeconds label label OCaption = ":" Height = 13 Left = 42 Top = 7 Width = 5 Name = "lblColon1" stopwatch lblColon1 label label RCaption = "00" Height = 13 Left = 27 Top = 8 Width = 15 Name = "lblMinutes" stopwatch lblMinutes label container container clock ?Width = 251 Height = 25 TimeFormat = 0 Name = "container1" Class TimeFormat Pixels textbox textbox txtDate clock &Alignment = 2 BackColor = 255,255,0 BorderStyle = 0 Enabled = .F. Height = 18 Left = 0 Value = (CDOW(date())+" "+CMONTH(date())+" "+ ALLT(STR(DAY(date())))+", "+ALLT(STR(YEAR(date())))) Top = 5 Width = 179 DisabledForeColor = 0,0,0 DisabledBackColor = 255,255,255 Name = "txtDate" textbox textbox txtTime clock EAlignment = 2 BorderStyle = 0 Enabled = .F. Height = 18 Left = 184 Value = (IIF(THIS.PARENT.TimeFormat = 0, IIF(VAL(SUBSTR(time(),1,2))>12, ALLT(STR((VAL(SUBSTR(time(),1,2))-12)))+SUBSTR(time(),3,6), time()),time())) Top = 5 Width = 57 DisabledForeColor = 0,0,0 DisabledBackColor = 255,255,255 Name = "txtTime" timer timer Timer1 clock NTop = 0 Left = 0 Height = 12 Width = 14 Interval = 1000 Name = "Timer1" mPROCEDURE Timer This.Parent.txtDate.Value = CDOW(date())+" "+CMONTH(date())+" "+ ; ALLT(STR(DAY(date())))+", "+ALLT(STR(YEAR(date()))) IF This.Parent.TimeFormat = 0 This.Parent.txtTime.Value = IIF(VAL(SUBSTR(time(),1,2))>12, ; ALLT(STR((VAL(SUBSTR(time(),1,2))-12)))+SUBSTR(time(),3,6),time()) This.Parent.txtTime.Value = time() ENDIF ENDPROC container container stopwatch NWidth = 94 Height = 25 nSec = 0 nMin = 0 nHour = 0 Name = "container12" nHour PROCEDURE Init nMin = 0 nSec = 0 nHour = 0 ENDPROC PROCEDURE Start This.timer1.enabled = .t. ENDPROC PROCEDURE Stop This.timer1.enabled = .f. ENDPROC PROCEDURE Reset This.nSec = 0 This.nMin = 0 This.nHour = 0 This.UpdateDisplay ENDPROC PROCEDURE UpdateDisplay cSecDisplay = ALLTRIM(STR(This.nSec)) cMinDisplay = ALLTRIM(STR(This.nMin)) cHourDisplay = ALLTRIM(STR(This.nHour)) This.lblSeconds.Caption = IIF(This.nSec < 10, "0" + cSecDisplay , cSecDisplay) This.lblMinutes.Caption = IIF(This.nMin < 10, "0" + cMinDisplay , cMinDisplay) This.lblHours.Caption = IIF(This.nHour < 10, "0" + cHourDisplay , cHourDisplay) ENDPROC Class cnSec nHour *Start *Stop *Reset ,Property Description will appear here. *UpdateDisplay Pixels timer timer Timer1 stopwatch OTop = 0 Left = 66 Height = 25 Width = 25 Interval = 1000 Name = "Timer1" *PROCEDURE Timer this.parent.nSec = this.parent.nSec + 1 IF this.parent.nSec = 60 this.parent.nSec = 0 this.parent.nMin = this.parent.nMin + 1 ENDIF IF this.parent.nMin = 60 this.parent.nMin = 0 this.parent.nHour = this.parent.nHour + 1 ENDIF This.Parent.UpdateDisplay ENDPROC label label lblhours stopwatch OCaption = "00" Height = 13 Left = 8 Top = 8 Width = 15 Name = "lblhours" label label lblColon2 stopwatch OCaption = ":" Height = 13 Left = 23 Top = 7 Width = 5 Name = "lblColon2" label Top = 4 Left = 10 BackColor = 0,255,255 BackStyle = 1 FillStyle = 6 Height = 37 Width = 73 ColorSource = 0 Name = "Shape1" shaper Shape1 shape shape PARENT SHAPE1 CURVATURE REFRESH Click, c:\vfp\t1\ samples.vcx c:\vfp\t1\samples.vcx PROCEDURE Click IF This.Parent.shape1.curvature < 95 This.Parent.shape1.curvature = This.Parent.shape1.curvature + 5 This.Parent.shape1.curvature = 0 ENDIF This.Parent.Refresh ENDPROC VCaption = "Changer" Top = 45 Left = 10 Height = 23 Width = 73 Name = "Command1" shaper Command1 commandbutton commandbutton Pixels Class *Width = 94 Height = 70 Name = "shaper" shaper container container bCaption = "Drag this icon ->" Height = 25 Left = 11 Top = 144 Width = 57 Name = "Label2" Label2 label label NBUTTON NSHIFT NXCOORD NYCOORD DRAG& NBUTTON NSHIFT NXCOORD NYCOORD DRAG MouseDown, MouseUp c:\vfp\t1\ samples.vcx c:\vfp\t1\samples.vcx PROCEDURE MouseDown Parameters nButton, nShift, nXCoord, nYCoord This.Drag(1) ENDPROC PROCEDURE MouseUp Parameters nButton, nShift, nXCoord, nYCoord This.Drag(2) ENDPROC vPicture = fox.bmp DragIcon = fox.cur DragMode = 1 Height = 26 Left = 70 Top = 145 Width = 25 Name = "FoxIcon" FoxIcon image image ?Height = 37 Left = 7 Top = 138 Width = 93 Name = "Shape1" Shape1 shape shape CCCC$%Z CCCC$iZ CCCC^ CCCCC^ PARENT TXTDATE VALUE TIMEFORMAT TXTTIME Timer, c:\vfp\samples\controls\ samples.vcx c:\vfp\samples\controls\samples.vcx NHOUR TIMER1 ENABLED TIMER1 ENABLED= NHOUR UPDATEDISPLAY CSECDISPLAY CMINDISPLAY CHOURDISPLAY NHOUR LBLSECONDS CAPTION LBLMINUTES LBLHOURS Init, Startm Reset UpdateDisplay4 c:\vfp\samples\controls\ samples.vcx c:\vfp\samples\controls\samples.vcx PARENT NHOUR UPDATEDISPLAY Timer, c:\vfp\samples\controls\ samples.vcx c:\vfp\samples\controls\samples.vcx NBUTTON NSHIFT NXCOORD NYCOORD DRAG& NBUTTON NSHIFT NXCOORD NYCOORD DRAG MouseDown, MouseUp c:\vfp\samples\controls\ samples.vcx c:\vfp\samples\controls\samples.vcx PARENT SHAPE1 CURVATURE REFRESH Click, c:\vfp\samples\controls\ samples.vcx c:\vfp\samples\controls\samples.vcx main.scx main.sct grid\ grd_prp.scx grd_prp.sct lists\ ladd.scx ladd.sct lmsel.scx lmsel.sct lmulcol.scx lmulcol.sct lsort.scx lsort.sct objects\ cresize.scx cresize.sct objects.scx objects.sct pgframe\ pfsam2.scx pfsam2.sct launch.scx launch.sct multi.scx multi.sct lmover.scx lmover.sct events\ events.scx events.sct timer\ swatch.scx swatch.sct timecomm.scx timecomm.sct clock.scx clock.sct pfsam1.scx pfsam1.sct buttons.vcx buttons.vct multfile.scx multfile.sct graphics\ graph.scx graph.sct graphics\pgraph.prg c:\temp\ pgraph.fxp graphics\cgraph.prg cgraph.fxp controls.scx controls.sct multdat1.scx multdat1.sct lists\region.qpr region.qpx objects\dragdrop.prg dragdrop.fxp events\toolbar.prg toolbar.fxp 1_many.scx 1_many.sct graphics\fdmain.prg fdmain.fxp foxdraw.vcx foxdraw.vct main.prg graphics\fdproc.prg fdproc.fxp ..\..\ fox.bmp fox.msk fox.cur arw08up.bmp arw08dn.bmp samples.vcx samples.vct dragmove.cur nodrop01.cur