MIME-Version: 1.0 Content-Type: multipart/related; boundary="----=_NextPart_01C6738A.0679BB40" Данный документ является веб-страницей в одном файле, также называемой файлом веб-архива. Если вы видите это сообщение, значит данный обозреватель или редактор не поддерживает файлы веб-архива. Загрузите обозреватель, поддерживающий веб-архивы, например Microsoft Internet Explorer. ------=_NextPart_01C6738A.0679BB40 Content-Location: file:///C:/A811C654/file7172.htm Content-Transfer-Encoding: quoted-printable Content-Type: text/html; charset="us-ascii" Практичесl= 2;ая работа № 14

Прак= 090;ическая работа № 14

«Све= 090;офор»

Цель работы - созk= 6;ать программу, выполняющуn= 2; следующие д = 77;йствия:

1.&n= bsp;     После запуска программы в окне изображаетl= 9;я светофор с тремя лампочками, способными = 88;еагировать на наведени = 77; указателя мыши.

2.&n= bsp;     Когда указатель мыши наведе = 85; на лампочку, она меняет свой цвет.

 

 =

 

 

 

3.&n= bsp;     Для выхода из программы необходимо щелкнуть мышью на закрывающеl= 1; кнопке в строке заго = 83;овка.

Опис= 072;ние плана разработки программы<= /b>

1.&n= bsp;     Открыть новый проек = 90;.

= 2.&n= bsp;     Размест&#= 1080;ть на форме экземпляры компонентоk= 4;: фигура Shape.

= 3.&n= bsp;     Выполни&#= 1090;ь следующие действия:

Таблица 14.

Выделе = 85;ный объект

Вкладк = 72; окна

Object Inspector<= /o:p>

Имя свойства/

имя события

Действ = 80;е

Form1

Properties

Caption

Установ= 082;а имени формы «Светофор»

Height

Присвои= 090;ь значение 300

Width

Присвои= 090;ь значение 120

BorderIcons

