/ PC PowerPlay 79 / CDPowerplay79Disc1.iso / Demos / MobileForcesDemo_2002.05.07.exe / System / UWindow.u / UWindowWindow_UWindowTabControl_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 6c 35 63 6c 61 73 73 20 |........|l5class |
|00000010| 55 57 69 6e 64 6f 77 54 | 61 62 43 6f 6e 74 72 6f |UWindowT|abContro|
|00000020| 6c 20 65 78 74 65 6e 64 | 73 20 55 57 69 6e 64 6f |l extend|s UWindo|
|00000030| 77 4c 69 73 74 43 6f 6e | 74 72 6f 6c 3b 0d 0a 0d |wListCon|trol;...|
|00000040| 0a 76 61 72 20 55 57 69 | 6e 64 6f 77 54 61 62 43 |.var UWi|ndowTabC|
|00000050| 6f 6e 74 72 6f 6c 4c 65 | 66 74 42 75 74 74 6f 6e |ontrolLe|ftButton|
|00000060| 09 09 4c 65 66 74 42 75 | 74 74 6f 6e 3b 0d 0a 76 |..LeftBu|tton;..v|
|00000070| 61 72 20 55 57 69 6e 64 | 6f 77 54 61 62 43 6f 6e |ar UWind|owTabCon|
|00000080| 74 72 6f 6c 52 69 67 68 | 74 42 75 74 74 6f 6e 09 |trolRigh|tButton.|
|00000090| 52 69 67 68 74 42 75 74 | 74 6f 6e 3b 0d 0a 76 61 |RightBut|ton;..va|
|000000a0| 72 20 55 57 69 6e 64 6f | 77 54 61 62 43 6f 6e 74 |r UWindo|wTabCont|
|000000b0| 72 6f 6c 54 61 62 41 72 | 65 61 09 09 54 61 62 41 |rolTabAr|ea..TabA|
|000000c0| 72 65 61 3b 0d 0a 76 61 | 72 20 55 57 69 6e 64 6f |rea;..va|r UWindo|
|000000d0| 77 54 61 62 43 6f 6e 74 | 72 6f 6c 49 74 65 6d 09 |wTabCont|rolItem.|
|000000e0| 09 09 53 65 6c 65 63 74 | 65 64 54 61 62 3b 0d 0a |..Select|edTab;..|
|000000f0| 0d 0a 76 61 72 20 62 6f | 6f 6c 09 09 09 09 09 09 |..var bo|ol......|
|00000100| 09 62 4d 75 6c 74 69 4c | 69 6e 65 3b 0d 0a 76 61 |.bMultiL|ine;..va|
|00000110| 72 20 62 6f 6f 6c 09 09 | 09 09 09 09 09 62 53 65 |r bool..|.....bSe|
|00000120| 6c 65 63 74 4e 65 61 72 | 65 73 74 54 61 62 4f 6e |lectNear|estTabOn|
|00000130| 52 65 6d 6f 76 65 3b 0d | 0a 0d 0a 66 75 6e 63 74 |Remove;.|...funct|
|00000140| 69 6f 6e 20 43 72 65 61 | 74 65 64 28 29 0d 0a 7b |ion Crea|ted()..{|
|00000150| 0d 0a 09 53 75 70 65 72 | 2e 43 72 65 61 74 65 64 |...Super|.Created|
|00000160| 28 29 3b 0d 0a 0d 0a 09 | 53 65 6c 65 63 74 65 64 |();.....|Selected|
|00000170| 54 61 62 20 3d 20 4e 6f | 6e 65 3b 0d 0a 0d 0a 2f |Tab = No|ne;..../|
|00000180| 2a 09 54 61 62 41 72 65 | 61 20 3d 20 55 57 69 6e |*.TabAre|a = UWin|
|00000190| 64 6f 77 54 61 62 43 6f | 6e 74 72 6f 6c 54 61 62 |dowTabCo|ntrolTab|
|000001a0| 41 72 65 61 28 43 72 65 | 61 74 65 57 69 6e 64 6f |Area(Cre|ateWindo|
|000001b0| 77 28 63 6c 61 73 73 27 | 55 57 69 6e 64 6f 77 54 |w(class'|UWindowT|
|000001c0| 61 62 43 6f 6e 74 72 6f | 6c 54 61 62 41 72 65 61 |abContro|lTabArea|
|000001d0| 27 2c 20 0d 0a 09 09 09 | 09 09 30 2c 20 30 2c 20 |', .....|..0, 0, |
|000001e0| 57 69 6e 57 69 64 74 68 | 20 2d 20 4c 6f 6f 6b 41 |WinWidth| - LookA|
|000001f0| 6e 64 46 65 65 6c 2e 53 | 69 7a 65 5f 53 63 72 6f |ndFeel.S|ize_Scro|
|00000200| 6c 6c 62 61 72 57 69 64 | 74 68 20 0d 0a 09 09 09 |llbarWid|th .....|
|00000210| 09 09 09 2d 20 4c 6f 6f | 6b 41 6e 64 46 65 65 6c |...- Loo|kAndFeel|
|00000220| 2e 53 69 7a 65 5f 53 63 | 72 6f 6c 6c 62 61 72 57 |.Size_Sc|rollbarW|
|00000230| 69 64 74 68 20 2d 20 31 | 30 2c 0d 0a 09 09 09 09 |idth - 1|0,......|
|00000240| 09 20 4c 6f 6f 6b 41 6e | 64 46 65 65 6c 2e 53 69 |. LookAn|dFeel.Si|
|00000250| 7a 65 5f 54 61 62 41 72 | 65 61 48 65 69 67 68 74 |ze_TabAr|eaHeight|
|00000260| 2b 4c 6f 6f 6b 41 6e 64 | 46 65 65 6c 2e 53 69 7a |+LookAnd|Feel.Siz|
|00000270| 65 5f 54 61 62 41 72 65 | 61 4f 76 65 72 68 61 6e |e_TabAre|aOverhan|
|00000280| 67 48 65 69 67 68 74 29 | 29 3b 0d 0a 0d 0a 09 54 |gHeight)|);.....T|
|00000290| 61 62 41 72 65 61 2e 62 | 41 6c 77 61 79 73 4f 6e |abArea.b|AlwaysOn|
|000002a0| 54 6f 70 20 3d 20 54 72 | 75 65 3b 2a 2f 0d 0a 0d |Top = Tr|ue;*/...|
|000002b0| 0a 09 4c 65 66 74 42 75 | 74 74 6f 6e 20 3d 20 55 |..LeftBu|tton = U|
|000002c0| 57 69 6e 64 6f 77 54 61 | 62 43 6f 6e 74 72 6f 6c |WindowTa|bControl|
|000002d0| 4c 65 66 74 42 75 74 74 | 6f 6e 28 43 72 65 61 74 |LeftButt|on(Creat|
|000002e0| 65 57 69 6e 64 6f 77 28 | 63 6c 61 73 73 27 55 57 |eWindow(|class'UW|
|000002f0| 69 6e 64 6f 77 54 61 62 | 43 6f 6e 74 72 6f 6c 4c |indowTab|ControlL|
|00000300| 65 66 74 42 75 74 74 6f | 6e 27 2c 20 57 69 6e 57 |eftButto|n', WinW|
|00000310| 69 64 74 68 2d 32 30 2c | 20 30 2c 20 31 30 2c 20 |idth-20,| 0, 10, |
|00000320| 31 32 29 29 3b 0d 0a 09 | 52 69 67 68 74 42 75 74 |12));...|RightBut|
|00000330| 74 6f 6e 20 3d 20 55 57 | 69 6e 64 6f 77 54 61 62 |ton = UW|indowTab|
|00000340| 43 6f 6e 74 72 6f 6c 52 | 69 67 68 74 42 75 74 74 |ControlR|ightButt|
|00000350| 6f 6e 28 43 72 65 61 74 | 65 57 69 6e 64 6f 77 28 |on(Creat|eWindow(|
|00000360| 63 6c 61 73 73 27 55 57 | 69 6e 64 6f 77 54 61 62 |class'UW|indowTab|
|00000370| 43 6f 6e 74 72 6f 6c 52 | 69 67 68 74 42 75 74 74 |ControlR|ightButt|
|00000380| 6f 6e 27 2c 20 57 69 6e | 57 69 64 74 68 2d 31 30 |on', Win|Width-10|
|00000390| 2c 20 30 2c 20 31 30 2c | 20 31 32 29 29 3b 0d 0a |, 0, 10,| 12));..|
|000003a0| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 42 65 |}....fun|ction Be|
|000003b0| 66 6f 72 65 50 61 69 6e | 74 28 43 61 6e 76 61 73 |forePain|t(Canvas|
|000003c0| 20 43 2c 20 66 6c 6f 61 | 74 20 58 2c 20 66 6c 6f | C, floa|t X, flo|
|000003d0| 61 74 20 59 29 0d 0a 7b | 0d 0a 2f 2a 09 54 61 62 |at Y)..{|../*.Tab|
|000003e0| 41 72 65 61 2e 57 69 6e | 54 6f 70 20 3d 20 30 3b |Area.Win|Top = 0;|
|000003f0| 0d 0a 09 54 61 62 41 72 | 65 61 2e 57 69 6e 4c 65 |...TabAr|ea.WinLe|
|00000400| 66 74 20 3d 20 30 3b 0d | 0a 0d 0a 09 69 66 28 62 |ft = 0;.|....if(b|
|00000410| 4d 75 6c 74 69 4c 69 6e | 65 29 0d 0a 09 09 54 61 |MultiLin|e)....Ta|
|00000420| 62 41 72 65 61 2e 57 69 | 6e 57 69 64 74 68 20 3d |bArea.Wi|nWidth =|
|00000430| 20 57 69 6e 57 69 64 74 | 68 3b 0d 0a 09 65 6c 73 | WinWidt|h;...els|
|00000440| 65 0d 0a 09 09 54 61 62 | 41 72 65 61 2e 57 69 6e |e....Tab|Area.Win|
|00000450| 57 69 64 74 68 20 3d 20 | 57 69 6e 57 69 64 74 68 |Width = |WinWidth|
|00000460| 20 2d 20 4c 6f 6f 6b 41 | 6e 64 46 65 65 6c 2e 53 | - LookA|ndFeel.S|
|00000470| 69 7a 65 5f 53 63 72 6f | 6c 6c 62 61 72 57 69 64 |ize_Scro|llbarWid|
|00000480| 74 68 20 2d 20 4c 6f 6f | 6b 41 6e 64 46 65 65 6c |th - Loo|kAndFeel|
|00000490| 2e 53 69 7a 65 5f 53 63 | 72 6f 6c 6c 62 61 72 57 |.Size_Sc|rollbarW|
|000004a0| 69 64 74 68 20 2d 20 31 | 30 3b 0d 0a 0d 0a 09 54 |idth - 1|0;.....T|
|000004b0| 61 62 41 72 65 61 2e 4c | 61 79 6f 75 74 54 61 62 |abArea.L|ayoutTab|
|000004c0| 73 28 43 29 3b 0d 0a 09 | 57 69 6e 48 65 69 67 68 |s(C);...|WinHeigh|
|000004d0| 74 20 3d 20 28 4c 6f 6f | 6b 41 6e 64 46 65 65 6c |t = (Loo|kAndFeel|
|000004e0| 2e 53 69 7a 65 5f 54 61 | 62 41 72 65 61 48 65 69 |.Size_Ta|bAreaHei|
|000004f0| 67 68 74 20 2a 20 54 61 | 62 41 72 65 61 2e 54 61 |ght * Ta|bArea.Ta|
|00000500| 62 52 6f 77 73 29 20 2b | 20 4c 6f 6f 6b 41 6e 64 |bRows) +| LookAnd|
|00000510| 46 65 65 6c 2e 53 69 7a | 65 5f 54 61 62 41 72 65 |Feel.Siz|e_TabAre|
|00000520| 61 4f 76 65 72 68 61 6e | 67 48 65 69 67 68 74 3b |aOverhan|gHeight;|
|00000530| 0d 0a 09 54 61 62 41 72 | 65 61 2e 57 69 6e 48 65 |...TabAr|ea.WinHe|
|00000540| 69 67 68 74 20 3d 20 57 | 69 6e 48 65 69 67 68 74 |ight = W|inHeight|
|00000550| 3b 0d 0a 2a 2f 0d 0a 09 | 53 75 70 65 72 2e 42 65 |;..*/...|Super.Be|
|00000560| 66 6f 72 65 50 61 69 6e | 74 28 43 2c 20 58 2c 20 |forePain|t(C, X, |
|00000570| 59 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |Y);..}..|..functi|
|00000580| 6f 6e 20 53 65 74 4d 75 | 6c 74 69 4c 69 6e 65 28 |on SetMu|ltiLine(|
|00000590| 62 6f 6f 6c 20 49 6e 4d | 75 6c 74 69 4c 69 6e 65 |bool InM|ultiLine|
|000005a0| 29 0d 0a 7b 0d 0a 09 62 | 4d 75 6c 74 69 4c 69 6e |)..{...b|MultiLin|
|000005b0| 65 20 3d 20 49 6e 4d 75 | 6c 74 69 4c 69 6e 65 3b |e = InMu|ltiLine;|
|000005c0| 0d 0a 0d 0a 09 69 66 28 | 62 4d 75 6c 74 69 4c 69 |.....if(|bMultiLi|
|000005d0| 6e 65 29 0d 0a 09 7b 09 | 0d 0a 09 09 4c 65 66 74 |ne)...{.|....Left|
|000005e0| 42 75 74 74 6f 6e 2e 48 | 69 64 65 57 69 6e 64 6f |Button.H|ideWindo|
|000005f0| 77 28 29 3b 0d 0a 09 09 | 52 69 67 68 74 42 75 74 |w();....|RightBut|
|00000600| 74 6f 6e 2e 48 69 64 65 | 57 69 6e 64 6f 77 28 29 |ton.Hide|Window()|
|00000610| 3b 0d 0a 09 7d 0d 0a 09 | 65 6c 73 65 0d 0a 09 7b |;...}...|else...{|
|00000620| 0d 0a 09 09 4c 65 66 74 | 42 75 74 74 6f 6e 2e 53 |....Left|Button.S|
|00000630| 68 6f 77 57 69 6e 64 6f | 77 28 29 3b 0d 0a 09 09 |howWindo|w();....|
|00000640| 52 69 67 68 74 42 75 74 | 74 6f 6e 2e 53 68 6f 77 |RightBut|ton.Show|
|00000650| 57 69 6e 64 6f 77 28 29 | 3b 0d 0a 09 7d 0d 0a 7d |Window()|;...}..}|
|00000660| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 50 61 69 |....func|tion Pai|
|00000670| 6e 74 28 43 61 6e 76 61 | 73 20 43 2c 20 66 6c 6f |nt(Canva|s C, flo|
|00000680| 61 74 20 58 2c 20 66 6c | 6f 61 74 20 59 29 0d 0a |at X, fl|oat Y)..|
|00000690| 7b 0d 0a 2f 2a 09 6c 6f | 63 61 6c 20 52 65 67 69 |{../*.lo|cal Regi|
|000006a0| 6f 6e 20 52 3b 0d 0a 09 | 6c 6f 63 61 6c 20 54 65 |on R;...|local Te|
|000006b0| 78 74 75 72 65 20 54 3b | 0d 0a 0d 0a 09 54 20 3d |xture T;|.....T =|
|000006c0| 20 47 65 74 4c 6f 6f 6b | 41 6e 64 46 65 65 6c 54 | GetLook|AndFeelT|
|000006d0| 65 78 74 75 72 65 28 29 | 3b 0d 0a 09 52 20 3d 20 |exture()|;...R = |
|000006e0| 4c 6f 6f 6b 41 6e 64 46 | 65 65 6c 2e 54 61 62 42 |LookAndF|eel.TabB|
|000006f0| 61 63 6b 67 72 6f 75 6e | 64 3b 0d 0a 09 44 72 61 |ackgroun|d;...Dra|
|00000700| 77 53 74 72 65 74 63 68 | 65 64 54 65 78 74 75 72 |wStretch|edTextur|
|00000710| 65 53 65 67 6d 65 6e 74 | 28 20 43 2c 20 30 2c 20 |eSegment|( C, 0, |
|00000720| 30 2c 20 57 69 6e 57 69 | 64 74 68 2c 20 4c 6f 6f |0, WinWi|dth, Loo|
|00000730| 6b 41 6e 64 46 65 65 6c | 2e 53 69 7a 65 5f 54 61 |kAndFeel|.Size_Ta|
|00000740| 62 41 72 65 61 48 65 69 | 67 68 74 20 2a 20 54 61 |bAreaHei|ght * Ta|
|00000750| 62 41 72 65 61 2e 54 61 | 62 52 6f 77 73 2c 20 52 |bArea.Ta|bRows, R|
|00000760| 2e 58 2c 20 52 2e 59 2c | 20 52 2e 57 2c 20 52 2e |.X, R.Y,| R.W, R.|
|00000770| 48 2c 20 54 20 29 3b 2a | 2f 0d 0a 7d 0d 0a 0d 0a |H, T );*|/..}....|
|00000780| 66 75 6e 63 74 69 6f 6e | 20 55 57 69 6e 64 6f 77 |function| UWindow|
|00000790| 54 61 62 43 6f 6e 74 72 | 6f 6c 49 74 65 6d 20 41 |TabContr|olItem A|
|000007a0| 64 64 54 61 62 28 73 74 | 72 69 6e 67 20 43 61 70 |ddTab(st|ring Cap|
|000007b0| 74 69 6f 6e 29 0d 0a 7b | 0d 0a 09 6c 6f 63 61 6c |tion)..{|...local|
|000007c0| 20 55 57 69 6e 64 6f 77 | 54 61 62 43 6f 6e 74 72 | UWindow|TabContr|
|000007d0| 6f 6c 49 74 65 6d 20 49 | 3b 0d 0a 0d 0a 09 49 20 |olItem I|;.....I |
|000007e0| 3d 20 55 57 69 6e 64 6f | 77 54 61 62 43 6f 6e 74 |= UWindo|wTabCont|
|000007f0| 72 6f 6c 49 74 65 6d 28 | 49 74 65 6d 73 2e 41 70 |rolItem(|Items.Ap|
|00000800| 70 65 6e 64 28 4c 69 73 | 74 43 6c 61 73 73 29 29 |pend(Lis|tClass))|
|00000810| 3b 0d 0a 0d 0a 09 49 2e | 4f 77 6e 65 72 20 3d 20 |;.....I.|Owner = |
|00000820| 53 65 6c 66 3b 0d 0a 09 | 49 2e 53 65 74 43 61 70 |Self;...|I.SetCap|
|00000830| 74 69 6f 6e 28 43 61 70 | 74 69 6f 6e 29 3b 0d 0a |tion(Cap|tion);..|
|00000840| 0d 0a 09 69 66 28 53 65 | 6c 65 63 74 65 64 54 61 |...if(Se|lectedTa|
|00000850| 62 20 3d 3d 20 4e 6f 6e | 65 29 20 0d 0a 09 09 53 |b == Non|e) ....S|
|00000860| 65 6c 65 63 74 65 64 54 | 61 62 20 3d 20 49 3b 0d |electedT|ab = I;.|
|00000870| 0a 09 0d 0a 09 72 65 74 | 75 72 6e 20 49 3b 0d 0a |.....ret|urn I;..|
|00000880| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 55 57 |}....fun|ction UW|
|00000890| 69 6e 64 6f 77 54 61 62 | 43 6f 6e 74 72 6f 6c 49 |indowTab|ControlI|
|000008a0| 74 65 6d 20 49 6e 73 65 | 72 74 54 61 62 28 55 57 |tem Inse|rtTab(UW|
|000008b0| 69 6e 64 6f 77 54 61 62 | 43 6f 6e 74 72 6f 6c 49 |indowTab|ControlI|
|000008c0| 74 65 6d 20 42 65 66 6f | 72 65 54 61 62 2c 20 73 |tem Befo|reTab, s|
|000008d0| 74 72 69 6e 67 20 43 61 | 70 74 69 6f 6e 29 0d 0a |tring Ca|ption)..|
|000008e0| 7b 0d 0a 09 6c 6f 63 61 | 6c 20 55 57 69 6e 64 6f |{...loca|l UWindo|
|000008f0| 77 54 61 62 43 6f 6e 74 | 72 6f 6c 49 74 65 6d 20 |wTabCont|rolItem |
|00000900| 49 3b 0d 0a 0d 0a 09 49 | 20 3d 20 55 57 69 6e 64 |I;.....I| = UWind|
|00000910| 6f 77 54 61 62 43 6f 6e | 74 72 6f 6c 49 74 65 6d |owTabCon|trolItem|
|00000920| 28 42 65 66 6f 72 65 54 | 61 62 2e 49 6e 73 65 72 |(BeforeT|ab.Inser|
|00000930| 74 42 65 66 6f 72 65 28 | 4c 69 73 74 43 6c 61 73 |tBefore(|ListClas|
|00000940| 73 29 29 3b 0d 0a 0d 0a | 09 49 2e 4f 77 6e 65 72 |s));....|.I.Owner|
|00000950| 20 3d 20 53 65 6c 66 3b | 0d 0a 09 49 2e 53 65 74 | = Self;|...I.Set|
|00000960| 43 61 70 74 69 6f 6e 28 | 43 61 70 74 69 6f 6e 29 |Caption(|Caption)|
|00000970| 3b 0d 0a 0d 0a 09 69 66 | 28 53 65 6c 65 63 74 65 |;.....if|(Selecte|
|00000980| 64 54 61 62 20 3d 3d 20 | 4e 6f 6e 65 29 20 0d 0a |dTab == |None) ..|
|00000990| 09 09 53 65 6c 65 63 74 | 65 64 54 61 62 20 3d 20 |..Select|edTab = |
|000009a0| 49 3b 0d 0a 09 0d 0a 09 | 72 65 74 75 72 6e 20 49 |I;......|return I|
|000009b0| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|000009c0| 20 47 6f 74 6f 54 61 62 | 28 20 55 57 69 6e 64 6f | GotoTab|( UWindo|
|000009d0| 77 54 61 62 43 6f 6e 74 | 72 6f 6c 49 74 65 6d 20 |wTabCont|rolItem |
|000009e0| 4e 65 77 53 65 6c 65 63 | 74 65 64 2c 20 6f 70 74 |NewSelec|ted, opt|
|000009f0| 69 6f 6e 61 6c 20 62 6f | 6f 6c 20 62 42 79 55 73 |ional bo|ol bByUs|
|00000a00| 65 72 20 29 0d 0a 7b 0d | 0a 09 69 66 28 53 65 6c |er )..{.|..if(Sel|
|00000a10| 65 63 74 65 64 54 61 62 | 20 21 3d 20 4e 65 77 53 |ectedTab| != NewS|
|00000a20| 65 6c 65 63 74 65 64 20 | 26 26 20 62 42 79 55 73 |elected |&& bByUs|
|00000a30| 65 72 29 0d 0a 09 09 4c | 6f 6f 6b 41 6e 64 46 65 |er)....L|ookAndFe|
|00000a40| 65 6c 2e 50 6c 61 79 4d | 65 6e 75 53 6f 75 6e 64 |el.PlayM|enuSound|
|00000a50| 28 53 65 6c 66 2c 20 4d | 53 5f 43 68 61 6e 67 65 |(Self, M|S_Change|
|00000a60| 54 61 62 29 3b 0d 0a 09 | 53 65 6c 65 63 74 65 64 |Tab);...|Selected|
|00000a70| 54 61 62 20 3d 20 4e 65 | 77 53 65 6c 65 63 74 65 |Tab = Ne|wSelecte|
|00000a80| 64 3b 0d 0a 2f 2f 09 54 | 61 62 41 72 65 61 2e 62 |d;..//.T|abArea.b|
|00000a90| 53 68 6f 77 53 65 6c 65 | 63 74 65 64 20 3d 20 54 |ShowSele|cted = T|
|00000aa0| 72 75 65 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |rue;..}.|...funct|
|00000ab0| 69 6f 6e 20 55 57 69 6e | 64 6f 77 54 61 62 43 6f |ion UWin|dowTabCo|
|00000ac0| 6e 74 72 6f 6c 49 74 65 | 6d 20 47 65 74 54 61 62 |ntrolIte|m GetTab|
|00000ad0| 28 20 73 74 72 69 6e 67 | 20 43 61 70 74 69 6f 6e |( string| Caption|
|00000ae0| 20 29 0d 0a 7b 0d 0a 09 | 6c 6f 63 61 6c 20 55 57 | )..{...|local UW|
|00000af0| 69 6e 64 6f 77 54 61 62 | 43 6f 6e 74 72 6f 6c 49 |indowTab|ControlI|
|00000b00| 74 65 6d 20 49 3b 0d 0a | 09 66 6f 72 28 49 20 3d |tem I;..|.for(I =|
|00000b10| 20 55 57 69 6e 64 6f 77 | 54 61 62 43 6f 6e 74 72 | UWindow|TabContr|
|00000b20| 6f 6c 49 74 65 6d 28 49 | 74 65 6d 73 2e 4e 65 78 |olItem(I|tems.Nex|
|00000b30| 74 29 3b 20 49 20 21 3d | 20 4e 6f 6e 65 3b 20 49 |t); I !=| None; I|
|00000b40| 20 3d 20 55 57 69 6e 64 | 6f 77 54 61 62 43 6f 6e | = UWind|owTabCon|
|00000b50| 74 72 6f 6c 49 74 65 6d | 28 49 2e 4e 65 78 74 29 |trolItem|(I.Next)|
|00000b60| 29 0d 0a 09 7b 0d 0a 09 | 09 69 66 28 49 2e 43 61 |)...{...|.if(I.Ca|
|00000b70| 70 74 69 6f 6e 20 3d 3d | 20 43 61 70 74 69 6f 6e |ption ==| Caption|
|00000b80| 29 20 72 65 74 75 72 6e | 20 49 3b 0d 0a 09 7d 0d |) return| I;...}.|
|00000b90| 0a 0d 0a 09 72 65 74 75 | 72 6e 20 4e 6f 6e 65 3b |....retu|rn None;|
|00000ba0| 09 09 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |....}...|.functio|
|00000bb0| 6e 20 44 65 6c 65 74 65 | 54 61 62 28 20 55 57 69 |n Delete|Tab( UWi|
|00000bc0| 6e 64 6f 77 54 61 62 43 | 6f 6e 74 72 6f 6c 49 74 |ndowTabC|ontrolIt|
|00000bd0| 65 6d 20 54 61 62 20 29 | 0d 0a 7b 0d 0a 09 6c 6f |em Tab )|..{...lo|
|00000be0| 63 61 6c 20 55 57 69 6e | 64 6f 77 54 61 62 43 6f |cal UWin|dowTabCo|
|00000bf0| 6e 74 72 6f 6c 49 74 65 | 6d 20 4e 65 78 74 54 61 |ntrolIte|m NextTa|
|00000c00| 62 3b 0d 0a 09 6c 6f 63 | 61 6c 20 55 57 69 6e 64 |b;...loc|al UWind|
|00000c10| 6f 77 54 61 62 43 6f 6e | 74 72 6f 6c 49 74 65 6d |owTabCon|trolItem|
|00000c20| 20 50 72 65 76 54 61 62 | 3b 0d 0a 09 0d 0a 09 4e | PrevTab|;......N|
|00000c30| 65 78 74 54 61 62 20 3d | 20 55 57 69 6e 64 6f 77 |extTab =| UWindow|
|00000c40| 54 61 62 43 6f 6e 74 72 | 6f 6c 49 74 65 6d 28 54 |TabContr|olItem(T|
|00000c50| 61 62 2e 4e 65 78 74 29 | 3b 0d 0a 09 50 72 65 76 |ab.Next)|;...Prev|
|00000c60| 54 61 62 20 3d 20 55 57 | 69 6e 64 6f 77 54 61 62 |Tab = UW|indowTab|
|00000c70| 43 6f 6e 74 72 6f 6c 49 | 74 65 6d 28 54 61 62 2e |ControlI|tem(Tab.|
|00000c80| 50 72 65 76 29 3b 0d 0a | 09 54 61 62 2e 52 65 6d |Prev);..|.Tab.Rem|
|00000c90| 6f 76 65 28 29 3b 0d 0a | 0d 0a 09 69 66 28 53 65 |ove();..|...if(Se|
|00000ca0| 6c 65 63 74 65 64 54 61 | 62 20 3d 3d 20 54 61 62 |lectedTa|b == Tab|
|00000cb0| 29 0d 0a 09 7b 0d 0a 09 | 09 69 66 28 62 53 65 6c |)...{...|.if(bSel|
|00000cc0| 65 63 74 4e 65 61 72 65 | 73 74 54 61 62 4f 6e 52 |ectNeare|stTabOnR|
|00000cd0| 65 6d 6f 76 65 29 0d 0a | 09 09 7b 0d 0a 09 09 09 |emove)..|..{.....|
|00000ce0| 54 61 62 20 3d 20 4e 65 | 78 74 54 61 62 3b 0d 0a |Tab = Ne|xtTab;..|
|00000cf0| 09 09 09 69 66 28 54 61 | 62 20 3d 3d 20 4e 6f 6e |...if(Ta|b == Non|
|00000d00| 65 29 0d 0a 09 09 09 09 | 54 61 62 20 3d 20 50 72 |e)......|Tab = Pr|
|00000d10| 65 76 54 61 62 3b 0d 0a | 09 09 09 0d 0a 09 09 09 |evTab;..|........|
|00000d20| 47 6f 74 6f 54 61 62 28 | 54 61 62 29 3b 0d 0a 09 |GotoTab(|Tab);...|
|00000d30| 09 7d 0d 0a 09 09 65 6c | 73 65 0d 0a 09 09 09 47 |.}....el|se.....G|
|00000d40| 6f 74 6f 54 61 62 28 55 | 57 69 6e 64 6f 77 54 61 |otoTab(U|WindowTa|
|00000d50| 62 43 6f 6e 74 72 6f 6c | 49 74 65 6d 28 49 74 65 |bControl|Item(Ite|
|00000d60| 6d 73 2e 4e 65 78 74 29 | 29 3b 0d 0a 09 7d 0d 0a |ms.Next)|);...}..|
|00000d70| 7d 0d 0a 0d 0a 00       |                         |}.....  |        |
+--------+-------------------------+-------------------------+--------+--------+