home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2003-02-28 | 10.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 57 a1 01 2f 2f 20 55 57 |........|W..// UW|
|00000010| 69 6e 64 6f 77 45 64 69 | 74 42 6f 78 20 2d 20 73 |indowEdi|tBox - s|
|00000020| 69 6d 70 6c 65 20 65 64 | 69 74 20 62 6f 78 2c 20 |imple ed|it box, |
|00000030| 66 6f 72 20 75 73 65 20 | 69 6e 20 6f 74 68 65 72 |for use |in other|
|00000040| 20 63 6f 6e 74 72 6f 6c | 73 20 73 75 63 68 20 61 | control|s such a|
|00000050| 73 0d 0a 2f 2f 20 55 57 | 69 6e 64 6f 77 43 6f 6d |s..// UW|indowCom|
|00000060| 62 6f 78 42 6f 78 43 6f | 6e 74 72 6f 6c 2c 20 55 |boxBoxCo|ntrol, U|
|00000070| 57 69 6e 64 6f 77 45 64 | 69 74 42 6f 78 43 6f 6e |WindowEd|itBoxCon|
|00000080| 74 72 6f 6c 20 65 74 63 | 2e 0d 0a 0d 0a 63 6c 61 |trol etc|.....cla|
|00000090| 73 73 20 55 57 69 6e 64 | 6f 77 45 64 69 74 42 6f |ss UWind|owEditBo|
|000000a0| 78 20 65 78 74 65 6e 64 | 73 20 55 57 69 6e 64 6f |x extend|s UWindo|
|000000b0| 77 44 69 61 6c 6f 67 43 | 6f 6e 74 72 6f 6c 3b 0d |wDialogC|ontrol;.|
|000000c0| 0a 0d 0a 76 61 72 20 73 | 74 72 69 6e 67 09 09 56 |...var s|tring..V|
|000000d0| 61 6c 75 65 3b 0d 0a 76 | 61 72 20 73 74 72 69 6e |alue;..v|ar strin|
|000000e0| 67 09 09 56 61 6c 75 65 | 32 3b 0d 0a 76 61 72 20 |g..Value|2;..var |
|000000f0| 69 6e 74 09 09 09 43 61 | 72 65 74 4f 66 66 73 65 |int...Ca|retOffse|
|00000100| 74 3b 0d 0a 76 61 72 20 | 69 6e 74 09 09 09 4d 61 |t;..var |int...Ma|
|00000110| 78 4c 65 6e 67 74 68 3b | 0d 0a 76 61 72 20 66 6c |xLength;|..var fl|
|00000120| 6f 61 74 09 09 4c 61 73 | 74 44 72 61 77 54 69 6d |oat..Las|tDrawTim|
|00000130| 65 3b 0d 0a 76 61 72 20 | 62 6f 6f 6c 09 09 62 53 |e;..var |bool..bS|
|00000140| 68 6f 77 43 61 72 65 74 | 3b 0d 0a 76 61 72 20 66 |howCaret|;..var f|
|00000150| 6c 6f 61 74 09 09 4f 66 | 66 73 65 74 3b 0d 0a 76 |loat..Of|fset;..v|
|00000160| 61 72 20 55 57 69 6e 64 | 6f 77 44 69 61 6c 6f 67 |ar UWind|owDialog|
|00000170| 43 6f 6e 74 72 6f 6c 09 | 4e 6f 74 69 66 79 4f 77 |Control.|NotifyOw|
|00000180| 6e 65 72 3b 0d 0a 76 61 | 72 20 62 6f 6f 6c 09 09 |ner;..va|r bool..|
|00000190| 62 4e 75 6d 65 72 69 63 | 4f 6e 6c 79 3b 0d 0a 76 |bNumeric|Only;..v|
|000001a0| 61 72 20 62 6f 6f 6c 09 | 09 62 4e 75 6d 65 72 69 |ar bool.|.bNumeri|
|000001b0| 63 46 6c 6f 61 74 3b 0d | 0a 76 61 72 20 62 6f 6f |cFloat;.|.var boo|
|000001c0| 6c 09 09 62 43 61 6e 45 | 64 69 74 3b 0d 0a 76 61 |l..bCanE|dit;..va|
|000001d0| 72 20 62 6f 6f 6c 09 09 | 62 41 6c 6c 53 65 6c 65 |r bool..|bAllSele|
|000001e0| 63 74 65 64 3b 0d 0a 76 | 61 72 20 62 6f 6f 6c 09 |cted;..v|ar bool.|
|000001f0| 09 62 53 65 6c 65 63 74 | 4f 6e 46 6f 63 75 73 3b |.bSelect|OnFocus;|
|00000200| 0d 0a 76 61 72 20 62 6f | 6f 6c 09 09 62 44 65 6c |..var bo|ol..bDel|
|00000210| 61 79 65 64 4e 6f 74 69 | 66 79 3b 0d 0a 76 61 72 |ayedNoti|fy;..var|
|00000220| 20 62 6f 6f 6c 09 09 62 | 43 68 61 6e 67 65 50 65 | bool..b|ChangePe|
|00000230| 6e 64 69 6e 67 3b 0d 0a | 76 61 72 20 62 6f 6f 6c |nding;..|var bool|
|00000240| 09 09 62 43 6f 6e 74 72 | 6f 6c 44 6f 77 6e 3b 0d |..bContr|olDown;.|
|00000250| 0a 76 61 72 20 62 6f 6f | 6c 09 09 62 53 68 69 66 |.var boo|l..bShif|
|00000260| 74 44 6f 77 6e 3b 0d 0a | 76 61 72 20 62 6f 6f 6c |tDown;..|var bool|
|00000270| 09 09 62 48 69 73 74 6f | 72 79 3b 0d 0a 76 61 72 |..bHisto|ry;..var|
|00000280| 20 62 6f 6f 6c 09 09 62 | 4b 65 79 44 6f 77 6e 3b | bool..b|KeyDown;|
|00000290| 0d 0a 76 61 72 20 55 57 | 69 6e 64 6f 77 45 64 69 |..var UW|indowEdi|
|000002a0| 74 42 6f 78 48 69 73 74 | 6f 72 79 09 48 69 73 74 |tBoxHist|ory.Hist|
|000002b0| 6f 72 79 4c 69 73 74 3b | 0d 0a 76 61 72 20 55 57 |oryList;|..var UW|
|000002c0| 69 6e 64 6f 77 45 64 69 | 74 42 6f 78 48 69 73 74 |indowEdi|tBoxHist|
|000002d0| 6f 72 79 09 43 75 72 72 | 65 6e 74 48 69 73 74 6f |ory.Curr|entHisto|
|000002e0| 72 79 3b 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |ry;....f|unction |
|000002f0| 43 72 65 61 74 65 64 28 | 29 0d 0a 7b 0d 0a 09 53 |Created(|)..{...S|
|00000300| 75 70 65 72 2e 43 72 65 | 61 74 65 64 28 29 3b 0d |uper.Cre|ated();.|
|00000310| 0a 09 62 43 61 6e 45 64 | 69 74 20 3d 20 54 72 75 |..bCanEd|it = Tru|
|00000320| 65 3b 0d 0a 09 62 43 6f | 6e 74 72 6f 6c 44 6f 77 |e;...bCo|ntrolDow|
|00000330| 6e 20 3d 20 46 61 6c 73 | 65 3b 0d 0a 09 62 53 68 |n = Fals|e;...bSh|
|00000340| 69 66 74 44 6f 77 6e 20 | 3d 20 46 61 6c 73 65 3b |iftDown |= False;|
|00000350| 0d 0a 0d 0a 09 4d 61 78 | 4c 65 6e 67 74 68 20 3d |.....Max|Length =|
|00000360| 20 32 35 35 3b 0d 0a 09 | 43 61 72 65 74 4f 66 66 | 255;...|CaretOff|
|00000370| 73 65 74 20 3d 20 30 3b | 0d 0a 09 4f 66 66 73 65 |set = 0;|...Offse|
|00000380| 74 20 3d 20 30 3b 0d 0a | 09 4c 61 73 74 44 72 61 |t = 0;..|.LastDra|
|00000390| 77 54 69 6d 65 20 3d 20 | 47 65 74 4c 65 76 65 6c |wTime = |GetLevel|
|000003a0| 28 29 2e 54 69 6d 65 53 | 65 63 6f 6e 64 73 3b 0d |().TimeS|econds;.|
|000003b0| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 53 |.}....fu|nction S|
|000003c0| 65 74 48 69 73 74 6f 72 | 79 28 62 6f 6f 6c 20 62 |etHistor|y(bool b|
|000003d0| 49 6e 48 69 73 74 6f 72 | 79 29 0d 0a 7b 0d 0a 09 |InHistor|y)..{...|
|000003e0| 62 48 69 73 74 6f 72 79 | 20 3d 20 62 49 6e 48 69 |bHistory| = bInHi|
|000003f0| 73 74 6f 72 79 3b 0d 0a | 0d 0a 09 69 66 28 62 48 |story;..|...if(bH|
|00000400| 69 73 74 6f 72 79 20 26 | 26 20 48 69 73 74 6f 72 |istory &|& Histor|
|00000410| 79 4c 69 73 74 3d 3d 4e | 6f 6e 65 29 0d 0a 09 7b |yList==N|one)...{|
|00000420| 0d 0a 09 09 48 69 73 74 | 6f 72 79 4c 69 73 74 20 |....Hist|oryList |
|00000430| 3d 20 6e 65 77 28 4e 6f | 6e 65 29 20 63 6c 61 73 |= new(No|ne) clas|
|00000440| 73 27 55 57 69 6e 64 6f | 77 45 64 69 74 42 6f 78 |s'UWindo|wEditBox|
|00000450| 48 69 73 74 6f 72 79 27 | 3b 0d 0a 09 09 48 69 73 |History'|;....His|
|00000460| 74 6f 72 79 4c 69 73 74 | 2e 53 65 74 75 70 53 65 |toryList|.SetupSe|
|00000470| 6e 74 69 6e 65 6c 28 29 | 3b 0d 0a 09 09 43 75 72 |ntinel()|;....Cur|
|00000480| 72 65 6e 74 48 69 73 74 | 6f 72 79 20 3d 20 4e 6f |rentHist|ory = No|
|00000490| 6e 65 3b 0d 0a 09 7d 0d | 0a 09 65 6c 73 65 0d 0a |ne;...}.|..else..|
|000004a0| 09 69 66 28 21 62 48 69 | 73 74 6f 72 79 20 26 26 |.if(!bHi|story &&|
|000004b0| 20 48 69 73 74 6f 72 79 | 4c 69 73 74 21 3d 4e 6f | History|List!=No|
|000004c0| 6e 65 29 0d 0a 09 7b 0d | 0a 09 09 48 69 73 74 6f |ne)...{.|...Histo|
|000004d0| 72 79 4c 69 73 74 20 3d | 20 4e 6f 6e 65 3b 0d 0a |ryList =| None;..|
|000004e0| 09 09 43 75 72 72 65 6e | 74 48 69 73 74 6f 72 79 |..Curren|tHistory|
|000004f0| 20 3d 20 4e 6f 6e 65 3b | 0d 0a 09 7d 0d 0a 7d 0d | = None;|...}..}.|
|00000500| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 53 65 74 45 |...funct|ion SetE|
|00000510| 64 69 74 61 62 6c 65 28 | 62 6f 6f 6c 20 62 45 64 |ditable(|bool bEd|
|00000520| 69 74 61 62 6c 65 29 0d | 0a 7b 0d 0a 09 62 43 61 |itable).|.{...bCa|
|00000530| 6e 45 64 69 74 20 3d 20 | 62 45 64 69 74 61 62 6c |nEdit = |bEditabl|
|00000540| 65 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |e;..}...|.functio|
|00000550| 6e 20 53 65 74 56 61 6c | 75 65 28 73 74 72 69 6e |n SetVal|ue(strin|
|00000560| 67 20 4e 65 77 56 61 6c | 75 65 2c 20 6f 70 74 69 |g NewVal|ue, opti|
|00000570| 6f 6e 61 6c 20 73 74 72 | 69 6e 67 20 4e 65 77 56 |onal str|ing NewV|
|00000580| 61 6c 75 65 32 29 0d 0a | 7b 0d 0a 09 56 61 6c 75 |alue2)..|{...Valu|
|00000590| 65 20 3d 20 4e 65 77 56 | 61 6c 75 65 3b 0d 0a 09 |e = NewV|alue;...|
|000005a0| 56 61 6c 75 65 32 20 3d | 20 4e 65 77 56 61 6c 75 |Value2 =| NewValu|
|000005b0| 65 32 3b 0d 0a 0d 0a 09 | 69 66 28 43 61 72 65 74 |e2;.....|if(Caret|
|000005c0| 4f 66 66 73 65 74 20 3e | 20 4c 65 6e 28 56 61 6c |Offset >| Len(Val|
|000005d0| 75 65 29 29 0d 0a 09 09 | 43 61 72 65 74 4f 66 66 |ue))....|CaretOff|
|000005e0| 73 65 74 20 3d 20 4c 65 | 6e 28 56 61 6c 75 65 29 |set = Le|n(Value)|
|000005f0| 3b 0d 0a 09 4e 6f 74 69 | 66 79 28 44 45 5f 43 68 |;...Noti|fy(DE_Ch|
|00000600| 61 6e 67 65 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |ange);..|}....fun|
|00000610| 63 74 69 6f 6e 20 43 6c | 65 61 72 28 29 0d 0a 7b |ction Cl|ear()..{|
|00000620| 0d 0a 09 43 61 72 65 74 | 4f 66 66 73 65 74 20 3d |...Caret|Offset =|
|00000630| 20 30 3b 0d 0a 09 56 61 | 6c 75 65 3d 22 22 3b 0d | 0;...Va|lue="";.|
|00000640| 0a 09 56 61 6c 75 65 32 | 3d 22 22 3b 0d 0a 09 62 |..Value2|="";...b|
|00000650| 41 6c 6c 53 65 6c 65 63 | 74 65 64 20 3d 20 46 61 |AllSelec|ted = Fa|
|00000660| 6c 73 65 3b 0d 0a 09 69 | 66 28 62 44 65 6c 61 79 |lse;...i|f(bDelay|
|00000670| 65 64 4e 6f 74 69 66 79 | 29 0d 0a 09 09 62 43 68 |edNotify|)....bCh|
|00000680| 61 6e 67 65 50 65 6e 64 | 69 6e 67 20 3d 20 54 72 |angePend|ing = Tr|
|00000690| 75 65 3b 0d 0a 09 65 6c | 73 65 0d 0a 09 09 4e 6f |ue;...el|se....No|
|000006a0| 74 69 66 79 28 44 45 5f | 43 68 61 6e 67 65 29 3b |tify(DE_|Change);|
|000006b0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|000006c0| 53 65 6c 65 63 74 41 6c | 6c 28 29 0d 0a 7b 0d 0a |SelectAl|l()..{..|
|000006d0| 09 69 66 28 62 43 61 6e | 45 64 69 74 20 26 26 20 |.if(bCan|Edit && |
|000006e0| 56 61 6c 75 65 20 21 3d | 20 22 22 29 0d 0a 09 7b |Value !=| "")...{|
|000006f0| 0d 0a 09 09 43 61 72 65 | 74 4f 66 66 73 65 74 20 |....Care|tOffset |
|00000700| 3d 20 4c 65 6e 28 56 61 | 6c 75 65 29 3b 0d 0a 09 |= Len(Va|lue);...|
|00000710| 09 62 41 6c 6c 53 65 6c | 65 63 74 65 64 20 3d 20 |.bAllSel|ected = |
|00000720| 54 72 75 65 3b 0d 0a 09 | 7d 0d 0a 7d 0d 0a 0d 0a |True;...|}..}....|
|00000730| 66 75 6e 63 74 69 6f 6e | 20 73 74 72 69 6e 67 20 |function| string |
|00000740| 47 65 74 56 61 6c 75 65 | 28 29 0d 0a 7b 0d 0a 09 |GetValue|()..{...|
|00000750| 72 65 74 75 72 6e 20 56 | 61 6c 75 65 3b 0d 0a 7d |return V|alue;..}|
|00000760| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 73 74 72 |....func|tion str|
|00000770| 69 6e 67 20 47 65 74 56 | 61 6c 75 65 32 28 29 0d |ing GetV|alue2().|
|00000780| 0a 7b 0d 0a 09 72 65 74 | 75 72 6e 20 56 61 6c 75 |.{...ret|urn Valu|
|00000790| 65 32 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |e2;..}..|..functi|
|000007a0| 6f 6e 20 4e 6f 74 69 66 | 79 28 62 79 74 65 20 45 |on Notif|y(byte E|
|000007b0| 29 0d 0a 7b 0d 0a 09 69 | 66 28 4e 6f 74 69 66 79 |)..{...i|f(Notify|
|000007c0| 4f 77 6e 65 72 20 21 3d | 20 4e 6f 6e 65 29 0d 0a |Owner !=| None)..|
|000007d0| 09 7b 0d 0a 09 09 4e 6f | 74 69 66 79 4f 77 6e 65 |.{....No|tifyOwne|
|000007e0| 72 2e 4e 6f 74 69 66 79 | 28 45 29 3b 0d 0a 09 7d |r.Notify|(E);...}|
|000007f0| 20 65 6c 73 65 20 7b 0d | 0a 09 09 53 75 70 65 72 | else {.|...Super|
|00000800| 2e 4e 6f 74 69 66 79 28 | 45 29 3b 0d 0a 09 7d 0d |.Notify(|E);...}.|
|00000810| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 49 |.}....fu|nction I|
|00000820| 6e 73 65 72 74 54 65 78 | 74 28 73 74 72 69 6e 67 |nsertTex|t(string|
|00000830| 20 54 65 78 74 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 | Text)..|{...loca|
|00000840| 6c 20 69 6e 74 20 69 3b | 0d 0a 0d 0a 09 66 6f 72 |l int i;|.....for|
|00000850| 28 69 3d 30 3b 69 3c 4c | 65 6e 28 54 65 78 74 29 |(i=0;i<L|en(Text)|
|00000860| 3b 69 2b 2b 29 0d 0a 09 | 09 49 6e 73 65 72 74 28 |;i++)...|.Insert(|
|00000870| 41 73 63 28 4d 69 64 28 | 54 65 78 74 2c 69 2c 31 |Asc(Mid(|Text,i,1|
|00000880| 29 29 29 3b 0d 0a 7d 0d | 0a 0d 0a 2f 2f 20 49 6e |)));..}.|...// In|
|00000890| 73 65 72 74 73 20 61 20 | 63 68 61 72 61 63 74 65 |serts a |characte|
|000008a0| 72 20 61 74 20 74 68 65 | 20 63 75 72 72 65 6e 74 |r at the| current|
|000008b0| 20 63 61 72 65 74 20 70 | 6f 73 69 74 69 6f 6e 0d | caret p|osition.|
|000008c0| 0a 66 75 6e 63 74 69 6f | 6e 20 62 6f 6f 6c 20 49 |.functio|n bool I|
|000008d0| 6e 73 65 72 74 28 62 79 | 74 65 20 43 29 0d 0a 7b |nsert(by|te C)..{|
|000008e0| 0d 0a 09 6c 6f 63 61 6c | 20 73 74 72 69 6e 67 09 |...local| string.|
|000008f0| 4e 65 77 56 61 6c 75 65 | 3b 0d 0a 0d 0a 09 4e 65 |NewValue|;.....Ne|
|00000900| 77 56 61 6c 75 65 20 3d | 20 4c 65 66 74 28 56 61 |wValue =| Left(Va|
|00000910| 6c 75 65 2c 20 43 61 72 | 65 74 4f 66 66 73 65 74 |lue, Car|etOffset|
|00000920| 29 20 24 20 43 68 72 28 | 43 29 20 24 20 4d 69 64 |) $ Chr(|C) $ Mid|
|00000930| 28 56 61 6c 75 65 2c 20 | 43 61 72 65 74 4f 66 66 |(Value, |CaretOff|
|00000940| 73 65 74 29 3b 0d 0a 0d | 0a 09 69 66 28 4c 65 6e |set);...|..if(Len|
|00000950| 28 4e 65 77 56 61 6c 75 | 65 29 20 3e 20 4d 61 78 |(NewValu|e) > Max|
|00000960| 4c 65 6e 67 74 68 29 0d | 0a 09 09 72 65 74 75 72 |Length).|...retur|
|00000970| 6e 20 46 61 6c 73 65 3b | 0d 0a 0d 0a 09 43 61 72 |n False;|.....Car|
|00000980| 65 74 4f 66 66 73 65 74 | 2b 2b 3b 0d 0a 0d 0a 09 |etOffset|++;.....|
|00000990| 56 61 6c 75 65 20 3d 20 | 4e 65 77 56 61 6c 75 65 |Value = |NewValue|
|000009a0| 3b 0d 0a 09 69 66 28 62 | 44 65 6c 61 79 65 64 4e |;...if(b|DelayedN|
|000009b0| 6f 74 69 66 79 29 0d 0a | 09 09 62 43 68 61 6e 67 |otify)..|..bChang|
|000009c0| 65 50 65 6e 64 69 6e 67 | 20 3d 20 54 72 75 65 3b |ePending| = True;|
|000009d0| 0d 0a 09 65 6c 73 65 0d | 0a 09 09 4e 6f 74 69 66 |...else.|...Notif|
|000009e0| 79 28 44 45 5f 43 68 61 | 6e 67 65 29 3b 0d 0a 09 |y(DE_Cha|nge);...|
|000009f0| 72 65 74 75 72 6e 20 54 | 72 75 65 3b 0d 0a 7d 0d |return T|rue;..}.|
|00000a00| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 62 6f 6f 6c |...funct|ion bool|
|00000a10| 20 42 61 63 6b 73 70 61 | 63 65 28 29 0d 0a 7b 0d | Backspa|ce()..{.|
|00000a20| 0a 09 6c 6f 63 61 6c 20 | 73 74 72 69 6e 67 09 4e |..local |string.N|
|00000a30| 65 77 56 61 6c 75 65 3b | 0d 0a 0d 0a 09 69 66 28 |ewValue;|.....if(|
|00000a40| 43 61 72 65 74 4f 66 66 | 73 65 74 20 3d 3d 20 30 |CaretOff|set == 0|
|00000a50| 29 20 72 65 74 75 72 6e | 20 46 61 6c 73 65 3b 0d |) return| False;.|
|00000a60| 0a 0d 0a 09 4e 65 77 56 | 61 6c 75 65 20 3d 20 4c |....NewV|alue = L|
|00000a70| 65 66 74 28 56 61 6c 75 | 65 2c 20 43 61 72 65 74 |eft(Valu|e, Caret|
|00000a80| 4f 66 66 73 65 74 20 2d | 20 31 29 20 24 20 4d 69 |Offset -| 1) $ Mi|
|00000a90| 64 28 56 61 6c 75 65 2c | 20 43 61 72 65 74 4f 66 |d(Value,| CaretOf|
|00000aa0| 66 73 65 74 29 3b 0d 0a | 09 43 61 72 65 74 4f 66 |fset);..|.CaretOf|
|00000ab0| 66 73 65 74 2d 2d 3b 0d | 0a 0d 0a 09 56 61 6c 75 |fset--;.|....Valu|
|00000ac0| 65 20 3d 20 4e 65 77 56 | 61 6c 75 65 3b 0d 0a 09 |e = NewV|alue;...|
|00000ad0| 69 66 28 62 44 65 6c 61 | 79 65 64 4e 6f 74 69 66 |if(bDela|yedNotif|
|00000ae0| 79 29 0d 0a 09 09 62 43 | 68 61 6e 67 65 50 65 6e |y)....bC|hangePen|
|00000af0| 64 69 6e 67 20 3d 20 54 | 72 75 65 3b 0d 0a 09 65 |ding = T|rue;...e|
|00000b00| 6c 73 65 0d 0a 09 09 4e | 6f 74 69 66 79 28 44 45 |lse....N|otify(DE|
|00000b10| 5f 43 68 61 6e 67 65 29 | 3b 0d 0a 09 72 65 74 75 |_Change)|;...retu|
|00000b20| 72 6e 20 54 72 75 65 3b | 0d 0a 7d 0d 0a 0d 0a 66 |rn True;|..}....f|
|00000b30| 75 6e 63 74 69 6f 6e 20 | 62 6f 6f 6c 20 44 65 6c |unction |bool Del|
|00000b40| 65 74 65 28 29 0d 0a 7b | 0d 0a 09 6c 6f 63 61 6c |ete()..{|...local|
|00000b50| 20 73 74 72 69 6e 67 09 | 4e 65 77 56 61 6c 75 65 | string.|NewValue|
|00000b60| 3b 0d 0a 0d 0a 09 69 66 | 28 43 61 72 65 74 4f 66 |;.....if|(CaretOf|
|00000b70| 66 73 65 74 20 3d 3d 20 | 4c 65 6e 28 56 61 6c 75 |fset == |Len(Valu|
|00000b80| 65 29 29 20 72 65 74 75 | 72 6e 20 46 61 6c 73 65 |e)) retu|rn False|
|00000b90| 3b 0d 0a 0d 0a 09 4e 65 | 77 56 61 6c 75 65 20 3d |;.....Ne|wValue =|
|00000ba0| 20 4c 65 66 74 28 56 61 | 6c 75 65 2c 20 43 61 72 | Left(Va|lue, Car|
|00000bb0| 65 74 4f 66 66 73 65 74 | 29 20 24 20 4d 69 64 28 |etOffset|) $ Mid(|
|00000bc0| 56 61 6c 75 65 2c 20 43 | 61 72 65 74 4f 66 66 73 |Value, C|aretOffs|
|00000bd0| 65 74 20 2b 20 31 29 3b | 0d 0a 0d 0a 09 56 61 6c |et + 1);|.....Val|
|00000be0| 75 65 20 3d 20 4e 65 77 | 56 61 6c 75 65 3b 0d 0a |ue = New|Value;..|
|00000bf0| 09 4e 6f 74 69 66 79 28 | 44 45 5f 43 68 61 6e 67 |.Notify(|DE_Chang|
|00000c00| 65 29 3b 0d 0a 09 72 65 | 74 75 72 6e 20 54 72 75 |e);...re|turn Tru|
|00000c10| 65 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |e;..}...|.functio|
|00000c20| 6e 20 62 6f 6f 6c 20 57 | 6f 72 64 4c 65 66 74 28 |n bool W|ordLeft(|
|00000c30| 29 0d 0a 7b 0d 0a 09 77 | 68 69 6c 65 28 43 61 72 |)..{...w|hile(Car|
|00000c40| 65 74 4f 66 66 73 65 74 | 20 3e 20 30 20 26 26 20 |etOffset| > 0 && |
|00000c50| 4d 69 64 28 56 61 6c 75 | 65 2c 20 43 61 72 65 74 |Mid(Valu|e, Caret|
|00000c60| 4f 66 66 73 65 74 20 2d | 20 31 2c 20 31 29 20 3d |Offset -| 1, 1) =|
|00000c70| 3d 20 22 20 22 29 0d 0a | 09 09 43 61 72 65 74 4f |= " ")..|..CaretO|
|00000c80| 66 66 73 65 74 2d 2d 3b | 0d 0a 09 77 68 69 6c 65 |ffset--;|...while|
|00000c90| 28 43 61 72 65 74 4f 66 | 66 73 65 74 20 3e 20 30 |(CaretOf|fset > 0|
|00000ca0| 20 26 26 20 4d 69 64 28 | 56 61 6c 75 65 2c 20 43 | && Mid(|Value, C|
|00000cb0| 61 72 65 74 4f 66 66 73 | 65 74 20 2d 20 31 2c 20 |aretOffs|et - 1, |
|00000cc0| 31 29 20 21 3d 20 22 20 | 22 29 0d 0a 09 09 43 61 |1) != " |")....Ca|
|00000cd0| 72 65 74 4f 66 66 73 65 | 74 2d 2d 3b 0d 0a 0d 0a |retOffse|t--;....|
|00000ce0| 09 4c 61 73 74 44 72 61 | 77 54 69 6d 65 20 3d 20 |.LastDra|wTime = |
|00000cf0| 47 65 74 4c 65 76 65 6c | 28 29 2e 54 69 6d 65 53 |GetLevel|().TimeS|
|00000d00| 65 63 6f 6e 64 73 3b 0d | 0a 09 62 53 68 6f 77 43 |econds;.|..bShowC|
|00000d10| 61 72 65 74 20 3d 20 54 | 72 75 65 3b 0d 0a 0d 0a |aret = T|rue;....|
|00000d20| 09 72 65 74 75 72 6e 20 | 54 72 75 65 3b 0d 0a 7d |.return |True;..}|
|00000d30| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 62 6f 6f |....func|tion boo|
|00000d40| 6c 20 4d 6f 76 65 4c 65 | 66 74 28 29 0d 0a 7b 0d |l MoveLe|ft()..{.|
|00000d50| 0a 09 69 66 28 43 61 72 | 65 74 4f 66 66 73 65 74 |..if(Car|etOffset|
|00000d60| 20 3d 3d 20 30 29 20 72 | 65 74 75 72 6e 20 46 61 | == 0) r|eturn Fa|
|00000d70| 6c 73 65 3b 0d 0a 09 43 | 61 72 65 74 4f 66 66 73 |lse;...C|aretOffs|
|00000d80| 65 74 2d 2d 3b 0d 0a 0d | 0a 09 4c 61 73 74 44 72 |et--;...|..LastDr|
|00000d90| 61 77 54 69 6d 65 20 3d | 20 47 65 74 4c 65 76 65 |awTime =| GetLeve|
|00000da0| 6c 28 29 2e 54 69 6d 65 | 53 65 63 6f 6e 64 73 3b |l().Time|Seconds;|
|00000db0| 0d 0a 09 62 53 68 6f 77 | 43 61 72 65 74 20 3d 20 |...bShow|Caret = |
|00000dc0| 54 72 75 65 3b 0d 0a 0d | 0a 09 72 65 74 75 72 6e |True;...|..return|
|00000dd0| 20 54 72 75 65 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e | True;..|}....fun|
|00000de0| 63 74 69 6f 6e 20 62 6f | 6f 6c 20 4d 6f 76 65 52 |ction bo|ol MoveR|
|00000df0| 69 67 68 74 28 29 0d 0a | 7b 0d 0a 09 69 66 28 43 |ight()..|{...if(C|
|00000e00| 61 72 65 74 4f 66 66 73 | 65 74 20 3d 3d 20 4c 65 |aretOffs|et == Le|
|00000e10| 6e 28 56 61 6c 75 65 29 | 29 20 72 65 74 75 72 6e |n(Value)|) return|
|00000e20| 20 46 61 6c 73 65 3b 0d | 0a 09 43 61 72 65 74 4f | False;.|..CaretO|
|00000e30| 66 66 73 65 74 2b 2b 3b | 0d 0a 0d 0a 09 4c 61 73 |ffset++;|.....Las|
|00000e40| 74 44 72 61 77 54 69 6d | 65 20 3d 20 47 65 74 4c |tDrawTim|e = GetL|
|00000e50| 65 76 65 6c 28 29 2e 54 | 69 6d 65 53 65 63 6f 6e |evel().T|imeSecon|
|00000e60| 64 73 3b 0d 0a 09 62 53 | 68 6f 77 43 61 72 65 74 |ds;...bS|howCaret|
|00000e70| 20 3d 20 54 72 75 65 3b | 0d 0a 0d 0a 09 72 65 74 | = True;|.....ret|
|00000e80| 75 72 6e 20 54 72 75 65 | 3b 0d 0a 7d 0d 0a 0d 0a |urn True|;..}....|
|00000e90| 66 75 6e 63 74 69 6f 6e | 20 62 6f 6f 6c 20 57 6f |function| bool Wo|
|00000ea0| 72 64 52 69 67 68 74 28 | 29 0d 0a 7b 0d 0a 09 77 |rdRight(|)..{...w|
|00000eb0| 68 69 6c 65 28 43 61 72 | 65 74 4f 66 66 73 65 74 |hile(Car|etOffset|
|00000ec0| 20 3c 20 4c 65 6e 28 56 | 61 6c 75 65 29 20 26 26 | < Len(V|alue) &&|
|00000ed0| 20 4d 69 64 28 56 61 6c | 75 65 2c 20 43 61 72 65 | Mid(Val|ue, Care|
|00000ee0| 74 4f 66 66 73 65 74 2c | 20 31 29 20 21 3d 20 22 |tOffset,| 1) != "|
|00000ef0| 20 22 29 0d 0a 09 09 43 | 61 72 65 74 4f 66 66 73 | ")....C|aretOffs|
|00000f00| 65 74 2b 2b 3b 0d 0a 09 | 77 68 69 6c 65 28 43 61 |et++;...|while(Ca|
|00000f10| 72 65 74 4f 66 66 73 65 | 74 20 3c 20 4c 65 6e 28 |retOffse|t < Len(|
|00000f20| 56 61 6c 75 65 29 20 26 | 26 20 4d 69 64 28 56 61 |Value) &|& Mid(Va|
|00000f30| 6c 75 65 2c 20 43 61 72 | 65 74 4f 66 66 73 65 74 |lue, Car|etOffset|
|00000f40| 2c 20 31 29 20 3d 3d 20 | 22 20 22 29 0d 0a 09 09 |, 1) == |" ")....|
|00000f50| 43 61 72 65 74 4f 66 66 | 73 65 74 2b 2b 3b 0d 0a |CaretOff|set++;..|
|00000f60| 0d 0a 09 4c 61 73 74 44 | 72 61 77 54 69 6d 65 20 |...LastD|rawTime |
|00000f70| 3d 20 47 65 74 4c 65 76 | 65 6c 28 29 2e 54 69 6d |= GetLev|el().Tim|
|00000f80| 65 53 65 63 6f 6e 64 73 | 3b 0d 0a 09 62 53 68 6f |eSeconds|;...bSho|
|00000f90| 77 43 61 72 65 74 20 3d | 20 54 72 75 65 3b 0d 0a |wCaret =| True;..|
|00000fa0| 0d 0a 09 72 65 74 75 72 | 6e 20 54 72 75 65 3b 0d |...retur|n True;.|
|00000fb0| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 62 |.}....fu|nction b|
|00000fc0| 6f 6f 6c 20 4d 6f 76 65 | 48 6f 6d 65 28 29 0d 0a |ool Move|Home()..|
|00000fd0| 7b 0d 0a 09 43 61 72 65 | 74 4f 66 66 73 65 74 20 |{...Care|tOffset |
|00000fe0| 3d 20 30 3b 0d 0a 0d 0a | 09 4c 61 73 74 44 72 61 |= 0;....|.LastDra|
|00000ff0| 77 54 69 6d 65 20 3d 20 | 47 65 74 4c 65 76 65 6c |wTime = |GetLevel|
|00001000| 28 29 2e 54 69 6d 65 53 | 65 63 6f 6e 64 73 3b 0d |().TimeS|econds;.|
|00001010| 0a 09 62 53 68 6f 77 43 | 61 72 65 74 20 3d 20 54 |..bShowC|aret = T|
|00001020| 72 75 65 3b 0d 0a 0d 0a | 09 72 65 74 75 72 6e 20 |rue;....|.return |
|00001030| 54 72 75 65 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |True;..}|....func|
|00001040| 74 69 6f 6e 20 62 6f 6f | 6c 20 4d 6f 76 65 45 6e |tion boo|l MoveEn|
|00001050| 64 28 29 0d 0a 7b 0d 0a | 09 43 61 72 65 74 4f 66 |d()..{..|.CaretOf|
|00001060| 66 73 65 74 20 3d 20 4c | 65 6e 28 56 61 6c 75 65 |fset = L|en(Value|
|00001070| 29 3b 0d 0a 0d 0a 09 4c | 61 73 74 44 72 61 77 54 |);.....L|astDrawT|
|00001080| 69 6d 65 20 3d 20 47 65 | 74 4c 65 76 65 6c 28 29 |ime = Ge|tLevel()|
|00001090| 2e 54 69 6d 65 53 65 63 | 6f 6e 64 73 3b 0d 0a 09 |.TimeSec|onds;...|
|000010a0| 62 53 68 6f 77 43 61 72 | 65 74 20 3d 20 54 72 75 |bShowCar|et = Tru|
|000010b0| 65 3b 0d 0a 0d 0a 09 72 | 65 74 75 72 6e 20 54 72 |e;.....r|eturn Tr|
|000010c0| 75 65 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |ue;..}..|..functi|
|000010d0| 6f 6e 20 45 64 69 74 43 | 6f 70 79 28 29 0d 0a 7b |on EditC|opy()..{|
|000010e0| 0d 0a 09 69 66 28 62 41 | 6c 6c 53 65 6c 65 63 74 |...if(bA|llSelect|
|000010f0| 65 64 20 7c 7c 20 21 62 | 43 61 6e 45 64 69 74 29 |ed || !b|CanEdit)|
|00001100| 0d 0a 09 09 47 65 74 50 | 6c 61 79 65 72 4f 77 6e |....GetP|layerOwn|
|00001110| 65 72 28 29 2e 43 6f 70 | 79 54 6f 43 6c 69 70 62 |er().Cop|yToClipb|
|00001120| 6f 61 72 64 28 56 61 6c | 75 65 29 3b 0d 0a 7d 0d |oard(Val|ue);..}.|
|00001130| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 45 64 69 74 |...funct|ion Edit|
|00001140| 50 61 73 74 65 28 29 0d | 0a 7b 0d 0a 09 69 66 28 |Paste().|.{...if(|
|00001150| 62 43 61 6e 45 64 69 74 | 29 0d 0a 09 7b 0d 0a 09 |bCanEdit|)...{...|
|00001160| 09 69 66 28 62 41 6c 6c | 53 65 6c 65 63 74 65 64 |.if(bAll|Selected|
|00001170| 29 0d 0a 09 09 09 43 6c | 65 61 72 28 29 3b 0d 0a |).....Cl|ear();..|
|00001180| 09 09 49 6e 73 65 72 74 | 54 65 78 74 28 47 65 74 |..Insert|Text(Get|
|00001190| 50 6c 61 79 65 72 4f 77 | 6e 65 72 28 29 2e 50 61 |PlayerOw|ner().Pa|
|000011a0| 73 74 65 46 72 6f 6d 43 | 6c 69 70 62 6f 61 72 64 |steFromC|lipboard|
|000011b0| 28 29 29 3b 0d 0a 09 7d | 0d 0a 7d 0d 0a 0d 0a 66 |());...}|..}....f|
|000011c0| 75 6e 63 74 69 6f 6e 20 | 45 64 69 74 43 75 74 28 |unction |EditCut(|
|000011d0| 29 0d 0a 7b 0d 0a 09 69 | 66 28 62 43 61 6e 45 64 |)..{...i|f(bCanEd|
|000011e0| 69 74 29 0d 0a 09 7b 0d | 0a 09 09 69 66 28 62 41 |it)...{.|...if(bA|
|000011f0| 6c 6c 53 65 6c 65 63 74 | 65 64 29 0d 0a 09 09 7b |llSelect|ed)....{|
|00001200| 0d 0a 09 09 09 47 65 74 | 50 6c 61 79 65 72 4f 77 |.....Get|PlayerOw|
|00001210| 6e 65 72 28 29 2e 43 6f | 70 79 54 6f 43 6c 69 70 |ner().Co|pyToClip|
|00001220| 62 6f 61 72 64 28 56 61 | 6c 75 65 29 3b 0d 0a 09 |board(Va|lue);...|
|00001230| 09 09 62 41 6c 6c 53 65 | 6c 65 63 74 65 64 20 3d |..bAllSe|lected =|
|00001240| 20 46 61 6c 73 65 3b 0d | 0a 09 09 09 43 6c 65 61 | False;.|....Clea|
|00001250| 72 28 29 3b 0d 0a 09 09 | 7d 0d 0a 09 7d 0d 0a 09 |r();....|}...}...|
|00001260| 65 6c 73 65 0d 0a 09 09 | 45 64 69 74 43 6f 70 79 |else....|EditCopy|
|00001270| 28 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |();..}..|..functi|
|00001280| 6f 6e 20 4b 65 79 54 79 | 70 65 28 20 45 49 6e 70 |on KeyTy|pe( EInp|
|00001290| 75 74 4b 65 79 20 4b 65 | 79 2c 20 66 6c 6f 61 74 |utKey Ke|y, float|
|000012a0| 20 4d 6f 75 73 65 58 2c | 20 66 6c 6f 61 74 20 4d | MouseX,| float M|
|000012b0| 6f 75 73 65 59 20 29 0d | 0a 7b 0d 0a 09 69 66 28 |ouseY ).|.{...if(|
|000012c0| 62 43 61 6e 45 64 69 74 | 20 26 26 20 62 4b 65 79 |bCanEdit| && bKey|
|000012d0| 44 6f 77 6e 29 0d 0a 09 | 7b 0d 0a 09 09 69 66 28 |Down)...|{....if(|
|000012e0| 20 21 62 43 6f 6e 74 72 | 6f 6c 44 6f 77 6e 20 29 | !bContr|olDown )|
|000012f0| 0d 0a 09 09 7b 0d 0a 09 | 09 09 69 66 28 62 41 6c |....{...|..if(bAl|
|00001300| 6c 53 65 6c 65 63 74 65 | 64 29 0d 0a 09 09 09 09 |lSelecte|d)......|
|00001310| 43 6c 65 61 72 28 29 3b | 0d 0a 0d 0a 09 09 09 62 |Clear();|.......b|
|00001320| 41 6c 6c 53 65 6c 65 63 | 74 65 64 20 3d 20 46 61 |AllSelec|ted = Fa|
|00001330| 6c 73 65 3b 0d 0a 0d 0a | 09 09 09 69 66 28 62 4e |lse;....|...if(bN|
|00001340| 75 6d 65 72 69 63 4f 6e | 6c 79 29 0d 0a 09 09 09 |umericOn|ly).....|
|00001350| 7b 0d 0a 09 09 09 09 2f | 2f 69 66 28 20 4b 65 79 |{....../|/if( Key|
|00001360| 3e 3d 30 78 33 30 20 26 | 26 20 4b 65 79 3c 3d 30 |>=0x30 &|& Key<=0|
|00001370| 78 33 39 20 29 0d 0a 09 | 09 09 09 69 66 28 4b 65 |x39 )...|...if(Ke|
|00001380| 79 20 3e 3d 20 45 49 6e | 70 75 74 4b 65 79 2e 49 |y >= EIn|putKey.I|
|00001390| 4b 5f 30 20 26 26 20 4b | 65 79 20 3c 3d 20 45 49 |K_0 && K|ey <= EI|
|000013a0| 6e 70 75 74 4b 65 79 2e | 49 4b 5f 39 29 0d 0a 09 |nputKey.|IK_9)...|
|000013b0| 09 09 09 7b 0d 0a 09 09 | 09 09 09 49 6e 73 65 72 |...{....|...Inser|
|000013c0| 74 28 4b 65 79 29 3b 0d | 0a 09 09 09 09 7d 0d 0a |t(Key);.|.....}..|
|000013d0| 09 09 09 7d 0d 0a 09 09 | 09 65 6c 73 65 0d 0a 09 |...}....|.else...|
|000013e0| 09 09 7b 0d 0a 09 09 09 | 09 2f 2f 69 66 28 20 4b |..{.....|.//if( K|
|000013f0| 65 79 3e 3d 30 78 32 30 | 20 26 26 20 4b 65 79 3c |ey>=0x20| && Key<|
|00001400| 30 78 38 30 20 29 0d 0a | 09 09 09 09 69 66 28 4b |0x80 )..|....if(K|
|00001410| 65 79 20 3e 3d 20 45 49 | 6e 70 75 74 4b 65 79 2e |ey >= EI|nputKey.|
|00001420| 49 4b 5f 53 70 61 63 65 | 20 26 26 20 4b 65 79 20 |IK_Space| && Key |
|00001430| 3c 3d 20 49 4b 5f 46 31 | 32 29 0d 0a 09 09 09 09 |<= IK_F1|2)......|
|00001440| 7b 0d 0a 09 09 09 09 09 | 49 6e 73 65 72 74 28 4b |{.......|Insert(K|
|00001450| 65 79 29 3b 0d 0a 09 09 | 09 09 7d 0d 0a 09 09 09 |ey);....|..}.....|
|00001460| 7d 0d 0a 09 09 7d 0d 0a | 09 7d 0d 0a 7d 0d 0a 0d |}....}..|.}..}...|
|00001470| 0a 66 75 6e 63 74 69 6f | 6e 20 4b 65 79 55 70 28 |.functio|n KeyUp(|
|00001480| 45 49 6e 70 75 74 4b 65 | 79 20 4b 65 79 2c 20 66 |EInputKe|y Key, f|
|00001490| 6c 6f 61 74 20 58 2c 20 | 66 6c 6f 61 74 20 59 29 |loat X, |float Y)|
|000014a0| 0d 0a 7b 0d 0a 09 6c 6f | 63 61 6c 20 50 6c 61 79 |..{...lo|cal Play|
|000014b0| 65 72 50 61 77 6e 20 50 | 3b 0d 0a 09 62 4b 65 79 |erPawn P|;...bKey|
|000014c0| 44 6f 77 6e 20 3d 20 46 | 61 6c 73 65 3b 0d 0a 09 |Down = F|alse;...|
|000014d0| 50 20 3d 20 47 65 74 50 | 6c 61 79 65 72 4f 77 6e |P = GetP|layerOwn|
|000014e0| 65 72 28 29 3b 0d 0a 09 | 73 77 69 74 63 68 20 28 |er();...|switch (|
|000014f0| 4b 65 79 29 0d 0a 09 7b | 0d 0a 09 63 61 73 65 20 |Key)...{|...case |
|00001500| 50 2e 45 49 6e 70 75 74 | 4b 65 79 2e 49 4b 5f 43 |P.EInput|Key.IK_C|
|00001510| 74 72 6c 3a 0d 0a 09 09 | 62 43 6f 6e 74 72 6f 6c |trl:....|bControl|
|00001520| 44 6f 77 6e 20 3d 20 46 | 61 6c 73 65 3b 0d 0a 09 |Down = F|alse;...|
|00001530| 09 62 72 65 61 6b 3b 0d | 0a 09 63 61 73 65 20 50 |.break;.|..case P|
|00001540| 2e 45 49 6e 70 75 74 4b | 65 79 2e 49 4b 5f 53 68 |.EInputK|ey.IK_Sh|
|00001550| 69 66 74 3a 0d 0a 09 09 | 62 53 68 69 66 74 44 6f |ift:....|bShiftDo|
|00001560| 77 6e 20 3d 20 46 61 6c | 73 65 3b 0d 0a 09 09 62 |wn = Fal|se;....b|
|00001570| 72 65 61 6b 3b 0d 0a 09 | 7d 0d 0a 7d 0d 0a 0d 0a |reak;...|}..}....|
|00001580| 66 75 6e 63 74 69 6f 6e | 20 4b 65 79 44 6f 77 6e |function| KeyDown|
|00001590| 28 45 49 6e 70 75 74 4b | 65 79 20 4b 65 79 2c 20 |(EInputK|ey Key, |
|000015a0| 66 6c 6f 61 74 20 58 2c | 20 66 6c 6f 61 74 20 59 |float X,| float Y|
|000015b0| 29 0d 0a 7b 0d 0a 09 6c | 6f 63 61 6c 20 50 6c 61 |)..{...l|ocal Pla|
|000015c0| 79 65 72 50 61 77 6e 20 | 50 3b 0d 0a 0d 0a 09 62 |yerPawn |P;.....b|
|000015d0| 4b 65 79 44 6f 77 6e 20 | 3d 20 54 72 75 65 3b 0d |KeyDown |= True;.|
|000015e0| 0a 09 50 20 3d 20 47 65 | 74 50 6c 61 79 65 72 4f |..P = Ge|tPlayerO|
|000015f0| 77 6e 65 72 28 29 3b 0d | 0a 0d 0a 09 73 77 69 74 |wner();.|....swit|
|00001600| 63 68 20 28 4b 65 79 29 | 0d 0a 09 7b 0d 0a 09 63 |ch (Key)|...{...c|
|00001610| 61 73 65 20 50 2e 45 49 | 6e 70 75 74 4b 65 79 2e |ase P.EI|nputKey.|
|00001620| 49 4b 5f 43 74 72 6c 3a | 0d 0a 09 09 62 43 6f 6e |IK_Ctrl:|....bCon|
|00001630| 74 72 6f 6c 44 6f 77 6e | 20 3d 20 54 72 75 65 3b |trolDown| = True;|
|00001640| 0d 0a 09 09 62 72 65 61 | 6b 3b 0d 0a 09 63 61 73 |....brea|k;...cas|
|00001650| 65 20 50 2e 45 49 6e 70 | 75 74 4b 65 79 2e 49 4b |e P.EInp|utKey.IK|
|00001660| 5f 53 68 69 66 74 3a 0d | 0a 09 09 62 53 68 69 66 |_Shift:.|...bShif|
|00001670| 74 44 6f 77 6e 20 3d 20 | 54 72 75 65 3b 0d 0a 09 |tDown = |True;...|
|00001680| 09 62 72 65 61 6b 3b 0d | 0a 09 63 61 73 65 20 50 |.break;.|..case P|
|00001690| 2e 45 49 6e 70 75 74 4b | 65 79 2e 49 4b 5f 45 73 |.EInputK|ey.IK_Es|
|000016a0| 63 61 70 65 3a 0d 0a 09 | 09 62 72 65 61 6b 3b 0d |cape:...|.break;.|
|000016b0| 0a 09 63 61 73 65 20 50 | 2e 45 49 6e 70 75 74 4b |..case P|.EInputK|
|000016c0| 65 79 2e 49 4b 5f 45 6e | 74 65 72 3a 0d 0a 09 09 |ey.IK_En|ter:....|
|000016d0| 69 66 28 62 43 61 6e 45 | 64 69 74 29 0d 0a 09 09 |if(bCanE|dit)....|
|000016e0| 7b 0d 0a 09 09 09 69 66 | 28 62 48 69 73 74 6f 72 |{.....if|(bHistor|
|000016f0| 79 29 0d 0a 09 09 09 7b | 0d 0a 09 09 09 09 69 66 |y).....{|......if|
|00001700| 28 56 61 6c 75 65 20 21 | 3d 20 22 22 29 0d 0a 09 |(Value !|= "")...|
|00001710| 09 09 09 7b 0d 0a 09 09 | 09 09 09 43 75 72 72 65 |...{....|...Curre|
|00001720| 6e 74 48 69 73 74 6f 72 | 79 20 3d 20 55 57 69 6e |ntHistor|y = UWin|
|00001730| 64 6f 77 45 64 69 74 42 | 6f 78 48 69 73 74 6f 72 |dowEditB|oxHistor|
|00001740| 79 28 48 69 73 74 6f 72 | 79 4c 69 73 74 2e 49 6e |y(Histor|yList.In|
|00001750| 73 65 72 74 28 63 6c 61 | 73 73 27 55 57 69 6e 64 |sert(cla|ss'UWind|
|00001760| 6f 77 45 64 69 74 42 6f | 78 48 69 73 74 6f 72 79 |owEditBo|xHistory|
|00001770| 27 29 29 3b 0d 0a 09 09 | 09 09 09 43 75 72 72 65 |'));....|...Curre|
|00001780| 6e 74 48 69 73 74 6f 72 | 79 2e 48 69 73 74 6f 72 |ntHistor|y.Histor|
|00001790| 79 54 65 78 74 20 3d 20 | 56 61 6c 75 65 3b 0d 0a |yText = |Value;..|
|000017a0| 09 09 09 09 7d 0d 0a 09 | 09 09 09 43 75 72 72 65 |....}...|...Curre|
|000017b0| 6e 74 48 69 73 74 6f 72 | 79 20 3d 20 48 69 73 74 |ntHistor|y = Hist|
|000017c0| 6f 72 79 4c 69 73 74 3b | 0d 0a 09 09 09 7d 0d 0a |oryList;|.....}..|
|000017d0| 09 09 09 4e 6f 74 69 66 | 79 28 44 45 5f 45 6e 74 |...Notif|y(DE_Ent|
|000017e0| 65 72 50 72 65 73 73 65 | 64 29 3b 0d 0a 09 09 7d |erPresse|d);....}|
|000017f0| 0d 0a 09 09 62 72 65 61 | 6b 3b 0d 0a 09 63 61 73 |....brea|k;...cas|
|00001800| 65 20 50 2e 45 49 6e 70 | 75 74 4b 65 79 2e 49 4b |e P.EInp|utKey.IK|
|00001810| 5f 4d 6f 75 73 65 57 68 | 65 65 6c 55 70 3a 0d 0a |_MouseWh|eelUp:..|
|00001820| 09 09 69 66 28 62 43 61 | 6e 45 64 69 74 29 0d 0a |..if(bCa|nEdit)..|
|00001830| 09 09 09 4e 6f 74 69 66 | 79 28 44 45 5f 57 68 65 |...Notif|y(DE_Whe|
|00001840| 65 6c 55 70 50 72 65 73 | 73 65 64 29 3b 0d 0a 09 |elUpPres|sed);...|
|00001850| 09 62 72 65 61 6b 3b 0d | 0a 09 63 61 73 65 20 50 |.break;.|..case P|
|00001860| 2e 45 49 6e 70 75 74 4b | 65 79 2e 49 4b 5f 4d 6f |.EInputK|ey.IK_Mo|
|00001870| 75 73 65 57 68 65 65 6c | 44 6f 77 6e 3a 0d 0a 09 |useWheel|Down:...|
|00001880| 09 69 66 28 62 43 61 6e | 45 64 69 74 29 0d 0a 09 |.if(bCan|Edit)...|
|00001890| 09 09 4e 6f 74 69 66 79 | 28 44 45 5f 57 68 65 65 |..Notify|(DE_Whee|
|000018a0| 6c 44 6f 77 6e 50 72 65 | 73 73 65 64 29 3b 0d 0a |lDownPre|ssed);..|
|000018b0| 09 09 62 72 65 61 6b 3b | 0d 0a 0d 0a 09 63 61 73 |..break;|.....cas|
|000018c0| 65 20 50 2e 45 49 6e 70 | 75 74 4b 65 79 2e 49 4b |e P.EInp|utKey.IK|
|000018d0| 5f 52 69 67 68 74 3a 0d | 0a 09 09 69 66 28 62 43 |_Right:.|...if(bC|
|000018e0| 61 6e 45 64 69 74 29 0d | 0a 09 09 7b 0d 0a 09 09 |anEdit).|...{....|
|000018f0| 09 69 66 28 62 43 6f 6e | 74 72 6f 6c 44 6f 77 6e |.if(bCon|trolDown|
|00001900| 29 0d 0a 09 09 09 09 57 | 6f 72 64 52 69 67 68 74 |)......W|ordRight|
|00001910| 28 29 3b 0d 0a 09 09 09 | 65 6c 73 65 0d 0a 09 09 |();.....|else....|
|00001920| 09 09 4d 6f 76 65 52 69 | 67 68 74 28 29 3b 0d 0a |..MoveRi|ght();..|
|00001930| 09 09 7d 0d 0a 09 09 62 | 41 6c 6c 53 65 6c 65 63 |..}....b|AllSelec|
|00001940| 74 65 64 20 3d 20 46 61 | 6c 73 65 3b 0d 0a 09 09 |ted = Fa|lse;....|
|00001950| 62 72 65 61 6b 3b 0d 0a | 09 63 61 73 65 20 50 2e |break;..|.case P.|
|00001960| 45 49 6e 70 75 74 4b 65 | 79 2e 49 4b 5f 4c 65 66 |EInputKe|y.IK_Lef|
|00001970| 74 3a 0d 0a 09 09 69 66 | 28 62 43 61 6e 45 64 69 |t:....if|(bCanEdi|
|00001980| 74 29 0d 0a 09 09 7b 0d | 0a 09 09 09 69 66 28 62 |t)....{.|....if(b|
|00001990| 43 6f 6e 74 72 6f 6c 44 | 6f 77 6e 29 0d 0a 09 09 |ControlD|own)....|
|000019a0| 09 09 57 6f 72 64 4c 65 | 66 74 28 29 3b 0d 0a 09 |..WordLe|ft();...|
|000019b0| 09 09 65 6c 73 65 0d 0a | 09 09 09 09 4d 6f 76 65 |..else..|....Move|
|000019c0| 4c 65 66 74 28 29 3b 0d | 0a 09 09 7d 0d 0a 09 09 |Left();.|...}....|
|000019d0| 62 41 6c 6c 53 65 6c 65 | 63 74 65 64 20 3d 20 46 |bAllSele|cted = F|
|000019e0| 61 6c 73 65 3b 0d 0a 09 | 09 62 72 65 61 6b 3b 0d |alse;...|.break;.|
|000019f0| 0a 09 63 61 73 65 20 50 | 2e 45 49 6e 70 75 74 4b |..case P|.EInputK|
|00001a00| 65 79 2e 49 4b 5f 55 70 | 3a 0d 0a 09 09 69 66 28 |ey.IK_Up|:....if(|
|00001a10| 62 43 61 6e 45 64 69 74 | 20 26 26 20 62 48 69 73 |bCanEdit| && bHis|
|00001a20| 74 6f 72 79 29 0d 0a 09 | 09 7b 0d 0a 09 09 09 62 |tory)...|.{.....b|
|00001a30| 41 6c 6c 53 65 6c 65 63 | 74 65 64 20 3d 20 46 61 |AllSelec|ted = Fa|
|00001a40| 6c 73 65 3b 0d 0a 09 09 | 09 69 66 28 43 75 72 72 |lse;....|.if(Curr|
|00001a50| 65 6e 74 48 69 73 74 6f | 72 79 20 21 3d 20 4e 6f |entHisto|ry != No|
|00001a60| 6e 65 20 26 26 20 43 75 | 72 72 65 6e 74 48 69 73 |ne && Cu|rrentHis|
|00001a70| 74 6f 72 79 2e 4e 65 78 | 74 20 21 3d 20 4e 6f 6e |tory.Nex|t != Non|
|00001a80| 65 29 0d 0a 09 09 09 7b | 0d 0a 09 09 09 09 43 75 |e).....{|......Cu|
|00001a90| 72 72 65 6e 74 48 69 73 | 74 6f 72 79 20 3d 20 55 |rrentHis|tory = U|
|00001aa0| 57 69 6e 64 6f 77 45 64 | 69 74 42 6f 78 48 69 73 |WindowEd|itBoxHis|
|00001ab0| 74 6f 72 79 28 43 75 72 | 72 65 6e 74 48 69 73 74 |tory(Cur|rentHist|
|00001ac0| 6f 72 79 2e 4e 65 78 74 | 29 3b 0d 0a 09 09 09 09 |ory.Next|);......|
|00001ad0| 53 65 74 56 61 6c 75 65 | 28 43 75 72 72 65 6e 74 |SetValue|(Current|
|00001ae0| 48 69 73 74 6f 72 79 2e | 48 69 73 74 6f 72 79 54 |History.|HistoryT|
|00001af0| 65 78 74 29 3b 0d 0a 09 | 09 09 09 4d 6f 76 65 45 |ext);...|...MoveE|
|00001b00| 6e 64 28 29 3b 0d 0a 09 | 09 09 7d 0d 0a 09 09 7d |nd();...|..}....}|
|00001b10| 0d 0a 09 09 62 72 65 61 | 6b 3b 0d 0a 09 63 61 73 |....brea|k;...cas|
|00001b20| 65 20 50 2e 45 49 6e 70 | 75 74 4b 65 79 2e 49 4b |e P.EInp|utKey.IK|
|00001b30| 5f 44 6f 77 6e 3a 0d 0a | 09 09 69 66 28 62 43 61 |_Down:..|..if(bCa|
|00001b40| 6e 45 64 69 74 20 26 26 | 20 62 48 69 73 74 6f 72 |nEdit &&| bHistor|
|00001b50| 79 29 0d 0a 09 09 7b 0d | 0a 09 09 09 62 41 6c 6c |y)....{.|....bAll|
|00001b60| 53 65 6c 65 63 74 65 64 | 20 3d 20 46 61 6c 73 65 |Selected| = False|
|00001b70| 3b 0d 0a 09 09 09 69 66 | 28 43 75 72 72 65 6e 74 |;.....if|(Current|
|00001b80| 48 69 73 74 6f 72 79 20 | 21 3d 20 4e 6f 6e 65 20 |History |!= None |
|00001b90| 26 26 20 43 75 72 72 65 | 6e 74 48 69 73 74 6f 72 |&& Curre|ntHistor|
|00001ba0| 79 2e 50 72 65 76 20 21 | 3d 20 4e 6f 6e 65 29 0d |y.Prev !|= None).|
|00001bb0| 0a 09 09 09 7b 0d 0a 09 | 09 09 09 43 75 72 72 65 |....{...|...Curre|
|00001bc0| 6e 74 48 69 73 74 6f 72 | 79 20 3d 20 55 57 69 6e |ntHistor|y = UWin|
|00001bd0| 64 6f 77 45 64 69 74 42 | 6f 78 48 69 73 74 6f 72 |dowEditB|oxHistor|
|00001be0| 79 28 43 75 72 72 65 6e | 74 48 69 73 74 6f 72 79 |y(Curren|tHistory|
|00001bf0| 2e 50 72 65 76 29 3b 0d | 0a 09 09 09 09 53 65 74 |.Prev);.|.....Set|
|00001c00| 56 61 6c 75 65 28 43 75 | 72 72 65 6e 74 48 69 73 |Value(Cu|rrentHis|
|00001c10| 74 6f 72 79 2e 48 69 73 | 74 6f 72 79 54 65 78 74 |tory.His|toryText|
|00001c20| 29 3b 0d 0a 09 09 09 09 | 4d 6f 76 65 45 6e 64 28 |);......|MoveEnd(|
|00001c30| 29 3b 0d 0a 09 09 09 7d | 0d 0a 09 09 7d 0d 0a 09 |);.....}|....}...|
|00001c40| 09 62 72 65 61 6b 3b 0d | 0a 09 63 61 73 65 20 50 |.break;.|..case P|
|00001c50| 2e 45 49 6e 70 75 74 4b | 65 79 2e 49 4b 5f 48 6f |.EInputK|ey.IK_Ho|
|00001c60| 6d 65 3a 0d 0a 09 09 69 | 66 28 62 43 61 6e 45 64 |me:....i|f(bCanEd|
|00001c70| 69 74 29 0d 0a 09 09 09 | 4d 6f 76 65 48 6f 6d 65 |it).....|MoveHome|
|00001c80| 28 29 3b 0d 0a 09 09 62 | 41 6c 6c 53 65 6c 65 63 |();....b|AllSelec|
|00001c90| 74 65 64 20 3d 20 46 61 | 6c 73 65 3b 0d 0a 09 09 |ted = Fa|lse;....|
|00001ca0| 62 72 65 61 6b 3b 0d 0a | 09 63 61 73 65 20 50 2e |break;..|.case P.|
|00001cb0| 45 49 6e 70 75 74 4b 65 | 79 2e 49 4b 5f 45 6e 64 |EInputKe|y.IK_End|
|00001cc0| 3a 0d 0a 09 09 69 66 28 | 62 43 61 6e 45 64 69 74 |:....if(|bCanEdit|
|00001cd0| 29 0d 0a 09 09 09 4d 6f | 76 65 45 6e 64 28 29 3b |).....Mo|veEnd();|
|00001ce0| 0d 0a 09 09 62 41 6c 6c | 53 65 6c 65 63 74 65 64 |....bAll|Selected|
|00001cf0| 20 3d 20 46 61 6c 73 65 | 3b 0d 0a 09 09 62 72 65 | = False|;....bre|
|00001d00| 61 6b 3b 0d 0a 09 63 61 | 73 65 20 50 2e 45 49 6e |ak;...ca|se P.EIn|
|00001d10| 70 75 74 4b 65 79 2e 49 | 4b 5f 42 61 63 6b 73 70 |putKey.I|K_Backsp|
|00001d20| 61 63 65 3a 0d 0a 09 09 | 69 66 28 62 43 61 6e 45 |ace:....|if(bCanE|
|00001d30| 64 69 74 29 0d 0a 09 09 | 7b 0d 0a 09 09 09 69 66 |dit)....|{.....if|
|00001d40| 28 62 41 6c 6c 53 65 6c | 65 63 74 65 64 29 0d 0a |(bAllSel|ected)..|
|00001d50| 09 09 09 09 43 6c 65 61 | 72 28 29 3b 0d 0a 09 09 |....Clea|r();....|
|00001d60| 09 65 6c 73 65 0d 0a 09 | 09 09 09 42 61 63 6b 73 |.else...|...Backs|
|00001d70| 70 61 63 65 28 29 3b 0d | 0a 09 09 7d 0d 0a 09 09 |pace();.|...}....|
|00001d80| 62 41 6c 6c 53 65 6c 65 | 63 74 65 64 20 3d 20 46 |bAllSele|cted = F|
|00001d90| 61 6c 73 65 3b 0d 0a 09 | 09 62 72 65 61 6b 3b 0d |alse;...|.break;.|
|00001da0| 0a 09 63 61 73 65 20 50 | 2e 45 49 6e 70 75 74 4b |..case P|.EInputK|
|00001db0| 65 79 2e 49 4b 5f 44 65 | 6c 65 74 65 3a 0d 0a 09 |ey.IK_De|lete:...|
|00001dc0| 09 69 66 28 62 43 61 6e | 45 64 69 74 29 0d 0a 09 |.if(bCan|Edit)...|
|00001dd0| 09 7b 0d 0a 09 09 09 69 | 66 28 62 41 6c 6c 53 65 |.{.....i|f(bAllSe|
|00001de0| 6c 65 63 74 65 64 29 0d | 0a 09 09 09 09 43 6c 65 |lected).|.....Cle|
|00001df0| 61 72 28 29 3b 0d 0a 09 | 09 09 65 6c 73 65 0d 0a |ar();...|..else..|
|00001e00| 09 09 09 09 44 65 6c 65 | 74 65 28 29 3b 0d 0a 09 |....Dele|te();...|
|00001e10| 09 7d 0d 0a 09 09 62 41 | 6c 6c 53 65 6c 65 63 74 |.}....bA|llSelect|
|00001e20| 65 64 20 3d 20 46 61 6c | 73 65 3b 0d 0a 09 09 62 |ed = Fal|se;....b|
|00001e30| 72 65 61 6b 3b 0d 0a 09 | 63 61 73 65 20 50 2e 45 |reak;...|case P.E|
|00001e40| 49 6e 70 75 74 4b 65 79 | 2e 49 4b 5f 50 65 72 69 |InputKey|.IK_Peri|
|00001e50| 6f 64 3a 0d 0a 09 63 61 | 73 65 20 50 2e 45 49 6e |od:...ca|se P.EIn|
|00001e60| 70 75 74 4b 65 79 2e 49 | 4b 5f 4e 75 6d 50 61 64 |putKey.I|K_NumPad|
|00001e70| 50 65 72 69 6f 64 3a 0d | 0a 09 09 69 66 20 28 62 |Period:.|...if (b|
|00001e80| 4e 75 6d 65 72 69 63 46 | 6c 6f 61 74 29 0d 0a 09 |NumericF|loat)...|
|00001e90| 09 09 49 6e 73 65 72 74 | 28 41 73 63 28 22 2e 22 |..Insert|(Asc("."|
|00001ea0| 29 29 3b 0d 0a 09 09 62 | 72 65 61 6b 3b 0d 0a 09 |));....b|reak;...|
|00001eb0| 63 61 73 65 20 50 2e 45 | 49 6e 70 75 74 4b 65 79 |case P.E|InputKey|
|00001ec0| 2e 49 4b 5f 4d 69 6e 75 | 73 3a 0d 0a 09 63 61 73 |.IK_Minu|s:...cas|
|00001ed0| 65 20 50 2e 45 49 6e 70 | 75 74 4b 65 79 2e 49 4b |e P.EInp|utKey.IK|
|00001ee0| 5f 47 72 65 79 4d 69 6e | 75 73 3a 0d 0a 09 09 69 |_GreyMin|us:....i|
|00001ef0| 66 20 28 20 21 62 53 68 | 69 66 74 44 6f 77 6e 20 |f ( !bSh|iftDown |
|00001f00| 26 26 20 28 20 62 4e 75 | 6d 65 72 69 63 4f 6e 6c |&& ( bNu|mericOnl|
|00001f10| 79 20 7c 7c 20 62 4e 75 | 6d 65 72 69 63 46 6c 6f |y || bNu|mericFlo|
|00001f20| 61 74 20 29 20 29 0d 0a | 09 09 09 49 6e 73 65 72 |at ) )..|...Inser|
|00001f30| 74 28 20 41 73 63 28 20 | 22 2d 22 20 29 20 29 3b |t( Asc( |"-" ) );|
|00001f40| 0d 0a 09 09 62 72 65 61 | 6b 3b 0d 0a 09 64 65 66 |....brea|k;...def|
|00001f50| 61 75 6c 74 3a 0d 0a 09 | 09 69 66 28 20 62 43 6f |ault:...|.if( bCo|
|00001f60| 6e 74 72 6f 6c 44 6f 77 | 6e 20 29 0d 0a 09 09 7b |ntrolDow|n )....{|
|00001f70| 0d 0a 09 09 09 69 66 28 | 20 4b 65 79 20 3d 3d 20 |.....if(| Key == |
|00001f80| 41 73 63 28 22 63 22 29 | 20 7c 7c 20 4b 65 79 20 |Asc("c")| || Key |
|00001f90| 3d 3d 20 41 73 63 28 22 | 43 22 29 29 0d 0a 09 09 |== Asc("|C"))....|
|00001fa0| 09 09 45 64 69 74 43 6f | 70 79 28 29 3b 0d 0a 0d |..EditCo|py();...|
|00001fb0| 0a 09 09 09 69 66 28 20 | 4b 65 79 20 3d 3d 20 41 |....if( |Key == A|
|00001fc0| 73 63 28 22 76 22 29 20 | 7c 7c 20 4b 65 79 20 3d |sc("v") ||| Key =|
|00001fd0| 3d 20 41 73 63 28 22 56 | 22 29 29 0d 0a 09 09 09 |= Asc("V|")).....|
|00001fe0| 09 45 64 69 74 50 61 73 | 74 65 28 29 3b 0d 0a 0d |.EditPas|te();...|
|00001ff0| 0a 09 09 09 69 66 28 20 | 4b 65 79 20 3d 3d 20 41 |....if( |Key == A|
|00002000| 73 63 28 22 78 22 29 20 | 7c 7c 20 4b 65 79 20 3d |sc("x") ||| Key =|
|00002010| 3d 20 41 73 63 28 22 58 | 22 29 29 0d 0a 09 09 09 |= Asc("X|")).....|
|00002020| 09 45 64 69 74 43 75 74 | 28 29 3b 0d 0a 09 09 7d |.EditCut|();....}|
|00002030| 0d 0a 09 09 65 6c 73 65 | 0d 0a 09 09 7b 0d 0a 09 |....else|....{...|
|00002040| 09 09 69 66 28 4e 6f 74 | 69 66 79 4f 77 6e 65 72 |..if(Not|ifyOwner|
|00002050| 20 21 3d 20 4e 6f 6e 65 | 29 0d 0a 09 09 09 09 4e | != None|)......N|
|00002060| 6f 74 69 66 79 4f 77 6e | 65 72 2e 4b 65 79 44 6f |otifyOwn|er.KeyDo|
|00002070| 77 6e 28 4b 65 79 2c 20 | 58 2c 20 59 29 3b 0d 0a |wn(Key, |X, Y);..|
|00002080| 09 09 09 65 6c 73 65 0d | 0a 09 09 09 09 53 75 70 |...else.|.....Sup|
|00002090| 65 72 2e 4b 65 79 44 6f | 77 6e 28 4b 65 79 2c 20 |er.KeyDo|wn(Key, |
|000020a0| 58 2c 20 59 29 3b 0d 0a | 09 09 7d 0d 0a 09 09 62 |X, Y);..|..}....b|
|000020b0| 72 65 61 6b 3b 0d 0a 09 | 7d 0d 0a 7d 0d 0a 0d 0a |reak;...|}..}....|
|000020c0| 66 75 6e 63 74 69 6f 6e | 20 43 6c 69 63 6b 28 66 |function| Click(f|
|000020d0| 6c 6f 61 74 20 58 2c 20 | 66 6c 6f 61 74 20 59 29 |loat X, |float Y)|
|000020e0| 0d 0a 7b 0d 0a 09 4e 6f | 74 69 66 79 28 44 45 5f |..{...No|tify(DE_|
|000020f0| 43 6c 69 63 6b 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |Click);.|.}....fu|
|00002100| 6e 63 74 69 6f 6e 20 4c | 4d 6f 75 73 65 44 6f 77 |nction L|MouseDow|
|00002110| 6e 28 66 6c 6f 61 74 20 | 58 2c 20 66 6c 6f 61 74 |n(float |X, float|
|00002120| 20 59 29 0d 0a 7b 0d 0a | 09 53 75 70 65 72 2e 4c | Y)..{..|.Super.L|
|00002130| 4d 6f 75 73 65 44 6f 77 | 6e 28 58 2c 20 59 29 3b |MouseDow|n(X, Y);|
|00002140| 0d 0a 09 4e 6f 74 69 66 | 79 28 44 45 5f 4c 4d 6f |...Notif|y(DE_LMo|
|00002150| 75 73 65 44 6f 77 6e 29 | 3b 0d 0a 7d 0d 0a 0d 0a |useDown)|;..}....|
|00002160| 66 75 6e 63 74 69 6f 6e | 20 50 61 69 6e 74 28 43 |function| Paint(C|
|00002170| 61 6e 76 61 73 20 43 2c | 20 66 6c 6f 61 74 20 58 |anvas C,| float X|
|00002180| 2c 20 66 6c 6f 61 74 20 | 59 29 0d 0a 7b 0d 0a 09 |, float |Y)..{...|
|00002190| 6c 6f 63 61 6c 20 66 6c | 6f 61 74 20 57 2c 20 48 |local fl|oat W, H|
|000021a0| 3b 0d 0a 09 6c 6f 63 61 | 6c 20 66 6c 6f 61 74 20 |;...loca|l float |
|000021b0| 54 65 78 74 59 3b 0d 0a | 0d 0a 09 43 2e 46 6f 6e |TextY;..|...C.Fon|
|000021c0| 74 20 3d 20 52 6f 6f 74 | 2e 46 6f 6e 74 73 5b 46 |t = Root|.Fonts[F|
|000021d0| 6f 6e 74 5d 3b 0d 0a 0d | 0a 09 54 65 78 74 53 69 |ont];...|..TextSi|
|000021e0| 7a 65 28 43 2c 20 22 41 | 22 2c 20 57 2c 20 48 29 |ze(C, "A|", W, H)|
|000021f0| 3b 0d 0a 09 54 65 78 74 | 59 20 3d 20 28 57 69 6e |;...Text|Y = (Win|
|00002200| 48 65 69 67 68 74 20 2d | 20 48 29 20 2f 20 32 3b |Height -| H) / 2;|
|00002210| 0d 0a 0d 0a 09 54 65 78 | 74 53 69 7a 65 28 43 2c |.....Tex|tSize(C,|
|00002220| 20 4c 65 66 74 28 56 61 | 6c 75 65 2c 20 43 61 72 | Left(Va|lue, Car|
|00002230| 65 74 4f 66 66 73 65 74 | 29 2c 20 57 2c 20 48 29 |etOffset|), W, H)|
|00002240| 3b 0d 0a 0d 0a 09 43 2e | 44 72 61 77 43 6f 6c 6f |;.....C.|DrawColo|
|00002250| 72 2e 52 20 3d 20 32 35 | 35 3b 0d 0a 09 43 2e 44 |r.R = 25|5;...C.D|
|00002260| 72 61 77 43 6f 6c 6f 72 | 2e 47 20 3d 20 32 35 35 |rawColor|.G = 255|
|00002270| 3b 0d 0a 09 43 2e 44 72 | 61 77 43 6f 6c 6f 72 2e |;...C.Dr|awColor.|
|00002280| 42 20 3d 20 32 35 35 3b | 0d 0a 0d 0a 09 69 66 28 |B = 255;|.....if(|
|00002290| 57 20 2b 20 4f 66 66 73 | 65 74 20 3c 20 30 29 0d |W + Offs|et < 0).|
|000022a0| 0a 09 09 4f 66 66 73 65 | 74 20 3d 20 2d 57 3b 0d |...Offse|t = -W;.|
|000022b0| 0a 0d 0a 09 69 66 28 57 | 20 2b 20 4f 66 66 73 65 |....if(W| + Offse|
|000022c0| 74 20 3e 20 28 57 69 6e | 57 69 64 74 68 20 2d 20 |t > (Win|Width - |
|000022d0| 32 29 29 0d 0a 09 7b 0d | 0a 09 09 4f 66 66 73 65 |2))...{.|...Offse|
|000022e0| 74 20 3d 20 28 57 69 6e | 57 69 64 74 68 20 2d 20 |t = (Win|Width - |
|000022f0| 32 29 20 2d 20 57 3b 0d | 0a 09 09 69 66 28 4f 66 |2) - W;.|...if(Of|
|00002300| 66 73 65 74 20 3e 20 30 | 29 20 4f 66 66 73 65 74 |fset > 0|) Offset|
|00002310| 20 3d 20 30 3b 0d 0a 09 | 7d 0d 0a 0d 0a 09 43 2e | = 0;...|}.....C.|
|00002320| 44 72 61 77 43 6f 6c 6f | 72 20 3d 20 54 65 78 74 |DrawColo|r = Text|
|00002330| 43 6f 6c 6f 72 3b 0d 0a | 0d 0a 09 69 66 28 62 41 |Color;..|...if(bA|
|00002340| 6c 6c 53 65 6c 65 63 74 | 65 64 29 0d 0a 09 7b 0d |llSelect|ed)...{.|
|00002350| 0a 09 09 44 72 61 77 53 | 74 72 65 74 63 68 65 64 |...DrawS|tretched|
|00002360| 54 65 78 74 75 72 65 28 | 43 2c 20 4f 66 66 73 65 |Texture(|C, Offse|
|00002370| 74 20 2b 20 31 2c 20 54 | 65 78 74 59 2c 20 57 2c |t + 1, T|extY, W,|
|00002380| 20 48 2c 20 54 65 78 74 | 75 72 65 27 55 57 69 6e | H, Text|ure'UWin|
|00002390| 64 6f 77 2e 57 68 69 74 | 65 54 65 78 74 75 72 65 |dow.Whit|eTexture|
|000023a0| 27 29 3b 0d 0a 0d 0a 09 | 09 2f 2f 20 49 6e 76 65 |');.....|.// Inve|
|000023b0| 72 74 20 43 6f 6c 6f 72 | 73 0d 0a 09 09 43 2e 44 |rt Color|s....C.D|
|000023c0| 72 61 77 43 6f 6c 6f 72 | 2e 52 20 3d 20 32 35 35 |rawColor|.R = 255|
|000023d0| 20 5e 20 43 2e 44 72 61 | 77 43 6f 6c 6f 72 2e 52 | ^ C.Dra|wColor.R|
|000023e0| 3b 0d 0a 09 09 43 2e 44 | 72 61 77 43 6f 6c 6f 72 |;....C.D|rawColor|
|000023f0| 2e 47 20 3d 20 32 35 35 | 20 5e 20 43 2e 44 72 61 |.G = 255| ^ C.Dra|
|00002400| 77 43 6f 6c 6f 72 2e 47 | 3b 0d 0a 09 09 43 2e 44 |wColor.G|;....C.D|
|00002410| 72 61 77 43 6f 6c 6f 72 | 2e 42 20 3d 20 32 35 35 |rawColor|.B = 255|
|00002420| 20 5e 20 43 2e 44 72 61 | 77 43 6f 6c 6f 72 2e 42 | ^ C.Dra|wColor.B|
|00002430| 3b 0d 0a 09 7d 0d 0a 0d | 0a 09 43 6c 69 70 54 65 |;...}...|..ClipTe|
|00002440| 78 74 28 43 2c 20 4f 66 | 66 73 65 74 20 2b 20 31 |xt(C, Of|fset + 1|
|00002450| 2c 20 54 65 78 74 59 2c | 20 20 56 61 6c 75 65 29 |, TextY,| Value)|
|00002460| 3b 0d 0a 0d 0a 09 69 66 | 28 28 21 62 48 61 73 4b |;.....if|((!bHasK|
|00002470| 65 79 62 6f 61 72 64 46 | 6f 63 75 73 29 20 7c 7c |eyboardF|ocus) |||
|00002480| 20 28 21 62 43 61 6e 45 | 64 69 74 29 29 0d 0a 09 | (!bCanE|dit))...|
|00002490| 09 62 53 68 6f 77 43 61 | 72 65 74 20 3d 20 46 61 |.bShowCa|ret = Fa|
|000024a0| 6c 73 65 3b 0d 0a 09 65 | 6c 73 65 0d 0a 09 7b 0d |lse;...e|lse...{.|
|000024b0| 0a 09 09 69 66 28 28 47 | 65 74 4c 65 76 65 6c 28 |...if((G|etLevel(|
|000024c0| 29 2e 54 69 6d 65 53 65 | 63 6f 6e 64 73 20 3e 20 |).TimeSe|conds > |
|000024d0| 4c 61 73 74 44 72 61 77 | 54 69 6d 65 20 2b 20 30 |LastDraw|Time + 0|
|000024e0| 2e 33 29 20 7c 7c 20 28 | 47 65 74 4c 65 76 65 6c |.3) || (|GetLevel|
|000024f0| 28 29 2e 54 69 6d 65 53 | 65 63 6f 6e 64 73 20 3c |().TimeS|econds <|
|00002500| 20 4c 61 73 74 44 72 61 | 77 54 69 6d 65 29 29 0d | LastDra|wTime)).|
|00002510| 0a 09 09 7b 0d 0a 09 09 | 09 4c 61 73 74 44 72 61 |...{....|.LastDra|
|00002520| 77 54 69 6d 65 20 3d 20 | 47 65 74 4c 65 76 65 6c |wTime = |GetLevel|
|00002530| 28 29 2e 54 69 6d 65 53 | 65 63 6f 6e 64 73 3b 0d |().TimeS|econds;.|
|00002540| 0a 09 09 09 62 53 68 6f | 77 43 61 72 65 74 20 3d |....bSho|wCaret =|
|00002550| 20 21 62 53 68 6f 77 43 | 61 72 65 74 3b 0d 0a 09 | !bShowC|aret;...|
|00002560| 09 7d 0d 0a 09 7d 0d 0a | 0d 0a 09 69 66 28 62 53 |.}...}..|...if(bS|
|00002570| 68 6f 77 43 61 72 65 74 | 29 0d 0a 09 09 43 6c 69 |howCaret|)....Cli|
|00002580| 70 54 65 78 74 28 43 2c | 20 4f 66 66 73 65 74 20 |pText(C,| Offset |
|00002590| 2b 20 57 20 2d 20 31 2c | 20 54 65 78 74 59 2c 20 |+ W - 1,| TextY, |
|000025a0| 22 7c 22 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |"|");..}|....func|
|000025b0| 74 69 6f 6e 20 43 6c 6f | 73 65 28 6f 70 74 69 6f |tion Clo|se(optio|
|000025c0| 6e 61 6c 20 62 6f 6f 6c | 20 62 42 79 50 61 72 65 |nal bool| bByPare|
|000025d0| 6e 74 29 0d 0a 7b 0d 0a | 09 69 66 28 62 43 68 61 |nt)..{..|.if(bCha|
|000025e0| 6e 67 65 50 65 6e 64 69 | 6e 67 29 0d 0a 09 7b 0d |ngePendi|ng)...{.|
|000025f0| 0a 09 09 62 43 68 61 6e | 67 65 50 65 6e 64 69 6e |...bChan|gePendin|
|00002600| 67 20 3d 20 46 61 6c 73 | 65 3b 0d 0a 09 09 4e 6f |g = Fals|e;....No|
|00002610| 74 69 66 79 28 44 45 5f | 43 68 61 6e 67 65 29 3b |tify(DE_|Change);|
|00002620| 0d 0a 09 7d 0d 0a 09 62 | 4b 65 79 44 6f 77 6e 20 |...}...b|KeyDown |
|00002630| 3d 20 46 61 6c 73 65 3b | 0d 0a 09 53 75 70 65 72 |= False;|...Super|
|00002640| 2e 43 6c 6f 73 65 28 62 | 42 79 50 61 72 65 6e 74 |.Close(b|ByParent|
|00002650| 29 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |);..}...|.functio|
|00002660| 6e 20 46 6f 63 75 73 4f | 74 68 65 72 57 69 6e 64 |n FocusO|therWind|
|00002670| 6f 77 28 55 57 69 6e 64 | 6f 77 57 69 6e 64 6f 77 |ow(UWind|owWindow|
|00002680| 20 57 29 0d 0a 7b 0d 0a | 09 69 66 28 62 43 68 61 | W)..{..|.if(bCha|
|00002690| 6e 67 65 50 65 6e 64 69 | 6e 67 29 0d 0a 09 7b 0d |ngePendi|ng)...{.|
|000026a0| 0a 09 09 62 43 68 61 6e | 67 65 50 65 6e 64 69 6e |...bChan|gePendin|
|000026b0| 67 20 3d 20 46 61 6c 73 | 65 3b 0d 0a 09 09 4e 6f |g = Fals|e;....No|
|000026c0| 74 69 66 79 28 44 45 5f | 43 68 61 6e 67 65 29 3b |tify(DE_|Change);|
|000026d0| 0d 0a 09 7d 0d 0a 0d 0a | 09 69 66 28 4e 6f 74 69 |...}....|.if(Noti|
|000026e0| 66 79 4f 77 6e 65 72 20 | 21 3d 20 4e 6f 6e 65 29 |fyOwner |!= None)|
|000026f0| 0d 0a 09 09 4e 6f 74 69 | 66 79 4f 77 6e 65 72 2e |....Noti|fyOwner.|
|00002700| 46 6f 63 75 73 4f 74 68 | 65 72 57 69 6e 64 6f 77 |FocusOth|erWindow|
|00002710| 28 57 29 3b 0d 0a 09 65 | 6c 73 65 0d 0a 09 09 53 |(W);...e|lse....S|
|00002720| 75 70 65 72 2e 46 6f 63 | 75 73 4f 74 68 65 72 57 |uper.Foc|usOtherW|
|00002730| 69 6e 64 6f 77 28 57 29 | 3b 0d 0a 7d 0d 0a 0d 0a |indow(W)|;..}....|
|00002740| 66 75 6e 63 74 69 6f 6e | 20 4b 65 79 46 6f 63 75 |function| KeyFocu|
|00002750| 73 45 6e 74 65 72 28 29 | 0d 0a 7b 0d 0a 09 69 66 |sEnter()|..{...if|
|00002760| 28 62 53 65 6c 65 63 74 | 4f 6e 46 6f 63 75 73 20 |(bSelect|OnFocus |
|00002770| 26 26 20 21 62 48 61 73 | 4b 65 79 62 6f 61 72 64 |&& !bHas|Keyboard|
|00002780| 46 6f 63 75 73 29 0d 0a | 09 09 53 65 6c 65 63 74 |Focus)..|..Select|
|00002790| 41 6c 6c 28 29 3b 0d 0a | 0d 0a 09 53 75 70 65 72 |All();..|...Super|
|000027a0| 2e 4b 65 79 46 6f 63 75 | 73 45 6e 74 65 72 28 29 |.KeyFocu|sEnter()|
|000027b0| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|000027c0| 20 44 6f 75 62 6c 65 43 | 6c 69 63 6b 28 66 6c 6f | DoubleC|lick(flo|
|000027d0| 61 74 20 58 2c 20 66 6c | 6f 61 74 20 59 29 0d 0a |at X, fl|oat Y)..|
|000027e0| 7b 0d 0a 09 53 75 70 65 | 72 2e 44 6f 75 62 6c 65 |{...Supe|r.Double|
|000027f0| 43 6c 69 63 6b 28 58 2c | 20 59 29 3b 0d 0a 09 53 |Click(X,| Y);...S|
|00002800| 65 6c 65 63 74 41 6c 6c | 28 29 3b 0d 0a 7d 0d 0a |electAll|();..}..|
|00002810| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 4b 65 79 46 6f |..functi|on KeyFo|
|00002820| 63 75 73 45 78 69 74 28 | 29 0d 0a 7b 0d 0a 09 62 |cusExit(|)..{...b|
|00002830| 41 6c 6c 53 65 6c 65 63 | 74 65 64 20 3d 20 46 61 |AllSelec|ted = Fa|
|00002840| 6c 73 65 3b 0d 0a 09 53 | 75 70 65 72 2e 4b 65 79 |lse;...S|uper.Key|
|00002850| 46 6f 63 75 73 45 78 69 | 74 28 29 3b 0d 0a 7d 0d |FocusExi|t();..}.|
|00002860| 0a 00 | |.. | |
+--------+-------------------------+-------------------------+--------+--------+
