home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1999-11-02 | 7.7 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
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 | 7b 7a 2f 2f 20 55 57 69 |........|{z// UWi|
|00000010| 6e 64 6f 77 45 64 69 74 | 42 6f 78 20 2d 20 73 69 |ndowEdit|Box - si|
|00000020| 6d 70 6c 65 20 65 64 69 | 74 20 62 6f 78 2c 20 66 |mple edi|t box, f|
|00000030| 6f 72 20 75 73 65 20 69 | 6e 20 6f 74 68 65 72 20 |or use i|n other |
|00000040| 63 6f 6e 74 72 6f 6c 73 | 20 73 75 63 68 20 61 73 |controls| such as|
|00000050| 20 0d 0a 2f 2f 20 55 57 | 69 6e 64 6f 77 43 6f 6d | ..// 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 43 61 6e 45 64 69 |ar bool.|.bCanEdi|
|000001b0| 74 3b 0d 0a 76 61 72 20 | 62 6f 6f 6c 09 09 62 41 |t;..var |bool..bA|
|000001c0| 6c 6c 53 65 6c 65 63 74 | 65 64 3b 0d 0a 76 61 72 |llSelect|ed;..var|
|000001d0| 20 62 6f 6f 6c 09 09 62 | 53 65 6c 65 63 74 4f 6e | bool..b|SelectOn|
|000001e0| 46 6f 63 75 73 3b 0d 0a | 76 61 72 20 62 6f 6f 6c |Focus;..|var bool|
|000001f0| 09 09 62 44 65 6c 61 79 | 65 64 4e 6f 74 69 66 79 |..bDelay|edNotify|
|00000200| 3b 0d 0a 76 61 72 20 62 | 6f 6f 6c 09 09 62 43 68 |;..var b|ool..bCh|
|00000210| 61 6e 67 65 50 65 6e 64 | 69 6e 67 3b 0d 0a 76 61 |angePend|ing;..va|
|00000220| 72 20 62 6f 6f 6c 09 09 | 62 43 6f 6e 74 72 6f 6c |r bool..|bControl|
|00000230| 44 6f 77 6e 3b 0d 0a 76 | 61 72 20 62 6f 6f 6c 09 |Down;..v|ar bool.|
|00000240| 09 62 53 68 69 66 74 44 | 6f 77 6e 3b 0d 0a 0d 0a |.bShiftD|own;....|
|00000250| 66 75 6e 63 74 69 6f 6e | 20 43 72 65 61 74 65 64 |function| Created|
|00000260| 28 29 0d 0a 7b 0d 0a 09 | 53 75 70 65 72 2e 43 72 |()..{...|Super.Cr|
|00000270| 65 61 74 65 64 28 29 3b | 0d 0a 09 62 43 61 6e 45 |eated();|...bCanE|
|00000280| 64 69 74 20 3d 20 54 72 | 75 65 3b 0d 0a 09 62 43 |dit = Tr|ue;...bC|
|00000290| 6f 6e 74 72 6f 6c 44 6f | 77 6e 20 3d 20 46 61 6c |ontrolDo|wn = Fal|
|000002a0| 73 65 3b 0d 0a 09 62 53 | 68 69 66 74 44 6f 77 6e |se;...bS|hiftDown|
|000002b0| 20 3d 20 46 61 6c 73 65 | 3b 0d 0a 0d 0a 09 4d 61 | = False|;.....Ma|
|000002c0| 78 4c 65 6e 67 74 68 20 | 3d 20 32 35 35 3b 0d 0a |xLength |= 255;..|
|000002d0| 09 43 61 72 65 74 4f 66 | 66 73 65 74 20 3d 20 30 |.CaretOf|fset = 0|
|000002e0| 3b 0d 0a 09 4f 66 66 73 | 65 74 20 3d 20 30 3b 0d |;...Offs|et = 0;.|
|000002f0| 0a 09 4c 61 73 74 44 72 | 61 77 54 69 6d 65 20 3d |..LastDr|awTime =|
|00000300| 20 47 65 74 4c 65 76 65 | 6c 28 29 2e 54 69 6d 65 | GetLeve|l().Time|
|00000310| 53 65 63 6f 6e 64 73 3b | 0d 0a 7d 0d 0a 0d 0a 66 |Seconds;|..}....f|
|00000320| 75 6e 63 74 69 6f 6e 20 | 53 65 74 45 64 69 74 61 |unction |SetEdita|
|00000330| 62 6c 65 28 62 6f 6f 6c | 20 62 45 64 69 74 61 62 |ble(bool| bEditab|
|00000340| 6c 65 29 0d 0a 7b 0d 0a | 09 62 43 61 6e 45 64 69 |le)..{..|.bCanEdi|
|00000350| 74 20 3d 20 62 45 64 69 | 74 61 62 6c 65 3b 0d 0a |t = bEdi|table;..|
|00000360| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 53 65 |}....fun|ction Se|
|00000370| 74 56 61 6c 75 65 28 73 | 74 72 69 6e 67 20 4e 65 |tValue(s|tring Ne|
|00000380| 77 56 61 6c 75 65 2c 20 | 6f 70 74 69 6f 6e 61 6c |wValue, |optional|
|00000390| 20 73 74 72 69 6e 67 20 | 4e 65 77 56 61 6c 75 65 | string |NewValue|
|000003a0| 32 29 0d 0a 7b 0d 0a 09 | 56 61 6c 75 65 20 3d 20 |2)..{...|Value = |
|000003b0| 4e 65 77 56 61 6c 75 65 | 3b 0d 0a 09 56 61 6c 75 |NewValue|;...Valu|
|000003c0| 65 32 20 3d 20 4e 65 77 | 56 61 6c 75 65 32 3b 0d |e2 = New|Value2;.|
|000003d0| 0a 0d 0a 09 69 66 28 43 | 61 72 65 74 4f 66 66 73 |....if(C|aretOffs|
|000003e0| 65 74 20 3e 20 4c 65 6e | 28 56 61 6c 75 65 29 29 |et > Len|(Value))|
|000003f0| 0d 0a 09 09 43 61 72 65 | 74 4f 66 66 73 65 74 20 |....Care|tOffset |
|00000400| 3d 20 4c 65 6e 28 56 61 | 6c 75 65 29 3b 09 09 0d |= Len(Va|lue);...|
|00000410| 0a 09 4e 6f 74 69 66 79 | 28 44 45 5f 43 68 61 6e |..Notify|(DE_Chan|
|00000420| 67 65 29 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |ge);..}.|...funct|
|00000430| 69 6f 6e 20 43 6c 65 61 | 72 28 29 0d 0a 7b 0d 0a |ion Clea|r()..{..|
|00000440| 09 43 61 72 65 74 4f 66 | 66 73 65 74 20 3d 20 30 |.CaretOf|fset = 0|
|00000450| 3b 0d 0a 09 56 61 6c 75 | 65 3d 22 22 3b 0d 0a 09 |;...Valu|e="";...|
|00000460| 56 61 6c 75 65 32 3d 22 | 22 3b 0d 0a 09 62 41 6c |Value2="|";...bAl|
|00000470| 6c 53 65 6c 65 63 74 65 | 64 20 3d 20 46 61 6c 73 |lSelecte|d = Fals|
|00000480| 65 3b 0d 0a 09 69 66 28 | 62 44 65 6c 61 79 65 64 |e;...if(|bDelayed|
|00000490| 4e 6f 74 69 66 79 29 0d | 0a 09 09 62 43 68 61 6e |Notify).|...bChan|
|000004a0| 67 65 50 65 6e 64 69 6e | 67 20 3d 20 54 72 75 65 |gePendin|g = True|
|000004b0| 3b 0d 0a 09 65 6c 73 65 | 0d 0a 09 09 4e 6f 74 69 |;...else|....Noti|
|000004c0| 66 79 28 44 45 5f 43 68 | 61 6e 67 65 29 3b 0d 0a |fy(DE_Ch|ange);..|
|000004d0| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 53 65 |}....fun|ction Se|
|000004e0| 6c 65 63 74 41 6c 6c 28 | 29 0d 0a 7b 0d 0a 09 69 |lectAll(|)..{...i|
|000004f0| 66 28 62 43 61 6e 45 64 | 69 74 20 26 26 20 56 61 |f(bCanEd|it && Va|
|00000500| 6c 75 65 20 21 3d 20 22 | 22 29 0d 0a 09 7b 0d 0a |lue != "|")...{..|
|00000510| 09 09 43 61 72 65 74 4f | 66 66 73 65 74 20 3d 20 |..CaretO|ffset = |
|00000520| 4c 65 6e 28 56 61 6c 75 | 65 29 3b 0d 0a 09 09 62 |Len(Valu|e);....b|
|00000530| 41 6c 6c 53 65 6c 65 63 | 74 65 64 20 3d 20 54 72 |AllSelec|ted = Tr|
|00000540| 75 65 3b 0d 0a 09 7d 0d | 0a 7d 0d 0a 0d 0a 66 75 |ue;...}.|.}....fu|
|00000550| 6e 63 74 69 6f 6e 20 73 | 74 72 69 6e 67 20 47 65 |nction s|tring Ge|
|00000560| 74 56 61 6c 75 65 28 29 | 0d 0a 7b 0d 0a 09 72 65 |tValue()|..{...re|
|00000570| 74 75 72 6e 20 56 61 6c | 75 65 3b 0d 0a 7d 0d 0a |turn Val|ue;..}..|
|00000580| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 73 74 72 69 6e |..functi|on strin|
|00000590| 67 20 47 65 74 56 61 6c | 75 65 32 28 29 0d 0a 7b |g GetVal|ue2()..{|
|000005a0| 0d 0a 09 72 65 74 75 72 | 6e 20 56 61 6c 75 65 32 |...retur|n Value2|
|000005b0| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|000005c0| 20 4e 6f 74 69 66 79 28 | 62 79 74 65 20 45 29 0d | Notify(|byte E).|
|000005d0| 0a 7b 0d 0a 09 69 66 28 | 4e 6f 74 69 66 79 4f 77 |.{...if(|NotifyOw|
|000005e0| 6e 65 72 20 21 3d 20 4e | 6f 6e 65 29 0d 0a 09 7b |ner != N|one)...{|
|000005f0| 0d 0a 09 09 4e 6f 74 69 | 66 79 4f 77 6e 65 72 2e |....Noti|fyOwner.|
|00000600| 4e 6f 74 69 66 79 28 45 | 29 3b 0d 0a 09 7d 20 65 |Notify(E|);...} e|
|00000610| 6c 73 65 20 7b 0d 0a 09 | 09 53 75 70 65 72 2e 4e |lse {...|.Super.N|
|00000620| 6f 74 69 66 79 28 45 29 | 3b 0d 0a 09 7d 0d 0a 7d |otify(E)|;...}..}|
|00000630| 0d 0a 0d 0a 2f 2f 20 49 | 6e 73 65 72 74 73 20 61 |....// I|nserts a|
|00000640| 20 63 68 61 72 61 63 74 | 65 72 20 61 74 20 74 68 | charact|er at th|
|00000650| 65 20 63 75 72 72 65 6e | 74 20 63 61 72 65 74 20 |e curren|t caret |
|00000660| 70 6f 73 69 74 69 6f 6e | 0d 0a 66 75 6e 63 74 69 |position|..functi|
|00000670| 6f 6e 20 62 6f 6f 6c 20 | 49 6e 73 65 72 74 28 62 |on bool |Insert(b|
|00000680| 79 74 65 20 43 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |yte C)..|{...loca|
|00000690| 6c 20 73 74 72 69 6e 67 | 09 4e 65 77 56 61 6c 75 |l string|.NewValu|
|000006a0| 65 3b 0d 0a 0d 0a 09 4e | 65 77 56 61 6c 75 65 20 |e;.....N|ewValue |
|000006b0| 3d 20 4c 65 66 74 28 56 | 61 6c 75 65 2c 20 43 61 |= Left(V|alue, Ca|
|000006c0| 72 65 74 4f 66 66 73 65 | 74 29 20 24 20 43 68 72 |retOffse|t) $ Chr|
|000006d0| 28 43 29 20 24 20 4d 69 | 64 28 56 61 6c 75 65 2c |(C) $ Mi|d(Value,|
|000006e0| 20 43 61 72 65 74 4f 66 | 66 73 65 74 29 3b 0d 0a | CaretOf|fset);..|
|000006f0| 0d 0a 09 69 66 28 4c 65 | 6e 28 4e 65 77 56 61 6c |...if(Le|n(NewVal|
|00000700| 75 65 29 20 3e 20 4d 61 | 78 4c 65 6e 67 74 68 29 |ue) > Ma|xLength)|
|00000710| 20 0d 0a 09 09 72 65 74 | 75 72 6e 20 46 61 6c 73 | ....ret|urn Fals|
|00000720| 65 3b 0d 0a 0d 0a 09 43 | 61 72 65 74 4f 66 66 73 |e;.....C|aretOffs|
|00000730| 65 74 2b 2b 3b 0d 0a 0d | 0a 09 56 61 6c 75 65 20 |et++;...|..Value |
|00000740| 3d 20 4e 65 77 56 61 6c | 75 65 3b 0d 0a 09 69 66 |= NewVal|ue;...if|
|00000750| 28 62 44 65 6c 61 79 65 | 64 4e 6f 74 69 66 79 29 |(bDelaye|dNotify)|
|00000760| 0d 0a 09 09 62 43 68 61 | 6e 67 65 50 65 6e 64 69 |....bCha|ngePendi|
|00000770| 6e 67 20 3d 20 54 72 75 | 65 3b 0d 0a 09 65 6c 73 |ng = Tru|e;...els|
|00000780| 65 0d 0a 09 09 4e 6f 74 | 69 66 79 28 44 45 5f 43 |e....Not|ify(DE_C|
|00000790| 68 61 6e 67 65 29 3b 0d | 0a 09 72 65 74 75 72 6e |hange);.|..return|
|000007a0| 20 54 72 75 65 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e | True;..|}....fun|
|000007b0| 63 74 69 6f 6e 20 62 6f | 6f 6c 20 42 61 63 6b 73 |ction bo|ol Backs|
|000007c0| 70 61 63 65 28 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |pace()..|{...loca|
|000007d0| 6c 20 73 74 72 69 6e 67 | 09 4e 65 77 56 61 6c 75 |l string|.NewValu|
|000007e0| 65 3b 0d 0a 0d 0a 09 69 | 66 28 43 61 72 65 74 4f |e;.....i|f(CaretO|
|000007f0| 66 66 73 65 74 20 3d 3d | 20 30 29 20 72 65 74 75 |ffset ==| 0) retu|
|00000800| 72 6e 20 46 61 6c 73 65 | 3b 0d 0a 0d 0a 09 4e 65 |rn False|;.....Ne|
|00000810| 77 56 61 6c 75 65 20 3d | 20 4c 65 66 74 28 56 61 |wValue =| Left(Va|
|00000820| 6c 75 65 2c 20 43 61 72 | 65 74 4f 66 66 73 65 74 |lue, Car|etOffset|
|00000830| 20 2d 20 31 29 20 24 20 | 4d 69 64 28 56 61 6c 75 | - 1) $ |Mid(Valu|
|00000840| 65 2c 20 43 61 72 65 74 | 4f 66 66 73 65 74 29 3b |e, Caret|Offset);|
|00000850| 0d 0a 09 43 61 72 65 74 | 4f 66 66 73 65 74 2d 2d |...Caret|Offset--|
|00000860| 3b 0d 0a 0d 0a 09 56 61 | 6c 75 65 20 3d 20 4e 65 |;.....Va|lue = Ne|
|00000870| 77 56 61 6c 75 65 3b 0d | 0a 09 69 66 28 62 44 65 |wValue;.|..if(bDe|
|00000880| 6c 61 79 65 64 4e 6f 74 | 69 66 79 29 0d 0a 09 09 |layedNot|ify)....|
|00000890| 62 43 68 61 6e 67 65 50 | 65 6e 64 69 6e 67 20 3d |bChangeP|ending =|
|000008a0| 20 54 72 75 65 3b 0d 0a | 09 65 6c 73 65 0d 0a 09 | True;..|.else...|
|000008b0| 09 4e 6f 74 69 66 79 28 | 44 45 5f 43 68 61 6e 67 |.Notify(|DE_Chang|
|000008c0| 65 29 3b 0d 0a 09 72 65 | 74 75 72 6e 20 54 72 75 |e);...re|turn Tru|
|000008d0| 65 3b 0d 0a 7d 0d 0a 0d | 0a 2f 2f 23 69 66 20 31 |e;..}...|.//#if 1|
|000008e0| 20 2f 2f 4e 45 57 0d 0a | 66 75 6e 63 74 69 6f 6e | //NEW..|function|
|000008f0| 20 62 6f 6f 6c 20 44 65 | 6c 65 74 65 53 65 6c 65 | bool De|leteSele|
|00000900| 63 74 65 64 28 29 0d 0a | 2f 2f 23 65 6c 73 65 0d |cted()..|//#else.|
|00000910| 0a 2f 2f 66 75 6e 63 74 | 69 6f 6e 20 62 6f 6f 6c |.//funct|ion bool|
|00000920| 20 44 65 6c 65 74 65 28 | 29 0d 0a 2f 2f 23 65 6e | Delete(|)..//#en|
|00000930| 64 69 66 0d 0a 7b 0d 0a | 09 6c 6f 63 61 6c 20 73 |dif..{..|.local s|
|00000940| 74 72 69 6e 67 09 4e 65 | 77 56 61 6c 75 65 3b 0d |tring.Ne|wValue;.|
|00000950| 0a 0d 0a 09 69 66 28 43 | 61 72 65 74 4f 66 66 73 |....if(C|aretOffs|
|00000960| 65 74 20 3d 3d 20 4c 65 | 6e 28 56 61 6c 75 65 29 |et == Le|n(Value)|
|00000970| 29 20 72 65 74 75 72 6e | 20 46 61 6c 73 65 3b 0d |) return| False;.|
|00000980| 0a 0d 0a 09 4e 65 77 56 | 61 6c 75 65 20 3d 20 4c |....NewV|alue = L|
|00000990| 65 66 74 28 56 61 6c 75 | 65 2c 20 43 61 72 65 74 |eft(Valu|e, Caret|
|000009a0| 4f 66 66 73 65 74 29 20 | 24 20 4d 69 64 28 56 61 |Offset) |$ Mid(Va|
|000009b0| 6c 75 65 2c 20 43 61 72 | 65 74 4f 66 66 73 65 74 |lue, Car|etOffset|
|000009c0| 20 2b 20 31 29 3b 0d 0a | 0d 0a 09 56 61 6c 75 65 | + 1);..|...Value|
|000009d0| 20 3d 20 4e 65 77 56 61 | 6c 75 65 3b 0d 0a 09 4e | = NewVa|lue;...N|
|000009e0| 6f 74 69 66 79 28 44 45 | 5f 43 68 61 6e 67 65 29 |otify(DE|_Change)|
|000009f0| 3b 0d 0a 09 72 65 74 75 | 72 6e 20 54 72 75 65 3b |;...retu|rn True;|
|00000a00| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000a10| 62 6f 6f 6c 20 57 6f 72 | 64 4c 65 66 74 28 29 0d |bool Wor|dLeft().|
|00000a20| 0a 7b 0d 0a 09 77 68 69 | 6c 65 28 43 61 72 65 74 |.{...whi|le(Caret|
|00000a30| 4f 66 66 73 65 74 20 3e | 20 30 20 26 26 20 4d 69 |Offset >| 0 && Mi|
|00000a40| 64 28 56 61 6c 75 65 2c | 20 43 61 72 65 74 4f 66 |d(Value,| CaretOf|
|00000a50| 66 73 65 74 20 2d 20 31 | 2c 20 31 29 20 3d 3d 20 |fset - 1|, 1) == |
|00000a60| 22 20 22 29 0d 0a 09 09 | 43 61 72 65 74 4f 66 66 |" ")....|CaretOff|
|00000a70| 73 65 74 2d 2d 3b 0d 0a | 09 77 68 69 6c 65 28 43 |set--;..|.while(C|
|00000a80| 61 72 65 74 4f 66 66 73 | 65 74 20 3e 20 30 20 26 |aretOffs|et > 0 &|
|00000a90| 26 20 4d 69 64 28 56 61 | 6c 75 65 2c 20 43 61 72 |& Mid(Va|lue, Car|
|00000aa0| 65 74 4f 66 66 73 65 74 | 20 2d 20 31 2c 20 31 29 |etOffset| - 1, 1)|
|00000ab0| 20 21 3d 20 22 20 22 29 | 0d 0a 09 09 43 61 72 65 | != " ")|....Care|
|00000ac0| 74 4f 66 66 73 65 74 2d | 2d 3b 0d 0a 0d 0a 09 4c |tOffset-|-;.....L|
|00000ad0| 61 73 74 44 72 61 77 54 | 69 6d 65 20 3d 20 47 65 |astDrawT|ime = Ge|
|00000ae0| 74 4c 65 76 65 6c 28 29 | 2e 54 69 6d 65 53 65 63 |tLevel()|.TimeSec|
|00000af0| 6f 6e 64 73 3b 0d 0a 09 | 62 53 68 6f 77 43 61 72 |onds;...|bShowCar|
|00000b00| 65 74 20 3d 20 54 72 75 | 65 3b 0d 0a 0d 0a 09 72 |et = Tru|e;.....r|
|00000b10| 65 74 75 72 6e 20 54 72 | 75 65 3b 09 0d 0a 7d 0d |eturn Tr|ue;...}.|
|00000b20| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 62 6f 6f 6c |...funct|ion bool|
|00000b30| 20 4d 6f 76 65 4c 65 66 | 74 28 29 0d 0a 7b 0d 0a | MoveLef|t()..{..|
|00000b40| 09 69 66 28 43 61 72 65 | 74 4f 66 66 73 65 74 20 |.if(Care|tOffset |
|00000b50| 3d 3d 20 30 29 20 72 65 | 74 75 72 6e 20 46 61 6c |== 0) re|turn Fal|
|00000b60| 73 65 3b 0d 0a 09 43 61 | 72 65 74 4f 66 66 73 65 |se;...Ca|retOffse|
|00000b70| 74 2d 2d 3b 0d 0a 0d 0a | 09 4c 61 73 74 44 72 61 |t--;....|.LastDra|
|00000b80| 77 54 69 6d 65 20 3d 20 | 47 65 74 4c 65 76 65 6c |wTime = |GetLevel|
|00000b90| 28 29 2e 54 69 6d 65 53 | 65 63 6f 6e 64 73 3b 0d |().TimeS|econds;.|
|00000ba0| 0a 09 62 53 68 6f 77 43 | 61 72 65 74 20 3d 20 54 |..bShowC|aret = T|
|00000bb0| 72 75 65 3b 0d 0a 0d 0a | 09 72 65 74 75 72 6e 20 |rue;....|.return |
|00000bc0| 54 72 75 65 3b 09 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |True;...|}....fun|
|00000bd0| 63 74 69 6f 6e 20 62 6f | 6f 6c 20 4d 6f 76 65 52 |ction bo|ol MoveR|
|00000be0| 69 67 68 74 28 29 0d 0a | 7b 0d 0a 09 69 66 28 43 |ight()..|{...if(C|
|00000bf0| 61 72 65 74 4f 66 66 73 | 65 74 20 3d 3d 20 4c 65 |aretOffs|et == Le|
|00000c00| 6e 28 56 61 6c 75 65 29 | 29 20 72 65 74 75 72 6e |n(Value)|) return|
|00000c10| 20 46 61 6c 73 65 3b 0d | 0a 09 43 61 72 65 74 4f | False;.|..CaretO|
|00000c20| 66 66 73 65 74 2b 2b 3b | 0d 0a 0d 0a 09 4c 61 73 |ffset++;|.....Las|
|00000c30| 74 44 72 61 77 54 69 6d | 65 20 3d 20 47 65 74 4c |tDrawTim|e = GetL|
|00000c40| 65 76 65 6c 28 29 2e 54 | 69 6d 65 53 65 63 6f 6e |evel().T|imeSecon|
|00000c50| 64 73 3b 0d 0a 09 62 53 | 68 6f 77 43 61 72 65 74 |ds;...bS|howCaret|
|00000c60| 20 3d 20 54 72 75 65 3b | 0d 0a 0d 0a 09 72 65 74 | = True;|.....ret|
|00000c70| 75 72 6e 20 54 72 75 65 | 3b 09 0d 0a 7d 0d 0a 0d |urn True|;...}...|
|00000c80| 0a 66 75 6e 63 74 69 6f | 6e 20 62 6f 6f 6c 20 57 |.functio|n bool W|
|00000c90| 6f 72 64 52 69 67 68 74 | 28 29 0d 0a 7b 0d 0a 09 |ordRight|()..{...|
|00000ca0| 77 68 69 6c 65 28 43 61 | 72 65 74 4f 66 66 73 65 |while(Ca|retOffse|
|00000cb0| 74 20 3c 20 4c 65 6e 28 | 56 61 6c 75 65 29 20 26 |t < Len(|Value) &|
|00000cc0| 26 20 4d 69 64 28 56 61 | 6c 75 65 2c 20 43 61 72 |& Mid(Va|lue, Car|
|00000cd0| 65 74 4f 66 66 73 65 74 | 2c 20 31 29 20 21 3d 20 |etOffset|, 1) != |
|00000ce0| 22 20 22 29 0d 0a 09 09 | 43 61 72 65 74 4f 66 66 |" ")....|CaretOff|
|00000cf0| 73 65 74 2b 2b 3b 0d 0a | 09 77 68 69 6c 65 28 43 |set++;..|.while(C|
|00000d00| 61 72 65 74 4f 66 66 73 | 65 74 20 3c 20 4c 65 6e |aretOffs|et < Len|
|00000d10| 28 56 61 6c 75 65 29 20 | 26 26 20 4d 69 64 28 56 |(Value) |&& Mid(V|
|00000d20| 61 6c 75 65 2c 20 43 61 | 72 65 74 4f 66 66 73 65 |alue, Ca|retOffse|
|00000d30| 74 2c 20 31 29 20 3d 3d | 20 22 20 22 29 0d 0a 09 |t, 1) ==| " ")...|
|00000d40| 09 43 61 72 65 74 4f 66 | 66 73 65 74 2b 2b 3b 0d |.CaretOf|fset++;.|
|00000d50| 0a 0d 0a 09 4c 61 73 74 | 44 72 61 77 54 69 6d 65 |....Last|DrawTime|
|00000d60| 20 3d 20 47 65 74 4c 65 | 76 65 6c 28 29 2e 54 69 | = GetLe|vel().Ti|
|00000d70| 6d 65 53 65 63 6f 6e 64 | 73 3b 0d 0a 09 62 53 68 |meSecond|s;...bSh|
|00000d80| 6f 77 43 61 72 65 74 20 | 3d 20 54 72 75 65 3b 0d |owCaret |= True;.|
|00000d90| 0a 0d 0a 09 72 65 74 75 | 72 6e 20 54 72 75 65 3b |....retu|rn True;|
|00000da0| 09 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |...}....|function|
|00000db0| 20 62 6f 6f 6c 20 4d 6f | 76 65 48 6f 6d 65 28 29 | bool Mo|veHome()|
|00000dc0| 0d 0a 7b 0d 0a 09 43 61 | 72 65 74 4f 66 66 73 65 |..{...Ca|retOffse|
|00000dd0| 74 20 3d 20 30 3b 0d 0a | 0d 0a 09 4c 61 73 74 44 |t = 0;..|...LastD|
|00000de0| 72 61 77 54 69 6d 65 20 | 3d 20 47 65 74 4c 65 76 |rawTime |= GetLev|
|00000df0| 65 6c 28 29 2e 54 69 6d | 65 53 65 63 6f 6e 64 73 |el().Tim|eSeconds|
|00000e00| 3b 0d 0a 09 62 53 68 6f | 77 43 61 72 65 74 20 3d |;...bSho|wCaret =|
|00000e10| 20 54 72 75 65 3b 0d 0a | 0d 0a 09 72 65 74 75 72 | True;..|...retur|
|00000e20| 6e 20 54 72 75 65 3b 09 | 0d 0a 7d 0d 0a 0d 0a 66 |n True;.|..}....f|
|00000e30| 75 6e 63 74 69 6f 6e 20 | 62 6f 6f 6c 20 4d 6f 76 |unction |bool Mov|
|00000e40| 65 45 6e 64 28 29 0d 0a | 7b 0d 0a 09 43 61 72 65 |eEnd()..|{...Care|
|00000e50| 74 4f 66 66 73 65 74 20 | 3d 20 4c 65 6e 28 56 61 |tOffset |= Len(Va|
|00000e60| 6c 75 65 29 3b 0d 0a 0d | 0a 09 4c 61 73 74 44 72 |lue);...|..LastDr|
|00000e70| 61 77 54 69 6d 65 20 3d | 20 47 65 74 4c 65 76 65 |awTime =| GetLeve|
|00000e80| 6c 28 29 2e 54 69 6d 65 | 53 65 63 6f 6e 64 73 3b |l().Time|Seconds;|
|00000e90| 0d 0a 09 62 53 68 6f 77 | 43 61 72 65 74 20 3d 20 |...bShow|Caret = |
|00000ea0| 54 72 75 65 3b 0d 0a 0d | 0a 09 72 65 74 75 72 6e |True;...|..return|
|00000eb0| 20 54 72 75 65 3b 09 0d | 0a 7d 0d 0a 0d 0a 66 75 | True;..|.}....fu|
|00000ec0| 6e 63 74 69 6f 6e 20 4b | 65 79 54 79 70 65 28 20 |nction K|eyType( |
|00000ed0| 69 6e 74 20 4b 65 79 2c | 20 66 6c 6f 61 74 20 4d |int Key,| float M|
|00000ee0| 6f 75 73 65 58 2c 20 66 | 6c 6f 61 74 20 4d 6f 75 |ouseX, f|loat Mou|
|00000ef0| 73 65 59 20 29 0d 0a 7b | 0d 0a 09 2f 2f 20 4c 6f |seY )..{|...// Lo|
|00000f00| 67 28 22 4b 65 79 54 79 | 70 65 3a 20 62 43 61 6e |g("KeyTy|pe: bCan|
|00000f10| 45 64 69 74 20 3d 20 22 | 24 62 43 61 6e 45 64 69 |Edit = "|$bCanEdi|
|00000f20| 74 29 3b 0d 0a 0d 0a 09 | 69 66 28 62 43 61 6e 45 |t);.....|if(bCanE|
|00000f30| 64 69 74 29 20 0d 0a 09 | 7b 0d 0a 09 09 69 66 28 |dit) ...|{....if(|
|00000f40| 62 41 6c 6c 53 65 6c 65 | 63 74 65 64 29 0d 0a 09 |bAllSele|cted)...|
|00000f50| 09 09 43 6c 65 61 72 28 | 29 3b 0d 0a 0d 0a 09 09 |..Clear(|);......|
|00000f60| 62 41 6c 6c 53 65 6c 65 | 63 74 65 64 20 3d 20 46 |bAllSele|cted = F|
|00000f70| 61 6c 73 65 3b 0d 0a 0d | 0a 09 09 69 66 28 62 4e |alse;...|...if(bN|
|00000f80| 75 6d 65 72 69 63 4f 6e | 6c 79 29 0d 0a 09 09 7b |umericOn|ly)....{|
|00000f90| 0d 0a 09 09 09 69 66 28 | 20 4b 65 79 3e 3d 30 78 |.....if(| Key>=0x|
|00000fa0| 33 30 20 26 26 20 4b 65 | 79 3c 3d 30 78 33 39 20 |30 && Ke|y<=0x39 |
|00000fb0| 29 20 20 0d 0a 09 09 09 | 7b 0d 0a 09 09 09 09 49 |) .....|{......I|
|00000fc0| 6e 73 65 72 74 28 4b 65 | 79 29 3b 0d 0a 09 09 09 |nsert(Ke|y);.....|
|00000fd0| 7d 0d 0a 09 09 7d 0d 0a | 09 09 65 6c 73 65 0d 0a |}....}..|..else..|
|00000fe0| 09 09 7b 0d 0a 09 09 09 | 69 66 28 20 4b 65 79 3e |..{.....|if( Key>|
|00000ff0| 3d 30 78 32 30 20 26 26 | 20 4b 65 79 3c 30 78 38 |=0x20 &&| Key<0x8|
|00001000| 30 20 29 0d 0a 09 09 09 | 7b 0d 0a 09 09 09 09 49 |0 ).....|{......I|
|00001010| 6e 73 65 72 74 28 4b 65 | 79 29 3b 0d 0a 09 09 09 |nsert(Ke|y);.....|
|00001020| 7d 0d 0a 09 09 7d 0d 0a | 09 7d 0d 0a 7d 0d 0a 0d |}....}..|.}..}...|
|00001030| 0a 66 75 6e 63 74 69 6f | 6e 20 4b 65 79 55 70 28 |.functio|n KeyUp(|
|00001040| 69 6e 74 20 4b 65 79 2c | 20 66 6c 6f 61 74 20 58 |int Key,| float X|
|00001050| 2c 20 66 6c 6f 61 74 20 | 59 29 0d 0a 7b 0d 0a 09 |, float |Y)..{...|
|00001060| 6c 6f 63 61 6c 20 50 6c | 61 79 65 72 50 61 77 6e |local Pl|ayerPawn|
|00001070| 20 50 3b 0d 0a 0d 0a 09 | 50 20 3d 20 47 65 74 50 | P;.....|P = GetP|
|00001080| 6c 61 79 65 72 4f 77 6e | 65 72 28 29 3b 0d 0a 09 |layerOwn|er();...|
|00001090| 73 77 69 74 63 68 20 28 | 4b 65 79 29 0d 0a 09 7b |switch (|Key)...{|
|000010a0| 0d 0a 09 63 61 73 65 20 | 50 2e 45 49 6e 70 75 74 |...case |P.EInput|
|000010b0| 4b 65 79 2e 49 4b 5f 43 | 74 72 6c 3a 0d 0a 09 09 |Key.IK_C|trl:....|
|000010c0| 62 43 6f 6e 74 72 6f 6c | 44 6f 77 6e 20 3d 20 46 |bControl|Down = F|
|000010d0| 61 6c 73 65 3b 0d 0a 09 | 09 62 72 65 61 6b 3b 0d |alse;...|.break;.|
|000010e0| 0a 09 63 61 73 65 20 50 | 2e 45 49 6e 70 75 74 4b |..case P|.EInputK|
|000010f0| 65 79 2e 49 4b 5f 53 68 | 69 66 74 3a 0d 0a 09 09 |ey.IK_Sh|ift:....|
|00001100| 62 53 68 69 66 74 44 6f | 77 6e 20 3d 20 46 61 6c |bShiftDo|wn = Fal|
|00001110| 73 65 3b 0d 0a 09 09 62 | 72 65 61 6b 3b 0d 0a 09 |se;....b|reak;...|
|00001120| 7d 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |}..}....|function|
|00001130| 20 4b 65 79 44 6f 77 6e | 28 69 6e 74 20 4b 65 79 | KeyDown|(int Key|
|00001140| 2c 20 66 6c 6f 61 74 20 | 58 2c 20 66 6c 6f 61 74 |, float |X, float|
|00001150| 20 59 29 0d 0a 7b 0d 0a | 09 6c 6f 63 61 6c 20 50 | Y)..{..|.local P|
|00001160| 6c 61 79 65 72 50 61 77 | 6e 20 50 3b 0d 0a 0d 0a |layerPaw|n P;....|
|00001170| 09 50 20 3d 20 47 65 74 | 50 6c 61 79 65 72 4f 77 |.P = Get|PlayerOw|
|00001180| 6e 65 72 28 29 3b 0d 0a | 09 73 77 69 74 63 68 20 |ner();..|.switch |
|00001190| 28 4b 65 79 29 0d 0a 09 | 7b 0d 0a 09 63 61 73 65 |(Key)...|{...case|
|000011a0| 20 50 2e 45 49 6e 70 75 | 74 4b 65 79 2e 49 4b 5f | P.EInpu|tKey.IK_|
|000011b0| 43 74 72 6c 3a 0d 0a 09 | 09 62 43 6f 6e 74 72 6f |Ctrl:...|.bContro|
|000011c0| 6c 44 6f 77 6e 20 3d 20 | 54 72 75 65 3b 0d 0a 09 |lDown = |True;...|
|000011d0| 09 62 72 65 61 6b 3b 0d | 0a 09 63 61 73 65 20 50 |.break;.|..case P|
|000011e0| 2e 45 49 6e 70 75 74 4b | 65 79 2e 49 4b 5f 53 68 |.EInputK|ey.IK_Sh|
|000011f0| 69 66 74 3a 0d 0a 09 09 | 62 53 68 69 66 74 44 6f |ift:....|bShiftDo|
|00001200| 77 6e 20 3d 20 54 72 75 | 65 3b 0d 0a 09 09 62 72 |wn = Tru|e;....br|
|00001210| 65 61 6b 3b 0d 0a 09 63 | 61 73 65 20 50 2e 45 49 |eak;...c|ase P.EI|
|00001220| 6e 70 75 74 4b 65 79 2e | 49 4b 5f 45 73 63 61 70 |nputKey.|IK_Escap|
|00001230| 65 3a 0d 0a 09 09 62 72 | 65 61 6b 3b 0d 0a 09 63 |e:....br|eak;...c|
|00001240| 61 73 65 20 50 2e 45 49 | 6e 70 75 74 4b 65 79 2e |ase P.EI|nputKey.|
|00001250| 49 4b 5f 45 6e 74 65 72 | 3a 0d 0a 09 09 69 66 28 |IK_Enter|:....if(|
|00001260| 62 43 61 6e 45 64 69 74 | 29 0d 0a 09 09 09 4e 6f |bCanEdit|).....No|
|00001270| 74 69 66 79 28 44 45 5f | 45 6e 74 65 72 50 72 65 |tify(DE_|EnterPre|
|00001280| 73 73 65 64 29 3b 0d 0a | 09 09 62 72 65 61 6b 3b |ssed);..|..break;|
|00001290| 0d 0a 09 63 61 73 65 20 | 50 2e 45 49 6e 70 75 74 |...case |P.EInput|
|000012a0| 4b 65 79 2e 49 4b 5f 4d | 6f 75 73 65 57 68 65 65 |Key.IK_M|ouseWhee|
|000012b0| 6c 55 70 3a 0d 0a 09 09 | 69 66 28 62 43 61 6e 45 |lUp:....|if(bCanE|
|000012c0| 64 69 74 29 0d 0a 09 09 | 09 4e 6f 74 69 66 79 28 |dit)....|.Notify(|
|000012d0| 44 45 5f 57 68 65 65 6c | 55 70 50 72 65 73 73 65 |DE_Wheel|UpPresse|
|000012e0| 64 29 3b 0d 0a 09 09 62 | 72 65 61 6b 3b 0d 0a 09 |d);....b|reak;...|
|000012f0| 63 61 73 65 20 50 2e 45 | 49 6e 70 75 74 4b 65 79 |case P.E|InputKey|
|00001300| 2e 49 4b 5f 4d 6f 75 73 | 65 57 68 65 65 6c 44 6f |.IK_Mous|eWheelDo|
|00001310| 77 6e 3a 0d 0a 09 09 69 | 66 28 62 43 61 6e 45 64 |wn:....i|f(bCanEd|
|00001320| 69 74 29 0d 0a 09 09 09 | 4e 6f 74 69 66 79 28 44 |it).....|Notify(D|
|00001330| 45 5f 57 68 65 65 6c 44 | 6f 77 6e 50 72 65 73 73 |E_WheelD|ownPress|
|00001340| 65 64 29 3b 0d 0a 09 09 | 62 72 65 61 6b 3b 0d 0a |ed);....|break;..|
|00001350| 09 63 61 73 65 20 50 2e | 45 49 6e 70 75 74 4b 65 |.case P.|EInputKe|
|00001360| 79 2e 49 4b 5f 52 69 67 | 68 74 3a 0d 0a 09 09 69 |y.IK_Rig|ht:....i|
|00001370| 66 28 62 43 61 6e 45 64 | 69 74 29 20 0d 0a 09 09 |f(bCanEd|it) ....|
|00001380| 7b 0d 0a 09 09 09 69 66 | 28 62 43 6f 6e 74 72 6f |{.....if|(bContro|
|00001390| 6c 44 6f 77 6e 29 0d 0a | 09 09 09 09 57 6f 72 64 |lDown)..|....Word|
|000013a0| 52 69 67 68 74 28 29 3b | 0d 0a 09 09 09 65 6c 73 |Right();|.....els|
|000013b0| 65 0d 0a 09 09 09 09 4d | 6f 76 65 52 69 67 68 74 |e......M|oveRight|
|000013c0| 28 29 3b 0d 0a 09 09 7d | 0d 0a 09 09 62 41 6c 6c |();....}|....bAll|
|000013d0| 53 65 6c 65 63 74 65 64 | 20 3d 20 46 61 6c 73 65 |Selected| = False|
|000013e0| 3b 0d 0a 09 09 62 72 65 | 61 6b 3b 0d 0a 09 63 61 |;....bre|ak;...ca|
|000013f0| 73 65 20 50 2e 45 49 6e | 70 75 74 4b 65 79 2e 49 |se P.EIn|putKey.I|
|00001400| 4b 5f 4c 65 66 74 3a 0d | 0a 09 09 69 66 28 62 43 |K_Left:.|...if(bC|
|00001410| 61 6e 45 64 69 74 29 0d | 0a 09 09 7b 0d 0a 09 09 |anEdit).|...{....|
|00001420| 09 69 66 28 62 43 6f 6e | 74 72 6f 6c 44 6f 77 6e |.if(bCon|trolDown|
|00001430| 29 0d 0a 09 09 09 09 57 | 6f 72 64 4c 65 66 74 28 |)......W|ordLeft(|
|00001440| 29 3b 0d 0a 09 09 09 65 | 6c 73 65 0d 0a 09 09 09 |);.....e|lse.....|
|00001450| 09 4d 6f 76 65 4c 65 66 | 74 28 29 3b 0d 0a 09 09 |.MoveLef|t();....|
|00001460| 7d 0d 0a 09 09 62 41 6c | 6c 53 65 6c 65 63 74 65 |}....bAl|lSelecte|
|00001470| 64 20 3d 20 46 61 6c 73 | 65 3b 0d 0a 09 09 62 72 |d = Fals|e;....br|
|00001480| 65 61 6b 3b 0d 0a 09 63 | 61 73 65 20 50 2e 45 49 |eak;...c|ase P.EI|
|00001490| 6e 70 75 74 4b 65 79 2e | 49 4b 5f 48 6f 6d 65 3a |nputKey.|IK_Home:|
|000014a0| 0d 0a 09 09 69 66 28 62 | 43 61 6e 45 64 69 74 29 |....if(b|CanEdit)|
|000014b0| 0d 0a 09 09 09 4d 6f 76 | 65 48 6f 6d 65 28 29 3b |.....Mov|eHome();|
|000014c0| 0d 0a 09 09 62 41 6c 6c | 53 65 6c 65 63 74 65 64 |....bAll|Selected|
|000014d0| 20 3d 20 46 61 6c 73 65 | 3b 0d 0a 09 09 62 72 65 | = False|;....bre|
|000014e0| 61 6b 3b 0d 0a 09 63 61 | 73 65 20 50 2e 45 49 6e |ak;...ca|se P.EIn|
|000014f0| 70 75 74 4b 65 79 2e 49 | 4b 5f 45 6e 64 3a 0d 0a |putKey.I|K_End:..|
|00001500| 09 09 69 66 28 62 43 61 | 6e 45 64 69 74 29 0d 0a |..if(bCa|nEdit)..|
|00001510| 09 09 09 4d 6f 76 65 45 | 6e 64 28 29 3b 0d 0a 09 |...MoveE|nd();...|
|00001520| 09 62 41 6c 6c 53 65 6c | 65 63 74 65 64 20 3d 20 |.bAllSel|ected = |
|00001530| 46 61 6c 73 65 3b 0d 0a | 09 09 62 72 65 61 6b 3b |False;..|..break;|
|00001540| 0d 0a 09 63 61 73 65 20 | 50 2e 45 49 6e 70 75 74 |...case |P.EInput|
|00001550| 4b 65 79 2e 49 4b 5f 42 | 61 63 6b 73 70 61 63 65 |Key.IK_B|ackspace|
|00001560| 3a 0d 0a 09 09 69 66 28 | 62 43 61 6e 45 64 69 74 |:....if(|bCanEdit|
|00001570| 29 0d 0a 09 09 7b 0d 0a | 09 09 09 69 66 28 62 41 |)....{..|...if(bA|
|00001580| 6c 6c 53 65 6c 65 63 74 | 65 64 29 0d 0a 09 09 09 |llSelect|ed).....|
|00001590| 09 43 6c 65 61 72 28 29 | 3b 0d 0a 09 09 09 65 6c |.Clear()|;.....el|
|000015a0| 73 65 0d 0a 09 09 09 09 | 42 61 63 6b 73 70 61 63 |se......|Backspac|
|000015b0| 65 28 29 3b 0d 0a 09 09 | 7d 0d 0a 09 09 62 41 6c |e();....|}....bAl|
|000015c0| 6c 53 65 6c 65 63 74 65 | 64 20 3d 20 46 61 6c 73 |lSelecte|d = Fals|
|000015d0| 65 3b 0d 0a 09 09 62 72 | 65 61 6b 3b 0d 0a 09 63 |e;....br|eak;...c|
|000015e0| 61 73 65 20 50 2e 45 49 | 6e 70 75 74 4b 65 79 2e |ase P.EI|nputKey.|
|000015f0| 49 4b 5f 44 65 6c 65 74 | 65 3a 0d 0a 09 09 69 66 |IK_Delet|e:....if|
|00001600| 28 62 43 61 6e 45 64 69 | 74 29 0d 0a 09 09 7b 0d |(bCanEdi|t)....{.|
|00001610| 0a 09 09 09 69 66 28 62 | 41 6c 6c 53 65 6c 65 63 |....if(b|AllSelec|
|00001620| 74 65 64 29 0d 0a 09 09 | 09 09 43 6c 65 61 72 28 |ted)....|..Clear(|
|00001630| 29 3b 0d 0a 09 09 09 65 | 6c 73 65 0d 0a 2f 2f 23 |);.....e|lse..//#|
|00001640| 69 66 20 31 20 2f 2f 4e | 45 57 0d 0a 09 09 09 09 |if 1 //N|EW......|
|00001650| 44 65 6c 65 74 65 53 65 | 6c 65 63 74 65 64 28 29 |DeleteSe|lected()|
|00001660| 3b 0d 0a 2f 2f 23 65 6c | 73 65 0d 0a 2f 2f 09 09 |;..//#el|se..//..|
|00001670| 09 09 44 65 6c 65 74 65 | 28 29 3b 0d 0a 2f 2f 23 |..Delete|();..//#|
|00001680| 65 6e 64 69 66 0d 0a 09 | 09 7d 0d 0a 09 09 62 41 |endif...|.}....bA|
|00001690| 6c 6c 53 65 6c 65 63 74 | 65 64 20 3d 20 46 61 6c |llSelect|ed = Fal|
|000016a0| 73 65 3b 0d 0a 09 09 62 | 72 65 61 6b 3b 0d 0a 09 |se;....b|reak;...|
|000016b0| 64 65 66 61 75 6c 74 3a | 0d 0a 09 09 69 66 28 4e |default:|....if(N|
|000016c0| 6f 74 69 66 79 4f 77 6e | 65 72 20 21 3d 20 4e 6f |otifyOwn|er != No|
|000016d0| 6e 65 29 0d 0a 09 09 09 | 4e 6f 74 69 66 79 4f 77 |ne).....|NotifyOw|
|000016e0| 6e 65 72 2e 4b 65 79 44 | 6f 77 6e 28 4b 65 79 2c |ner.KeyD|own(Key,|
|000016f0| 20 58 2c 20 59 29 3b 0d | 0a 09 09 65 6c 73 65 0d | X, Y);.|...else.|
|00001700| 0a 09 09 09 53 75 70 65 | 72 2e 4b 65 79 44 6f 77 |....Supe|r.KeyDow|
|00001710| 6e 28 4b 65 79 2c 20 58 | 2c 20 59 29 3b 0d 0a 09 |n(Key, X|, Y);...|
|00001720| 09 62 72 65 61 6b 3b 0d | 0a 09 7d 0d 0a 7d 0d 0a |.break;.|..}..}..|
|00001730| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 43 6c 69 63 6b |..functi|on Click|
|00001740| 28 66 6c 6f 61 74 20 58 | 2c 20 66 6c 6f 61 74 20 |(float X|, float |
|00001750| 59 29 0d 0a 7b 0d 0a 09 | 4e 6f 74 69 66 79 28 44 |Y)..{...|Notify(D|
|00001760| 45 5f 43 6c 69 63 6b 29 | 3b 0d 0a 7d 0d 0a 0d 0a |E_Click)|;..}....|
|00001770| 66 75 6e 63 74 69 6f 6e | 20 4c 4d 6f 75 73 65 44 |function| LMouseD|
|00001780| 6f 77 6e 28 66 6c 6f 61 | 74 20 58 2c 20 66 6c 6f |own(floa|t X, flo|
|00001790| 61 74 20 59 29 0d 0a 7b | 0d 0a 09 53 75 70 65 72 |at Y)..{|...Super|
|000017a0| 2e 4c 4d 6f 75 73 65 44 | 6f 77 6e 28 58 2c 20 59 |.LMouseD|own(X, Y|
|000017b0| 29 3b 0d 0a 09 4e 6f 74 | 69 66 79 28 44 45 5f 4c |);...Not|ify(DE_L|
|000017c0| 4d 6f 75 73 65 44 6f 77 | 6e 29 3b 0d 0a 7d 0d 0a |MouseDow|n);..}..|
|000017d0| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 50 61 69 6e 74 |..functi|on Paint|
|000017e0| 28 43 61 6e 76 61 73 20 | 43 2c 20 66 6c 6f 61 74 |(Canvas |C, float|
|000017f0| 20 58 2c 20 66 6c 6f 61 | 74 20 59 29 0d 0a 7b 0d | X, floa|t Y)..{.|
|00001800| 0a 09 6c 6f 63 61 6c 20 | 66 6c 6f 61 74 20 57 2c |..local |float W,|
|00001810| 20 48 3b 0d 0a 09 6c 6f | 63 61 6c 20 66 6c 6f 61 | H;...lo|cal floa|
|00001820| 74 20 54 65 78 74 59 3b | 0d 0a 0d 0a 09 43 2e 46 |t TextY;|.....C.F|
|00001830| 6f 6e 74 20 3d 20 52 6f | 6f 74 2e 46 6f 6e 74 73 |ont = Ro|ot.Fonts|
|00001840| 5b 46 6f 6e 74 5d 3b 0d | 0a 0d 0a 09 54 65 78 74 |[Font];.|....Text|
|00001850| 53 69 7a 65 28 43 2c 20 | 22 41 22 2c 20 57 2c 20 |Size(C, |"A", W, |
|00001860| 48 29 3b 0d 0a 09 54 65 | 78 74 59 20 3d 20 28 57 |H);...Te|xtY = (W|
|00001870| 69 6e 48 65 69 67 68 74 | 20 2d 20 48 29 20 2f 20 |inHeight| - H) / |
|00001880| 32 3b 0d 0a 0d 0a 09 54 | 65 78 74 53 69 7a 65 28 |2;.....T|extSize(|
|00001890| 43 2c 20 4c 65 66 74 28 | 56 61 6c 75 65 2c 20 43 |C, Left(|Value, C|
|000018a0| 61 72 65 74 4f 66 66 73 | 65 74 29 2c 20 57 2c 20 |aretOffs|et), W, |
|000018b0| 48 29 3b 0d 0a 0d 0a 09 | 43 2e 44 72 61 77 43 6f |H);.....|C.DrawCo|
|000018c0| 6c 6f 72 2e 52 20 3d 20 | 32 35 35 3b 0d 0a 09 43 |lor.R = |255;...C|
|000018d0| 2e 44 72 61 77 43 6f 6c | 6f 72 2e 47 20 3d 20 32 |.DrawCol|or.G = 2|
|000018e0| 35 35 3b 0d 0a 09 43 2e | 44 72 61 77 43 6f 6c 6f |55;...C.|DrawColo|
|000018f0| 72 2e 42 20 3d 20 32 35 | 35 3b 0d 0a 0d 0a 09 69 |r.B = 25|5;.....i|
|00001900| 66 28 57 20 2b 20 4f 66 | 66 73 65 74 20 3c 20 30 |f(W + Of|fset < 0|
|00001910| 29 0d 0a 09 09 4f 66 66 | 73 65 74 20 3d 20 2d 57 |)....Off|set = -W|
|00001920| 3b 0d 0a 0d 0a 09 69 66 | 28 57 20 2b 20 4f 66 66 |;.....if|(W + Off|
|00001930| 73 65 74 20 3e 20 28 57 | 69 6e 57 69 64 74 68 20 |set > (W|inWidth |
|00001940| 2d 20 32 29 29 0d 0a 09 | 7b 0d 0a 09 09 4f 66 66 |- 2))...|{....Off|
|00001950| 73 65 74 20 3d 20 28 57 | 69 6e 57 69 64 74 68 20 |set = (W|inWidth |
|00001960| 2d 20 32 29 20 2d 20 57 | 3b 0d 0a 09 09 69 66 28 |- 2) - W|;....if(|
|00001970| 4f 66 66 73 65 74 20 3e | 20 30 29 20 4f 66 66 73 |Offset >| 0) Offs|
|00001980| 65 74 20 3d 20 30 3b 0d | 0a 09 7d 0d 0a 0d 0a 09 |et = 0;.|..}.....|
|00001990| 43 2e 44 72 61 77 43 6f | 6c 6f 72 20 3d 20 54 65 |C.DrawCo|lor = Te|
|000019a0| 78 74 43 6f 6c 6f 72 3b | 0d 0a 0d 0a 09 69 66 28 |xtColor;|.....if(|
|000019b0| 62 41 6c 6c 53 65 6c 65 | 63 74 65 64 29 0d 0a 09 |bAllSele|cted)...|
|000019c0| 7b 0d 0a 09 09 44 72 61 | 77 53 74 72 65 74 63 68 |{....Dra|wStretch|
|000019d0| 65 64 54 65 78 74 75 72 | 65 28 43 2c 20 4f 66 66 |edTextur|e(C, Off|
|000019e0| 73 65 74 20 2b 20 31 2c | 20 54 65 78 74 59 2c 20 |set + 1,| TextY, |
|000019f0| 57 2c 20 48 2c 20 54 65 | 78 74 75 72 65 27 55 57 |W, H, Te|xture'UW|
|00001a00| 69 6e 64 6f 77 2e 57 68 | 69 74 65 54 65 78 74 75 |indow.Wh|iteTextu|
|00001a10| 72 65 27 29 3b 0d 0a 0d | 0a 09 09 2f 2f 20 49 6e |re');...|...// In|
|00001a20| 76 65 72 74 20 43 6f 6c | 6f 72 73 0d 0a 09 09 43 |vert Col|ors....C|
|00001a30| 2e 44 72 61 77 43 6f 6c | 6f 72 2e 52 20 3d 20 32 |.DrawCol|or.R = 2|
|00001a40| 35 35 20 5e 20 43 2e 44 | 72 61 77 43 6f 6c 6f 72 |55 ^ C.D|rawColor|
|00001a50| 2e 52 3b 0d 0a 09 09 43 | 2e 44 72 61 77 43 6f 6c |.R;....C|.DrawCol|
|00001a60| 6f 72 2e 47 20 3d 20 32 | 35 35 20 5e 20 43 2e 44 |or.G = 2|55 ^ C.D|
|00001a70| 72 61 77 43 6f 6c 6f 72 | 2e 47 3b 0d 0a 09 09 43 |rawColor|.G;....C|
|00001a80| 2e 44 72 61 77 43 6f 6c | 6f 72 2e 42 20 3d 20 32 |.DrawCol|or.B = 2|
|00001a90| 35 35 20 5e 20 43 2e 44 | 72 61 77 43 6f 6c 6f 72 |55 ^ C.D|rawColor|
|00001aa0| 2e 42 3b 0d 0a 09 7d 0d | 0a 0d 0a 09 43 6c 69 70 |.B;...}.|....Clip|
|00001ab0| 54 65 78 74 28 43 2c 20 | 4f 66 66 73 65 74 20 2b |Text(C, |Offset +|
|00001ac0| 20 31 2c 20 54 65 78 74 | 59 2c 20 20 56 61 6c 75 | 1, Text|Y, Valu|
|00001ad0| 65 29 3b 0d 0a 0d 0a 09 | 69 66 28 28 21 62 48 61 |e);.....|if((!bHa|
|00001ae0| 73 4b 65 79 62 6f 61 72 | 64 46 6f 63 75 73 29 20 |sKeyboar|dFocus) |
|00001af0| 7c 7c 20 28 21 62 43 61 | 6e 45 64 69 74 29 29 0d ||| (!bCa|nEdit)).|
|00001b00| 0a 09 09 62 53 68 6f 77 | 43 61 72 65 74 20 3d 20 |...bShow|Caret = |
|00001b10| 46 61 6c 73 65 3b 0d 0a | 09 65 6c 73 65 0d 0a 09 |False;..|.else...|
|00001b20| 7b 0d 0a 09 09 69 66 28 | 28 47 65 74 4c 65 76 65 |{....if(|(GetLeve|
|00001b30| 6c 28 29 2e 54 69 6d 65 | 53 65 63 6f 6e 64 73 20 |l().Time|Seconds |
|00001b40| 3e 20 4c 61 73 74 44 72 | 61 77 54 69 6d 65 20 2b |> LastDr|awTime +|
|00001b50| 20 30 2e 33 29 20 7c 7c | 20 28 47 65 74 4c 65 76 | 0.3) ||| (GetLev|
|00001b60| 65 6c 28 29 2e 54 69 6d | 65 53 65 63 6f 6e 64 73 |el().Tim|eSeconds|
|00001b70| 20 3c 20 4c 61 73 74 44 | 72 61 77 54 69 6d 65 29 | < LastD|rawTime)|
|00001b80| 29 0d 0a 09 09 7b 0d 0a | 09 09 09 4c 61 73 74 44 |)....{..|...LastD|
|00001b90| 72 61 77 54 69 6d 65 20 | 3d 20 47 65 74 4c 65 76 |rawTime |= GetLev|
|00001ba0| 65 6c 28 29 2e 54 69 6d | 65 53 65 63 6f 6e 64 73 |el().Tim|eSeconds|
|00001bb0| 3b 0d 0a 09 09 09 62 53 | 68 6f 77 43 61 72 65 74 |;.....bS|howCaret|
|00001bc0| 20 3d 20 21 62 53 68 6f | 77 43 61 72 65 74 3b 0d | = !bSho|wCaret;.|
|00001bd0| 0a 09 09 7d 0d 0a 09 7d | 0d 0a 0d 0a 09 69 66 28 |...}...}|.....if(|
|00001be0| 62 53 68 6f 77 43 61 72 | 65 74 29 0d 0a 09 09 43 |bShowCar|et)....C|
|00001bf0| 6c 69 70 54 65 78 74 28 | 43 2c 20 4f 66 66 73 65 |lipText(|C, Offse|
|00001c00| 74 20 2b 20 57 20 2d 20 | 31 2c 20 54 65 78 74 59 |t + W - |1, TextY|
|00001c10| 2c 20 22 7c 22 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |, "|");.|.}....fu|
|00001c20| 6e 63 74 69 6f 6e 20 43 | 6c 6f 73 65 28 6f 70 74 |nction C|lose(opt|
|00001c30| 69 6f 6e 61 6c 20 62 6f | 6f 6c 20 62 42 79 50 61 |ional bo|ol bByPa|
|00001c40| 72 65 6e 74 29 0d 0a 7b | 0d 0a 09 69 66 28 62 43 |rent)..{|...if(bC|
|00001c50| 68 61 6e 67 65 50 65 6e | 64 69 6e 67 29 0d 0a 09 |hangePen|ding)...|
|00001c60| 7b 0d 0a 09 09 62 43 68 | 61 6e 67 65 50 65 6e 64 |{....bCh|angePend|
|00001c70| 69 6e 67 20 3d 20 46 61 | 6c 73 65 3b 0d 0a 09 09 |ing = Fa|lse;....|
|00001c80| 4e 6f 74 69 66 79 28 44 | 45 5f 43 68 61 6e 67 65 |Notify(D|E_Change|
|00001c90| 29 3b 0d 0a 09 7d 0d 0a | 0d 0a 09 53 75 70 65 72 |);...}..|...Super|
|00001ca0| 2e 43 6c 6f 73 65 28 62 | 42 79 50 61 72 65 6e 74 |.Close(b|ByParent|
|00001cb0| 29 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |);..}...|.functio|
|00001cc0| 6e 20 46 6f 63 75 73 4f | 74 68 65 72 57 69 6e 64 |n FocusO|therWind|
|00001cd0| 6f 77 28 55 57 69 6e 64 | 6f 77 57 69 6e 64 6f 77 |ow(UWind|owWindow|
|00001ce0| 20 57 29 0d 0a 7b 0d 0a | 09 69 66 28 62 43 68 61 | W)..{..|.if(bCha|
|00001cf0| 6e 67 65 50 65 6e 64 69 | 6e 67 29 0d 0a 09 7b 0d |ngePendi|ng)...{.|
|00001d00| 0a 09 09 62 43 68 61 6e | 67 65 50 65 6e 64 69 6e |...bChan|gePendin|
|00001d10| 67 20 3d 20 46 61 6c 73 | 65 3b 0d 0a 09 09 4e 6f |g = Fals|e;....No|
|00001d20| 74 69 66 79 28 44 45 5f | 43 68 61 6e 67 65 29 3b |tify(DE_|Change);|
|00001d30| 0d 0a 09 7d 0d 0a 0d 0a | 09 69 66 28 4e 6f 74 69 |...}....|.if(Noti|
|00001d40| 66 79 4f 77 6e 65 72 20 | 21 3d 20 4e 6f 6e 65 29 |fyOwner |!= None)|
|00001d50| 0d 0a 09 09 4e 6f 74 69 | 66 79 4f 77 6e 65 72 2e |....Noti|fyOwner.|
|00001d60| 46 6f 63 75 73 4f 74 68 | 65 72 57 69 6e 64 6f 77 |FocusOth|erWindow|
|00001d70| 28 57 29 3b 0d 0a 09 65 | 6c 73 65 0d 0a 09 09 53 |(W);...e|lse....S|
|00001d80| 75 70 65 72 2e 46 6f 63 | 75 73 4f 74 68 65 72 57 |uper.Foc|usOtherW|
|00001d90| 69 6e 64 6f 77 28 57 29 | 3b 0d 0a 7d 0d 0a 0d 0a |indow(W)|;..}....|
|00001da0| 66 75 6e 63 74 69 6f 6e | 20 4b 65 79 46 6f 63 75 |function| KeyFocu|
|00001db0| 73 45 6e 74 65 72 28 29 | 0d 0a 7b 0d 0a 09 69 66 |sEnter()|..{...if|
|00001dc0| 28 62 53 65 6c 65 63 74 | 4f 6e 46 6f 63 75 73 20 |(bSelect|OnFocus |
|00001dd0| 26 26 20 21 62 48 61 73 | 4b 65 79 62 6f 61 72 64 |&& !bHas|Keyboard|
|00001de0| 46 6f 63 75 73 29 0d 0a | 09 09 53 65 6c 65 63 74 |Focus)..|..Select|
|00001df0| 41 6c 6c 28 29 3b 0d 0a | 0d 0a 09 53 75 70 65 72 |All();..|...Super|
|00001e00| 2e 4b 65 79 46 6f 63 75 | 73 45 6e 74 65 72 28 29 |.KeyFocu|sEnter()|
|00001e10| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|00001e20| 20 44 6f 75 62 6c 65 43 | 6c 69 63 6b 28 66 6c 6f | DoubleC|lick(flo|
|00001e30| 61 74 20 58 2c 20 66 6c | 6f 61 74 20 59 29 0d 0a |at X, fl|oat Y)..|
|00001e40| 7b 0d 0a 09 53 75 70 65 | 72 2e 44 6f 75 62 6c 65 |{...Supe|r.Double|
|00001e50| 43 6c 69 63 6b 28 58 2c | 20 59 29 3b 0d 0a 09 53 |Click(X,| Y);...S|
|00001e60| 65 6c 65 63 74 41 6c 6c | 28 29 3b 0d 0a 7d 0d 0a |electAll|();..}..|
|00001e70| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 4b 65 79 46 6f |..functi|on KeyFo|
|00001e80| 63 75 73 45 78 69 74 28 | 29 0d 0a 7b 0d 0a 09 62 |cusExit(|)..{...b|
|00001e90| 41 6c 6c 53 65 6c 65 63 | 74 65 64 20 3d 20 46 61 |AllSelec|ted = Fa|
|00001ea0| 6c 73 65 3b 0d 0a 09 53 | 75 70 65 72 2e 4b 65 79 |lse;...S|uper.Key|
|00001eb0| 46 6f 63 75 73 45 78 69 | 74 28 29 3b 0d 0a 7d 0d |FocusExi|t();..}.|
|00001ec0| 0a 09 0d 0a 00 | |..... | |
+--------+-------------------------+-------------------------+--------+--------+
