![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to imagedit.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 imagedit.mst CVS log | Up to [WindowsNT SDKs] / mstools / mstest / sample |
1.1 root 1: '******************************** IMAGEDIT.MST **********************************
2: ' For now Mips 1280x1024 256-color is assumed if MIPS1280 is defined at run time,
3: ' else VRAM II 1024x768 16-color will be assumed.
4: '
5: ' Default is verification unless CREATEGOLDEN is defined at runtime in which case
6: ' it will be imagefile generation (make sure the .scn file is checked out).
7: '
8: 'This file tests the components of the IMAGEDIT.EXE. The Script preforms
9: 'the test function, then compares a snapshot of the window to a golden
10: 'snapshot contained in an .scn. When a conflict occurs the screen dumps
11: 'the snapshot to imagdump.scn, its index and subroutine name is given. A description
12: 'of the subroutine can be found above in its Declaration. The window images
13: 'can be compared using MS TEST SCREEN. If the golden image is at fault the
14: 'snapshot in imagdump.scn then can be moved to the golden image.scn by commenting out
15: 'all other subrotines in the main function and running with CERATEGOLDEN defined.
16: 'Due to the size of the test, imagedi2.mst contains the second part of the test.
17: 'It needs to load and run seperatly.
18: '
19: 'Required Files: MSTEST.INC, IMAGEDIT.EXE, IMAGEDIT.INC IMAGEINC.MST
20: '
21: 'This test must run with the systen window colors set to default.
22: '
23: '******************************************************************************
24:
25: '******************************************************************************
26: ' SUB Init Start and initalizatize imagedit.exe
27: Declare Sub Init
28:
29:
30: '******************************************************************************
31: ' SUB SmallBitmapSize will creates a bitmap 12 x 12, 16 colors. It
32: ' draws a filled circle in black that fills the entire area. It saves the
33: ' file as small.bmp
34: Declare Sub SmallBitmapSize
35:
36:
37: '******************************************************************************
38: ' SUB LargeBitmapSize creates a bitmap 54 x 54, 16 colors. It
39: ' draws a filled circle in black that fills the entire area. It saves the
40: ' file as large.bmp
41: Declare Sub LargeBitmapSize
42:
43:
44: '******************************************************************************
45: ' SUB BitmapColor1 creates a bitmap 32x32, 16 colors. It draws 14
46: ' filled rectangles, one for each color on the top row of the pallete.
47: ' It saves the file as bctest1.bmp
48: Declare Sub BitmapColor1
49:
50:
51: '******************************************************************************
52: ' SUB BitmapColor2 creates a bitmap 32x32, 16 colors. It draws 14
53: ' filled rectangles, one for each color on the bottom row of the pallete.
54: ' It saves the file as bctest2.bmp
55: Declare Sub BitmapColor2
56:
57:
58: '******************************************************************************
59: ' SUB BitmapMono1 creates a bitmap 32x32,16 colors. It draws 14
60: ' filled rectangles, one for each shade on the top row of the pallete.
61: ' It saves the file as bmtest1.bmp
62: Declare Sub BitmapMono1
63:
64:
65: '******************************************************************************
66: ' SUB BitmapMono2 creates a bitmap 32x32, 2 colors. It draws 14
67: ' filled rectangles, one for each shade on the bottom row of the pallete.
68: ' It saves the file as bmtest2.bmp
69: Declare Sub BitmapMono2
70:
71:
72: '******************************************************************************
73: ' SUB CursorMono1 creates a cursor 32x32, 2 colors. It draws a black
74: ' cirle filling the area. Then a White circle inside the black one. Then a
75: ' black circle inside the white one. Then it selects the fill tool and
76: ' fills in the four corners with the screen color. then it fills in the
77: ' innermost black circle with the inverse screen color. It saves the file as
78: ' cmtest1.cur.
79: Declare Sub CursorMono1
80:
81:
82: '******************************************************************************
83: ' SUB CursorColor creates a cursor 32x32, 16 colors. It draws a black
84: ' cirle filling the area. Then a White circle inside the black one. Then a
85: ' black circle inside the white one. Then it selects the fill tool and
86: ' fills in the four corners with the screen color. then it fills in the
87: ' innermost black circle with the inverse screen color. It saves the file as
88: ' cctest1.cur.
89: Declare Sub CursorColor1
90:
91:
92: '******************************************************************************
93: ' SUB IconColor1 creates a icon 32x32, 16 colors. It draws 14
94: ' filled rectangles, one for each color on the top row of the pallete.
95: ' Then it selects the scren color and the fill circle tool. It Draws a
96: ' filled cirle parchaily covering all the rectangles It saves the file
97: ' as ictest1.ico
98: Declare Sub IconColor1
99:
100:
101: '******************************************************************************
102: ' SUB IconColor1 creates a icon 32x32, 16 colors. It draws 14
103: ' filled rectangles, one for each color on the bottom row of the pallete.
104: ' Then it selects the scren color and the fill circle tool. It Draws a
105: ' filled cirle parchaily covering all the rectangles It saves the file
106: ' as ictest1.ico
107: Declare Sub IconColor2
108:
109:
110: '******************************************************************************
111: ' SUB IconColor3 creates a icon 32x32, 2 colors. It draws a black
112: ' cirle filling the area. Then a White circle inside the black one. Then a
113: ' black circle inside the white one. Then it selects the fill tool and
114: ' fills in the four corners with the screen color. then it fills in the
115: ' innermost black circle with the inverse screen color. It saves the file as
116: ' imtest3.ico.
117: Declare Sub IconColor3
118:
119:
120: '******************************************************************************
121: ' SUB IconColor4 creates a CGA Cursor 32x16, 2 colors. It draws a black
122: ' cirle filling the area. Then a White circle inside the black one. Then a
123: ' black circle inside the white one. Then it selects the fill tool and
124: ' fills in the four corners with the screen color. then it fills in the
125: ' innermost black circle with the inverse screen color. It saves the file as
126: ' iCGAtst4.ico.
127: Declare Sub IconColor4
128:
129:
130: '******************************************************************************
131: ' SUB BitmapSTool creates a bitmap 32x32, 16 colors. It draws a daigonal
132: ' line form the top left to bottom right. It then draws a circle in the
133: ' botom plane and a square in the top plan. with the 2x2 brush it puts
134: ' three dots along the diagonal line. It saves the file as bstool.bmp
135: Declare Sub BitmapSTool
136:
137:
138: '******************************************************************************
139: ' SUB IconSTool creates a CGA Icon 32x16, 2 colors. It draws a daigonal
140: ' line form the top left to bottom right. It then draws a circle in the
141: ' botom plane and a square in the top plan. with the 2x2 brush it puts
142: ' three dots along the diagonal line. It saves the file as istool.ico
143: Declare Sub IconSTool
144:
145:
146: '******************************************************************************
147: ' SUB BitmapMTool creates a bitmap 32x32, 16 colors. It draws a daigonal
148: ' line form the top left to bottom right. It then draws a circle in the
149: ' botom plane and a square in the top plan. with the 3x3 brush it puts
150: ' three dots along the diagonal line. It saves the file as bmtool.bmp
151: Declare Sub BitmapMTool
152:
153:
154: '******************************************************************************
155: ' SUB IconMTool creates a CGA Icon 32x16, 2 colors. It draws a daigonal
156: ' line form the top left to bottom right. It then draws a circle in the
157: ' botom plane and a square in the top plan. with the 3x3 brush it puts
158: ' three dots along the diagonal line. It saves the file as imtool.ico
159: Declare Sub IconMTool
160:
161:
162: '******************************************************************************
163: ' SUB BitmapLTool creates a bitmap 32x32, 16 colors. It draws a daigonal
164: ' line form the top left to bottom right. It then draws a circle in the
165: ' botom plane and a square in the top plan. with the 4x4 brush it puts
166: ' three dots along the diagonal line. It saves the file as bltool.bmp
167: Declare Sub BitmapLTool
168:
169:
170: '******************************************************************************
171: ' SUB IconLTool creates a CGA Icon 32x16, 2 colors. It draws a daigonal
172: ' line form the top left to bottom right. It then draws a circle in the
173: ' botom plane and a square in the top plan. with the 4x4 brush it puts
174: ' three dots along the diagonal line. It saves the file as iltool.ico
175: Declare Sub IconLTool
176:
177:
178: '******************************************************************************
179: ' SUB BitmapXLTool creates a bitmap 32x32, 16 colors. It draws a daigonal
180: ' line form the top left to bottom right. It then draws a circle in the
181: ' botom plane and a square in the top plan. with the 5x5 brush it puts
182: ' three dots along the diagonal line. It saves the file as bxltool.bmp
183: Declare Sub BitmapXLTool
184:
185:
186: '******************************************************************************
187: ' SUB IconXLTool creates a CGA Icon 32x16, 2 colors. It draws a daigonal
188: ' line form the top left to bottom right. It then draws a circle in the
189: ' botom plane and a square in the top plan. with the 5x5 brush it puts
190: ' three dots along the diagonal line. It saves the file as ixltool.ico
191: Declare Sub IconXLTool
192:
193:
194: '******************************************************************************
195: ' SUB IdBitmapTool creates a bitmap 32x32, 16 colors. It draws a filled
196: ' circle at in the botom left corner and a square in the top left corner.
197: ' Then it draws a curved line in between the circle and square and fills
198: ' the backgound with the fill tool. The left half of the screen is then put
199: ' on the clipboard. A smaller souround box is drawn on the right half of the
200: ' screen and the object is shrunk into it. The window is the compared to
201: ' gimage.scn index IIdBitmapToolA. Undo is select. A smaller souround box is
202: ' again drawn and cutoff is slected when the object is placed in the box.
203: ' The window is the compared to gimage.scn index IIdBitmapToolB. Undo is
204: ' Select. A souround box of the same size is drawn and the object is placed
205: ' in the box. The window is the compared to gimage.scn index IIdBitmapToolC
206: ' and saved as idtool.bmp
207: Declare Sub IdBitmapTool
208:
209:
210: '******************************************************************************
211: ' SUB IdIconTool creates a CGA ICON 32x16, 2 colors. It draws a filled
212: ' circle at in the botom left corner and a square in the top left corner.
213: ' Then it draws a curved line in between the circle and square and fills
214: ' the backgound with the fill tool. The left half of the screen is then put
215: ' on the clipboard. A smaller souround box is drawn on the right half of the
216: ' screen and the object is shrunk into it. The window is the compared to
217: ' gimage.scn index IIdIconToolA. Undo is select. A smaller souround box is
218: ' again drawn and cutoff is slected when the object is placed in the box.
219: ' The window is the compared to gimage.scn index IIdIconToolB. Undo is
220: ' Select. A souround box of the same size is drawn and the object is placed
221: ' in the box. The window is the compared to gimage.scn index IIdIconToolC
222: ' and saved as idtool.bmp
223: Declare Sub IdIconTool
224:
225:
226: '******************************************************************************
227: ' SUB Undo creates a bitmap 32x32, 16 colors. It draws a pattarn on the
228: ' screen in blue. Seclects each tool and draws with it in red and undos it.
229: ' Also does cut, paste and undo and screen clear and undo.
230: Declare Sub Undo
231:
232:
233: '******************************************************************************
234: ' SUB Pentest creates a bitmap 32x32, 16 colors. Tries to draw outside of
235: ' area. Draws in each of the four corners. Tries to draw from outside to
236: ' inside on all four sides. Draws from inside ot outside from all four sides.
237: ' Saves as pentst.bmp"
238: Declare Sub PenTest
239:
240:
241: '******************************************************************************
242: ' SUB Brush creates a bitmap 32x32, 16 colors. Tries to draw outside of
243: ' area. Draws in each of the four corners. Tries to draw from outside to
244: ' inside on all four sides. Draws from inside to outside from all four sides.
245: ' Saves as pentst.bmp" (BrushSize "2x2")
246: Declare Sub Brush
247:
248:
249: Declare Sub EndTest
250:
251: '******************************************************************************
252: ' CONST
253: '******************************************************************************
254:
255: Const AppName$ = "IMAGEDIT.EXE"
256: Const ToolBox_x = 575, ToolBox_y = 75
257: ' Index number of the window snapshots in image.scn and gimage.scn
258: Const ISmallBitmapSize = 1
259: Const ILargeBitmapSize = 2
260: Const IBitmapColor1 = 3
261: Const IBitmapColor2 = 4
262: Const IBitmapMono1 = 5
263: Const IBitmapMono2 = 6
264: Const ICursorMono1 = 7
265: Const ICursorColor1 = 8
266: Const IIconColor1 = 9
267: Const IIconColor2 = 10
268: Const IIconColor3 = 11
269: Const IIconColor4 = 12
270: Const IBitmapSTool = 13
271: Const IIconSTool = 14
272: Const IBitmapMTool = 15
273: Const IIconMTool = 16
274: Const IBitmapLTool = 17
275: Const IIconLTool = 18
276: Const IBitmapXLTool = 19
277: Const IIconXLTool = 20
278: Const IIdBitmapToolA = 21
279: Const IIdBitmapToolB = 22
280: Const IIdBitmapToolC = 23
281: Const IIdIconToolA = 24
282: Const IIdIconToolB = 25
283: Const IIdIconToolC = 26
284: Const IUndo = 27
285: Const IPenTest = 28
286: Const IBrush = 29
287:
288: Global WinHandle%, logfile%, ErrCount, MenuName$(7),ViewBox_x%, ViewBox_y
289: Global XSCREEN%, YSCREEN%
290:
291: '******************************************************************************
292: ' INCLUDES
293: '******************************************************************************
294:
295: '$INCLUDE 'IMAGEDIT.INC'
296: '******************************************************************************
297: ' Main program code
298: '******************************************************************************
299:
300: ON ERROR GOTO ErrorTrap
301:
302: Init
303: SmallBitmapSize
304: LargeBitmapSize
305:
306:
307:
308: ' Add these tests as needed.
309:
310: ' BitmapColor1
311: ' BitmapColor2
312: ' BitmapMono1
313: ' BitmapMono2
314: ' CursorMono1
315: ' CursorColor1
316: ' IconColor1
317: ' IconColor2
318: ' IconColor3
319: ' IconColor4
320: ' BitmapSTool
321: ' IconSTool
322: ' BitmapMTool
323: ' IconMTool
324: ' BitmapLTool
325: ' IconLTool
326: ' BitmapXLTool
327: ' IconXLTool
328: ' IdBitmapTool
329: ' IdIconTool
330: ' Undo
331: ' PenTest
332: ' Brush
333: EndTest
334: END
335:
336: '******************************************************************************
337: ' TRAPS
338: '******************************************************************************
339: ErrorTrap:
340: SELECT CASE Err
341: CASE ERR_INVALID_PATH
342: PRINT "Path not found. Error number ", Err
343: PRINT " on line ", ERL
344: PRINT " in script ", ERF
345: PRINT ERROR$ ' The error message.
346: END
347: CASE ERR_CANT_OPEN_FILE
348: PRINT "Can't Open File. Error number ", Err
349: PRINT " on line ", ERL
350: PRINT " in script ", ERF
351: PRINT ERROR$ ' The error message.
352: END
353: CASE ELSE
354: PRINT "Unexpected error: Number ", Err
355: PRINT " on line ", ERL
356: PRINT " in script ", ERF
357: PRINT ERROR$ ' The error message.
358: END
359: END SELECT
360:
361: '******************************************************************************
362: ' SUBs
363: '******************************************************************************
364:
365: SUB Init STATIC
366:
367: ' VIEWPORT ON
368: ' VIEWPORT CLEAR
369: ErrCount = 0
370: OPEN "imagedit.log" FOR APPEND AS # 1
371: PRINT #1, "**********************************************"
372: PRINT #1, "IMAGEDI2 TEST OF IMAGEDIT.EXE APPLICATION"
373: PRINT #1, " " + DATETIME$
374: PRINT #1, "**********************************************"
375: PRINT #1,
376: PRINT #1, "This test must run with the systen window colors set to default."
377: PRINT #1,
378: PRINT #1, "If IcusroColor1 fails check to see if"
379: PRINT #1, "[ImagEdit.cursor]"
380: PRINT #1, "VGA=16,32,32"
381: PRINT #1, "is in c:\windows\imagedit.ini"
382: PRINT #1,
383: RUN AppName$, NOWAIT 'Run the Windows IMAGEDIT.EXE program
384:
385: SLEEP( 5 )
386:
387: ' ThdId1& = GetCurrentThreadId ()
388: ' ThdId2& = GetCurrentThreadId ()
389: ' if ThdId1 = ThdId2 then
390: ' Print #1, "thread IDs identical! " ThdId1& ThdId2&
391: ' else
392: ' Print #1, "different thread IDs returned! " ThdId1& ThdId2&
393: ' endif
394: ' fRetThdStatus& = AttachThreadInput( 0, ThdId1&, 1 )
395: ' fRetThdStatus& = AttachThreadInput( 0, ThdId2&, 1 )
396:
397: WinHandle = WGetActWnd(0) 'Get the window handle for the main window
398: WSetWndPos WinHandle, 0, 0 'Position the window.
399: WSetWndSiz WinHandle, 635 ,475
400: GridShow( "OFF" ) 'Turn off Grid Option
401: ToolBoxShow( "ON" ) 'Turn on the ToolBox
402: ViewWindowShow( "ON" ) 'Turn on the View Window
403: PaletteShow( "OFF" ) 'Turn off the Color Palette
404: PlaceToolBox ToolBox_x, ToolBox_y 'Place the Tool Box
405: END SUB
406:
407:
408: SUB SmallBitmapSize STATIC
409: DoKeys "{F10}" 'Change focus to main window
410: WSetWndSiz WinHandle, 635 ,365
411: PaletteShow( "ON" ) 'Turn on the Color Palette
412: DoKeys "%Fn" 'Open new file
413: 'for now these are not needed
414: ' WbuttonClick "NO"
415: ' WOptionClick("&Bitmap") 'select Bitmap
416:
417: WbuttonClick "OK"
418: DoKeys "%w16" 'select a 16x16 bit 16 color map
419: DoKeys "%h16"
420: DoKeys "%c"
421: WOptionClick( "16 Color" )
422: WbuttonClick "OK"
423: PlaceViewWindow("16x16")
424: PlacePalette 105, 370
425: SetBrushSize("3x3")
426: QueMouseClick VK_LBUTTON, 241, 426 'Set screen and inverse colors to
427: QueMouseClick VK_LBUTTON, 611, 321 'gray shades
428: QueMouseClick VK_LBUTTON, 620, 194 'select fill circle tool
429: QueMouseClick VK_LBUTTON, 224, 442 'select Black
430: QueMouseDn VK_LBUTTON, 270, 87 'Draw a circle
431: QueMouseUp VK_LBUTTON, 0, 479
432: QueMouseDn VK_LBUTTON, 110, 228 'Clears size: field and sets postion:
433: QueKeys "{ESC}" 'field to a standerd number
434: QueMouseUp VK_LBUTTON, 110,324
435: QueFlush 1
436: ProcessResults "small.bmp", "SmallBitmapSize", ISmallBitmapSize
437: END SUB
438:
439: SUB LargeBitmapSize STATIC
440: DoKeys "{F10}" 'Change focus to main window
441: WSetWndSiz WinHandle, 635 ,475
442: DoKeys "%Fn" 'Open new file
443: WOptionClick("&Bitmap") 'Select Bitmap
444: WbuttonClick "OK"
445: DoKeys "%w54" 'Select a 54x54 bit 16 color map
446: DoKeys "%h54"
447: DoKeys "%c"
448: WOptionClick( "16 Color" )
449: WbuttonClick "OK"
450: PlaceViewWindow("54x54")
451: SetBrushSize("3x3")
452: PaletteShow( "OFF" ) 'Turn off the Color Palette
453: QueMouseClick VK_LBUTTON, 620, 194 'Select fill circle tool
454: QueMouseDn VK_LBUTTON, 382, 73 'Draws a circle
455: QueMouseUp VK_LBUTTON, 0, 479
456: QueMouseDn VK_LBUTTON, 7, 448 'Clears size: field and sets postion:
457: QueKeys "{ESC}" 'field to a standerd number
458: QueMouseUp VK_LBUTTON, 110,324
459: QueFlush 1
460: ProcessResults "large.bmp", "LargeBitmapSize", ILargeBitmapSize
461: END SUB
462:
463:
464: SUB BitmapColor1 STATIC
465: Bitmap32x32x16init
466: QueMouseClick VK_LBUTTON, 619, 165 'select fill rectangel tool
467: QueMouseClick VK_LBUTTON, 224, 426 'select 1st color
468: QueMouseClick VK_RBUTTON, 241, 426 'select 2nd color
469: QueMouseDn VK_LBUTTON, 10, 74 'Draw the squares.
470: QueMouseUp VK_LBUTTON, 34, 194
471: QueMouseDn VK_RBUTTON, 42, 74
472: QueMouseUp VK_RBUTTON, 65, 194
473: QueMouseClick VK_LBUTTON, 257, 426 'select 3rd color
474: QueMouseClick VK_RBUTTON, 274, 426 'select 4th color
475: QueMouseDn VK_LBUTTON, 74, 74 'Draw the squares.
476: QueMouseUp VK_LBUTTON, 98, 194
477: QueMouseDn VK_RBUTTON, 122, 74
478: QueMouseUp VK_RBUTTON, 146, 194
479: QueMouseClick VK_LBUTTON, 291, 426 'select 5th color
480: QueMouseClick VK_RBUTTON, 308, 426 'select 6th color
481: QueMouseDn VK_LBUTTON, 194, 74 'Draw the squares.
482: QueMouseUp VK_LBUTTON, 170, 194
483: QueMouseDn VK_RBUTTON, 226, 74
484: QueMouseUp VK_RBUTTON, 202, 194
485: QueMouseClick VK_LBUTTON, 326, 426 'select 7th color
486: QueMouseClick VK_RBUTTON, 343, 426 'select 8th color
487: QueMouseDn VK_LBUTTON, 258, 74 'Draw the squares.
488: QueMouseUp VK_LBUTTON, 234, 194
489: QueMouseDn VK_RBUTTON, 10, 202
490: QueMouseUp VK_RBUTTON, 34, 322
491: QueMouseClick VK_LBUTTON, 360, 426 'select 9th color
492: QueMouseClick VK_RBUTTON, 377, 426 'select 10th color
493: QueMouseDn VK_LBUTTON, 42, 202 'Draw the squares.
494: QueMouseUp VK_LRBUTTON, 65, 322
495: QueMouseDn VK_RBUTTON, 74, 202
496: QueMouseUp VK_RBUTTON, 98, 322
497: QueMouseClick VK_LBUTTON, 394, 426 'select 11th color
498: QueMouseClick VK_RBUTTON, 410, 426 'select 12th color
499: QueMouseDn VK_LBUTTON, 122, 202 'Draw the squares.
500: QueMouseUp VK_LBUTTON, 146, 322
501: QueMouseDn VK_RBUTTON, 194, 202
502: QueMouseUp VK_RBUTTON, 170, 322
503: QueMouseClick VK_LBUTTON, 428, 426 'select 13th color
504: QueMouseClick VK_RBUTTON, 445, 426 'select 14th color
505: QueMouseDn VK_LBUTTON, 226, 202 'Draw the squares.
506: QueMouseUp VK_LBUTTON, 202, 322
507: QueMouseDn VK_RBUTTON, 258, 202
508: QueMouseUp VK_RBUTTON, 234, 322
509: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion:
510: QueKeys "{ESC}" 'field to a standerd number
511: QueMouseUp VK_LBUTTON, 110, 324
512: QueFlush 1
513: ProcessResults "bctest1.bmp", "IBitmapColor1", IBitmapColor1
514: END SUB
515:
516:
517: SUB BitmapColor2 STATIC
518: Bitmap32x32x16init
519: QueMouseClick VK_LBUTTON, 619, 165 'select Fill Square.
520: QueMouseClick VK_LBUTTON, 224, 444 'select 1st color
521: QueMouseClick VK_RBUTTON, 241, 444 'select 2nd color
522: QueMouseDn VK_LBUTTON, 10, 74 'Draw the squares.
523: QueMouseUp VK_LBUTTON, 34, 194
524: QueMouseDn VK_RBUTTON, 42, 74
525: QueMouseUp VK_RBUTTON, 65, 194
526: QueMouseClick VK_LBUTTON, 257, 444 'select 3rd color
527: QueMouseClick VK_RBUTTON, 274, 444 'select 4th color
528: QueMouseDn VK_LBUTTON, 74, 74 'Draw the squares.
529: QueMouseUp VK_LBUTTON, 98, 194
530: QueMouseDn VK_RBUTTON, 122, 74
531: QueMouseUp VK_RBUTTON, 146, 194
532: QueMouseClick VK_LBUTTON, 291, 444 'select 5th color
533: QueMouseClick VK_RBUTTON, 308, 444 'select 6th color
534: QueMouseDn VK_LBUTTON, 194, 74 'Draw the squares.
535: QueMouseUp VK_LBUTTON, 170, 194
536: QueMouseDn VK_RBUTTON, 226, 74
537: QueMouseUp VK_RBUTTON, 202, 194
538: QueMouseClick VK_LBUTTON, 326, 444 'select 7th color
539: QueMouseClick VK_RBUTTON, 343, 444 'select 8th color
540: QueMouseDn VK_LBUTTON, 258, 74 'Draw the squares.
541: QueMouseUp VK_LBUTTON, 234, 194
542: QueMouseDn VK_RBUTTON, 10, 202
543: QueMouseUp VK_RBUTTON, 34, 322
544: QueMouseClick VK_LBUTTON, 360, 444 'select 9th color
545: QueMouseClick VK_RBUTTON, 377, 444 'select 10th color
546: QueMouseDn VK_LBUTTON, 42, 202 'Draw the squares.
547: QueMouseUp VK_LRBUTTON, 65, 322
548: QueMouseDn VK_RBUTTON, 74, 202
549: QueMouseUp VK_RBUTTON, 98, 322
550: QueMouseClick VK_LBUTTON, 394, 444 'select 11th color
551: QueMouseClick VK_RBUTTON, 410, 444 'select 12th color
552: QueMouseDn VK_LBUTTON, 122, 202 'Draw the squares.
553: QueMouseUp VK_LBUTTON, 146, 322
554: QueMouseDn VK_RBUTTON, 194, 202
555: QueMouseUp VK_RBUTTON, 170, 322
556: QueMouseClick VK_LBUTTON, 428, 444 'select 13th color
557: QueMouseClick VK_RBUTTON, 445, 444 'select 14th color
558: QueMouseDn VK_LBUTTON, 226, 202 'Draw the squares.
559: QueMouseUp VK_LBUTTON, 202, 322
560: QueMouseDn VK_RBUTTON, 258, 202
561: QueMouseUp VK_RBUTTON, 234, 322
562: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion:
563: QueKeys "{ESC}" 'field to a standerd number
564: QueMouseUp VK_LBUTTON, 110, 324
565: QueFlush 1
566: ProcessResults "bctest2.bmp", "IBitmapColor2", IBitmapColor2
567: END SUB
568:
569:
570: SUB BitmapMono1 STATIC
571: WSetWndSiz WinHandle, 635 ,365
572: PaletteShow( "ON" ) 'Turn On the Color Palette
573: PlacePalette 105, 370
574: QueMouseClick VK_LBUTTON, 195, 10
575: QueFlush 1
576: DoKeys "%Fn" 'Open new file
577: WOptionClick("&Bitmap") 'select Bitmap
578: WbuttonClick "OK"
579: DoKeys "%w32" 'select a 16x16 bit 16 color map
580: DoKeys "%h32"
581: DoKeys "%c"
582: WOptionClick( "2 Color (Monochrome)")
583: WbuttonClick "OK"
584: PlaceViewWindow("32x32")
585: QueMouseClick VK_LBUTTON, 619, 165 'select fill rectangel tool
586: QueMouseClick VK_LBUTTON, 224, 426 'select 1st shade
587: QueMouseClick VK_RBUTTON, 241, 426 'select 2nd shade
588: QueMouseDn VK_LBUTTON, 10, 74 'Draw the squares.
589: QueMouseUp VK_LBUTTON, 34, 194
590: QueMouseDn VK_RBUTTON, 42, 74
591: QueMouseUp VK_RBUTTON, 65, 194
592: QueMouseClick VK_LBUTTON, 257, 426 'select 3rd shade
593: QueMouseClick VK_RBUTTON, 274, 426 'select 4th shade
594: QueMouseDn VK_LBUTTON, 74, 74 'Draw the squares.
595: QueMouseUp VK_LBUTTON, 98, 194
596: QueMouseDn VK_RBUTTON, 122, 74
597: QueMouseUp VK_RBUTTON, 146, 194
598: QueMouseClick VK_LBUTTON, 291, 426 'select 5th shade
599: QueMouseClick VK_RBUTTON, 308, 426 'select 6th shade
600: QueMouseDn VK_LBUTTON, 194, 74 'Draw the squares.
601: QueMouseUp VK_LBUTTON, 170, 194
602: QueMouseDn VK_RBUTTON, 226, 74
603: QueMouseUp VK_RBUTTON, 202, 194
604: QueMouseClick VK_LBUTTON, 326, 426 'select 7th shade
605: QueMouseClick VK_RBUTTON, 343, 426 'select 8th shade
606: QueMouseDn VK_LBUTTON, 258, 74 'Draw the squares.
607: QueMouseUp VK_LBUTTON, 234, 194
608: QueMouseDn VK_RBUTTON, 10, 202
609: QueMouseUp VK_RBUTTON, 34, 322
610: QueMouseClick VK_LBUTTON, 360, 426 'select 9th shade
611: QueMouseClick VK_RBUTTON, 377, 426 'select 10th shade
612: QueMouseDn VK_LBUTTON, 42, 202 'Draw the squares.
613: QueMouseUp VK_LRBUTTON, 65, 322
614: QueMouseDn VK_RBUTTON, 74, 202
615: QueMouseUp VK_RBUTTON, 98, 322
616: QueMouseClick VK_LBUTTON, 394, 426 'select 11th shade
617: QueMouseClick VK_RBUTTON, 410, 426 'select 12th shade
618: QueMouseDn VK_LBUTTON, 122, 202 'Draw the squares.
619: QueMouseUp VK_LBUTTON, 146, 322
620: QueMouseDn VK_RBUTTON, 194, 202
621: QueMouseUp VK_RBUTTON, 170, 322
622: QueMouseClick VK_LBUTTON, 428, 426 'select 13th shade
623: QueMouseClick VK_RBUTTON, 445, 426 'select 14th shade
624: QueMouseDn VK_LBUTTON, 226, 202 'Draw the squares.
625: QueMouseUp VK_LBUTTON, 202, 322
626: QueMouseDn VK_RBUTTON, 258, 202
627: QueMouseUp VK_RBUTTON, 234, 322
628: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion:
629: QueKeys "{ESC}" 'field to a standerd number
630: QueMouseUp VK_LBUTTON, 110, 324
631: QueFlush 1
632: ProcessResults "bmtest1.bmp", "BitmapMono1", IBitmapMono1
633: END SUB
634:
635:
636: SUB BitmapMono2 STATIC
637:
638: WSetWndSiz WinHandle, 635 ,365
639: PaletteShow( "ON" ) 'Turn off the Color Palette
640: PlacePalette 105, 370
641: QueMouseClick VK_LBUTTON, 195, 10
642: QueFlush 1
643: DoKeys "%Fn" 'Open new file
644: WOptionClick("&Bitmap") 'select Bitmap
645: WbuttonClick "OK"
646: DoKeys "%w32" 'select a 16x16 bit 16 color map
647: DoKeys "%h32"
648: DoKeys "%c"
649: WOptionClick( "2 Color (Monochrome)" )
650: WbuttonClick "OK"
651: PlaceViewWindow("32x32")
652: QueMouseClick VK_LBUTTON, 619, 165 'select Fill Square.
653: QueMouseClick VK_LBUTTON, 224, 444 'select 1st shade
654: QueMouseClick VK_RBUTTON, 241, 444 'select 2nd shade
655: QueMouseDn VK_LBUTTON, 10, 74 'Draw the squares.
656: QueMouseUp VK_LBUTTON, 34, 194
657: QueMouseDn VK_RBUTTON, 42, 74
658: QueMouseUp VK_RBUTTON, 65, 194
659: QueMouseClick VK_LBUTTON, 257, 444 'select 3rd shade
660: QueMouseClick VK_RBUTTON, 274, 444 'select 4th shade
661: QueMouseDn VK_LBUTTON, 74, 74 'Draw the squares.
662: QueMouseUp VK_LBUTTON, 98, 194
663: QueMouseDn VK_RBUTTON, 122, 74
664: QueMouseUp VK_RBUTTON, 146, 194
665: QueMouseClick VK_LBUTTON, 291, 444 'select 5th shade
666: QueMouseClick VK_RBUTTON, 308, 444 'select 6th shade
667: QueMouseDn VK_LBUTTON, 194, 74 'Draw the squares.
668: QueMouseUp VK_LBUTTON, 170, 194
669: QueMouseDn VK_RBUTTON, 226, 74
670: QueMouseUp VK_RBUTTON, 202, 194
671: QueMouseClick VK_LBUTTON, 326, 444 'select 7th shade
672: QueMouseClick VK_RBUTTON, 343, 444 'select 8th shade
673: QueMouseDn VK_LBUTTON, 258, 74 'Draw the squares.
674: QueMouseUp VK_LBUTTON, 234, 194
675: QueMouseDn VK_RBUTTON, 10, 202
676: QueMouseUp VK_RBUTTON, 34, 322
677: QueMouseClick VK_LBUTTON, 360, 444 'select 9th shade
678: QueMouseClick VK_RBUTTON, 377, 444 'select 10th shade
679: QueMouseDn VK_LBUTTON, 42, 202 'Draw the squares.
680: QueMouseUp VK_LRBUTTON, 65, 322
681: QueMouseDn VK_RBUTTON, 74, 202
682: QueMouseUp VK_RBUTTON, 98, 322
683: QueMouseClick VK_LBUTTON, 394, 444 'select 11th shade
684: QueMouseClick VK_RBUTTON, 410, 444 'select 12th shade
685: QueMouseDn VK_LBUTTON, 122, 202 'Draw the squares.
686: QueMouseUp VK_LBUTTON, 146, 322
687: QueMouseDn VK_RBUTTON, 194, 202
688: QueMouseUp VK_RBUTTON, 170, 322
689: QueMouseClick VK_LBUTTON, 428, 444 'select 13th shade
690: QueMouseClick VK_RBUTTON, 445, 444 'select 14th shade
691: QueMouseDn VK_LBUTTON, 226, 202 'Draw the squares.
692: QueMouseUp VK_LBUTTON, 202, 322
693: QueMouseDn VK_RBUTTON, 258, 202
694: QueMouseUp VK_RBUTTON, 234, 322
695: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion:
696: QueKeys "{ESC}" 'field to a standerd number
697: QueMouseUp VK_LBUTTON, 110, 324
698: QueFlush 1
699: ProcessResults "bmtest2.bmp", "IBitmapMono2", IBitmapMono2
700: END SUB
701:
702:
703: SUB CursorMono1 STATIC
704: WSetWndSiz WinHandle, 635 ,365
705: PaletteShow( "ON" ) 'Turn off the Color Palette
706: PlacePalette 105, 370
707: QueMouseClick VK_LBUTTON, 195, 10
708: QueFlush 1
709: DoKeys "%Fn" 'Open new file
710: WOptionClick("&Cursor") 'select Coursor
711: WbuttonClick "OK"
712: WListItemClkT "&Target Device:", "VGA-Mono 2-Color 32x32"
713: WbuttonClick "OK"
714: PlaceViewWindow("32x32")
715: SetBrushSize("3x3")
716: QueMouseClick VK_LBUTTON, 360, 426 'Set screen and inverse colors to
717: QueMouseClick VK_LBUTTON, 611, 321 'gray shades
718: QueMouseClick VK_LBUTTON, 619, 191 'select fill circle.
719: QueMouseClick VK_LBUTTON, 223,442 'Left button black
720: QueMouseClick VK_RBUTTON, 223, 426 'Right button white
721: QueMouseDn VK_LBUTTON, 258, 74 'Draw first circle
722: QueMouseUp VK_LBUTTON, 10, 322
723: QueMouseDn VK_RBUTTON, 218, 114 'Draw second circle
724: QueMouseUp VK_RBUTTON, 50, 282
725: QueMouseDn VK_LBUTTON, 178, 154 'Draw thrid circle
726: QueMouseUp VK_LBUTTON, 90, 242
727: QueMouseClick VK_LBUTTON, 591, 219 'select fill tool.
728: QueMouseClick VK_LBUTTON, 190, 426 'Left button Screen
729: QueMouseClick VK_RBUTTON, 190, 442 'Right Inverse
730: QueMouseClick VK_LBUTTON, 18, 82 'Fill corners
731: QueMouseClick VK_LBUTTON, 249, 82
732: QueMouseClick VK_LBUTTON, 18, 314
733: QueMouseClick VK_LBUTTON, 249, 314
734: QueMouseClick VK_RBUTTON, 134, 198 'Fill innermost circle
735: QueMouseClick VK_LBUTTON, 619, 191 'select fill circle.
736: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion:
737: QueKeys "{ESC}" 'field to a standerd number
738: QueMouseUp VK_LBUTTON, 110, 324
739: QueMouseClick VK_LBUTTON, 591, 219 'select fill tool.
740: QueFlush 1
741: DoKeys "{F10}"
742: ProcessResults "cmtest1.cur", "CursorMono1", ICursorMono1
743: END SUB
744:
745:
746: SUB CursorColor1 STATIC
747: WSetWndSiz WinHandle, 635 ,365
748: PaletteShow( "ON" ) 'Turn off the color palette
749: PlacePalette 105, 370
750: QueMouseClick VK_LBUTTON, 195, 10
751: QueFlush 1
752: DoKeys "%Fn" 'Open new file
753: WOptionClick("&Cursor") 'select bitmap
754: WbuttonClick "OK"
755: WListItemClkT "&Target Device:", "VGA 16-Color 32x32"
756: WbuttonClick "OK"
757: PlaceViewWindow("32x32")
758: SetBrushSize("3x3")
759: QueMouseClick VK_LBUTTON, 241, 426 'Set screen and inverse colors to
760: QueMouseClick VK_LBUTTON, 611, 321 'gray shades
761: QueMouseClick VK_LBUTTON, 619, 191 'select fill circle.
762: QueMouseClick VK_LBUTTON, 258,426 'Left button red
763: QueMouseClick VK_RBUTTON, 275, 426 'Right button yellow
764: QueMouseDn VK_LBUTTON, 258, 74 'Draw first circle
765: QueMouseUp VK_LBUTTON, 10, 322
766: QueMouseDn VK_RBUTTON, 218, 114 'Draw second circle
767: QueMouseUp VK_RBUTTON, 50, 282
768: QueMouseDn VK_LBUTTON, 178, 154 'Draw thrid circle
769: QueMouseUp VK_LBUTTON, 90, 242
770: QueMouseClick VK_LBUTTON, 591, 219 'select fill tool.
771: QueMouseClick VK_LBUTTON, 190, 426 'Left button Screen
772: QueMouseClick VK_RBUTTON, 190, 442 'Right Inverse
773: QueMouseClick VK_LBUTTON, 18, 82 'Fill corners
774: QueMouseClick VK_LBUTTON, 249, 82
775: QueMouseClick VK_LBUTTON, 18, 314
776: QueMouseClick VK_LBUTTON, 249, 314
777: QueMouseClick VK_RBUTTON, 134, 198 'Fill innermost circle
778: QueMouseClick VK_LBUTTON, 619, 191 'select fill circle.
779: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion:
780: QueKeys "{ESC}" 'field to a standerd number
781: QueMouseUp VK_LBUTTON, 110, 324
782: QueMouseClick VK_LBUTTON, 591, 219 'select fill tool.
783: QueFlush 1
784: DoKeys "{F10}"
785: ProcessResults "cctest1.cur", "CursorColor1", ICursorColor1
786: END SUB
787:
788:
789: SUB IconColor1 STATIC
790: WSetWndSiz WinHandle, 635 ,365
791: PaletteShow( "ON" ) 'Turn off the color palette
792: PlacePalette 105, 370
793: QueMouseClick VK_LBUTTON, 195, 10
794: QueFlush 1
795: DoKeys "%Fn" 'Open new file
796: WOptionClick("&Icon") 'select icon
797: WbuttonClick "OK"
798: WListItemClkT "&Target Device:", "EGA/VGA 16-Color 32x32"
799: WbuttonClick "OK"
800: PlaceViewWindow("32x32")
801: SetBrushSize("3x3")
802: QueMouseClick VK_LBUTTON, 241, 426 'Set screen and inverse colors to
803: QueMouseClick VK_LBUTTON, 611, 321 'gray shades
804: QueMouseClick VK_LBUTTON, 619, 165 'select fill rectangel tool
805: QueMouseClick VK_LBUTTON, 224, 426 'select 1st color
806: QueMouseClick VK_RBUTTON, 241, 426 'select 2nd color
807: QueMouseDn VK_LBUTTON, 10, 74 'Draw the squares.
808: QueMouseUp VK_LBUTTON, 34, 194
809: QueMouseDn VK_RBUTTON, 42, 74
810: QueMouseUp VK_RBUTTON, 65, 194
811: QueMouseClick VK_LBUTTON, 257, 426 'select 3rd color
812: QueMouseClick VK_RBUTTON, 274, 426 'select 4th color
813: QueMouseDn VK_LBUTTON, 74, 74 'Draw the squares.
814: QueMouseUp VK_LBUTTON, 98, 194
815: QueMouseDn VK_RBUTTON, 122, 74
816: QueMouseUp VK_RBUTTON, 146, 194
817: QueMouseClick VK_LBUTTON, 291, 426 'select 5th color
818: QueMouseClick VK_RBUTTON, 308, 426 'select 6th color
819: QueMouseDn VK_LBUTTON, 194, 74 'Draw the squares.
820: QueMouseUp VK_LBUTTON, 170, 194
821: QueMouseDn VK_RBUTTON, 226, 74
822: QueMouseUp VK_RBUTTON, 202, 194
823: QueMouseClick VK_LBUTTON, 326, 426 'select 7th color
824: QueMouseClick VK_RBUTTON, 343, 426 'select 8th color
825: QueMouseDn VK_LBUTTON, 258, 74 'Draw the squares.
826: QueMouseUp VK_LBUTTON, 234, 194
827: QueMouseDn VK_RBUTTON, 10, 202
828: QueMouseUp VK_RBUTTON, 34, 322
829: QueMouseClick VK_LBUTTON, 360, 426 'select 9th color
830: QueMouseClick VK_RBUTTON, 377, 426 'select 10th color
831: QueMouseDn VK_LBUTTON, 42, 202 'Draw the squares.
832: QueMouseUp VK_LRBUTTON, 65, 322
833: QueMouseDn VK_RBUTTON, 74, 202
834: QueMouseUp VK_RBUTTON, 98, 322
835: QueMouseClick VK_LBUTTON, 394, 426 'select 11th color
836: QueMouseClick VK_RBUTTON, 410, 426 'select 12th color
837: QueMouseDn VK_LBUTTON, 122, 202 'Draw the squares.
838: QueMouseUp VK_LBUTTON, 146, 322
839: QueMouseDn VK_RBUTTON, 194, 202
840: QueMouseUp VK_RBUTTON, 170, 322
841: QueMouseClick VK_LBUTTON, 428, 426 'select 13th color
842: QueMouseClick VK_RBUTTON, 445, 426 'select 14th color
843: QueMouseDn VK_LBUTTON, 226, 202 'Draw the squares.
844: QueMouseUp VK_LBUTTON, 202, 322
845: QueMouseDn VK_RBUTTON, 258, 202
846: QueMouseUp VK_RBUTTON, 234, 322
847: QueMouseClick VK_LBUTTON, 619, 191 'select Fill Circle.
848: QueMouseClick VK_LBUTTON, 190, 426 'Left Screen
849: QueMouseDn VK_LBUTTON, 250, 114 'Draw the circle
850: QueMouseUp VK_LBUTTON, 18,282
851: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion:
852: QueKeys "{ESC}" 'field to a standerd number
853: QueMouseUp VK_LBUTTON, 110, 324
854: QueFlush 1
855: ProcessResults "ictest1.ico", "IconColor1", IIconColor1
856: END SUB
857:
858:
859: SUB IconColor2 STATIC
860: WSetWndSiz WinHandle, 635 ,365
861: PaletteShow( "ON" ) 'Turn off the color palette
862: PlacePalette 105, 370
863: QueMouseClick VK_LBUTTON, 195, 10
864: QueFlush 1
865: DoKeys "%Fn" 'Open new file
866: WOptionClick("&Icon") 'Select bitmap
867: WbuttonClick "OK"
868: WListItemClkT "&Target Device:", "EGA/VGA 16-Color 32x32"
869: WbuttonClick "OK"
870: PlaceViewWindow("32x32")
871: SetBrushSize("3x3")
872: QueMouseClick VK_LBUTTON, 241, 426 'Set screen and inverse colors to
873: QueMouseClick VK_LBUTTON, 611, 321 'gray shades
874: QueMouseClick VK_LBUTTON, 619, 165 'select Fill Square.
875: QueMouseClick VK_LBUTTON, 224, 444 'select 1st color
876: QueMouseClick VK_RBUTTON, 241, 444 'select 2nd color
877: QueMouseDn VK_LBUTTON, 10, 74 'Draw the squares.
878: QueMouseUp VK_LBUTTON, 34, 194
879: QueMouseDn VK_RBUTTON, 42, 74
880: QueMouseUp VK_RBUTTON, 65, 194
881: QueMouseClick VK_LBUTTON, 257, 444 'select 3rd color
882: QueMouseClick VK_RBUTTON, 274, 444 'select 4th color
883: QueMouseDn VK_LBUTTON, 74, 74 'Draw the squares.
884: QueMouseUp VK_LBUTTON, 98, 194
885: QueMouseDn VK_RBUTTON, 122, 74
886: QueMouseUp VK_RBUTTON, 146, 194
887: QueMouseClick VK_LBUTTON, 291, 444 'select 5th color
888: QueMouseClick VK_RBUTTON, 308, 444 'select 6th color
889: QueMouseDn VK_LBUTTON, 194, 74 'Draw the squares.
890: QueMouseUp VK_LBUTTON, 170, 194
891: QueMouseDn VK_RBUTTON, 226, 74
892: QueMouseUp VK_RBUTTON, 202, 194
893: QueMouseClick VK_LBUTTON, 326, 444 'select 7th color
894: QueMouseClick VK_RBUTTON, 343, 444 'select 8th color
895: QueMouseDn VK_LBUTTON, 258, 74 'Draw the squares.
896: QueMouseUp VK_LBUTTON, 234, 194
897: QueMouseDn VK_RBUTTON, 10, 202
898: QueMouseUp VK_RBUTTON, 34, 322
899: QueMouseClick VK_LBUTTON, 360, 444 'select 9th color
900: QueMouseClick VK_RBUTTON, 377, 444 'select 10th color
901: QueMouseDn VK_LBUTTON, 42, 202 'Draw the squares.
902: QueMouseUp VK_LRBUTTON, 65, 322
903: QueMouseDn VK_RBUTTON, 74, 202
904: QueMouseUp VK_RBUTTON, 98, 322
905: QueMouseClick VK_LBUTTON, 394, 444 'select 11th color
906: QueMouseClick VK_RBUTTON, 410, 444 'select 12th color
907: QueMouseDn VK_LBUTTON, 122, 202 'Draw the squares.
908: QueMouseUp VK_LBUTTON, 146, 322
909: QueMouseDn VK_RBUTTON, 194, 202
910: QueMouseUp VK_RBUTTON, 170, 322
911: QueMouseClick VK_LBUTTON, 428, 444 'select 13th color
912: QueMouseClick VK_RBUTTON, 445, 444 'select 14th color
913: QueMouseDn VK_LBUTTON, 226, 202 'Draw the squares.
914: QueMouseUp VK_LBUTTON, 202, 322
915: QueMouseDn VK_RBUTTON, 258, 202
916: QueMouseUp VK_RBUTTON, 234, 322
917: QueMouseClick VK_LBUTTON, 619, 191 'Select fill circle.
918: QueMouseClick VK_LBUTTON, 190, 442 'Left inverse
919: QueMouseDn VK_LBUTTON, 250, 114 'Draw circle
920: QueMouseUp VK_LBUTTON, 18,282
921: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion:
922: QueKeys "{ESC}" 'field to a standerd number
923: QueMouseUp VK_LBUTTON, 110, 324
924: QueFlush 1
925: ProcessResults "ictest2.ico", "IconColor2", IIconColor2
926: END SUB
927:
928:
929: SUB IconColor3 STATIC
930: WSetWndSiz WinHandle, 635 ,365
931: PaletteShow( "ON" ) 'Turn off the color palette
932: PlacePalette 105, 370
933: QueMouseClick VK_LBUTTON, 195, 10
934: QueFlush 1
935: DoKeys "%Fn" 'Open new file
936: WOptionClick("&Icon") 'Select icon
937: WbuttonClick "OK"
938: WListItemClkT "&Target Device:", "Monochrome 2-Color 32x32"
939: WbuttonClick "OK"
940: PlaceViewWindow("32x32")
941: SetBrushSize("3x3")
942: QueMouseClick VK_LBUTTON, 360, 426 'Set screen and inverse colors to
943: QueMouseClick VK_LBUTTON, 611, 321 'gray shades
944: QueMouseClick VK_LBUTTON, 619, 191 'select fill circle.
945: QueMouseClick VK_LBUTTON, 223,442 'Left button black
946: QueMouseClick VK_RBUTTON, 223, 426 'Right button white
947: QueMouseDn VK_LBUTTON, 258, 74 'Draw first circle
948: QueMouseUp VK_LBUTTON, 10, 322
949: QueMouseDn VK_RBUTTON, 218, 114 'Draw second circle
950: QueMouseUp VK_RBUTTON, 50, 282
951: QueMouseDn VK_LBUTTON, 178, 154 'Draw thrid circle
952: QueMouseUp VK_LBUTTON, 90, 242
953: QueMouseClick VK_LBUTTON, 591, 219 'select fill tool.
954: QueMouseClick VK_LBUTTON, 190, 426 'Left button screen
955: QueMouseClick VK_RBUTTON, 190, 442 'Right button inverse
956: QueMouseClick VK_LBUTTON, 18, 82 'Fill corners
957: QueMouseClick VK_LBUTTON, 249, 82
958: QueMouseClick VK_LBUTTON, 18, 314
959: QueMouseClick VK_LBUTTON, 249, 314
960: QueMouseClick VK_RBUTTON, 134, 198 'Fill innermost circle
961: QueMouseClick VK_LBUTTON, 619, 191 'Select fill circle.
962: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion:
963: QueKeys "{ESC}" 'field to a standerd number
964: QueMouseUp VK_LBUTTON, 110, 324
965: QueMouseClick VK_LBUTTON, 591, 219 'select fill tool.
966: QueFlush 1
967: DoKeys "{F10}"
968: ProcessResults "imtest3.ico", "IconColor3", IIconColor3
969: END SUB
970:
971:
972: SUB IconColor4 STATIC
973: WSetWndSiz WinHandle, 635 ,365
974: PaletteShow( "ON" ) 'Turn off the color palette
975: PlacePalette 105, 370
976: QueMouseClick VK_LBUTTON, 195, 10
977: QueFlush 1
978: DoKeys "%Fn" 'Open new file
979: WOptionClick("&Icon") 'Select Icon
980: WbuttonClick "OK"
981: WListItemClkT "&Target Device:", "CGA 2-Color 32x16"
982: WbuttonClick "OK"
983: PlaceViewWindow("32x32")
984: SetBrushSize("3x3")
985: QueMouseClick VK_LBUTTON, 360, 426 'Set screen and inverse colors to
986: QueMouseClick VK_LBUTTON, 611, 321 'gray shades
987: QueMouseClick VK_LBUTTON, 619, 191 'Select Fill Circle.
988: QueMouseClick VK_LBUTTON, 223,442 'Left button black
989: QueMouseClick VK_RBUTTON, 223, 426 'Right button white
990: QueMouseDn VK_LBUTTON, 15, 334 'Draw first circle
991: QueMouseUp VK_LBUTTON, 542, 78
992: QueMouseDn VK_RBUTTON, 54, 284 'Draw second circle
993: QueMouseUp VK_RBUTTON, 491, 130
994: QueMouseDn VK_LBUTTON, 117, 233 'Draw thrid circle
995: QueMouseUp VK_LBUTTON, 442, 182
996: QueMouseClick VK_LBUTTON, 591, 219 'Select fill tool.
997: QueMouseClick VK_LBUTTON, 190, 426 'Left button screen
998: QueMouseClick VK_RBUTTON, 190, 442 'Right button inverse
999: QueMouseClick VK_LBUTTON, 15, 78 'Fill corners
1000: QueMouseClick VK_LBUTTON, 15, 334
1001: QueMouseClick VK_LBUTTON, 542, 78
1002: QueMouseClick VK_LBUTTON, 542, 334
1003: QueMouseClick VK_RBUTTON, 278, 206 'Fill innermost circle
1004: QueMouseClick VK_LBUTTON, 619, 191 'Choose Fill Circle.
1005: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion:
1006: QueKeys "{ESC}" 'field to a standerd number
1007: QueMouseUp VK_LBUTTON, 110, 324
1008: QueMouseClick VK_LBUTTON, 591, 219 'select fill tool.
1009: QueFlush 1
1010: DoKeys "{F10}"
1011: ProcessResults "iCGAtst4.ico", "IconColor4", IIconColor4
1012: END SUB
1013:
1014:
1015: SUB BitmapSTool STATIC
1016: ToolTest "2x2"
1017: DoKeys "{F10}"
1018: ProcessResults "bstool.bmp", "BitmapSTool", IBitmapSTool
1019: End Sub
1020:
1021:
1022: SUB BitmapMTool STATIC
1023: ToolTest "3x3"
1024: DoKeys "{F10}"
1025: ProcessResults "bmtool.bmp", "BitmapMTool", IBitmapMTool
1026: End Sub
1027:
1028:
1029: SUB BitmapLTool STATIC
1030: ToolTest "4x4"
1031: DoKeys "{F10}"
1032: ProcessResults "bltool.bmp", "BitmapLTool", IBitmapLTool
1033: End Sub
1034:
1035:
1036: SUB BitmapXLTool STATIC
1037: ToolTest "5x5"
1038: DoKeys "{F10}"
1039: ProcessResults "bXLtool.bmp", "BitmapXLTool", IBitmapXLTool
1040: End Sub
1041:
1042:
1043: SUB IconSTool STATIC
1044: IToolTest "2x2"
1045: DoKeys "{F10}"
1046: ProcessResults "istool.ico", "IconSTool", IIconSTool
1047: End Sub
1048:
1049:
1050: SUB IconMTool STATIC
1051: IToolTest "3x3"
1052: DoKeys "{F10}"
1053: ProcessResults "imtool.ico", "IconMTool", IIconMTool
1054: End Sub
1055:
1056:
1057: SUB IconLTool STATIC
1058: IToolTest "4x4"
1059: DoKeys "{F10}"
1060: ProcessResults "iLtool.ico", "IconLTool", IIconLTool
1061: End Sub
1062:
1063:
1064: SUB IconXLTool STATIC
1065: IToolTest "5x5"
1066: DoKeys "{F10}"
1067: ProcessResults "iXLtool.ico", "IconXLTool", IIconXLTool
1068: End Sub
1069:
1070:
1071: SUB IdBitmapTool STATIC
1072: Bitmap32x32x16init
1073: WSetWndSiz WinHandle, 635 ,365
1074: QueMouseClick VK_LBUTTON, 618, 165 'Select the fill square
1075: QueMouseClick VK_LBUTTON, 343, 426 'Select purple
1076: QueMouseClick VK_RBUTTON, 309, 426 'Select blue
1077: QueMouseDn VK_LBUTTON, 26, 90 'Draws a square
1078: QueMouseUp VK_LBUTTON, 114, 178
1079: QueMouseClick VK_LBUTTON, 618, 192 'Select the fill circle.
1080: QueMouseDn VK_RBUTTON, 114, 218 'Draws a circle
1081: QueMouseUp VK_RBUTTON, 26, 306
1082: QueMouseClick VK_LBUTTON, 292, 426 'Select green
1083: QueMouseClick VK_RBUTTON, 275, 426 'Select yellow
1084: QueMouseClick VK_LBUTTON, 590, 220 'Select the fill tool
1085: QueMouseClick VK_RBUTTON, 106, 314 'Fill background
1086: QueMouseClick VK_LBUTTON, 591, 113 'Select the pen
1087: QueMouseDn VK_LBUTTON, 130, 234 'Draw half circle
1088: QueMouseMove 98, 202
1089: QueMouseMove 42, 202
1090: QueMouseUp VK_LBUTTON, 10, 234
1091: QueMouseClick VK_LBUTTON, 590, 138 'Select the surround box.
1092: QueMouseDn VK_LBUTTON, 10, 74 'Surrond right half of screen
1093: QueMouseUp VK_LBUTTON, 130, 322 'and put on clipboard
1094: QueKeys "%EC"
1095: QueMouseDn VK_LBUTTON, 154, 90 'Paste, shrink and verify
1096: QueMouseUp VK_LBUTTON, 242, 306
1097: QueKeys "%EP"
1098: QueFlush 1
1099: WOptionClick("Stretch/shrink clipboard bitmap?")
1100: WbuttonClick "OK"
1101: ProcessResults "", "IdBitmapToolA", IIdBitmapToolA
1102: QueKeys "%EU"
1103: QueMouseDn VK_LBUTTON, 10, 74
1104: QueMouseUp VK_LBUTTON, 130, 322
1105: QueKeys "%EC"
1106: QueMouseDn VK_LBUTTON, 154, 90 'Paste, cuttoff and verify
1107: QueMouseUp VK_LBUTTON, 242, 306
1108: QueKeys "%EP"
1109: QueFlush 1
1110: WOptionClick("Clip clipboard bitmap?")
1111: WbuttonClick "OK"
1112: ProcessResults "", "IdBitmapToolB", IIdBitmapToolB
1113: QueKeys "%EU"
1114: QueMouseDn VK_LBUTTON, 10, 74
1115: QueMouseUp VK_LBUTTON, 130, 322
1116: QueKeys "%EC"
1117: QueMouseDn VK_LBUTTON, 138, 74 'Paste and verify
1118: QueMouseUp VK_LBUTTON, 258, 322
1119: QueKeys "%EP"
1120: QueMouseDn VK_LBUTTON, 110, 314
1121: QueKeys "{ESC}"
1122: QueMouseUp VK_LBUTTON, 110, 324
1123: QueFlush 1
1124: ProcessResults "idtool.bmp", "IdBitmapToolC", IIdBitmapToolC
1125: End Sub
1126:
1127: SUB IdIconTool STATIC
1128: WSetWndSiz WinHandle, 635 ,365
1129: PaletteShow( "ON" ) 'Turn on the color palette
1130: PlacePalette 105, 370
1131: QueMouseClick VK_LBUTTON, 195, 10
1132: QueFlush 1
1133: DoKeys "%Fn" 'Open new file
1134: WOptionClick("&Icon") 'Select Icon
1135: WbuttonClick "OK"
1136: WListItemClkT "&Target Device:", "CGA 2-Color 32x16"
1137: WbuttonClick "OK"
1138: PlaceViewWindow("32x32")
1139: SetBrushSize( "3x3" )
1140: QueMouseClick VK_LBUTTON, 360, 426 'Set screen and inverse colors to
1141: QueMouseClick VK_LBUTTON, 611, 321 'gray shades
1142: QueMouseClick VK_LBUTTON, 618, 165 'Select the fill square
1143: QueMouseClick VK_LBUTTON, 224, 442 'Select black
1144: QueMouseClick VK_RBUTTON, 190, 442 'Select screen
1145: QueMouseDn VK_LBUTTON, 32, 79 'Draw a square
1146: QueMouseUp VK_LBUTTON, 254, 164
1147: QueMouseClick VK_LBUTTON, 618, 192 'Select fill circle.
1148: QueMouseDn VK_LBUTTON, 30, 232 'Draws a circle
1149: QueMouseUp VK_LBUTTON, 253, 334
1150: QueMouseClick VK_LBUTTON, 590, 220 'Select the fill tool
1151: QueMouseClick VK_RBUTTON, 287, 333
1152: QueMouseClick VK_LBUTTON, 591, 113 'Select the pen
1153: QueMouseDn VK_LBUTTON, 271, 233 'Draw half circle
1154: QueMouseMove 237, 199
1155: QueMouseMove 49, 198
1156: QueMouseUp VK_LBUTTON, 14, 232
1157: QueMouseClick VK_LBUTTON, 590, 138 'Select the surround box.
1158: QueMouseDn VK_LBUTTON, 14, 79 'Surrond right half of screen
1159: QueMouseUp VK_LBUTTON, 270, 334 'and put on clipboard
1160: QueKeys "%EC"
1161: QueMouseDn VK_LBUTTON, 304, 97 'Paste, shrink and verify
1162: QueMouseUp VK_LBUTTON, 525, 318
1163: QueKeys "%EP"
1164: QueFlush 1
1165: WOptionClick("Stretch/shrink clipboard bitmap?")
1166: WbuttonClick "OK"
1167: ProcessResults "", "IdIconToolA", IIdIconToolA
1168: QueKeys "%EU"
1169: QueMouseDn VK_LBUTTON, 14, 79
1170: QueMouseUp VK_LBUTTON, 270, 334
1171: QueKeys "%EC"
1172: QueMouseDn VK_LBUTTON, 304, 97 'Paste, cuttoff and verify
1173: QueMouseUp VK_LBUTTON, 525, 318
1174: QueKeys "%EP"
1175: QueFlush 1
1176: WOptionClick("Clip clipboard bitmap?")
1177: WbuttonClick "OK"
1178: ProcessResults "", "IdIconToolB", IIdIconToolB
1179: QueKeys "%EU"
1180: QueMouseDn VK_LBUTTON, 14, 79
1181: QueMouseUp VK_LBUTTON, 270, 334
1182: QueKeys "%EC"
1183: QueMouseDn VK_LBUTTON, 287, 79 'Paste and verify
1184: QueMouseUp VK_LBUTTON,542, 335
1185: QueKeys "%EP"
1186: QueMouseDn VK_LBUTTON, 110, 314
1187: QueKeys "{ESC}"
1188: QueMouseUp VK_LBUTTON, 110, 324
1189: QueFlush 1
1190: ProcessResults "idtool.ico", "IdIconToolC", IIdIconToolC
1191: End Sub
1192:
1193:
1194: Sub Undo STATIC
1195: Bitmap32x32x16init
1196: QueMouseClick VK_LBUTTON, 618, 111 'Select the Brush
1197: QueMouseClick VK_LBUTTON, 257, 426 'Select red
1198: QueMouseClick VK_RBUTTON, 309, 426 'Select light blue
1199: QueMouseDn VK_RBUTTON, 136, 78
1200: QueMouseUp VK_RBUUTON, 136, 319
1201: QueMouseDn VK_RBUTTON, 10, 200
1202: QueMouseUp VK_RBUUTON, 258, 200
1203: QueMouseClick VK_LBUTTON, 618, 138 'Select the line
1204: QueMouseDn VK_RBUTTON, 10, 74
1205: QueMouseUp VK_RBUTTON, 258, 323
1206: QueMouseDn VK_RBUTTON, 258, 75
1207: QueMouseUp VK_RBUTTON, 10, 323
1208: 'Begin
1209: QueMouseClick VK_LBUTTON, 591, 113 'Select the pen
1210: QueMouseDn VK_LBUTTON, 130, 234
1211: QueMouseMove 98, 202
1212: QueMouseMove 42, 202
1213: QueMouseUp VK_LBUTTON, 10, 234
1214: QueKeys "%EU"
1215: QueMouseClick VK_LBUTTON, 618, 111 'Select the Brush
1216: QueMouseDn VK_LBUTTON, 10, 200
1217: QueMouseUp VK_RBUUTON, 258, 200
1218: QueKeys "%EU"
1219: QueMouseClick VK_LBUTTON, 618, 138 'Select the line
1220: QueMouseDn VK_LBUTTON, 10, 74
1221: QueMouseUp VK_LBUTTON, 258, 323
1222: QuePause 200
1223: QueKeys "%EU"
1224: QueMouseClick VK_LBUTTON, 591, 165 'Select the line square
1225: QueMouseDn VK_LBUTTON, 26, 90
1226: QueMouseUp VK_LBUTTON, 114, 178
1227: QuePause 200
1228: QueKeys "%EU"
1229: QueMouseClick VK_LBUTTON, 618, 165 'Select the fill square
1230: QueMouseDn VK_LBUTTON, 26, 90
1231: QueMouseUp VK_LBUTTON, 114, 178
1232: QuePause 200
1233: QueKeys "%EU"
1234: QueMouseClick VK_LBUTTON, 591, 192 'Select the line circle.
1235: QueMouseDn VK_LBUTTON, 114, 218
1236: QueMouseUp VK_LBUTTON, 26, 306
1237: QuePause 200
1238: QueKeys "%EU"
1239: QueMouseClick VK_LBUTTON, 590, 220 'Select the fill tool
1240: QueMouseClick VK_LBUTTON, 106, 314
1241: QuePause 200
1242: QueKeys "%EU"
1243: QueMouseClick VK_LBUTTON, 618, 192 'Select the fill circle.
1244: QueMouseDn VK_LBUTTON, 114, 218
1245: QueMouseUp VK_LBUTTON, 26, 306
1246: QuePause 200
1247: QueKeys "%EU" 'Clear and undo
1248: QueKeys "%EL"
1249: QuePause 200
1250: QueKeys "%EU"
1251: QueMouseDn VK_LBUTTON, 110, 314
1252: QueKeys "{ESC}"
1253: QueMouseUp VK_LBUTTON, 110, 324
1254: QueFlush 1
1255: ProcessResults "undo.bmp","Undo", IUndo
1256: END SUB
1257:
1258:
1259: SUB PenTest STATIC
1260: Bitmap32x32x16init
1261: QueMouseClick VK_LBUTTON, 591, 113 'Select the pen
1262: QueMouseClick VK_LBUTTON, 257, 426 'Select Red
1263: QueMouseClick VK_RBUTTON, 309, 426 'Select Light Blue
1264: QueMouseClick VK_LBUTTON, 324, 264 'Click outside of area
1265: QueMouseClick VK_LBUTTON, 10, 74 'Click in foor corners
1266: QueMouseClick VK_LBUTTON, 258, 323
1267: QueMouseClick VK_LBUTTON, 258, 75
1268: QueMouseClick VK_LBUTTON, 10, 323
1269: QueMouseDn VK_LBUTTON, 130, 147 'Click from outside to inside
1270: QueMouseUp VK_LBUTTON, 130, 59 'and inside to outside
1271: QueMouseDn VK_RBUTTON, 138, 59
1272: QueMouseUp VK_RBUTTON, 138, 147
1273: QueMouseDn VK_LBUTTON, 186, 194
1274: QueMouseUp VK_LBUTTON, 287, 194
1275: QueMouseDn VK_RBUTTON, 287, 202
1276: QueMouseUp VK_RBUTTON, 186, 202
1277: QueMouseDn VK_LBUTTON, 130, 250
1278: QueMouseUp VK_LBUTTON, 130, 338
1279: QueMouseDn VK_RBUTTON, 138, 338
1280: QueMouseUp VK_RBUTTON, 138, 250
1281: QueMouseDn VK_LBUTTON, 82, 194
1282: QueMouseUp VK_LBUTTON, 0, 194
1283: QueMouseDn VK_RBUTTON, 0, 202
1284: QueMouseUp VK_RBUTTON, 82, 202
1285: QueMouseClick VK_LBUTTON, 619, 191 'Choose Fill Circle.
1286: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion:
1287: QueKeys "{ESC}" 'field to a standerd number
1288: QueMouseUp VK_LBUTTON, 110, 324
1289: QueMouseClick VK_LBUTTON, 591, 113 ' Choose the pen
1290: QueFlush 1
1291: DoKeys "{F10}"
1292: ProcessResults "pentst.bmp", "PenTest", IPenTest
1293: END SUB
1294:
1295:
1296: SUB Brush STATIC
1297: Bitmap32x32x16init
1298: QueMouseClick VK_LBUTTON, 618, 111 'Choose the Brush
1299: QueMouseClick VK_LBUTTON, 257, 426 'Select Red
1300: QueMouseClick VK_RBUTTON, 309, 426 'Select Light Blue
1301: QueMouseClick VK_LBUTTON, 324, 264 'Click outside of area
1302: QueMouseClick VK_LBUTTON, 16, 83 'Click in foor corners
1303: QueMouseClick VK_LBUTTON, 258, 323
1304: QueMouseClick VK_LBUTTON, 260, 81
1305: QueMouseClick VK_LBUTTON, 16, 323
1306: QueMouseDn VK_LBUTTON, 130, 147 'Click from outside to inside
1307: QueMouseUp VK_LBUTTON, 130, 59 'and inside to outside
1308: QueMouseDn VK_RBUTTON, 138, 59
1309: QueMouseUp VK_RBUTTON, 138, 147
1310: QueMouseDn VK_LBUTTON, 186, 194
1311: QueMouseUp VK_LBUTTON, 287, 194
1312: QueMouseDn VK_RBUTTON, 287, 202
1313: QueMouseUp VK_RBUTTON, 186, 202
1314: QueMouseDn VK_LBUTTON, 130, 250
1315: QueMouseUp VK_LBUTTON, 130, 338
1316: QueMouseDn VK_RBUTTON, 138, 338
1317: QueMouseUp VK_RBUTTON, 138, 250
1318: QueMouseDn VK_LBUTTON, 82, 194
1319: QueMouseUp VK_LBUTTON, 0, 194
1320: QueMouseDn VK_RBUTTON, 0, 202
1321: QueMouseUp VK_RBUTTON, 82, 202
1322: QueMouseClick VK_LBUTTON, 619, 191 ' Choose Fill Circle.
1323: QueMouseDn VK_LBUTTON, 110, 314 'Clears size: field and sets postion:
1324: QueKeys "{ESC}" 'field to a standerd number
1325: QueMouseUp VK_LBUTTON, 110, 324
1326: QueMouseClick VK_LBUTTON, 618, 111 ' Choose the Brush
1327: QueFlush 1
1328: DoKeys "{F10}"
1329: ProcessResults "brush.bmp", "Brush", IBrush
1330: END SUB
1331:
1332:
1333: SUB EndTest STATIC
1334: DoKeys "%FX"
1335: PRINT #1, "**********************************************"
1336: PRINT #1, "SUCCESSFULLY COMPLETED IMAGEDIT.EXE TEST"
1337: PRINT #1, " " + DATETIME$
1338: PRINT #1, "Total of ", ErrCount, " errors detected"
1339: PRINT #1, "**********************************************"
1340: CLOSE 1
1341: END SUB
1342:
1343:
1344:
1345:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.