![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to imageinc.mst CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / mstools / mstest / sample|
Return to imageinc.mst CVS log | Up to [WindowsNT SDKs] / mstools / mstest / sample |
1.1 ! root 1: '******************************* IMAGEINC.MST ********************************* ! 2: 'Required Files: IMAGEDIT.INC ! 3: ' ! 4: 'Uses: ! 5: ''****************************************************************************** ! 6: ! 7: ! 8: ! 9: 'Return when the window is gone ! 10: STATIC SUB WaitWhileWnd (Title$) ! 11: WHILE WFndWndWait( Title$, FW_PART, 1 ) ! 12: WEND ! 13: END SUB ! 14: ! 15: 'Wait until the window is opened or 10 sec elapsed. ! 16: STATIC SUB WaitForWnd (Title$) ! 17: IF WFndWndWait( Title$, FW_PART, 10 ) = 0 THEN ! 18: PAUSE "Window " + Title$ + " could not be found!" ! 19: END ! 20: END IF ! 21: END SUB ! 22: ! 23: ! 24: '****************************************************************************** ! 25: 'SUB Bitmap32x32x16init ! 26: '****************************************************************************** ! 27: SUB Bitmap32x32x16init STATIC ! 28: WSetWndSiz WinHandle, 635 ,365 ! 29: PaletteShow( "ON" ) 'Turn on the Color Palette ! 30: PlacePalette 105, 370 ! 31: QueMouseClick VK_LBUTTON, 195, 10 ! 32: QueFlush 1 ! 33: ! 34: DoKeys "%Fn" 'Open new file ! 35: WaitForWnd "Resource Type" ! 36: ' Get the wnd handle without changing its activation state ! 37: hWndResType% = WFndWnd( "Resource Type", FW_PART ) ! 38: if hWndResType% <> WGetActWnd( 0 ) then ! 39: pause "ERROR hWndResType not active!!!" ! 40: end ! 41: end if ! 42: if not WOptionExists ("&Bitmap") then ! 43: pause "ERROR (bitmap)!!!" ! 44: end ! 45: end if ! 46: WOptionClick("&Bitmap") 'select Bitmap ! 47: if not WButtonExists ("OK") then ! 48: pause "ERROR!!!" ! 49: end ! 50: end if ! 51: WbuttonClick "OK" ! 52: DoKeys "%w32" 'select a 32x32 bit 32 color map ! 53: DoKeys "%h32" ! 54: DoKeys "%c" ! 55: WOptionClick( "16 Color" ) ! 56: WbuttonClick "OK" ! 57: PlaceViewWindow("32x32") ! 58: SetBrushSize( "2x2" ) ! 59: END SUB ! 60: '****************************************************************************** ! 61: ' SUB PlaceToolBox Places the tool bar at the coordintes passed to the ! 62: ' in tx and ty ! 63: '****************************************************************************** ! 64: SUB PlaceToolBox(tx%,ty%) STATIC ! 65: ToolHandle = FindWindow ("Toolbox", "") ! 66: WSetWndPos ToolHandle, Tx, Ty ! 67: END SUB ! 68: ! 69: '****************************************************************************** ! 70: ' SUB PlacePalette Places the Palette at the coordintes passed to the ! 71: ' SUB in px and py ! 72: '****************************************************************************** ! 73: SUB PlacePalette(px%,py%) STATIC ! 74: PaletteHandle = FindWindow ("#32770", "") ! 75: WSetWndPos PaletteHandle, px, py ! 76: END SUB ! 77: ! 78: '****************************************************************************** ! 79: ' SUB PlaceViewWndow places the view window in a standard place ! 80: ' for various sizes. ! 81: '****************************************************************************** ! 82: SUB PlaceViewWindow(BoxSize$) STATIC ! 83: SELECT CASE BoxSize ! 84: CASE "16x16" ! 85: ViewBox_x = 575 ! 86: ViewBox_y = 275 ! 87: ! 88: ViewHandle = FindWindow ("View", "") ! 89: IF ViewHandle = 0 THEN ! 90: PRINT "ViewHandle was NULL" ! 91: END IF ! 92: WSetWndPos ViewHandle, ViewBox_x, ViewBox_y ! 93: ! 94: CASE "32x32" ! 95: ViewBox_x = 585 ! 96: ViewBox_y = 275 ! 97: ViewHandle = FindWindow ("View", "") ! 98: IF ViewHandle = 0 THEN ! 99: PRINT "ViewHandle was NULL" ! 100: END IF ! 101: WSetWndPos ViewHandle, ViewBox_x, ViewBox_y ! 102: CASE "54x54" ! 103: ViewBox_x = 550 ! 104: ViewBox_y = 275 ! 105: ViewHandle = FindWindow ("View", "") ! 106: IF ViewHandle = 0 THEN ! 107: PRINT "ViewHandle was NULL" ! 108: END IF ! 109: WSetWndPos ViewHandle, ViewBox_x, ViewBox_y ! 110: CASE ELSE ! 111: PRINT "Error in PlaceViewWindow UNEXPECTED SIZE: ", BoxSize ! 112: END ! 113: ! 114: END SELECT ! 115: ! 116: END SUB ! 117: ! 118: '****************************************************************************** ! 119: ' SUB GridShow Turns the Grid on or off. ! 120: '****************************************************************************** ! 121: SUB GridShow(State$) STATIC ! 122: SELECT CASE State ! 123: CASE "ON" ! 124: WMenu "&Options" ! 125: If WMenuChecked( "&Grid" ) = FALSE THEN ! 126: DoKeys "G" ! 127: End If ! 128: WMenuEnd ! 129: CASE "OFF" ! 130: WMenu "&Options" ! 131: If WMenuChecked( "&Grid" ) THEN ! 132: DoKeys "G" ! 133: End If ! 134: WMenuEnd ! 135: CASE ELSE ! 136: PRINT "Error in GridShow UNEXPECTED STATE: ", State ! 137: END ! 138: ! 139: END SELECT ! 140: ! 141: END SUB ! 142: ! 143: '****************************************************************************** ! 144: ' SUB ToolBoxShow Turns the Tool Bar on or off. ! 145: '****************************************************************************** ! 146: SUB ToolBoxShow(State$) STATIC ! 147: SELECT CASE State ! 148: CASE "ON" ! 149: WMenu "&Options" ! 150: If WMenuChecked( "Show &Toolbox" ) = FALSE THEN ! 151: DoKeys "T" ! 152: End If ! 153: WMenuEnd ! 154: CASE "OFF" ! 155: WMenu "&Options" ! 156: If WMenuChecked( "Show &Toolbox" ) THEN ! 157: DoKeys "T" ! 158: End If ! 159: WMenuEnd ! 160: CASE ELSE ! 161: PRINT "Error in ToolBoxShow UNEXPECTED STATE: ", State ! 162: END ! 163: ! 164: END SELECT ! 165: ! 166: END SUB ! 167: ! 168: '****************************************************************************** ! 169: ' SUB ViewWindowShow turns the View Window on or off. ! 170: '****************************************************************************** ! 171: SUB ViewWindowShow(State$) STATIC ! 172: SELECT CASE State ! 173: CASE "ON" ! 174: WMenu "&Options" ! 175: If WMenuChecked( "Show &View Window" ) = FALSE THEN ! 176: DoKeys "V" ! 177: End If ! 178: WMenuEnd ! 179: CASE "OFF" ! 180: WMenu "&Options" ! 181: If WMenuChecked( "Show &View Window" ) THEN ! 182: DoKeys "V" ! 183: End If ! 184: WMenuEnd ! 185: CASE ELSE ! 186: PRINT "Error in ViewWindowShow UNEXPECTED STATE: ", State ! 187: END ! 188: ! 189: END SELECT ! 190: ! 191: END SUB ! 192: ! 193: '****************************************************************************** ! 194: ' SUB PaletteShow turns the pallete on or off. ! 195: '****************************************************************************** ! 196: SUB PaletteShow(State$) STATIC ! 197: SELECT CASE State ! 198: CASE "ON" ! 199: PaletteHandle = FindWindow ("#32770", "") ! 200: IF PaletteHandle = 0 THEN ! 201: PRINT "PaletteHandle is NULL" ! 202: End If ! 203: IF NOT WIsVisible( PaletteHandle ) THEN ! 204: DoKeys "^{F7}" ! 205: End If ! 206: IF NOT WIsVisible( PaletteHandle ) THEN ! 207: PRINT "Error: Palette wnd not visible!" ! 208: END IF ! 209: CASE "OFF" ! 210: PaletteHandle = FindWindow ("#32770", "") ! 211: IF WIsVisible( PaletteHandle ) THEN ! 212: DoKeys "^{F7}" ! 213: End If ! 214: IF WIsVisible( PaletteHandle ) THEN ! 215: PRINT "Error: Palette wnd is visible!" ! 216: END IF ! 217: CASE ELSE ! 218: PRINT "Error in PaletteShow UNEXPECTED STATE: ", State ! 219: END ! 220: ! 221: END SELECT ! 222: END SUB ! 223: ! 224: '$ifdef NASTYBUG ! 225: '****************************************************************************** ! 226: ' SUB PaletteShow turns the pallete on or off. ! 227: '****************************************************************************** ! 228: SUB PaletteShow(State$) STATIC ! 229: WSetActWnd WinHandle ! 230: SELECT CASE State ! 231: CASE "ON" ! 232: WMenu "&Options" ! 233: If WMenuChecked( "Show &Color Palette" ) = FALSE THEN ! 234: DoKeys "C" ! 235: End If ! 236: WMenuEnd ! 237: PaletteHandle = FindWindow ("#32770", "") ! 238: IF NOT WIsVisible( PaletteHandle ) THEN ! 239: PRINT "Error: Palette wnd not visible!" ! 240: END IF ! 241: ! 242: CASE "OFF" ! 243: WMenu "&Options" ! 244: If WMenuChecked( "Show &Color Palette" ) THEN ! 245: DoKeys "C" ! 246: End If ! 247: WMenuEnd ! 248: PaletteHandle = FindWindow ("#32770", "") ! 249: IF WIsVisible( PaletteHandle ) THEN ! 250: PRINT "Error: Palette wnd is visible!" ! 251: END IF ! 252: ! 253: CASE ELSE ! 254: PRINT "Error in PaletteShow UNEXPECTED STATE: ", State ! 255: END ! 256: ! 257: END SELECT ! 258: END SUB ! 259: '$endif ! 260: ! 261: '****************************************************************************** ! 262: ' SUB SetBrushSize Set the brush size to one of the four possibilities ! 263: ' (2x2, 3x3, 4x4, 5x5) ! 264: '****************************************************************************** ! 265: SUB SetBrushSize(Size$) STATIC ! 266: SELECT CASE Size ! 267: CASE "2x2" ! 268: WMenu "&Options" ! 269: WMenu "&Brush Size" ! 270: If WMenuChecked( "&2x2" ) = FALSE THEN ! 271: DoKeys "2" ! 272: End If ! 273: WMenuEnd ! 274: CASE "3x3" ! 275: WMenu "&Options" ! 276: WMenu "&Brush Size" ! 277: If WMenuChecked( "&3x3" ) = FALSE THEN ! 278: DoKeys "3" ! 279: End If ! 280: WMenuEnd ! 281: CASE "4x4" ! 282: WMenu "&Options" ! 283: WMenu "&Brush Size" ! 284: If WMenuChecked( "&4x4" ) = FALSE THEN ! 285: DoKeys "4" ! 286: End If ! 287: WMenuEnd ! 288: CASE "5x5" ! 289: WMenu "&Options" ! 290: WMenu "&Brush Size" ! 291: If WMenuChecked( "&5x5" ) = FALSE THEN ! 292: DoKeys "5" ! 293: End If ! 294: WMenuEnd ! 295: CASE ELSE ! 296: PRINT "Error in SetBrushSize UNEXPECTED SIZE: ", Size ! 297: END ! 298: ! 299: END SELECT ! 300: ! 301: END SUB ! 302: ! 303: ! 304: '****************************************************************************** ! 305: ' *** Determine the golden file name used. Default is now VRAM1024.scn. ! 306: '****************************************************************************** ! 307: '$ifdef MIPS1280 ! 308: Const GoldenFile$ = "mips1280.scn" ! 309: '$else ! 310: Const GoldenFile$ = "VRAM1024.scn" ! 311: '$endif ! 312: ! 313: ! 314: '****************************************************************************** ! 315: ' Sub ProcessResults determines what to do at the end of the test routine ! 316: ' Default is verification. ! 317: '****************************************************************************** ! 318: ! 319: ' For testing now ! 320: '''''$define CREATEGOLDEN ! 321: ! 322: SUB ProcessResults( FileName$, SubName$, DumpIndex% ) STATIC ! 323: '$ifdef CREATEGOLDEN ! 324: CreateGolden FileName$, SubName$, DumpIndex% ! 325: '$else ! 326: Verify FileName$, SubName$, DumpIndex% ! 327: '$endif ! 328: END SUB ! 329: ! 330: ! 331: '****************************************************************************** ! 332: ' Sub CreateGolden compares window with golden window and Saves it to image.dmp file can be loaded and saved properly. ! 333: '****************************************************************************** ! 334: SUB CreateGolden( FileName$, SubName$, DumpIndex% ) STATIC ! 335: ! 336: IF NOT FileName$ = "" THEN ! 337: IF NOT EXISTS(FileName) THEN ! 338: DoKeys "%FA" ! 339: DoKeys FileName ! 340: WButtonClick "OK" ! 341: ELSE ! 342: DoKeys "%FA" ! 343: DoKeys FileName ! 344: WButtonClick "OK" ! 345: DoKeys "y" ! 346: END IF ! 347: ! 348: QueMouseMove 110, 224 ! 349: QueMouseMove 110, 324 ! 350: QueFlush 1 ! 351: END IF ! 352: ! 353: ret2% = fDumpWindow( GoldenFile$, WinHandle, 1, DumpIndex, FALSE) ! 354: IF ret2% > 0 THEN ! 355: Print #1, "Window dump failed in routine " SubName$ " Error #:" ret2% ! 356: Print #1, ! 357: ErrCount = ErrCount + 1 ! 358: ELSE ! 359: Print #1, SubName,,, " golden generated OK." ! 360: ENDIF ! 361: END SUB ! 362: ! 363: ! 364: '****************************************************************************** ! 365: ' Sub VERIFY saves the area and compares the window with golden window in ! 366: ' gimage.scn. If there is a descrepency then the window is then dumped to ! 367: ' image.scn ! 368: '****************************************************************************** ! 369: SUB Verify(FileName$, SubName$, DumpIndex%) STATIC ! 370: ! 371: IF NOT FileName$ = "" THEN ! 372: IF NOT EXISTS(FileName) THEN ! 373: DoKeys "%FA" ! 374: DoKeys FileName ! 375: WButtonClick "OK" ! 376: ELSE ! 377: DoKeys "%FA" ! 378: DoKeys FileName ! 379: WButtonClick "OK" ! 380: DoKeys "y" ! 381: END IF ! 382: ! 383: QueMouseMove 110, 224 ! 384: QueMouseMove 110, 324 ! 385: QueFlush 1 ! 386: END IF ! 387: ! 388: ret% = fCompWindow( GoldenFile$, WinHandle, DumpIndex, FALSE, FALSE) ! 389: IF ret% > 0 THEN ! 390: Print #1, "Construction failed for " SubName " Error #:" ret% ! 391: Print #1, "Dumping Window at index:" DumpIndex% ! 392: Print #1, ! 393: ErrCount = ErrCount + 1 ! 394: ret2% = fDumpWindow("imagdump.scn", WinHandle, 1, DumpIndex, FALSE) ! 395: IF ret2% > 0 THEN ! 396: Print #1, "Window dump failed for " SubName " Error #:" ret2% ! 397: Print #1, ! 398: ErrCount = ErrCount + 1 ! 399: ENDIF ! 400: ELSE ! 401: Print #1, SubName,,, " PASSED" ! 402: ENDIF ! 403: END SUB ! 404: ! 405: ! 406: ! 407: '****************************************************************************** ! 408: 'SUB ToolTest. Set up and mouse control for bimap tool test. ! 409: '****************************************************************************** ! 410: SUB ToolTest(Width$) STATIC ! 411: Bitmap32x32x16init ! 412: SetBrushSize( Width$ ) ! 413: QueMouseClick VK_LBUTTON, 591, 111 'Select the pen ! 414: QueMouseClick VK_LBUTTON, 333, 442 'Select Dithered Blue ! 415: QueMouseClick VK_RBUTTON, 282, 426 'Select Yellow ! 416: QueMouseDn VK_LBUTTON, 10, 74 'Draw diagonal line ! 417: QueMouseUp VK_LBUTTON, 258, 322 ! 418: QueMouseClick VK_LBUTTON, 592, 165 'Select the outline box. ! 419: QueMouseDn VK_RBUTTON, 258, 74 'Draw square ! 420: QueMouseUp VK_RBUTTON, 146, 186 ! 421: QueMouseClick VK_LBUTTON, 257, 426 'Select Red ! 422: QueMouseClick VK_RBUTTON, 291, 426 'Select Green ! 423: QueMouseClick VK_LBUTTON, 592, 191 'Select the outline circle. ! 424: QueMouseDn VK_RBUTTON, 114, 210 'Draw circle ! 425: QueMouseUp VK_RBUTTON, 10, 322 ! 426: QueMouseClick VK_LBUTTON, 618, 111 'Select the Brush ! 427: QueMouseClick VK_LBUTTON, 202, 266 'Draw dots ! 428: QueMouseClick VK_LBUTTON, 134, 198 ! 429: QueMouseClick VK_LBUTTON, 66, 130 ! 430: QueMouseClick VK_LBUTTON, 619, 191 'Select Fill Circle. ! 431: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion: ! 432: QueKeys "{ESC}" 'field to a standerd number ! 433: QueMouseUp VK_LBUTTON, 110, 324 ! 434: QueMouseClick VK_LBUTTON, 618, 111 'Select The Brush. ! 435: QueFlush 1 ! 436: END SUB ! 437: ! 438: '****************************************************************************** ! 439: 'SUB IToolTest. Set up and mouse control for icon tool test. ! 440: '****************************************************************************** ! 441: SUB IToolTest(Width$) STATIC ! 442: WSetWndSiz WinHandle, 635 ,365 ! 443: PaletteShow( "ON" ) 'Turn on the color palette ! 444: PlacePalette 105, 370 ! 445: ' QueMouseClick VK_LBUTTON, 195, 10 ! 446: ' QueFlush 1 ! 447: WSetActWnd( WinHandle ) ! 448: DoKeys "%Fn" 'Open new file ! 449: WOptionClick("&Icon") 'Select bitmap ! 450: WbuttonClick "OK" ! 451: WListItemClkT "&Target Device:", "CGA 2-Color 32x16" ! 452: WbuttonClick "OK" ! 453: PlaceViewWindow("32x32") ! 454: SetBrushSize( Width$ ) ! 455: QueMouseClick VK_LBUTTON, 360, 426 'Set screen and inverse colors to ! 456: QueMouseClick VK_LBUTTON, 611, 321 'gray shades ! 457: QueMouseClick VK_LBUTTON, 591, 111 'select the pen ! 458: QueMouseClick VK_LBUTTON, 224, 442 'select Black ! 459: QueMouseDn VK_LBUTTON, 10, 74 'Draw diagonal line ! 460: QueMouseUp VK_LBUTTON, 542, 334 ! 461: QueMouseClick VK_LBUTTON, 592, 165 'Select the outline box. ! 462: QueMouseDn VK_LBUTTON, 543, 78 'Draw square ! 463: QueMouseUp VK_LBUTTON, 406, 215 ! 464: QueMouseClick VK_LBUTTON, 592, 191 'Select the outline Circle. ! 465: QueMouseDn VK_LBUTTON, 15, 334 'Draw circle ! 466: QueMouseUp VK_LBUTTON, 150, 198 ! 467: QueMouseClick VK_LBUTTON, 618, 111 'Select the Brush ! 468: QueMouseClick VK_LBUTTON, 458, 283 'Draw dots ! 469: QueMouseClick VK_LBUTTON, 278, 206 ! 470: QueMouseClick VK_LBUTTON, 99, 130 ! 471: QueMouseClick VK_LBUTTON, 619, 191 'Select Fill Circle. ! 472: QueMouseDn VK_LBUTTON, 110, 314 ! 473: QueKeys "{ESC}" ! 474: QueMouseUp VK_LBUTTON, 110, 324 ! 475: QueMouseClick VK_LBUTTON, 618, 111 'Select The Brush. ! 476: QueFlush 1 ! 477: END SUB ! 478: ! 479: ! 480:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.