/ stazsoftware.com / www.stazsoftware.com.tar / www.stazsoftware.com / futurebasic / sample-code / helpProj.sit / Help Project Folder / List Display.INCL

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 4c 69 73 74 20 44 | 69 73 70 6c 61 79 2e 49 |..List D|isplay.I|
|00000010| 4e 43 4c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |NCL.....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 46 42 5e | 65 01 00 00 00 00 00 00 |.TEXTFB^|e.......|
|00000050| 00 00 00 00 00 33 fd 00 | 00 01 73 be 85 a4 db be |.....3..|..s.....|
|00000060| 85 a4 db 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 01 2a 00 00 |........|.....*..|
|00000080| 0d 27 7e 27 31 0d 2f 2a | 20 0d 20 20 20 20 20 22 |.'~'1./*| .     "|
|00000090| 4c 69 73 74 2e 49 4e 43 | 4c 22 20 66 69 6c 65 20 |List.INC|L" file |
|000000a0| 66 6f 72 20 50 72 6f 67 | 72 61 6d 20 47 65 6e 65 |for Prog|ram Gene|
|000000b0| 72 61 74 6f 72 20 66 69 | 6c 65 73 0d 20 20 20 20 |rator fi|les.    |
|000000c0| 20 20 63 61 6e 20 62 65 | 20 6d 6f 64 69 66 69 65 |  can be| modifie|
|000000d0| 64 20 66 6f 72 20 6e 6f | 74 20 50 47 20 70 72 6f |d for no|t PG pro|
|000000e0| 6a 65 63 74 73 0d 20 20 | 20 20 20 41 64 61 70 74 |jects.  |   Adapt|
|000000f0| 65 64 20 66 6f 72 20 75 | 73 65 20 77 69 74 68 20 |ed for u|se with |
|00000100| 46 42 5e 33 20 62 79 20 | 44 61 76 69 64 20 42 61 |FB^3 by |David Ba|
|00000110| 69 6c 65 79 20 2d 20 64 | 61 62 73 6f 66 74 77 61 |iley - d|absoftwa|
|00000120| 72 65 2e 63 6f 6d 0d 20 | 20 20 20 20 31 32 2f 32 |re.com. |    12/2|
|00000130| 39 2f 32 30 30 32 0d 20 | 20 20 20 20 46 72 65 65 |9/2002. |    Free|
|00000140| 20 73 6f 75 72 63 65 20 | 63 6f 64 65 0d 2a 2f 0d | source |code.*/.|
|00000150| 27 7e 27 31 0d 0d 0d 47 | 4f 54 4f 20 22 45 6e 64 |'~'1...G|OTO "End|
|00000160| 4f 66 4c 69 73 74 22 0d | 0d 42 45 47 49 4e 20 47 |OfList".|.BEGIN G|
|00000170| 4c 4f 42 41 4c 53 0d 0d | 42 45 47 49 4e 20 52 65 |LOBALS..|BEGIN Re|
|00000180| 63 6f 72 64 20 4c 69 73 | 74 52 65 63 6f 72 64 0d |cord Lis|tRecord.|
|00000190| 44 49 4d 20 61 73 20 69 | 6e 74 20 20 20 20 20 20 |DIM as i|nt      |
|000001a0| 20 6e 63 6f 6c 73 27 6e | 75 6d 62 65 72 20 6f 66 | ncols'n|umber of|
|000001b0| 20 63 6f 6c 75 6d 73 0d | 64 69 6d 20 61 73 20 6c | colums.|dim as l|
|000001c0| 6f 6e 67 20 20 20 20 20 | 20 6e 75 6d 52 65 63 6f |ong     | numReco|
|000001d0| 72 64 73 27 6e 75 6d 62 | 65 72 20 6f 66 20 72 65 |rds'numb|er of re|
|000001e0| 63 6f 72 64 73 20 66 69 | 6c 6c 65 64 20 69 6e 20 |cords fi|lled in |
|000001f0| 61 66 74 65 72 20 66 69 | 72 73 74 20 64 72 61 77 |after fi|rst draw|
|00000200| 69 6e 67 0d 64 69 6d 20 | 61 73 20 69 6e 74 20 20 |ing.dim |as int  |
|00000210| 20 20 20 20 20 53 54 52 | 65 73 4e 6f 27 55 73 69 |     STR|esNo'Usi|
|00000220| 6e 67 20 61 20 53 74 72 | 69 6e 67 20 52 65 73 6f |ng a Str|ing Reso|
|00000230| 75 72 63 65 20 69 6e 20 | 74 68 69 73 20 65 78 61 |urce in |this exa|
|00000240| 6d 70 6c 65 0d 44 49 4d | 20 61 73 20 69 6e 74 20 |mple.DIM| as int |
|00000250| 20 20 20 20 20 20 4c 53 | 63 72 6f 6c 6c 42 74 6e |      LS|crollBtn|
|00000260| 0d 44 49 4d 20 61 73 20 | 4c 4f 4e 47 20 20 20 20 |.DIM as |LONG    |
|00000270| 20 20 4c 53 63 72 6c 42 | 74 6e 4d 61 78 0d 64 69 |  LScrlB|tnMax.di|
|00000280| 6d 20 61 73 20 72 65 63 | 74 20 20 20 20 20 20 4c |m as rec|t      L|
|00000290| 69 73 74 52 65 63 74 27 | 54 68 65 20 6f 76 65 72 |istRect'|The over|
|000002a0| 61 6c 6c 20 72 65 63 74 | 61 6e 67 6c 65 20 66 6f |all rect|angle fo|
|000002b0| 72 20 74 68 65 20 6c 69 | 73 74 0d 44 49 4d 20 61 |r the li|st.DIM a|
|000002c0| 73 20 72 65 63 74 20 20 | 20 20 20 20 73 65 6c 72 |s rect  |    selr|
|000002d0| 65 63 74 5b 32 30 5d 0d | 44 49 4d 20 61 73 20 69 |ect[20].|DIM as i|
|000002e0| 6e 74 20 20 20 20 20 20 | 20 63 6f 6c 77 64 25 5b |nt      | colwd%[|
|000002f0| 32 30 5d 27 32 30 20 63 | 6f 6c 75 6d 6e 73 20 65 |20]'20 c|olumns e|
|00000300| 61 63 68 20 63 61 6e 20 | 68 61 76 65 20 74 68 65 |ach can |have the|
|00000310| 69 72 20 6f 77 6e 20 77 | 69 64 74 68 0d 44 69 6d |ir own w|idth.Dim|
|00000320| 20 61 73 20 52 47 42 43 | 4f 4c 4f 52 20 20 52 47 | as RGBC|OLOR  RG|
|00000330| 42 5b 32 30 5d 27 65 61 | 63 68 20 63 6f 6c 75 6d |B[20]'ea|ch colum|
|00000340| 6e 20 63 61 6e 20 68 61 | 76 65 20 61 20 64 69 66 |n can ha|ve a dif|
|00000350| 66 65 72 65 6e 74 20 63 | 6f 6c 6f 72 0d 44 49 4d |ferent c|olor.DIM|
|00000360| 20 61 73 20 49 4e 54 20 | 20 20 20 20 20 20 74 78 | as INT |      tx|
|00000370| 74 61 6c 69 67 6e 5b 32 | 30 5d 27 6c 65 66 74 20 |talign[2|0]'left |
|00000380| 3d 20 30 2c 20 72 69 67 | 68 74 20 3d 20 31 2c 20 |= 0, rig|ht = 1, |
|00000390| 63 65 6e 74 65 72 20 3d | 20 32 0d 44 49 4d 20 61 |center =| 2.DIM a|
|000003a0| 73 20 69 6e 74 20 20 20 | 20 20 20 20 6f 6c 64 73 |s int   |    olds|
|000003b0| 65 6c 65 63 74 27 74 68 | 65 20 6c 69 73 74 20 72 |elect'th|e list r|
|000003c0| 6f 77 20 70 72 65 76 69 | 6f 75 73 6c 79 20 73 65 |ow previ|ously se|
|000003d0| 6c 65 63 74 65 64 0d 64 | 69 6d 20 61 73 20 69 6e |lected.d|im as in|
|000003e0| 74 20 20 20 20 20 20 20 | 6e 65 77 73 65 6c 65 63 |t       |newselec|
|000003f0| 74 27 74 68 65 20 6e 65 | 77 20 73 65 6c 65 63 74 |t'the ne|w select|
|00000400| 69 6f 6e 20 69 66 20 74 | 68 65 72 65 20 69 73 20 |ion if t|here is |
|00000410| 6f 6e 65 0d 64 69 6d 20 | 61 73 20 69 6e 74 20 20 |one.dim |as int  |
|00000420| 20 20 20 20 20 57 68 69 | 63 68 53 74 72 69 6e 67 |     Whi|chString|
|00000430| 27 77 68 69 63 68 20 73 | 74 72 69 6e 67 20 69 6e |'which s|tring in|
|00000440| 20 74 68 65 20 72 65 73 | 6f 75 63 65 20 73 65 6c | the res|ouce sel|
|00000450| 65 63 74 65 64 0d 44 49 | 4d 20 61 73 20 49 4e 54 |ected.DI|M as INT|
|00000460| 20 20 20 20 20 20 20 62 | 75 74 74 6f 6e 73 69 7a |       b|uttonsiz|
|00000470| 65 64 0d 64 69 6d 20 61 | 73 20 69 6e 74 20 20 20 |ed.dim a|s int   |
|00000480| 20 20 20 20 66 6e 74 27 | 74 68 65 20 66 6f 6e 74 |    fnt'|the font|
|00000490| 20 74 6f 20 75 73 65 0d | 64 69 6d 20 61 73 20 69 | to use.|dim as i|
|000004a0| 6e 74 20 20 20 20 20 20 | 20 73 7a 65 27 74 68 65 |nt      | sze'the|
|000004b0| 20 73 69 7a 65 20 74 6f | 20 75 73 65 0d 64 69 6d | size to| use.dim|
|000004c0| 20 61 73 20 69 6e 74 20 | 20 20 20 20 20 20 73 74 | as int |      st|
|000004d0| 79 6c 27 74 68 65 20 73 | 74 79 6c 65 20 74 6f 20 |yl'the s|tyle to |
|000004e0| 75 73 65 0d 44 49 4d 20 | 61 73 20 73 74 72 32 35 |use.DIM |as str25|
|000004f0| 35 20 20 20 20 32 20 64 | 65 6c 69 6d 24 27 74 68 |5    2 d|elim$'th|
|00000500| 65 20 64 65 6c 69 6d 69 | 74 69 6e 67 20 63 68 61 |e delimi|ting cha|
|00000510| 72 61 63 74 65 72 20 66 | 6f 72 20 65 61 63 68 20 |racter f|or each |
|00000520| 72 6f 77 0d 44 49 4d 20 | 61 73 20 73 74 72 32 35 |row.DIM |as str25|
|00000530| 35 20 20 20 20 32 20 69 | 63 6f 6e 24 27 74 68 65 |5    2 i|con$'the|
|00000540| 20 64 65 6c 69 6d 20 73 | 74 72 69 6e 67 20 6e 6f | delim s|tring no|
|00000550| 74 69 6e 67 20 77 68 61 | 74 20 66 6f 6c 6c 6f 77 |ting wha|t follow|
|00000560| 73 20 69 73 20 61 6e 20 | 69 63 6f 6e 20 69 64 20 |s is an |icon id |
|00000570| 61 6e 64 20 6e 6f 74 20 | 61 20 73 74 72 69 6e 67 |and not |a string|
|00000580| 0d 65 6e 64 20 72 65 63 | 6f 72 64 0d 0d 0d 27 7e |.end rec|ord...'~|
|00000590| 27 34 0d 27 59 6f 75 20 | 6d 75 73 74 20 64 69 6d |'4.'You |must dim|
|000005a0| 65 6e 73 69 6f 6e 20 6f | 6e 65 20 67 6c 6f 62 61 |ension o|ne globa|
|000005b0| 6c 20 6c 69 73 74 20 72 | 65 63 6f 72 64 20 66 6f |l list r|ecord fo|
|000005c0| 72 20 65 61 63 68 20 6c | 69 73 74 20 79 6f 75 20 |r each l|ist you |
|000005d0| 77 61 6e 74 20 74 6f 20 | 64 72 61 77 0d 27 7e 27 |want to |draw.'~'|
|000005e0| 34 0d 44 49 4d 20 48 65 | 6c 70 4c 69 73 74 20 20 |4.DIM He|lpList  |
|000005f0| 20 20 20 20 20 20 20 61 | 73 20 4c 69 73 74 52 65 |       a|s ListRe|
|00000600| 63 6f 72 64 0d 0d 65 6e | 64 20 67 6c 6f 62 61 6c |cord..en|d global|
|00000610| 73 0d 0d 27 7e 27 3a 0d | 0d 2f 2a 0d 20 20 20 20 |s..'~':.|./*.    |
|00000620| 20 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 64 | This fu|nction d|
|00000630| 72 61 77 73 20 74 68 65 | 20 6c 69 73 74 20 75 73 |raws the| list us|
|00000640| 69 6e 67 20 61 20 68 61 | 6e 64 6c 65 20 74 6f 20 |ing a ha|ndle to |
|00000650| 76 61 72 69 6f 75 73 20 | 64 61 74 61 0d 2a 2f 0d |various |data.*/.|
|00000660| 43 4c 45 41 52 20 4c 4f | 43 41 4c 0d 64 69 6d 20 |CLEAR LO|CAL.dim |
|00000670| 61 73 20 72 67 62 63 6f | 6c 6f 72 20 20 20 72 67 |as rgbco|lor   rg|
|00000680| 0d 64 69 6d 20 61 73 20 | 72 65 63 74 20 20 20 20 |.dim as |rect    |
|00000690| 20 20 20 74 42 6f 78 0d | 64 69 6d 20 61 73 20 53 |   tBox.|dim as S|
|000006a0| 54 52 32 35 35 20 20 20 | 20 20 74 24 2c 64 65 6c |TR255   |  t$,del|
|000006b0| 69 6d 24 2c 74 32 24 0d | 64 69 6d 20 61 73 20 6c |im$,t2$.|dim as l|
|000006c0| 6f 6e 67 20 20 20 20 20 | 20 20 63 6f 75 6e 74 0d |ong     |  count.|
|000006d0| 64 69 6d 20 61 73 20 52 | 45 43 54 20 20 20 20 20 |dim as R|ECT     |
|000006e0| 20 20 63 6f 6c 28 32 30 | 29 0d 64 69 6d 20 61 73 |  col(20|).dim as|
|000006f0| 20 69 6e 74 20 20 20 20 | 20 20 20 20 63 2c 78 2c | int    |    c,x,|
|00000700| 79 2c 70 74 2c 70 74 32 | 2c 6e 75 6d 52 6f 77 73 |y,pt,pt2|,numRows|
|00000710| 2c 78 70 2c 69 63 6f 6e | 77 64 2c 65 72 72 2c 6e |,xp,icon|wd,err,n|
|00000720| 0d 64 69 6d 20 61 73 20 | 46 6f 6e 74 49 6e 66 6f |.dim as |FontInfo|
|00000730| 20 20 20 6d 79 46 6f 6e | 74 49 6e 66 6f 0d 64 69 |   myFon|tInfo.di|
|00000740| 6d 20 61 73 20 72 67 62 | 63 6f 6c 6f 72 20 20 20 |m as rgb|color   |
|00000750| 68 69 6c 69 74 65 0d 27 | 7e 27 32 0d 6c 6f 63 61 |hilite.'|~'2.loca|
|00000760| 6c 20 66 6e 20 44 72 61 | 77 4c 69 73 74 28 4c 69 |l fn Dra|wList(Li|
|00000770| 73 74 20 41 53 20 5e 4c | 69 73 74 52 65 63 6f 72 |st AS ^L|istRecor|
|00000780| 64 29 27 57 68 69 63 68 | 4c 69 73 74 29 0d 27 7e |d)'Which|List).'~|
|00000790| 27 32 0d 72 67 2e 72 65 | 64 20 3d 20 36 30 30 30 |'2.rg.re|d = 6000|
|000007a0| 30 0d 72 67 2e 62 6c 75 | 65 20 3d 20 36 35 30 30 |0.rg.blu|e = 6500|
|000007b0| 30 0d 72 67 2e 67 72 65 | 65 6e 20 3d 20 36 32 30 |0.rg.gre|en = 620|
|000007c0| 30 30 0d 47 65 74 50 6f | 72 74 48 69 6c 69 74 65 |00.GetPo|rtHilite|
|000007d0| 43 6f 6c 6f 72 20 28 57 | 49 4e 44 4f 57 28 5f 77 |Color (W|INDOW(_w|
|000007e0| 6e 64 50 6f 72 74 29 2c | 68 69 6c 69 74 65 29 27 |ndPort),|hilite)'|
|000007f0| 74 6f 20 73 65 74 20 68 | 69 6c 69 74 65 20 63 6f |to set h|ilite co|
|00000800| 6c 6f 72 0d 74 65 78 74 | 20 4c 69 73 74 2e 66 6e |lor.text| List.fn|
|00000810| 74 2c 4c 69 73 74 2e 73 | 7a 65 2c 4c 69 73 74 2e |t,List.s|ze,List.|
|00000820| 73 74 79 6c 2c 5f 53 72 | 63 4f 72 27 73 65 74 20 |styl,_Sr|cOr'set |
|00000830| 74 68 65 20 66 6f 6e 74 | 20 66 72 6f 6d 20 74 68 |the font| from th|
|00000840| 65 20 72 65 63 6f 72 64 | 0d 47 65 74 46 6f 6e 74 |e record|.GetFont|
|00000850| 49 6e 66 6f 28 6d 79 46 | 6f 6e 74 49 6e 66 6f 29 |Info(myF|ontInfo)|
|00000860| 27 67 65 74 20 74 68 65 | 20 66 6f 6e 74 20 69 6e |'get the| font in|
|00000870| 66 6f 72 20 66 6f 72 20 | 70 6c 61 63 69 6e 67 20 |for for |placing |
|00000880| 73 74 72 69 6e 67 20 77 | 69 74 68 20 64 65 73 63 |string w|ith desc|
|00000890| 65 6e 74 0d 0d 63 6f 6c | 2e 74 6f 70 28 31 29 20 |ent..col|.top(1) |
|000008a0| 20 20 20 3d 20 4c 69 73 | 74 2e 4c 69 73 74 52 65 |   = Lis|t.ListRe|
|000008b0| 63 74 2e 74 6f 70 2b 31 | 27 54 6f 70 20 6f 66 20 |ct.top+1|'Top of |
|000008c0| 66 69 72 73 74 20 63 65 | 6c 6c 0d 63 6f 6c 2e 6c |first ce|ll.col.l|
|000008d0| 65 66 74 28 31 29 20 20 | 20 3d 20 4c 69 73 74 2e |eft(1)  | = List.|
|000008e0| 4c 69 73 74 52 65 63 74 | 2e 6c 65 66 74 2b 31 27 |ListRect|.left+1'|
|000008f0| 4c 65 66 74 20 73 69 64 | 65 20 6f 66 20 66 69 72 |Left sid|e of fir|
|00000900| 73 74 20 63 65 6c 6c 0d | 63 6f 6c 2e 62 6f 74 74 |st cell.|col.bott|
|00000910| 6f 6d 28 31 29 20 3d 20 | 63 6f 6c 2e 74 6f 70 28 |om(1) = |col.top(|
|00000920| 31 29 20 2b 20 55 53 52 | 20 46 4f 4e 54 48 45 49 |1) + USR| FONTHEI|
|00000930| 47 48 54 2b 31 27 62 6f | 74 74 6f 6d 20 6f 66 20 |GHT+1'bo|ttom of |
|00000940| 66 69 72 73 74 20 63 65 | 6c 6c 0d 63 6f 6c 2e 72 |first ce|ll.col.r|
|00000950| 69 67 68 74 28 31 29 20 | 20 3d 20 63 6f 6c 2e 6c |ight(1) | = col.l|
|00000960| 65 66 74 28 31 29 20 2b | 20 4c 69 73 74 2e 63 6f |eft(1) +| List.co|
|00000970| 6c 77 64 5b 31 5d 27 72 | 69 67 68 74 20 73 69 64 |lwd[1]'r|ight sid|
|00000980| 65 20 6f 66 20 66 69 72 | 73 74 20 63 65 6c 6c 0d |e of fir|st cell.|
|00000990| 4c 6f 6e 67 20 69 66 20 | 63 6f 6c 2e 72 69 67 68 |Long if |col.righ|
|000009a0| 74 28 31 29 20 3e 20 4c | 69 73 74 2e 4c 69 73 74 |t(1) > L|ist.List|
|000009b0| 52 65 63 74 2e 72 69 67 | 68 74 2d 31 27 69 66 20 |Rect.rig|ht-1'if |
|000009c0| 77 65 20 6d 61 64 65 20 | 69 74 20 74 6f 6f 20 77 |we made |it too w|
|000009d0| 69 64 65 0d 63 6f 6c 2e | 72 69 67 68 74 28 31 29 |ide.col.|right(1)|
|000009e0| 20 3d 20 4c 69 73 74 2e | 4c 69 73 74 52 65 63 74 | = List.|ListRect|
|000009f0| 2e 72 69 67 68 74 2d 31 | 27 73 65 74 20 69 74 20 |.right-1|'set it |
|00000a00| 74 6f 20 74 68 65 20 77 | 69 64 65 73 74 20 70 6f |to the w|idest po|
|00000a10| 73 73 69 62 6c 65 0d 45 | 4e 44 20 49 46 0d 4c 4f |ssible.E|ND IF.LO|
|00000a20| 4e 47 20 49 46 20 4c 69 | 73 74 2e 6e 63 6f 6c 73 |NG IF Li|st.ncols|
|00000a30| 20 3d 20 31 27 6f 6e 6c | 79 20 6f 6e 65 20 63 6f | = 1'onl|y one co|
|00000a40| 6c 75 6d 6e 0d 4c 6f 6e | 67 20 69 66 20 63 6f 6c |lumn.Lon|g if col|
|00000a50| 2e 72 69 67 68 74 28 31 | 29 20 3c 20 4c 69 73 74 |.right(1|) < List|
|00000a60| 2e 4c 69 73 74 52 65 63 | 74 2e 72 69 67 68 74 27 |.ListRec|t.right'|
|00000a70| 77 65 20 64 69 64 20 6e | 6f 74 20 73 65 74 20 74 |we did n|ot set t|
|00000a80| 68 65 20 77 69 64 74 68 | 20 63 6f 72 72 65 63 74 |he width| correct|
|00000a90| 6c 79 0d 63 6f 6c 2e 72 | 69 67 68 74 28 31 29 20 |ly.col.r|ight(1) |
|00000aa0| 3d 20 4c 69 73 74 2e 4c | 69 73 74 52 65 63 74 2e |= List.L|istRect.|
|00000ab0| 72 69 67 68 74 27 73 6f | 20 73 65 74 20 69 74 20 |right'so| set it |
|00000ac0| 74 6f 20 74 68 65 20 77 | 69 64 74 68 20 6f 66 20 |to the w|idth of |
|00000ad0| 74 68 65 20 6c 69 73 74 | 0d 45 4e 44 20 49 46 27 |the list|.END IF'|
|00000ae0| 73 6f 6d 65 20 6f 66 20 | 74 68 69 73 20 61 62 6f |some of |this abo|
|00000af0| 76 65 20 63 61 6e 20 62 | 65 20 72 65 6d 6f 76 65 |ve can b|e remove|
|00000b00| 64 20 69 66 20 79 6f 75 | 20 6e 65 76 65 72 20 70 |d if you| never p|
|00000b10| 61 73 73 20 74 68 65 20 | 69 6e 63 6f 72 72 65 63 |ass the |incorrec|
|00000b20| 74 20 77 69 64 74 68 2f | 6e 75 6d 20 6f 66 20 63 |t width/|num of c|
|00000b30| 6f 6c 75 6d 6e 73 20 65 | 74 63 0d 45 4e 44 20 49 |olumns e|tc.END I|
|00000b40| 46 0d 69 63 6f 6e 77 64 | 20 3d 20 63 6f 6c 2e 62 |F.iconwd| = col.b|
|00000b50| 6f 74 74 6f 6d 28 31 29 | 20 2d 20 63 6f 6c 2e 74 |ottom(1)| - col.t|
|00000b60| 6f 70 28 31 29 27 6d 61 | 6b 65 20 61 6e 79 20 69 |op(1)'ma|ke any i|
|00000b70| 63 6f 6e 20 63 65 6c 6c | 20 73 71 75 61 72 65 0d |con cell| square.|
|00000b80| 0d 4c 4f 4e 47 20 49 46 | 20 4c 69 73 74 2e 6e 63 |.LONG IF| List.nc|
|00000b90| 6f 6c 73 20 3e 20 31 27 | 4c 6f 6f 70 20 74 68 72 |ols > 1'|Loop thr|
|00000ba0| 6f 75 67 68 20 74 68 65 | 0d 46 4f 52 20 63 20 3d |ough the|.FOR c =|
|00000bb0| 20 32 20 74 6f 20 4c 69 | 73 74 2e 6e 63 6f 6c 73 | 2 to Li|st.ncols|
|00000bc0| 27 72 65 6d 61 69 6e 69 | 6e 67 20 63 6f 6c 75 6d |'remaini|ng colum|
|00000bd0| 6e 73 0d 63 6f 6c 28 63 | 29 3b 38 20 20 20 20 20 |ns.col(c|);8     |
|00000be0| 3d 20 40 63 6f 6c 28 31 | 29 27 61 6e 64 20 73 65 |= @col(1|)'and se|
|00000bf0| 74 20 74 68 65 20 6c 65 | 66 74 0d 63 6f 6c 2e 6c |t the le|ft.col.l|
|00000c00| 65 66 74 28 63 29 20 20 | 3d 20 63 6f 6c 2e 72 69 |eft(c)  |= col.ri|
|00000c10| 67 68 74 28 63 2d 31 29 | 2d 31 27 61 6e 64 20 72 |ght(c-1)|-1'and r|
|00000c20| 69 67 68 74 20 73 69 64 | 65 73 0d 63 6f 6c 2e 72 |ight sid|es.col.r|
|00000c30| 69 67 68 74 28 63 29 20 | 3d 20 63 6f 6c 2e 6c 65 |ight(c) |= col.le|
|00000c40| 66 74 28 63 29 20 2b 20 | 4c 69 73 74 2e 63 6f 6c |ft(c) + |List.col|
|00000c50| 77 64 5b 63 5d 27 66 6f | 72 20 74 68 69 73 20 63 |wd[c]'fo|r this c|
|00000c60| 6f 6c 75 6d 6e 0d 4c 6f | 6e 67 20 69 66 20 63 6f |olumn.Lo|ng if co|
|00000c70| 6c 2e 72 69 67 68 74 28 | 63 29 20 3e 20 4c 69 73 |l.right(|c) > Lis|
|00000c80| 74 2e 4c 69 73 74 52 65 | 63 74 2e 72 69 67 68 74 |t.ListRe|ct.right|
|00000c90| 2d 31 27 69 66 20 77 68 | 61 74 20 77 65 20 61 64 |-1'if wh|at we ad|
|00000ca0| 64 20 75 70 20 69 73 20 | 74 6f 6f 20 77 69 64 65 |d up is |too wide|
|00000cb0| 20 66 6f 72 20 74 68 65 | 20 6c 69 73 74 0d 63 6f | for the| list.co|
|00000cc0| 6c 2e 72 69 67 68 74 28 | 63 29 20 3d 20 4c 69 73 |l.right(|c) = Lis|
|00000cd0| 74 2e 4c 69 73 74 52 65 | 63 74 2e 72 69 67 68 74 |t.ListRe|ct.right|
|00000ce0| 2d 31 27 73 65 74 20 69 | 74 20 74 6f 20 74 68 65 |-1'set i|t to the|
|00000cf0| 20 6d 61 78 20 77 69 64 | 74 68 0d 45 4e 44 20 49 | max wid|th.END I|
|00000d00| 46 0d 49 46 20 63 20 3d | 20 4c 69 73 74 2e 6e 63 |F.IF c =| List.nc|
|00000d10| 6f 6c 73 20 74 68 65 6e | 20 63 6f 6c 2e 72 69 67 |ols then| col.rig|
|00000d20| 68 74 28 63 29 20 3d 20 | 4c 69 73 74 2e 4c 69 73 |ht(c) = |List.Lis|
|00000d30| 74 52 65 63 74 2e 72 69 | 67 68 74 2d 31 27 69 66 |tRect.ri|ght-1'if|
|00000d40| 20 69 74 20 69 73 20 74 | 68 65 20 6c 61 73 74 20 | it is t|he last |
|00000d50| 63 6f 6c 75 6d 6e 20 73 | 65 74 20 74 6f 20 74 68 |column s|et to th|
|00000d60| 65 20 65 64 67 65 0d 4e | 45 58 54 0d 65 6e 64 20 |e edge.N|EXT.end |
|00000d70| 69 66 0d 0d 66 6f 72 20 | 63 20 3d 20 32 20 74 6f |if..for |c = 2 to|
|00000d80| 20 4c 69 73 74 2e 6e 63 | 6f 6c 73 27 77 69 64 74 | List.nc|ols'widt|
|00000d90| 68 20 6d 6f 64 69 66 79 | 20 73 65 6c 65 63 74 69 |h modify| selecti|
|00000da0| 6f 6e 20 72 65 63 74 61 | 6e 67 6c 65 73 0d 73 65 |on recta|ngles.se|
|00000db0| 74 72 65 63 74 28 4c 69 | 73 74 2e 73 65 6c 72 65 |trect(Li|st.selre|
|00000dc0| 63 74 5b 63 5d 2c 63 6f | 6c 2e 6c 65 66 74 28 63 |ct[c],co|l.left(c|
|00000dd0| 29 2d 32 2c 63 6f 6c 2e | 74 6f 70 28 63 29 2c 63 |)-2,col.|top(c),c|
|00000de0| 6f 6c 2e 6c 65 66 74 28 | 63 29 2b 33 2c 63 6f 6c |ol.left(|c)+3,col|
|00000df0| 2e 74 6f 70 28 63 29 2b | 55 53 52 20 46 4f 4e 54 |.top(c)+|USR FONT|
|00000e00| 48 45 49 47 48 54 2b 31 | 29 0d 4e 45 58 54 0d 0d |HEIGHT+1|).NEXT..|
|00000e10| 43 4c 49 50 52 45 43 54 | 28 4c 69 73 74 2e 4c 69 |CLIPRECT|(List.Li|
|00000e20| 73 74 52 65 63 74 29 27 | 6f 6e 6c 79 20 64 72 61 |stRect)'|only dra|
|00000e30| 77 20 77 69 74 68 69 6e | 20 74 68 65 20 6c 69 73 |w within| the lis|
|00000e40| 74 0d 63 6f 75 6e 74 20 | 3d 20 62 75 74 74 6f 6e |t.count |= button|
|00000e50| 28 4c 69 73 74 2e 4c 53 | 63 72 6f 6c 6c 42 74 6e |(List.LS|crollBtn|
|00000e60| 29 27 63 68 65 63 6b 20 | 74 68 65 20 63 75 72 72 |)'check |the curr|
|00000e70| 65 6e 74 20 70 6f 73 69 | 74 69 6f 6e 20 6f 66 20 |ent posi|tion of |
|00000e80| 74 68 65 20 73 63 72 6f | 6c 6c 20 62 61 72 0d 49 |the scro|ll bar.I|
|00000e90| 46 20 63 6f 75 6e 74 20 | 3c 3d 20 30 20 74 68 65 |F count |<= 0 the|
|00000ea0| 6e 20 63 6f 75 6e 74 20 | 3d 20 31 27 69 66 20 69 |n count |= 1'if i|
|00000eb0| 74 20 69 73 20 74 68 65 | 20 66 69 72 73 74 20 64 |t is the| first d|
|00000ec0| 72 61 77 69 6e 67 20 77 | 65 20 6d 61 6e 79 20 6e |rawing w|e many n|
|00000ed0| 6f 74 20 68 61 76 65 20 | 61 20 76 61 6c 75 65 20 |ot have |a value |
|00000ee0| 79 65 74 0d 0d 66 6c 75 | 73 68 77 69 6e 64 6f 77 |yet..flu|shwindow|
|00000ef0| 62 75 66 66 65 72 20 5f | 46 42 41 75 74 6f 46 6c |buffer _|FBAutoFl|
|00000f00| 75 73 68 4f 66 66 0d 0d | 50 45 4e 20 31 2c 31 2c |ushOff..|PEN 1,1,|
|00000f10| 31 2c 30 2c 33 27 66 6f | 72 20 61 20 64 6f 74 74 |1,0,3'fo|r a dott|
|00000f20| 65 64 20 63 65 6c 6c 20 | 62 6f 72 64 65 72 0d 6e |ed cell |border.n|
|00000f30| 75 6d 52 6f 77 73 20 3d | 20 28 28 4c 69 73 74 2e |umRows =| ((List.|
|00000f40| 4c 69 73 74 52 65 63 74 | 2e 62 6f 74 74 6f 6d 2d |ListRect|.bottom-|
|00000f50| 4c 69 73 74 2e 4c 69 73 | 74 52 65 63 74 2e 74 6f |List.Lis|tRect.to|
|00000f60| 70 29 5c 28 55 53 52 20 | 46 4f 4e 54 48 45 49 47 |p)\(USR |FONTHEIG|
|00000f70| 48 54 29 29 27 63 61 6c | 63 75 6c 61 74 65 20 74 |HT))'cal|culate t|
|00000f80| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 76 69 73 |he numbe|r of vis|
|00000f90| 69 62 6c 65 20 72 6f 77 | 73 0d 46 4f 52 20 79 20 |ible row|s.FOR y |
|00000fa0| 3d 20 63 6f 75 6e 74 20 | 54 4f 20 63 6f 75 6e 74 |= count |TO count|
|00000fb0| 20 2b 20 6e 75 6d 52 6f | 77 73 27 73 74 61 72 74 | + numRo|ws'start|
|00000fc0| 20 77 69 74 68 20 66 69 | 72 73 74 20 76 69 73 69 | with fi|rst visi|
|00000fd0| 62 6c 65 20 63 65 6c 6c | 20 61 6e 64 20 6c 6f 6f |ble cell| and loo|
|00000fe0| 70 0d 4c 4f 4e 47 20 49 | 46 20 79 20 3c 3d 20 4c |p.LONG I|F y <= L|
|00000ff0| 69 73 74 2e 6e 75 6d 52 | 65 63 6f 72 64 73 0d 74 |ist.numR|ecords.t|
|00001000| 24 20 3d 20 53 54 52 23 | 28 4c 69 73 74 2e 53 54 |$ = STR#|(List.ST|
|00001010| 52 65 73 4e 6f 2c 79 29 | 27 74 65 6d 70 20 73 74 |ResNo,y)|'temp st|
|00001020| 72 69 6e 67 20 77 69 74 | 68 20 64 65 6c 69 6d 0d |ring wit|h delim.|
|00001030| 58 45 4c 53 45 0d 74 24 | 20 3d 20 22 22 27 62 65 |XELSE.t$| = ""'be|
|00001040| 79 6f 6e 64 20 74 68 65 | 20 65 6e 64 20 6f 66 20 |yond the| end of |
|00001050| 74 68 65 20 6c 69 73 74 | 20 73 6f 20 6e 75 6c 6c |the list| so null|
|00001060| 20 74 68 65 20 73 74 72 | 69 6e 67 0d 45 4e 44 20 | the str|ing.END |
|00001070| 49 46 0d 46 4f 52 20 78 | 20 3d 20 31 20 74 6f 20 |IF.FOR x| = 1 to |
|00001080| 4c 69 73 74 2e 6e 63 6f | 6c 73 27 63 72 65 61 74 |List.nco|ls'creat|
|00001090| 65 20 73 74 72 69 6e 67 | 73 20 66 72 6f 6d 20 74 |e string|s from t|
|000010a0| 68 69 73 20 66 6f 72 20 | 65 61 63 68 20 63 6f 6c |his for |each col|
|000010b0| 75 6d 6e 0d 50 45 4e 4e | 4f 52 4d 41 4c 27 72 65 |umn.PENN|ORMAL're|
|000010c0| 73 65 74 20 74 68 65 20 | 70 65 6e 0d 27 66 6f 72 |set the |pen.'for|
|000010d0| 65 63 6f 6c 6f 72 28 5f | 62 6c 61 63 6b 63 6f 6c |ecolor(_|blackcol|
|000010e0| 6f 72 29 27 73 65 74 20 | 74 6f 20 62 6c 61 63 6b |or)'set |to black|
|000010f0| 20 74 6f 20 70 72 65 70 | 61 72 65 20 66 6f 72 20 | to prep|are for |
|00001100| 64 72 61 77 69 6e 67 20 | 67 72 69 64 0d 0d 6c 6f |drawing |grid..lo|
|00001110| 6e 67 20 69 66 20 79 20 | 6d 6f 64 20 32 20 3d 20 |ng if y |mod 2 = |
|00001120| 30 27 6e 65 77 20 69 74 | 75 6e 65 73 20 74 79 70 |0'new it|unes typ|
|00001130| 65 20 63 6f 6c 6f 72 20 | 6c 69 73 74 20 73 65 70 |e color |list sep|
|00001140| 61 72 61 74 69 6f 6e 0d | 72 67 62 66 6f 72 65 63 |aration.|rgbforec|
|00001150| 6f 6c 6f 72 28 72 67 29 | 0d 50 61 69 6e 74 72 65 |olor(rg)|.Paintre|
|00001160| 63 74 28 63 6f 6c 28 78 | 29 29 0d 78 65 6c 73 65 |ct(col(x|)).xelse|
|00001170| 0d 66 6f 72 65 43 4f 4c | 4f 52 28 5f 77 68 69 74 |.foreCOL|OR(_whit|
|00001180| 65 63 6f 6c 6f 72 29 27 | 67 65 74 20 72 65 61 64 |ecolor)'|get read|
|00001190| 79 20 74 6f 20 65 72 61 | 73 65 0d 50 41 49 4e 54 |y to era|se.PAINT|
|000011a0| 52 45 43 54 28 63 6f 6c | 28 78 29 29 27 65 72 61 |RECT(col|(x))'era|
|000011b0| 73 65 20 74 6f 20 77 68 | 69 74 65 20 2d 20 63 6f |se to wh|ite - co|
|000011c0| 75 6c 64 20 62 65 20 61 | 6e 79 20 63 6f 6c 6f 72 |uld be a|ny color|
|000011d0| 20 79 6f 75 20 77 61 6e | 74 0d 65 6e 64 20 69 66 | you wan|t.end if|
|000011e0| 0d 0d 50 45 4e 20 31 2c | 31 2c 31 2c 30 2c 33 27 |..PEN 1,|1,1,0,3'|
|000011f0| 66 6f 72 20 61 20 64 6f | 74 74 65 64 20 63 65 6c |for a do|tted cel|
|00001200| 6c 20 62 6f 72 64 65 72 | 0d 66 6f 72 65 63 6f 6c |l border|.forecol|
|00001210| 6f 72 28 5f 62 6c 61 63 | 6b 63 6f 6c 6f 72 29 0d |or(_blac|kcolor).|
|00001220| 49 46 20 78 20 3e 20 31 | 20 54 48 45 4e 20 70 6c |IF x > 1| THEN pl|
|00001230| 6f 74 20 63 6f 6c 2e 6c | 65 66 74 28 78 29 2c 63 |ot col.l|eft(x),c|
|00001240| 6f 6c 2e 74 6f 70 28 78 | 29 20 74 6f 20 63 6f 6c |ol.top(x|) to col|
|00001250| 2e 6c 65 66 74 28 78 29 | 2c 63 6f 6c 2e 62 6f 74 |.left(x)|,col.bot|
|00001260| 74 6f 6d 28 78 29 0d 0d | 27 46 52 41 4d 45 52 45 |tom(x)..|'FRAMERE|
|00001270| 43 54 28 63 6f 6c 28 78 | 29 29 27 66 72 61 6d 65 |CT(col(x|))'frame|
|00001280| 20 74 68 65 20 63 65 6c | 6c 0d 49 4e 53 45 54 52 | the cel|l.INSETR|
|00001290| 45 43 54 28 63 6f 6c 28 | 78 29 2c 31 2c 31 29 27 |ECT(col(|x),1,1)'|
|000012a0| 69 6e 73 65 74 20 74 68 | 65 20 63 65 6c 6c 20 66 |inset th|e cell f|
|000012b0| 6f 72 20 74 68 65 20 74 | 65 78 74 20 62 6f 78 0d |or the t|ext box.|
|000012c0| 43 4c 49 50 52 45 43 54 | 28 4c 69 73 74 2e 4c 69 |CLIPRECT|(List.Li|
|000012d0| 73 74 52 65 63 74 29 27 | 6f 6e 6c 79 20 64 72 61 |stRect)'|only dra|
|000012e0| 77 20 77 69 74 68 69 6e | 20 74 68 65 20 6c 69 73 |w within| the lis|
|000012f0| 74 0d 4c 4f 4e 47 20 49 | 46 20 74 24 20 3c 3e 20 |t.LONG I|F t$ <> |
|00001300| 22 22 0d 6c 6f 6e 67 20 | 49 46 20 78 20 3d 20 31 |"".long |IF x = 1|
|00001310| 27 49 66 20 69 74 73 20 | 6f 75 72 20 66 69 72 73 |'If its |our firs|
|00001320| 74 20 70 61 73 73 20 73 | 74 61 72 74 20 77 69 74 |t pass s|tart wit|
|00001330| 68 20 63 68 61 72 20 30 | 0d 70 74 20 3d 20 30 0d |h char 0|.pt = 0.|
|00001340| 78 65 6c 73 65 0d 70 74 | 20 3d 20 70 74 32 27 65 |xelse.pt| = pt2'e|
|00001350| 6c 73 65 20 6d 6f 76 65 | 20 74 6f 20 77 68 65 72 |lse move| to wher|
|00001360| 65 20 74 68 65 20 66 69 | 72 73 74 20 63 6f 6c 75 |e the fi|rst colu|
|00001370| 6d 6e 20 73 74 72 69 6e | 67 20 65 6e 64 65 64 0d |mn strin|g ended.|
|00001380| 65 6e 64 20 69 66 0d 70 | 74 32 20 3d 20 69 6e 73 |end if.p|t2 = ins|
|00001390| 74 72 28 70 74 2b 31 2c | 74 24 2c 4c 69 73 74 2e |tr(pt+1,|t$,List.|
|000013a0| 64 65 6c 69 6d 24 29 27 | 66 69 6e 64 20 74 68 65 |delim$)'|find the|
|000013b0| 20 6e 65 78 74 20 64 65 | 6c 69 6d 20 69 6e 20 74 | next de|lim in t|
|000013c0| 68 65 20 73 74 72 69 6e | 67 0d 74 32 24 20 3d 20 |he strin|g.t2$ = |
|000013d0| 20 4d 49 44 24 28 74 24 | 2c 70 74 2b 31 2c 70 74 | MID$(t$|,pt+1,pt|
|000013e0| 32 2d 70 74 2d 31 29 27 | 70 61 72 73 65 20 74 68 |2-pt-1)'|parse th|
|000013f0| 65 20 63 65 6c 6c 20 74 | 65 78 74 20 62 65 74 77 |e cell t|ext betw|
|00001400| 65 65 6e 20 64 65 6c 69 | 6d 0d 0d 49 46 20 70 74 |een deli|m..IF pt|
|00001410| 32 20 3d 20 30 20 74 68 | 65 6e 20 74 24 20 3d 20 |2 = 0 th|en t$ = |
|00001420| 22 22 27 69 66 20 77 65 | 20 72 65 61 63 68 65 64 |""'if we| reached|
|00001430| 20 74 68 65 20 65 6e 64 | 20 74 68 65 20 74 68 65 | the end| the the|
|00001440| 20 63 65 6c 6c 20 69 73 | 20 62 6c 61 6e 6b 0d 0d | cell is| blank..|
|00001450| 4c 4f 4e 47 20 49 46 20 | 4c 69 73 74 2e 6e 65 77 |LONG IF |List.new|
|00001460| 73 65 6c 65 63 74 20 3d | 20 79 27 66 6f 75 6e 64 |select =| y'found|
|00001470| 20 6f 75 72 20 68 69 67 | 68 6c 69 67 68 74 65 64 | our hig|hlighted|
|00001480| 20 69 74 65 6d 0d 72 67 | 62 62 61 63 6b 63 6f 6c | item.rg|bbackcol|
|00001490| 6f 72 28 68 69 6c 69 74 | 65 29 0d 72 67 62 66 6f |or(hilit|e).rgbfo|
|000014a0| 72 65 63 6f 6c 6f 72 28 | 68 69 6c 69 74 65 29 0d |recolor(|hilite).|
|000014b0| 50 61 69 6e 74 72 65 63 | 74 28 63 6f 6c 28 78 29 |Paintrec|t(col(x)|
|000014c0| 29 0d 72 67 62 66 6f 72 | 65 63 6f 6c 6f 72 28 4c |).rgbfor|ecolor(L|
|000014d0| 69 73 74 2e 52 47 42 5b | 78 5d 29 27 6f 75 72 20 |ist.RGB[|x])'our |
|000014e0| 69 6e 64 69 76 69 64 75 | 61 6c 20 63 65 6c 6c 20 |individu|al cell |
|000014f0| 63 6f 6c 6f 72 73 21 21 | 0d 78 65 6c 73 65 0d 72 |colors!!|.xelse.r|
|00001500| 67 62 66 6f 72 65 63 6f | 6c 6f 72 28 4c 69 73 74 |gbforeco|lor(List|
|00001510| 2e 52 47 42 5b 78 5d 29 | 27 6f 75 72 20 69 6e 64 |.RGB[x])|'our ind|
|00001520| 69 76 69 64 75 61 6c 20 | 63 65 6c 6c 20 63 6f 6c |ividual |cell col|
|00001530| 6f 72 73 21 21 0d 45 4e | 44 20 49 46 0d 0d 27 62 |ors!!.EN|D IF..'b|
|00001540| 61 63 6b 63 6f 6c 6f 72 | 28 5f 77 68 69 74 65 63 |ackcolor|(_whitec|
|00001550| 6f 6c 6f 72 29 0d 4c 4f | 4e 47 20 49 46 20 4c 45 |olor).LO|NG IF LE|
|00001560| 46 54 24 28 74 32 24 2c | 31 29 20 3d 20 4c 69 73 |FT$(t2$,|1) = Lis|
|00001570| 74 2e 69 63 6f 6e 24 27 | 69 73 20 74 68 69 73 20 |t.icon$'|is this |
|00001580| 61 6e 20 69 63 6f 6e 20 | 69 64 20 6e 75 6d 62 65 |an icon |id numbe|
|00001590| 72 3f 0d 74 32 24 20 3d | 20 52 49 47 48 54 24 28 |r?.t2$ =| RIGHT$(|
|000015a0| 74 32 24 2c 4c 45 4e 28 | 74 32 24 29 2d 31 29 27 |t2$,LEN(|t2$)-1)'|
|000015b0| 67 65 74 20 74 68 65 20 | 69 64 20 6e 75 6d 62 65 |get the |id numbe|
|000015c0| 72 20 6f 66 20 74 68 65 | 20 69 63 6f 6e 20 66 61 |r of the| icon fa|
|000015d0| 6d 69 6c 79 0d 6e 20 3d | 20 63 6f 6c 2e 72 69 67 |mily.n =| col.rig|
|000015e0| 68 74 28 78 29 0d 63 6f | 6c 2e 72 69 67 68 74 28 |ht(x).co|l.right(|
|000015f0| 78 29 20 3d 20 63 6f 6c | 2e 6c 65 66 74 28 78 29 |x) = col|.left(x)|
|00001600| 20 2b 20 69 63 6f 6e 77 | 64 0d 27 65 72 72 20 3d | + iconw|d.'err =|
|00001610| 20 46 4e 20 50 6c 6f 74 | 49 63 6f 6e 49 44 28 40 | FN Plot|IconID(@|
|00001620| 63 6f 6c 28 78 29 2c 20 | 30 2c 20 30 2c 20 56 41 |col(x), |0, 0, VA|
|00001630| 4c 28 74 32 24 29 29 27 | 64 65 70 65 6e 64 69 6e |L(t2$))'|dependin|
|00001640| 67 20 6f 6e 20 74 68 65 | 20 73 69 7a 65 20 6f 66 |g on the| size of|
|00001650| 20 72 65 63 74 20 69 65 | 20 69 63 73 34 2c 69 63 | rect ie| ics4,ic|
|00001660| 6d 34 20 65 74 63 0d 63 | 6f 6c 2e 72 69 67 68 74 |m4 etc.c|ol.right|
|00001670| 28 78 29 20 3d 20 6e 0d | 78 65 6c 73 65 0d 72 67 |(x) = n.|xelse.rg|
|00001680| 62 66 6f 72 65 63 6f 6c | 6f 72 28 4c 69 73 74 2e |bforecol|or(List.|
|00001690| 52 47 42 5b 78 5d 29 27 | 6f 75 72 20 69 6e 64 69 |RGB[x])'|our indi|
|000016a0| 76 69 64 75 61 6c 20 63 | 65 6c 6c 20 63 6f 6c 6f |vidual c|ell colo|
|000016b0| 72 73 21 21 0d 53 45 4c | 45 43 54 20 4c 69 73 74 |rs!!.SEL|ECT List|
|000016c0| 2e 74 78 74 61 6c 69 67 | 6e 5b 78 5d 0d 43 41 53 |.txtalig|n[x].CAS|
|000016d0| 45 20 30 27 6c 65 66 74 | 20 61 6c 69 67 6e 6d 65 |E 0'left| alignme|
|000016e0| 6e 74 0d 6d 6f 76 65 74 | 6f 28 63 6f 6c 2e 6c 65 |nt.movet|o(col.le|
|000016f0| 66 74 28 78 29 2b 32 2c | 63 6f 6c 2e 62 6f 74 74 |ft(x)+2,|col.bott|
|00001700| 6f 6d 28 78 29 2d 6d 79 | 46 6f 6e 74 49 6e 66 6f |om(x)-my|FontInfo|
|00001710| 2e 64 65 73 63 65 6e 74 | 29 0d 64 72 61 77 73 74 |.descent|).drawst|
|00001720| 72 69 6e 67 28 74 32 24 | 29 0d 43 41 53 45 20 31 |ring(t2$|).CASE 1|
|00001730| 27 63 65 6e 74 65 72 20 | 61 6c 69 67 6e 6d 65 6e |'center |alignmen|
|00001740| 74 0d 78 70 20 3d 20 63 | 6f 6c 2e 6c 65 66 74 28 |t.xp = c|ol.left(|
|00001750| 78 29 20 2b 20 28 28 63 | 6f 6c 2e 72 69 67 68 74 |x) + ((c|ol.right|
|00001760| 28 78 29 2d 63 6f 6c 2e | 6c 65 66 74 28 78 29 29 |(x)-col.|left(x))|
|00001770| 2f 32 29 20 2d 20 46 4e | 20 53 54 52 49 4e 47 57 |/2) - FN| STRINGW|
|00001780| 49 44 54 48 28 74 32 24 | 29 2f 32 0d 6d 6f 76 65 |IDTH(t2$|)/2.move|
|00001790| 74 6f 28 78 70 2c 63 6f | 6c 2e 62 6f 74 74 6f 6d |to(xp,co|l.bottom|
|000017a0| 28 78 29 2d 6d 79 46 6f | 6e 74 49 6e 66 6f 2e 64 |(x)-myFo|ntInfo.d|
|000017b0| 65 73 63 65 6e 74 29 0d | 64 72 61 77 73 74 72 69 |escent).|drawstri|
|000017c0| 6e 67 28 74 32 24 29 0d | 43 41 53 45 20 32 27 72 |ng(t2$).|CASE 2'r|
|000017d0| 69 67 68 74 20 61 6c 69 | 67 6e 6d 65 6e 74 0d 78 |ight ali|gnment.x|
|000017e0| 70 20 3d 20 63 6f 6c 2e | 72 69 67 68 74 28 78 29 |p = col.|right(x)|
|000017f0| 20 2d 20 46 4e 20 53 54 | 52 49 4e 47 57 49 44 54 | - FN ST|RINGWIDT|
|00001800| 48 28 74 32 24 29 0d 6d | 6f 76 65 74 6f 28 78 70 |H(t2$).m|oveto(xp|
|00001810| 2c 63 6f 6c 2e 62 6f 74 | 74 6f 6d 28 78 29 2d 6d |,col.bot|tom(x)-m|
|00001820| 79 46 6f 6e 74 49 6e 66 | 6f 2e 64 65 73 63 65 6e |yFontInf|o.descen|
|00001830| 74 29 0d 64 72 61 77 73 | 74 72 69 6e 67 28 74 32 |t).draws|tring(t2|
|00001840| 24 29 0d 45 4e 44 20 53 | 45 4c 45 43 54 0d 45 4e |$).END S|ELECT.EN|
|00001850| 44 20 49 46 0d 45 4e 44 | 20 49 46 0d 49 4e 53 45 |D IF.END| IF.INSE|
|00001860| 54 52 45 43 54 28 63 6f | 6c 28 78 29 2c 2d 31 2c |TRECT(co|l(x),-1,|
|00001870| 2d 31 29 27 72 65 73 65 | 74 20 63 65 6c 6c 20 74 |-1)'rese|t cell t|
|00001880| 6f 20 6f 72 69 67 20 73 | 69 7a 65 0d 6f 66 66 73 |o orig s|ize.offs|
|00001890| 65 74 72 65 63 74 28 63 | 6f 6c 28 78 29 2c 30 2c |etrect(c|ol(x),0,|
|000018a0| 55 53 52 20 46 4f 4e 54 | 48 45 49 47 48 54 29 27 |USR FONT|HEIGHT)'|
|000018b0| 6f 66 66 73 65 74 20 74 | 6f 20 6e 65 78 74 20 72 |offset t|o next r|
|000018c0| 6f 77 0d 43 4c 49 50 52 | 45 43 54 28 4c 69 73 74 |ow.CLIPR|ECT(List|
|000018d0| 2e 4c 69 73 74 52 65 63 | 74 29 27 6f 6e 6c 79 20 |.ListRec|t)'only |
|000018e0| 64 72 61 77 20 77 69 74 | 68 69 6e 20 74 68 65 20 |draw wit|hin the |
|000018f0| 6c 69 73 74 0d 4e 45 58 | 54 0d 4e 45 58 54 0d 66 |list.NEX|T.NEXT.f|
|00001900| 6f 72 65 63 6f 6c 6f 72 | 28 5f 62 6c 61 63 6b 63 |orecolor|(_blackc|
|00001910| 6f 6c 6f 72 29 27 72 65 | 74 75 72 6e 20 63 6f 6c |olor)'re|turn col|
|00001920| 6f 72 20 74 6f 20 6e 6f | 72 6d 61 6c 0d 43 4c 49 |or to no|rmal.CLI|
|00001930| 50 52 45 43 54 28 67 42 | 69 67 54 29 27 73 65 74 |PRECT(gB|igT)'set|
|00001940| 20 63 6c 69 70 20 74 6f | 20 66 75 6c 6c 0d 70 65 | clip to| full.pe|
|00001950| 6e 6e 6f 72 6d 61 6c 0d | 46 52 41 4d 45 52 45 43 |nnormal.|FRAMEREC|
|00001960| 54 28 4c 69 73 74 2e 4c | 69 73 74 52 65 63 74 29 |T(List.L|istRect)|
|00001970| 27 66 72 61 6d 65 20 74 | 68 65 20 6c 69 73 74 0d |'frame t|he list.|
|00001980| 4c 4f 4e 47 20 49 46 20 | 42 55 54 54 4f 4e 28 4c |LONG IF |BUTTON(L|
|00001990| 69 73 74 2e 4c 53 63 72 | 6f 6c 6c 42 74 6e 29 20 |ist.LScr|ollBtn) |
|000019a0| 3d 20 31 27 20 61 6e 64 | 20 4c 69 73 74 2e 6e 65 |= 1' and| List.ne|
|000019b0| 77 73 65 6c 65 63 74 20 | 3d 20 30 27 66 6f 72 20 |wselect |= 0'for |
|000019c0| 74 68 69 73 20 64 65 6d | 6f 20 73 61 79 20 77 65 |this dem|o say we|
|000019d0| 20 64 69 64 20 6e 6f 74 | 20 6d 61 74 63 68 20 74 | did not| match t|
|000019e0| 68 65 20 73 63 72 6f 6c | 6c 20 62 75 74 74 6f 6e |he scrol|l button|
|000019f0| 20 74 6f 20 74 68 65 20 | 6c 69 73 74 20 68 65 69 | to the |list hei|
|00001a00| 67 68 74 0d 53 45 54 52 | 45 43 54 28 74 62 6f 78 |ght.SETR|ECT(tbox|
|00001a10| 2c 4c 69 73 74 2e 4c 69 | 73 74 52 65 63 74 2e 72 |,List.Li|stRect.r|
|00001a20| 69 67 68 74 2c 4c 69 73 | 74 2e 4c 69 73 74 52 65 |ight,Lis|t.ListRe|
|00001a30| 63 74 2e 74 6f 70 2c 4c | 69 73 74 2e 4c 69 73 74 |ct.top,L|ist.List|
|00001a40| 52 65 63 74 2e 72 69 67 | 68 74 20 2b 20 31 36 2c |Rect.rig|ht + 16,|
|00001a50| 4c 69 73 74 2e 4c 69 73 | 74 52 65 63 74 2e 62 6f |List.Lis|tRect.bo|
|00001a60| 74 74 6f 6d 29 0d 78 70 | 20 3d 20 4c 69 73 74 2e |ttom).xp| = List.|
|00001a70| 6e 75 6d 52 65 63 6f 72 | 64 73 2d 6e 75 6d 52 6f |numRecor|ds-numRo|
|00001a80| 77 73 2b 31 0d 69 66 20 | 78 70 20 3c 3d 20 30 20 |ws+1.if |xp <= 0 |
|00001a90| 74 68 65 6e 20 78 70 20 | 3d 20 31 0d 53 43 52 4f |then xp |= 1.SCRO|
|00001aa0| 4c 4c 20 42 55 54 54 4f | 4e 20 4c 69 73 74 2e 4c |LL BUTTO|N List.L|
|00001ab0| 53 63 72 6f 6c 6c 42 74 | 6e 2c 2c 2c 78 70 2c 2c |ScrollBt|n,,,xp,,|
|00001ac0| 40 74 62 6f 78 27 79 6f | 75 20 63 6f 75 6c 64 20 |@tbox'yo|u could |
|00001ad0| 70 75 74 20 74 68 69 73 | 20 69 6e 20 50 47 20 61 |put this| in PG a|
|00001ae0| 6e 64 20 74 68 65 6e 20 | 6a 75 73 74 20 72 65 73 |nd then |just res|
|00001af0| 69 7a 65 20 69 74 0d 45 | 4e 44 20 49 46 0d 66 6c |ize it.E|ND IF.fl|
|00001b00| 75 73 68 77 69 6e 64 6f | 77 62 75 66 66 65 72 20 |ushwindo|wbuffer |
|00001b10| 5f 46 42 41 75 74 6f 46 | 6c 75 73 68 4f 6e 0d 65 |_FBAutoF|lushOn.e|
|00001b20| 6e 64 20 66 6e 0d 0d 0d | 43 4c 45 41 52 20 4c 4f |nd fn...|CLEAR LO|
|00001b30| 43 41 4c 0d 44 49 4d 20 | 61 73 20 68 61 6e 64 6c |CAL.DIM |as handl|
|00001b40| 65 20 62 74 6e 48 6e 64 | 6c 26 0d 64 69 6d 20 61 |e btnHnd|l&.dim a|
|00001b50| 73 20 72 65 63 74 20 20 | 20 74 62 6f 78 0d 64 69 |s rect  | tbox.di|
|00001b60| 6d 20 61 73 20 69 6e 74 | 20 20 20 20 78 2c 57 68 |m as int|    x,Wh|
|00001b70| 69 63 68 53 74 72 69 6e | 67 2c 65 72 72 2c 6f 6c |ichStrin|g,err,ol|
|00001b80| 64 73 65 6c 2c 6e 65 77 | 73 65 6c 2c 74 6f 70 2c |dsel,new|sel,top,|
|00001b90| 6a 2c 6e 75 6d 52 6f 77 | 73 2c 42 74 6e 4d 61 78 |j,numRow|s,BtnMax|
|00001ba0| 2c 43 75 72 52 65 73 2c | 64 72 61 77 4c 69 73 74 |,CurRes,|drawList|
|00001bb0| 0d 44 49 4d 20 61 73 20 | 70 6f 69 6e 74 20 20 6d |.DIM as |point  m|
|00001bc0| 50 74 0d 44 49 4d 20 61 | 73 20 45 76 65 6e 74 52 |Pt.DIM a|s EventR|
|00001bd0| 65 63 6f 72 64 20 65 76 | 6e 74 0d 44 49 4d 20 61 |ecord ev|nt.DIM a|
|00001be0| 73 20 73 74 72 32 35 35 | 20 20 53 65 6c 65 63 74 |s str255|  Select|
|00001bf0| 65 64 24 0d 27 7e 27 32 | 0d 4c 4f 43 41 4c 20 46 |ed$.'~'2|.LOCAL F|
|00001c00| 4e 20 44 6f 4c 69 73 74 | 53 65 6c 65 63 74 6f 6e |N DoList|Selecton|
|00001c10| 24 28 4c 69 73 74 20 41 | 53 20 5e 4c 69 73 74 52 |$(List A|S ^ListR|
|00001c20| 65 63 6f 72 64 29 27 70 | 61 73 73 20 77 68 69 63 |ecord)'p|ass whic|
|00001c30| 68 20 6c 69 73 74 20 77 | 65 20 63 6c 69 63 6b 65 |h list w|e clicke|
|00001c40| 64 0d 27 7e 27 32 0d 74 | 65 78 74 20 4c 69 73 74 |d.'~'2.t|ext List|
|00001c50| 2e 66 6e 74 2c 4c 69 73 | 74 2e 73 7a 65 2c 4c 69 |.fnt,Lis|t.sze,Li|
|00001c60| 73 74 2e 73 74 79 6c 2c | 5f 73 72 63 4f 72 27 73 |st.styl,|_srcOr's|
|00001c70| 65 74 20 74 6f 20 70 72 | 6f 70 65 72 20 66 6f 6e |et to pr|oper fon|
|00001c80| 74 0d 6e 75 6d 52 6f 77 | 73 20 3d 20 28 4c 69 73 |t.numRow|s = (Lis|
|00001c90| 74 2e 4c 69 73 74 52 65 | 63 74 2e 62 6f 74 74 6f |t.ListRe|ct.botto|
|00001ca0| 6d 2d 4c 69 73 74 2e 4c | 69 73 74 52 65 63 74 2e |m-List.L|istRect.|
|00001cb0| 74 6f 70 29 5c 28 55 53 | 52 20 46 4f 4e 54 48 45 |top)\(US|R FONTHE|
|00001cc0| 49 47 48 54 29 27 73 65 | 74 20 74 68 65 20 6e 75 |IGHT)'se|t the nu|
|00001cd0| 6d 62 65 72 20 6f 66 20 | 72 6f 77 73 20 64 65 70 |mber of |rows dep|
|00001ce0| 65 6e 64 69 6e 67 20 6f | 6e 20 74 68 65 20 66 6f |ending o|n the fo|
|00001cf0| 6e 74 20 73 69 7a 65 0d | 57 48 49 4c 45 20 46 4e |nt size.|WHILE FN|
|00001d00| 20 42 55 54 54 4f 4e 27 | 73 65 74 20 74 68 65 20 | BUTTON'|set the |
|00001d10| 66 69 72 73 74 20 72 6f | 77 20 74 6f 20 61 20 74 |first ro|w to a t|
|00001d20| 65 6d 70 20 73 65 6c 65 | 63 74 69 6f 6e 20 72 65 |emp sele|ction re|
|00001d30| 63 74 61 6e 67 6c 65 0d | 73 65 74 72 65 63 74 28 |ctangle.|setrect(|
|00001d40| 74 62 6f 78 2c 4c 69 73 | 74 2e 4c 69 73 74 52 65 |tbox,Lis|t.ListRe|
|00001d50| 63 74 2e 6c 65 66 74 2b | 31 2c 4c 69 73 74 2e 4c |ct.left+|1,List.L|
|00001d60| 69 73 74 52 65 63 74 2e | 74 6f 70 2b 31 2c 4c 69 |istRect.|top+1,Li|
|00001d70| 73 74 2e 4c 69 73 74 52 | 65 63 74 2e 72 69 67 68 |st.ListR|ect.righ|
|00001d80| 74 2d 31 2c 4c 69 73 74 | 2e 4c 69 73 74 52 65 63 |t-1,List|.ListRec|
|00001d90| 74 2e 74 6f 70 2b 55 53 | 52 20 46 4f 4e 54 48 45 |t.top+US|R FONTHE|
|00001da0| 49 47 48 54 29 0d 78 20 | 3d 20 31 27 76 65 72 74 |IGHT).x |= 1'vert|
|00001db0| 69 63 6c 65 20 72 6f 77 | 20 63 6f 75 6e 74 65 72 |icle row| counter|
|00001dc0| 0d 64 72 61 77 4c 69 73 | 74 20 3d 20 5f 46 41 4c |.drawLis|t = _FAL|
|00001dd0| 53 45 27 73 65 74 20 74 | 6f 20 66 61 6c 73 65 20 |SE'set t|o false |
|00001de0| 66 6f 72 20 65 61 63 68 | 20 6c 6f 6f 70 20 62 65 |for each| loop be|
|00001df0| 67 69 6e 6e 69 6e 67 0d | 44 4f 0d 67 65 74 6d 6f |ginning.|DO.getmo|
|00001e00| 75 73 65 28 6d 50 74 29 | 27 67 65 74 20 74 68 65 |use(mPt)|'get the|
|00001e10| 20 6d 6f 75 73 65 20 6c | 6f 63 61 74 69 6f 6e 0d | mouse l|ocation.|
|00001e20| 4c 4f 4e 47 20 49 46 20 | 46 4e 20 50 54 49 4e 52 |LONG IF |FN PTINR|
|00001e30| 45 43 54 28 6d 50 74 2c | 74 62 6f 78 29 27 69 73 |ECT(mPt,|tbox)'is|
|00001e40| 20 69 74 20 69 6e 20 54 | 48 49 53 20 72 6f 77 3f | it in T|HIS row?|
|00001e50| 0d 6e 65 77 73 65 6c 20 | 3d 20 78 27 53 65 74 20 |.newsel |= x'Set |
|00001e60| 74 68 65 20 6e 65 77 20 | 73 65 6c 65 63 74 69 6f |the new |selectio|
|00001e70| 6e 20 74 6f 20 74 68 69 | 73 20 72 6f 77 0d 4c 4f |n to thi|s row.LO|
|00001e80| 4e 47 20 49 46 20 6f 6c | 64 73 65 6c 20 3c 3e 20 |NG IF ol|dsel <> |
|00001e90| 6e 65 77 73 65 6c 27 63 | 68 65 63 6b 20 74 6f 20 |newsel'c|heck to |
|00001ea0| 73 65 65 20 69 66 20 69 | 74 20 69 73 20 6e 6f 74 |see if i|t is not|
|00001eb0| 20 61 6c 72 65 61 64 79 | 20 73 65 6c 65 63 74 65 | already| selecte|
|00001ec0| 64 0d 4c 4f 4e 47 20 49 | 46 20 4c 69 73 74 2e 4c |d.LONG I|F List.L|
|00001ed0| 53 63 72 6f 6c 6c 42 74 | 6e 0d 4c 69 73 74 2e 6e |ScrollBt|n.List.n|
|00001ee0| 65 77 73 65 6c 65 63 74 | 20 3d 20 78 20 2b 20 42 |ewselect| = x + B|
|00001ef0| 55 54 54 4f 4e 28 4c 69 | 73 74 2e 4c 53 63 72 6f |UTTON(Li|st.LScro|
|00001f00| 6c 6c 42 74 6e 29 20 2d | 20 31 27 53 65 74 20 74 |llBtn) -| 1'Set t|
|00001f10| 68 65 20 6c 69 73 74 20 | 72 65 63 6f 72 64 20 73 |he list |record s|
|00001f20| 65 6c 65 63 74 65 64 20 | 72 6f 77 20 76 61 72 69 |elected |row vari|
|00001f30| 61 62 6c 65 0d 58 45 4c | 53 45 0d 4c 69 73 74 2e |able.XEL|SE.List.|
|00001f40| 6e 65 77 73 65 6c 65 63 | 74 20 3d 20 78 0d 45 4e |newselec|t = x.EN|
|00001f50| 44 20 49 46 0d 64 72 61 | 77 4c 69 73 74 20 3d 20 |D IF.dra|wList = |
|00001f60| 5f 54 52 55 45 0d 6f 6c | 64 73 65 6c 20 3d 20 78 |_TRUE.ol|dsel = x|
|00001f70| 27 6d 61 6b 65 20 74 68 | 69 73 20 74 68 65 20 4f |'make th|is the O|
|00001f80| 4c 44 20 73 65 6c 65 63 | 74 69 6f 6e 20 6e 6f 77 |LD selec|tion now|
|00001f90| 0d 45 4e 44 20 49 46 0d | 45 58 49 54 20 44 4f 27 |.END IF.|EXIT DO'|
|00001fa0| 45 78 69 74 20 74 68 65 | 20 6c 6f 6f 70 20 63 75 |Exit the| loop cu|
|00001fb0| 7a 20 77 65 20 66 6f 75 | 6e 64 20 74 68 65 20 73 |z we fou|nd the s|
|00001fc0| 65 6c 65 63 74 69 6f 6e | 0d 58 45 4c 53 45 0d 4f |election|.XELSE.O|
|00001fd0| 46 46 53 45 54 52 45 43 | 54 28 74 62 6f 78 2c 30 |FFSETREC|T(tbox,0|
|00001fe0| 2c 55 53 52 20 46 4f 4e | 54 48 45 49 47 48 54 29 |,USR FON|THEIGHT)|
|00001ff0| 27 6e 6f 74 20 74 68 65 | 20 73 65 6c 65 63 74 65 |'not the| selecte|
|00002000| 64 20 63 65 6c 6c 20 2d | 20 6f 66 66 73 65 74 20 |d cell -| offset |
|00002010| 61 6e 64 20 74 72 79 20 | 61 67 61 69 6e 0d 45 4e |and try |again.EN|
|00002020| 44 20 49 46 0d 4c 4f 4e | 47 20 49 46 20 4c 69 73 |D IF.LON|G IF Lis|
|00002030| 74 2e 4c 53 63 72 6f 6c | 6c 42 74 6e 20 3e 20 30 |t.LScrol|lBtn > 0|
|00002040| 0d 53 45 4c 45 43 54 0d | 43 41 53 45 20 6d 50 74 |.SELECT.|CASE mPt|
|00002050| 2e 76 25 20 3c 20 4c 69 | 73 74 2e 4c 69 73 74 52 |.v% < Li|st.ListR|
|00002060| 65 63 74 2e 74 6f 70 27 | 6d 6f 75 73 65 20 63 6c |ect.top'|mouse cl|
|00002070| 69 63 6b 65 64 20 69 6e | 20 6c 69 73 74 20 61 6e |icked in| list an|
|00002080| 64 20 64 72 61 67 67 65 | 64 20 61 62 6f 76 65 0d |d dragge|d above.|
|00002090| 4c 4f 4e 47 20 49 46 20 | 42 55 54 54 4f 4e 28 4c |LONG IF |BUTTON(L|
|000020a0| 69 73 74 2e 4c 53 63 72 | 6f 6c 6c 42 74 6e 29 20 |ist.LScr|ollBtn) |
|000020b0| 3e 20 31 20 6f 72 20 4c | 69 73 74 2e 6e 65 77 73 |> 1 or L|ist.news|
|000020c0| 65 6c 65 63 74 20 3e 20 | 31 27 6f 6e 6c 79 20 69 |elect > |1'only i|
|000020d0| 66 20 74 68 65 20 62 75 | 74 74 6f 6e 20 68 61 73 |f the bu|tton has|
|000020e0| 20 72 6f 6f 6d 20 74 6f | 20 6d 6f 76 65 20 75 70 | room to| move up|
|000020f0| 0d 4c 4f 4e 47 20 49 46 | 20 4c 69 73 74 2e 6e 65 |.LONG IF| List.ne|
|00002100| 77 73 65 6c 65 63 74 20 | 3c 20 42 55 54 54 4f 4e |wselect |< BUTTON|
|00002110| 28 4c 69 73 74 2e 4c 53 | 63 72 6f 6c 6c 42 74 6e |(List.LS|crollBtn|
|00002120| 29 20 2b 20 31 0d 73 63 | 72 6f 6c 6c 20 42 55 54 |) + 1.sc|roll BUT|
|00002130| 54 4f 4e 20 4c 69 73 74 | 2e 4c 53 63 72 6f 6c 6c |TON List|.LScroll|
|00002140| 42 74 6e 2c 42 55 54 54 | 4f 4e 28 4c 69 73 74 2e |Btn,BUTT|ON(List.|
|00002150| 4c 53 63 72 6f 6c 6c 42 | 74 6e 29 2d 31 27 73 74 |LScrollB|tn)-1'st|
|00002160| 65 70 20 74 68 65 20 62 | 75 74 74 6f 6e 20 6f 6e |ep the b|utton on|
|00002170| 65 20 70 6c 61 63 65 0d | 65 6e 64 20 69 66 0d 4c |e place.|end if.L|
|00002180| 4f 4e 47 20 69 46 20 4c | 69 73 74 2e 6e 65 77 73 |ONG iF L|ist.news|
|00002190| 65 6c 65 63 74 20 3e 20 | 31 27 6f 6e 6c 79 20 69 |elect > |1'only i|
|000021a0| 66 20 73 65 6c 65 63 74 | 69 6f 6e 20 69 73 20 6e |f select|ion is n|
|000021b0| 6f 74 20 74 68 65 20 74 | 6f 70 20 72 6f 77 0d 4c |ot the t|op row.L|
|000021c0| 69 73 74 2e 6e 65 77 73 | 65 6c 65 63 74 20 3d 20 |ist.news|elect = |
|000021d0| 4c 69 73 74 2e 6e 65 77 | 73 65 6c 65 63 74 20 2d |List.new|select -|
|000021e0| 31 0d 45 4e 44 20 49 46 | 27 73 65 74 20 73 65 6c |1.END IF|'set sel|
|000021f0| 65 63 74 69 6f 6e 20 75 | 70 20 6f 6e 65 20 70 6c |ection u|p one pl|
|00002200| 61 63 65 0d 64 72 61 77 | 4c 69 73 74 20 3d 20 5f |ace.draw|List = _|
|00002210| 54 52 55 45 0d 45 58 49 | 54 20 44 4f 27 45 78 69 |TRUE.EXI|T DO'Exi|
|00002220| 74 20 74 68 65 20 6c 6f | 6f 70 20 63 75 7a 20 77 |t the lo|op cuz w|
|00002230| 65 20 66 6f 75 6e 64 20 | 74 68 65 20 73 65 6c 65 |e found |the sele|
|00002240| 63 74 69 6f 6e 0d 45 4e | 44 20 49 46 0d 43 41 53 |ction.EN|D IF.CAS|
|00002250| 45 20 6d 50 74 2e 76 25 | 20 3e 20 4c 69 73 74 2e |E mPt.v%| > List.|
|00002260| 4c 69 73 74 52 65 63 74 | 2e 62 6f 74 74 6f 6d 27 |ListRect|.bottom'|
|00002270| 73 61 6d 65 20 61 73 20 | 61 62 6f 76 65 20 65 78 |same as |above ex|
|00002280| 63 65 70 74 20 77 65 20 | 64 72 61 67 20 64 6f 77 |cept we |drag dow|
|00002290| 6e 20 68 65 72 65 0d 4c | 4f 4e 47 20 49 46 20 4c |n here.L|ONG IF L|
|000022a0| 69 73 74 2e 6e 65 77 73 | 65 6c 65 63 74 20 3c 20 |ist.news|elect < |
|000022b0| 4c 69 73 74 2e 6e 75 6d | 52 65 63 6f 72 64 73 0d |List.num|Records.|
|000022c0| 4c 4f 4e 47 20 49 46 20 | 4c 69 73 74 2e 6e 65 77 |LONG IF |List.new|
|000022d0| 73 65 6c 65 63 74 20 3e | 20 42 55 54 54 4f 4e 28 |select >| BUTTON(|
|000022e0| 4c 69 73 74 2e 4c 53 63 | 72 6f 6c 6c 42 74 6e 29 |List.LSc|rollBtn)|
|000022f0| 20 2b 20 6e 75 6d 52 6f | 77 73 2d 32 27 73 63 72 | + numRo|ws-2'scr|
|00002300| 6f 6c 6c 20 73 65 6c 65 | 63 74 65 64 20 6c 69 6e |oll sele|cted lin|
|00002310| 65 20 75 6e 74 69 6c 20 | 69 74 20 72 65 61 63 68 |e until |it reach|
|00002320| 65 73 20 74 68 65 20 62 | 6f 74 74 6f 6d 0d 73 63 |es the b|ottom.sc|
|00002330| 72 6f 6c 6c 20 42 55 54 | 54 4f 4e 20 4c 69 73 74 |roll BUT|TON List|
|00002340| 2e 4c 53 63 72 6f 6c 6c | 42 74 6e 2c 42 55 54 54 |.LScroll|Btn,BUTT|
|00002350| 4f 4e 28 4c 69 73 74 2e | 4c 53 63 72 6f 6c 6c 42 |ON(List.|LScrollB|
|00002360| 74 6e 29 2b 31 27 74 68 | 65 6e 20 73 74 61 72 74 |tn)+1'th|en start|
|00002370| 20 6d 6f 76 69 6e 67 20 | 74 68 65 20 73 63 72 6f | moving |the scro|
|00002380| 6c 6c 20 62 61 72 0d 45 | 4e 44 20 49 46 0d 4c 4f |ll bar.E|ND IF.LO|
|00002390| 4e 47 20 49 46 20 4c 69 | 73 74 2e 6e 65 77 73 65 |NG IF Li|st.newse|
|000023a0| 6c 65 63 74 20 3c 20 4c | 69 73 74 2e 6e 75 6d 52 |lect < L|ist.numR|
|000023b0| 65 63 6f 72 64 73 27 69 | 66 20 6e 6f 74 20 61 74 |ecords'i|f not at|
|000023c0| 20 74 68 65 20 62 6f 74 | 74 6f 6d 20 69 6e 63 72 | the bot|tom incr|
|000023d0| 65 6d 65 6e 74 20 74 68 | 65 20 69 74 65 6d 20 74 |ement th|e item t|
|000023e0| 6f 20 73 68 6f 77 0d 4c | 69 73 74 2e 6e 65 77 73 |o show.L|ist.news|
|000023f0| 65 6c 65 63 74 20 3d 20 | 4c 69 73 74 2e 6e 65 77 |elect = |List.new|
|00002400| 73 65 6c 65 63 74 20 2b | 31 0d 45 4e 44 20 49 46 |select +|1.END IF|
|00002410| 0d 64 72 61 77 4c 69 73 | 74 20 3d 20 5f 54 52 55 |.drawLis|t = _TRU|
|00002420| 45 0d 45 58 49 54 20 44 | 4f 27 45 78 69 74 20 74 |E.EXIT D|O'Exit t|
|00002430| 68 65 20 6c 6f 6f 70 20 | 73 6f 20 77 65 20 63 61 |he loop |so we ca|
|00002440| 6e 20 64 72 61 77 0d 45 | 4e 44 20 49 46 0d 45 4e |n draw.E|ND IF.EN|
|00002450| 44 20 53 45 4c 45 43 54 | 0d 45 4e 44 20 49 46 0d |D SELECT|.END IF.|
|00002460| 69 6e 63 28 78 29 27 69 | 6e 63 72 65 6d 65 6e 74 |inc(x)'i|ncrement|
|00002470| 20 6f 75 72 20 72 6f 77 | 20 63 6f 75 6e 74 65 72 | our row| counter|
|00002480| 0d 55 4e 54 49 4c 20 78 | 20 3d 20 6e 75 6d 52 6f |.UNTIL x| = numRo|
|00002490| 77 73 20 2b 31 27 20 6f | 72 20 78 20 3d 20 4c 69 |ws +1' o|r x = Li|
|000024a0| 73 74 2e 6e 75 6d 52 65 | 63 6f 72 64 73 20 2b 20 |st.numRe|cords + |
|000024b0| 31 27 63 68 65 63 6b 20 | 61 6c 6c 20 72 6f 77 73 |1'check |all rows|
|000024c0| 20 73 6f 20 64 6f 20 69 | 74 20 61 67 61 69 6e 20 | so do i|t again |
|000024d0| 77 68 69 6c 65 20 6d 6f | 75 73 65 20 69 73 20 64 |while mo|use is d|
|000024e0| 6f 77 6e 0d 4c 4f 4e 47 | 20 49 46 20 64 72 61 77 |own.LONG| IF draw|
|000024f0| 4c 69 73 74 20 3d 20 5f | 54 52 55 45 0d 66 6e 20 |List = _|TRUE.fn |
|00002500| 44 72 61 77 4c 69 73 74 | 28 4c 69 73 74 29 0d 45 |DrawList|(List).E|
|00002510| 4e 44 20 49 46 0d 65 72 | 72 20 3d 20 46 4e 20 45 |ND IF.er|r = FN E|
|00002520| 76 65 6e 74 41 76 61 69 | 6c 28 30 2c 65 76 6e 74 |ventAvai|l(0,evnt|
|00002530| 29 27 61 6c 6c 6f 77 73 | 20 74 69 6d 65 20 66 6f |)'allows| time fo|
|00002540| 72 20 73 79 73 74 65 6d | 20 74 61 73 6b 73 20 61 |r system| tasks a|
|00002550| 6e 64 20 73 74 6f 70 20 | 74 68 65 20 73 70 69 6e |nd stop |the spin|
|00002560| 6e 69 6e 67 20 63 75 72 | 73 6f 72 20 69 6e 20 4f |ning cur|sor in O|
|00002570| 53 58 0d 57 45 4e 44 0d | 57 68 69 63 68 53 74 72 |SX.WEND.|WhichStr|
|00002580| 69 6e 67 20 3d 20 4c 69 | 73 74 2e 6e 65 77 73 65 |ing = Li|st.newse|
|00002590| 6c 65 63 74 27 20 2b 20 | 42 55 54 54 4f 4e 28 4c |lect' + |BUTTON(L|
|000025a0| 69 73 74 2e 4c 53 63 72 | 6f 6c 6c 42 74 6e 29 20 |ist.LScr|ollBtn) |
|000025b0| 2d 20 31 27 77 68 65 6e | 20 74 68 65 20 6d 6f 75 |- 1'when| the mou|
|000025c0| 73 65 20 69 73 20 75 70 | 20 74 68 69 73 20 69 73 |se is up| this is|
|000025d0| 20 6f 75 72 20 73 74 72 | 69 6e 67 0d 53 65 6c 65 | our str|ing.Sele|
|000025e0| 63 74 65 64 24 20 3d 53 | 54 52 23 28 4c 69 73 74 |cted$ =S|TR#(List|
|000025f0| 2e 53 54 52 65 73 4e 6f | 2c 57 68 69 63 68 53 74 |.STResNo|,WhichSt|
|00002600| 72 69 6e 67 29 0d 45 4e | 44 20 46 4e 20 3d 20 53 |ring).EN|D FN = S|
|00002610| 65 6c 65 63 74 65 64 24 | 27 72 65 74 75 72 6e 20 |elected$|'return |
|00002620| 69 74 20 74 6f 20 77 68 | 6f 65 76 65 72 20 63 61 |it to wh|oever ca|
|00002630| 6c 6c 65 64 0d 0d 0d 0d | 27 7e 12 49 6e 69 74 69 |lled....|'~.Initi|
|00002640| 61 6c 69 7a 65 20 69 6e | 64 69 76 75 61 6c 20 6c |alize in|divual l|
|00002650| 69 73 74 73 0d 0d 2f 2a | 0d 54 68 69 73 20 69 73 |ists../*|.This is|
|00002660| 20 74 68 65 20 70 6c 61 | 63 65 20 77 65 20 73 65 | the pla|ce we se|
|00002670| 74 20 75 70 20 74 68 65 | 20 6c 69 73 74 2e 20 20 |t up the| list.  |
|00002680| 59 6f 75 20 73 68 6f 75 | 6c 64 20 64 65 66 69 6e |You shou|ld defin|
|00002690| 65 20 6f 6e 65 20 67 6c | 6f 62 61 6c 20 6c 69 73 |e one gl|obal lis|
|000026a0| 74 20 72 65 63 6f 72 64 | 20 66 6f 72 20 65 61 63 |t record| for eac|
|000026b0| 68 0d 6c 69 73 74 20 79 | 6f 75 20 77 61 6e 74 20 |h.list y|ou want |
|000026c0| 74 6f 20 64 69 73 70 6c | 61 79 2e 20 20 4e 6f 74 |to displ|ay.  Not|
|000026d0| 65 20 74 68 61 74 20 79 | 6f 75 20 63 61 6e 20 69 |e that y|ou can i|
|000026e0| 6e 63 72 65 61 73 65 20 | 6f 72 20 64 65 63 72 65 |ncrease |or decre|
|000026f0| 61 73 65 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |ase the |number o|
|00002700| 66 20 63 6f 6c 75 6d 6e | 73 20 79 6f 75 0d 6e 65 |f column|s you.ne|
|00002710| 65 64 20 74 6f 20 64 69 | 73 70 6c 61 79 20 61 6e |ed to di|splay an|
|00002720| 64 20 74 68 65 6e 20 73 | 65 74 20 74 68 65 20 77 |d then s|et the w|
|00002730| 69 64 74 68 2c 20 66 6f | 6e 74 20 2c 20 73 69 7a |idth, fo|nt , siz|
|00002740| 65 2c 20 73 74 79 6c 65 | 20 6f 66 20 74 68 65 20 |e, style| of the |
|00002750| 6c 69 73 74 20 61 6e 64 | 20 74 68 65 20 69 6e 64 |list and| the ind|
|00002760| 69 76 69 64 75 61 6c 20 | 0d 63 6f 6c 6f 72 20 6f |ividual |.color o|
|00002770| 66 20 65 61 63 68 20 63 | 6f 6c 75 6d 6e 2e 20 20 |f each c|olumn.  |
|00002780| 54 68 69 73 20 65 78 61 | 6d 70 6c 65 20 75 73 65 |This exa|mple use|
|00002790| 73 20 53 54 52 23 20 72 | 65 73 6f 75 72 63 65 73 |s STR# r|esources|
|000027a0| 20 66 6f 72 20 74 68 65 | 20 64 61 74 61 20 62 75 | for the| data bu|
|000027b0| 74 20 69 74 20 63 6f 75 | 6c 64 20 6a 75 73 74 20 |t it cou|ld just |
|000027c0| 61 73 20 65 61 73 69 6c | 79 0d 62 65 20 61 6e 20 |as easil|y.be an |
|000027d0| 61 72 72 61 79 20 6f 66 | 20 61 6e 79 20 6b 69 6e |array of| any kin|
|000027e0| 64 2e 20 20 20 49 20 63 | 68 6f 73 65 20 74 68 65 |d.   I c|hose the|
|000027f0| 20 20 2d 20 20 63 68 61 | 72 61 63 74 65 72 20 66 |  -  cha|racter f|
|00002800| 6f 72 20 74 68 65 20 64 | 65 6c 69 6d 69 74 65 72 |or the d|elimiter|
|00002810| 20 62 65 74 77 65 65 6e | 20 63 6f 6c 75 6d 6e 73 | between| columns|
|00002820| 20 61 6e 64 20 74 68 65 | 20 5e 20 74 6f 0d 64 65 | and the| ^ to.de|
|00002830| 6e 6f 74 65 20 77 68 61 | 74 20 66 6f 6c 6c 6f 77 |note wha|t follow|
|00002840| 73 20 69 73 20 61 6e 20 | 69 63 6f 6e 20 66 61 6d |s is an |icon fam|
|00002850| 69 6c 79 20 72 65 73 6f | 75 72 63 65 2e 20 20 59 |ily reso|urce.  Y|
|00002860| 6f 75 20 6e 65 65 64 20 | 74 6f 20 61 64 64 20 74 |ou need |to add t|
|00002870| 68 65 73 65 20 72 65 73 | 6f 75 72 63 65 73 20 74 |hese res|ources t|
|00002880| 6f 20 79 6f 75 72 20 72 | 65 73 6f 75 72 63 65 0d |o your r|esource.|
|00002890| 66 69 6c 65 2e 20 20 4e | 6f 74 65 20 74 68 65 20 |file.  N|ote the |
|000028a0| 5b 5d 20 62 72 61 63 6b | 65 74 73 20 6e 65 63 65 |[] brack|ets nece|
|000028b0| 73 73 61 72 79 20 66 6f | 72 20 61 72 72 61 79 73 |ssary fo|r arrays|
|000028c0| 20 69 6e 20 72 65 63 6f | 72 64 73 2e 20 20 49 20 | in reco|rds.  I |
|000028d0| 75 73 65 20 61 20 55 73 | 65 72 20 49 74 65 6d 20 |use a Us|er Item |
|000028e0| 69 6e 20 50 47 20 66 6f | 72 20 74 68 69 73 20 64 |in PG fo|r this d|
|000028f0| 65 6d 6f 0d 74 6f 20 73 | 65 74 20 74 68 65 20 62 |emo.to s|et the b|
|00002900| 61 73 69 63 20 61 72 65 | 61 20 66 6f 72 20 74 68 |asic are|a for th|
|00002910| 65 20 6c 69 73 74 20 61 | 6e 64 20 74 68 65 6e 20 |e list a|nd then |
|00002920| 6d 6f 64 69 66 79 20 74 | 68 65 20 68 65 69 67 68 |modify t|he heigh|
|00002930| 74 20 64 65 70 65 6e 64 | 69 6e 67 20 6f 6e 20 74 |t depend|ing on t|
|00002940| 68 65 20 66 6f 6e 74 20 | 63 68 6f 73 65 6e 2e 20 |he font |chosen. |
|00002950| 20 49 20 61 6c 73 6f 0d | 6d 6f 64 69 66 79 20 74 | I also.|modify t|
|00002960| 68 65 20 6c 61 73 74 20 | 72 6f 77 20 74 6f 20 73 |he last |row to s|
|00002970| 65 74 20 69 74 20 74 6f | 20 74 68 65 20 66 75 6c |et it to| the ful|
|00002980| 6c 20 72 69 67 68 74 20 | 73 69 64 65 20 6f 66 20 |l right |side of |
|00002990| 74 68 65 20 6c 69 73 74 | 20 61 73 20 69 74 20 69 |the list| as it i|
|000029a0| 73 20 64 72 61 77 6e 2e | 20 20 49 66 20 79 6f 75 |s drawn.|  If you|
|000029b0| 20 63 61 6c 63 75 6c 61 | 74 65 64 0d 74 68 65 20 | calcula|ted.the |
|000029c0| 65 78 61 63 74 20 77 69 | 64 74 68 20 6e 65 65 64 |exact wi|dth need|
|000029d0| 65 64 20 66 6f 72 20 63 | 6f 6c 75 6d 6e 73 20 6f |ed for c|olumns o|
|000029e0| 72 20 64 69 64 20 6e 6f | 74 20 75 73 65 20 61 20 |r did no|t use a |
|000029f0| 50 47 20 6f 62 6a 65 63 | 74 20 79 6f 75 20 63 6f |PG objec|t you co|
|00002a00| 75 6c 64 20 65 6c 69 6d | 69 6e 61 74 65 20 74 68 |uld elim|inate th|
|00002a10| 61 74 20 73 74 65 70 2e | 0d 0d 54 68 69 73 20 73 |at step.|..This s|
|00002a20| 68 6f 77 73 20 68 6f 77 | 20 79 6f 75 20 63 6f 75 |hows how| you cou|
|00002a30| 6c 64 20 61 64 64 20 61 | 6c 6c 20 6b 69 6e 64 73 |ld add a|ll kinds|
|00002a40| 20 6f 66 20 74 68 69 6e | 67 73 20 74 6f 20 61 20 | of thin|gs to a |
|00002a50| 6c 69 73 74 20 64 69 73 | 70 6c 61 79 2e 20 20 4d |list dis|play.  M|
|00002a60| 6f 72 65 20 67 72 61 70 | 68 69 63 73 2c 20 62 61 |ore grap|hics, ba|
|00002a70| 63 6b 20 63 6f 6c 6f 72 | 73 20 66 6f 72 0d 65 61 |ck color|s for.ea|
|00002a80| 63 68 20 63 65 6c 6c 20 | 65 74 63 2e 0d 0d 2a 2f |ch cell |etc...*/|
|00002a90| 0d 0d 63 6c 65 61 72 20 | 4c 4f 43 41 4c 0d 44 49 |..clear |LOCAL.DI|
|00002aa0| 4d 20 61 73 20 69 6e 74 | 20 57 68 69 63 68 4c 69 |M as int| WhichLi|
|00002ab0| 73 74 2c 6e 75 6d 52 6f | 77 73 2c 68 74 2c 43 75 |st,numRo|ws,ht,Cu|
|00002ac0| 72 52 65 73 0d 44 49 4d | 20 40 72 2c 67 2c 62 0d |rRes.DIM| @r,g,b.|
|00002ad0| 44 49 4d 20 40 6c 6f 6f | 70 0d 44 49 4d 20 61 73 |DIM @loo|p.DIM as|
|00002ae0| 20 68 61 6e 64 6c 65 20 | 72 65 73 48 6e 64 6c 26 | handle |resHndl&|
|00002af0| 0d 64 69 6d 20 40 66 6f | 6e 74 4e 75 6d 0d 44 49 |.dim @fo|ntNum.DI|
|00002b00| 4d 20 66 6f 6e 74 4e 61 | 6d 65 20 61 73 20 73 74 |M fontNa|me as st|
|00002b10| 72 32 35 35 0d 27 7e 27 | 32 0d 4c 4f 43 41 4c 20 |r255.'~'|2.LOCAL |
|00002b20| 46 4e 20 49 6e 69 74 48 | 65 6c 70 54 6f 70 69 63 |FN InitH|elpTopic|
|00002b30| 4c 69 73 74 0d 27 7e 27 | 32 0d 46 4e 20 70 47 67 |List.'~'|2.FN pGg|
|00002b40| 65 74 4f 62 6a 28 5f 4d | 79 43 61 6c 65 6e 64 61 |etObj(_M|yCalenda|
|00002b50| 72 48 65 6c 70 32 57 6e | 64 2c 5f 48 65 6c 70 54 |rHelp2Wn|d,_HelpT|
|00002b60| 6f 70 69 63 4c 69 73 74 | 29 27 67 65 74 20 6f 75 |opicList|)'get ou|
|00002b70| 72 20 75 73 65 72 20 69 | 74 65 6d 20 66 6f 72 20 |r user i|tem for |
|00002b80| 74 68 65 20 6c 69 73 74 | 0d 48 65 6c 70 4c 69 73 |the list|.HelpLis|
|00002b90| 74 2e 57 68 69 63 68 53 | 74 72 69 6e 67 20 3d 20 |t.WhichS|tring = |
|00002ba0| 31 0d 48 65 6c 70 4c 69 | 73 74 2e 6e 65 77 73 65 |1.HelpLi|st.newse|
|00002bb0| 6c 65 63 74 20 20 20 3d | 20 31 0d 48 65 6c 70 4c |lect   =| 1.HelpL|
|00002bc0| 69 73 74 2e 4c 53 63 72 | 6f 6c 6c 42 74 6e 20 20 |ist.LScr|ollBtn  |
|00002bd0| 3d 20 5f 73 63 72 6c 42 | 61 72 31 57 43 6c 61 73 |= _scrlB|ar1WClas|
|00002be0| 73 33 39 0d 48 65 6c 70 | 4c 69 73 74 2e 6e 63 6f |s39.Help|List.nco|
|00002bf0| 6c 73 20 20 20 20 20 20 | 20 3d 20 31 27 74 68 65 |ls      | = 1'the|
|00002c00| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 6f 6c 75 6d | number |of colum|
|00002c10| 6e 73 0d 48 65 6c 70 4c | 69 73 74 2e 53 54 52 65 |ns.HelpL|ist.STRe|
|00002c20| 73 4e 6f 20 20 20 20 20 | 3d 20 5f 48 65 6c 70 4c |sNo     |= _HelpL|
|00002c30| 69 73 74 53 54 52 27 74 | 68 65 20 72 65 73 6f 75 |istSTR't|he resou|
|00002c40| 72 63 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 74 68 |rce numb|er of th|
|00002c50| 65 20 53 54 52 23 0d 48 | 65 6c 70 4c 69 73 74 2e |e STR#.H|elpList.|
|00002c60| 4c 69 73 74 52 65 63 74 | 20 20 20 20 3d 20 40 67 |ListRect|    = @g|
|00002c70| 4f 62 6a 54 27 62 61 73 | 69 63 20 73 69 7a 65 20 |ObjT'bas|ic size |
|00002c80| 6f 66 20 74 68 65 20 6c | 69 73 74 20 72 65 63 74 |of the l|ist rect|
|00002c90| 61 6e 67 6c 65 0d 48 65 | 6c 70 4c 69 73 74 2e 63 |angle.He|lpList.c|
|00002ca0| 6f 6c 77 64 25 5b 31 5d | 20 20 20 3d 20 32 30 30 |olwd%[1]|   = 200|
|00002cb0| 27 77 69 64 74 68 20 6f | 66 20 65 61 63 68 20 63 |'width o|f each c|
|00002cc0| 6f 6c 75 6d 6e 0d 48 65 | 6c 70 4c 69 73 74 2e 74 |olumn.He|lpList.t|
|00002cd0| 78 74 61 6c 69 67 6e 5b | 31 5d 20 3d 20 30 27 61 |xtalign[|1] = 0'a|
|00002ce0| 6c 69 67 6e 6d 65 6e 74 | 20 6f 66 20 69 6e 64 69 |lignment| of indi|
|00002cf0| 76 69 64 75 61 6c 20 63 | 6f 6c 75 6d 6e 73 0d 27 |vidual c|olumns.'|
|00002d00| 47 65 74 46 4e 75 6d 28 | 22 41 72 69 61 6c 22 2c |GetFNum(|"Arial",|
|00002d10| 66 6f 6e 74 4e 75 6d 29 | 0d 48 65 6c 70 4c 69 73 |fontNum)|.HelpLis|
|00002d20| 74 2e 66 6e 74 20 20 20 | 20 20 20 20 20 20 3d 20 |t.fnt   |      = |
|00002d30| 33 27 74 68 65 20 66 6f | 6e 74 20 66 6f 72 20 74 |3'the fo|nt for t|
|00002d40| 68 69 73 20 6c 69 73 74 | 0d 48 65 6c 70 4c 69 73 |his list|.HelpLis|
|00002d50| 74 2e 73 7a 65 20 20 20 | 20 20 20 20 20 20 3d 20 |t.sze   |      = |
|00002d60| 31 32 27 74 68 65 20 73 | 69 7a 65 20 66 6f 72 20 |12'the s|ize for |
|00002d70| 74 68 69 73 20 6c 69 73 | 74 0d 48 65 6c 70 4c 69 |this lis|t.HelpLi|
|00002d80| 73 74 2e 73 74 79 6c 20 | 20 20 20 20 20 20 20 3d |st.styl |       =|
|00002d90| 20 30 0d 48 65 6c 70 4c | 69 73 74 2e 64 65 6c 69 | 0.HelpL|ist.deli|
|00002da0| 6d 24 20 20 20 20 20 20 | 3d 20 22 2d 22 27 64 65 |m$      |= "-"'de|
|00002db0| 6c 69 6d 69 74 65 72 20 | 62 65 74 77 65 65 6e 20 |limiter |between |
|00002dc0| 63 65 6c 6c 20 64 61 74 | 61 0d 74 65 78 74 20 48 |cell dat|a.text H|
|00002dd0| 65 6c 70 4c 69 73 74 2e | 66 6e 74 20 2c 48 65 6c |elpList.|fnt ,Hel|
|00002de0| 70 4c 69 73 74 2e 73 7a | 65 2c 48 65 6c 70 4c 69 |pList.sz|e,HelpLi|
|00002df0| 73 74 2e 73 74 79 6c 0d | 72 65 73 48 6e 64 6c 26 |st.styl.|resHndl&|
|00002e00| 20 3d 20 46 4e 20 47 45 | 54 52 45 53 4f 55 52 43 | = FN GE|TRESOURC|
|00002e10| 45 28 5f 22 53 54 52 23 | 22 2c 5f 48 65 6c 70 4c |E(_"STR#|",_HelpL|
|00002e20| 69 73 74 53 54 52 29 27 | 47 65 74 20 61 20 68 61 |istSTR)'|Get a ha|
|00002e30| 6e 64 6c 65 20 74 6f 20 | 74 68 65 20 53 54 52 23 |ndle to |the STR#|
|00002e40| 20 72 65 73 6f 75 72 63 | 65 20 77 65 20 61 72 65 | resourc|e we are|
|00002e50| 20 75 73 69 6e 67 0d 4c | 4f 4e 47 20 49 46 20 72 | using.L|ONG IF r|
|00002e60| 65 73 48 6e 64 6c 26 0d | 48 65 6c 70 4c 69 73 74 |esHndl&.|HelpList|
|00002e70| 2e 6e 75 6d 52 65 63 6f | 72 64 73 20 3d 20 7b 5b |.numReco|rds = {[|
|00002e80| 72 65 73 48 6e 64 6c 26 | 5d 7d 27 63 6f 75 6e 74 |resHndl&|]}'count|
|00002e90| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 65 | the num|ber of e|
|00002ea0| 6c 65 6d 65 6e 74 73 0d | 58 45 4c 53 45 0d 48 65 |lements.|XELSE.He|
|00002eb0| 6c 70 4c 69 73 74 2e 6e | 75 6d 52 65 63 6f 72 64 |lpList.n|umRecord|
|00002ec0| 73 20 3d 20 30 27 70 72 | 6f 62 6c 65 6d 20 2d 20 |s = 0'pr|oblem - |
|00002ed0| 6e 6f 20 68 61 6e 64 6c | 65 20 2d 20 6e 6f 20 65 |no handl|e - no e|
|00002ee0| 6c 65 6d 65 6e 74 73 0d | 45 4e 44 20 49 46 0d 27 |lements.|END IF.'|
|00002ef0| 7e 27 32 0d 27 6a 75 73 | 74 20 61 64 6a 75 73 74 |~'2.'jus|t adjust|
|00002f00| 20 74 68 65 20 6f 76 65 | 72 61 6c 6c 20 72 65 63 | the ove|rall rec|
|00002f10| 74 61 6e 67 6c 65 20 69 | 66 20 74 68 65 20 6f 6e |tangle i|f the on|
|00002f20| 65 20 64 72 61 77 6e 20 | 69 6e 20 50 47 20 69 73 |e drawn |in PG is|
|00002f30| 20 6e 6f 74 20 65 78 61 | 63 74 6c 79 20 61 20 6d | not exa|ctly a m|
|00002f40| 75 6c 74 69 70 6c 65 20 | 6f 66 20 6e 20 72 6f 77 |ultiple |of n row|
|00002f50| 73 0d 27 7e 27 32 0d 6e | 75 6d 52 6f 77 73 20 3d |s.'~'2.n|umRows =|
|00002f60| 20 28 48 65 6c 70 4c 69 | 73 74 2e 4c 69 73 74 52 | (HelpLi|st.ListR|
|00002f70| 65 63 74 2e 62 6f 74 74 | 6f 6d 2d 48 65 6c 70 4c |ect.bott|om-HelpL|
|00002f80| 69 73 74 2e 4c 69 73 74 | 52 65 63 74 2e 74 6f 70 |ist.List|Rect.top|
|00002f90| 29 5c 28 55 53 52 20 46 | 4f 4e 54 48 45 49 47 48 |)\(USR F|ONTHEIGH|
|00002fa0| 54 29 0d 68 74 20 3d 20 | 55 53 52 20 46 4f 4e 54 |T).ht = |USR FONT|
|00002fb0| 48 45 49 47 48 54 20 2a | 20 6e 75 6d 52 6f 77 73 |HEIGHT *| numRows|
|00002fc0| 0d 48 65 6c 70 4c 69 73 | 74 2e 4c 69 73 74 52 65 |.HelpLis|t.ListRe|
|00002fd0| 63 74 2e 62 6f 74 74 6f | 6d 20 3d 20 48 65 6c 70 |ct.botto|m = Help|
|00002fe0| 4c 69 73 74 2e 4c 69 73 | 74 52 65 63 74 2e 74 6f |List.Lis|tRect.to|
|00002ff0| 70 20 2b 20 68 74 20 2b | 32 0d 45 4e 44 20 46 4e |p + ht +|2.END FN|
|00003000| 0d 0d 0d 43 4c 45 41 52 | 20 4c 4f 43 41 4c 0d 44 |...CLEAR| LOCAL.D|
|00003010| 49 4d 20 43 75 72 52 65 | 73 0d 27 7e 27 32 0d 4c |IM CurRe|s.'~'2.L|
|00003020| 4f 43 41 4c 20 46 4e 20 | 43 6c 69 63 6b 4e 6f 74 |OCAL FN |ClickNot|
|00003030| 65 53 63 72 6f 6c 6c 42 | 74 6e 27 57 65 20 63 6c |eScrollB|tn'We cl|
|00003040| 69 63 6b 65 64 20 69 6e | 20 74 68 65 20 6c 69 73 |icked in| the lis|
|00003050| 74 0d 27 7e 27 32 0d 57 | 49 4e 44 4f 57 20 67 57 |t.'~'2.W|INDOW gW|
|00003060| 68 69 63 68 43 6c 61 73 | 73 0d 53 45 4c 45 43 54 |hichClas|s.SELECT|
|00003070| 20 67 57 68 69 63 68 43 | 6c 61 73 73 0d 63 61 73 | gWhichC|lass.cas|
|00003080| 65 20 5f 4d 79 43 61 6c | 65 6e 64 61 72 48 65 6c |e _MyCal|endarHel|
|00003090| 70 32 57 6e 64 0d 4c 4f | 4e 47 20 49 46 20 67 57 |p2Wnd.LO|NG IF gW|
|000030a0| 68 69 63 68 42 75 74 74 | 6f 6e 20 3d 20 5f 73 63 |hichButt|on = _sc|
|000030b0| 72 6c 42 61 72 31 57 43 | 6c 61 73 73 33 39 0d 66 |rlBar1WC|lass39.f|
|000030c0| 6e 20 44 72 61 77 4c 69 | 73 74 28 48 65 6c 70 4c |n DrawLi|st(HelpL|
|000030d0| 69 73 74 29 0d 45 4e 44 | 20 49 46 0d 65 6e 64 20 |ist).END| IF.end |
|000030e0| 73 65 6c 65 63 74 0d 45 | 4e 44 20 46 4e 0d 0d 0d |select.E|ND FN...|
|000030f0| 63 6c 65 61 72 20 6c 6f | 63 61 6c 0d 44 49 4d 20 |clear lo|cal.DIM |
|00003100| 61 73 20 69 6e 74 20 20 | 6e 75 6d 52 6f 77 73 0d |as int  |numRows.|
|00003110| 27 7e 27 32 0d 4c 6f 63 | 61 6c 20 46 6e 20 56 69 |'~'2.Loc|al Fn Vi|
|00003120| 65 77 41 4c 69 73 74 49 | 74 65 6d 28 4c 69 73 74 |ewAListI|tem(List|
|00003130| 20 41 53 20 5e 4c 69 73 | 74 52 65 63 6f 72 64 2c | AS ^Lis|tRecord,|
|00003140| 73 65 6c 65 63 74 65 64 | 2c 69 74 65 6d 29 27 76 |selected|,item)'v|
|00003150| 69 65 77 20 73 65 6c 65 | 63 74 65 64 20 6c 69 6e |iew sele|cted lin|
|00003160| 65 20 6f 72 20 61 6e 79 | 20 6c 69 6e 65 20 70 61 |e or any| line pa|
|00003170| 73 73 65 64 20 69 6e 20 | 69 74 65 6d 0d 27 7e 27 |ssed in |item.'~'|
|00003180| 32 0d 4c 4f 4e 47 20 49 | 46 20 73 65 6c 65 63 74 |2.LONG I|F select|
|00003190| 65 64 20 3c 3e 20 5f 66 | 61 6c 73 65 27 76 69 65 |ed <> _f|alse'vie|
|000031a0| 77 20 74 68 65 20 63 75 | 72 72 65 6e 74 6c 79 20 |w the cu|rrently |
|000031b0| 73 65 6c 65 63 74 65 64 | 20 6c 69 6e 65 0d 73 63 |selected| line.sc|
|000031c0| 72 6f 6c 6c 20 42 55 54 | 54 4f 4e 20 4c 69 73 74 |roll BUT|TON List|
|000031d0| 2e 4c 53 63 72 6f 6c 6c | 42 74 6e 2c 4c 69 73 74 |.LScroll|Btn,List|
|000031e0| 2e 6e 65 77 73 65 6c 65 | 63 74 27 20 2b 20 6e 75 |.newsele|ct' + nu|
|000031f0| 6d 52 6f 77 73 0d 78 65 | 6c 73 65 0d 4c 4f 4e 47 |mRows.xe|lse.LONG|
|00003200| 20 49 46 20 69 74 65 6d | 20 3c 3e 20 30 27 6f 72 | IF item| <> 0'or|
|00003210| 20 76 69 65 77 20 61 20 | 6c 69 6e 65 20 70 61 73 | view a |line pas|
|00003220| 73 65 64 20 69 6e 20 74 | 68 65 20 76 61 72 20 69 |sed in t|he var i|
|00003230| 74 65 6d 0d 4c 69 73 74 | 2e 6e 65 77 73 65 6c 65 |tem.List|.newsele|
|00003240| 63 74 20 3d 20 69 74 65 | 6d 27 61 6e 64 20 73 65 |ct = ite|m'and se|
|00003250| 6c 65 63 74 65 64 20 69 | 73 20 73 65 74 20 74 6f |lected i|s set to|
|00003260| 20 5f 66 61 6c 73 65 0d | 53 43 52 4f 4c 4c 20 42 | _false.|SCROLL B|
|00003270| 55 54 54 4f 4e 20 4c 69 | 73 74 2e 4c 53 63 72 6f |UTTON Li|st.LScro|
|00003280| 6c 6c 42 74 6e 2c 69 74 | 65 6d 0d 45 4e 44 20 49 |llBtn,it|em.END I|
|00003290| 46 0d 45 4e 44 20 49 46 | 0d 66 6e 20 44 72 61 77 |F.END IF|.fn Draw|
|000032a0| 4c 69 73 74 28 4c 69 73 | 74 29 0d 45 4e 44 20 46 |List(Lis|t).END F|
|000032b0| 4e 0d 0d 0d 0d 27 7e 27 | 3a 0d 0d 22 45 6e 64 4f |N....'~'|:.."EndO|
|000032c0| 66 4c 69 73 74 22 0d 0d | 44 49 4d 20 54 68 65 52 |fList"..|DIM TheR|
|000032d0| 65 73 70 6f 6e 73 65 2c | 54 65 6d 70 24 2c 54 78 |esponse,|Temp$,Tx|
|000032e0| 52 65 73 4e 6f 2c 74 65 | 48 6e 64 6c 26 2c 43 75 |ResNo,te|Hndl&,Cu|
|000032f0| 72 52 65 73 2c 72 65 73 | 72 65 66 0d 64 69 6d 20 |rRes,res|ref.dim |
|00003300| 61 73 20 68 61 6e 64 6c | 65 20 72 65 73 48 6e 64 |as handl|e resHnd|
|00003310| 6c 26 0d 44 69 6d 20 73 | 6c 6f 63 2c 44 61 24 2c |l&.Dim s|loc,Da$,|
|00003320| 4e 6f 74 65 24 2c 72 65 | 73 49 44 25 0d 64 69 6d |Note$,re|sID%.dim|
|00003330| 20 74 20 61 73 20 72 65 | 63 74 0d 64 69 6d 20 64 | t as re|ct.dim d|
|00003340| 61 73 68 6c 6f 63 2c 73 | 6c 61 73 68 6c 6f 63 2c |ashloc,s|lashloc,|
|00003350| 44 75 72 2c 73 6c 61 73 | 68 6c 6f 63 32 0d 0d 0d |Dur,slas|hloc2...|
|00003360| 53 45 4c 45 43 54 20 67 | 4c 6f 6e 67 41 63 74 69 |SELECT g|LongActi|
|00003370| 6f 6e 26 0d 27 7e 27 32 | 0d 43 41 53 45 20 5f 6d |on&.'~'2|.CASE _m|
|00003380| 53 74 61 72 74 0d 46 4e | 20 49 6e 69 74 48 65 6c |Start.FN| InitHel|
|00003390| 70 54 6f 70 69 63 4c 69 | 73 74 0d 27 7e 27 32 0d |pTopicLi|st.'~'2.|
|000033a0| 43 41 53 45 20 5f 6f 55 | 73 65 72 55 70 64 61 74 |CASE _oU|serUpdat|
|000033b0| 65 0d 4c 4f 4e 47 20 49 | 46 20 67 4f 62 6a 55 73 |e.LONG I|F gObjUs|
|000033c0| 65 72 54 70 26 20 3d 20 | 5f 22 4c 69 73 74 22 0d |erTp& = |_"List".|
|000033d0| 53 45 4c 45 43 54 20 67 | 57 68 69 63 68 57 69 6e |SELECT g|WhichWin|
|000033e0| 64 6f 77 0d 43 41 53 45 | 20 5f 4d 79 43 61 6c 65 |dow.CASE| _MyCale|
|000033f0| 6e 64 61 72 48 65 6c 70 | 32 57 6e 64 0d 46 4e 20 |ndarHelp|2Wnd.FN |
|00003400| 44 72 61 77 4c 69 73 74 | 28 48 65 6c 70 4c 69 73 |DrawList|(HelpLis|
|00003410| 74 29 0d 45 4e 44 20 53 | 45 4c 45 43 54 0d 45 4e |t).END S|ELECT.EN|
|00003420| 44 20 49 46 0d 0d 27 7e | 27 32 0d 0d 27 7e 27 32 |D IF..'~|'2..'~'2|
|00003430| 0d 43 41 53 45 20 5f 62 | 74 6e 4c 6f 6e 67 0d 46 |.CASE _b|tnLong.F|
|00003440| 4e 20 43 6c 69 63 6b 4e | 6f 74 65 53 63 72 6f 6c |N ClickN|oteScrol|
|00003450| 6c 42 74 6e 0d 0d 65 6e | 64 20 73 65 6c 65 63 74 |lBtn..en|d select|
|00003460| 0d 0d 27 7e 27 34 0d 49 | 46 20 30 20 74 68 65 6e |..'~'4.I|F 0 then|
|00003470| 20 72 65 74 75 72 6e 0d | 0d 0d 0d 0d 0d 00 00 00 | return.|........|
|00003480| 00 00 01 00 00 00 01 12 | 00 00 00 12 00 00 00 61 |........|.......a|
|00003490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003580| 00 00 00 08 00 3d 00 25 | 03 71 03 76 00 00 00 02 |.....=.%|.q.v....|
|00003590| 01 f4 00 00 01 00 00 00 | 01 12 00 00 00 12 00 00 |........|........|
|000035a0| 00 61 07 e1 a1 08 00 2e | 00 00 00 1c 00 46 00 01 |.a......|.....F..|
|000035b0| 77 50 4f 53 00 00 00 12 | 52 45 4d 3e 00 00 00 1e |wPOS....|REM>....|
|000035c0| 03 e8 00 00 00 00 00 00 | 00 00 00 00 03 e8 00 10 |........|........|
|000035d0| 00 00 00 0c 07 e1 87 68 | 0f 57 69 6e 64 6f 77 20 |.......h|.Window |
|000035e0| 50 6f 73 69 74 69 6f 6e | 0a 52 45 4d 20 49 6e 64 |Position|.REM Ind|
|000035f0| 65 6e 74 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ent.....|........|
+--------+-------------------------+-------------------------+--------+--------+