(Слу&= #1078;ебные кнопки)

Выбрать для подсвойств= 072; biMinimize (Сво= рачивание) и biMaximize (= 056;азворачива&= #1085;ие) значение False

Color

Задать стандартны= 081; серый цвет

BorderStyle

(Сти&= #1083;ь рамки)

Выбрать значение bsSi= ngle

Events

OnMouseMove

В процедуру передаются дополнител= 100;ные параметры: Shift – указывает, не была ли при перемещени= 080; нажата клавиша SHIFT, CTRL &= #1080;ли ALT; X - горизонтал= 100;ная координата указателя мыши; Y - вертикальн= 072;я координата указателя.

Shape1

(Вкладк = 72; Ad= ditional)

Properties

 

Height

Присвои= 090;ь значение 61

 

Width

Присвои= 090;ь значение 61

 

Shape (Фор = 84;а)

Выбрать значение stCi= rcle (Круг)

 

Pen (Конт= ;ур)

Выбрать для подсвойств= 072; Color (Цвет) значение clRe= d (к= ;расный цвет)

 

Brush (Кис = 90;ь)

Выбрать для подсвойств= 072; Style (стиль) значение bsCl= ear (прозрачный)<= /p>

 

Enabled (Вкл&#= 1102;чен)

Выбрать значение Fals= e (Не= 090;)

 

Shape= 2

(Вкладк = 72; Ad= ditional)

 <= /o:p>

 

Properties

 

 

Height

Присвои= 090;ь значение 61

 

Width

Присвои= 090;ь значение 61

 

Shape

Выбрать значение stCi= rcle (Круг)

 

Pen

Выбрать для подсвойств= 072; Color (Цвет) значение clYe= llow (ж= ;елтый цвет)

 

Brush

Выбрать для подсвойств= 072; Style  значk= 7;ние bsClear

 

Enabled (Включен)

Выбрать значение Fals= e (Не= 090;)

 

Shape= 3

(Вкладк = 72; Ad= ditional)

 <= /o:p>

 

Properties

 

 

Height

Присвои= 090;ь значение 61

 

Width

Присвои= 090;ь значение 61

 

Shape

Выбрать значение stCi= rcle (Круг)

 

Pen

Выбрать для подсвойств= 072; Color (Цвет) значение clLi= me (я= ;рко-зеленый цвет)

 

Brush

Выбрать для подсвойств= 072; Style  значk= 7;ние bsClear

 

 

 

Enabled (Включен)

Выбрать значение Fals= e (Не= 090;)

 

4.      Написать функцию OnShape, которая вызывается из процедур = 99; FormMouseMove.

5.      Работа функции определяет следующие события:

Если указатель мыши не наведен на лампочку, то ее цвет буде= 090; прозрачным.

Если указатель мыши наведе = 85; на лампочку, то ее цвет будет соответствl= 6;вать цветам свет = 86;фора.

r :=3D  sh.Width= d= iv 2;   {r - ради&#= 1091;с фигуры}

cx :=3D sh.Left + r;        {cx, cy – коо&#= 1088;динаты центра фигуры}

cy :=3D sh.Top + r;        

d2 :=3D (X – cx) * (X – cx) + (Y – cy) * (Y – cy); {d2 – квадрат расстояния от центра}

OnShape<= /span> :=3D bsClear;  {указk= 2;тель мыши не наведен на лампочку, т.е. находиться за пределам = 80; фигуры}

if d= 2 > r*r = then ObShape :=3D bsSolid; {ука= 079;атель мыши наведе = 85; на лампочку, т.е. находить&#= 1089;я внутри фигуры}

6.      Выравнив= ание элементов:

1)&n= bsp;     Выделит&#= 1100; все три фигуры.

2)&n= bsp;     Выбрать команду Edit → Align (Прав= ;ка → Выровнить).

3)&n= bsp;     Откроет&#= 1089;я диалоговое окно Alignment (Выравниван = 80;е).

4)&n= bsp;     Установ&#= 1080;ть слева переключатk= 7;ль Center in W= indow (Центрир = 86;вать в окне).

5)&n= bsp;     Установ&#= 1080;ть справа переключатk= 7;ль Space Equally (С равными промежуткаl= 4;и).

6)      Щелкнут= ь на кнопке OK.

7.      Сохранит= е проект, запустите и протестируl= 1;те его.

Листинг по= 076;программы

Function OnShape (sh: TShape: X, Y: Integer): TBr= ushStyle;

var r, cx, cy, d2: Integer;

begin

r :=3D&nb= sp; sh.Width div 2;   =

cx :=3D sh.Left + r;     

cy :=3D sh.Top + r;        

d2 :=3D (X – cx) * (X – cx) + (Y = – cy) * (Y – cy);

OnShape :=3D bsClear; 

if d2 > r*r then ObShape :=3D bsS= olid;

end;

procedure<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> TForm1.FormMouseMove (Sende= r: TObject, Shift: TShiftState; X, Y: Integer););

begin

Shape1.Brush.Color :<= /span>=3D clRed;=

Shape1.Brush.Style :<= /span>=3D OnShape (Shape1, X, Y);<= o:p>

Shape2.Brush.Color :<= /span>=3D clYellow;

Shape2.Brush.Style :<= /span>=3D OnShape (Shape2, X, Y);<= o:p>

Shape3.Brush.Color :<= /span>=3D clLime;

Shape.Brush.Style :=3D OnShape (Shape3, X, Y);<= o:p>

end;

 

