/ Chip 2000 June / Chip_06_2000.iso / games / WheelofTime / WoTDemo.exe / System / UWindow.u / UWindowWindow_UWindowComboControl_ScriptText.TextBuffer

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 47 40 63 6c 61 73 73 20 |........|G@class |
|00000010| 55 57 69 6e 64 6f 77 43 | 6f 6d 62 6f 43 6f 6e 74 |UWindowC|omboCont|
|00000020| 72 6f 6c 20 65 78 74 65 | 6e 64 73 20 55 57 69 6e |rol exte|nds UWin|
|00000030| 64 6f 77 44 69 61 6c 6f | 67 43 6f 6e 74 72 6f 6c |dowDialo|gControl|
|00000040| 3b 0d 0a 0d 0a 76 61 72 | 09 66 6c 6f 61 74 09 09 |;....var|.float..|
|00000050| 09 09 45 64 69 74 42 6f | 78 57 69 64 74 68 3b 0d |..EditBo|xWidth;.|
|00000060| 0a 76 61 72 20 66 6c 6f | 61 74 09 09 09 09 45 64 |.var flo|at....Ed|
|00000070| 69 74 41 72 65 61 44 72 | 61 77 58 2c 20 45 64 69 |itAreaDr|awX, Edi|
|00000080| 74 41 72 65 61 44 72 61 | 77 59 3b 0d 0a 0d 0a 76 |tAreaDra|wY;....v|
|00000090| 61 72 20 55 57 69 6e 64 | 6f 77 45 64 69 74 42 6f |ar UWind|owEditBo|
|000000a0| 78 09 09 45 64 69 74 42 | 6f 78 3b 0d 0a 76 61 72 |x..EditB|ox;..var|
|000000b0| 20 55 57 69 6e 64 6f 77 | 43 6f 6d 62 6f 42 75 74 | UWindow|ComboBut|
|000000c0| 74 6f 6e 09 42 75 74 74 | 6f 6e 3b 0d 0a 76 61 72 |ton.Butt|on;..var|
|000000d0| 20 55 57 69 6e 64 6f 77 | 43 6f 6d 62 6f 4c 65 66 | UWindow|ComboLef|
|000000e0| 74 42 75 74 74 6f 6e 20 | 4c 65 66 74 42 75 74 74 |tButton |LeftButt|
|000000f0| 6f 6e 3b 0d 0a 76 61 72 | 20 55 57 69 6e 64 6f 77 |on;..var| UWindow|
|00000100| 43 6f 6d 62 6f 52 69 67 | 68 74 42 75 74 74 6f 6e |ComboRig|htButton|
|00000110| 20 52 69 67 68 74 42 75 | 74 74 6f 6e 3b 0d 0a 0d | RightBu|tton;...|
|00000120| 0a 76 61 72 20 63 6c 61 | 73 73 3c 55 57 69 6e 64 |.var cla|ss<UWind|
|00000130| 6f 77 43 6f 6d 62 6f 4c | 69 73 74 3e 09 4c 69 73 |owComboL|ist>.Lis|
|00000140| 74 43 6c 61 73 73 3b 0d | 0a 0d 0a 76 61 72 20 55 |tClass;.|...var U|
|00000150| 57 69 6e 64 6f 77 43 6f | 6d 62 6f 4c 69 73 74 09 |WindowCo|mboList.|
|00000160| 4c 69 73 74 3b 0d 0a 0d | 0a 76 61 72 20 62 6f 6f |List;...|.var boo|
|00000170| 6c 09 09 09 09 62 4c 69 | 73 74 56 69 73 69 62 6c |l....bLi|stVisibl|
|00000180| 65 3b 0d 0a 76 61 72 20 | 62 6f 6f 6c 09 09 09 09 |e;..var |bool....|
|00000190| 62 43 61 6e 45 64 69 74 | 3b 0d 0a 76 61 72 20 62 |bCanEdit|;..var b|
|000001a0| 6f 6f 6c 09 09 09 09 62 | 42 75 74 74 6f 6e 73 3b |ool....b|Buttons;|
|000001b0| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 43 72 65 |....func|tion Cre|
|000001c0| 61 74 65 64 28 29 0d 0a | 7b 0d 0a 09 53 75 70 65 |ated()..|{...Supe|
|000001d0| 72 2e 43 72 65 61 74 65 | 64 28 29 3b 0d 0a 09 0d |r.Create|d();....|
|000001e0| 0a 09 45 64 69 74 42 6f | 78 20 3d 20 55 57 69 6e |..EditBo|x = UWin|
|000001f0| 64 6f 77 45 64 69 74 42 | 6f 78 28 43 72 65 61 74 |dowEditB|ox(Creat|
|00000200| 65 57 69 6e 64 6f 77 28 | 63 6c 61 73 73 27 55 57 |eWindow(|class'UW|
|00000210| 69 6e 64 6f 77 45 64 69 | 74 42 6f 78 27 2c 20 30 |indowEdi|tBox', 0|
|00000220| 2c 20 30 2c 20 57 69 6e | 57 69 64 74 68 2d 31 32 |, 0, Win|Width-12|
|00000230| 2c 20 57 69 6e 48 65 69 | 67 68 74 29 29 3b 20 0d |, WinHei|ght)); .|
|00000240| 0a 09 45 64 69 74 42 6f | 78 2e 4e 6f 74 69 66 79 |..EditBo|x.Notify|
|00000250| 4f 77 6e 65 72 20 3d 20 | 53 65 6c 66 3b 0d 0a 09 |Owner = |Self;...|
|00000260| 45 64 69 74 42 6f 78 57 | 69 64 74 68 20 3d 20 57 |EditBoxW|idth = W|
|00000270| 69 6e 57 69 64 74 68 20 | 2f 20 32 3b 0d 0a 09 45 |inWidth |/ 2;...E|
|00000280| 64 69 74 42 6f 78 2e 62 | 54 72 61 6e 73 69 65 6e |ditBox.b|Transien|
|00000290| 74 20 3d 20 54 72 75 65 | 3b 0d 0a 0d 0a 09 42 75 |t = True|;.....Bu|
|000002a0| 74 74 6f 6e 20 3d 20 55 | 57 69 6e 64 6f 77 43 6f |tton = U|WindowCo|
|000002b0| 6d 62 6f 42 75 74 74 6f | 6e 28 43 72 65 61 74 65 |mboButto|n(Create|
|000002c0| 57 69 6e 64 6f 77 28 63 | 6c 61 73 73 27 55 57 69 |Window(c|lass'UWi|
|000002d0| 6e 64 6f 77 43 6f 6d 62 | 6f 42 75 74 74 6f 6e 27 |ndowComb|oButton'|
|000002e0| 2c 20 57 69 6e 57 69 64 | 74 68 2d 31 32 2c 20 30 |, WinWid|th-12, 0|
|000002f0| 2c 20 31 32 2c 20 31 30 | 29 29 3b 20 0d 0a 09 42 |, 12, 10|)); ...B|
|00000300| 75 74 74 6f 6e 2e 4f 77 | 6e 65 72 20 3d 20 53 65 |utton.Ow|ner = Se|
|00000310| 6c 66 3b 0d 0a 09 0d 0a | 09 4c 69 73 74 20 3d 20 |lf;.....|.List = |
|00000320| 55 57 69 6e 64 6f 77 43 | 6f 6d 62 6f 4c 69 73 74 |UWindowC|omboList|
|00000330| 28 52 6f 6f 74 2e 43 72 | 65 61 74 65 57 69 6e 64 |(Root.Cr|eateWind|
|00000340| 6f 77 28 4c 69 73 74 43 | 6c 61 73 73 2c 20 30 2c |ow(ListC|lass, 0,|
|00000350| 20 30 2c 20 31 30 30 2c | 20 31 30 30 29 29 3b 20 | 0, 100,| 100)); |
|00000360| 0d 0a 09 4c 69 73 74 2e | 4c 6f 6f 6b 41 6e 64 46 |...List.|LookAndF|
|00000370| 65 65 6c 20 3d 20 4c 6f | 6f 6b 41 6e 64 46 65 65 |eel = Lo|okAndFee|
|00000380| 6c 3b 0d 0a 09 4c 69 73 | 74 2e 4f 77 6e 65 72 20 |l;...Lis|t.Owner |
|00000390| 3d 20 53 65 6c 66 3b 0d | 0a 09 4c 69 73 74 2e 53 |= Self;.|..List.S|
|000003a0| 65 74 75 70 28 29 3b 0d | 0a 09 0d 0a 09 4c 69 73 |etup();.|.....Lis|
|000003b0| 74 2e 48 69 64 65 57 69 | 6e 64 6f 77 28 29 3b 0d |t.HideWi|ndow();.|
|000003c0| 0a 09 62 4c 69 73 74 56 | 69 73 69 62 6c 65 20 3d |..bListV|isible =|
|000003d0| 20 46 61 6c 73 65 3b 0d | 0a 0d 0a 09 53 65 74 45 | False;.|....SetE|
|000003e0| 64 69 74 54 65 78 74 43 | 6f 6c 6f 72 28 4c 6f 6f |ditTextC|olor(Loo|
|000003f0| 6b 41 6e 64 46 65 65 6c | 2e 45 64 69 74 42 6f 78 |kAndFeel|.EditBox|
|00000400| 54 65 78 74 43 6f 6c 6f | 72 29 3b 0d 0a 7d 0d 0a |TextColo|r);..}..|
|00000410| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 53 65 74 42 75 |..functi|on SetBu|
|00000420| 74 74 6f 6e 73 28 62 6f | 6f 6c 20 62 49 6e 42 75 |ttons(bo|ol bInBu|
|00000430| 74 74 6f 6e 73 29 0d 0a | 7b 0d 0a 09 62 42 75 74 |ttons)..|{...bBut|
|00000440| 74 6f 6e 73 20 3d 20 62 | 49 6e 42 75 74 74 6f 6e |tons = b|InButton|
|00000450| 73 3b 0d 0a 09 69 66 28 | 62 49 6e 42 75 74 74 6f |s;...if(|bInButto|
|00000460| 6e 73 29 0d 0a 09 7b 0d | 0a 09 09 4c 65 66 74 42 |ns)...{.|...LeftB|
|00000470| 75 74 74 6f 6e 20 3d 20 | 55 57 69 6e 64 6f 77 43 |utton = |UWindowC|
|00000480| 6f 6d 62 6f 4c 65 66 74 | 42 75 74 74 6f 6e 28 43 |omboLeft|Button(C|
|00000490| 72 65 61 74 65 57 69 6e | 64 6f 77 28 63 6c 61 73 |reateWin|dow(clas|
|000004a0| 73 27 55 57 69 6e 64 6f | 77 43 6f 6d 62 6f 4c 65 |s'UWindo|wComboLe|
|000004b0| 66 74 42 75 74 74 6f 6e | 27 2c 20 57 69 6e 57 69 |ftButton|', WinWi|
|000004c0| 64 74 68 2d 31 32 2c 20 | 30 2c 20 31 32 2c 20 31 |dth-12, |0, 12, 1|
|000004d0| 30 29 29 3b 0d 0a 09 09 | 52 69 67 68 74 42 75 74 |0));....|RightBut|
|000004e0| 74 6f 6e 20 3d 20 55 57 | 69 6e 64 6f 77 43 6f 6d |ton = UW|indowCom|
|000004f0| 62 6f 52 69 67 68 74 42 | 75 74 74 6f 6e 28 43 72 |boRightB|utton(Cr|
|00000500| 65 61 74 65 57 69 6e 64 | 6f 77 28 63 6c 61 73 73 |eateWind|ow(class|
|00000510| 27 55 57 69 6e 64 6f 77 | 43 6f 6d 62 6f 52 69 67 |'UWindow|ComboRig|
|00000520| 68 74 42 75 74 74 6f 6e | 27 2c 20 57 69 6e 57 69 |htButton|', WinWi|
|00000530| 64 74 68 2d 31 32 2c 20 | 30 2c 20 31 32 2c 20 31 |dth-12, |0, 12, 1|
|00000540| 30 29 29 3b 0d 0a 09 7d | 0d 0a 09 65 6c 73 65 0d |0));...}|...else.|
|00000550| 0a 09 7b 0d 0a 09 09 4c | 65 66 74 42 75 74 74 6f |..{....L|eftButto|
|00000560| 6e 20 3d 20 4e 6f 6e 65 | 3b 0d 0a 09 09 52 69 67 |n = None|;....Rig|
|00000570| 68 74 42 75 74 74 6f 6e | 20 3d 20 4e 6f 6e 65 3b |htButton| = None;|
|00000580| 0d 0a 09 7d 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |...}..}.|...funct|
|00000590| 69 6f 6e 20 4e 6f 74 69 | 66 79 28 62 79 74 65 20 |ion Noti|fy(byte |
|000005a0| 45 29 0d 0a 7b 0d 0a 09 | 53 75 70 65 72 2e 4e 6f |E)..{...|Super.No|
|000005b0| 74 69 66 79 28 45 29 3b | 0d 0a 0d 0a 09 69 66 28 |tify(E);|.....if(|
|000005c0| 45 20 3d 3d 20 44 45 5f | 4c 4d 6f 75 73 65 44 6f |E == DE_|LMouseDo|
|000005d0| 77 6e 29 0d 0a 09 7b 0d | 0a 09 09 69 66 28 21 62 |wn)...{.|...if(!b|
|000005e0| 4c 69 73 74 56 69 73 69 | 62 6c 65 29 0d 0a 09 09 |ListVisi|ble)....|
|000005f0| 7b 0d 0a 09 09 09 69 66 | 28 21 62 43 61 6e 45 64 |{.....if|(!bCanEd|
|00000600| 69 74 29 0d 0a 09 09 09 | 7b 0d 0a 09 09 09 09 44 |it).....|{......D|
|00000610| 72 6f 70 44 6f 77 6e 28 | 29 3b 0d 0a 09 09 09 09 |ropDown(|);......|
|00000620| 52 6f 6f 74 2e 43 61 70 | 74 75 72 65 4d 6f 75 73 |Root.Cap|tureMous|
|00000630| 65 28 4c 69 73 74 29 3b | 0d 0a 09 09 09 7d 0d 0a |e(List);|.....}..|
|00000640| 09 09 7d 0d 0a 09 09 65 | 6c 73 65 0d 0a 09 09 09 |..}....e|lse.....|
|00000650| 43 6c 6f 73 65 55 70 28 | 29 3b 0d 0a 09 7d 0d 0a |CloseUp(|);...}..|
|00000660| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 69 6e |}....fun|ction in|
|00000670| 74 20 46 69 6e 64 49 74 | 65 6d 49 6e 64 65 78 28 |t FindIt|emIndex(|
|00000680| 73 74 72 69 6e 67 20 56 | 2c 20 6f 70 74 69 6f 6e |string V|, option|
|00000690| 61 6c 20 62 6f 6f 6c 20 | 62 49 67 6e 6f 72 65 43 |al bool |bIgnoreC|
|000006a0| 61 73 65 29 0d 0a 7b 0d | 0a 09 72 65 74 75 72 6e |ase)..{.|..return|
|000006b0| 20 4c 69 73 74 2e 46 69 | 6e 64 49 74 65 6d 49 6e | List.Fi|ndItemIn|
|000006c0| 64 65 78 28 56 2c 20 62 | 49 67 6e 6f 72 65 43 61 |dex(V, b|IgnoreCa|
|000006d0| 73 65 29 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |se);..}.|...funct|
|000006e0| 69 6f 6e 20 52 65 6d 6f | 76 65 49 74 65 6d 28 69 |ion Remo|veItem(i|
|000006f0| 6e 74 20 49 6e 64 65 78 | 29 0d 0a 7b 0d 0a 09 4c |nt Index|)..{...L|
|00000700| 69 73 74 2e 52 65 6d 6f | 76 65 49 74 65 6d 28 49 |ist.Remo|veItem(I|
|00000710| 6e 64 65 78 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |ndex);..|}....fun|
|00000720| 63 74 69 6f 6e 20 69 6e | 74 20 46 69 6e 64 49 74 |ction in|t FindIt|
|00000730| 65 6d 49 6e 64 65 78 32 | 28 73 74 72 69 6e 67 20 |emIndex2|(string |
|00000740| 56 32 2c 20 6f 70 74 69 | 6f 6e 61 6c 20 62 6f 6f |V2, opti|onal boo|
|00000750| 6c 20 62 49 67 6e 6f 72 | 65 43 61 73 65 29 0d 0a |l bIgnor|eCase)..|
|00000760| 7b 0d 0a 09 72 65 74 75 | 72 6e 20 4c 69 73 74 2e |{...retu|rn List.|
|00000770| 46 69 6e 64 49 74 65 6d | 49 6e 64 65 78 32 28 56 |FindItem|Index2(V|
|00000780| 32 2c 20 62 49 67 6e 6f | 72 65 43 61 73 65 29 3b |2, bIgno|reCase);|
|00000790| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|000007a0| 43 6c 6f 73 65 28 6f 70 | 74 69 6f 6e 61 6c 20 62 |Close(op|tional b|
|000007b0| 6f 6f 6c 20 62 42 79 50 | 61 72 65 6e 74 29 0d 0a |ool bByP|arent)..|
|000007c0| 7b 0d 0a 09 69 66 28 62 | 42 79 50 61 72 65 6e 74 |{...if(b|ByParent|
|000007d0| 20 26 26 20 62 4c 69 73 | 74 56 69 73 69 62 6c 65 | && bLis|tVisible|
|000007e0| 29 0d 0a 09 09 43 6c 6f | 73 65 55 70 28 29 3b 0d |)....Clo|seUp();.|
|000007f0| 0a 0d 0a 09 53 75 70 65 | 72 2e 43 6c 6f 73 65 28 |....Supe|r.Close(|
|00000800| 62 42 79 50 61 72 65 6e | 74 29 3b 0d 0a 7d 0d 0a |bByParen|t);..}..|
|00000810| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 53 65 74 4e 75 |..functi|on SetNu|
|00000820| 6d 65 72 69 63 4f 6e 6c | 79 28 62 6f 6f 6c 20 62 |mericOnl|y(bool b|
|00000830| 4e 75 6d 65 72 69 63 4f | 6e 6c 79 29 0d 0a 7b 0d |NumericO|nly)..{.|
|00000840| 0a 09 45 64 69 74 42 6f | 78 2e 62 4e 75 6d 65 72 |..EditBo|x.bNumer|
|00000850| 69 63 4f 6e 6c 79 20 3d | 20 62 4e 75 6d 65 72 69 |icOnly =| bNumeri|
|00000860| 63 4f 6e 6c 79 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |cOnly;..|}....fun|
|00000870| 63 74 69 6f 6e 20 53 65 | 74 46 6f 6e 74 28 69 6e |ction Se|tFont(in|
|00000880| 74 20 4e 65 77 46 6f 6e | 74 29 0d 0a 7b 0d 0a 09 |t NewFon|t)..{...|
|00000890| 53 75 70 65 72 2e 53 65 | 74 46 6f 6e 74 28 4e 65 |Super.Se|tFont(Ne|
|000008a0| 77 46 6f 6e 74 29 3b 0d | 0a 09 45 64 69 74 42 6f |wFont);.|..EditBo|
|000008b0| 78 2e 53 65 74 46 6f 6e | 74 28 4e 65 77 46 6f 6e |x.SetFon|t(NewFon|
|000008c0| 74 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |t);..}..|..functi|
|000008d0| 6f 6e 20 53 65 74 45 64 | 69 74 54 65 78 74 43 6f |on SetEd|itTextCo|
|000008e0| 6c 6f 72 28 43 6f 6c 6f | 72 20 4e 65 77 43 6f 6c |lor(Colo|r NewCol|
|000008f0| 6f 72 29 0d 0a 7b 0d 0a | 09 45 64 69 74 42 6f 78 |or)..{..|.EditBox|
|00000900| 2e 53 65 74 54 65 78 74 | 43 6f 6c 6f 72 28 4e 65 |.SetText|Color(Ne|
|00000910| 77 43 6f 6c 6f 72 29 3b | 0d 0a 7d 0d 0a 0d 0a 0d |wColor);|..}.....|
|00000920| 0a 66 75 6e 63 74 69 6f | 6e 20 53 65 74 45 64 69 |.functio|n SetEdi|
|00000930| 74 61 62 6c 65 28 62 6f | 6f 6c 20 62 4e 65 77 43 |table(bo|ol bNewC|
|00000940| 61 6e 45 64 69 74 29 0d | 0a 7b 0d 0a 09 62 43 61 |anEdit).|.{...bCa|
|00000950| 6e 45 64 69 74 20 3d 20 | 62 4e 65 77 43 61 6e 45 |nEdit = |bNewCanE|
|00000960| 64 69 74 3b 0d 0a 09 45 | 64 69 74 42 6f 78 2e 53 |dit;...E|ditBox.S|
|00000970| 65 74 45 64 69 74 61 62 | 6c 65 28 62 43 61 6e 45 |etEditab|le(bCanE|
|00000980| 64 69 74 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |dit);..}|....func|
|00000990| 74 69 6f 6e 20 69 6e 74 | 20 47 65 74 53 65 6c 65 |tion int| GetSele|
|000009a0| 63 74 65 64 49 6e 64 65 | 78 28 29 0d 0a 7b 0d 0a |ctedInde|x()..{..|
|000009b0| 09 72 65 74 75 72 6e 20 | 4c 69 73 74 2e 46 69 6e |.return |List.Fin|
|000009c0| 64 49 74 65 6d 49 6e 64 | 65 78 28 47 65 74 56 61 |dItemInd|ex(GetVa|
|000009d0| 6c 75 65 28 29 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |lue());.|.}....fu|
|000009e0| 6e 63 74 69 6f 6e 20 53 | 65 74 53 65 6c 65 63 74 |nction S|etSelect|
|000009f0| 65 64 49 6e 64 65 78 28 | 69 6e 74 20 49 6e 64 65 |edIndex(|int Inde|
|00000a00| 78 29 0d 0a 7b 0d 0a 09 | 53 65 74 56 61 6c 75 65 |x)..{...|SetValue|
|00000a10| 28 4c 69 73 74 2e 47 65 | 74 49 74 65 6d 56 61 6c |(List.Ge|tItemVal|
|00000a20| 75 65 28 49 6e 64 65 78 | 29 2c 20 4c 69 73 74 2e |ue(Index|), List.|
|00000a30| 47 65 74 49 74 65 6d 56 | 61 6c 75 65 32 28 49 6e |GetItemV|alue2(In|
|00000a40| 64 65 78 29 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |dex));..|}....fun|
|00000a50| 63 74 69 6f 6e 20 73 74 | 72 69 6e 67 20 47 65 74 |ction st|ring Get|
|00000a60| 56 61 6c 75 65 28 29 0d | 0a 7b 0d 0a 09 72 65 74 |Value().|.{...ret|
|00000a70| 75 72 6e 20 45 64 69 74 | 42 6f 78 2e 47 65 74 56 |urn Edit|Box.GetV|
|00000a80| 61 6c 75 65 28 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |alue();.|.}....fu|
|00000a90| 6e 63 74 69 6f 6e 20 73 | 74 72 69 6e 67 20 47 65 |nction s|tring Ge|
|00000aa0| 74 56 61 6c 75 65 32 28 | 29 0d 0a 7b 0d 0a 09 72 |tValue2(|)..{...r|
|00000ab0| 65 74 75 72 6e 20 45 64 | 69 74 42 6f 78 2e 47 65 |eturn Ed|itBox.Ge|
|00000ac0| 74 56 61 6c 75 65 32 28 | 29 3b 0d 0a 7d 0d 0a 0d |tValue2(|);..}...|
|00000ad0| 0a 66 75 6e 63 74 69 6f | 6e 20 53 65 74 56 61 6c |.functio|n SetVal|
|00000ae0| 75 65 28 73 74 72 69 6e | 67 20 4e 65 77 56 61 6c |ue(strin|g NewVal|
|00000af0| 75 65 2c 20 6f 70 74 69 | 6f 6e 61 6c 20 73 74 72 |ue, opti|onal str|
|00000b00| 69 6e 67 20 4e 65 77 56 | 61 6c 75 65 32 29 0d 0a |ing NewV|alue2)..|
|00000b10| 7b 0d 0a 09 45 64 69 74 | 42 6f 78 2e 53 65 74 56 |{...Edit|Box.SetV|
|00000b20| 61 6c 75 65 28 4e 65 77 | 56 61 6c 75 65 2c 20 4e |alue(New|Value, N|
|00000b30| 65 77 56 61 6c 75 65 32 | 29 3b 0d 0a 7d 0d 0a 0d |ewValue2|);..}...|
|00000b40| 0a 66 75 6e 63 74 69 6f | 6e 20 53 65 74 4d 61 78 |.functio|n SetMax|
|00000b50| 4c 65 6e 67 74 68 28 69 | 6e 74 20 4d 61 78 4c 65 |Length(i|nt MaxLe|
|00000b60| 6e 67 74 68 29 0d 0a 7b | 0d 0a 09 45 64 69 74 42 |ngth)..{|...EditB|
|00000b70| 6f 78 2e 4d 61 78 4c 65 | 6e 67 74 68 20 3d 20 4d |ox.MaxLe|ngth = M|
|00000b80| 61 78 4c 65 6e 67 74 68 | 3b 0d 0a 7d 0d 0a 0d 0a |axLength|;..}....|
|00000b90| 66 75 6e 63 74 69 6f 6e | 20 50 61 69 6e 74 28 43 |function| Paint(C|
|00000ba0| 61 6e 76 61 73 20 43 2c | 20 66 6c 6f 61 74 20 58 |anvas C,| float X|
|00000bb0| 2c 20 66 6c 6f 61 74 20 | 59 29 0d 0a 7b 0d 0a 09 |, float |Y)..{...|
|00000bc0| 4c 6f 6f 6b 41 6e 64 46 | 65 65 6c 2e 43 6f 6d 62 |LookAndF|eel.Comb|
|00000bd0| 6f 5f 44 72 61 77 28 53 | 65 6c 66 2c 20 43 29 3b |o_Draw(S|elf, C);|
|00000be0| 0d 0a 09 53 75 70 65 72 | 2e 50 61 69 6e 74 28 43 |...Super|.Paint(C|
|00000bf0| 2c 20 58 2c 20 59 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |, X, Y);|..}....f|
|00000c00| 75 6e 63 74 69 6f 6e 20 | 41 64 64 49 74 65 6d 28 |unction |AddItem(|
|00000c10| 73 74 72 69 6e 67 20 53 | 2c 20 6f 70 74 69 6f 6e |string S|, option|
|00000c20| 61 6c 20 73 74 72 69 6e | 67 20 53 32 2c 20 6f 70 |al strin|g S2, op|
|00000c30| 74 69 6f 6e 61 6c 20 69 | 6e 74 20 53 6f 72 74 57 |tional i|nt SortW|
|00000c40| 65 69 67 68 74 29 0d 0a | 7b 0d 0a 09 4c 69 73 74 |eight)..|{...List|
|00000c50| 2e 41 64 64 49 74 65 6d | 28 53 2c 20 53 32 2c 20 |.AddItem|(S, S2, |
|00000c60| 53 6f 72 74 57 65 69 67 | 68 74 29 3b 0d 0a 7d 0d |SortWeig|ht);..}.|
|00000c70| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 49 6e 73 65 |...funct|ion Inse|
|00000c80| 72 74 49 74 65 6d 28 73 | 74 72 69 6e 67 20 53 2c |rtItem(s|tring S,|
|00000c90| 20 6f 70 74 69 6f 6e 61 | 6c 20 73 74 72 69 6e 67 | optiona|l string|
|00000ca0| 20 53 32 2c 20 6f 70 74 | 69 6f 6e 61 6c 20 69 6e | S2, opt|ional in|
|00000cb0| 74 20 53 6f 72 74 57 65 | 69 67 68 74 29 0d 0a 7b |t SortWe|ight)..{|
|00000cc0| 0d 0a 09 4c 69 73 74 2e | 49 6e 73 65 72 74 49 74 |...List.|InsertIt|
|00000cd0| 65 6d 28 53 2c 20 53 32 | 2c 20 53 6f 72 74 57 65 |em(S, S2|, SortWe|
|00000ce0| 69 67 68 74 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |ight);..|}....fun|
|00000cf0| 63 74 69 6f 6e 20 42 65 | 66 6f 72 65 50 61 69 6e |ction Be|forePain|
|00000d00| 74 28 43 61 6e 76 61 73 | 20 43 2c 20 66 6c 6f 61 |t(Canvas| C, floa|
|00000d10| 74 20 58 2c 20 66 6c 6f | 61 74 20 59 29 0d 0a 7b |t X, flo|at Y)..{|
|00000d20| 0d 0a 09 53 75 70 65 72 | 2e 42 65 66 6f 72 65 50 |...Super|.BeforeP|
|00000d30| 61 69 6e 74 28 43 2c 20 | 58 2c 20 59 29 3b 0d 0a |aint(C, |X, Y);..|
|00000d40| 09 4c 6f 6f 6b 41 6e 64 | 46 65 65 6c 2e 43 6f 6d |.LookAnd|Feel.Com|
|00000d50| 62 6f 5f 53 65 74 75 70 | 53 69 7a 65 73 28 53 65 |bo_Setup|Sizes(Se|
|00000d60| 6c 66 2c 20 43 29 3b 0d | 0a 09 4c 69 73 74 2e 62 |lf, C);.|..List.b|
|00000d70| 4c 65 61 76 65 4f 6e 73 | 63 72 65 65 6e 20 3d 20 |LeaveOns|creen = |
|00000d80| 62 4c 69 73 74 56 69 73 | 69 62 6c 65 20 26 26 20 |bListVis|ible && |
|00000d90| 62 4c 65 61 76 65 4f 6e | 73 63 72 65 65 6e 3b 0d |bLeaveOn|screen;.|
|00000da0| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 43 |.}....fu|nction C|
|00000db0| 6c 6f 73 65 55 70 28 29 | 0d 0a 7b 0d 0a 09 62 4c |loseUp()|..{...bL|
|00000dc0| 69 73 74 56 69 73 69 62 | 6c 65 20 3d 20 46 61 6c |istVisib|le = Fal|
|00000dd0| 73 65 3b 0d 0a 09 45 64 | 69 74 42 6f 78 2e 53 65 |se;...Ed|itBox.Se|
|00000de0| 74 45 64 69 74 61 62 6c | 65 28 62 43 61 6e 45 64 |tEditabl|e(bCanEd|
|00000df0| 69 74 29 3b 0d 0a 09 45 | 64 69 74 42 6f 78 2e 53 |it);...E|ditBox.S|
|00000e00| 65 6c 65 63 74 41 6c 6c | 28 29 3b 0d 0a 09 4c 69 |electAll|();...Li|
|00000e10| 73 74 2e 48 69 64 65 57 | 69 6e 64 6f 77 28 29 3b |st.HideW|indow();|
|00000e20| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000e30| 44 72 6f 70 44 6f 77 6e | 28 29 0d 0a 7b 0d 0a 09 |DropDown|()..{...|
|00000e40| 62 4c 69 73 74 56 69 73 | 69 62 6c 65 20 3d 20 54 |bListVis|ible = T|
|00000e50| 72 75 65 3b 0d 0a 09 45 | 64 69 74 42 6f 78 2e 53 |rue;...E|ditBox.S|
|00000e60| 65 74 45 64 69 74 61 62 | 6c 65 28 46 61 6c 73 65 |etEditab|le(False|
|00000e70| 29 3b 0d 0a 09 4c 69 73 | 74 2e 53 68 6f 77 57 69 |);...Lis|t.ShowWi|
|00000e80| 6e 64 6f 77 28 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |ndow();.|.}....fu|
|00000e90| 6e 63 74 69 6f 6e 20 53 | 6f 72 74 28 29 0d 0a 7b |nction S|ort()..{|
|00000ea0| 0d 0a 09 4c 69 73 74 2e | 53 6f 72 74 28 29 3b 0d |...List.|Sort();.|
|00000eb0| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 43 |.}....fu|nction C|
|00000ec0| 6c 65 61 72 56 61 6c 75 | 65 28 29 0d 0a 7b 0d 0a |learValu|e()..{..|
|00000ed0| 09 45 64 69 74 42 6f 78 | 2e 43 6c 65 61 72 28 29 |.EditBox|.Clear()|
|00000ee0| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|00000ef0| 20 43 6c 65 61 72 28 29 | 0d 0a 7b 0d 0a 09 4c 69 | Clear()|..{...Li|
|00000f00| 73 74 2e 43 6c 65 61 72 | 28 29 3b 0d 0a 09 45 64 |st.Clear|();...Ed|
|00000f10| 69 74 42 6f 78 2e 43 6c | 65 61 72 28 29 3b 0d 0a |itBox.Cl|ear();..|
|00000f20| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 46 6f |}....fun|ction Fo|
|00000f30| 63 75 73 4f 74 68 65 72 | 57 69 6e 64 6f 77 28 55 |cusOther|Window(U|
|00000f40| 57 69 6e 64 6f 77 57 69 | 6e 64 6f 77 20 57 29 0d |WindowWi|ndow W).|
|00000f50| 0a 7b 0d 0a 09 53 75 70 | 65 72 2e 46 6f 63 75 73 |.{...Sup|er.Focus|
|00000f60| 4f 74 68 65 72 57 69 6e | 64 6f 77 28 57 29 3b 0d |OtherWin|dow(W);.|
|00000f70| 0a 0d 0a 09 69 66 28 62 | 4c 69 73 74 56 69 73 69 |....if(b|ListVisi|
|00000f80| 62 6c 65 20 26 26 20 57 | 2e 50 61 72 65 6e 74 57 |ble && W|.ParentW|
|00000f90| 69 6e 64 6f 77 20 21 3d | 20 53 65 6c 66 20 26 26 |indow !=| Self &&|
|00000fa0| 20 57 20 21 3d 20 4c 69 | 73 74 20 26 26 20 57 2e | W != Li|st && W.|
|00000fb0| 50 61 72 65 6e 74 57 69 | 6e 64 6f 77 20 21 3d 20 |ParentWi|ndow != |
|00000fc0| 4c 69 73 74 29 0d 0a 09 | 7b 0d 0a 09 09 2f 2f 4c |List)...|{....//L|
|00000fd0| 6f 67 28 22 43 6c 6f 73 | 69 6e 67 20 64 75 65 20 |og("Clos|ing due |
|00000fe0| 74 6f 20 66 6f 63 75 73 | 20 6c 6f 73 74 20 74 6f |to focus| lost to|
|00000ff0| 3a 20 22 24 57 29 3b 0d | 0a 09 09 43 6c 6f 73 65 |: "$W);.|...Close|
|00001000| 55 70 28 29 3b 0d 0a 09 | 7d 0d 0a 7d 0d 0a 0d 0a |Up();...|}..}....|
|00001010| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+