/ Beginning Mac Programming / Beginning Mac Programming.bin / pc / Open Me for REALbasic 3 / REALbasic 3.2 / Example Projects / Reusable Classes_Code / User Interface / AlphaButtons 2.0 / alphaButtons2.0

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 05 43 6c 61 73 73 0c 61 | 6c 70 68 61 42 75 74 74 |.Class.a|lphaButt|
|00000010| 6f 6e 73 41 a8 01 9f 0c | ac 08 07 00 0c 61 6c 70 |onsA....|.....alp|
|00000020| 68 61 42 75 74 74 6f 6e | 73 b4 02 06 43 61 6e 76 |haButton|s...Canv|
|00000030| 61 73 00 16 0f 62 4f 66 | 66 20 61 73 20 70 69 63 |as...bOf|f as pic|
|00000040| 74 75 72 65 01 0e 62 4f | 6e 20 61 73 20 70 69 63 |ture..bO|n as pic|
|00000050| 74 75 72 65 01 13 73 65 | 6c 65 63 74 65 64 20 61 |ture..se|lected a|
|00000060| 73 20 69 6e 74 65 67 65 | 72 00 16 62 4e 6f 74 45 |s intege|r..bNotE|
|00000070| 6e 61 62 6c 65 64 20 61 | 73 20 70 69 63 74 75 72 |nabled a|s pictur|
|00000080| 65 01 18 6e 6f 74 45 6e | 61 62 6c 65 64 28 30 29 |e..notEn|abled(0)|
|00000090| 20 61 73 20 62 6f 6f 6c | 65 61 6e 00 19 6c 61 72 | as bool|ean..lar|
|000000a0| 67 65 42 75 74 74 6f 6e | 54 65 78 74 20 61 73 20 |geButton|Text as |
|000000b0| 73 74 72 69 6e 67 00 17 | 62 75 74 74 6f 6e 43 61 |string..|buttonCa|
|000000c0| 70 74 69 6f 6e 20 61 73 | 20 73 74 72 69 6e 67 00 |ption as| string.|
|000000d0| 18 62 75 74 74 6f 6e 54 | 65 78 74 46 6f 6e 74 20 |.buttonT|extFont |
|000000e0| 61 73 20 73 74 72 69 6e | 67 00 16 62 75 74 74 6f |as strin|g..butto|
|000000f0| 6e 43 6f 75 6e 74 20 61 | 73 20 69 6e 74 65 67 65 |nCount a|s intege|
|00000100| 72 00 18 62 75 74 74 6f | 6e 53 70 61 63 69 6e 67 |r..butto|nSpacing|
|00000110| 20 61 73 20 69 6e 74 65 | 67 65 72 00 18 62 75 74 | as inte|ger..but|
|00000120| 74 6f 6e 43 6f 6c 75 6d | 6e 73 20 61 73 20 69 6e |tonColum|ns as in|
|00000130| 74 65 67 65 72 00 15 62 | 75 74 74 6f 6e 52 6f 77 |teger..b|uttonRow|
|00000140| 73 20 61 73 20 69 6e 74 | 65 67 65 72 01 19 62 75 |s as int|eger..bu|
|00000150| 74 74 6f 6e 54 65 78 74 | 53 69 7a 65 20 61 73 20 |ttonText|Size as |
|00000160| 69 6e 74 65 67 65 72 00 | 14 6c 61 72 67 65 42 6f |integer.|.largeBo|
|00000170| 66 66 20 61 73 20 70 69 | 63 74 75 72 65 01 13 6c |ff as pi|cture..l|
|00000180| 61 72 67 65 42 6f 6e 20 | 61 73 20 70 69 63 74 75 |argeBon |as pictu|
|00000190| 72 65 01 19 62 75 74 74 | 6f 6e 54 65 78 74 42 6f |re..butt|onTextBo|
|000001a0| 6c 64 20 61 73 20 62 6f | 6f 6c 65 61 6e 00 1b 6c |ld as bo|olean..l|
|000001b0| 61 72 67 65 42 75 74 74 | 6f 6e 57 69 64 74 68 20 |argeButt|onWidth |
|000001c0| 61 73 20 69 6e 74 65 67 | 65 72 00 1a 73 68 6f 77 |as integ|er..show|
|000001d0| 4c 61 72 67 65 42 75 74 | 74 6f 6e 20 61 73 20 62 |LargeBut|ton as b|
|000001e0| 6f 6f 6c 65 61 6e 00 1e | 6c 61 72 67 65 42 75 74 |oolean..|largeBut|
|000001f0| 74 6f 6e 43 65 6e 74 65 | 72 65 64 20 61 73 20 62 |tonCente|red as b|
|00000200| 6f 6f 6c 65 61 6e 00 19 | 68 6f 72 69 7a 6f 6e 74 |oolean..|horizont|
|00000210| 61 6c 4f 6e 6c 79 20 61 | 73 20 62 6f 6f 6c 65 61 |alOnly a|s boolea|
|00000220| 6e 00 16 62 75 74 74 6f | 6e 57 69 64 74 68 20 61 |n..butto|nWidth a|
|00000230| 73 20 69 6e 74 65 67 65 | 72 00 17 62 75 74 74 6f |s intege|r..butto|
|00000240| 6e 48 65 69 67 68 74 20 | 61 73 20 69 6e 74 65 67 |nHeight |as integ|
|00000250| 65 72 00 08 0b 64 72 61 | 77 42 75 74 74 6f 6e 73 |er...dra|wButtons|
|00000260| 37 64 72 61 77 41 6c 6c | 20 61 73 20 62 6f 6f 6c |7drawAll| as bool|
|00000270| 65 61 6e 2c 20 70 72 65 | 76 20 61 73 20 69 6e 74 |ean, pre|v as int|
|00000280| 65 67 65 72 2c 20 63 75 | 72 72 65 6e 74 20 61 73 |eger, cu|rrent as|
|00000290| 20 69 6e 74 65 67 65 72 | 00 00 92 01 06 92 01 06 | integer|........|
|000002a0| 96 01 88 01 53 75 62 20 | 64 72 61 77 42 75 74 74 |....Sub |drawButt|
|000002b0| 6f 6e 73 28 64 72 61 77 | 41 6c 6c 20 61 73 20 62 |ons(draw|All as b|
|000002c0| 6f 6f 6c 65 61 6e 2c 20 | 70 72 65 76 20 61 73 20 |oolean, |prev as |
|000002d0| 69 6e 74 65 67 65 72 2c | 20 63 75 72 72 65 6e 74 |integer,| current|
|000002e0| 20 61 73 20 69 6e 74 65 | 67 65 72 29 85 01 64 69 | as inte|ger)..di|
|000002f0| 6d 20 78 2c 79 2c 61 6c | 70 68 61 2c 62 75 74 74 |m x,y,al|pha,butt|
|00000300| 6f 6e 57 2c 62 75 74 74 | 6f 6e 48 2c 74 6f 74 61 |onW,butt|onH,tota|
|00000310| 6c 57 69 64 74 68 2c 6f | 66 66 73 65 74 58 2c 6f |lWidth,o|ffsetX,o|
|00000320| 66 66 73 65 74 59 2c 75 | 20 61 73 20 69 6e 74 65 |ffsetY,u| as inte|
|00000330| 67 65 72 10 64 69 6d 20 | 70 20 61 73 20 70 69 63 |ger.dim |p as pic|
|00000340| 74 75 72 65 11 64 69 6d | 20 67 20 61 73 20 67 72 |ture.dim| g as gr|
|00000350| 61 70 68 69 63 73 00 25 | 62 75 74 74 6f 6e 57 20 |aphics.%|buttonW |
|00000360| 3d 20 62 75 74 74 6f 6e | 57 69 64 74 68 20 2b 20 |= button|Width + |
|00000370| 62 75 74 74 6f 6e 53 70 | 61 63 69 6e 67 26 62 75 |buttonSp|acing&bu|
|00000380| 74 74 6f 6e 48 20 3d 20 | 62 75 74 74 6f 6e 48 65 |ttonH = |buttonHe|
|00000390| 69 67 68 74 20 2b 20 62 | 75 74 74 6f 6e 53 70 61 |ight + b|uttonSpa|
|000003a0| 63 69 6e 67 22 74 6f 74 | 61 6c 57 69 64 74 68 20 |cing"tot|alWidth |
|000003b0| 3d 20 62 75 74 74 6f 6e | 57 2a 62 75 74 74 6f 6e |= button|W*button|
|000003c0| 43 6f 6c 75 6d 6e 73 00 | 2a 69 66 20 68 6f 72 69 |Columns.|*if hori|
|000003d0| 7a 6f 6e 74 61 6c 4f 6e | 6c 79 20 61 6e 64 20 73 |zontalOn|ly and s|
|000003e0| 68 6f 77 4c 61 72 67 65 | 42 75 74 74 6f 6e 20 74 |howLarge|Button t|
|000003f0| 68 65 6e 14 6f 66 66 73 | 65 74 58 20 3d 20 74 6f |hen.offs|etX = to|
|00000400| 74 61 6c 57 69 64 74 68 | 0b 6f 66 66 73 65 74 59 |talWidth|.offsetY|
|00000410| 20 3d 20 30 33 65 6c 73 | 65 69 66 20 73 68 6f 77 | = 03els|eif show|
|00000420| 4c 61 72 67 65 42 75 74 | 74 6f 6e 20 61 6e 64 20 |LargeBut|ton and |
|00000430| 6c 61 72 67 65 42 75 74 | 74 6f 6e 43 65 6e 74 65 |largeBut|tonCente|
|00000440| 72 65 64 20 74 68 65 6e | 2b 6f 66 66 73 65 74 58 |red then|+offsetX|
|00000450| 20 3d 20 28 74 6f 74 61 | 6c 57 69 64 74 68 20 2d | = (tota|lWidth -|
|00000460| 20 6c 61 72 67 65 42 75 | 74 74 6f 6e 57 69 64 74 | largeBu|ttonWidt|
|00000470| 68 29 2f 32 1c 6f 66 66 | 73 65 74 59 20 3d 20 62 |h)/2.off|setY = b|
|00000480| 75 74 74 6f 6e 48 2a 62 | 75 74 74 6f 6e 52 6f 77 |uttonH*b|uttonRow|
|00000490| 73 1b 65 6c 73 65 69 66 | 20 73 68 6f 77 4c 61 72 |s.elseif| showLar|
|000004a0| 67 65 42 75 74 74 6f 6e | 20 74 68 65 6e 0b 6f 66 |geButton| then.of|
|000004b0| 66 73 65 74 58 20 3d 20 | 30 1c 6f 66 66 73 65 74 |fsetX = |0.offset|
|000004c0| 59 20 3d 20 62 75 74 74 | 6f 6e 48 2a 62 75 74 74 |Y = butt|onH*butt|
|000004d0| 6f 6e 52 6f 77 73 06 65 | 6e 64 20 69 66 00 0f 69 |onRows.e|nd if..i|
|000004e0| 66 20 64 72 61 77 41 6c | 6c 20 74 68 65 6e 25 70 |f drawAl|l then%p|
|000004f0| 20 3d 20 6e 65 77 50 69 | 63 74 75 72 65 28 6d 65 | = newPi|cture(me|
|00000500| 2e 77 69 64 74 68 2c 6d | 65 2e 68 65 69 67 68 74 |.width,m|e.height|
|00000510| 2c 31 36 29 0e 67 20 3d | 20 70 2e 67 72 61 70 68 |,16).g =| p.graph|
|00000520| 69 63 73 17 67 2e 66 6f | 72 65 43 6f 6c 6f 72 20 |ics.g.fo|reColor |
|00000530| 3d 20 66 69 6c 6c 43 6f | 6c 6f 72 21 67 2e 66 69 |= fillCo|lor!g.fi|
|00000540| 6c 6c 52 65 63 74 20 30 | 2c 30 2c 6d 65 2e 77 69 |llRect 0|,0,me.wi|
|00000550| 64 74 68 2c 6d 65 2e 68 | 65 69 67 68 74 00 16 75 |dth,me.h|eight..u|
|00000560| 20 3d 20 74 6f 74 61 6c | 57 69 64 74 68 2d 62 75 | = total|Width-bu|
|00000570| 74 74 6f 6e 57 1b 66 6f | 72 20 78 20 3d 20 30 20 |ttonW.fo|r x = 0 |
|00000580| 74 6f 20 75 20 73 74 65 | 70 20 62 75 74 74 6f 6e |to u ste|p button|
|00000590| 57 11 61 6c 70 68 61 20 | 3d 20 61 6c 70 68 61 20 |W.alpha |= alpha |
|000005a0| 2b 20 31 00 19 69 66 20 | 6e 6f 74 45 6e 61 62 6c |+ 1..if |notEnabl|
|000005b0| 65 64 28 61 6c 70 68 61 | 29 20 74 68 65 6e 24 67 |ed(alpha|) then$g|
|000005c0| 2e 64 72 61 77 50 69 63 | 74 75 72 65 20 64 72 61 |.drawPic|ture dra|
|000005d0| 77 41 6c 70 68 61 28 61 | 6c 70 68 61 2c 32 29 2c |wAlpha(a|lpha,2),|
|000005e0| 78 2c 79 1c 65 6c 73 65 | 69 66 20 73 65 6c 65 63 |x,y.else|if selec|
|000005f0| 74 65 64 20 3d 20 61 6c | 70 68 61 20 74 68 65 6e |ted = al|pha then|
|00000600| 24 67 2e 64 72 61 77 50 | 69 63 74 75 72 65 20 64 |$g.drawP|icture d|
|00000610| 72 61 77 41 6c 70 68 61 | 28 61 6c 70 68 61 2c 30 |rawAlpha|(alpha,0|
|00000620| 29 2c 78 2c 79 04 65 6c | 73 65 24 67 2e 64 72 61 |),x,y.el|se$g.dra|
|00000630| 77 50 69 63 74 75 72 65 | 20 64 72 61 77 41 6c 70 |wPicture| drawAlp|
|00000640| 68 61 28 61 6c 70 68 61 | 2c 31 29 2c 78 2c 79 06 |ha(alpha|,1),x,y.|
|00000650| 65 6e 64 20 69 66 00 1b | 69 66 20 61 6c 70 68 61 |end if..|if alpha|
|00000660| 20 3d 20 62 75 74 74 6f | 6e 43 6f 75 6e 74 20 74 | = butto|nCount t|
|00000670| 68 65 6e 04 65 78 69 74 | 06 65 6e 64 20 69 66 0d |hen.exit|.end if.|
|00000680| 69 66 20 78 20 3d 20 75 | 20 74 68 65 6e 0f 79 20 |if x = u| then.y |
|00000690| 3d 20 79 20 2b 20 62 75 | 74 74 6f 6e 48 0c 78 20 |= y + bu|ttonH.x |
|000006a0| 3d 20 2d 62 75 74 74 6f | 6e 57 06 65 6e 64 20 69 |= -butto|nW.end i|
|000006b0| 66 04 6e 65 78 74 17 69 | 66 20 73 68 6f 77 4c 61 |f.next.i|f showLa|
|000006c0| 72 67 65 42 75 74 74 6f | 6e 20 74 68 65 6e 14 69 |rgeButto|n then.i|
|000006d0| 66 20 73 65 6c 65 63 74 | 65 64 20 3d 20 30 20 74 |f select|ed = 0 t|
|000006e0| 68 65 6e 26 67 2e 64 72 | 61 77 50 69 63 74 75 72 |hen&g.dr|awPictur|
|000006f0| 65 20 6c 61 72 67 65 42 | 6f 6e 2c 6f 66 66 73 65 |e largeB|on,offse|
|00000700| 74 58 2c 6f 66 66 73 65 | 74 59 04 65 6c 73 65 27 |tX,offse|tY.else'|
|00000710| 67 2e 64 72 61 77 50 69 | 63 74 75 72 65 20 6c 61 |g.drawPi|cture la|
|00000720| 72 67 65 42 6f 66 66 2c | 6f 66 66 73 65 74 58 2c |rgeBoff,|offsetX,|
|00000730| 6f 66 66 73 65 74 59 06 | 65 6e 64 20 69 66 06 65 |offsetY.|end if.e|
|00000740| 6e 64 20 69 66 1d 6d 65 | 2e 67 72 61 70 68 69 63 |nd if.me|.graphic|
|00000750| 73 2e 64 72 61 77 50 69 | 63 74 75 72 65 20 70 2c |s.drawPi|cture p,|
|00000760| 30 2c 30 00 2d 65 6c 73 | 65 20 2f 2f 44 72 61 77 |0,0.-els|e //Draw|
|00000770| 20 6f 6e 6c 79 20 62 75 | 74 74 6f 6e 73 20 74 68 | only bu|ttons th|
|00000780| 61 74 20 68 61 76 65 20 | 63 68 61 6e 67 65 64 2e |at have |changed.|
|00000790| 2e 2e 0f 67 20 3d 20 6d | 65 2e 67 72 61 70 68 69 |...g = m|e.graphi|
|000007a0| 63 73 2e 2f 2f 44 72 61 | 77 20 74 68 65 20 63 75 |cs.//Dra|w the cu|
|000007b0| 72 72 65 6e 74 6c 79 20 | 73 65 6c 65 63 74 65 64 |rrently |selected|
|000007c0| 20 62 75 74 74 6f 6e 20 | 64 65 70 72 65 73 73 65 | button |depresse|
|000007d0| 64 27 69 66 20 63 75 72 | 72 65 6e 74 20 3d 20 30 |d'if cur|rent = 0|
|000007e0| 20 61 6e 64 20 73 68 6f | 77 4c 61 72 67 65 42 75 | and sho|wLargeBu|
|000007f0| 74 74 6f 6e 20 74 68 65 | 6e 26 67 2e 64 72 61 77 |tton the|n&g.draw|
|00000800| 50 69 63 74 75 72 65 20 | 6c 61 72 67 65 42 6f 6e |Picture |largeBon|
|00000810| 2c 6f 66 66 73 65 74 58 | 2c 6f 66 66 73 65 74 59 |,offsetX|,offsetY|
|00000820| 04 65 6c 73 65 27 69 66 | 20 28 63 75 72 72 65 6e |.else'if| (curren|
|00000830| 74 20 6d 6f 64 20 62 75 | 74 74 6f 6e 43 6f 6c 75 |t mod bu|ttonColu|
|00000840| 6d 6e 73 29 20 3d 20 30 | 20 74 68 65 6e 21 78 20 |mns) = 0| then!x |
|00000850| 3d 20 28 62 75 74 74 6f | 6e 43 6f 6c 75 6d 6e 73 |= (butto|nColumns|
|00000860| 20 2d 20 31 29 20 2a 20 | 62 75 74 74 6f 6e 57 04 | - 1) * |buttonW.|
|00000870| 65 6c 73 65 31 78 20 3d | 20 28 20 28 63 75 72 72 |else1x =| ( (curr|
|00000880| 65 6e 74 20 6d 6f 64 20 | 62 75 74 74 6f 6e 43 6f |ent mod |buttonCo|
|00000890| 6c 75 6d 6e 73 29 20 2d | 20 31 20 29 20 2a 20 62 |lumns) -| 1 ) * b|
|000008a0| 75 74 74 6f 6e 57 06 65 | 6e 64 20 69 66 33 79 20 |uttonW.e|nd if3y |
|000008b0| 3d 20 28 20 63 65 69 6c | 28 63 75 72 72 65 6e 74 |= ( ceil|(current|
|000008c0| 20 2f 20 62 75 74 74 6f | 6e 43 6f 6c 75 6d 6e 73 | / butto|nColumns|
|000008d0| 29 20 2d 20 31 20 29 20 | 2a 20 62 75 74 74 6f 6e |) - 1 ) |* button|
|000008e0| 48 26 67 2e 64 72 61 77 | 50 69 63 74 75 72 65 20 |H&g.draw|Picture |
|000008f0| 64 72 61 77 41 6c 70 68 | 61 28 63 75 72 72 65 6e |drawAlph|a(curren|
|00000900| 74 2c 30 29 2c 78 2c 79 | 06 65 6e 64 20 69 66 00 |t,0),x,y|.end if.|
|00000910| 24 2f 2f 44 72 61 77 20 | 70 72 65 76 69 6f 75 73 |$//Draw |previous|
|00000920| 20 62 75 74 74 6f 6e 20 | 6e 6f 74 20 64 65 70 72 | button |not depr|
|00000930| 65 73 73 65 64 24 69 66 | 20 70 72 65 76 20 3d 20 |essed$if| prev = |
|00000940| 30 20 61 6e 64 20 73 68 | 6f 77 4c 61 72 67 65 42 |0 and sh|owLargeB|
|00000950| 75 74 74 6f 6e 20 74 68 | 65 6e 27 67 2e 64 72 61 |utton th|en'g.dra|
|00000960| 77 50 69 63 74 75 72 65 | 20 6c 61 72 67 65 42 6f |wPicture| largeBo|
|00000970| 66 66 2c 6f 66 66 73 65 | 74 58 2c 6f 66 66 73 65 |ff,offse|tX,offse|
|00000980| 74 59 04 65 6c 73 65 24 | 69 66 20 28 70 72 65 76 |tY.else$|if (prev|
|00000990| 20 6d 6f 64 20 62 75 74 | 74 6f 6e 43 6f 6c 75 6d | mod but|tonColum|
|000009a0| 6e 73 29 20 3d 20 30 20 | 74 68 65 6e 21 78 20 3d |ns) = 0 |then!x =|
|000009b0| 20 28 62 75 74 74 6f 6e | 43 6f 6c 75 6d 6e 73 20 | (button|Columns |
|000009c0| 2d 20 31 29 20 2a 20 62 | 75 74 74 6f 6e 57 04 65 |- 1) * b|uttonW.e|
|000009d0| 6c 73 65 2e 78 20 3d 20 | 28 20 28 70 72 65 76 20 |lse.x = |( (prev |
|000009e0| 6d 6f 64 20 62 75 74 74 | 6f 6e 43 6f 6c 75 6d 6e |mod butt|onColumn|
|000009f0| 73 29 20 2d 20 31 20 29 | 20 2a 20 62 75 74 74 6f |s) - 1 )| * butto|
|00000a00| 6e 57 06 65 6e 64 20 69 | 66 30 79 20 3d 20 28 20 |nW.end i|f0y = ( |
|00000a10| 63 65 69 6c 28 70 72 65 | 76 20 2f 20 62 75 74 74 |ceil(pre|v / butt|
|00000a20| 6f 6e 43 6f 6c 75 6d 6e | 73 29 20 2d 20 31 20 29 |onColumn|s) - 1 )|
|00000a30| 20 2a 20 62 75 74 74 6f | 6e 48 23 67 2e 64 72 61 | * butto|nH#g.dra|
|00000a40| 77 50 69 63 74 75 72 65 | 20 64 72 61 77 41 6c 70 |wPicture| drawAlp|
|00000a50| 68 61 28 70 72 65 76 2c | 31 29 2c 78 2c 79 06 65 |ha(prev,|1),x,y.e|
|00000a60| 6e 64 20 69 66 06 65 6e | 64 20 69 66 06 65 6e 64 |nd if.en|d if.end|
|00000a70| 20 69 66 00 07 45 6e 64 | 20 53 75 62 12 61 62 6f | if..End| Sub.abo|
|00000a80| 75 74 5f 61 6c 70 68 61 | 42 75 74 74 6f 6e 73 00 |ut_alpha|Buttons.|
|00000a90| 00 00 07 00 07 00 24 18 | 53 75 62 20 61 62 6f 75 |......$.|Sub abou|
|00000aa0| 74 5f 61 6c 70 68 61 42 | 75 74 74 6f 6e 73 28 29 |t_alphaB|uttons()|
|00000ab0| 37 27 61 6c 70 68 61 42 | 75 74 74 6f 6e 73 20 32 |7'alphaB|uttons 2|
|00000ac0| 2e 30 20 69 73 20 63 6f | 70 79 72 69 67 68 74 20 |.0 is co|pyright |
|00000ad0| a9 20 32 30 30 30 20 4d | 69 63 68 61 65 6c 20 52 |. 2000 M|ichael R|
|00000ae0| 6f 73 61 6e 64 65 72 2e | 3a 27 59 6f 75 20 61 72 |osander.|:'You ar|
|00000af0| 65 20 77 65 6c 63 6f 6d | 65 20 74 6f 20 75 73 65 |e welcom|e to use|
|00000b00| 20 61 6c 70 68 61 42 75 | 74 74 6f 6e 73 20 69 6e | alphaBu|ttons in|
|00000b10| 20 79 6f 75 72 20 61 70 | 70 6c 69 63 61 74 69 6f | your ap|plicatio|
|00000b20| 6e 73 20 3c 27 70 72 6f | 76 69 64 69 6e 67 20 79 |ns <'pro|viding y|
|00000b30| 6f 75 20 67 69 76 65 20 | 63 72 65 64 69 74 20 74 |ou give |credit t|
|00000b40| 6f 20 6d 65 20 69 6e 20 | 74 68 65 20 61 62 6f 75 |o me in |the abou|
|00000b50| 74 20 62 6f 78 20 6f 72 | 20 69 6e 20 74 68 65 20 |t box or| in the |
|00000b60| 23 27 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |#'docume|ntation |
|00000b70| 6f 66 20 79 6f 75 72 20 | 61 70 70 6c 69 63 61 74 |of your |applicat|
|00000b80| 69 6f 6e 2e 00 19 27 6d | 69 63 68 61 65 6c 2e 72 |ion...'m|ichael.r|
|00000b90| 6f 73 61 6e 64 65 72 40 | 68 6f 6d 65 2e 73 65 19 |osander@|home.se.|
|00000ba0| 27 68 74 74 70 3a 2f 2f | 77 77 77 2e 6c 69 75 2e |'http://|www.liu.|
|00000bb0| 73 65 2f 69 70 70 2f 72 | 62 00 0b 27 50 52 4f 50 |se/ipp/r|b..'PROP|
|00000bc0| 45 52 54 49 45 53 a0 01 | 27 62 75 74 74 6f 6e 43 |ERTIES..|'buttonC|
|00000bd0| 61 70 74 69 6f 6e 20 61 | 73 20 73 74 72 69 6e 67 |aption a|s string|
|00000be0| 20 2f 2f 64 65 66 61 75 | 6c 74 20 74 68 69 73 20 | //defau|lt this |
|00000bf0| 69 73 20 22 61 2c 62 2c | 63 2c 64 2c 65 2c 66 2c |is "a,b,|c,d,e,f,|
|00000c00| 67 2c 68 2c 69 2c 6a 2c | 6b 2c 6c 2c 6d 2c 6e 2c |g,h,i,j,|k,l,m,n,|
|00000c10| 6f 2c 70 2c 71 2c 72 2c | 73 2c 74 2c 75 2c 76 2c |o,p,q,r,|s,t,u,v,|
|00000c20| 77 2c 78 2c 79 2c 7a 22 | 94 01 27 20 2d 20 74 68 |w,x,y,z"|..' - th|
|00000c30| 65 20 74 65 78 74 20 74 | 68 61 74 20 77 69 6c 6c |e text t|hat will|
|00000c40| 20 62 65 20 64 69 73 70 | 6c 61 79 65 64 20 6f 6e | be disp|layed on|
|00000c50| 20 74 68 65 20 62 75 74 | 74 6f 6e 73 20 28 61 6c | the but|tons (al|
|00000c60| 73 6f 20 73 65 74 73 20 | 74 68 65 20 6e 75 6d 62 |so sets |the numb|
|00000c70| 65 72 20 6f 66 20 62 75 | 74 74 6f 6e 73 29 24 27 |er of bu|ttons)$'|
|00000c80| 62 75 74 74 6f 6e 57 69 | 64 74 68 20 61 73 20 69 |buttonWi|dth as i|
|00000c90| 6e 74 65 67 65 72 20 2f | 2f 64 65 66 61 75 6c 74 |nteger /|/default|
|00000ca0| 20 31 36 25 27 62 75 74 | 74 6f 6e 48 65 69 67 68 | 16%'but|tonHeigh|
|00000cb0| 74 20 61 73 20 69 6e 74 | 65 67 65 72 20 2f 2f 64 |t as int|eger //d|
|00000cc0| 65 66 61 75 6c 74 20 31 | 36 86 01 27 62 75 74 74 |efault 1|6..'butt|
|00000cd0| 6f 6e 53 70 61 63 69 6e | 67 20 61 73 20 69 6e 74 |onSpacin|g as int|
|00000ce0| 65 67 65 72 20 2f 2f 64 | 65 66 61 75 6c 74 20 31 |eger //d|efault 1|
|00000cf0| 20 28 69 2e 65 2e 20 74 | 68 65 20 73 70 61 63 65 | (i.e. t|he space|
|00000d00| 20 62 65 74 77 65 65 6e | 20 62 75 74 74 6f 6e 73 | between| buttons|
|00000d10| 29 3c 27 62 75 74 74 6f | 6e 43 6f 6c 75 6d 6e 73 |)<'butto|nColumns|
|00000d20| 20 61 73 20 69 6e 74 65 | 67 65 72 20 2f 2f 64 65 | as inte|ger //de|
|00000d30| 66 61 75 6c 74 20 36 20 | 28 6e 75 6d 62 65 72 20 |fault 6 |(number |
|00000d40| 6f 66 20 63 6f 6c 75 6d | 6e 73 2e 2e 2e 29 2c 27 |of colum|ns...),'|
|00000d50| 62 75 74 74 6f 6e 54 65 | 78 74 46 6f 6e 74 20 61 |buttonTe|xtFont a|
|00000d60| 73 20 73 74 72 69 6e 67 | 20 2f 2f 64 65 66 61 75 |s string| //defau|
|00000d70| 6c 74 20 22 73 79 73 74 | 65 6d 22 26 27 62 75 74 |lt "syst|em"&'but|
|00000d80| 74 6f 6e 54 65 78 74 53 | 69 7a 65 20 61 73 20 69 |tonTextS|ize as i|
|00000d90| 6e 74 65 67 65 72 20 2f | 2f 64 65 66 61 75 6c 74 |nteger /|/default|
|00000da0| 20 39 88 01 27 62 75 74 | 74 6f 6e 54 65 78 74 42 | 9..'but|tonTextB|
|00000db0| 6f 6c 64 20 61 73 20 62 | 6f 6f 6c 65 61 6e 20 2f |old as b|oolean /|
|00000dc0| 2f 64 65 66 61 75 6c 74 | 20 66 61 6c 73 65 20 28 |/default| false (|
|00000dd0| 74 6f 20 6d 61 6b 65 20 | 74 68 65 20 63 61 70 74 |to make |the capt|
|00000de0| 69 6f 6e 20 62 6f 6c 64 | 2e 2e 2e 29 00 8d 01 27 |ion bold|...)...'|
|00000df0| 6c 61 72 67 65 42 75 74 | 74 6f 6e 43 65 6e 74 65 |largeBut|tonCente|
|00000e00| 72 65 64 20 61 73 20 62 | 6f 6f 6c 65 61 6e 20 2f |red as b|oolean /|
|00000e10| 2f 64 65 66 61 75 6c 74 | 20 66 61 6c 73 65 20 28 |/default| false (|
|00000e20| 63 65 6e 74 65 72 73 20 | 74 68 65 20 6c 61 72 67 |centers |the larg|
|00000e30| 65 20 62 75 74 74 6f 6e | 2e 2e 2e 29 91 01 27 6c |e button|...)..'l|
|00000e40| 61 72 67 65 42 75 74 74 | 6f 6e 54 65 78 74 20 61 |argeButt|onText a|
|00000e50| 73 20 73 74 72 69 6e 67 | 20 2f 2f 64 65 66 61 75 |s string| //defau|
|00000e60| 6c 74 20 22 53 68 6f 77 | 20 61 6c 6c 22 20 28 74 |lt "Show| all" (t|
|00000e70| 68 65 20 63 61 70 74 69 | 6f 6e 20 6f 66 20 74 68 |he capti|on of th|
|00000e80| 65 20 6c 61 72 67 65 20 | 62 75 74 74 6f 6e 29 a6 |e large |button).|
|00000e90| 01 27 6c 61 72 67 65 42 | 75 74 74 6f 6e 57 69 64 |.'largeB|uttonWid|
|00000ea0| 74 68 20 61 73 20 69 6e | 74 65 67 65 72 20 2f 2f |th as in|teger //|
|00000eb0| 64 65 66 61 75 6c 74 20 | 31 31 38 20 28 69 66 20 |default |118 (if |
|00000ec0| 73 65 74 20 6c 61 72 67 | 65 72 20 74 68 61 6e 20 |set larg|er than |
|00000ed0| 74 68 65 20 74 6f 74 61 | 6c 20 63 6f 6c 75 6d 6e |the tota|l column|
|00000ee0| 20 77 69 64 74 68 20 73 | 65 74 20 65 71 75 61 6c | width s|et equal|
|00000ef0| 20 74 6f 20 69 74 29 00 | 89 01 27 68 6f 72 69 7a | to it).|..'horiz|
|00000f00| 6f 6e 74 61 6c 4f 6e 6c | 79 20 61 73 20 62 6f 6f |ontalOnl|y as boo|
|00000f10| 6c 65 61 6e 20 2f 2f 64 | 65 66 61 75 6c 74 20 66 |lean //d|efault f|
|00000f20| 61 6c 73 65 20 28 6e 6f | 20 6e 65 65 64 20 74 6f |alse (no| need to|
|00000f30| 20 73 65 74 20 62 75 74 | 74 6f 6e 43 6f 6c 75 6d | set but|tonColum|
|00000f40| 6e 73 29 00 81 01 27 6e | 6f 74 45 6e 61 62 6c 65 |ns)...'n|otEnable|
|00000f50| 64 28 69 6e 64 65 78 29 | 20 61 73 20 62 6f 6f 6c |d(index)| as bool|
|00000f60| 65 61 6e 20 2f 2f 64 69 | 73 61 62 6c 65 20 74 68 |ean //di|sable th|
|00000f70| 65 20 62 75 74 74 6f 6e | 20 28 20 2b 20 75 70 64 |e button| ( + upd|
|00000f80| 61 74 65 28 29 20 29 91 | 01 27 73 65 6c 65 63 74 |ate() ).|.'select|
|00000f90| 65 64 20 61 73 20 69 6e | 74 65 67 65 72 20 2f 2f |ed as in|teger //|
|00000fa0| 74 68 65 20 73 65 6c 65 | 63 74 65 64 20 62 75 74 |the sele|cted but|
|00000fb0| 74 6f 6e 20 20 28 63 61 | 6e 20 61 6c 73 6f 20 62 |ton  (ca|n also b|
|00000fc0| 65 20 73 65 74 20 69 6e | 20 63 6f 64 65 20 2b 20 |e set in| code + |
|00000fd0| 75 70 64 61 74 65 28 29 | 20 29 00 09 27 4d 45 54 |update()| )..'MET|
|00000fe0| 48 4f 44 53 3a a5 01 27 | 69 6e 69 74 28 29 20 2d |HODS:..'|init() -|
|00000ff0| 20 69 73 20 63 61 6c 6c | 65 64 20 61 75 74 6f 6d | is call|ed autom|
|00001000| 61 74 69 63 61 6c 6c 79 | 20 6f 6e 20 6f 70 65 6e |atically| on open|
|00001010| 2c 20 62 75 74 20 69 66 | 20 63 68 61 6e 67 65 73 |, but if| changes|
|00001020| 20 74 6f 20 68 65 69 67 | 68 74 2c 77 69 64 74 68 | to heig|ht,width|
|00001030| 20 6f 72 20 63 61 70 74 | 69 6f 6e 20 69 73 20 6d | or capt|ion is m|
|00001040| 61 64 65 20 69 74 20 6d | 75 73 74 20 31 27 20 20 |ade it m|ust 1'  |
|00001050| 20 20 20 20 20 20 20 20 | 20 20 62 65 20 63 61 6c |        |  be cal|
|00001060| 6c 65 64 20 61 67 61 69 | 6e 20 66 6f 6c 6c 6f 77 |led agai|n follow|
|00001070| 65 64 20 62 79 20 75 70 | 64 61 74 65 28 29 9f 01 |ed by up|date()..|
|00001080| 27 75 70 64 61 74 65 28 | 29 20 2d 20 69 66 20 63 |'update(|) - if c|
|00001090| 68 61 6e 67 65 73 20 61 | 72 65 20 6d 61 64 65 2c |hanges a|re made,|
|000010a0| 20 62 75 74 20 6e 6f 74 | 20 74 6f 20 68 65 69 67 | but not| to heig|
|000010b0| 68 74 2c 77 69 64 74 68 | 20 6f 72 20 63 61 70 74 |ht,width| or capt|
|000010c0| 69 6f 6e 2c 20 6a 75 73 | 74 20 75 70 64 61 74 65 |ion, jus|t update|
|000010d0| 28 29 20 69 73 20 65 6e | 6f 75 67 68 2e 2e 2e aa |() is en|ough....|
|000010e0| 01 27 67 65 74 43 61 70 | 74 69 6f 6e 28 69 6e 64 |.'getCap|tion(ind|
|000010f0| 65 78 20 61 73 20 69 6e | 74 65 67 65 72 29 20 61 |ex as in|teger) a|
|00001100| 73 20 73 74 72 69 6e 67 | 20 2d 20 74 6f 20 67 65 |s string| - to ge|
|00001110| 74 20 74 68 65 20 63 61 | 70 74 69 6f 6e 20 66 6f |t the ca|ption fo|
|00001120| 72 20 61 6e 79 20 6f 66 | 20 74 68 65 20 62 75 74 |r any of| the but|
|00001130| 74 6f 6e 73 20 28 6e 6f | 74 20 74 68 65 20 6c 61 |tons (no|t the la|
|00001140| 72 67 65 20 62 75 74 74 | 6f 6e 29 b7 01 27 20 20 |rge butt|on)..'  |
|00001150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001180| 20 20 20 20 20 20 20 20 | 20 20 65 2e 67 2e 20 74 |        |  e.g. t|
|00001190| 68 65 53 65 6c 65 63 74 | 65 64 42 75 74 74 6f 6e |heSelect|edButton|
|000011a0| 43 61 70 74 69 6f 6e 20 | 3d 20 6d 65 2e 67 65 74 |Caption |= me.get|
|000011b0| 43 61 70 74 69 6f 6e 28 | 6d 65 2e 73 65 6c 65 63 |Caption(|me.selec|
|000011c0| 74 65 64 29 07 45 6e 64 | 20 53 75 62 0a 67 65 74 |ted).End| Sub.get|
|000011d0| 43 61 70 74 69 6f 6e 10 | 69 6e 64 65 78 20 61 73 |Caption.|index as|
|000011e0| 20 69 6e 74 65 67 65 72 | 06 53 74 72 69 6e 67 00 | integer|.String.|
|000011f0| 01 2e 01 2e 03 2f 46 75 | 6e 63 74 69 6f 6e 20 67 |...../Fu|nction g|
|00001200| 65 74 43 61 70 74 69 6f | 6e 28 69 6e 64 65 78 20 |etCaptio|n(index |
|00001210| 61 73 20 69 6e 74 65 67 | 65 72 29 20 41 73 20 53 |as integ|er) As S|
|00001220| 74 72 69 6e 67 2e 72 65 | 74 75 72 6e 20 74 72 69 |tring.re|turn tri|
|00001230| 6d 28 6e 74 68 46 69 65 | 6c 64 28 62 75 74 74 6f |m(nthFie|ld(butto|
|00001240| 6e 43 61 70 74 69 6f 6e | 2c 22 2c 22 2c 69 6e 64 |nCaption|,",",ind|
|00001250| 65 78 29 29 0c 45 6e 64 | 20 46 75 6e 63 74 69 6f |ex)).End| Functio|
|00001260| 6e 0d 63 72 65 61 74 65 | 42 75 74 74 6f 6e 73 00 |n.create|Buttons.|
|00001270| 00 00 27 09 27 09 2e 13 | 53 75 62 20 63 72 65 61 |..'.'...|Sub crea|
|00001280| 74 65 42 75 74 74 6f 6e | 73 28 29 0d 2f 2f 63 72 |teButton|s().//cr|
|00001290| 65 61 74 65 20 62 4f 66 | 66 2e 62 4f 66 66 20 3d |eate bOf|f.bOff =|
|000012a0| 20 6e 65 77 50 69 63 74 | 75 72 65 28 62 75 74 74 | newPict|ure(butt|
|000012b0| 6f 6e 57 69 64 74 68 2c | 62 75 74 74 6f 6e 48 65 |onWidth,|buttonHe|
|000012c0| 69 67 68 74 2c 31 36 29 | 2a 62 4f 66 66 2e 67 72 |ight,16)|*bOff.gr|
|000012d0| 61 70 68 69 63 73 2e 66 | 6f 72 65 43 6f 6c 6f 72 |aphics.f|oreColor|
|000012e0| 20 3d 20 72 67 62 28 32 | 30 36 2c 32 30 36 2c 32 | = rgb(2|06,206,2|
|000012f0| 30 36 29 33 62 4f 66 66 | 2e 67 72 61 70 68 69 63 |06)3bOff|.graphic|
|00001300| 73 2e 66 69 6c 6c 52 65 | 63 74 20 30 2c 30 2c 62 |s.fillRe|ct 0,0,b|
|00001310| 75 74 74 6f 6e 57 69 64 | 74 68 2c 62 75 74 74 6f |uttonWid|th,butto|
|00001320| 6e 48 65 69 67 68 74 27 | 62 4f 66 66 2e 67 72 61 |nHeight'|bOff.gra|
|00001330| 70 68 69 63 73 2e 66 6f | 72 65 43 6f 6c 6f 72 20 |phics.fo|reColor |
|00001340| 3d 20 72 67 62 28 39 39 | 2c 39 39 2c 39 39 29 29 |= rgb(99|,99,99))|
|00001350| 62 4f 66 66 2e 67 72 61 | 70 68 69 63 73 2e 64 72 |bOff.gra|phics.dr|
|00001360| 61 77 4c 69 6e 65 20 30 | 2c 30 2c 30 2c 62 75 74 |awLine 0|,0,0,but|
|00001370| 74 6f 6e 48 65 69 67 68 | 74 28 62 4f 66 66 2e 67 |tonHeigh|t(bOff.g|
|00001380| 72 61 70 68 69 63 73 2e | 64 72 61 77 4c 69 6e 65 |raphics.|drawLine|
|00001390| 20 30 2c 30 2c 62 75 74 | 74 6f 6e 57 69 64 74 68 | 0,0,but|tonWidth|
|000013a0| 2c 30 27 62 4f 66 66 2e | 67 72 61 70 68 69 63 73 |,0'bOff.|graphics|
|000013b0| 2e 66 6f 72 65 43 6f 6c | 6f 72 20 3d 20 72 67 62 |.foreCol|or = rgb|
|000013c0| 28 34 39 2c 34 39 2c 34 | 39 29 83 01 62 4f 66 66 |(49,49,4|9)..bOff|
|000013d0| 2e 67 72 61 70 68 69 63 | 73 2e 64 72 61 77 4c 69 |.graphic|s.drawLi|
|000013e0| 6e 65 20 62 75 74 74 6f | 6e 57 69 64 74 68 2d 31 |ne butto|nWidth-1|
|000013f0| 2c 31 2c 62 75 74 74 6f | 6e 57 69 64 74 68 2d 31 |,1,butto|nWidth-1|
|00001400| 2c 62 75 74 74 6f 6e 48 | 65 69 67 68 74 2d 31 84 |,buttonH|eight-1.|
|00001410| 01 62 4f 66 66 2e 67 72 | 61 70 68 69 63 73 2e 64 |.bOff.gr|aphics.d|
|00001420| 72 61 77 4c 69 6e 65 20 | 62 75 74 74 6f 6e 57 69 |rawLine |buttonWi|
|00001430| 64 74 68 2d 31 2c 62 75 | 74 74 6f 6e 48 65 69 67 |dth-1,bu|ttonHeig|
|00001440| 68 74 2d 31 2c 31 2c 62 | 75 74 74 6f 6e 48 65 69 |ht-1,1,b|uttonHei|
|00001450| 67 68 74 2d 31 2a 62 4f | 66 66 2e 67 72 61 70 68 |ght-1*bO|ff.graph|
|00001460| 69 63 73 2e 66 6f 72 65 | 43 6f 6c 6f 72 20 3d 20 |ics.fore|Color = |
|00001470| 72 67 62 28 32 35 35 2c | 32 35 35 2c 32 35 35 29 |rgb(255,|255,255)|
|00001480| 2b 62 4f 66 66 2e 67 72 | 61 70 68 69 63 73 2e 64 |+bOff.gr|aphics.d|
|00001490| 72 61 77 4c 69 6e 65 20 | 31 2c 31 2c 31 2c 62 75 |rawLine |1,1,1,bu|
|000014a0| 74 74 6f 6e 48 65 69 67 | 68 74 2d 33 2a 62 4f 66 |ttonHeig|ht-3*bOf|
|000014b0| 66 2e 67 72 61 70 68 69 | 63 73 2e 64 72 61 77 4c |f.graphi|cs.drawL|
|000014c0| 69 6e 65 20 31 2c 31 2c | 62 75 74 74 6f 6e 57 69 |ine 1,1,|buttonWi|
|000014d0| 64 74 68 2d 32 2c 31 2a | 62 4f 66 66 2e 67 72 61 |dth-2,1*|bOff.gra|
|000014e0| 70 68 69 63 73 2e 66 6f | 72 65 43 6f 6c 6f 72 20 |phics.fo|reColor |
|000014f0| 3d 20 72 67 62 28 31 34 | 30 2c 31 34 30 2c 31 34 |= rgb(14|0,140,14|
|00001500| 30 29 83 01 62 4f 66 66 | 2e 67 72 61 70 68 69 63 |0)..bOff|.graphic|
|00001510| 73 2e 64 72 61 77 4c 69 | 6e 65 20 62 75 74 74 6f |s.drawLi|ne butto|
|00001520| 6e 57 69 64 74 68 2d 32 | 2c 32 2c 62 75 74 74 6f |nWidth-2|,2,butto|
|00001530| 6e 57 69 64 74 68 2d 32 | 2c 62 75 74 74 6f 6e 48 |nWidth-2|,buttonH|
|00001540| 65 69 67 68 74 2d 32 84 | 01 62 4f 66 66 2e 67 72 |eight-2.|.bOff.gr|
|00001550| 61 70 68 69 63 73 2e 64 | 72 61 77 4c 69 6e 65 20 |aphics.d|rawLine |
|00001560| 62 75 74 74 6f 6e 57 69 | 64 74 68 2d 32 2c 62 75 |buttonWi|dth-2,bu|
|00001570| 74 74 6f 6e 48 65 69 67 | 68 74 2d 32 2c 32 2c 62 |ttonHeig|ht-2,2,b|
|00001580| 75 74 74 6f 6e 48 65 69 | 67 68 74 2d 32 37 62 4f |uttonHei|ght-27bO|
|00001590| 66 66 2e 67 72 61 70 68 | 69 63 73 2e 70 69 78 65 |ff.graph|ics.pixe|
|000015a0| 6c 28 62 75 74 74 6f 6e | 57 69 64 74 68 2d 32 2c |l(button|Width-2,|
|000015b0| 31 29 20 3d 20 72 67 62 | 28 32 30 36 2c 32 30 36 |1) = rgb|(206,206|
|000015c0| 2c 32 30 36 29 38 62 4f | 66 66 2e 67 72 61 70 68 |,206)8bO|ff.graph|
|000015d0| 69 63 73 2e 70 69 78 65 | 6c 28 31 2c 62 75 74 74 |ics.pixe|l(1,butt|
|000015e0| 6f 6e 48 65 69 67 68 74 | 2d 32 29 20 3d 20 72 67 |onHeight|-2) = rg|
|000015f0| 62 28 32 30 36 2c 32 30 | 36 2c 32 30 36 29 00 0c |b(206,20|6,206)..|
|00001600| 2f 2f 63 72 65 61 74 65 | 20 62 4f 6e 2d 62 4f 6e |//create| bOn-bOn|
|00001610| 20 3d 20 6e 65 77 50 69 | 63 74 75 72 65 28 62 75 | = newPi|cture(bu|
|00001620| 74 74 6f 6e 57 69 64 74 | 68 2c 62 75 74 74 6f 6e |ttonWidt|h,button|
|00001630| 48 65 69 67 68 74 2c 31 | 36 29 29 62 4f 6e 2e 67 |Height,1|6))bOn.g|
|00001640| 72 61 70 68 69 63 73 2e | 66 6f 72 65 43 6f 6c 6f |raphics.|foreColo|
|00001650| 72 20 3d 20 72 67 62 28 | 31 34 30 2c 31 34 30 2c |r = rgb(|140,140,|
|00001660| 31 34 30 29 32 62 4f 6e | 2e 67 72 61 70 68 69 63 |140)2bOn|.graphic|
|00001670| 73 2e 66 69 6c 6c 52 65 | 63 74 20 30 2c 30 2c 62 |s.fillRe|ct 0,0,b|
|00001680| 75 74 74 6f 6e 57 69 64 | 74 68 2c 62 75 74 74 6f |uttonWid|th,butto|
|00001690| 6e 48 65 69 67 68 74 26 | 62 4f 6e 2e 67 72 61 70 |nHeight&|bOn.grap|
|000016a0| 68 69 63 73 2e 66 6f 72 | 65 43 6f 6c 6f 72 20 3d |hics.for|eColor =|
|000016b0| 20 72 67 62 28 31 36 2c | 31 36 2c 31 36 29 28 62 | rgb(16,|16,16)(b|
|000016c0| 4f 6e 2e 67 72 61 70 68 | 69 63 73 2e 64 72 61 77 |On.graph|ics.draw|
|000016d0| 4c 69 6e 65 20 30 2c 30 | 2c 30 2c 62 75 74 74 6f |Line 0,0|,0,butto|
|000016e0| 6e 48 65 69 67 68 74 27 | 62 4f 6e 2e 67 72 61 70 |nHeight'|bOn.grap|
|000016f0| 68 69 63 73 2e 64 72 61 | 77 4c 69 6e 65 20 30 2c |hics.dra|wLine 0,|
|00001700| 30 2c 62 75 74 74 6f 6e | 57 69 64 74 68 2c 30 25 |0,button|Width,0%|
|00001710| 62 4f 6e 2e 67 72 61 70 | 68 69 63 73 2e 66 6f 72 |bOn.grap|hics.for|
|00001720| 65 43 6f 6c 6f 72 20 3d | 20 72 67 62 28 36 36 2c |eColor =| rgb(66,|
|00001730| 36 36 2c 36 29 82 01 62 | 4f 6e 2e 67 72 61 70 68 |66,6)..b|On.graph|
|00001740| 69 63 73 2e 64 72 61 77 | 4c 69 6e 65 20 62 75 74 |ics.draw|Line but|
|00001750| 74 6f 6e 57 69 64 74 68 | 2d 31 2c 31 2c 62 75 74 |tonWidth|-1,1,but|
|00001760| 74 6f 6e 57 69 64 74 68 | 2d 31 2c 62 75 74 74 6f |tonWidth|-1,butto|
|00001770| 6e 48 65 69 67 68 74 2d | 31 83 01 62 4f 6e 2e 67 |nHeight-|1..bOn.g|
|00001780| 72 61 70 68 69 63 73 2e | 64 72 61 77 4c 69 6e 65 |raphics.|drawLine|
|00001790| 20 62 75 74 74 6f 6e 57 | 69 64 74 68 2d 31 2c 62 | buttonW|idth-1,b|
|000017a0| 75 74 74 6f 6e 48 65 69 | 67 68 74 2d 31 2c 31 2c |uttonHei|ght-1,1,|
|000017b0| 62 75 74 74 6f 6e 48 65 | 69 67 68 74 2d 31 26 62 |buttonHe|ight-1&b|
|000017c0| 4f 6e 2e 67 72 61 70 68 | 69 63 73 2e 66 6f 72 65 |On.graph|ics.fore|
|000017d0| 43 6f 6c 6f 72 20 3d 20 | 72 67 62 28 38 32 2c 38 |Color = |rgb(82,8|
|000017e0| 32 2c 38 32 29 2a 62 4f | 6e 2e 67 72 61 70 68 69 |2,82)*bO|n.graphi|
|000017f0| 63 73 2e 64 72 61 77 4c | 69 6e 65 20 31 2c 31 2c |cs.drawL|ine 1,1,|
|00001800| 31 2c 62 75 74 74 6f 6e | 48 65 69 67 68 74 2d 33 |1,button|Height-3|
|00001810| 29 62 4f 6e 2e 67 72 61 | 70 68 69 63 73 2e 64 72 |)bOn.gra|phics.dr|
|00001820| 61 77 4c 69 6e 65 20 31 | 2c 31 2c 62 75 74 74 6f |awLine 1|,1,butto|
|00001830| 6e 57 69 64 74 68 2d 32 | 2c 31 29 62 4f 6e 2e 67 |nWidth-2|,1)bOn.g|
|00001840| 72 61 70 68 69 63 73 2e | 66 6f 72 65 43 6f 6c 6f |raphics.|foreColo|
|00001850| 72 20 3d 20 72 67 62 28 | 31 37 33 2c 31 37 33 2c |r = rgb(|173,173,|
|00001860| 31 37 33 29 82 01 62 4f | 6e 2e 67 72 61 70 68 69 |173)..bO|n.graphi|
|00001870| 63 73 2e 64 72 61 77 4c | 69 6e 65 20 62 75 74 74 |cs.drawL|ine butt|
|00001880| 6f 6e 57 69 64 74 68 2d | 32 2c 32 2c 62 75 74 74 |onWidth-|2,2,butt|
|00001890| 6f 6e 57 69 64 74 68 2d | 32 2c 62 75 74 74 6f 6e |onWidth-|2,button|
|000018a0| 48 65 69 67 68 74 2d 32 | 83 01 62 4f 6e 2e 67 72 |Height-2|..bOn.gr|
|000018b0| 61 70 68 69 63 73 2e 64 | 72 61 77 4c 69 6e 65 20 |aphics.d|rawLine |
|000018c0| 62 75 74 74 6f 6e 57 69 | 64 74 68 2d 32 2c 62 75 |buttonWi|dth-2,bu|
|000018d0| 74 74 6f 6e 48 65 69 67 | 68 74 2d 32 2c 32 2c 62 |ttonHeig|ht-2,2,b|
|000018e0| 75 74 74 6f 6e 48 65 69 | 67 68 74 2d 32 36 62 4f |uttonHei|ght-26bO|
|000018f0| 6e 2e 67 72 61 70 68 69 | 63 73 2e 70 69 78 65 6c |n.graphi|cs.pixel|
|00001900| 28 62 75 74 74 6f 6e 57 | 69 64 74 68 2d 32 2c 31 |(buttonW|idth-2,1|
|00001910| 29 20 3d 20 72 67 62 28 | 31 31 35 2c 31 31 35 2c |) = rgb(|115,115,|
|00001920| 31 31 35 29 37 62 4f 6e | 2e 67 72 61 70 68 69 63 |115)7bOn|.graphic|
|00001930| 73 2e 70 69 78 65 6c 28 | 31 2c 62 75 74 74 6f 6e |s.pixel(|1,button|
|00001940| 48 65 69 67 68 74 2d 32 | 29 20 3d 20 72 67 62 28 |Height-2|) = rgb(|
|00001950| 31 31 35 2c 31 31 35 2c | 31 31 35 29 00 14 2f 2f |115,115,|115)..//|
|00001960| 63 72 65 61 74 65 20 62 | 4e 6f 74 45 6e 61 62 6c |create b|NotEnabl|
|00001970| 65 64 35 62 4e 6f 74 45 | 6e 61 62 6c 65 64 20 3d |ed5bNotE|nabled =|
|00001980| 20 6e 65 77 50 69 63 74 | 75 72 65 28 62 75 74 74 | newPict|ure(butt|
|00001990| 6f 6e 57 69 64 74 68 2c | 62 75 74 74 6f 6e 48 65 |onWidth,|buttonHe|
|000019a0| 69 67 68 74 2c 31 36 29 | 31 62 4e 6f 74 45 6e 61 |ight,16)|1bNotEna|
|000019b0| 62 6c 65 64 2e 67 72 61 | 70 68 69 63 73 2e 66 6f |bled.gra|phics.fo|
|000019c0| 72 65 43 6f 6c 6f 72 20 | 3d 20 72 67 62 28 32 32 |reColor |= rgb(22|
|000019d0| 32 2c 32 32 32 2c 32 32 | 32 29 3a 62 4e 6f 74 45 |2,222,22|2):bNotE|
|000019e0| 6e 61 62 6c 65 64 2e 67 | 72 61 70 68 69 63 73 2e |nabled.g|raphics.|
|000019f0| 66 69 6c 6c 52 65 63 74 | 20 30 2c 30 2c 62 75 74 |fillRect| 0,0,but|
|00001a00| 74 6f 6e 57 69 64 74 68 | 2c 62 75 74 74 6f 6e 48 |tonWidth|,buttonH|
|00001a10| 65 69 67 68 74 31 62 4e | 6f 74 45 6e 61 62 6c 65 |eight1bN|otEnable|
|00001a20| 64 2e 67 72 61 70 68 69 | 63 73 2e 66 6f 72 65 43 |d.graphi|cs.foreC|
|00001a30| 6f 6c 6f 72 20 3d 20 72 | 67 62 28 31 35 36 2c 31 |olor = r|gb(156,1|
|00001a40| 35 36 2c 31 35 36 29 3e | 62 4e 6f 74 45 6e 61 62 |56,156)>|bNotEnab|
|00001a50| 6c 65 64 2e 67 72 61 70 | 68 69 63 73 2e 64 72 61 |led.grap|hics.dra|
|00001a60| 77 52 65 63 74 20 30 2c | 30 2c 62 75 74 74 6f 6e |wRect 0,|0,button|
|00001a70| 57 69 64 74 68 2d 31 2c | 62 75 74 74 6f 6e 48 65 |Width-1,|buttonHe|
|00001a80| 69 67 68 74 2d 31 07 45 | 6e 64 20 53 75 62 09 64 |ight-1.E|nd Sub.d|
|00001a90| 72 61 77 41 6c 70 68 61 | 21 69 6e 64 65 78 20 61 |rawAlpha|!index a|
|00001aa0| 73 20 69 6e 74 65 67 65 | 72 2c 20 6d 6f 64 65 20 |s intege|r, mode |
|00001ab0| 61 73 20 69 6e 74 65 67 | 65 72 07 70 69 63 74 75 |as integ|er.pictu|
|00001ac0| 72 65 00 19 85 01 19 85 | 01 20 80 01 46 75 6e 63 |re......|. ..Func|
|00001ad0| 74 69 6f 6e 20 64 72 61 | 77 41 6c 70 68 61 28 69 |tion dra|wAlpha(i|
|00001ae0| 6e 64 65 78 20 61 73 20 | 69 6e 74 65 67 65 72 2c |ndex as |integer,|
|00001af0| 20 6d 6f 64 65 20 61 73 | 20 69 6e 74 65 67 65 72 | mode as| integer|
|00001b00| 29 20 41 73 20 70 69 63 | 74 75 72 65 16 27 69 6e |) As pic|ture.'in|
|00001b10| 64 65 78 20 3d 20 62 75 | 74 74 6f 6e 20 6e 75 6d |dex = bu|tton num|
|00001b20| 62 65 72 1e 27 6d 6f 64 | 65 20 30 3d 6f 6e 2c 20 |ber.'mod|e 0=on, |
|00001b30| 31 3d 6f 66 66 2c 20 32 | 3d 20 64 69 73 61 62 6c |1=off, 2|= disabl|
|00001b40| 65 64 10 64 69 6d 20 70 | 20 61 73 20 70 69 63 74 |ed.dim p| as pict|
|00001b50| 75 72 65 12 64 69 6d 20 | 4c 2c 54 20 61 73 20 69 |ure.dim |L,T as i|
|00001b60| 6e 74 65 67 65 72 0f 64 | 69 6d 20 73 20 61 73 20 |nteger.d|im s as |
|00001b70| 73 74 72 69 6e 67 00 2b | 70 20 3d 20 6e 65 77 50 |string.+|p = newP|
|00001b80| 69 63 74 75 72 65 28 62 | 75 74 74 6f 6e 57 69 64 |icture(b|uttonWid|
|00001b90| 74 68 2c 62 75 74 74 6f | 6e 48 65 69 67 68 74 2c |th,butto|nHeight,|
|00001ba0| 31 36 29 00 10 73 65 6c | 65 63 74 20 63 61 73 65 |16)..sel|ect case|
|00001bb0| 20 6d 6f 64 65 06 63 61 | 73 65 20 30 1e 70 2e 67 | mode.ca|se 0.p.g|
|00001bc0| 72 61 70 68 69 63 73 2e | 64 72 61 77 50 69 63 74 |raphics.|drawPict|
|00001bd0| 75 72 65 20 62 4f 6e 2c | 30 2c 30 06 63 61 73 65 |ure bOn,|0,0.case|
|00001be0| 20 31 1f 70 2e 67 72 61 | 70 68 69 63 73 2e 64 72 | 1.p.gra|phics.dr|
|00001bf0| 61 77 50 69 63 74 75 72 | 65 20 62 4f 66 66 2c 30 |awPictur|e bOff,0|
|00001c00| 2c 30 06 63 61 73 65 20 | 32 26 70 2e 67 72 61 70 |,0.case |2&p.grap|
|00001c10| 68 69 63 73 2e 64 72 61 | 77 50 69 63 74 75 72 65 |hics.dra|wPicture|
|00001c20| 20 62 4e 6f 74 45 6e 61 | 62 6c 65 64 2c 30 2c 30 | bNotEna|bled,0,0|
|00001c30| 27 70 2e 67 72 61 70 68 | 69 63 73 2e 66 6f 72 65 |'p.graph|ics.fore|
|00001c40| 43 6f 6c 6f 72 20 3d 20 | 72 67 62 28 31 31 35 2c |Color = |rgb(115,|
|00001c50| 31 31 35 2c 31 31 35 29 | 0a 65 6e 64 20 73 65 6c |115,115)|.end sel|
|00001c60| 65 63 74 00 24 70 2e 67 | 72 61 70 68 69 63 73 2e |ect.$p.g|raphics.|
|00001c70| 74 65 78 74 46 6f 6e 74 | 20 3d 20 62 75 74 74 6f |textFont| = butto|
|00001c80| 6e 54 65 78 74 46 6f 6e | 74 24 70 2e 67 72 61 70 |nTextFon|t$p.grap|
|00001c90| 68 69 63 73 2e 74 65 78 | 74 53 69 7a 65 20 3d 20 |hics.tex|tSize = |
|00001ca0| 62 75 74 74 6f 6e 54 65 | 78 74 53 69 7a 65 20 70 |buttonTe|xtSize p|
|00001cb0| 2e 67 72 61 70 68 69 63 | 73 2e 62 6f 6c 64 20 3d |.graphic|s.bold =|
|00001cc0| 20 62 75 74 74 6f 6e 54 | 65 78 74 42 6f 6c 64 00 | buttonT|extBold.|
|00001cd0| 15 73 20 3d 20 67 65 74 | 43 61 70 74 69 6f 6e 28 |.s = get|Caption(|
|00001ce0| 69 6e 64 65 78 29 33 4c | 20 3d 20 28 20 62 75 74 |index)3L| = ( but|
|00001cf0| 74 6f 6e 57 69 64 74 68 | 20 2d 20 70 2e 67 72 61 |tonWidth| - p.gra|
|00001d00| 70 68 69 63 73 2e 73 74 | 72 69 6e 67 57 69 64 74 |phics.st|ringWidt|
|00001d10| 68 28 73 29 20 29 20 2f | 20 32 86 01 54 20 3d 20 |h(s) ) /| 2..T = |
|00001d20| 28 20 28 20 62 75 74 74 | 6f 6e 48 65 69 67 68 74 |( ( butt|onHeight|
|00001d30| 20 2d 20 62 75 74 74 6f | 6e 54 65 78 74 53 69 7a | - butto|nTextSiz|
|00001d40| 65 20 29 20 2f 20 32 20 | 29 20 2b 20 70 2e 67 72 |e ) / 2 |) + p.gr|
|00001d50| 61 70 68 69 63 73 2e 74 | 65 78 74 41 73 63 65 6e |aphics.t|extAscen|
|00001d60| 74 20 00 1b 70 2e 67 72 | 61 70 68 69 63 73 2e 64 |t ..p.gr|aphics.d|
|00001d70| 72 61 77 53 74 72 69 6e | 67 20 73 2c 4c 2c 54 00 |rawStrin|g s,L,T.|
|00001d80| 08 72 65 74 75 72 6e 20 | 70 00 0c 45 6e 64 20 46 |.return |p..End F|
|00001d90| 75 6e 63 74 69 6f 6e 11 | 63 72 65 61 74 65 4c 61 |unction.|createLa|
|00001da0| 72 67 65 42 75 74 74 6f | 6e 00 00 00 03 00 03 00 |rgeButto|n.......|
|00001db0| 3b 17 53 75 62 20 63 72 | 65 61 74 65 4c 61 72 67 |;.Sub cr|eateLarg|
|00001dc0| 65 42 75 74 74 6f 6e 28 | 29 11 64 69 6d 20 67 20 |eButton(|).dim g |
|00001dd0| 61 73 20 67 72 61 70 68 | 69 63 73 12 64 69 6d 20 |as graph|ics.dim |
|00001de0| 4c 2c 54 20 61 73 20 69 | 6e 74 65 67 65 72 00 12 |L,T as i|nteger..|
|00001df0| 2f 2f 63 72 65 61 74 65 | 20 6c 61 72 67 65 42 6f |//create| largeBo|
|00001e00| 66 66 38 6c 61 72 67 65 | 42 6f 66 66 20 3d 20 6e |ff8large|Boff = n|
|00001e10| 65 77 50 69 63 74 75 72 | 65 28 6c 61 72 67 65 42 |ewPictur|e(largeB|
|00001e20| 75 74 74 6f 6e 57 69 64 | 74 68 2c 62 75 74 74 6f |uttonWid|th,butto|
|00001e30| 6e 48 65 69 67 68 74 2c | 31 36 29 16 67 20 3d 20 |nHeight,|16).g = |
|00001e40| 6c 61 72 67 65 42 6f 66 | 66 2e 67 72 61 70 68 69 |largeBof|f.graphi|
|00001e50| 63 73 1e 67 2e 66 6f 72 | 65 43 6f 6c 6f 72 20 3d |cs.g.for|eColor =|
|00001e60| 20 72 67 62 28 32 30 36 | 2c 32 30 36 2c 32 30 36 | rgb(206|,206,206|
|00001e70| 29 2c 67 2e 66 69 6c 6c | 52 65 63 74 20 30 2c 30 |),g.fill|Rect 0,0|
|00001e80| 2c 6c 61 72 67 65 42 75 | 74 74 6f 6e 57 69 64 74 |,largeBu|ttonWidt|
|00001e90| 68 2c 62 75 74 74 6f 6e | 48 65 69 67 68 74 1b 67 |h,button|Height.g|
|00001ea0| 2e 66 6f 72 65 43 6f 6c | 6f 72 20 3d 20 72 67 62 |.foreCol|or = rgb|
|00001eb0| 28 39 39 2c 39 39 2c 39 | 39 29 1d 67 2e 64 72 61 |(99,99,9|9).g.dra|
|00001ec0| 77 4c 69 6e 65 20 30 2c | 30 2c 30 2c 62 75 74 74 |wLine 0,|0,0,butt|
|00001ed0| 6f 6e 48 65 69 67 68 74 | 21 67 2e 64 72 61 77 4c |onHeight|!g.drawL|
|00001ee0| 69 6e 65 20 30 2c 30 2c | 6c 61 72 67 65 42 75 74 |ine 0,0,|largeBut|
|00001ef0| 74 6f 6e 57 69 64 74 68 | 2c 30 1b 67 2e 66 6f 72 |tonWidth|,0.g.for|
|00001f00| 65 43 6f 6c 6f 72 20 3d | 20 72 67 62 28 34 39 2c |eColor =| rgb(49,|
|00001f10| 34 39 2c 34 39 29 81 01 | 67 2e 64 72 61 77 4c 69 |49,49)..|g.drawLi|
|00001f20| 6e 65 20 6c 61 72 67 65 | 42 75 74 74 6f 6e 57 69 |ne large|ButtonWi|
|00001f30| 64 74 68 2d 31 2c 31 2c | 6c 61 72 67 65 42 75 74 |dth-1,1,|largeBut|
|00001f40| 74 6f 6e 57 69 64 74 68 | 2d 31 2c 62 75 74 74 6f |tonWidth|-1,butto|
|00001f50| 6e 48 65 69 67 68 74 2d | 31 3d 67 2e 64 72 61 77 |nHeight-|1=g.draw|
|00001f60| 4c 69 6e 65 20 6c 61 72 | 67 65 42 75 74 74 6f 6e |Line lar|geButton|
|00001f70| 57 69 64 74 68 2d 31 2c | 62 75 74 74 6f 6e 48 65 |Width-1,|buttonHe|
|00001f80| 69 67 68 74 2d 31 2c 31 | 2c 62 75 74 74 6f 6e 48 |ight-1,1|,buttonH|
|00001f90| 65 69 67 68 74 2d 31 1e | 67 2e 66 6f 72 65 43 6f |eight-1.|g.foreCo|
|00001fa0| 6c 6f 72 20 3d 20 72 67 | 62 28 32 35 35 2c 32 35 |lor = rg|b(255,25|
|00001fb0| 35 2c 32 35 35 29 1f 67 | 2e 64 72 61 77 4c 69 6e |5,255).g|.drawLin|
|00001fc0| 65 20 31 2c 31 2c 31 2c | 62 75 74 74 6f 6e 48 65 |e 1,1,1,|buttonHe|
|00001fd0| 69 67 68 74 2d 33 23 67 | 2e 64 72 61 77 4c 69 6e |ight-3#g|.drawLin|
|00001fe0| 65 20 31 2c 31 2c 6c 61 | 72 67 65 42 75 74 74 6f |e 1,1,la|rgeButto|
|00001ff0| 6e 57 69 64 74 68 2d 32 | 2c 31 1e 67 2e 66 6f 72 |nWidth-2|,1.g.for|
|00002000| 65 43 6f 6c 6f 72 20 3d | 20 72 67 62 28 31 34 30 |eColor =| rgb(140|
|00002010| 2c 31 34 30 2c 31 34 30 | 29 81 01 67 2e 64 72 61 |,140,140|)..g.dra|
|00002020| 77 4c 69 6e 65 20 6c 61 | 72 67 65 42 75 74 74 6f |wLine la|rgeButto|
|00002030| 6e 57 69 64 74 68 2d 32 | 2c 32 2c 6c 61 72 67 65 |nWidth-2|,2,large|
|00002040| 42 75 74 74 6f 6e 57 69 | 64 74 68 2d 32 2c 62 75 |ButtonWi|dth-2,bu|
|00002050| 74 74 6f 6e 48 65 69 67 | 68 74 2d 32 3d 67 2e 64 |ttonHeig|ht-2=g.d|
|00002060| 72 61 77 4c 69 6e 65 20 | 6c 61 72 67 65 42 75 74 |rawLine |largeBut|
|00002070| 74 6f 6e 57 69 64 74 68 | 2d 32 2c 62 75 74 74 6f |tonWidth|-2,butto|
|00002080| 6e 48 65 69 67 68 74 2d | 32 2c 32 2c 62 75 74 74 |nHeight-|2,2,butt|
|00002090| 6f 6e 48 65 69 67 68 74 | 2d 32 30 67 2e 70 69 78 |onHeight|-20g.pix|
|000020a0| 65 6c 28 6c 61 72 67 65 | 42 75 74 74 6f 6e 57 69 |el(large|ButtonWi|
|000020b0| 64 74 68 2d 32 2c 31 29 | 20 3d 20 72 67 62 28 32 |dth-2,1)| = rgb(2|
|000020c0| 30 36 2c 32 30 36 2c 32 | 30 36 29 2c 67 2e 70 69 |06,206,2|06),g.pi|
|000020d0| 78 65 6c 28 31 2c 62 75 | 74 74 6f 6e 48 65 69 67 |xel(1,bu|ttonHeig|
|000020e0| 68 74 2d 32 29 20 3d 20 | 72 67 62 28 32 30 36 2c |ht-2) = |rgb(206,|
|000020f0| 32 30 36 2c 32 30 36 29 | 18 67 2e 66 6f 72 65 43 |206,206)|.g.foreC|
|00002100| 6f 6c 6f 72 20 3d 20 72 | 67 62 28 30 2c 30 2c 30 |olor = r|gb(0,0,0|
|00002110| 29 1b 67 2e 74 65 78 74 | 46 6f 6e 74 20 3d 20 62 |).g.text|Font = b|
|00002120| 75 74 74 6f 6e 54 65 78 | 74 46 6f 6e 74 1b 67 2e |uttonTex|tFont.g.|
|00002130| 74 65 78 74 53 69 7a 65 | 20 3d 20 62 75 74 74 6f |textSize| = butto|
|00002140| 6e 54 65 78 74 53 69 7a | 65 17 67 2e 62 6f 6c 64 |nTextSiz|e.g.bold|
|00002150| 20 3d 20 62 75 74 74 6f | 6e 54 65 78 74 42 6f 6c | = butto|nTextBol|
|00002160| 64 3d 4c 20 3d 20 28 20 | 6c 61 72 67 65 42 75 74 |d=L = ( |largeBut|
|00002170| 74 6f 6e 57 69 64 74 68 | 20 2d 20 67 2e 73 74 72 |tonWidth| - g.str|
|00002180| 69 6e 67 57 69 64 74 68 | 28 6c 61 72 67 65 42 75 |ingWidth|(largeBu|
|00002190| 74 74 6f 6e 54 65 78 74 | 29 20 29 20 2f 20 32 3c |ttonText|) ) / 2<|
|000021a0| 54 20 3d 20 28 20 28 20 | 62 75 74 74 6f 6e 48 65 |T = ( ( |buttonHe|
|000021b0| 69 67 68 74 20 2d 20 62 | 75 74 74 6f 6e 54 65 78 |ight - b|uttonTex|
|000021c0| 74 53 69 7a 65 20 29 20 | 2f 20 32 20 29 20 2b 20 |tSize ) |/ 2 ) + |
|000021d0| 67 2e 74 65 78 74 41 73 | 63 65 6e 74 20 67 2e 64 |g.textAs|cent g.d|
|000021e0| 72 61 77 53 74 72 69 6e | 67 20 6c 61 72 67 65 42 |rawStrin|g largeB|
|000021f0| 75 74 74 6f 6e 54 65 78 | 74 2c 4c 2c 54 00 11 2f |uttonTex|t,L,T../|
|00002200| 2f 63 72 65 61 74 65 20 | 6c 61 72 67 65 42 6f 6e |/create |largeBon|
|00002210| 37 6c 61 72 67 65 42 6f | 6e 20 3d 20 6e 65 77 50 |7largeBo|n = newP|
|00002220| 69 63 74 75 72 65 28 6c | 61 72 67 65 42 75 74 74 |icture(l|argeButt|
|00002230| 6f 6e 57 69 64 74 68 2c | 62 75 74 74 6f 6e 48 65 |onWidth,|buttonHe|
|00002240| 69 67 68 74 2c 31 36 29 | 15 67 20 3d 20 6c 61 72 |ight,16)|.g = lar|
|00002250| 67 65 42 6f 6e 2e 67 72 | 61 70 68 69 63 73 1e 67 |geBon.gr|aphics.g|
|00002260| 2e 66 6f 72 65 43 6f 6c | 6f 72 20 3d 20 72 67 62 |.foreCol|or = rgb|
|00002270| 28 31 34 30 2c 31 34 30 | 2c 31 34 30 29 2c 67 2e |(140,140|,140),g.|
|00002280| 66 69 6c 6c 52 65 63 74 | 20 30 2c 30 2c 6c 61 72 |fillRect| 0,0,lar|
|00002290| 67 65 42 75 74 74 6f 6e | 57 69 64 74 68 2c 62 75 |geButton|Width,bu|
|000022a0| 74 74 6f 6e 48 65 69 67 | 68 74 1b 67 2e 66 6f 72 |ttonHeig|ht.g.for|
|000022b0| 65 43 6f 6c 6f 72 20 3d | 20 72 67 62 28 31 36 2c |eColor =| rgb(16,|
|000022c0| 31 36 2c 31 36 29 1d 67 | 2e 64 72 61 77 4c 69 6e |16,16).g|.drawLin|
|000022d0| 65 20 30 2c 30 2c 30 2c | 62 75 74 74 6f 6e 48 65 |e 0,0,0,|buttonHe|
|000022e0| 69 67 68 74 21 67 2e 64 | 72 61 77 4c 69 6e 65 20 |ight!g.d|rawLine |
|000022f0| 30 2c 30 2c 6c 61 72 67 | 65 42 75 74 74 6f 6e 57 |0,0,larg|eButtonW|
|00002300| 69 64 74 68 2c 30 1b 67 | 2e 66 6f 72 65 43 6f 6c |idth,0.g|.foreCol|
|00002310| 6f 72 20 3d 20 72 67 62 | 28 36 36 2c 36 36 2c 36 |or = rgb|(66,66,6|
|00002320| 36 29 81 01 67 2e 64 72 | 61 77 4c 69 6e 65 20 6c |6)..g.dr|awLine l|
|00002330| 61 72 67 65 42 75 74 74 | 6f 6e 57 69 64 74 68 2d |argeButt|onWidth-|
|00002340| 31 2c 31 2c 6c 61 72 67 | 65 42 75 74 74 6f 6e 57 |1,1,larg|eButtonW|
|00002350| 69 64 74 68 2d 31 2c 62 | 75 74 74 6f 6e 48 65 69 |idth-1,b|uttonHei|
|00002360| 67 68 74 2d 31 3d 67 2e | 64 72 61 77 4c 69 6e 65 |ght-1=g.|drawLine|
|00002370| 20 6c 61 72 67 65 42 75 | 74 74 6f 6e 57 69 64 74 | largeBu|ttonWidt|
|00002380| 68 2d 31 2c 62 75 74 74 | 6f 6e 48 65 69 67 68 74 |h-1,butt|onHeight|
|00002390| 2d 31 2c 31 2c 62 75 74 | 74 6f 6e 48 65 69 67 68 |-1,1,but|tonHeigh|
|000023a0| 74 2d 31 1b 67 2e 66 6f | 72 65 43 6f 6c 6f 72 20 |t-1.g.fo|reColor |
|000023b0| 3d 20 72 67 62 28 38 32 | 2c 38 32 2c 38 32 29 1f |= rgb(82|,82,82).|
|000023c0| 67 2e 64 72 61 77 4c 69 | 6e 65 20 31 2c 31 2c 31 |g.drawLi|ne 1,1,1|
|000023d0| 2c 62 75 74 74 6f 6e 48 | 65 69 67 68 74 2d 33 23 |,buttonH|eight-3#|
|000023e0| 67 2e 64 72 61 77 4c 69 | 6e 65 20 31 2c 31 2c 6c |g.drawLi|ne 1,1,l|
|000023f0| 61 72 67 65 42 75 74 74 | 6f 6e 57 69 64 74 68 2d |argeButt|onWidth-|
|00002400| 32 2c 31 1e 67 2e 66 6f | 72 65 43 6f 6c 6f 72 20 |2,1.g.fo|reColor |
|00002410| 3d 20 72 67 62 28 31 37 | 33 2c 31 37 33 2c 31 37 |= rgb(17|3,173,17|
|00002420| 33 29 81 01 67 2e 64 72 | 61 77 4c 69 6e 65 20 6c |3)..g.dr|awLine l|
|00002430| 61 72 67 65 42 75 74 74 | 6f 6e 57 69 64 74 68 2d |argeButt|onWidth-|
|00002440| 32 2c 32 2c 6c 61 72 67 | 65 42 75 74 74 6f 6e 57 |2,2,larg|eButtonW|
|00002450| 69 64 74 68 2d 32 2c 62 | 75 74 74 6f 6e 48 65 69 |idth-2,b|uttonHei|
|00002460| 67 68 74 2d 32 3d 67 2e | 64 72 61 77 4c 69 6e 65 |ght-2=g.|drawLine|
|00002470| 20 6c 61 72 67 65 42 75 | 74 74 6f 6e 57 69 64 74 | largeBu|ttonWidt|
|00002480| 68 2d 32 2c 62 75 74 74 | 6f 6e 48 65 69 67 68 74 |h-2,butt|onHeight|
|00002490| 2d 32 2c 32 2c 62 75 74 | 74 6f 6e 48 65 69 67 68 |-2,2,but|tonHeigh|
|000024a0| 74 2d 32 30 67 2e 70 69 | 78 65 6c 28 6c 61 72 67 |t-20g.pi|xel(larg|
|000024b0| 65 42 75 74 74 6f 6e 57 | 69 64 74 68 2d 32 2c 31 |eButtonW|idth-2,1|
|000024c0| 29 20 3d 20 72 67 62 28 | 31 31 35 2c 31 31 35 2c |) = rgb(|115,115,|
|000024d0| 31 31 35 29 2c 67 2e 70 | 69 78 65 6c 28 31 2c 62 |115),g.p|ixel(1,b|
|000024e0| 75 74 74 6f 6e 48 65 69 | 67 68 74 2d 32 29 20 3d |uttonHei|ght-2) =|
|000024f0| 20 72 67 62 28 31 31 35 | 2c 31 31 35 2c 31 31 35 | rgb(115|,115,115|
|00002500| 29 18 67 2e 66 6f 72 65 | 43 6f 6c 6f 72 20 3d 20 |).g.fore|Color = |
|00002510| 72 67 62 28 30 2c 30 2c | 30 29 1b 67 2e 74 65 78 |rgb(0,0,|0).g.tex|
|00002520| 74 46 6f 6e 74 20 3d 20 | 62 75 74 74 6f 6e 54 65 |tFont = |buttonTe|
|00002530| 78 74 46 6f 6e 74 1b 67 | 2e 74 65 78 74 53 69 7a |xtFont.g|.textSiz|
|00002540| 65 20 3d 20 62 75 74 74 | 6f 6e 54 65 78 74 53 69 |e = butt|onTextSi|
|00002550| 7a 65 17 67 2e 62 6f 6c | 64 20 3d 20 62 75 74 74 |ze.g.bol|d = butt|
|00002560| 6f 6e 54 65 78 74 42 6f | 6c 64 3d 4c 20 3d 20 28 |onTextBo|ld=L = (|
|00002570| 20 6c 61 72 67 65 42 75 | 74 74 6f 6e 57 69 64 74 | largeBu|ttonWidt|
|00002580| 68 20 2d 20 67 2e 73 74 | 72 69 6e 67 57 69 64 74 |h - g.st|ringWidt|
|00002590| 68 28 6c 61 72 67 65 42 | 75 74 74 6f 6e 54 65 78 |h(largeB|uttonTex|
|000025a0| 74 29 20 29 20 2f 20 32 | 3c 54 20 3d 20 28 20 28 |t) ) / 2|<T = ( (|
|000025b0| 20 62 75 74 74 6f 6e 48 | 65 69 67 68 74 20 2d 20 | buttonH|eight - |
|000025c0| 62 75 74 74 6f 6e 54 65 | 78 74 53 69 7a 65 20 29 |buttonTe|xtSize )|
|000025d0| 20 2f 20 32 20 29 20 2b | 20 67 2e 74 65 78 74 41 | / 2 ) +| g.textA|
|000025e0| 73 63 65 6e 74 20 67 2e | 64 72 61 77 53 74 72 69 |scent g.|drawStri|
|000025f0| 6e 67 20 6c 61 72 67 65 | 42 75 74 74 6f 6e 54 65 |ng large|ButtonTe|
|00002600| 78 74 2c 4c 2c 54 00 07 | 45 6e 64 20 53 75 62 06 |xt,L,T..|End Sub.|
|00002610| 75 70 64 61 74 65 00 00 | 00 01 1a 01 1a 04 0c 53 |update..|.......S|
|00002620| 75 62 20 75 70 64 61 74 | 65 28 29 99 01 2f 2f 6a |ub updat|e()..//j|
|00002630| 75 73 74 20 66 6f 72 20 | 65 61 73 69 65 72 20 61 |ust for |easier a|
|00002640| 63 63 65 73 73 20 2d 20 | 74 6f 20 72 65 64 72 61 |ccess - |to redra|
|00002650| 77 20 61 6c 6c 20 62 75 | 74 74 6f 6e 73 20 69 66 |w all bu|ttons if|
|00002660| 20 63 68 61 6e 67 65 73 | 20 68 61 76 65 20 62 65 | changes| have be|
|00002670| 65 6e 20 6d 61 64 65 20 | 69 6e 20 74 68 65 20 63 |en made |in the c|
|00002680| 6f 64 65 2e 2e 2e 15 64 | 72 61 77 42 75 74 74 6f |ode....d|rawButto|
|00002690| 6e 73 28 74 72 75 65 2c | 30 2c 30 29 07 45 6e 64 |ns(true,|0,0).End|
|000026a0| 20 53 75 62 04 69 6e 69 | 74 00 00 00 13 8b 01 13 | Sub.ini|t.......|
|000026b0| 8b 01 26 0a 53 75 62 20 | 69 6e 69 74 28 29 10 64 |..&.Sub |init().d|
|000026c0| 69 6d 20 69 20 61 73 20 | 69 6e 74 65 67 65 72 00 |im i as |integer.|
|000026d0| 93 01 2f 2f 73 65 74 20 | 74 68 65 20 63 6f 72 72 |..//set |the corr|
|000026e0| 65 63 74 20 62 75 74 74 | 6f 6e 20 63 6f 75 6e 74 |ect butt|on count|
|000026f0| 2c 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 6f 6c 75 |, number| of colu|
|00002700| 6d 6e 73 20 61 6e 64 20 | 72 6f 77 73 2c 20 61 6e |mns and |rows, an|
|00002710| 64 20 73 65 74 20 74 68 | 65 20 63 61 6e 76 61 73 |d set th|e canvas|
|00002720| 20 73 69 7a 65 2c 62 75 | 74 74 6f 6e 43 6f 75 6e | size,bu|ttonCoun|
|00002730| 74 20 3d 20 63 6f 75 6e | 74 46 69 65 6c 64 73 28 |t = coun|tFields(|
|00002740| 62 75 74 74 6f 6e 43 61 | 70 74 69 6f 6e 2c 22 2c |buttonCa|ption,",|
|00002750| 22 29 16 69 66 20 68 6f | 72 69 7a 6f 6e 74 61 6c |").if ho|rizontal|
|00002760| 4f 6e 6c 79 20 74 68 65 | 6e 0e 62 75 74 74 6f 6e |Only the|n.button|
|00002770| 52 6f 77 73 20 3d 20 31 | 1b 62 75 74 74 6f 6e 43 |Rows = 1|.buttonC|
|00002780| 6f 6c 75 6d 6e 73 20 3d | 20 62 75 74 74 6f 6e 43 |olumns =| buttonC|
|00002790| 6f 75 6e 74 17 69 66 20 | 73 68 6f 77 4c 61 72 67 |ount.if |showLarg|
|000027a0| 65 42 75 74 74 6f 6e 20 | 74 68 65 6e 8d 01 6d 65 |eButton |then..me|
|000027b0| 2e 77 69 64 74 68 20 3d | 20 28 20 28 62 75 74 74 |.width =| ( (butt|
|000027c0| 6f 6e 57 69 64 74 68 20 | 2b 20 62 75 74 74 6f 6e |onWidth |+ button|
|000027d0| 53 70 61 63 69 6e 67 29 | 2a 62 75 74 74 6f 6e 43 |Spacing)|*buttonC|
|000027e0| 6f 6c 75 6d 6e 73 20 29 | 20 2b 20 6c 61 72 67 65 |olumns )| + large|
|000027f0| 42 75 74 74 6f 6e 57 69 | 64 74 68 04 65 6c 73 65 |ButtonWi|dth.else|
|00002800| 86 01 6d 65 2e 77 69 64 | 74 68 20 3d 20 28 62 75 |..me.wid|th = (bu|
|00002810| 74 74 6f 6e 57 69 64 74 | 68 20 2b 20 62 75 74 74 |ttonWidt|h + butt|
|00002820| 6f 6e 53 70 61 63 69 6e | 67 29 2a 62 75 74 74 6f |onSpacin|g)*butto|
|00002830| 6e 43 6f 6c 75 6d 6e 73 | 20 2d 20 62 75 74 74 6f |nColumns| - butto|
|00002840| 6e 53 70 61 63 69 6e 67 | 06 65 6e 64 20 69 66 04 |nSpacing|.end if.|
|00002850| 65 6c 73 65 2c 62 75 74 | 74 6f 6e 52 6f 77 73 20 |else,but|tonRows |
|00002860| 3d 20 63 65 69 6c 28 62 | 75 74 74 6f 6e 43 6f 75 |= ceil(b|uttonCou|
|00002870| 6e 74 2f 62 75 74 74 6f | 6e 43 6f 6c 75 6d 6e 73 |nt/butto|nColumns|
|00002880| 29 86 01 6d 65 2e 77 69 | 64 74 68 20 3d 20 28 62 |)..me.wi|dth = (b|
|00002890| 75 74 74 6f 6e 57 69 64 | 74 68 20 2b 20 62 75 74 |uttonWid|th + but|
|000028a0| 74 6f 6e 53 70 61 63 69 | 6e 67 29 2a 62 75 74 74 |tonSpaci|ng)*butt|
|000028b0| 6f 6e 43 6f 6c 75 6d 6e | 73 20 2d 20 62 75 74 74 |onColumn|s - butt|
|000028c0| 6f 6e 53 70 61 63 69 6e | 67 06 65 6e 64 20 69 66 |onSpacin|g.end if|
|000028d0| 00 23 69 66 20 6d 65 2e | 77 69 64 74 68 20 3c 20 |.#if me.|width < |
|000028e0| 6c 61 72 67 65 42 75 74 | 74 6f 6e 57 69 64 74 68 |largeBut|tonWidth|
|000028f0| 20 74 68 65 6e 8b 01 2f | 2f 20 69 66 20 6c 61 72 | then../|/ if lar|
|00002900| 67 65 42 75 74 74 6f 6e | 20 69 73 20 73 65 74 20 |geButton| is set |
|00002910| 6c 61 72 67 65 72 20 74 | 68 61 6e 20 74 68 65 20 |larger t|han the |
|00002920| 77 69 64 74 68 20 6f 66 | 20 74 68 65 20 63 6f 6c |width of| the col|
|00002930| 75 6d 6e 73 20 6f 66 20 | 62 75 74 74 6f 6e 73 2e |umns of |buttons.|
|00002940| 2e 2e 1b 6c 61 72 67 65 | 42 75 74 74 6f 6e 57 69 |...large|ButtonWi|
|00002950| 64 74 68 20 3d 20 6d 65 | 2e 77 69 64 74 68 06 65 |dth = me|.width.e|
|00002960| 6e 64 20 69 66 1a 69 66 | 20 6e 6f 74 20 68 6f 72 |nd if.if| not hor|
|00002970| 69 7a 6f 6e 74 61 6c 4f | 6e 6c 79 20 74 68 65 6e |izontalO|nly then|
|00002980| 17 69 66 20 73 68 6f 77 | 4c 61 72 67 65 42 75 74 |.if show|LargeBut|
|00002990| 74 6f 6e 20 74 68 65 6e | 84 01 6d 65 2e 68 65 69 |ton then|..me.hei|
|000029a0| 67 68 74 20 3d 20 28 62 | 75 74 74 6f 6e 48 65 69 |ght = (b|uttonHei|
|000029b0| 67 68 74 20 2b 20 62 75 | 74 74 6f 6e 53 70 61 63 |ght + bu|ttonSpac|
|000029c0| 69 6e 67 29 2a 62 75 74 | 74 6f 6e 52 6f 77 73 20 |ing)*but|tonRows |
|000029d0| 2b 20 62 75 74 74 6f 6e | 48 65 69 67 68 74 04 65 |+ button|Height.e|
|000029e0| 6c 73 65 85 01 6d 65 2e | 68 65 69 67 68 74 20 3d |lse..me.|height =|
|000029f0| 20 28 62 75 74 74 6f 6e | 48 65 69 67 68 74 20 2b | (button|Height +|
|00002a00| 20 62 75 74 74 6f 6e 53 | 70 61 63 69 6e 67 29 2a | buttonS|pacing)*|
|00002a10| 62 75 74 74 6f 6e 52 6f | 77 73 20 2d 20 62 75 74 |buttonRo|ws - but|
|00002a20| 74 6f 6e 53 70 61 63 69 | 6e 67 06 65 6e 64 20 69 |tonSpaci|ng.end i|
|00002a30| 66 04 65 6c 73 65 18 6d | 65 2e 68 65 69 67 68 74 |f.else.m|e.height|
|00002a40| 20 3d 20 62 75 74 74 6f | 6e 48 65 69 67 68 74 06 | = butto|nHeight.|
|00002a50| 65 6e 64 20 69 66 00 1d | 72 65 64 69 6d 20 6e 6f |end if..|redim no|
|00002a60| 74 45 6e 61 62 6c 65 64 | 28 62 75 74 74 6f 6e 43 |tEnabled|(buttonC|
|00002a70| 6f 75 6e 74 29 00 0f 63 | 72 65 61 74 65 42 75 74 |ount)..c|reateBut|
|00002a80| 74 6f 6e 73 28 29 13 63 | 72 65 61 74 65 4c 61 72 |tons().c|reateLar|
|00002a90| 67 65 42 75 74 74 6f 6e | 28 29 00 07 45 6e 64 20 |geButton|()..End |
|00002aa0| 53 75 62 02 04 4f 70 65 | 6e 00 00 06 41 63 74 69 |Sub..Ope|n...Acti|
|00002ab0| 6f 6e 10 69 6e 64 65 78 | 20 61 73 20 69 6e 74 65 |on.index| as inte|
|00002ac0| 67 65 72 00 03 09 4d 6f | 75 73 65 44 6f 77 6e 2c |ger...Mo|useDown,|
|00002ad0| 1b 2c 1b 31 39 46 75 6e | 63 74 69 6f 6e 20 4d 6f |.,.19Fun|ction Mo|
|00002ae0| 75 73 65 44 6f 77 6e 28 | 58 20 41 73 20 49 6e 74 |useDown(|X As Int|
|00002af0| 65 67 65 72 2c 20 59 20 | 41 73 20 49 6e 74 65 67 |eger, Y |As Integ|
|00002b00| 65 72 29 20 41 73 20 42 | 6f 6f 6c 65 61 6e 22 64 |er) As B|oolean"d|
|00002b10| 69 6d 20 72 6f 77 2c 63 | 6f 6c 75 6d 6e 2c 73 65 |im row,c|olumn,se|
|00002b20| 6c 2c 70 72 65 76 20 61 | 73 20 69 6e 74 65 67 65 |l,prev a|s intege|
|00002b30| 72 1a 64 69 6d 20 62 75 | 74 74 57 2c 62 75 74 74 |r.dim bu|ttW,butt|
|00002b40| 48 20 61 73 20 69 6e 74 | 65 67 65 72 16 64 69 6d |H as int|eger.dim|
|00002b50| 20 73 68 6f 77 41 6c 6c | 20 61 73 20 62 6f 6f 6c | showAll| as bool|
|00002b60| 65 61 6e 00 21 62 75 74 | 74 57 20 3d 20 62 75 74 |ean.!but|tW = but|
|00002b70| 74 6f 6e 57 69 64 74 68 | 2b 62 75 74 74 6f 6e 53 |tonWidth|+buttonS|
|00002b80| 70 61 63 69 6e 67 2b 69 | 66 20 78 20 3e 3d 20 30 |pacing+i|f x >= 0|
|00002b90| 20 61 6e 64 20 78 20 3c | 3d 20 62 75 74 74 57 2a | and x <|= buttW*|
|00002ba0| 62 75 74 74 6f 6e 43 6f | 6c 75 6d 6e 73 20 74 68 |buttonCo|lumns th|
|00002bb0| 65 6e 16 63 6f 6c 75 6d | 6e 20 3d 20 63 65 69 6c |en.colum|n = ceil|
|00002bc0| 28 78 2f 62 75 74 74 57 | 29 2e 69 66 20 28 20 78 |(x/buttW|).if ( x|
|00002bd0| 2d 28 28 63 6f 6c 75 6d | 6e 2d 31 29 2a 62 75 74 |-((colum|n-1)*but|
|00002be0| 74 57 29 20 29 20 3e 20 | 62 75 74 74 6f 6e 57 69 |tW) ) > |buttonWi|
|00002bf0| 64 74 68 20 74 68 65 6e | 0a 63 6f 6c 75 6d 6e 20 |dth then|.column |
|00002c00| 3d 20 30 06 65 6e 64 20 | 69 66 1b 65 6c 73 65 69 |= 0.end |if.elsei|
|00002c10| 66 20 68 6f 72 69 7a 6f | 6e 74 61 6c 4f 6e 6c 79 |f horizo|ntalOnly|
|00002c20| 20 74 68 65 6e 20 0e 73 | 68 6f 77 41 6c 6c 20 3d | then .s|howAll =|
|00002c30| 20 74 72 75 65 04 65 6c | 73 65 0a 63 6f 6c 75 6d | true.el|se.colum|
|00002c40| 6e 20 3d 20 30 06 65 6e | 64 20 69 66 00 22 62 75 |n = 0.en|d if."bu|
|00002c50| 74 74 48 20 3d 20 62 75 | 74 74 6f 6e 48 65 69 67 |ttH = bu|ttonHeig|
|00002c60| 68 74 2b 62 75 74 74 6f | 6e 53 70 61 63 69 6e 67 |ht+butto|nSpacing|
|00002c70| 28 69 66 20 79 20 3e 3d | 20 30 20 61 6e 64 20 79 |(if y >=| 0 and y|
|00002c80| 20 3c 3d 20 62 75 74 74 | 48 2a 62 75 74 74 6f 6e | <= butt|H*button|
|00002c90| 52 6f 77 73 20 74 68 65 | 6e 13 72 6f 77 20 3d 20 |Rows the|n.row = |
|00002ca0| 63 65 69 6c 28 79 2f 62 | 75 74 74 48 29 2c 69 66 |ceil(y/b|uttH),if|
|00002cb0| 20 28 20 79 2d 28 28 72 | 6f 77 2d 31 29 2a 62 75 | ( y-((r|ow-1)*bu|
|00002cc0| 74 74 48 29 20 29 20 3e | 20 62 75 74 74 6f 6e 48 |ttH) ) >| buttonH|
|00002cd0| 65 69 67 68 74 20 74 68 | 65 6e 07 72 6f 77 20 3d |eight th|en.row =|
|00002ce0| 20 30 06 65 6e 64 20 69 | 66 20 65 6c 73 65 69 66 | 0.end i|f elseif|
|00002cf0| 20 79 20 3e 20 62 75 74 | 74 6f 6e 52 6f 77 73 2a | y > but|tonRows*|
|00002d00| 62 75 74 74 48 20 74 68 | 65 6e 39 69 66 20 6e 6f |buttH th|en9if no|
|00002d10| 74 20 6c 61 72 67 65 42 | 75 74 74 6f 6e 43 65 6e |t largeB|uttonCen|
|00002d20| 74 65 72 65 64 20 61 6e | 64 20 78 20 3c 3d 20 6c |tered an|d x <= l|
|00002d30| 61 72 67 65 42 75 74 74 | 6f 6e 57 69 64 74 68 20 |argeButt|onWidth |
|00002d40| 74 68 65 6e 0e 73 68 6f | 77 41 6c 6c 20 3d 20 74 |then.sho|wAll = t|
|00002d50| 72 75 65 82 02 65 6c 73 | 65 69 66 20 6c 61 72 67 |rue..els|eif larg|
|00002d60| 65 42 75 74 74 6f 6e 43 | 65 6e 74 65 72 65 64 20 |eButtonC|entered |
|00002d70| 61 6e 64 20 78 20 3e 3d | 20 28 6d 65 2e 77 69 64 |and x >=| (me.wid|
|00002d80| 74 68 2d 6c 61 72 67 65 | 42 75 74 74 6f 6e 57 69 |th-large|ButtonWi|
|00002d90| 64 74 68 29 2f 32 20 61 | 6e 64 20 78 20 3c 3d 20 |dth)/2 a|nd x <= |
|00002da0| 28 28 6d 65 2e 77 69 64 | 74 68 2d 6c 61 72 67 65 |((me.wid|th-large|
|00002db0| 42 75 74 74 6f 6e 57 69 | 64 74 68 29 2f 32 29 20 |ButtonWi|dth)/2) |
|00002dc0| 2b 20 6c 61 72 67 65 42 | 75 74 74 6f 6e 57 69 64 |+ largeB|uttonWid|
|00002dd0| 74 68 20 74 68 65 6e 0e | 73 68 6f 77 41 6c 6c 20 |th then.|showAll |
|00002de0| 3d 20 74 72 75 65 06 65 | 6e 64 20 69 66 04 65 6c |= true.e|nd if.el|
|00002df0| 73 65 07 72 6f 77 20 3d | 20 30 06 65 6e 64 20 69 |se.row =| 0.end i|
|00002e00| 66 00 aa 01 69 66 20 28 | 20 28 20 28 72 6f 77 2a |f...if (| ( (row*|
|00002e10| 62 75 74 74 6f 6e 43 6f | 6c 75 6d 6e 73 29 20 2d |buttonCo|lumns) -|
|00002e20| 20 62 75 74 74 6f 6e 43 | 6f 6c 75 6d 6e 73 20 2b | buttonC|olumns +|
|00002e30| 20 63 6f 6c 75 6d 6e 20 | 29 20 3c 3d 20 62 75 74 | column |) <= but|
|00002e40| 74 6f 6e 43 6f 75 6e 74 | 20 61 6e 64 20 72 6f 77 |tonCount| and row|
|00002e50| 2a 63 6f 6c 75 6d 6e 20 | 3c 3e 20 30 20 29 20 6f |*column |<> 0 ) o|
|00002e60| 72 20 73 68 6f 77 41 6c | 6c 20 74 68 65 6e 13 69 |r showAl|l then.i|
|00002e70| 66 20 6e 6f 74 20 73 68 | 6f 77 41 6c 6c 20 74 68 |f not sh|owAll th|
|00002e80| 65 6e 32 73 65 6c 20 3d | 20 28 72 6f 77 2a 62 75 |en2sel =| (row*bu|
|00002e90| 74 74 6f 6e 43 6f 6c 75 | 6d 6e 73 29 20 2d 20 62 |ttonColu|mns) - b|
|00002ea0| 75 74 74 6f 6e 43 6f 6c | 75 6d 6e 73 20 2b 20 63 |uttonCol|umns + c|
|00002eb0| 6f 6c 75 6d 6e 04 65 6c | 73 65 07 73 65 6c 20 3d |olumn.el|se.sel =|
|00002ec0| 20 30 06 65 6e 64 20 69 | 66 00 3c 69 66 20 73 65 | 0.end i|f.<if se|
|00002ed0| 6c 20 3c 3e 20 73 65 6c | 65 63 74 65 64 20 61 6e |l <> sel|ected an|
|00002ee0| 64 20 28 6e 6f 74 20 6e | 6f 74 45 6e 61 62 6c 65 |d (not n|otEnable|
|00002ef0| 64 28 73 65 6c 29 20 6f | 72 20 73 65 6c 20 3d 20 |d(sel) o|r sel = |
|00002f00| 30 29 20 74 68 65 6e 0f | 70 72 65 76 20 3d 20 73 |0) then.|prev = s|
|00002f10| 65 6c 65 63 74 65 64 0e | 73 65 6c 65 63 74 65 64 |elected.|selected|
|00002f20| 20 3d 20 73 65 6c 1b 64 | 72 61 77 42 75 74 74 6f | = sel.d|rawButto|
|00002f30| 6e 73 28 66 61 6c 73 65 | 2c 70 72 65 76 2c 73 65 |ns(false|,prev,se|
|00002f40| 6c 29 1b 41 63 74 69 6f | 6e 20 73 65 6c 65 63 74 |l).Actio|n select|
|00002f50| 65 64 20 2f 2f 4e 65 77 | 20 65 76 65 6e 74 06 65 |ed //New| event.e|
|00002f60| 6e 64 20 69 66 06 65 6e | 64 20 69 66 00 0c 45 6e |nd if.en|d if..En|
|00002f70| 64 20 46 75 6e 63 74 69 | 6f 6e 05 50 61 69 6e 74 |d Functi|on.Paint|
|00002f80| 01 00 01 0b 03 18 53 75 | 62 20 50 61 69 6e 74 28 |......Su|b Paint(|
|00002f90| 67 20 41 73 20 47 72 61 | 70 68 69 63 73 29 15 64 |g As Gra|phics).d|
|00002fa0| 72 61 77 42 75 74 74 6f | 6e 73 28 74 72 75 65 2c |rawButto|ns(true,|
|00002fb0| 30 2c 30 29 07 45 6e 64 | 20 53 75 62 04 4f 70 65 |0,0).End| Sub.Ope|
|00002fc0| 6e 12 00 12 00 14 0a 53 | 75 62 20 4f 70 65 6e 28 |n......S|ub Open(|
|00002fd0| 29 00 09 2f 2f 64 65 66 | 61 75 6c 74 14 72 65 64 |)..//def|ault.red|
|00002fe0| 69 6d 20 6e 6f 74 45 6e | 61 62 6c 65 64 28 32 36 |im notEn|abled(26|
|00002ff0| 29 85 01 62 75 74 74 6f | 6e 43 61 70 74 69 6f 6e |)..butto|nCaption|
|00003000| 20 3d 20 22 41 2c 42 2c | 43 2c 44 2c 45 2c 46 2c | = "A,B,|C,D,E,F,|
|00003010| 47 2c 48 2c 49 2c 4a 2c | 4b 2c 4c 2c 4d 2c 4e 2c |G,H,I,J,|K,L,M,N,|
|00003020| 4f 2c 50 2c 51 2c 52 2c | 53 2c 54 2c 55 2c 56 2c |O,P,Q,R,|S,T,U,V,|
|00003030| 57 2c 58 2c 59 2c 5a 22 | 19 62 75 74 74 6f 6e 54 |W,X,Y,Z"|.buttonT|
|00003040| 65 78 74 46 6f 6e 74 20 | 3d 20 22 73 79 73 74 65 |extFont |= "syste|
|00003050| 6d 22 12 62 75 74 74 6f | 6e 54 65 78 74 53 69 7a |m".butto|nTextSiz|
|00003060| 65 20 3d 20 39 10 62 75 | 74 74 6f 6e 57 69 64 74 |e = 9.bu|ttonWidt|
|00003070| 68 20 3d 20 31 36 11 62 | 75 74 74 6f 6e 48 65 69 |h = 16.b|uttonHei|
|00003080| 67 68 74 20 3d 20 31 36 | 11 62 75 74 74 6f 6e 53 |ght = 16|.buttonS|
|00003090| 70 61 63 69 6e 67 20 3d | 20 31 11 62 75 74 74 6f |pacing =| 1.butto|
|000030a0| 6e 43 6f 6c 75 6d 6e 73 | 20 3d 20 37 1c 6c 61 72 |nColumns| = 7.lar|
|000030b0| 67 65 42 75 74 74 6f 6e | 54 65 78 74 20 3d 20 22 |geButton|Text = "|
|000030c0| 53 68 6f 77 20 61 6c 6c | 22 16 6c 61 72 67 65 42 |Show all|".largeB|
|000030d0| 75 74 74 6f 6e 57 69 64 | 74 68 20 3d 20 31 31 38 |uttonWid|th = 118|
|000030e0| 16 73 68 6f 77 4c 61 72 | 67 65 42 75 74 74 6f 6e |.showLar|geButton|
|000030f0| 20 3d 20 74 72 75 65 00 | 06 4f 70 65 6e 28 29 00 | = true.|.Open().|
|00003100| 06 69 6e 69 74 28 29 00 | 07 45 6e 64 20 53 75 62 |.init().|.End Sub|
|00003110| 00 00 00                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+