/ MacFormat 2000 February / MacFormat 87.iso / Shareware Plus / Development / OptionDialog Folder / OptionDialog

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 04 56 69 65 77 0c 4f 70 | 74 69 6f 6e 44 69 61 6c |.View.Op|tionDial|
|00000010| 6f 67 05 ae 01 a4 01 a4 | 01 90 01 9d 0d 96 08 9f |og......|........|
|00000020| 02 13 04 4e 61 6d 65 0c | 4f 70 74 69 6f 6e 44 69 |...Name.|OptionDi|
|00000030| 61 6c 6f 67 05 46 72 61 | 6d 65 01 32 0c 48 61 73 |alog.Fra|me.2.Has|
|00000040| 42 61 63 6b 43 6f 6c 6f | 72 05 46 61 6c 73 65 09 |BackColo|r.False.|
|00000050| 42 61 63 6b 43 6f 6c 6f | 72 08 31 36 37 37 37 32 |BackColo|r.167772|
|00000060| 31 35 08 42 61 63 6b 64 | 72 6f 70 01 30 05 54 69 |15.Backd|rop.0.Ti|
|00000070| 74 6c 65 09 59 6f 75 72 | 20 43 61 6c 6c 07 56 69 |tle.Your| Call.Vi|
|00000080| 73 69 62 6c 65 05 46 61 | 6c 73 65 08 43 6c 6f 73 |sible.Fa|lse.Clos|
|00000090| 65 42 6f 78 05 46 61 6c | 73 65 08 47 72 6f 77 49 |eBox.Fal|se.GrowI|
|000000a0| 63 6f 6e 05 46 61 6c 73 | 65 08 5a 6f 6f 6d 49 63 |con.Fals|e.ZoomIc|
|000000b0| 6f 6e 05 46 61 6c 73 65 | 0b 42 61 6c 6c 6f 6f 6e |on.False|.Balloon|
|000000c0| 48 65 6c 70 00 09 4d 61 | 63 50 72 6f 63 49 44 01 |Help..Ma|cProcID.|
|000000d0| 30 09 50 6c 61 63 65 6d | 65 6e 74 01 30 05 57 69 |0.Placem|ent.0.Wi|
|000000e0| 64 74 68 03 33 30 30 06 | 48 65 69 67 68 74 02 39 |dth.300.|Height.9|
|000000f0| 34 08 4d 69 6e 57 69 64 | 74 68 02 36 34 09 4d 69 |4.MinWid|th.64.Mi|
|00000100| 6e 48 65 69 67 68 74 02 | 36 34 08 4d 61 78 57 69 |nHeight.|64.MaxWi|
|00000110| 64 74 68 05 33 32 30 30 | 30 09 4d 61 78 48 65 69 |dth.3200|0.MaxHei|
|00000120| 67 68 74 05 33 32 30 30 | 30 07 00 0c 4f 70 74 69 |ght.3200|0...Opti|
|00000130| 6f 6e 44 69 61 6c 6f 67 | 84 02 06 44 69 61 6c 6f |onDialog|...Dialo|
|00000140| 67 00 05 10 4d 79 49 63 | 6f 6e 20 61 73 20 53 74 |g...MyIc|on as St|
|00000150| 72 69 6e 67 01 13 4d 79 | 4d 65 73 73 61 67 65 20 |ring..My|Message |
|00000160| 61 73 20 53 74 72 69 6e | 67 01 13 4d 79 42 75 74 |as Strin|g..MyBut|
|00000170| 74 6f 6e 73 20 61 73 20 | 53 74 72 69 6e 67 01 16 |tons as |String..|
|00000180| 42 75 74 74 6f 6e 50 75 | 73 68 65 64 20 61 73 20 |ButtonPu|shed as |
|00000190| 53 74 72 69 6e 67 01 12 | 54 68 65 49 63 6f 6e 20 |String..|TheIcon |
|000001a0| 61 73 20 50 69 63 74 75 | 72 65 01 06 03 41 73 6b |as Pictu|re...Ask|
|000001b0| 8a 01 4d 73 67 54 65 78 | 74 20 61 73 20 53 74 72 |..MsgTex|t as Str|
|000001c0| 69 6e 67 2c 20 49 63 6f | 6e 20 61 73 20 53 74 72 |ing, Ico|n as Str|
|000001d0| 69 6e 67 2c 20 42 75 74 | 74 6f 6e 54 65 78 74 20 |ing, But|tonText |
|000001e0| 61 73 20 53 74 72 69 6e | 67 2c 20 44 6f 42 65 65 |as Strin|g, DoBee|
|000001f0| 70 20 61 73 20 42 6f 6f | 6c 65 61 6e 06 53 74 72 |p as Boo|lean.Str|
|00000200| 69 6e 67 00 02 00 02 00 | 16 a2 01 46 75 6e 63 74 |ing.....|...Funct|
|00000210| 69 6f 6e 20 41 73 6b 28 | 4d 73 67 54 65 78 74 20 |ion Ask(|MsgText |
|00000220| 61 73 20 53 74 72 69 6e | 67 2c 20 49 63 6f 6e 20 |as Strin|g, Icon |
|00000230| 61 73 20 53 74 72 69 6e | 67 2c 20 42 75 74 74 6f |as Strin|g, Butto|
|00000240| 6e 54 65 78 74 20 61 73 | 20 53 74 72 69 6e 67 2c |nText as| String,|
|00000250| 20 44 6f 42 65 65 70 20 | 61 73 20 42 6f 6f 6c 65 | DoBeep |as Boole|
|00000260| 61 6e 29 20 41 73 20 53 | 74 72 69 6e 67 00 13 4d |an) As S|tring..M|
|00000270| 79 4d 65 73 73 61 67 65 | 20 3d 20 4d 73 67 54 65 |yMessage| = MsgTe|
|00000280| 78 74 0d 4d 79 49 63 6f | 6e 20 3d 20 49 63 6f 6e |xt.MyIco|n = Icon|
|00000290| 16 4d 79 42 75 74 74 6f | 6e 73 20 3d 20 42 75 74 |.MyButto|ns = But|
|000002a0| 74 6f 6e 54 65 78 74 00 | 3a 27 54 68 65 73 65 20 |tonText.|:'These |
|000002b0| 53 65 74 75 70 20 6d 65 | 74 68 6f 64 73 20 6d 75 |Setup me|thods mu|
|000002c0| 73 74 20 62 65 20 63 61 | 6c 6c 65 64 20 69 6e 20 |st be ca|lled in |
|000002d0| 74 68 69 73 20 6f 72 64 | 65 72 20 62 65 63 61 75 |this ord|er becau|
|000002e0| 73 65 20 31 27 74 68 65 | 20 6c 61 74 74 65 72 20 |se 1'the| latter |
|000002f0| 6f 6e 65 73 20 72 65 66 | 65 72 65 6e 63 65 20 65 |ones ref|erence e|
|00000300| 61 72 6c 69 65 72 20 6f | 6e 65 27 73 20 72 65 73 |arlier o|ne's res|
|00000310| 75 6c 74 73 2e 0c 53 65 | 74 75 70 42 75 74 74 6f |ults..Se|tupButto|
|00000320| 6e 73 09 53 65 74 75 70 | 49 63 6f 6e 09 53 65 74 |ns.Setup|Icon.Set|
|00000330| 75 70 54 65 78 74 00 0e | 49 66 20 44 6f 42 65 65 |upText..|If DoBee|
|00000340| 70 20 54 68 65 6e 04 42 | 65 65 70 03 45 6e 64 00 |p Then.B|eep.End.|
|00000350| 0e 53 65 6c 66 2e 53 68 | 6f 77 4d 6f 64 61 6c 0a |.Self.Sh|owModal.|
|00000360| 53 65 6c 66 2e 43 6c 6f | 73 65 00 13 52 65 74 75 |Self.Clo|se..Retu|
|00000370| 72 6e 20 42 75 74 74 6f | 6e 50 75 73 68 65 64 00 |rn Butto|nPushed.|
|00000380| 0c 45 6e 64 20 46 75 6e | 63 74 69 6f 6e 0c 53 65 |.End Fun|ction.Se|
|00000390| 74 75 70 42 75 74 74 6f | 6e 73 00 00 01 25 2d 25 |tupButto|ns...%-%|
|000003a0| 2d 3b 12 53 75 62 20 53 | 65 74 75 70 42 75 74 74 |-;.Sub S|etupButt|
|000003b0| 6f 6e 73 28 29 00 8d 01 | 44 69 6d 20 42 75 74 74 |ons()...|Dim Butt|
|000003c0| 6f 6e 48 65 69 67 68 74 | 2c 20 42 75 74 74 6f 6e |onHeight|, Button|
|000003d0| 57 69 64 74 68 2c 20 43 | 6f 75 6e 74 65 72 2c 20 |Width, C|ounter, |
|000003e0| 4c 61 73 74 42 75 74 74 | 6f 6e 4c 65 66 74 2c 20 |LastButt|onLeft, |
|000003f0| 4e 75 6d 42 75 74 74 6f | 6e 73 20 61 73 20 49 6e |NumButto|ns as In|
|00000400| 74 65 67 65 72 18 44 69 | 6d 20 42 75 74 74 6f 6e |teger.Di|m Button|
|00000410| 54 65 78 74 20 61 73 20 | 53 74 72 69 6e 67 1e 44 |Text as |String.D|
|00000420| 69 6d 20 54 68 69 73 42 | 75 74 74 6f 6e 20 61 73 |im ThisB|utton as|
|00000430| 20 4f 70 74 69 6f 6e 42 | 75 74 74 6f 6e 00 11 43 | OptionB|utton..C|
|00000440| 6f 6e 73 74 20 4d 61 72 | 67 69 6e 20 3d 20 31 30 |onst Mar|gin = 10|
|00000450| 15 43 6f 6e 73 74 20 54 | 65 78 74 4d 61 72 67 69 |.Const T|extMargi|
|00000460| 6e 20 3d 20 31 35 00 3a | 27 46 69 72 73 74 2c 20 |n = 15.:|'First, |
|00000470| 77 65 20 6e 65 65 64 20 | 74 6f 20 63 72 65 61 74 |we need |to creat|
|00000480| 65 20 74 68 65 20 6e 65 | 63 65 73 73 61 72 79 20 |e the ne|cessary |
|00000490| 6e 75 6d 62 65 72 20 6f | 66 20 62 75 74 74 6f 6e |number o|f button|
|000004a0| 73 2e 16 49 66 20 4d 79 | 42 75 74 74 6f 6e 73 20 |s..If My|Buttons |
|000004b0| 3d 20 22 22 20 54 68 65 | 6e 84 01 27 4f 6f 70 73 |= "" The|n..'Oops|
|000004c0| 21 20 4d 75 73 74 20 68 | 61 76 65 20 61 74 20 6c |! Must h|ave at l|
|000004d0| 65 61 73 74 20 6f 6e 65 | 20 62 75 74 74 6f 6e 20 |east one| button |
|000004e0| 73 6f 20 74 68 65 20 77 | 69 6e 64 6f 77 20 63 61 |so the w|indow ca|
|000004f0| 6e 20 62 65 20 64 69 73 | 6d 69 73 73 65 64 2e 22 |n be dis|missed."|
|00000500| 4f 70 74 69 6f 6e 42 75 | 74 74 6f 6e 28 30 29 2e |OptionBu|tton(0).|
|00000510| 43 61 70 74 69 6f 6e 20 | 3d 20 22 45 72 72 6f 72 |Caption |= "Error|
|00000520| 21 22 2f 45 6c 73 65 20 | 27 44 69 73 70 6c 61 79 |!"/Else |'Display|
|00000530| 20 61 20 62 75 74 74 6f | 6e 20 66 6f 72 20 65 61 | a butto|n for ea|
|00000540| 63 68 20 69 74 65 6d 20 | 72 65 71 75 65 73 74 65 |ch item |requeste|
|00000550| 64 2e 28 4e 75 6d 42 75 | 74 74 6f 6e 73 20 3d 20 |d.(NumBu|ttons = |
|00000560| 43 6f 75 6e 74 46 69 65 | 6c 64 73 28 4d 79 42 75 |CountFie|lds(MyBu|
|00000570| 74 74 6f 6e 73 2c 20 22 | 7c 22 29 1d 46 6f 72 20 |ttons, "||").For |
|00000580| 43 6f 75 6e 74 65 72 20 | 3d 20 31 20 74 6f 20 4e |Counter |= 1 to N|
|00000590| 75 6d 42 75 74 74 6f 6e | 73 2d 49 66 20 43 6f 75 |umButton|s-If Cou|
|000005a0| 6e 74 65 72 20 3e 20 31 | 20 54 68 65 6e 20 27 57 |nter > 1| Then 'W|
|000005b0| 65 27 6c 6c 20 6e 65 65 | 64 20 61 20 6e 65 77 20 |e'll nee|d a new |
|000005c0| 62 75 74 74 6f 6e 2e 1d | 54 68 69 73 42 75 74 74 |button..|ThisButt|
|000005d0| 6f 6e 20 3d 20 4e 65 77 | 20 4f 70 74 69 6f 6e 42 |on = New| OptionB|
|000005e0| 75 74 74 6f 6e 21 45 6c | 73 65 20 27 4a 75 73 74 |utton!El|se 'Just|
|000005f0| 20 70 6f 69 6e 74 20 74 | 6f 20 74 68 65 20 6f 72 | point t|o the or|
|00000600| 69 67 69 6e 61 6c 2e 1c | 54 68 69 73 42 75 74 74 |iginal..|ThisButt|
|00000610| 6f 6e 20 3d 20 4f 70 74 | 69 6f 6e 42 75 74 74 6f |on = Opt|ionButto|
|00000620| 6e 28 30 29 03 45 6e 64 | 2e 42 75 74 74 6f 6e 54 |n(0).End|.ButtonT|
|00000630| 65 78 74 20 3d 20 4e 74 | 68 46 69 65 6c 64 28 4d |ext = Nt|hField(M|
|00000640| 79 42 75 74 74 6f 6e 73 | 2c 20 22 7c 22 2c 20 43 |yButtons|, "|", C|
|00000650| 6f 75 6e 74 65 72 29 34 | 57 68 69 6c 65 20 4d 69 |ounter)4|While Mi|
|00000660| 64 28 42 75 74 74 6f 6e | 54 65 78 74 2c 20 32 2c |d(Button|Text, 2,|
|00000670| 20 31 29 20 3d 20 22 3a | 22 20 27 4f 70 74 69 6f | 1) = ":|" 'Optio|
|00000680| 6e 20 69 6e 64 69 63 61 | 74 65 64 3f 1f 53 65 6c |n indica|ted?.Sel|
|00000690| 65 63 74 20 43 61 73 65 | 20 4c 65 66 74 28 42 75 |ect Case| Left(Bu|
|000006a0| 74 74 6f 6e 54 65 78 74 | 2c 20 31 29 1a 43 61 73 |ttonText|, 1).Cas|
|000006b0| 65 20 22 43 22 20 27 43 | 61 6e 63 65 6c 20 70 72 |e "C" 'C|ancel pr|
|000006c0| 6f 70 65 72 74 79 2e 18 | 54 68 69 73 42 75 74 74 |operty..|ThisButt|
|000006d0| 6f 6e 2e 43 61 6e 63 65 | 6c 20 3d 20 54 72 75 65 |on.Cance|l = True|
|000006e0| 1b 43 61 73 65 20 22 44 | 22 20 27 44 65 66 61 75 |.Case "D|" 'Defau|
|000006f0| 6c 74 20 70 72 6f 70 65 | 72 74 79 2e 19 54 68 69 |lt prope|rty..Thi|
|00000700| 73 42 75 74 74 6f 6e 2e | 44 65 66 61 75 6c 74 20 |sButton.|Default |
|00000710| 3d 20 54 72 75 65 03 45 | 6e 64 35 42 75 74 74 6f |= True.E|nd5Butto|
|00000720| 6e 54 65 78 74 20 3d 20 | 52 69 67 68 74 28 42 75 |nText = |Right(Bu|
|00000730| 74 74 6f 6e 54 65 78 74 | 2c 20 28 4c 65 6e 28 42 |ttonText|, (Len(B|
|00000740| 75 74 74 6f 6e 54 65 78 | 74 29 20 2d 20 32 29 29 |uttonTex|t) - 2))|
|00000750| 04 57 65 6e 64 1f 54 68 | 69 73 42 75 74 74 6f 6e |.Wend.Th|isButton|
|00000760| 2e 43 61 70 74 69 6f 6e | 20 3d 20 42 75 74 74 6f |.Caption| = Butto|
|00000770| 6e 54 65 78 74 04 4e 65 | 78 74 03 45 6e 64 00 37 |nText.Ne|xt.End.7|
|00000780| 27 4e 6f 77 2c 20 77 65 | 20 6e 65 65 64 20 74 6f |'Now, we| need to|
|00000790| 20 73 69 7a 65 20 61 6e | 64 20 70 6f 73 69 74 69 | size an|d positi|
|000007a0| 6f 6e 20 74 68 65 20 62 | 75 74 74 6f 6e 73 20 77 |on the b|uttons w|
|000007b0| 65 20 68 61 76 65 2e 96 | 02 42 75 74 74 6f 6e 48 |e have..|.ButtonH|
|000007c0| 65 69 67 68 74 20 3d 20 | 54 65 78 74 48 65 69 67 |eight = |TextHeig|
|000007d0| 68 74 28 4f 70 74 69 6f | 6e 42 75 74 74 6f 6e 28 |ht(Optio|nButton(|
|000007e0| 30 29 2e 54 65 78 74 46 | 6f 6e 74 2c 20 4f 70 74 |0).TextF|ont, Opt|
|000007f0| 69 6f 6e 42 75 74 74 6f | 6e 28 30 29 2e 54 65 78 |ionButto|n(0).Tex|
|00000800| 74 53 69 7a 65 2c 20 4f | 70 74 69 6f 6e 42 75 74 |tSize, O|ptionBut|
|00000810| 74 6f 6e 28 30 29 2e 42 | 6f 6c 64 2c 20 4f 70 74 |ton(0).B|old, Opt|
|00000820| 69 6f 6e 42 75 74 74 6f | 6e 28 30 29 2e 49 74 61 |ionButto|n(0).Ita|
|00000830| 6c 69 63 2c 20 4f 70 74 | 69 6f 6e 42 75 74 74 6f |lic, Opt|ionButto|
|00000840| 6e 28 30 29 2e 55 6e 64 | 65 72 6c 69 6e 65 29 3a |n(0).Und|erline):|
|00000850| 42 75 74 74 6f 6e 48 65 | 69 67 68 74 20 3d 20 42 |ButtonHe|ight = B|
|00000860| 75 74 74 6f 6e 48 65 69 | 67 68 74 20 2b 20 54 65 |uttonHei|ght + Te|
|00000870| 78 74 4d 61 72 67 69 6e | 20 2f 20 32 20 27 41 64 |xtMargin| / 2 'Ad|
|00000880| 64 20 6d 61 72 67 69 6e | 73 2e 8c 01 49 66 20 42 |d margin|s...If B|
|00000890| 75 74 74 6f 6e 48 65 69 | 67 68 74 20 3c 20 4f 70 |uttonHei|ght < Op|
|000008a0| 74 69 6f 6e 42 75 74 74 | 6f 6e 28 30 29 2e 48 65 |tionButt|on(0).He|
|000008b0| 69 67 68 74 20 54 68 65 | 6e 20 27 4e 6f 74 20 6c |ight The|n 'Not l|
|000008c0| 65 73 73 20 74 68 61 6e | 20 69 74 20 73 74 61 72 |ess than| it star|
|000008d0| 74 65 64 20 6f 75 74 2e | 25 42 75 74 74 6f 6e 48 |ted out.|%ButtonH|
|000008e0| 65 69 67 68 74 20 3d 20 | 4f 70 74 69 6f 6e 42 75 |eight = |OptionBu|
|000008f0| 74 74 6f 6e 28 30 29 2e | 48 65 69 67 68 74 03 45 |tton(0).|Height.E|
|00000900| 6e 64 1b 4c 61 73 74 42 | 75 74 74 6f 6e 4c 65 66 |nd.LastB|uttonLef|
|00000910| 74 20 3d 20 53 65 6c 66 | 2e 57 69 64 74 68 1d 46 |t = Self|.Width.F|
|00000920| 6f 72 20 43 6f 75 6e 74 | 65 72 20 3d 20 31 20 74 |or Count|er = 1 t|
|00000930| 6f 20 4e 75 6d 42 75 74 | 74 6f 6e 73 2f 4f 70 74 |o NumBut|tons/Opt|
|00000940| 69 6f 6e 42 75 74 74 6f | 6e 28 43 6f 75 6e 74 65 |ionButto|n(Counte|
|00000950| 72 20 2d 20 31 29 2e 48 | 65 69 67 68 74 20 3d 20 |r - 1).H|eight = |
|00000960| 42 75 74 74 6f 6e 48 65 | 69 67 68 74 85 01 4f 70 |ButtonHe|ight..Op|
|00000970| 74 69 6f 6e 42 75 74 74 | 6f 6e 28 43 6f 75 6e 74 |tionButt|on(Count|
|00000980| 65 72 20 2d 20 31 29 2e | 54 6f 70 20 3d 20 53 65 |er - 1).|Top = Se|
|00000990| 6c 66 2e 48 65 69 67 68 | 74 20 2d 20 28 42 75 74 |lf.Heigh|t - (But|
|000009a0| 74 6f 6e 48 65 69 67 68 | 74 20 2b 20 4d 61 72 67 |tonHeigh|t + Marg|
|000009b0| 69 6e 29 86 03 42 75 74 | 74 6f 6e 57 69 64 74 68 |in)..But|tonWidth|
|000009c0| 20 3d 20 53 74 72 69 6e | 67 57 69 64 74 68 28 4f | = Strin|gWidth(O|
|000009d0| 70 74 69 6f 6e 42 75 74 | 74 6f 6e 28 43 6f 75 6e |ptionBut|ton(Coun|
|000009e0| 74 65 72 20 2d 20 31 29 | 2e 43 61 70 74 69 6f 6e |ter - 1)|.Caption|
|000009f0| 2c 20 4f 70 74 69 6f 6e | 42 75 74 74 6f 6e 28 43 |, Option|Button(C|
|00000a00| 6f 75 6e 74 65 72 20 2d | 20 31 29 2e 54 65 78 74 |ounter -| 1).Text|
|00000a10| 46 6f 6e 74 2c 20 4f 70 | 74 69 6f 6e 42 75 74 74 |Font, Op|tionButt|
|00000a20| 6f 6e 28 43 6f 75 6e 74 | 65 72 20 2d 20 31 29 2e |on(Count|er - 1).|
|00000a30| 54 65 78 74 53 69 7a 65 | 2c 20 4f 70 74 69 6f 6e |TextSize|, Option|
|00000a40| 42 75 74 74 6f 6e 28 43 | 6f 75 6e 74 65 72 20 2d |Button(C|ounter -|
|00000a50| 20 31 29 2e 42 6f 6c 64 | 2c 20 4f 70 74 69 6f 6e | 1).Bold|, Option|
|00000a60| 42 75 74 74 6f 6e 28 43 | 6f 75 6e 74 65 72 20 2d |Button(C|ounter -|
|00000a70| 20 31 29 2e 49 74 61 6c | 69 63 29 34 42 75 74 74 | 1).Ital|ic)4Butt|
|00000a80| 6f 6e 57 69 64 74 68 20 | 3d 20 42 75 74 74 6f 6e |onWidth |= Button|
|00000a90| 57 69 64 74 68 20 2b 20 | 54 65 78 74 4d 61 72 67 |Width + |TextMarg|
|00000aa0| 69 6e 20 27 41 64 64 20 | 6d 61 72 67 69 6e 73 2e |in 'Add |margins.|
|00000ab0| 88 01 49 66 20 42 75 74 | 74 6f 6e 57 69 64 74 68 |..If But|tonWidth|
|00000ac0| 20 3e 20 4f 70 74 69 6f | 6e 42 75 74 74 6f 6e 28 | > Optio|nButton(|
|00000ad0| 43 6f 75 6e 74 65 72 20 | 2d 20 31 29 2e 57 69 64 |Counter |- 1).Wid|
|00000ae0| 74 68 20 54 68 65 6e 20 | 27 57 69 64 65 6e 2c 20 |th Then |'Widen, |
|00000af0| 69 66 20 6e 65 65 64 65 | 64 2e 2d 4f 70 74 69 6f |if neede|d.-Optio|
|00000b00| 6e 42 75 74 74 6f 6e 28 | 43 6f 75 6e 74 65 72 20 |nButton(|Counter |
|00000b10| 2d 20 31 29 2e 57 69 64 | 74 68 20 3d 20 42 75 74 |- 1).Wid|th = But|
|00000b20| 74 6f 6e 57 69 64 74 68 | 03 45 6e 64 9c 01 4f 70 |tonWidth|.End..Op|
|00000b30| 74 69 6f 6e 42 75 74 74 | 6f 6e 28 43 6f 75 6e 74 |tionButt|on(Count|
|00000b40| 65 72 20 2d 20 31 29 2e | 4c 65 66 74 20 3d 20 28 |er - 1).|Left = (|
|00000b50| 4c 61 73 74 42 75 74 74 | 6f 6e 4c 65 66 74 20 2d |LastButt|onLeft -|
|00000b60| 20 4f 70 74 69 6f 6e 42 | 75 74 74 6f 6e 28 43 6f | OptionB|utton(Co|
|00000b70| 75 6e 74 65 72 20 2d 20 | 31 29 2e 57 69 64 74 68 |unter - |1).Width|
|00000b80| 29 20 2d 20 4d 61 72 67 | 69 6e 2f 4c 61 73 74 42 |) - Marg|in/LastB|
|00000b90| 75 74 74 6f 6e 4c 65 66 | 74 20 3d 20 4f 70 74 69 |uttonLef|t = Opti|
|00000ba0| 6f 6e 42 75 74 74 6f 6e | 28 43 6f 75 6e 74 65 72 |onButton|(Counter|
|00000bb0| 20 2d 20 31 29 2e 4c 65 | 66 74 04 4e 65 78 74 00 | - 1).Le|ft.Next.|
|00000bc0| 90 01 27 4c 61 73 74 6c | 79 2c 20 77 65 20 6e 65 |..'Lastl|y, we ne|
|00000bd0| 65 64 20 74 6f 20 6d 61 | 6b 65 20 73 75 72 65 20 |ed to ma|ke sure |
|00000be0| 74 68 65 20 77 69 6e 64 | 6f 77 20 69 73 20 77 69 |the wind|ow is wi|
|00000bf0| 64 65 20 65 6e 6f 75 67 | 68 20 74 6f 20 73 68 6f |de enoug|h to sho|
|00000c00| 77 20 61 6c 6c 20 74 68 | 65 20 62 75 74 74 6f 6e |w all th|e button|
|00000c10| 73 2e 20 49 66 20 4c 61 | 73 74 42 75 74 74 6f 6e |s. If La|stButton|
|00000c20| 4c 65 66 74 20 3c 20 4d | 61 72 67 69 6e 20 54 68 |Left < M|argin Th|
|00000c30| 65 6e 20 36 53 65 6c 66 | 2e 57 69 64 74 68 20 3d |en 6Self|.Width =|
|00000c40| 20 53 65 6c 66 2e 57 69 | 64 74 68 20 2b 20 41 62 | Self.Wi|dth + Ab|
|00000c50| 73 28 4c 61 73 74 42 75 | 74 74 6f 6e 4c 65 66 74 |s(LastBu|ttonLeft|
|00000c60| 29 20 2b 20 4d 61 72 67 | 69 6e 03 45 6e 64 07 45 |) + Marg|in.End.E|
|00000c70| 6e 64 20 53 75 62 09 53 | 65 74 75 70 54 65 78 74 |nd Sub.S|etupText|
|00000c80| 00 00 01 18 b0 01 18 b0 | 01 26 0f 53 75 62 20 53 |........|.&.Sub S|
|00000c90| 65 74 75 70 54 65 78 74 | 28 29 00 87 01 44 69 6d |etupText|()...Dim|
|00000ca0| 20 4c 69 6e 65 48 65 69 | 67 68 74 2c 20 4c 69 6e | LineHei|ght, Lin|
|00000cb0| 65 73 4e 65 65 64 65 64 | 2c 20 4e 65 77 48 65 69 |esNeeded|, NewHei|
|00000cc0| 67 68 74 2c 20 4e 65 77 | 6c 69 6e 65 73 2c 20 54 |ght, New|lines, T|
|00000cd0| 65 78 74 4c 65 6e 67 74 | 68 20 61 73 20 49 6e 74 |extLengt|h as Int|
|00000ce0| 65 67 65 72 00 11 43 6f | 6e 73 74 20 4d 61 72 67 |eger..Co|nst Marg|
|00000cf0| 69 6e 20 3d 20 31 30 00 | 26 49 66 20 49 63 6f 6e |in = 10.|&If Icon|
|00000d00| 43 61 6e 76 61 73 2e 56 | 69 73 69 62 6c 65 20 54 |Canvas.V|isible T|
|00000d10| 68 65 6e 20 27 57 69 74 | 68 20 69 63 6f 6e 2e 3d |hen 'Wit|h icon.=|
|00000d20| 53 74 61 74 69 63 54 65 | 78 74 2e 4c 65 66 74 20 |StaticTe|xt.Left |
|00000d30| 3d 20 49 63 6f 6e 43 61 | 6e 76 61 73 2e 4c 65 66 |= IconCa|nvas.Lef|
|00000d40| 74 20 2b 20 49 63 6f 6e | 43 61 6e 76 61 73 2e 57 |t + Icon|Canvas.W|
|00000d50| 69 64 74 68 20 2b 20 4d | 61 72 67 69 6e 13 45 6c |idth + M|argin.El|
|00000d60| 73 65 20 27 57 69 74 68 | 6f 75 74 20 69 63 6f 6e |se 'With|out icon|
|00000d70| 2e 18 53 74 61 74 69 63 | 54 65 78 74 2e 4c 65 66 |..Static|Text.Lef|
|00000d80| 74 20 3d 20 4d 61 72 67 | 69 6e 03 45 6e 64 17 53 |t = Marg|in.End.S|
|00000d90| 74 61 74 69 63 54 65 78 | 74 2e 54 6f 70 20 3d 20 |taticTex|t.Top = |
|00000da0| 4d 61 72 67 69 6e 3a 53 | 74 61 74 69 63 54 65 78 |Margin:S|taticTex|
|00000db0| 74 2e 57 69 64 74 68 20 | 3d 20 53 65 6c 66 2e 57 |t.Width |= Self.W|
|00000dc0| 69 64 74 68 20 2d 20 28 | 53 74 61 74 69 63 54 65 |idth - (|StaticTe|
|00000dd0| 78 74 2e 4c 65 66 74 20 | 2b 20 4d 61 72 67 69 6e |xt.Left |+ Margin|
|00000de0| 29 25 53 74 61 74 69 63 | 54 65 78 74 2e 48 65 69 |)%Static|Text.Hei|
|00000df0| 67 68 74 20 3d 20 49 63 | 6f 6e 43 61 6e 76 61 73 |ght = Ic|onCanvas|
|00000e00| 2e 48 65 69 67 68 74 00 | 33 27 41 74 20 74 68 69 |.Height.|3'At thi|
|00000e10| 73 20 70 6f 69 6e 74 20 | 74 68 65 20 74 65 78 74 |s point |the text|
|00000e20| 20 62 6f 78 20 69 73 20 | 61 6c 6c 20 73 65 74 2c | box is |all set,|
|00000e30| 20 75 6e 6c 65 73 73 20 | 74 68 65 20 34 27 74 65 | unless |the 4'te|
|00000e40| 78 74 20 72 65 71 75 69 | 72 65 73 20 6d 6f 72 65 |xt requi|res more|
|00000e50| 20 6c 69 6e 65 73 20 74 | 68 61 6e 20 77 68 61 74 | lines t|han what|
|00000e60| 20 69 73 20 73 68 6f 77 | 69 6e 67 2e 20 53 6f 2c | is show|ing. So,|
|00000e70| 20 24 27 66 69 67 75 72 | 65 20 6f 75 74 20 68 6f | $'figur|e out ho|
|00000e80| 77 20 6d 61 6e 79 20 6c | 69 6e 65 73 20 69 74 20 |w many l|ines it |
|00000e90| 6e 65 65 64 73 2e b1 01 | 54 65 78 74 4c 65 6e 67 |needs...|TextLeng|
|00000ea0| 74 68 20 3d 20 53 74 72 | 69 6e 67 57 69 64 74 68 |th = Str|ingWidth|
|00000eb0| 28 4d 79 4d 65 73 73 61 | 67 65 2c 20 53 74 61 74 |(MyMessa|ge, Stat|
|00000ec0| 69 63 54 65 78 74 2e 54 | 65 78 74 46 6f 6e 74 2c |icText.T|extFont,|
|00000ed0| 20 53 74 61 74 69 63 54 | 65 78 74 2e 54 65 78 74 | StaticT|ext.Text|
|00000ee0| 53 69 7a 65 2c 20 53 74 | 61 74 69 63 54 65 78 74 |Size, St|aticText|
|00000ef0| 2e 42 6f 6c 64 2c 20 53 | 74 61 74 69 63 54 65 78 |.Bold, S|taticTex|
|00000f00| 74 2e 49 74 61 6c 69 63 | 29 31 4c 69 6e 65 73 4e |t.Italic|)1LinesN|
|00000f10| 65 65 64 65 64 20 3d 20 | 43 65 69 6c 28 54 65 78 |eeded = |Ceil(Tex|
|00000f20| 74 4c 65 6e 67 74 68 20 | 2f 20 53 74 61 74 69 63 |tLength |/ Static|
|00000f30| 54 65 78 74 2e 57 69 64 | 74 68 29 2f 27 53 65 65 |Text.Wid|th)/'See|
|00000f40| 20 68 6f 77 20 6d 61 6e | 79 20 63 61 72 72 69 61 | how man|y carria|
|00000f50| 67 65 20 72 65 74 75 72 | 6e 73 20 61 72 65 20 69 |ge retur|ns are i|
|00000f60| 6e 20 74 68 65 20 74 65 | 78 74 2e 2e 4e 65 77 6c |n the te|xt..Newl|
|00000f70| 69 6e 65 73 20 3d 20 43 | 6f 75 6e 74 46 69 65 6c |ines = C|ountFiel|
|00000f80| 64 73 28 4d 79 4d 65 73 | 73 61 67 65 2c 20 43 68 |ds(MyMes|sage, Ch|
|00000f90| 72 28 31 33 29 29 20 2d | 20 31 29 27 41 6e 64 20 |r(13)) -| 1)'And |
|00000fa0| 69 6e 63 72 65 61 73 65 | 20 74 68 65 20 6c 69 6e |increase| the lin|
|00000fb0| 65 20 63 6f 75 6e 74 20 | 61 63 63 6f 72 64 69 6e |e count |accordin|
|00000fc0| 67 6c 79 2e 24 4c 69 6e | 65 73 4e 65 65 64 65 64 |gly.$Lin|esNeeded|
|00000fd0| 20 3d 20 4c 69 6e 65 73 | 4e 65 65 64 65 64 20 2b | = Lines|Needed +|
|00000fe0| 20 4e 65 77 6c 69 6e 65 | 73 bb 01 4c 69 6e 65 48 | Newline|s..LineH|
|00000ff0| 65 69 67 68 74 20 3d 20 | 54 65 78 74 48 65 69 67 |eight = |TextHeig|
|00001000| 68 74 28 53 74 61 74 69 | 63 54 65 78 74 2e 54 65 |ht(Stati|cText.Te|
|00001010| 78 74 46 6f 6e 74 2c 20 | 53 74 61 74 69 63 54 65 |xtFont, |StaticTe|
|00001020| 78 74 2e 54 65 78 74 53 | 69 7a 65 2c 20 53 74 61 |xt.TextS|ize, Sta|
|00001030| 74 69 63 54 65 78 74 2e | 42 6f 6c 64 2c 20 53 74 |ticText.|Bold, St|
|00001040| 61 74 69 63 54 65 78 74 | 2e 49 74 61 6c 69 63 2c |aticText|.Italic,|
|00001050| 20 53 74 61 74 69 63 54 | 65 78 74 2e 55 6e 64 65 | StaticT|ext.Unde|
|00001060| 72 6c 69 6e 65 29 24 4e | 65 77 48 65 69 67 68 74 |rline)$N|ewHeight|
|00001070| 20 3d 20 4c 69 6e 65 73 | 4e 65 65 64 65 64 20 2a | = Lines|Needed *|
|00001080| 20 4c 69 6e 65 48 65 69 | 67 68 74 25 49 66 20 4e | LineHei|ght%If N|
|00001090| 65 77 48 65 69 67 68 74 | 20 3e 20 53 74 61 74 69 |ewHeight| > Stati|
|000010a0| 63 54 65 78 74 2e 48 65 | 69 67 68 74 20 54 68 65 |cText.He|ight The|
|000010b0| 6e 1d 53 74 61 74 69 63 | 54 65 78 74 2e 48 65 69 |n.Static|Text.Hei|
|000010c0| 67 68 74 20 3d 20 4e 65 | 77 48 65 69 67 68 74 03 |ght = Ne|wHeight.|
|000010d0| 45 6e 64 00 34 27 41 6e | 64 2c 20 6c 61 73 74 6c |End.4'An|d, lastl|
|000010e0| 79 2c 20 77 65 20 6e 65 | 65 64 20 74 6f 20 73 65 |y, we ne|ed to se|
|000010f0| 74 20 74 68 65 20 77 69 | 6e 64 6f 77 27 73 20 68 |t the wi|ndow's h|
|00001100| 65 69 67 68 74 20 74 6f | 20 33 27 61 63 63 6f 6d |eight to| 3'accom|
|00001110| 6f 64 61 74 65 20 74 68 | 65 20 74 65 78 74 20 68 |odate th|e text h|
|00001120| 65 69 67 68 74 20 70 6c | 75 73 20 74 68 65 20 62 |eight pl|us the b|
|00001130| 75 74 74 6f 6e 20 68 65 | 69 67 68 74 20 24 27 70 |utton he|ight $'p|
|00001140| 6c 75 73 20 74 68 65 20 | 6d 61 72 67 69 6e 20 68 |lus the |margin h|
|00001150| 65 69 67 68 74 20 74 69 | 6d 65 73 20 74 68 72 65 |eight ti|mes thre|
|00001160| 65 2e 87 01 53 65 6c 66 | 2e 48 65 69 67 68 74 20 |e...Self|.Height |
|00001170| 3d 20 53 74 61 74 69 63 | 54 65 78 74 2e 48 65 69 |= Static|Text.Hei|
|00001180| 67 68 74 20 2b 20 4f 70 | 74 69 6f 6e 42 75 74 74 |ght + Op|tionButt|
|00001190| 6f 6e 28 30 29 2e 48 65 | 69 67 68 74 20 2b 20 28 |on(0).He|ight + (|
|000011a0| 33 20 2a 20 4d 61 72 67 | 69 6e 29 00 1b 53 74 61 |3 * Marg|in)..Sta|
|000011b0| 74 69 63 54 65 78 74 2e | 54 65 78 74 20 3d 20 4d |ticText.|Text = M|
|000011c0| 79 4d 65 73 73 61 67 65 | 00 07 45 6e 64 20 53 75 |yMessage|..End Su|
|000011d0| 62 0b 53 74 72 69 6e 67 | 57 69 64 74 68 98 01 54 |b.String|Width..T|
|000011e0| 68 65 53 74 72 69 6e 67 | 20 61 73 20 53 74 72 69 |heString| as Stri|
|000011f0| 6e 67 2c 20 46 6f 6e 74 | 20 61 73 20 53 74 72 69 |ng, Font| as Stri|
|00001200| 6e 67 2c 20 53 69 7a 65 | 20 61 73 20 49 6e 74 65 |ng, Size| as Inte|
|00001210| 67 65 72 2c 20 42 6f 6c | 64 20 61 73 20 42 6f 6f |ger, Bol|d as Boo|
|00001220| 6c 65 61 6e 2c 20 49 74 | 61 6c 69 63 20 61 73 20 |lean, It|alic as |
|00001230| 42 6f 6f 6c 65 61 6e 07 | 49 6e 74 65 67 65 72 01 |Boolean.|Integer.|
|00001240| 01 00 07 00 09 b9 01 46 | 75 6e 63 74 69 6f 6e 20 |.......F|unction |
|00001250| 53 74 72 69 6e 67 57 69 | 64 74 68 28 54 68 65 53 |StringWi|dth(TheS|
|00001260| 74 72 69 6e 67 20 61 73 | 20 53 74 72 69 6e 67 2c |tring as| String,|
|00001270| 20 46 6f 6e 74 20 61 73 | 20 53 74 72 69 6e 67 2c | Font as| String,|
|00001280| 20 53 69 7a 65 20 61 73 | 20 49 6e 74 65 67 65 72 | Size as| Integer|
|00001290| 2c 20 42 6f 6c 64 20 61 | 73 20 42 6f 6f 6c 65 61 |, Bold a|s Boolea|
|000012a0| 6e 2c 20 49 74 61 6c 69 | 63 20 61 73 20 42 6f 6f |n, Itali|c as Boo|
|000012b0| 6c 65 61 6e 29 20 41 73 | 20 49 6e 74 65 67 65 72 |lean) As| Integer|
|000012c0| 00 19 53 65 6c 66 2e 47 | 72 61 70 68 69 63 73 2e |..Self.G|raphics.|
|000012d0| 42 6f 6c 64 20 3d 20 42 | 6f 6c 64 1d 53 65 6c 66 |Bold = B|old.Self|
|000012e0| 2e 47 72 61 70 68 69 63 | 73 2e 49 74 61 6c 69 63 |.Graphic|s.Italic|
|000012f0| 20 3d 20 49 74 61 6c 69 | 63 1d 53 65 6c 66 2e 47 | = Itali|c.Self.G|
|00001300| 72 61 70 68 69 63 73 2e | 54 65 78 74 53 69 7a 65 |raphics.|TextSize|
|00001310| 20 3d 20 53 69 7a 65 1d | 53 65 6c 66 2e 47 72 61 | = Size.|Self.Gra|
|00001320| 70 68 69 63 73 2e 54 65 | 78 74 46 6f 6e 74 20 3d |phics.Te|xtFont =|
|00001330| 20 46 6f 6e 74 2b 52 65 | 74 75 72 6e 20 53 65 6c | Font+Re|turn Sel|
|00001340| 66 2e 47 72 61 70 68 69 | 63 73 2e 53 74 72 69 6e |f.Graphi|cs.Strin|
|00001350| 67 57 69 64 74 68 28 54 | 68 65 53 74 72 69 6e 67 |gWidth(T|heString|
|00001360| 29 00 0c 45 6e 64 20 46 | 75 6e 63 74 69 6f 6e 0a |)..End F|unction.|
|00001370| 54 65 78 74 48 65 69 67 | 68 74 99 01 46 6f 6e 74 |TextHeig|ht..Font|
|00001380| 20 61 73 20 53 74 72 69 | 6e 67 2c 20 53 69 7a 65 | as Stri|ng, Size|
|00001390| 20 61 73 20 49 6e 74 65 | 67 65 72 2c 20 42 6f 6c | as Inte|ger, Bol|
|000013a0| 64 20 61 73 20 42 6f 6f | 6c 65 61 6e 2c 20 49 74 |d as Boo|lean, It|
|000013b0| 61 6c 69 63 20 61 73 20 | 42 6f 6f 6c 65 61 6e 2c |alic as |Boolean,|
|000013c0| 20 55 6e 64 65 72 6c 69 | 6e 65 20 61 73 20 42 6f | Underli|ne as Bo|
|000013d0| 6f 6c 65 61 6e 07 49 6e | 74 65 67 65 72 01 04 17 |olean.In|teger...|
|000013e0| 04 17 0a b9 01 46 75 6e | 63 74 69 6f 6e 20 54 65 |.....Fun|ction Te|
|000013f0| 78 74 48 65 69 67 68 74 | 28 46 6f 6e 74 20 61 73 |xtHeight|(Font as|
|00001400| 20 53 74 72 69 6e 67 2c | 20 53 69 7a 65 20 61 73 | String,| Size as|
|00001410| 20 49 6e 74 65 67 65 72 | 2c 20 42 6f 6c 64 20 61 | Integer|, Bold a|
|00001420| 73 20 42 6f 6f 6c 65 61 | 6e 2c 20 49 74 61 6c 69 |s Boolea|n, Itali|
|00001430| 63 20 61 73 20 42 6f 6f | 6c 65 61 6e 2c 20 55 6e |c as Boo|lean, Un|
|00001440| 64 65 72 6c 69 6e 65 20 | 61 73 20 42 6f 6f 6c 65 |derline |as Boole|
|00001450| 61 6e 29 20 41 73 20 49 | 6e 74 65 67 65 72 00 19 |an) As I|nteger..|
|00001460| 53 65 6c 66 2e 47 72 61 | 70 68 69 63 73 2e 42 6f |Self.Gra|phics.Bo|
|00001470| 6c 64 20 3d 20 42 6f 6c | 64 1d 53 65 6c 66 2e 47 |ld = Bol|d.Self.G|
|00001480| 72 61 70 68 69 63 73 2e | 49 74 61 6c 69 63 20 3d |raphics.|Italic =|
|00001490| 20 49 74 61 6c 69 63 23 | 53 65 6c 66 2e 47 72 61 | Italic#|Self.Gra|
|000014a0| 70 68 69 63 73 2e 55 6e | 64 65 72 6c 69 6e 65 20 |phics.Un|derline |
|000014b0| 3d 20 55 6e 64 65 72 6c | 69 6e 65 1d 53 65 6c 66 |= Underl|ine.Self|
|000014c0| 2e 47 72 61 70 68 69 63 | 73 2e 54 65 78 74 53 69 |.Graphic|s.TextSi|
|000014d0| 7a 65 20 3d 20 53 69 7a | 65 1d 53 65 6c 66 2e 47 |ze = Siz|e.Self.G|
|000014e0| 72 61 70 68 69 63 73 2e | 54 65 78 74 46 6f 6e 74 |raphics.|TextFont|
|000014f0| 20 3d 20 46 6f 6e 74 1f | 52 65 74 75 72 6e 20 53 | = Font.|Return S|
|00001500| 65 6c 66 2e 47 72 61 70 | 68 69 63 73 2e 54 65 78 |elf.Grap|hics.Tex|
|00001510| 74 48 65 69 67 68 74 00 | 0c 45 6e 64 20 46 75 6e |tHeight.|.End Fun|
|00001520| 63 74 69 6f 6e 09 53 65 | 74 75 70 49 63 6f 6e 00 |ction.Se|tupIcon.|
|00001530| 00 01 14 00 14 00 1e 0f | 53 75 62 20 53 65 74 75 |........|Sub Setu|
|00001540| 70 49 63 6f 6e 28 29 00 | 15 44 69 6d 20 49 63 6f |pIcon().|.Dim Ico|
|00001550| 6e 49 44 20 61 73 20 49 | 6e 74 65 67 65 72 00 11 |nID as I|nteger..|
|00001560| 43 6f 6e 73 74 20 4d 61 | 72 67 69 6e 20 3d 20 31 |Const Ma|rgin = 1|
|00001570| 30 00 17 27 53 65 74 20 | 70 6f 73 69 74 69 6f 6e |0..'Set |position|
|00001580| 20 61 6e 64 20 73 69 7a | 65 2e 17 49 63 6f 6e 43 | and siz|e..IconC|
|00001590| 61 6e 76 61 73 2e 54 6f | 70 20 3d 20 4d 61 72 67 |anvas.To|p = Marg|
|000015a0| 69 6e 18 49 63 6f 6e 43 | 61 6e 76 61 73 2e 4c 65 |in.IconC|anvas.Le|
|000015b0| 66 74 20 3d 20 4d 61 72 | 67 69 6e 27 49 63 6f 6e |ft = Mar|gin'Icon|
|000015c0| 43 61 6e 76 61 73 2e 48 | 65 69 67 68 74 20 3d 20 |Canvas.H|eight = |
|000015d0| 49 63 6f 6e 43 61 6e 76 | 61 73 2e 54 6f 70 20 2b |IconCanv|as.Top +|
|000015e0| 20 33 32 27 49 63 6f 6e | 43 61 6e 76 61 73 2e 57 | 32'Icon|Canvas.W|
|000015f0| 69 64 74 68 20 3d 20 49 | 63 6f 6e 43 61 6e 76 61 |idth = I|conCanva|
|00001600| 73 2e 4c 65 66 74 20 2b | 20 33 32 00 12 53 65 6c |s.Left +| 32..Sel|
|00001610| 65 63 74 20 43 61 73 65 | 20 4d 79 49 63 6f 6e 07 |ect Case| MyIcon.|
|00001620| 43 61 73 65 20 22 22 1a | 49 63 6f 6e 43 61 6e 76 |Case "".|IconCanv|
|00001630| 61 73 2e 56 69 73 69 62 | 6c 65 20 3d 20 46 61 6c |as.Visib|le = Fal|
|00001640| 73 65 0b 43 61 73 65 20 | 22 4e 6f 74 65 22 0b 43 |se.Case |"Note".C|
|00001650| 61 73 65 20 22 53 74 6f | 70 22 0e 43 61 73 65 20 |ase "Sto|p".Case |
|00001660| 22 43 61 75 74 69 6f 6e | 22 1a 45 6c 73 65 20 27 |"Caution|".Else '|
|00001670| 47 65 74 20 74 68 65 20 | 63 75 73 74 6f 6d 20 69 |Get the |custom i|
|00001680| 63 6f 6e 2e 14 49 63 6f | 6e 49 44 20 3d 20 56 61 |con..Ico|nID = Va|
|00001690| 6c 28 4d 79 49 63 6f 6e | 29 2a 54 68 65 49 63 6f |l(MyIcon|)*TheIco|
|000016a0| 6e 20 3d 20 41 70 70 2e | 52 65 73 6f 75 72 63 65 |n = App.|Resource|
|000016b0| 46 6f 72 6b 2e 47 65 74 | 43 69 63 6e 28 49 63 6f |Fork.Get|Cicn(Ico|
|000016c0| 6e 49 44 29 15 49 66 20 | 54 68 65 49 63 6f 6e 20 |nID).If |TheIcon |
|000016d0| 3d 20 6e 69 6c 20 54 68 | 65 6e 33 27 53 69 67 6e |= nil Th|en3'Sign|
|000016e0| 61 6c 20 49 63 6f 6e 43 | 61 6e 76 61 73 27 73 20 |al IconC|anvas's |
|000016f0| 70 61 69 6e 74 20 65 76 | 65 6e 74 20 74 68 61 74 |paint ev|ent that|
|00001700| 20 69 74 27 73 20 6d 69 | 73 73 69 6e 67 2e 10 4d | it's mi|ssing..M|
|00001710| 79 49 63 6f 6e 20 3d 20 | 22 4e 6f 47 6f 74 22 04 |yIcon = |"NoGot".|
|00001720| 45 6c 73 65 17 54 68 65 | 49 63 6f 6e 2e 54 72 61 |Else.The|Icon.Tra|
|00001730| 6e 73 70 61 72 65 6e 74 | 20 3d 20 31 03 45 6e 64 |nsparent| = 1.End|
|00001740| 03 45 6e 64 00 07 45 6e | 64 20 53 75 62 00 02 0a |.End..En|d Sub...|
|00001750| 44 65 61 63 74 69 76 61 | 74 65 01 00 01 00 03 10 |Deactiva|te......|
|00001760| 53 75 62 20 44 65 61 63 | 74 69 76 61 74 65 28 29 |Sub Deac|tivate()|
|00001770| 00 07 45 6e 64 20 53 75 | 62 04 4f 70 65 6e 01 00 |..End Su|b.Open..|
|00001780| 01 00 03 0a 53 75 62 20 | 4f 70 65 6e 28 29 00 07 |....Sub |Open()..|
|00001790| 45 6e 64 20 53 75 62 00 | 00 03 07 00 00 b4 01 0a |End Sub.|........|
|000017a0| 50 75 73 68 42 75 74 74 | 6f 6e 00 00 00 00 01 06 |PushButt|on......|
|000017b0| 41 63 74 69 6f 6e 04 00 | 04 00 06 1c 53 75 62 20 |Action..|....Sub |
|000017c0| 41 63 74 69 6f 6e 28 49 | 6e 64 65 78 20 41 73 20 |Action(I|ndex As |
|000017d0| 49 6e 74 65 67 65 72 29 | 00 19 42 75 74 74 6f 6e |Integer)|..Button|
|000017e0| 50 75 73 68 65 64 20 3d | 20 4d 65 2e 43 61 70 74 |Pushed =| Me.Capt|
|000017f0| 69 6f 6e 09 53 65 6c 66 | 2e 48 69 64 65 00 07 45 |ion.Self|.Hide..E|
|00001800| 6e 64 20 53 75 62 00 00 | 07 00 00 a4 01 06 43 61 |nd Sub..|......Ca|
|00001810| 6e 76 61 73 00 00 00 00 | 01 05 50 61 69 6e 74 10 |nvas....|..Paint.|
|00001820| 1b 10 1b 14 18 53 75 62 | 20 50 61 69 6e 74 28 67 |.....Sub| Paint(g|
|00001830| 20 41 73 20 47 72 61 70 | 68 69 63 73 29 00 12 53 | As Grap|hics)..S|
|00001840| 65 6c 65 63 74 20 43 61 | 73 65 20 4d 79 49 63 6f |elect Ca|se MyIco|
|00001850| 6e 0b 43 61 73 65 20 22 | 4e 6f 74 65 22 13 67 2e |n.Case "|Note".g.|
|00001860| 44 72 61 77 4e 6f 74 65 | 49 63 6f 6e 20 30 2c 20 |DrawNote|Icon 0, |
|00001870| 30 0b 43 61 73 65 20 22 | 53 74 6f 70 22 13 67 2e |0.Case "|Stop".g.|
|00001880| 44 72 61 77 53 74 6f 70 | 49 63 6f 6e 20 30 2c 20 |DrawStop|Icon 0, |
|00001890| 30 0e 43 61 73 65 20 22 | 43 61 75 74 69 6f 6e 22 |0.Case "|Caution"|
|000018a0| 16 67 2e 44 72 61 77 43 | 61 75 74 69 6f 6e 49 63 |.g.DrawC|autionIc|
|000018b0| 6f 6e 20 30 2c 20 30 81 | 01 43 61 73 65 20 22 4e |on 0, 0.|.Case "N|
|000018c0| 6f 47 6f 74 22 20 27 53 | 69 67 6e 61 6c 20 66 72 |oGot" 'S|ignal fr|
|000018d0| 6f 6d 20 53 65 74 75 70 | 49 63 6f 6e 20 74 68 61 |om Setup|Icon tha|
|000018e0| 74 20 74 68 65 20 72 65 | 73 6f 75 72 63 65 20 69 |t the re|source i|
|000018f0| 73 20 6d 69 73 73 69 6e | 67 2e 15 67 2e 54 65 78 |s missin|g..g.Tex|
|00001900| 74 46 6f 6e 74 20 3d 20 | 22 47 65 6e 65 76 61 22 |tFont = |"Geneva"|
|00001910| 0e 67 2e 54 65 78 74 53 | 69 7a 65 20 3d 20 39 0d |.g.TextS|ize = 9.|
|00001920| 67 2e 42 6f 6c 64 20 3d | 20 54 72 75 65 18 67 2e |g.Bold =| True.g.|
|00001930| 46 6f 72 65 43 6f 6c 6f | 72 20 3d 20 52 47 42 28 |ForeColo|r = RGB(|
|00001940| 30 2c 30 2c 30 29 31 67 | 2e 44 72 61 77 53 74 72 |0,0,0)1g|.DrawStr|
|00001950| 69 6e 67 20 22 4f 6f 70 | 73 21 20 4e 6f 20 49 63 |ing "Oop|s! No Ic|
|00001960| 6f 6e 22 2c 20 31 2c 20 | 67 2e 54 65 78 74 48 65 |on", 1, |g.TextHe|
|00001970| 69 67 68 74 2c 20 33 30 | 04 45 6c 73 65 1b 67 2e |ight, 30|.Else.g.|
|00001980| 44 72 61 77 50 69 63 74 | 75 72 65 20 54 68 65 49 |DrawPict|ure TheI|
|00001990| 63 6f 6e 2c 20 30 2c 20 | 30 03 45 6e 64 00 07 45 |con, 0, |0.End..E|
|000019a0| 6e 64 20 53 75 62 00 00 | 07 00 00 b4 01 0a 53 74 |nd Sub..|......St|
|000019b0| 61 74 69 63 54 65 78 74 | 00 00 00 00 01 09 4d 6f |aticText|......Mo|
|000019c0| 75 73 65 4d 6f 76 65 01 | 00 01 00 03 29 53 75 62 |useMove.|....)Sub|
|000019d0| 20 4d 6f 75 73 65 4d 6f | 76 65 28 58 20 41 73 20 | MouseMo|ve(X As |
|000019e0| 49 6e 74 65 67 65 72 2c | 20 59 20 41 73 20 49 6e |Integer,| Y As In|
|000019f0| 74 65 67 65 72 29 00 07 | 45 6e 64 20 53 75 62 00 |teger)..|End Sub.|
|00001a00| 00 03 0a 50 75 73 68 42 | 75 74 74 6f 6e 17 04 4e |...PushB|utton..N|
|00001a10| 61 6d 65 0c 4f 70 74 69 | 6f 6e 42 75 74 74 6f 6e |ame.Opti|onButton|
|00001a20| 05 49 6e 64 65 78 01 30 | 0d 54 61 62 50 61 6e 65 |.Index.0|.TabPane|
|00001a30| 6c 49 6e 64 65 78 01 30 | 07 56 69 73 69 62 6c 65 |lIndex.0|.Visible|
|00001a40| 04 54 72 75 65 04 4c 65 | 66 74 03 32 31 35 03 54 |.True.Le|ft.215.T|
|00001a50| 6f 70 02 36 39 05 57 69 | 64 74 68 02 36 30 06 48 |op.69.Wi|dth.60.H|
|00001a60| 65 69 67 68 74 02 32 30 | 0b 42 61 6c 6c 6f 6f 6e |eight.20|.Balloon|
|00001a70| 48 65 6c 70 00 13 44 69 | 73 61 62 6c 65 64 42 61 |Help..Di|sabledBa|
|00001a80| 6c 6c 6f 6f 6e 48 65 6c | 70 00 08 4c 6f 63 6b 4c |lloonHel|p..LockL|
|00001a90| 65 66 74 05 46 61 6c 73 | 65 07 4c 6f 63 6b 54 6f |eft.Fals|e.LockTo|
|00001aa0| 70 05 46 61 6c 73 65 09 | 4c 6f 63 6b 52 69 67 68 |p.False.|LockRigh|
|00001ab0| 74 04 54 72 75 65 0a 4c | 6f 63 6b 42 6f 74 74 6f |t.True.L|ockBotto|
|00001ac0| 6d 04 54 72 75 65 08 54 | 65 78 74 46 6f 6e 74 06 |m.True.T|extFont.|
|00001ad0| 47 65 6e 65 76 61 08 54 | 65 78 74 53 69 7a 65 01 |Geneva.T|extSize.|
|00001ae0| 39 04 42 6f 6c 64 05 46 | 61 6c 73 65 06 49 74 61 |9.Bold.F|alse.Ita|
|00001af0| 6c 69 63 05 46 61 6c 73 | 65 09 55 6e 64 65 72 6c |lic.Fals|e.Underl|
|00001b00| 69 6e 65 05 46 61 6c 73 | 65 07 43 61 70 74 69 6f |ine.Fals|e.Captio|
|00001b10| 6e 08 57 68 61 74 65 76 | 65 72 07 44 65 66 61 75 |n.Whatev|er.Defau|
|00001b20| 6c 74 05 46 61 6c 73 65 | 06 43 61 6e 63 65 6c 05 |lt.False|.Cancel.|
|00001b30| 46 61 6c 73 65 07 45 6e | 61 62 6c 65 64 04 54 72 |False.En|abled.Tr|
|00001b40| 75 65 00 06 43 61 6e 76 | 61 73 10 04 4e 61 6d 65 |ue..Canv|as..Name|
|00001b50| 0a 49 63 6f 6e 43 61 6e | 76 61 73 05 49 6e 64 65 |.IconCan|vas.Inde|
|00001b60| 78 0b 2d 32 31 34 37 34 | 38 33 36 34 38 0d 54 61 |x.-21474|83648.Ta|
|00001b70| 62 50 61 6e 65 6c 49 6e | 64 65 78 01 30 07 56 69 |bPanelIn|dex.0.Vi|
|00001b80| 73 69 62 6c 65 04 54 72 | 75 65 04 4c 65 66 74 02 |sible.Tr|ue.Left.|
|00001b90| 31 30 03 54 6f 70 02 31 | 30 05 57 69 64 74 68 02 |10.Top.1|0.Width.|
|00001ba0| 34 32 06 48 65 69 67 68 | 74 02 34 32 0b 42 61 6c |42.Heigh|t.42.Bal|
|00001bb0| 6c 6f 6f 6e 48 65 6c 70 | 00 13 44 69 73 61 62 6c |loonHelp|..Disabl|
|00001bc0| 65 64 42 61 6c 6c 6f 6f | 6e 48 65 6c 70 00 08 4c |edBalloo|nHelp..L|
|00001bd0| 6f 63 6b 4c 65 66 74 05 | 46 61 6c 73 65 07 4c 6f |ockLeft.|False.Lo|
|00001be0| 63 6b 54 6f 70 05 46 61 | 6c 73 65 09 4c 6f 63 6b |ckTop.Fa|lse.Lock|
|00001bf0| 52 69 67 68 74 05 46 61 | 6c 73 65 0a 4c 6f 63 6b |Right.Fa|lse.Lock|
|00001c00| 42 6f 74 74 6f 6d 05 46 | 61 6c 73 65 08 42 61 63 |Bottom.F|alse.Bac|
|00001c10| 6b 64 72 6f 70 01 30 07 | 45 6e 61 62 6c 65 64 05 |kdrop.0.|Enabled.|
|00001c20| 46 61 6c 73 65 01 0a 53 | 74 61 74 69 63 54 65 78 |False..S|taticTex|
|00001c30| 74 17 04 4e 61 6d 65 0a | 53 74 61 74 69 63 54 65 |t..Name.|StaticTe|
|00001c40| 78 74 05 49 6e 64 65 78 | 0b 2d 32 31 34 37 34 38 |xt.Index|.-214748|
|00001c50| 33 36 34 38 0d 54 61 62 | 50 61 6e 65 6c 49 6e 64 |3648.Tab|PanelInd|
|00001c60| 65 78 01 30 07 56 69 73 | 69 62 6c 65 04 54 72 75 |ex.0.Vis|ible.Tru|
|00001c70| 65 04 4c 65 66 74 02 36 | 32 03 54 6f 70 02 31 33 |e.Left.6|2.Top.13|
|00001c80| 05 57 69 64 74 68 03 32 | 32 35 06 48 65 69 67 68 |.Width.2|25.Heigh|
|00001c90| 74 02 34 35 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |t.45.Bal|loonHelp|
|00001ca0| 00 13 44 69 73 61 62 6c | 65 64 42 61 6c 6c 6f 6f |..Disabl|edBalloo|
|00001cb0| 6e 48 65 6c 70 00 08 4c | 6f 63 6b 4c 65 66 74 05 |nHelp..L|ockLeft.|
|00001cc0| 46 61 6c 73 65 07 4c 6f | 63 6b 54 6f 70 05 46 61 |False.Lo|ckTop.Fa|
|00001cd0| 6c 73 65 09 4c 6f 63 6b | 52 69 67 68 74 05 46 61 |lse.Lock|Right.Fa|
|00001ce0| 6c 73 65 0a 4c 6f 63 6b | 42 6f 74 74 6f 6d 05 46 |lse.Lock|Bottom.F|
|00001cf0| 61 6c 73 65 08 54 65 78 | 74 46 6f 6e 74 06 47 65 |alse.Tex|tFont.Ge|
|00001d00| 6e 65 76 61 08 54 65 78 | 74 53 69 7a 65 01 39 04 |neva.Tex|tSize.9.|
|00001d10| 42 6f 6c 64 05 46 61 6c | 73 65 06 49 74 61 6c 69 |Bold.Fal|se.Itali|
|00001d20| 63 05 46 61 6c 73 65 09 | 55 6e 64 65 72 6c 69 6e |c.False.|Underlin|
|00001d30| 65 05 46 61 6c 73 65 04 | 54 65 78 74 1c 59 6f 75 |e.False.|Text.You|
|00001d40| 72 20 6d 65 73 73 61 67 | 65 20 73 68 6f 75 6c 64 |r messag|e should|
|00001d50| 20 62 65 20 68 65 72 65 | 2e 09 54 65 78 74 41 6c | be here|..TextAl|
|00001d60| 69 67 6e 01 30 09 54 65 | 78 74 43 6f 6c 6f 72 01 |ign.0.Te|xtColor.|
|00001d70| 30 09 4d 75 6c 74 69 4c | 69 6e 65 04 54 72 75 65 |0.MultiL|ine.True|
|00001d80| 02 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+