------=_NextPart_01C6738A.0679BB40 Content-Location: file:///C:/A811C654/file7172.files/image003.gif Content-Transfer-Encoding: base64 Content-Type: image/gif R0lGODlhYgDOAHcAMSH+GlNvZnR3YXJlOiBNaWNyb3NvZnQgT2ZmaWNlACH5BAEAAAAALAYAAABc AMMAhwAAAAAAAAAAMwAAZgAAmQAAzAAA/wAzAAAzMwAzZgAzmQAzzAAz/wBmAABmMwBmZgBmmQBm zABm/wCZAACZMwCZZgCZmQCZzACZ/wDMAADMMwDMZgDMmQDMzADM/wD/AAD/MwD/ZgD/mQD/zAD/ /zMAADMAMzMAZjMAmTMAzDMA/zMzADMzMzMzZjMzmTMzzDMz/zNmADNmMzNmZjNmmTNmzDNm/zOZ ADOZMzOZZjOZmTOZzDOZ/zPMADPMMzPMZjPMmTPMzDPM/zP/ADP/MzP/ZjP/mTP/zDP//2YAAGYA M2YAZmYAmWYAzGYA/2YzAGYzM2YzZmYzmWYzzGYz/2ZmAGZmM2ZmZmZmmWZmzGZm/2aZAGaZM2aZ ZmaZmWaZzGaZ/2bMAGbMM2bMZmbMmWbMzGbM/2b/AGb/M2b/Zmb/mWb/zGb//5kAAJkAM5kAZpkA mZkAzJkA/5kzAJkzM5kzZpkzmZkzzJkz/5lmAJlmM5lmZplmmZlmzJlm/5mZAJmZM5mZZpmZmZmZ zJmZ/5nMAJnMM5nMZpnMmZnMzJnM/5n/AJn/M5n/Zpn/mZn/zJn//8wAAMwAM8wAZswAmcwAzMwA /8wzAMwzM8wzZswzmcwzzMwz/8xmAMxmM8xmZsxmmcxmzMxm/8yZAMyZM8yZZsyZmcyZzMyZ/8zM AMzMM8zMZszMmczMzMzM/8z/AMz/M8z/Zsz/mcz/zMz///8AAP8AM/8AZv8Amf8AzP8A//8zAP8z M/8zZv8zmf8zzP8z//9mAP9mM/9mZv9mmf9mzP9m//+ZAP+ZM/+ZZv+Zmf+ZzP+Z///MAP/MM//M Zv/Mmf/MzP/M////AP//M///Zv//mf//zP///wECAwECAwECAwECAwECAwECAwECAwECAwECAwEC AwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwEC AwECAwECAwECAwECAwECAwECAwECAwECAwECAwECAwj/ALG1EkhwoMGCCA8qTMhwocOGEB9KxHYF m8BWra5hNIhRY8eNHjOCHIkxGslWJj+WPJlS5EqVKFmOrIixBQ2bCFrYTECDp80WWIAKxUKDKNEv NL5gUToIS9NBXqAO+pKI6iBFVwe50ppoq6uuXL+KDUt2rNiuiVqxsNgqwYAECBIkeIBAAAIWb98m cJGgxV6bLmgEpkHYaNGlS78oVjx1UFZFiRRJVoTNFS3LmAclokULW2e2gii78ny5cisvrlrRbNsC AV0rLGYgABQ3AZbAPHP3vBmUcBYav79oTopY6hdFx5Nj3UorI6uP0a5gvMICNhRBrVqkvoY9I/Yr gtKu/xXo9sEDFnlWqTLkN8HpLy4G7y3qAot9o0jtC/yShbFwx1YlEtlVkrkS0kaqYcTCFQyysAcr VyiikSAsqGZFK4F4QQuEFw3QwgMWOKDHIbHk4BYW2LgwAA0bfYFaK4lg0VxTtGglo0GDtJKaIq00 54pyj20GEismXSOdKdIJhKRqzWEkSABJXuGFgtcI1IIADxgCCBSBQEAXT9jI1QI22A2CjWODuKCV AqmhmBpGBH3hymha1ajZVZFFZiCCG0mnmkDcCSJIhBctyAJ2gmCR2moeygDLH3p0YUFOA7jQyiBF bZWIY64slUBqNJg5CC1eFMRjaqj2CORyo2bEAgtQov8kHYR7DMpgKzM0R5GfLESnmVpsJSCDDK/q EUhtbgHVm317IVYUUkk1ldR+WaD5hUCbVuUYVpOlZsqggWC3ZCt7MDiooBG2YkorrDzHrpQbMupW AgFA8YQJec1baaW6+STYbUT9lkVUxDGlmXLHPaaIKwyCJ+UVQQ3qxcOCzMAgwwxiMQMWELOQI7AC 8aVTa1G0IPLILvxE2MpFHXYfYkotJtxijmWrWZ6Q5Yzzzjr3zHNkC/+5UTTuYpMWSs8R6S7R7DLt XEnuXhP1kDBJXfVJIWWNNUnj8en112CHLfbYZJcNNk1Sm+Q00WovTSTSULcdN9xIy1033Wzj/fba e7v/bbdaVZot+OCEFx72ak8nbrXiUTfekeOMPy555JQvbjnkHnVt+Oacd84nh4nnvbjofof+9uin l456kaq3PvfqCrLl+ey0D4645VS7pHjuWU89ee9V+77777zHflHtyCfvNdp9z8233Xk/rzf0zd8t /fWlOw348cp3j/ztmIf/u/iVk3/5+OgPr7n37HsOOuzwu353/K/LT3r9+N8Ncvv8dw5+8ADUHe6I pxFACVB4AxyeAge4vv61YhaCiiBGZuFAPjGPehicnt480oU9QIEObQhhG5LgwVYIQiDYc172VrgR FgSufYMKYSRqQcMa1iISkWgDHfzkwP+VL324E8QH/2dowyLaMBIkPKH5lki8/XVPEG0wohSNGAk6 IOJAyXuf/VKXvwlFcYpELGIYq6jE/N1vfqVzIvL2EMYputGGbRAEFmvnQ+Ad8GpsfKMei9iGPWAD gYAMYOZkRzso7vGQNUxCIlpCR0BVL3osjEkrknBDKbaxhpek4Rilk0LrRXJ7tDNSJhH5xiQgQnl1 ZKJzoiEIOoySlG6EgiOBaD7jFfKLsEQkFE5ZOy2akYt3wwYLLElMKhIzjjGhHxrnpsbOQSGXsIwE D2lXx+IRz5DQJOUu7chNazbQcNfwAi6zucckJO+CGuwkNitpzHaK0Yh0EETbMthJUHYuGuIkJyLN +f+9453vhyJZpz7dWEWA/pOBhHTmQPXYhi4wsnO+XKZE84aNZ7rziMV8JzJZ90uO6u+bm0PEOBda RCig0p+BvKNIooEIV5KUilbQSDebqL6Eco6VI30pP8/pSHpGkmizsGhGMerOjf70kdWz5y1fWkOT di+VtLxmTrNJxj9G1aC2TJ5AqUqHoykvomcMKzBNkoipajKjkdhDIqw60bG6NSUgpR0invDKN/ax f9WkaQIHeAUQHrKK16mcNRfou7hqFQpQwKEYcQgF8FCwhz1N51EzSKZB0SEJl6XDdbxAQY10EpIq DC2VuNe/h1bwa1A1qCpx59GDrraWzTytbL8G1rf/ms6jYsWtbZWZ29tmdbbAXR5KBTnYvaZ0poQl bhMNG1zZovOzSPWpaEHryelGl25KbW5zU+vaq3ZXtd6FLXO127/a6va8vuXtbreIXtjFlrzOHa5K kWvcjxRQJPQ9bnELa9P2Padh5tpuZKEr3WSiq1zfMqFqAuGwyVH3wdfVngtJm0VzuQts6OoOXuX7 3e/+sVz2xZxLGBQIDr92uf2lpoYFZxJBzbGXzOtoeosmiFqxtbdBvIJ625vG8RZuUBfm3KDYl9fk 6o5MV2AFW+s733cxOb8q8bHtVjw78LzYfwOeLN7edeMIR5I70oEdgbE7YToGOZTgOSnvXgvmNYd3 /3KAA69g32s48JiWdrVCnnlnPDdhynjHzqEIdngsYzoTblzeG3I/90vcQS2Z0U3+iJUhPVMpj81I VE5eNC606LRJVrSO/nR1R503O5Payy184U3TzL7o8NTNWFUNN0+cODLtQc4H/a3/YHiFOxtuz4A2 0nNwzN5VXmFdhG4rXFP8Yx17b5rU5DClY2JqKEfahL2+9pN13TlFn/OpWbYu9YyEIAgXWNCiNjeZ VT07b7cb2o2EdYenBiEEzXtytmbFvWNt6cHVu9uBYB+wiz266UBnvUVKc7CLbegqs5psLX44kaWt V/2y8lwnxO9GLhIIEGtbvyim8FMbhp3nfIvkuv/j33O1PGaroovE0sl4gdVdzzLP1tfxlTet983z nfNX5PAtb4yVzWeiL/zPDO930F9dceUa2dpQn3bDlz7xVaYb1aeeOdZpfmGbU/203PX5m3G9c25/ 3b9DJzbS1250gveY2WcHt9SfnruLKA1Oc992yPvnkZcDWFDAXbm4Rd13c82qIwf2k5hZ/kmvP/Hh OIeQxKs+dg/baiWWZ/CsK//zJ956c+7+atrXmz9shKvoYTX40EhP9Kn/OODUpDzdaWr6MOe9sC2J +t7puC7k1fjKnBN81rfsaMaLVmrHXvzgJczuXSuPlfD2XNhpyR3Ykz190ajQ9WsKdMJN3vfWn93/ wGXs57YjHd3J7q3ryyaI8D+V6bPfXfGdrneRTLrpkVY62DDdvk2/2tNj5jShFoBaZmpcJ1rZZTjR kGftE33BZ2LepXqclz6mhx09t3vSx2s4RzjjZ3Rppnbm5yfpZ1vrVzb/pjyIFm/4h1yCUiS3BxPt 54Ir6E1wd2gOyDkQsoF1Fm7DxzfotnyRVFFQA4QI6HhV5nuZFm06F4EJsoSUg24XOGf6ZzbfN2UC N3ojiFsZAR6mgELr5RHHhnqslzdqwRHdw2AiSDa20nsNSHHxhztSIwhWUGNEc1+elWHy9HH0V1hm CEO2Ah4RRHKDVkHCd4DDdzznAoj3NYQ9aHwK/9KHFaQ25DV92xeFlihekBh33tOBINiJY/iJ6FWG 3aeJizaDpviGIIeKUdaFpIhXj6N1sHh1sUiALZSJrXhOm1eJYqeLQPSIo3iLEJVtR2d+xOiJWeiL wEhkuqeKetiMulchv5iMm3MFAFCN1niN2JiN2riN3NiN3viN4BiO4jiO5FiO5niO6JiO6riO7NiO 7viO8BiP8jiP9FiP9niP+JiP+riP/NiP6RgAABmQ8BiQAaCNBemP1niQAKCQ68iQDLmQD9mPDimP ExmR/DiRA4mNBWmR+4iRAimQ1QiS3/iQB8mR+qiQGLmQCbmS3iiSKImQCSmSIRmSL1mOG3mNJjWZ jxx5kzVJjhtJkAAJkyppkCXJkj6ZjTmJjztplD3ZkgYJk0CpkUHpkkE5k0gpkzhplPQYEAA7 ------=_NextPart_01C6738A.0679BB40 Content-Location: file:///C:/A811C654/file7172.files/image001.png Content-Transfer-Encoding: base64 Content-Type: image/png iVBORw0KGgoAAAANSUhEUgAAAJsAAAFBCAIAAADv0UomAAAAAXNSR0IArs4c6QAAAAlwSFlzAAAO xAAADsQBlSsOGwAADl5JREFUeF7tnW2IXFcZxyeb4od+6YqoCBUH6Qc1sVmqTSwSMlEpMbUmxSB9 MW5CsdUYsmvatNbWZjf2xSRt3qixKiWTttEikSa+1CLiTihSt2rZaFL7ociAglgR4xc/CfGZPbsn 13m959577vk/Z/7DMLl755znPOf/u/9zz5zJvbPk4sWL58/OVviIQoHtk19dYoguW7Eqih4NdSem p6cbjcYlonSq9sPh5KkXheiI9m4w/zYF2j26ctPT2TQaGVkyYh9LZWvxz6Ujrb/Mn/Nb848lZnth x/+XNwVa+zrK2+pLL71linlsTtrKpklpta5+y+vSloNH3/HfF/7zxlHzXHnla6UlyoYyKDDAo8JS gjar1Uq1VqnOx2805N9mo3H5VdtMe1LmzcvWR+/RW669Ir2+a9eunZmZcSp/x75TUt61FVMr6dF+ RFs4q9VmrbaQWbPZ2hC68qjXK00BXR0fl521/Sc+MAxEU04ezegnRJ3KW6IZaqUedS1OgVevb2nU p5qNWqPFcmxyUtDu3t0iLDjTH4zFljy+58ZjUzcUG7PwaMvHPtLrWXhbErDnOV8M2hps5dFs1ur1 WrVZrVU3HByTwXdmTWXNe5oTBzfKm/tPrE+m9a/zh/75xwP/mHvs76/u/9vv9vrIeHhimuMg2d/O PZ1q9J3FGaLVamNqqjXgNqujo6MrJsZqW+pTtYY8p4/PF1h8/PtPR2TzbR/c+faxu995za53ffje 4VG/f0/Pzf2m8zlQHKkiZSxUs2F29nlc1vM9g7PjMTo612hWx0Yra49vaVZOXT4or7+8/HCyyPs+ 8ZD58w8/u8R71abDsufXz21vC7bujmOy56dHN9v9m+76odk+8chNdudTX/+kbN/56C/MniM7a/at e779smw/8oWVycgP/+DcoKxR3hd+SV8OxCl5O3/Smj5TE6JTjdrchQvp+/3e1Q9etWZKyr/+ywfk 9dyL98nr2I37P7ThcdmYPTkhrx+9+YnVtx41MT++9XvX3/6UbLzw5Li8fnr7sxsnvi8bJx//rLw+ t/cz8rr5gdOm8O3f+Lm8fue+6+X1W3d/TF4nD53ZeeQl2dj3petskg/WX51+ek7+vP+W5ekzD17S UkyDsy9RM7OtVGbG62Ojo8mOCdTDZ1t7qqm7++eX9rxxZkqKW4/K9txPdv3+9F2pYwxpwbZRd6AK PT3alPmtTMHHW3Miee0aSD6VDmzAFGjzqNlpPHrtTQfNqMtHpwL23Nl2Tu2jVU+isoCwe7wqWHtV Ft52kWHYYHR+GvGhQNtUKCXUnkR33fZas1nfurUpZ02ZBLVlLDjlU03bzivev0P2dP300jbqLl/3 qB11f/v8V8x5tOtj/RePy/4fP/G5U4dvlQ0zM7r53h/J6zMPbTBVkjOjLz/2K9lzaHLNgR2rZcPM jMxjz5Zrdn9+TDbKnxl1/Tw68CAw0+Nksc49nUG6z3UFpyz37T+xrVo5eny6Ntc4Vasu1p0fjeUP WfnrDPfWZZOLC/ALS+fvvu7+tpV6U+vqG/a2rdSb/Ws2P2lW6m3wT217xq7syxtm/21fe162DVSZ GZkVK/PWjgON5BcDNo7MjOwXAwPV7F8g5STFBHEqnDMxqd59FdAs1Sajr7zyaK1SGz9WFde+8tcu i0RBVgHbiJqDqfOrnm/e2fo+P0k0+V3NwK96zHcvsuIqXymnVNysAjqVt6uAGWqlXde12ctXLq21 +kp1YsPo6dMXGs3mm4vL9LZMEKILX66V8m3ad+/ZmBJntmKGqGsrbiv1SaJme2r+tVGpvDJ8RLNx KqdW6pX6xXRkTmue++afnTjLyZutpFGA/88ojUo6yjj8HwYdHWKW8wo4r+tSN3AFSBQckHN6JOos GXgFEgUH5JweiTpLBl6BRMEBOadHos6SgVcgUXBAzumRqLNk4BVIFByQc3ok6iwZeAUSBQfknB6J OksGXoFEwQE5p0eizpKBVyBRcEDO6ZGos2TgFUgUHJBzeiTqLBl4BRIFB+ScHok6SwZegUTBATmn R6LOkoFXIFFwQM7pkaizZOAVSBQckHN6JOosGXgFEgUH5JweiTpLBl6BRMEBOadHos6SgVeI84rg tlteJhmUfOeSMvGbK4LjIZqkeLG3kJfuqlP6fWl8043kGm978yehaJ99tEsWs3V9a11mfMXnUcMj DcVegtq6ae5EXCaVPG2pJJpkmafztq5BGwdXZUQLZ5k8IOLgqomoHWML8WX/objPbNlr6/mDqyFq cJb2MINwac0V2JAOoiXjNPoqhaqAaBCceqGiEw2IUylUaKLBcWqEiksUBKc6qKBEoXDqggpKtMDZ /LCFQiQKaFBFNkUkOmyuKra/cERhDarFpnBEiz1ghzAaFlFwg6qwKRbRIbRU4V0m0cIlDRwQiKiK IRd/4AUiGvjYjqV5Eo2F5GI/SJRE/Sig6CQKfiqlR/0coeGikmg47f20TKJ+dA0XlUTDae+nZRL1 o2u4qCQaTns/LZOoH13DRSXRcNr7aRmFqFxMn7z62k9ni4wq2WLeAACFaJFiD3csEo2NP4mSqDcF FJ1KYU+iAoce9XaEBgpMooGE99YsFlEVAy/ykMtR15tTwgXG8qjoAG5TcIPSo+Gs5K1lOI8i2xTf oPSoN6eEC4zoUUybqjAotEehpkhacEITxXGqIpzoRBGg6sKpgGhYqOpw6iAaCqpGnGqIlg9VKU5N RC1U3/8dSeLrxamMqIFqPtX44GpZYv6XsJSLFqArDP2zL5xrHCyNaCqJmtSTXLNZ1oA0Y6xqXyYN oJhokqsdigcOyJaiBRkNSyNIPL+ylTxO+btps8tWrDp/djbluZfFMBWI5HfTMMUNmJX682hA7TCb JlFMLtmzItHs2mHWJFFMLtmzItHs2mHWJFFMLtmzItHs2mHWJFFMLtmzItHs2mHWJFFMLtmzItHs 2mHWJFFMLtmzItHs2mHWJFFMLtmzItHs2mHWJFFMLtmzItHs2mHWJFFMLtmzItHs2mHWJFFMLtmz ItHs2mHWJFFMLtmzItHs2mHWJFFMLtmzItHs2mHW5HUvmFyyZGWukoiHaPLqpT6Xm6UslkXR0HUi IWoJZbhoME/d0Pi6tK+eqOGRAWSnGAWGCkha8bVpAkCeBV6YbUKZsAGRFNK0srlu4SyTIsbBVRPR Yn3ZyxCWayGOKT+IGqIGZ2kCmUG4tOYKbEgH0ZJxGn2VQlVANAhOvVDRiQbEqRQqNNHgODVCxSUK glMdVFCiUDh1QQUlWuBsfthCIRIFNKgimyISHTZXFdtfOKKwBtViUziixR6wQxgNiyi4QVXYFIvo EFqq8C6TaOGSBg4IRFTFkIs/8AIRDXxsx9I8icZCcrEfJEqifhRQdBIFP5XSo36O0HBRSTSc9n5a JlE/uoaLSqLhtPfTMon60TVcVBINp72flknUj67hopJoOO39tIxCVN0lCbBLIihE/RyvwxiVRGOj TqIk6k0BRadS2JOowKFHvR2hgQKTaCDhvTWLRVTFwIs85HLU9eaUcIGxPCo6gNsU3KD0aDgreWsZ zqPINsU3KD3qzSnhAiN6FNOmKgwK7VGoKZIWnNBEcZyqCCc6UQSounAqIBoWqjqcOoiGgqoRpxqi 5UNVilMTUQvV921v7W22w32kzNUy6OfRXn3yeuNxr7dMz0XJpbIyoqZrhXONg6URR/0v+NhBOMM9 z/PUdbFNSWXV/95Lm07J8yt/k2l22YpV58/OlnQs+W+mz+wpg5X951tMC7F5tBhVNEdR/JtMmmX3 nrvKua53VTQ3QKKa6XXLnURJNDYFYusPPUqisSkQW3/oURKNTYHY+kOPkmhsCsTWH3qURGNTILb+ 0KMkGpsCsfWHHiXR2BSIrT/0KInGpkBs/aFHSTQ2BWLrDz1KorEpEFt/6FESjU2B2PpDj8ZGVP21 aV2B8LqXGK5k4rVpkVzJlOca0Dx1AQdr9UQNj0KuHiwwVEDSiq9NK/wi+8JvAxCQq7K5buEsk9LH wVUTUXOPoUKG2T4eslwD+ixP02qIlnzLKKg7hzoB1kG0ZJxGQaVQFRANglMvVHSiAXEqhQpNNDhO jVBxiYLgVAcVlCgUTl1QQYk6zddZOKkAIlFAgyqyKSJRei6PAnBEYQ2qxaZwRPMcnqwrCmARBTeo CptiEaXJ8itAovk1xIoARFTFkIs/8AIRxTrU1WZDomrR9UicREnUjwKKTqLgp1J61M8RGi4qiYbT 3k/LJOpH13BRSTSc9n5aJlE/uoaLSqLhtPfTMon60TVcVBINp72fllGIqrskAXZJBIWon+N1GKOS aGzUSZREvSmg6FQKexIVOPSotyM0UGASDSS8t2axiKoYeJGHXI663pwSLjCWR0UHcJuCG5QeDWcl by3DeRTZpvgGpUe9OSVcYESPYtpUhUGhPQo1RdKCE5oojlMV4UQnigBVF04FRMNCVYdTB9FQUDXi bBE9f3Y23EzboeWSJ0pKcbaILluxykHXoEUNVPtzAZ5ysbfZ9hTfd1g1HjVCeL3xuNdbpvsGaeNr 8qhNunCucbA0+iwxt32XsVfLCbXtYLeDcIb71+epW5rn0jek/vdeeqE1g3MvIZKn4QwHQXp9yy+5 QFS7R7sK12f2FBnFZPdj82j5nkBrceE3mZSePtHUxMlH5VwXRz7ATJR9HgVUEC0lehSNSN586NG8 CqLVp0fRiOTNhx7NqyBafXoUjUjefOjRvAqi1adH0YjkzYcezasgWn3Q/4GNJpOifEZkeVdRukx1 oAIjmzauG1iIBRQpwFFXEaxUqZJoKpkUFSJRRbBSpUqiqWRSVIhEFcFKlSqJppJJUSESVQQrVaok mkomRYVIVBGsVKmSaCqZFBUiUUWwUqVKoqlkUlSIRBXBSpUqiaaSSVGh/wFl6CJwSsobAwAAAABJ RU5ErkJggk== ------=_NextPart_01C6738A.0679BB40 Content-Location: file:///C:/A811C654/file7172.files/filelist.xml Content-Transfer-Encoding: quoted-printable Content-Type: text/xml; charset="utf-8" ------=_NextPart_01C6738A.0679BB40--