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

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 60 3b 63 6c 61 73 73 20 |........|`;class |
|00000010| 55 57 69 6e 64 6f 77 4d | 65 73 73 61 67 65 42 6f |UWindowM|essageBo|
|00000020| 78 43 57 20 65 78 70 61 | 6e 64 73 20 55 57 69 6e |xCW expa|nds UWin|
|00000030| 64 6f 77 44 69 61 6c 6f | 67 43 6c 69 65 6e 74 57 |dowDialo|gClientW|
|00000040| 69 6e 64 6f 77 3b 0d 0a | 0d 0a 76 61 72 20 4d 65 |indow;..|..var Me|
|00000050| 73 73 61 67 65 42 6f 78 | 42 75 74 74 6f 6e 73 20 |ssageBox|Buttons |
|00000060| 42 75 74 74 6f 6e 73 3b | 0d 0a 0d 0a 76 61 72 20 |Buttons;|....var |
|00000070| 4d 65 73 73 61 67 65 42 | 6f 78 52 65 73 75 6c 74 |MessageB|oxResult|
|00000080| 20 45 6e 74 65 72 52 65 | 73 75 6c 74 3b 0d 0a 76 | EnterRe|sult;..v|
|00000090| 61 72 20 55 57 69 6e 64 | 6f 77 53 6d 61 6c 6c 42 |ar UWind|owSmallB|
|000000a0| 75 74 74 6f 6e 20 59 65 | 73 42 75 74 74 6f 6e 2c |utton Ye|sButton,|
|000000b0| 20 4e 6f 42 75 74 74 6f | 6e 2c 20 4f 4b 42 75 74 | NoButto|n, OKBut|
|000000c0| 74 6f 6e 2c 20 43 61 6e | 63 65 6c 42 75 74 74 6f |ton, Can|celButto|
|000000d0| 6e 3b 0d 0a 76 61 72 20 | 6c 6f 63 61 6c 69 7a 65 |n;..var |localize|
|000000e0| 64 20 73 74 72 69 6e 67 | 20 59 65 73 54 65 78 74 |d string| YesText|
|000000f0| 2c 20 4e 6f 54 65 78 74 | 2c 20 4f 4b 54 65 78 74 |, NoText|, OKText|
|00000100| 2c 20 43 61 6e 63 65 6c | 54 65 78 74 3b 0d 0a 76 |, Cancel|Text;..v|
|00000110| 61 72 20 55 57 69 6e 64 | 6f 77 4d 65 73 73 61 67 |ar UWind|owMessag|
|00000120| 65 42 6f 78 41 72 65 61 | 20 4d 65 73 73 61 67 65 |eBoxArea| Message|
|00000130| 41 72 65 61 3b 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |Area;...|.functio|
|00000140| 6e 20 43 72 65 61 74 65 | 64 28 29 0d 0a 7b 0d 0a |n Create|d()..{..|
|00000150| 09 53 75 70 65 72 2e 43 | 72 65 61 74 65 64 28 29 |.Super.C|reated()|
|00000160| 3b 0d 0a 09 53 65 74 41 | 63 63 65 70 74 73 46 6f |;...SetA|cceptsFo|
|00000170| 63 75 73 28 29 3b 0d 0a | 0d 0a 09 4d 65 73 73 61 |cus();..|...Messa|
|00000180| 67 65 41 72 65 61 20 3d | 20 55 57 69 6e 64 6f 77 |geArea =| UWindow|
|00000190| 4d 65 73 73 61 67 65 42 | 6f 78 41 72 65 61 28 43 |MessageB|oxArea(C|
|000001a0| 72 65 61 74 65 57 69 6e | 64 6f 77 28 63 6c 61 73 |reateWin|dow(clas|
|000001b0| 73 27 55 57 69 6e 64 6f | 77 4d 65 73 73 61 67 65 |s'UWindo|wMessage|
|000001c0| 42 6f 78 41 72 65 61 27 | 2c 20 31 30 2c 20 31 30 |BoxArea'|, 10, 10|
|000001d0| 2c 20 57 69 6e 57 69 64 | 74 68 2d 32 30 2c 20 57 |, WinWid|th-20, W|
|000001e0| 69 6e 48 65 69 67 68 74 | 2d 34 34 29 29 3b 0d 0a |inHeight|-44));..|
|000001f0| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 4b 65 |}....fun|ction Ke|
|00000200| 79 44 6f 77 6e 28 69 6e | 74 20 4b 65 79 2c 20 66 |yDown(in|t Key, f|
|00000210| 6c 6f 61 74 20 58 2c 20 | 66 6c 6f 61 74 20 59 29 |loat X, |float Y)|
|00000220| 0d 0a 7b 0d 0a 09 6c 6f | 63 61 6c 20 55 57 69 6e |..{...lo|cal UWin|
|00000230| 64 6f 77 4d 65 73 73 61 | 67 65 42 6f 78 20 50 3b |dowMessa|geBox P;|
|00000240| 0d 0a 0d 0a 09 50 20 3d | 20 55 57 69 6e 64 6f 77 |.....P =| UWindow|
|00000250| 4d 65 73 73 61 67 65 42 | 6f 78 28 50 61 72 65 6e |MessageB|ox(Paren|
|00000260| 74 57 69 6e 64 6f 77 29 | 3b 0d 0a 0d 0a 09 69 66 |tWindow)|;.....if|
|00000270| 28 4b 65 79 20 3d 3d 20 | 47 65 74 50 6c 61 79 65 |(Key == |GetPlaye|
|00000280| 72 4f 77 6e 65 72 28 29 | 2e 45 49 6e 70 75 74 4b |rOwner()|.EInputK|
|00000290| 65 79 2e 49 4b 5f 45 6e | 74 65 72 20 26 26 20 45 |ey.IK_En|ter && E|
|000002a0| 6e 74 65 72 52 65 73 75 | 6c 74 20 21 3d 20 4d 52 |nterResu|lt != MR|
|000002b0| 5f 4e 6f 6e 65 29 0d 0a | 09 7b 0d 0a 09 09 50 20 |_None)..|.{....P |
|000002c0| 3d 20 55 57 69 6e 64 6f | 77 4d 65 73 73 61 67 65 |= UWindo|wMessage|
|000002d0| 42 6f 78 28 50 61 72 65 | 6e 74 57 69 6e 64 6f 77 |Box(Pare|ntWindow|
|000002e0| 29 3b 0d 0a 09 09 50 2e | 52 65 73 75 6c 74 20 3d |);....P.|Result =|
|000002f0| 20 45 6e 74 65 72 52 65 | 73 75 6c 74 3b 0d 0a 09 | EnterRe|sult;...|
|00000300| 09 50 2e 43 6c 6f 73 65 | 28 29 3b 0d 0a 09 7d 0d |.P.Close|();...}.|
|00000310| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 42 |.}....fu|nction B|
|00000320| 65 66 6f 72 65 50 61 69 | 6e 74 28 43 61 6e 76 61 |eforePai|nt(Canva|
|00000330| 73 20 43 2c 20 66 6c 6f | 61 74 20 58 2c 20 66 6c |s C, flo|at X, fl|
|00000340| 6f 61 74 20 59 29 0d 0a | 7b 0d 0a 09 53 75 70 65 |oat Y)..|{...Supe|
|00000350| 72 2e 42 65 66 6f 72 65 | 50 61 69 6e 74 28 43 2c |r.Before|Paint(C,|
|00000360| 20 58 2c 20 59 29 3b 0d | 0a 0d 0a 09 4d 65 73 73 | X, Y);.|....Mess|
|00000370| 61 67 65 41 72 65 61 2e | 53 65 74 53 69 7a 65 28 |ageArea.|SetSize(|
|00000380| 57 69 6e 57 69 64 74 68 | 2d 32 30 2c 20 57 69 6e |WinWidth|-20, Win|
|00000390| 48 65 69 67 68 74 2d 34 | 34 29 3b 0d 0a 0d 0a 09 |Height-4|4);.....|
|000003a0| 73 77 69 74 63 68 28 42 | 75 74 74 6f 6e 73 29 0d |switch(B|uttons).|
|000003b0| 0a 09 7b 0d 0a 09 63 61 | 73 65 20 4d 42 5f 59 65 |..{...ca|se MB_Ye|
|000003c0| 73 4e 6f 3a 0d 0a 09 09 | 4e 6f 42 75 74 74 6f 6e |sNo:....|NoButton|
|000003d0| 2e 57 69 6e 4c 65 66 74 | 20 3d 20 57 69 6e 57 69 |.WinLeft| = WinWi|
|000003e0| 64 74 68 20 2d 20 35 32 | 3b 0d 0a 09 09 4e 6f 42 |dth - 52|;....NoB|
|000003f0| 75 74 74 6f 6e 2e 57 69 | 6e 54 6f 70 20 3d 20 57 |utton.Wi|nTop = W|
|00000400| 69 6e 48 65 69 67 68 74 | 20 2d 20 32 30 3b 0d 0a |inHeight| - 20;..|
|00000410| 09 09 59 65 73 42 75 74 | 74 6f 6e 2e 57 69 6e 4c |..YesBut|ton.WinL|
|00000420| 65 66 74 20 3d 20 57 69 | 6e 57 69 64 74 68 20 2d |eft = Wi|nWidth -|
|00000430| 20 31 30 34 3b 0d 0a 09 | 09 59 65 73 42 75 74 74 | 104;...|.YesButt|
|00000440| 6f 6e 2e 57 69 6e 54 6f | 70 20 3d 20 57 69 6e 48 |on.WinTo|p = WinH|
|00000450| 65 69 67 68 74 20 2d 20 | 32 30 3b 0d 0a 09 09 62 |eight - |20;....b|
|00000460| 72 65 61 6b 3b 0d 0a 09 | 63 61 73 65 20 4d 42 5f |reak;...|case MB_|
|00000470| 4f 4b 43 61 6e 63 65 6c | 3a 0d 0a 09 09 43 61 6e |OKCancel|:....Can|
|00000480| 63 65 6c 42 75 74 74 6f | 6e 2e 57 69 6e 4c 65 66 |celButto|n.WinLef|
|00000490| 74 20 3d 20 57 69 6e 57 | 69 64 74 68 20 2d 20 35 |t = WinW|idth - 5|
|000004a0| 32 3b 0d 0a 09 09 43 61 | 6e 63 65 6c 42 75 74 74 |2;....Ca|ncelButt|
|000004b0| 6f 6e 2e 57 69 6e 54 6f | 70 20 3d 20 57 69 6e 48 |on.WinTo|p = WinH|
|000004c0| 65 69 67 68 74 20 2d 20 | 32 30 3b 0d 0a 09 09 4f |eight - |20;....O|
|000004d0| 4b 42 75 74 74 6f 6e 2e | 57 69 6e 4c 65 66 74 20 |KButton.|WinLeft |
|000004e0| 3d 20 57 69 6e 57 69 64 | 74 68 20 2d 20 31 30 34 |= WinWid|th - 104|
|000004f0| 3b 0d 0a 09 09 4f 4b 42 | 75 74 74 6f 6e 2e 57 69 |;....OKB|utton.Wi|
|00000500| 6e 54 6f 70 20 3d 20 57 | 69 6e 48 65 69 67 68 74 |nTop = W|inHeight|
|00000510| 20 2d 20 32 30 3b 0d 0a | 09 09 62 72 65 61 6b 3b | - 20;..|..break;|
|00000520| 0d 0a 09 63 61 73 65 20 | 4d 42 5f 4f 4b 3a 0d 0a |...case |MB_OK:..|
|00000530| 09 09 4f 4b 42 75 74 74 | 6f 6e 2e 57 69 6e 4c 65 |..OKButt|on.WinLe|
|00000540| 66 74 20 3d 20 57 69 6e | 57 69 64 74 68 20 2d 20 |ft = Win|Width - |
|00000550| 35 32 3b 0d 0a 09 09 4f | 4b 42 75 74 74 6f 6e 2e |52;....O|KButton.|
|00000560| 57 69 6e 54 6f 70 20 3d | 20 57 69 6e 48 65 69 67 |WinTop =| WinHeig|
|00000570| 68 74 20 2d 20 32 30 3b | 0d 0a 09 09 62 72 65 61 |ht - 20;|....brea|
|00000580| 6b 3b 0d 0a 09 7d 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |k;...}..|}....fun|
|00000590| 63 74 69 6f 6e 20 52 65 | 73 69 7a 65 64 28 29 0d |ction Re|sized().|
|000005a0| 0a 7b 0d 0a 09 53 75 70 | 65 72 2e 52 65 73 69 7a |.{...Sup|er.Resiz|
|000005b0| 65 64 28 29 3b 0d 0a 09 | 4d 65 73 73 61 67 65 41 |ed();...|MessageA|
|000005c0| 72 65 61 2e 53 65 74 53 | 69 7a 65 28 57 69 6e 57 |rea.SetS|ize(WinW|
|000005d0| 69 64 74 68 2d 32 30 2c | 20 57 69 6e 48 65 69 67 |idth-20,| WinHeig|
|000005e0| 68 74 2d 34 34 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |ht-44);.|.}....fu|
|000005f0| 6e 63 74 69 6f 6e 20 66 | 6c 6f 61 74 20 47 65 74 |nction f|loat Get|
|00000600| 48 65 69 67 68 74 28 43 | 61 6e 76 61 73 20 43 29 |Height(C|anvas C)|
|00000610| 0d 0a 7b 0d 0a 09 72 65 | 74 75 72 6e 20 34 34 20 |..{...re|turn 44 |
|00000620| 2b 20 4d 65 73 73 61 67 | 65 41 72 65 61 2e 47 65 |+ Messag|eArea.Ge|
|00000630| 74 48 65 69 67 68 74 28 | 43 29 3b 0d 0a 7d 0d 0a |tHeight(|C);..}..|
|00000640| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 50 61 69 6e 74 |..functi|on Paint|
|00000650| 28 43 61 6e 76 61 73 20 | 43 2c 20 66 6c 6f 61 74 |(Canvas |C, float|
|00000660| 20 58 2c 20 66 6c 6f 61 | 74 20 59 29 0d 0a 7b 0d | X, floa|t Y)..{.|
|00000670| 0a 09 6c 6f 63 61 6c 20 | 54 65 78 74 75 72 65 20 |..local |Texture |
|00000680| 54 3b 0d 0a 09 53 75 70 | 65 72 2e 50 61 69 6e 74 |T;...Sup|er.Paint|
|00000690| 28 43 2c 20 58 2c 20 59 | 29 3b 0d 0a 09 54 20 3d |(C, X, Y|);...T =|
|000006a0| 20 47 65 74 4c 6f 6f 6b | 41 6e 64 46 65 65 6c 54 | GetLook|AndFeelT|
|000006b0| 65 78 74 75 72 65 28 29 | 3b 0d 0a 09 44 72 61 77 |exture()|;...Draw|
|000006c0| 55 70 42 65 76 65 6c 28 | 20 43 2c 20 30 2c 20 57 |UpBevel(| C, 0, W|
|000006d0| 69 6e 48 65 69 67 68 74 | 2d 32 34 2c 20 57 69 6e |inHeight|-24, Win|
|000006e0| 57 69 64 74 68 2c 20 32 | 34 2c 20 54 29 3b 0d 0a |Width, 2|4, T);..|
|000006f0| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 53 65 |}....fun|ction Se|
|00000700| 74 75 70 4d 65 73 73 61 | 67 65 42 6f 78 43 6c 69 |tupMessa|geBoxCli|
|00000710| 65 6e 74 28 73 74 72 69 | 6e 67 20 49 6e 4d 65 73 |ent(stri|ng InMes|
|00000720| 73 61 67 65 2c 20 4d 65 | 73 73 61 67 65 42 6f 78 |sage, Me|ssageBox|
|00000730| 42 75 74 74 6f 6e 73 20 | 49 6e 42 75 74 74 6f 6e |Buttons |InButton|
|00000740| 73 2c 20 4d 65 73 73 61 | 67 65 42 6f 78 52 65 73 |s, Messa|geBoxRes|
|00000750| 75 6c 74 20 49 6e 45 6e | 74 65 72 52 65 73 75 6c |ult InEn|terResul|
|00000760| 74 29 0d 0a 7b 0d 0a 09 | 4d 65 73 73 61 67 65 41 |t)..{...|MessageA|
|00000770| 72 65 61 2e 4d 65 73 73 | 61 67 65 20 3d 20 49 6e |rea.Mess|age = In|
|00000780| 4d 65 73 73 61 67 65 3b | 0d 0a 09 42 75 74 74 6f |Message;|...Butto|
|00000790| 6e 73 20 3d 20 49 6e 42 | 75 74 74 6f 6e 73 3b 0d |ns = InB|uttons;.|
|000007a0| 0a 09 45 6e 74 65 72 52 | 65 73 75 6c 74 20 3d 20 |..EnterR|esult = |
|000007b0| 49 6e 45 6e 74 65 72 52 | 65 73 75 6c 74 3b 0d 0a |InEnterR|esult;..|
|000007c0| 0d 0a 09 2f 2f 20 43 72 | 65 61 74 65 20 62 75 74 |...// Cr|eate but|
|000007d0| 74 6f 6e 73 0d 0a 09 73 | 77 69 74 63 68 28 42 75 |tons...s|witch(Bu|
|000007e0| 74 74 6f 6e 73 29 0d 0a | 09 7b 0d 0a 09 63 61 73 |ttons)..|.{...cas|
|000007f0| 65 20 4d 42 5f 59 65 73 | 4e 6f 3a 0d 0a 09 09 4e |e MB_Yes|No:....N|
|00000800| 6f 42 75 74 74 6f 6e 20 | 3d 20 55 57 69 6e 64 6f |oButton |= UWindo|
|00000810| 77 53 6d 61 6c 6c 42 75 | 74 74 6f 6e 28 43 72 65 |wSmallBu|tton(Cre|
|00000820| 61 74 65 43 6f 6e 74 72 | 6f 6c 28 63 6c 61 73 73 |ateContr|ol(class|
|00000830| 27 55 57 69 6e 64 6f 77 | 53 6d 61 6c 6c 42 75 74 |'UWindow|SmallBut|
|00000840| 74 6f 6e 27 2c 20 57 69 | 6e 57 69 64 74 68 20 2d |ton', Wi|nWidth -|
|00000850| 20 35 32 2c 20 57 69 6e | 48 65 69 67 68 74 20 2d | 52, Win|Height -|
|00000860| 20 32 30 2c 20 34 38 2c | 20 31 36 29 29 3b 0d 0a | 20, 48,| 16));..|
|00000870| 09 09 4e 6f 42 75 74 74 | 6f 6e 2e 53 65 74 54 65 |..NoButt|on.SetTe|
|00000880| 78 74 28 4e 6f 54 65 78 | 74 29 3b 0d 0a 09 09 69 |xt(NoTex|t);....i|
|00000890| 66 28 45 6e 74 65 72 52 | 65 73 75 6c 74 20 3d 3d |f(EnterR|esult ==|
|000008a0| 20 4d 52 5f 4e 6f 29 0d | 0a 09 09 09 4e 6f 42 75 | MR_No).|....NoBu|
|000008b0| 74 74 6f 6e 2e 53 65 74 | 46 6f 6e 74 28 46 5f 42 |tton.Set|Font(F_B|
|000008c0| 6f 6c 64 29 3b 0d 0a 09 | 09 65 6c 73 65 0d 0a 09 |old);...|.else...|
|000008d0| 09 09 4e 6f 42 75 74 74 | 6f 6e 2e 53 65 74 46 6f |..NoButt|on.SetFo|
|000008e0| 6e 74 28 46 5f 4e 6f 72 | 6d 61 6c 29 3b 0d 0a 09 |nt(F_Nor|mal);...|
|000008f0| 09 59 65 73 42 75 74 74 | 6f 6e 20 3d 20 55 57 69 |.YesButt|on = UWi|
|00000900| 6e 64 6f 77 53 6d 61 6c | 6c 42 75 74 74 6f 6e 28 |ndowSmal|lButton(|
|00000910| 43 72 65 61 74 65 43 6f | 6e 74 72 6f 6c 28 63 6c |CreateCo|ntrol(cl|
|00000920| 61 73 73 27 55 57 69 6e | 64 6f 77 53 6d 61 6c 6c |ass'UWin|dowSmall|
|00000930| 42 75 74 74 6f 6e 27 2c | 20 57 69 6e 57 69 64 74 |Button',| WinWidt|
|00000940| 68 20 2d 20 31 30 34 2c | 20 57 69 6e 48 65 69 67 |h - 104,| WinHeig|
|00000950| 68 74 20 2d 20 32 30 2c | 20 34 38 2c 20 31 36 29 |ht - 20,| 48, 16)|
|00000960| 29 3b 0d 0a 09 09 59 65 | 73 42 75 74 74 6f 6e 2e |);....Ye|sButton.|
|00000970| 53 65 74 54 65 78 74 28 | 59 65 73 54 65 78 74 29 |SetText(|YesText)|
|00000980| 3b 0d 0a 09 09 69 66 28 | 45 6e 74 65 72 52 65 73 |;....if(|EnterRes|
|00000990| 75 6c 74 20 3d 3d 20 4d | 52 5f 59 65 73 29 0d 0a |ult == M|R_Yes)..|
|000009a0| 09 09 09 59 65 73 42 75 | 74 74 6f 6e 2e 53 65 74 |...YesBu|tton.Set|
|000009b0| 46 6f 6e 74 28 46 5f 42 | 6f 6c 64 29 3b 0d 0a 09 |Font(F_B|old);...|
|000009c0| 09 65 6c 73 65 0d 0a 09 | 09 09 59 65 73 42 75 74 |.else...|..YesBut|
|000009d0| 74 6f 6e 2e 53 65 74 46 | 6f 6e 74 28 46 5f 4e 6f |ton.SetF|ont(F_No|
|000009e0| 72 6d 61 6c 29 3b 0d 0a | 09 09 62 72 65 61 6b 3b |rmal);..|..break;|
|000009f0| 0d 0a 09 63 61 73 65 20 | 4d 42 5f 4f 4b 43 61 6e |...case |MB_OKCan|
|00000a00| 63 65 6c 3a 0d 0a 09 09 | 43 61 6e 63 65 6c 42 75 |cel:....|CancelBu|
|00000a10| 74 74 6f 6e 20 3d 20 55 | 57 69 6e 64 6f 77 53 6d |tton = U|WindowSm|
|00000a20| 61 6c 6c 42 75 74 74 6f | 6e 28 43 72 65 61 74 65 |allButto|n(Create|
|00000a30| 43 6f 6e 74 72 6f 6c 28 | 63 6c 61 73 73 27 55 57 |Control(|class'UW|
|00000a40| 69 6e 64 6f 77 53 6d 61 | 6c 6c 42 75 74 74 6f 6e |indowSma|llButton|
|00000a50| 27 2c 20 57 69 6e 57 69 | 64 74 68 20 2d 20 35 32 |', WinWi|dth - 52|
|00000a60| 2c 20 57 69 6e 48 65 69 | 67 68 74 20 2d 20 32 30 |, WinHei|ght - 20|
|00000a70| 2c 20 34 38 2c 20 31 36 | 29 29 3b 0d 0a 09 09 43 |, 48, 16|));....C|
|00000a80| 61 6e 63 65 6c 42 75 74 | 74 6f 6e 2e 53 65 74 54 |ancelBut|ton.SetT|
|00000a90| 65 78 74 28 43 61 6e 63 | 65 6c 54 65 78 74 29 3b |ext(Canc|elText);|
|00000aa0| 0d 0a 09 09 69 66 28 45 | 6e 74 65 72 52 65 73 75 |....if(E|nterResu|
|00000ab0| 6c 74 20 3d 3d 20 4d 52 | 5f 43 61 6e 63 65 6c 29 |lt == MR|_Cancel)|
|00000ac0| 0d 0a 09 09 09 43 61 6e | 63 65 6c 42 75 74 74 6f |.....Can|celButto|
|00000ad0| 6e 2e 53 65 74 46 6f 6e | 74 28 46 5f 42 6f 6c 64 |n.SetFon|t(F_Bold|
|00000ae0| 29 3b 0d 0a 09 09 65 6c | 73 65 0d 0a 09 09 09 43 |);....el|se.....C|
|00000af0| 61 6e 63 65 6c 42 75 74 | 74 6f 6e 2e 53 65 74 46 |ancelBut|ton.SetF|
|00000b00| 6f 6e 74 28 46 5f 4e 6f | 72 6d 61 6c 29 3b 0d 0a |ont(F_No|rmal);..|
|00000b10| 09 09 4f 4b 42 75 74 74 | 6f 6e 20 3d 20 55 57 69 |..OKButt|on = UWi|
|00000b20| 6e 64 6f 77 53 6d 61 6c | 6c 42 75 74 74 6f 6e 28 |ndowSmal|lButton(|
|00000b30| 43 72 65 61 74 65 43 6f | 6e 74 72 6f 6c 28 63 6c |CreateCo|ntrol(cl|
|00000b40| 61 73 73 27 55 57 69 6e | 64 6f 77 53 6d 61 6c 6c |ass'UWin|dowSmall|
|00000b50| 42 75 74 74 6f 6e 27 2c | 20 57 69 6e 57 69 64 74 |Button',| WinWidt|
|00000b60| 68 20 2d 20 31 30 34 2c | 20 57 69 6e 48 65 69 67 |h - 104,| WinHeig|
|00000b70| 68 74 20 2d 20 32 30 2c | 20 34 38 2c 20 31 36 29 |ht - 20,| 48, 16)|
|00000b80| 29 3b 0d 0a 09 09 4f 4b | 42 75 74 74 6f 6e 2e 53 |);....OK|Button.S|
|00000b90| 65 74 54 65 78 74 28 4f | 4b 54 65 78 74 29 3b 0d |etText(O|KText);.|
|00000ba0| 0a 09 09 69 66 28 45 6e | 74 65 72 52 65 73 75 6c |...if(En|terResul|
|00000bb0| 74 20 3d 3d 20 4d 52 5f | 4f 4b 29 0d 0a 09 09 09 |t == MR_|OK).....|
|00000bc0| 4f 4b 42 75 74 74 6f 6e | 2e 53 65 74 46 6f 6e 74 |OKButton|.SetFont|
|00000bd0| 28 46 5f 42 6f 6c 64 29 | 3b 0d 0a 09 09 65 6c 73 |(F_Bold)|;....els|
|00000be0| 65 0d 0a 09 09 09 4f 4b | 42 75 74 74 6f 6e 2e 53 |e.....OK|Button.S|
|00000bf0| 65 74 46 6f 6e 74 28 46 | 5f 4e 6f 72 6d 61 6c 29 |etFont(F|_Normal)|
|00000c00| 3b 0d 0a 09 09 62 72 65 | 61 6b 3b 0d 0a 09 63 61 |;....bre|ak;...ca|
|00000c10| 73 65 20 4d 42 5f 4f 4b | 3a 0d 0a 09 09 4f 4b 42 |se MB_OK|:....OKB|
|00000c20| 75 74 74 6f 6e 20 3d 20 | 55 57 69 6e 64 6f 77 53 |utton = |UWindowS|
|00000c30| 6d 61 6c 6c 42 75 74 74 | 6f 6e 28 43 72 65 61 74 |mallButt|on(Creat|
|00000c40| 65 43 6f 6e 74 72 6f 6c | 28 63 6c 61 73 73 27 55 |eControl|(class'U|
|00000c50| 57 69 6e 64 6f 77 53 6d | 61 6c 6c 42 75 74 74 6f |WindowSm|allButto|
|00000c60| 6e 27 2c 20 57 69 6e 57 | 69 64 74 68 20 2d 20 35 |n', WinW|idth - 5|
|00000c70| 32 2c 20 57 69 6e 48 65 | 69 67 68 74 20 2d 20 32 |2, WinHe|ight - 2|
|00000c80| 30 2c 20 34 38 2c 20 31 | 36 29 29 3b 0d 0a 09 09 |0, 48, 1|6));....|
|00000c90| 4f 4b 42 75 74 74 6f 6e | 2e 53 65 74 54 65 78 74 |OKButton|.SetText|
|00000ca0| 28 4f 4b 54 65 78 74 29 | 3b 0d 0a 09 09 69 66 28 |(OKText)|;....if(|
|00000cb0| 45 6e 74 65 72 52 65 73 | 75 6c 74 20 3d 3d 20 4d |EnterRes|ult == M|
|00000cc0| 52 5f 4f 4b 29 0d 0a 09 | 09 09 4f 4b 42 75 74 74 |R_OK)...|..OKButt|
|00000cd0| 6f 6e 2e 53 65 74 46 6f | 6e 74 28 46 5f 42 6f 6c |on.SetFo|nt(F_Bol|
|00000ce0| 64 29 3b 0d 0a 09 09 65 | 6c 73 65 0d 0a 09 09 09 |d);....e|lse.....|
|00000cf0| 4f 4b 42 75 74 74 6f 6e | 2e 53 65 74 46 6f 6e 74 |OKButton|.SetFont|
|00000d00| 28 46 5f 4e 6f 72 6d 61 | 6c 29 3b 0d 0a 09 09 62 |(F_Norma|l);....b|
|00000d10| 72 65 61 6b 3b 0d 0a 09 | 7d 0d 0a 7d 0d 0a 0d 0a |reak;...|}..}....|
|00000d20| 66 75 6e 63 74 69 6f 6e | 20 4e 6f 74 69 66 79 28 |function| Notify(|
|00000d30| 55 57 69 6e 64 6f 77 44 | 69 61 6c 6f 67 43 6f 6e |UWindowD|ialogCon|
|00000d40| 74 72 6f 6c 20 43 2c 20 | 62 79 74 65 20 45 29 0d |trol C, |byte E).|
|00000d50| 0a 7b 0d 0a 09 6c 6f 63 | 61 6c 20 55 57 69 6e 64 |.{...loc|al UWind|
|00000d60| 6f 77 4d 65 73 73 61 67 | 65 42 6f 78 20 50 3b 0d |owMessag|eBox P;.|
|00000d70| 0a 0d 0a 09 50 20 3d 20 | 55 57 69 6e 64 6f 77 4d |....P = |UWindowM|
|00000d80| 65 73 73 61 67 65 42 6f | 78 28 50 61 72 65 6e 74 |essageBo|x(Parent|
|00000d90| 57 69 6e 64 6f 77 29 3b | 0d 0a 0d 0a 09 69 66 28 |Window);|.....if(|
|00000da0| 45 20 3d 3d 20 44 45 5f | 43 6c 69 63 6b 29 0d 0a |E == DE_|Click)..|
|00000db0| 09 7b 0d 0a 09 09 73 77 | 69 74 63 68 28 43 29 0d |.{....sw|itch(C).|
|00000dc0| 0a 09 09 7b 0d 0a 09 09 | 63 61 73 65 20 59 65 73 |...{....|case Yes|
|00000dd0| 42 75 74 74 6f 6e 3a 0d | 0a 09 09 09 50 2e 52 65 |Button:.|....P.Re|
|00000de0| 73 75 6c 74 20 3d 20 4d | 52 5f 59 65 73 3b 0d 0a |sult = M|R_Yes;..|
|00000df0| 09 09 09 50 2e 43 6c 6f | 73 65 28 29 3b 09 09 09 |...P.Clo|se();...|
|00000e00| 0d 0a 09 09 09 62 72 65 | 61 6b 3b 0d 0a 09 09 63 |.....bre|ak;....c|
|00000e10| 61 73 65 20 4e 6f 42 75 | 74 74 6f 6e 3a 0d 0a 09 |ase NoBu|tton:...|
|00000e20| 09 09 50 2e 52 65 73 75 | 6c 74 20 3d 20 4d 52 5f |..P.Resu|lt = MR_|
|00000e30| 4e 6f 3b 0d 0a 09 09 09 | 50 2e 43 6c 6f 73 65 28 |No;.....|P.Close(|
|00000e40| 29 3b 0d 0a 09 09 09 62 | 72 65 61 6b 3b 0d 0a 09 |);.....b|reak;...|
|00000e50| 09 63 61 73 65 20 4f 4b | 42 75 74 74 6f 6e 3a 0d |.case OK|Button:.|
|00000e60| 0a 09 09 09 50 2e 52 65 | 73 75 6c 74 20 3d 20 4d |....P.Re|sult = M|
|00000e70| 52 5f 4f 4b 3b 0d 0a 09 | 09 09 50 2e 43 6c 6f 73 |R_OK;...|..P.Clos|
|00000e80| 65 28 29 3b 0d 0a 09 09 | 09 62 72 65 61 6b 3b 0d |e();....|.break;.|
|00000e90| 0a 09 09 63 61 73 65 20 | 43 61 6e 63 65 6c 42 75 |...case |CancelBu|
|00000ea0| 74 74 6f 6e 3a 0d 0a 09 | 09 09 50 2e 52 65 73 75 |tton:...|..P.Resu|
|00000eb0| 6c 74 20 3d 20 4d 52 5f | 43 61 6e 63 65 6c 3b 0d |lt = MR_|Cancel;.|
|00000ec0| 0a 09 09 09 50 2e 43 6c | 6f 73 65 28 29 3b 0d 0a |....P.Cl|ose();..|
|00000ed0| 09 09 09 62 72 65 61 6b | 3b 0d 0a 09 09 7d 0d 0a |...break|;....}..|
|00000ee0| 09 7d 0d 0a 7d 0d 0a 0d | 0a 00                   |.}..}...|..      |
+--------+-------------------------+-------------------------+--------+--------+