/ CyberMycha 2004 August / CyberMycha 08-2004 (Poland).bin / Spiderman2 / MainApp.cab / GUI.u / GUIComponent_GUIComboBox_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 5d 44 2f 2f 20 3d 3d 3d |........|]D// ===|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 0d 0a 2f 2f 09 43 6c | 61 73 73 3a 20 47 55 49 |=..//.Cl|ass: GUI|
|00000060| 2e 47 55 49 43 6f 6d 62 | 6f 42 6f 78 0d 0a 2f 2f |.GUIComb|oBox..//|
|00000070| 0d 0a 2f 2f 20 20 41 20 | 43 6f 6d 62 69 6e 61 74 |..//  A |Combinat|
|00000080| 69 6f 6e 20 6f 66 20 61 | 6e 20 45 64 69 74 42 6f |ion of a|n EditBo|
|00000090| 78 2c 20 61 20 44 6f 77 | 6e 20 41 72 72 6f 77 20 |x, a Dow|n Arrow |
|000000a0| 42 75 74 74 6f 6e 20 61 | 6e 64 20 61 20 4c 69 73 |Button a|nd a Lis|
|000000b0| 74 42 6f 78 0d 0a 2f 2f | 0d 0a 2f 2f 20 20 57 72 |tBox..//|..//  Wr|
|000000c0| 69 74 74 65 6e 20 62 79 | 20 4d 69 63 68 65 6c 20 |itten by| Michel |
|000000d0| 43 6f 6d 65 61 75 0d 0a | 2f 2f 20 20 28 63 29 20 |Comeau..|//  (c) |
|000000e0| 32 30 30 32 2c 20 45 70 | 69 63 20 47 61 6d 65 73 |2002, Ep|ic Games|
|000000f0| 2c 20 49 6e 63 2e 20 20 | 41 6c 6c 20 52 69 67 68 |, Inc.  |All Righ|
|00000100| 74 73 20 52 65 73 65 72 | 76 65 64 0d 0a 2f 2f 20 |ts Reser|ved..// |
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000150| 3d 3d 3d 3d 0d 0a 0d 0a | 63 6c 61 73 73 20 47 55 |====....|class GU|
|00000160| 49 43 6f 6d 62 6f 42 6f | 78 20 65 78 74 65 6e 64 |IComboBo|x extend|
|00000170| 73 20 47 55 49 4d 75 6c | 74 69 43 6f 6d 70 6f 6e |s GUIMul|tiCompon|
|00000180| 65 6e 74 0d 0a 09 4e 61 | 74 69 76 65 3b 0d 0a 0d |ent...Na|tive;...|
|00000190| 0a 2f 2f 20 28 63 70 70 | 74 65 78 74 29 0d 0a 2f |.// (cpp|text)../|
|000001a0| 2f 20 28 63 70 70 74 65 | 78 74 29 0d 0a 2f 2f 20 |/ (cppte|xt)..// |
|000001b0| 28 63 70 70 74 65 78 74 | 29 0d 0a 2f 2f 20 28 63 |(cpptext|)..// (c|
|000001c0| 70 70 74 65 78 74 29 0d | 0a 2f 2f 20 28 63 70 70 |pptext).|.// (cpp|
|000001d0| 74 65 78 74 29 0d 0a 0d | 0a 76 61 72 20 41 75 74 |text)...|.var Aut|
|000001e0| 6f 6d 61 74 65 64 20 09 | 47 55 49 45 64 69 74 42 |omated .|GUIEditB|
|000001f0| 6f 78 20 09 09 45 64 69 | 74 3b 0d 0a 76 61 72 20 |ox ..Edi|t;..var |
|00000200| 41 75 74 6f 6d 61 74 65 | 64 20 09 47 55 49 43 6f |Automate|d .GUICo|
|00000210| 6d 62 6f 42 75 74 74 6f | 6e 20 09 4d 79 53 68 6f |mboButto|n .MySho|
|00000220| 77 4c 69 73 74 42 74 6e | 3b 0d 0a 76 61 72 20 41 |wListBtn|;..var A|
|00000230| 75 74 6f 6d 61 74 65 64 | 20 09 47 55 49 4c 69 73 |utomated| .GUILis|
|00000240| 74 42 6f 78 20 09 09 4d | 79 4c 69 73 74 42 6f 78 |tBox ..M|yListBox|
|00000250| 3b 0d 0a 76 61 72 09 09 | 09 09 47 55 49 4c 69 73 |;..var..|..GUILis|
|00000260| 74 09 09 09 4c 69 73 74 | 3b 0d 0a 0d 0a 0d 0a 76 |t...List|;......v|
|00000270| 61 72 28 4d 65 6e 75 29 | 09 69 6e 74 09 09 09 4d |ar(Menu)|.int...M|
|00000280| 61 78 56 69 73 69 62 6c | 65 49 74 65 6d 73 3b 0d |axVisibl|eItems;.|
|00000290| 0a 76 61 72 28 4d 65 6e | 75 29 09 62 6f 6f 6c 09 |.var(Men|u).bool.|
|000002a0| 09 62 4c 69 73 74 49 74 | 65 6d 73 4f 6e 6c 79 3b |.bListIt|emsOnly;|
|000002b0| 0d 0a 76 61 72 28 4d 65 | 6e 75 29 09 62 6f 6f 6c |..var(Me|nu).bool|
|000002c0| 09 09 62 53 68 6f 77 4c | 69 73 74 4f 6e 46 6f 63 |..bShowL|istOnFoc|
|000002d0| 75 73 3b 0d 0a 76 61 72 | 28 4d 65 6e 75 29 09 62 |us;..var|(Menu).b|
|000002e0| 6f 6f 6c 09 09 62 52 65 | 61 64 4f 6e 6c 79 3b 0d |ool..bRe|adOnly;.|
|000002f0| 0a 0d 0a 76 61 72 09 09 | 69 6e 74 09 09 49 6e 64 |...var..|int..Ind|
|00000300| 65 78 3b 0d 0a 76 61 72 | 09 09 73 74 72 69 6e 67 |ex;..var|..string|
|00000310| 09 54 65 78 74 53 74 72 | 3b 0d 0a 0d 0a 0d 0a 66 |.TextStr|;......f|
|00000320| 75 6e 63 74 69 6f 6e 20 | 49 6e 69 74 43 6f 6d 70 |unction |InitComp|
|00000330| 6f 6e 65 6e 74 28 47 55 | 49 43 6f 6e 74 72 6f 6c |onent(GU|IControl|
|00000340| 6c 65 72 20 4d 79 43 6f | 6e 74 72 6f 6c 6c 65 72 |ler MyCo|ntroller|
|00000350| 2c 20 47 55 49 43 6f 6d | 70 6f 6e 65 6e 74 20 4d |, GUICom|ponent M|
|00000360| 79 4f 77 6e 65 72 29 0d | 0a 7b 0d 0a 09 53 75 70 |yOwner).|.{...Sup|
|00000370| 65 72 2e 49 6e 69 74 63 | 6f 6d 70 6f 6e 65 6e 74 |er.Initc|omponent|
|00000380| 28 4d 79 43 6f 6e 74 72 | 6f 6c 6c 65 72 2c 20 4d |(MyContr|oller, M|
|00000390| 79 4f 77 6e 65 72 29 3b | 0d 0a 0d 0a 09 4c 69 73 |yOwner);|.....Lis|
|000003a0| 74 20 09 09 09 20 20 3d | 20 4d 79 4c 69 73 74 42 |t ...  =| MyListB|
|000003b0| 6f 78 2e 4c 69 73 74 3b | 0d 0a 09 4c 69 73 74 2e |ox.List;|...List.|
|000003c0| 4f 6e 43 68 61 6e 67 65 | 20 09 20 20 3d 20 49 74 |OnChange| .  = It|
|000003d0| 65 6d 43 68 61 6e 67 65 | 64 3b 0d 0a 09 4c 69 73 |emChange|d;...Lis|
|000003e0| 74 2e 62 48 6f 74 54 72 | 61 63 6b 09 20 20 3d 20 |t.bHotTr|ack.  = |
|000003f0| 74 72 75 65 3b 0d 0a 09 | 4c 69 73 74 2e 4f 6e 43 |true;...|List.OnC|
|00000400| 6c 69 63 6b 53 6f 75 6e | 64 20 3d 20 43 53 5f 43 |lickSoun|d = CS_C|
|00000410| 6c 69 63 6b 3b 0d 0a 09 | 4c 69 73 74 2e 4f 6e 43 |lick;...|List.OnC|
|00000420| 4c 69 63 6b 20 09 20 20 | 3d 20 49 6e 74 65 72 6e |Lick .  |= Intern|
|00000430| 61 6c 4c 69 73 74 43 6c | 69 63 6b 3b 0d 0a 20 20 |alListCl|ick;..  |
|00000440| 20 20 4c 69 73 74 2e 4f | 6e 49 6e 76 61 6c 69 64 |  List.O|nInvalid|
|00000450| 61 74 65 20 3d 20 49 6e | 74 65 72 6e 61 6c 4f 6e |ate = In|ternalOn|
|00000460| 49 6e 76 61 6c 69 64 61 | 74 65 3b 0d 0a 0d 0a 20 |Invalida|te;.... |
|00000470| 20 20 20 4d 79 4c 69 73 | 74 42 6f 78 2e 48 69 64 |   MyLis|tBox.Hid|
|00000480| 65 28 29 3b 0d 0a 0d 0a | 09 45 64 69 74 2e 4f 6e |e();....|.Edit.On|
|00000490| 43 68 61 6e 67 65 20 09 | 09 09 3d 20 54 65 78 74 |Change .|..= Text|
|000004a0| 43 68 61 6e 67 65 64 3b | 0d 0a 09 45 64 69 74 2e |Changed;|...Edit.|
|000004b0| 4f 6e 4d 6f 75 73 65 50 | 72 65 73 73 65 64 20 09 |OnMouseP|ressed .|
|000004c0| 3d 20 49 6e 74 65 72 6e | 61 6c 45 64 69 74 50 72 |= Intern|alEditPr|
|000004d0| 65 73 73 65 64 3b 0d 0a | 09 45 64 69 74 2e 49 4e |essed;..|.Edit.IN|
|000004e0| 49 4f 70 74 69 6f 6e 20 | 20 09 09 3d 20 49 4e 49 |IOption | ..= INI|
|000004f0| 4f 70 74 69 6f 6e 3b 0d | 0a 09 45 64 69 74 2e 49 |Option;.|..Edit.I|
|00000500| 4e 49 44 65 66 61 75 6c | 74 20 09 09 3d 20 49 4e |NIDefaul|t ..= IN|
|00000510| 49 44 65 66 61 75 6c 74 | 3b 0d 0a 09 45 64 69 74 |IDefault|;...Edit|
|00000520| 2e 62 52 65 61 64 4f 6e | 6c 79 20 20 09 09 3d 20 |.bReadOn|ly  ..= |
|00000530| 62 52 65 61 64 4f 6e 6c | 79 3b 0d 0a 0d 0a 09 4c |bReadOnl|y;.....L|
|00000540| 69 73 74 2e 4f 6e 44 65 | 41 63 74 69 76 61 74 65 |ist.OnDe|Activate|
|00000550| 20 3d 20 49 6e 74 65 72 | 6e 61 6c 4c 69 73 74 44 | = Inter|nalListD|
|00000560| 65 41 63 74 69 76 61 74 | 65 3b 0d 0a 0d 0a 09 4d |eActivat|e;.....M|
|00000570| 79 53 68 6f 77 4c 69 73 | 74 42 74 6e 2e 4f 6e 43 |yShowLis|tBtn.OnC|
|00000580| 6c 69 63 6b 20 3d 20 53 | 68 6f 77 4c 69 73 74 42 |lick = S|howListB|
|00000590| 6f 78 3b 0d 0a 09 4d 79 | 53 68 6f 77 4c 69 73 74 |ox;...My|ShowList|
|000005a0| 42 74 6e 2e 46 6f 63 75 | 73 49 6e 73 74 65 61 64 |Btn.Focu|sInstead|
|000005b0| 20 3d 20 4c 69 73 74 3b | 0d 0a 0d 0a 20 20 20 20 | = List;|....    |
|000005c0| 53 65 74 48 69 6e 74 28 | 48 69 6e 74 29 3b 0d 0a |SetHint(|Hint);..|
|000005d0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|000005e0| 53 65 74 48 69 6e 74 28 | 73 74 72 69 6e 67 20 4e |SetHint(|string N|
|000005f0| 65 77 48 69 6e 74 29 0d | 0a 7b 0d 0a 09 6c 6f 63 |ewHint).|.{...loc|
|00000600| 61 6c 20 69 6e 74 20 69 | 3b 0d 0a 09 53 75 70 65 |al int i|;...Supe|
|00000610| 72 2e 53 65 74 48 69 6e | 74 28 4e 65 77 48 69 6e |r.SetHin|t(NewHin|
|00000620| 74 29 3b 0d 0a 0d 0a 20 | 20 20 20 66 6f 72 20 28 |t);.... |   for (|
|00000630| 69 3d 30 3b 69 3c 43 6f | 6e 74 72 6f 6c 73 2e 4c |i=0;i<Co|ntrols.L|
|00000640| 65 6e 67 74 68 3b 69 2b | 2b 29 0d 0a 20 20 20 20 |ength;i+|+)..    |
|00000650| 09 43 6f 6e 74 72 6f 6c | 73 5b 69 5d 2e 53 65 74 |.Control|s[i].Set|
|00000660| 48 69 6e 74 28 4e 65 77 | 48 69 6e 74 29 3b 0d 0a |Hint(New|Hint);..|
|00000670| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 49 6e |}....fun|ction In|
|00000680| 74 65 72 6e 61 6c 4c 69 | 73 74 44 65 41 63 74 69 |ternalLi|stDeActi|
|00000690| 76 61 74 65 28 29 0d 0a | 7b 0d 0a 09 69 66 20 28 |vate()..|{...if (|
|000006a0| 21 45 64 69 74 2e 62 50 | 65 6e 64 69 6e 67 46 6f |!Edit.bP|endingFo|
|000006b0| 63 75 73 29 0d 0a 09 09 | 4d 79 4c 69 73 74 42 6f |cus)....|MyListBo|
|000006c0| 78 2e 48 69 64 65 28 29 | 3b 0d 0a 7d 0d 0a 0d 0a |x.Hide()|;..}....|
|000006d0| 66 75 6e 63 74 69 6f 6e | 20 49 6e 74 65 72 6e 61 |function| Interna|
|000006e0| 6c 4f 6e 49 6e 76 61 6c | 69 64 61 74 65 28 47 55 |lOnInval|idate(GU|
|000006f0| 49 43 6f 6d 70 6f 6e 65 | 6e 74 20 57 68 6f 29 0d |ICompone|nt Who).|
|00000700| 0a 7b 0d 0a 09 69 66 20 | 28 20 57 68 6f 20 21 3d |.{...if |( Who !=|
|00000710| 20 43 6f 6e 74 72 6f 6c | 6c 65 72 2e 41 63 74 69 | Control|ler.Acti|
|00000720| 76 65 50 61 67 65 20 29 | 0d 0a 20 20 20 20 09 72 |vePage )|..    .r|
|00000730| 65 74 75 72 6e 3b 0d 0a | 0d 0a 09 4d 79 4c 69 73 |eturn;..|...MyLis|
|00000740| 74 42 6f 78 2e 48 69 64 | 65 28 29 3b 0d 0a 20 20 |tBox.Hid|e();..  |
|00000750| 20 20 45 64 69 74 2e 53 | 65 74 46 6f 63 75 73 28 |  Edit.S|etFocus(|
|00000760| 4e 6f 6e 65 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |None);..|}....fun|
|00000770| 63 74 69 6f 6e 20 49 6e | 74 65 72 6e 61 6c 45 64 |ction In|ternalEd|
|00000780| 69 74 50 72 65 73 73 65 | 64 28 47 55 49 43 6f 6d |itPresse|d(GUICom|
|00000790| 70 6f 6e 65 6e 74 20 53 | 65 6e 64 65 72 2c 20 62 |ponent S|ender, b|
|000007a0| 6f 6f 6c 20 62 52 65 70 | 65 61 74 29 0d 0a 7b 0d |ool bRep|eat)..{.|
|000007b0| 0a 09 69 66 20 28 20 28 | 45 64 69 74 2e 62 52 65 |..if ( (|Edit.bRe|
|000007c0| 61 64 4f 6e 6c 79 29 20 | 26 26 20 28 21 62 52 65 |adOnly) |&& (!bRe|
|000007d0| 70 65 61 74 29 20 29 0d | 0a 09 7b 0d 0a 09 09 43 |peat) ).|..{....C|
|000007e0| 6f 6e 74 72 6f 6c 6c 65 | 72 2e 62 49 67 6e 6f 72 |ontrolle|r.bIgnor|
|000007f0| 65 4e 65 78 74 52 65 6c | 65 61 73 65 20 3d 20 74 |eNextRel|ease = t|
|00000800| 72 75 65 3b 0d 0a 0d 0a | 09 09 69 66 20 28 20 21 |rue;....|..if ( !|
|00000810| 4d 79 4c 69 73 74 42 6f | 78 2e 62 56 69 73 69 62 |MyListBo|x.bVisib|
|00000820| 6c 65 20 29 0d 0a 09 09 | 7b 0d 0a 09 09 09 53 68 |le )....|{.....Sh|
|00000830| 6f 77 4c 69 73 74 42 6f | 78 28 53 65 6c 66 29 3b |owListBo|x(Self);|
|00000840| 0d 0a 09 09 7d 0d 0a 09 | 09 65 6c 73 65 0d 0a 09 |....}...|.else...|
|00000850| 09 09 48 69 64 65 4c 69 | 73 74 42 6f 78 28 29 3b |..HideLi|stBox();|
|00000860| 0d 0a 09 7d 0d 0a 0d 0a | 09 72 65 74 75 72 6e 3b |...}....|.return;|
|00000870| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000880| 62 6f 6f 6c 20 49 6e 74 | 65 72 6e 61 6c 4c 69 73 |bool Int|ernalLis|
|00000890| 74 43 6c 69 63 6b 28 47 | 55 49 43 6f 6d 70 6f 6e |tClick(G|UICompon|
|000008a0| 65 6e 74 20 53 65 6e 64 | 65 72 29 0d 0a 7b 0d 0a |ent Send|er)..{..|
|000008b0| 09 4c 69 73 74 2e 49 6e | 74 65 72 6e 61 6c 4f 6e |.List.In|ternalOn|
|000008c0| 43 6c 69 63 6b 28 53 65 | 6e 64 65 72 29 3b 0d 0a |Click(Se|nder);..|
|000008d0| 09 45 64 69 74 2e 53 65 | 74 46 6f 63 75 73 28 6e |.Edit.Se|tFocus(n|
|000008e0| 6f 6e 65 29 3b 0d 0a 09 | 72 65 74 75 72 6e 20 74 |one);...|return t|
|000008f0| 72 75 65 3b 0d 0a 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |rue;....|}....fun|
|00000900| 63 74 69 6f 6e 20 48 69 | 64 65 4c 69 73 74 42 6f |ction Hi|deListBo|
|00000910| 78 28 29 0d 0a 7b 0d 0a | 09 4d 79 4c 69 73 74 42 |x()..{..|.MyListB|
|00000920| 6f 78 2e 48 69 64 65 28 | 29 3b 0d 0a 7d 0d 0a 0d |ox.Hide(|);..}...|
|00000930| 0a 65 76 65 6e 74 20 53 | 65 74 56 69 73 69 62 69 |.event S|etVisibi|
|00000940| 6c 69 74 79 28 62 6f 6f | 6c 20 62 49 73 56 69 73 |lity(boo|l bIsVis|
|00000950| 69 62 6c 65 29 0d 0a 7b | 0d 0a 09 53 75 70 65 72 |ible)..{|...Super|
|00000960| 2e 53 65 74 56 69 73 69 | 62 69 6c 69 74 79 28 62 |.SetVisi|bility(b|
|00000970| 49 73 56 69 73 69 62 6c | 65 29 3b 0d 0a 0d 0a 09 |IsVisibl|e);.....|
|00000980| 45 64 69 74 2e 53 65 74 | 56 69 73 69 62 69 6c 69 |Edit.Set|Visibili|
|00000990| 74 79 28 62 49 73 56 69 | 73 69 62 6c 65 29 3b 0d |ty(bIsVi|sible);.|
|000009a0| 0a 09 4d 79 53 68 6f 77 | 4c 69 73 74 42 74 6e 2e |..MyShow|ListBtn.|
|000009b0| 53 65 74 56 69 73 69 62 | 69 6c 69 74 79 28 62 49 |SetVisib|ility(bI|
|000009c0| 73 56 69 73 69 62 6c 65 | 29 3b 0d 0a 09 4d 79 4c |sVisible|);...MyL|
|000009d0| 69 73 74 42 6f 78 2e 53 | 65 74 56 69 73 69 62 69 |istBox.S|etVisibi|
|000009e0| 6c 69 74 79 28 66 61 6c | 73 65 29 3b 0d 0a 7d 0d |lity(fal|se);..}.|
|000009f0| 0a 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 62 6f |.....fun|ction bo|
|00000a00| 6f 6c 20 53 68 6f 77 4c | 69 73 74 42 6f 78 28 47 |ol ShowL|istBox(G|
|00000a10| 55 49 43 6f 6d 70 6f 6e | 65 6e 74 20 53 65 6e 64 |UICompon|ent Send|
|00000a20| 65 72 29 0d 0a 7b 0d 0a | 0d 0a 09 4d 79 4c 69 73 |er)..{..|...MyLis|
|00000a30| 74 42 6f 78 2e 53 65 74 | 56 69 73 69 62 69 6c 69 |tBox.Set|Visibili|
|00000a40| 74 79 28 21 4d 79 4c 69 | 73 74 42 6f 78 2e 62 56 |ty(!MyLi|stBox.bV|
|00000a50| 69 73 69 62 6c 65 29 3b | 0d 0a 0d 0a 09 69 66 20 |isible);|.....if |
|00000a60| 28 4d 79 4c 69 73 74 42 | 6f 78 2e 62 56 69 73 69 |(MyListB|ox.bVisi|
|00000a70| 62 6c 65 29 0d 0a 09 09 | 4c 69 73 74 2e 53 65 74 |ble)....|List.Set|
|00000a80| 46 6f 63 75 73 28 6e 6f | 6e 65 29 3b 0d 0a 0d 0a |Focus(no|ne);....|
|00000a90| 09 72 65 74 75 72 6e 20 | 74 72 75 65 3b 0d 0a 7d |.return |true;..}|
|00000aa0| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 49 74 65 |....func|tion Ite|
|00000ab0| 6d 43 68 61 6e 67 65 64 | 28 47 55 49 43 6f 6d 70 |mChanged|(GUIComp|
|00000ac0| 6f 6e 65 6e 74 20 53 65 | 6e 64 65 72 29 0d 0a 7b |onent Se|nder)..{|
|00000ad0| 0d 0a 09 45 64 69 74 2e | 53 65 74 54 65 78 74 28 |...Edit.|SetText(|
|00000ae0| 4c 69 73 74 2e 53 65 6c | 65 63 74 65 64 54 65 78 |List.Sel|ectedTex|
|00000af0| 74 28 29 29 3b 0d 0a 09 | 49 6e 64 65 78 20 3d 20 |t());...|Index = |
|00000b00| 4c 69 73 74 2e 49 6e 64 | 65 78 3b 0d 0a 7d 0d 0a |List.Ind|ex;..}..|
|00000b10| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 54 65 78 74 43 |..functi|on TextC|
|00000b20| 68 61 6e 67 65 64 28 47 | 55 49 43 6f 6d 70 6f 6e |hanged(G|UICompon|
|00000b30| 65 6e 74 20 53 65 6e 64 | 65 72 29 0d 0a 7b 0d 0a |ent Send|er)..{..|
|00000b40| 09 54 65 78 74 53 74 72 | 20 3d 20 45 64 69 74 2e |.TextStr| = Edit.|
|00000b50| 54 65 78 74 53 74 72 3b | 0d 0a 09 4f 6e 43 68 61 |TextStr;|...OnCha|
|00000b60| 6e 67 65 28 73 65 6c 66 | 29 3b 0d 0a 7d 0d 0a 0d |nge(self|);..}...|
|00000b70| 0a 66 75 6e 63 74 69 6f | 6e 20 53 65 74 54 65 78 |.functio|n SetTex|
|00000b80| 74 28 73 74 72 69 6e 67 | 20 4e 65 77 54 65 78 74 |t(string| NewText|
|00000b90| 29 0d 0a 7b 0d 0a 09 45 | 64 69 74 2e 53 65 74 54 |)..{...E|dit.SetT|
|00000ba0| 65 78 74 28 4e 65 77 54 | 65 78 74 29 3b 0d 0a 09 |ext(NewT|ext);...|
|00000bb0| 4c 69 73 74 2e 46 69 6e | 64 28 4e 65 77 54 65 78 |List.Fin|d(NewTex|
|00000bc0| 74 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |t);..}..|..functi|
|00000bd0| 6f 6e 20 73 74 72 69 6e | 67 20 47 65 74 28 29 0d |on strin|g Get().|
|00000be0| 0a 7b 0d 0a 09 6c 6f 63 | 61 6c 20 73 74 72 69 6e |.{...loc|al strin|
|00000bf0| 67 20 74 65 6d 70 3b 0d | 0a 0d 0a 09 74 65 6d 70 |g temp;.|....temp|
|00000c00| 20 3d 20 4c 69 73 74 2e | 47 65 74 28 29 3b 0d 0a | = List.|Get();..|
|00000c10| 0d 0a 09 69 66 20 28 20 | 74 65 6d 70 7e 3d 45 64 |...if ( |temp~=Ed|
|00000c20| 69 74 2e 47 65 74 54 65 | 78 74 28 29 20 29 0d 0a |it.GetTe|xt() )..|
|00000c30| 09 09 72 65 74 75 72 6e | 20 45 64 69 74 2e 47 65 |..return| Edit.Ge|
|00000c40| 74 54 65 78 74 28 29 3b | 0d 0a 09 65 6c 73 65 0d |tText();|...else.|
|00000c50| 0a 09 09 72 65 74 75 72 | 6e 20 74 65 6d 70 3b 0d |...retur|n temp;.|
|00000c60| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 73 |.}....fu|nction s|
|00000c70| 74 72 69 6e 67 20 47 65 | 74 54 65 78 74 28 29 20 |tring Ge|tText() |
|00000c80| 7b 0d 0a 09 72 65 74 75 | 72 6e 20 73 65 6c 66 2e |{...retu|rn self.|
|00000c90| 47 65 74 28 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |Get();..|}....fun|
|00000ca0| 63 74 69 6f 6e 20 6f 62 | 6a 65 63 74 20 47 65 74 |ction ob|ject Get|
|00000cb0| 4f 62 6a 65 63 74 28 29 | 0d 0a 7b 0d 0a 09 6c 6f |Object()|..{...lo|
|00000cc0| 63 61 6c 20 73 74 72 69 | 6e 67 20 74 65 6d 70 3b |cal stri|ng temp;|
|00000cd0| 0d 0a 0d 0a 09 74 65 6d | 70 20 3d 20 4c 69 73 74 |.....tem|p = List|
|00000ce0| 2e 47 65 74 28 29 3b 0d | 0a 0d 0a 09 69 66 20 28 |.Get();.|....if (|
|00000cf0| 20 74 65 6d 70 7e 3d 45 | 64 69 74 2e 47 65 74 54 | temp~=E|dit.GetT|
|00000d00| 65 78 74 28 29 20 29 0d | 0a 09 09 72 65 74 75 72 |ext() ).|...retur|
|00000d10| 6e 20 4c 69 73 74 2e 47 | 65 74 4f 62 6a 65 63 74 |n List.G|etObject|
|00000d20| 28 29 3b 0d 0a 09 65 6c | 73 65 0d 0a 09 09 72 65 |();...el|se....re|
|00000d30| 74 75 72 6e 20 6e 6f 6e | 65 3b 0d 0a 7d 0d 0a 0d |turn non|e;..}...|
|00000d40| 0a 66 75 6e 63 74 69 6f | 6e 20 73 74 72 69 6e 67 |.functio|n string|
|00000d50| 20 47 65 74 45 78 74 72 | 61 28 29 0d 0a 7b 0d 0a | GetExtr|a()..{..|
|00000d60| 09 6c 6f 63 61 6c 20 73 | 74 72 69 6e 67 20 74 65 |.local s|tring te|
|00000d70| 6d 70 3b 0d 0a 0d 0a 09 | 74 65 6d 70 20 3d 20 4c |mp;.....|temp = L|
|00000d80| 69 73 74 2e 47 65 74 28 | 29 3b 0d 0a 0d 0a 09 69 |ist.Get(|);.....i|
|00000d90| 66 20 28 20 74 65 6d 70 | 7e 3d 45 64 69 74 2e 47 |f ( temp|~=Edit.G|
|00000da0| 65 74 54 65 78 74 28 29 | 20 29 0d 0a 09 09 72 65 |etText()| )....re|
|00000db0| 74 75 72 6e 20 4c 69 73 | 74 2e 47 65 74 45 78 74 |turn Lis|t.GetExt|
|00000dc0| 72 61 28 29 3b 0d 0a 09 | 65 6c 73 65 0d 0a 09 09 |ra();...|else....|
|00000dd0| 72 65 74 75 72 6e 20 22 | 22 3b 0d 0a 7d 0d 0a 0d |return "|";..}...|
|00000de0| 0a 66 75 6e 63 74 69 6f | 6e 20 53 65 74 49 6e 64 |.functio|n SetInd|
|00000df0| 65 78 28 69 6e 74 20 49 | 29 0d 0a 7b 0d 0a 09 4c |ex(int I|)..{...L|
|00000e00| 69 73 74 2e 53 65 74 49 | 6e 64 65 78 28 69 29 3b |ist.SetI|ndex(i);|
|00000e10| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000e20| 69 6e 74 20 47 65 74 49 | 6e 64 65 78 28 29 0d 0a |int GetI|ndex()..|
|00000e30| 7b 0d 0a 09 72 65 74 75 | 72 6e 20 4c 69 73 74 2e |{...retu|rn List.|
|00000e40| 49 6e 64 65 78 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |Index;..|}....fun|
|00000e50| 63 74 69 6f 6e 20 41 64 | 64 49 74 65 6d 28 73 74 |ction Ad|dItem(st|
|00000e60| 72 69 6e 67 20 49 74 65 | 6d 2c 20 4f 70 74 69 6f |ring Ite|m, Optio|
|00000e70| 6e 61 6c 20 6f 62 6a 65 | 63 74 20 45 78 74 72 61 |nal obje|ct Extra|
|00000e80| 2c 20 4f 70 74 69 6f 6e | 61 6c 20 73 74 72 69 6e |, Option|al strin|
|00000e90| 67 20 53 74 72 29 0d 0a | 7b 0d 0a 09 4c 69 73 74 |g Str)..|{...List|
|00000ea0| 2e 41 64 64 28 49 74 65 | 6d 2c 45 78 74 72 61 2c |.Add(Ite|m,Extra,|
|00000eb0| 53 74 72 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |Str);..}|....func|
|00000ec0| 74 69 6f 6e 20 52 65 6d | 6f 76 65 49 74 65 6d 28 |tion Rem|oveItem(|
|00000ed0| 69 6e 74 20 69 74 65 6d | 2c 20 6f 70 74 69 6f 6e |int item|, option|
|00000ee0| 61 6c 20 69 6e 74 20 43 | 6f 75 6e 74 29 0d 0a 7b |al int C|ount)..{|
|00000ef0| 0d 0a 09 4c 69 73 74 2e | 52 65 6d 6f 76 65 28 69 |...List.|Remove(i|
|00000f00| 74 65 6d 2c 20 43 6f 75 | 6e 74 29 3b 0d 0a 7d 0d |tem, Cou|nt);..}.|
|00000f10| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 73 74 72 69 |...funct|ion stri|
|00000f20| 6e 67 20 47 65 74 49 74 | 65 6d 28 69 6e 74 20 69 |ng GetIt|em(int i|
|00000f30| 6e 64 65 78 29 0d 0a 7b | 0d 0a 09 4c 69 73 74 2e |ndex)..{|...List.|
|00000f40| 53 65 74 49 6e 64 65 78 | 28 49 6e 64 65 78 29 3b |SetIndex|(Index);|
|00000f50| 0d 0a 09 72 65 74 75 72 | 6e 20 4c 69 73 74 2e 47 |...retur|n List.G|
|00000f60| 65 74 28 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |et();..}|....func|
|00000f70| 74 69 6f 6e 20 6f 62 6a | 65 63 74 20 47 65 74 49 |tion obj|ect GetI|
|00000f80| 74 65 6d 4f 62 6a 65 63 | 74 28 69 6e 74 20 69 6e |temObjec|t(int in|
|00000f90| 64 65 78 29 0d 0a 7b 0d | 0a 09 4c 69 73 74 2e 53 |dex)..{.|..List.S|
|00000fa0| 65 74 49 6e 64 65 78 28 | 49 6e 64 65 78 29 3b 0d |etIndex(|Index);.|
|00000fb0| 0a 09 72 65 74 75 72 6e | 20 4c 69 73 74 2e 47 65 |..return| List.Ge|
|00000fc0| 74 4f 62 6a 65 63 74 28 | 29 3b 0d 0a 7d 0d 0a 0d |tObject(|);..}...|
|00000fd0| 0a 66 75 6e 63 74 69 6f | 6e 20 73 74 72 69 6e 67 |.functio|n string|
|00000fe0| 20 66 69 6e 64 28 73 74 | 72 69 6e 67 20 54 65 78 | find(st|ring Tex|
|00000ff0| 74 2c 20 6f 70 74 69 6f | 6e 61 6c 20 62 6f 6f 6c |t, optio|nal bool|
|00001000| 20 62 45 78 61 63 74 29 | 0d 0a 7b 0d 0a 09 72 65 | bExact)|..{...re|
|00001010| 74 75 72 6e 20 4c 69 73 | 74 2e 46 69 6e 64 28 54 |turn Lis|t.Find(T|
|00001020| 65 78 74 2c 62 45 78 61 | 63 74 29 3b 0d 0a 7d 0d |ext,bExa|ct);..}.|
|00001030| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 69 6e 74 20 |...funct|ion int |
|00001040| 49 74 65 6d 43 6f 75 6e | 74 28 29 0d 0a 7b 0d 0a |ItemCoun|t()..{..|
|00001050| 09 72 65 74 75 72 6e 20 | 4c 69 73 74 2e 49 74 65 |.return |List.Ite|
|00001060| 6d 43 6f 75 6e 74 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |mCount;.|.}....fu|
|00001070| 6e 63 74 69 6f 6e 20 52 | 65 61 64 4f 6e 6c 79 28 |nction R|eadOnly(|
|00001080| 62 6f 6f 6c 20 62 29 0d | 0a 7b 0d 0a 09 45 64 69 |bool b).|.{...Edi|
|00001090| 74 2e 62 52 65 61 64 4f | 6e 6c 79 20 3d 20 62 3b |t.bReadO|nly = b;|
|000010a0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|000010b0| 49 6e 74 65 72 6e 61 6c | 4f 6e 4d 6f 75 73 65 50 |Internal|OnMouseP|
|000010c0| 72 65 73 73 65 64 28 47 | 55 49 43 6f 6d 70 6f 6e |ressed(G|UICompon|
|000010d0| 65 6e 74 20 53 65 6e 64 | 65 72 2c 20 62 6f 6f 6c |ent Send|er, bool|
|000010e0| 20 62 52 65 70 65 61 74 | 29 0d 0a 7b 0d 0a 09 69 | bRepeat|)..{...i|
|000010f0| 66 20 28 21 62 52 65 70 | 65 61 74 29 0d 0a 20 20 |f (!bRep|eat)..  |
|00001100| 20 20 7b 0d 0a 09 09 4d | 79 4c 69 73 74 42 6f 78 |  {....M|yListBox|
|00001110| 2e 53 68 6f 77 28 29 3b | 0d 0a 20 20 20 20 7d 0d |.Show();|..    }.|
|00001120| 0a 7d 0d 0a 0d 0a 00    |                         |.}..... |        |
+--------+-------------------------+-------------------------+--------+--------+