https://pp09.rolka.me/ Ответы на экзамен ru-ru Sat, 12 Nov 2011 00:16:14 +0400 MyBB/mybb.ru https://pp09.rolka.me/viewtopic.php?pid=120#p120 <p><a href="http://ecosyn.ru/page0030.html" rel="nofollow" target="_blank">http://ecosyn.ru/page0030.html</a></p> mybb@mybb.ru (DjeromG) Sat, 12 Nov 2011 00:16:14 +0400 https://pp09.rolka.me/viewtopic.php?pid=120#p120 https://pp09.rolka.me/viewtopic.php?pid=119#p119 <p>Элементы теории нечетких множеств</p> <p>Рассмотрим основные элементы теории нечетких множеств [l]. Пусть U— полное множество, охватывающее все объекты некоторого класса. Нечеткое подмножество F множества U, которое в дальнейшем будем называть нечетким множеством, определяется через функцию принадлежности &#61549;F (u), и &#61646; U. Эта функция отображает элементы Ui, множества U на множество вещественных чисел отрезка [0,1], которые указывают степень принадлежности каждого элемента нечеткому множеству F.<br />Если полное множество U состоит из конечного числа элементов иi, i = 1, 2, ..., п, то нечеткое множество F можно представить в следующем виде:</p> <p><img class="postimg" loading="lazy" src="https://s017.radikal.ru/i437/1111/99/4c9ae4f6a72f.jpg" alt="http://s017.radikal.ru/i437/1111/99/4c9ae4f6a72f.jpg" /></p> <p>где &quot;+&quot; означает не сложение, а, скорее, объединение: символ &quot;/&quot; показывает, что значение &#61549;F относится к элементу, следующему за ним (а не означает деление на иi).<br />В случае, если множество U является непрерывным, F можно записать как интеграл:<br /><br /> </p> <p>Нечеткие множества широко применяются для формализации лингвистических знаний. Рассмотрим для примера множество процентных ставок, предоставляемых банками по вкладам. Каким образом можно выделить подмножество высоких процентных ставок? В условиях динамично изменяющейся среды не всегда возможно точно ответить на этот вопрос, однозначно выделив множество высоких ставок. При использовании аппарата теории нечетких множеств решить такую задачу можно даже при отсутствии полной количественной информации об окружении. Функция принадлежности для элементов нечеткого множества F1, соответствующих понятию &quot;высокие процентные ставки&quot; (рис. 4.1), будет иметь следующий вид:<br /><br /> <br /><br /> </p> <p>Функция принадлежности к нечеткому множеству низких процентных ставок запишется следующим образом:</p> mybb@mybb.ru (DjeromG) Sat, 12 Nov 2011 00:12:47 +0400 https://pp09.rolka.me/viewtopic.php?pid=119#p119 https://pp09.rolka.me/viewtopic.php?pid=118#p118 <p>Оценка однородности суждений</p> <p>В практических задачах количественная (кардинальная) и транзитивная (порядковая) однородность (согласованность) нарушается, поскольку человеческие ощущения нельзя выразить точной формулой. Для улучшения однородности в числовых суждениях, какая бы величина aij ни была взята для сравнения i-го элемента с j-м, aij приписывается значение обратной величины, т. е. аij = 1/aij. Отсюда следует, что если один элемент в а раз предпочтительнее другого, то последний только в 1/а раз предпочтительнее первого.<br />При нарушении однородности ранг матрицы отличен от единицы и она будет иметь несколько собственных значений. Однако при небольших отклонениях суждений от однородности одно из собственных значений будет существенно больше остальных и приблизительно равно порядку матрицы. Таким образом, для оценки однородности суждений эксперта необходимо использовать отклонение величины максимального собственного значения &#955;max от порядка матрицы п.<br />Однородность суждений оценивается индексом однородности (ИО) или отношением однородности (OO) в соответствии со следующими выражениями:</p> <p>где М(ИО) — среднее значение (математическое ожидание) индекса однородности случайным образом составленной матрицы парных сравнений [E], которое основано на экспериментальных данных (табл. 2.3), полученных в работе [2].<br />Таблица 2.3<br />Среднее значение индекса однородности в зависимости от порядка матрицы<br />Порядок матрицы (п)<br /> М(ИО)<br /> Порядок матрицы (и)<br /> М(ИО)<br /> Порядок матрицы (п)<br /> М(ИО)<br /> </p> <p>1<br /> 0,00<br /> 6<br /> 1,24<br /> 11<br /> 1,51</p> <p>2<br /> 0,00<br /> 7<br /> 1,32<br /> 12<br /> 1,48</p> <p>3<br /> 0,58<br /> 8<br /> 1,41<br /> 13<br /> 1,56</p> <p>4<br /> 0,90<br /> 9<br /> 1,45<br /> 14<br /> 1,57</p> <p>5<br /> 1,12<br /> 10<br /> 1.49<br /> 15<br /> 1,59<br /> </p> <p>В качестве допустимого используется значение OO &#8804; 0,10. Если для матрицы парных сравнений отношение однородности OO &gt; 0,10, то это свидетельствует о существенном нарушении логичности суждений, допущенном экспертом при заполнении матрицы, поэтому эксперту предлагается пересмотреть данные, использованные для построения матрицы, чтобы улучшить однородность.</p> mybb@mybb.ru (DjeromG) Fri, 11 Nov 2011 23:46:49 +0400 https://pp09.rolka.me/viewtopic.php?pid=118#p118 https://pp09.rolka.me/viewtopic.php?pid=117#p117 <p><a href="http://www.forekc.ru/op2/index-reshenie_zadachi_metodom_analiza_ierarhii.htm" rel="nofollow" target="_blank">http://www.forekc.ru/op2/index-reshenie &#8230; rarhii.htm</a></p> mybb@mybb.ru (DjeromG) Fri, 11 Nov 2011 22:50:30 +0400 https://pp09.rolka.me/viewtopic.php?pid=117#p117 https://pp09.rolka.me/viewtopic.php?pid=116#p116 <p><a href="http://www.forekc.ru/op1/index-sravnenie_obektov_metodom_kopirovaniya.htm" rel="nofollow" target="_blank">http://www.forekc.ru/op1/index-sravneni &#8230; vaniya.htm</a></p> mybb@mybb.ru (DjeromG) Fri, 11 Nov 2011 22:48:11 +0400 https://pp09.rolka.me/viewtopic.php?pid=116#p116 https://pp09.rolka.me/viewtopic.php?pid=115#p115 <p><a href="http://www.forekc.ru/op1/index-sravnenie_obektov_otnositelno_standartov.htm" rel="nofollow" target="_blank">http://www.forekc.ru/op1/index-sravneni &#8230; dartov.htm</a></p> mybb@mybb.ru (DjeromG) Fri, 11 Nov 2011 19:43:22 +0400 https://pp09.rolka.me/viewtopic.php?pid=115#p115 https://pp09.rolka.me/viewtopic.php?pid=114#p114 <p><a href="http://www.anpavlov.ru/MAI/Chapter%203.htm" rel="nofollow" target="_blank">http://www.anpavlov.ru/MAI/Chapter 3.htm</a></p> mybb@mybb.ru (DjeromG) Fri, 11 Nov 2011 19:34:16 +0400 https://pp09.rolka.me/viewtopic.php?pid=114#p114 https://pp09.rolka.me/viewtopic.php?pid=113#p113 <p>ПРИНЯТИЕ РЕШЕНИЙ НА ОСНОВЕ МЕТОДА АНАЛИЗА ИЕРАРХИЙ</p> <p>Метод анализа иерархий (МАИ) [1,2] предполагает декомпозицию проблемы на все более простые составляющие части и обработку суждений лица, принимающего решение. В результате определяется относительная значимость исследуемых альтернатив для всех критериев, находящихся в иерархии. Относительная значимость выражается численно в виде векторов приоритетов. Полученные таким образом значения векторов являются оценками в шкале отношений и соответствуют так называемым жестким оценкам.<br />Можно выделить ряд модификаций МАИ, которые определяются характером связей между критериями и альтернативами, расположенными на самом нижнем уровне иерархии, а также методом сравнения альтернатив.<br />По характеру связей между критериями и альтернативами определяется два типа иерархий. К первому типу относятся такие, у которых каждый критерий, имеющий связь с альтернативами, связан со всеми рассматриваемыми альтернативами (тип иерархий с одинаковыми числом и функциональным составом альтернатив под критериями). Ко второму типу иерархий принадлежат такие, у которых каждый критерий, имеющий связь с альтернативами, связан не со всеми рассматриваемыми альтернативами (тип иерархий с различными числом и функциональным составом альтернатив под критериями).<br />В МАИ имеется три метода сравнения альтернатив: попарное сравнение; сравнение альтернатив относительно стандартов и сравнение альтернатив копированием.<br />Ниже рассматриваются методология МАИ и отличительные особенности его модификаций.</p> <p>2.1. Иерархическое представление проблемы, шкала отношений и матрицы парных сравнений</p> <p>Иерархическое представление проблемы</p> <p><a href="http://www.radikal.ru" rel="nofollow" target="_blank"><img class="postimg" loading="lazy" src="https://s017.radikal.ru/i432/1111/ab/308494fc8739.jpg" alt="http://s017.radikal.ru/i432/1111/ab/308494fc8739.jpg" /></a></p> <p>В первой модификации метода рассматривается иерархия с одинаковыми числом и функциональным составом альтернатив под критериями и метод попарного сравнения элементов иерархии. Построение иерархии начинается с очерчивания проблемы исследования. Далее строится собственно иерархия, включающая цель, расположенную в ее вершине, промежуточные уровни (например, критерии) и альтернативы, формирующие самый нижний иерархический уровень.<br /><br /> </p> <p>На рис. 2.1 приведен общий вид иерархии, где Еij — элементы иерархии, Аi — альтернативы. <br />Верхний индекс у элементов указывает уровень иерархии, а нижний индекс — их порядковый номер. Существует несколько альтернативных способов графического отображения иерархии.<br /><br /> </p> <p>На рис. 2.2 приведены три варианта отображения одной иерархии.<br />Первый вариант — конкретизация (декомпозиция) заданного множества элементов (в частности, критериев). Второй вариант противоположен первому и предполагает синтез более общих элементов из заданных частных. Третий вариант — упорядочение предварительно заданного множества элементов на основе их попарного сравнения.&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;</p> <p>Шкала отношений</p> <p>Для установления относительной важности элементов иерархии используется шкала отношений (табл. 2.1). Данная шкала позволяет ЛПР ставить в соответствие степеням предпочтения одного сравниваемого объекта перед другим некоторые числа.</p> <p>Таблица 2.1<br />Шкала отношений (степени значимости действий)</p> <p>Степень значимости<br /> Определение<br /> Объяснение</p> <p>1<br /> Одинаковая значимость<br /> Два действия вносят одинаковый вклад в достижение цели</p> <p>3<br /> Некоторое преобладание значимости одного действия над другим (слабая значимость) Существуют соображения в пользу предпочтения одного из действий, однако эти соображения недостаточно убедительны</p> <p>5<br /> Существенная или сильная значимость<br /> Имеются надежные данные или логические суждения для того, чтобы показать предпочтительность одного из действий</p> <p>7<br /> Очевидная или очень сильная значимость<br /> Убедительное свидетельство в пользу одного действия перед другим<br />9<br /> Абсолютная значимость<br /> Свидетельства в пользу предпочтения одного действия другому в высшей степени убедительны</p> <p>2,4,6,8<br /> Промежуточные значения между двумя соседними суждениями<br /> Ситуация, когда необходимо компромиссное решение</p> <p>Обратные величины приведен-ных выше ненулевых величин<br /> Если действию i при сравнении с действием j приписывается одно из определенных выше ненулевых чисел, то действию j при сравнении с действием i приписывается обратное значение Если согласованность была постулирована при получении N числовых значений для образования матрицы</p> <p>Правомочность этой шкалы доказана теоретически при сравнении со многими другими шкалами [2]. При использовании указанной шкалы ЛПР, сравнивая два объекта в смысле достижения цели, расположенной на вышележащем уровне иерархии, должен поставить в соответствие этому сравнению число в интервале от 1 до 9 или обратное значение чисел. В тех случаях, когда трудно различить столько промежуточных градаций от абсолютного до слабого предпочтения или этого не требуется в конкретной задаче, может использоваться шкала с меньшим числом градаций. В пределе шкала имеет две оценки: 1 — объекты равнозначны; 2 — предпочтение одного объекта над другим.</p> <p>Матрицы парных сравнений</p> <p>После построения иерархии устанавливается метод сравнения ее элементов. Если принимается метод попарного сравнения, то строится множество матриц парных сравнений. Для этого в иерархии выделяют элементы двух типов: элементы-«родители» и элементы-«потомки». Элементы-«потомки» воздействуют на соответствующие элементы вышестоящего уровня иерархии, являющиеся по отношению к первым элементами-«родителями». Матрицы парных сравнений строятся для всех элементов-«потомков», относящихся к соответствующему элементу-«родителю». Элементами-«родителями» могут являться элементы, принадлежащие любому иерархическому уровню, кроме последнего, на котором расположены, как правило, альтернативы. Парные сравнения проводятся в терминах доминирования одного элемента над другим. Полученные суждения выражаются в целых числах с учетом девятибалльной шкалы (см. табл. 2.1).<br />Заполнение квадратных матриц парных сравнений осуществляется по следующему правилу. Если элемент E1 доминирует над элементом Е2, то клетка матрицы, соответствующая строке Е1 и столбцу E2, заполняется целым числом, а клетка, соответствующая строке E2 и столбцу Е1, заполняется обратным к нему числом. Если элемент Е2 доминирует над Е1, то целое число ставится в клетку, соответствующую строке Е2 и столбцу Е1, а дробь проставляется в клетку, соответствующую строке Е1 и столбцу Е2. Если элементы Е1 и Е2 равнопредпочтительны, то в обе позиции матрицы ставятся единицы.<br />Для получения каждой матрицы эксперт или ЛПР выносит n(n – 1)/2 суждений (здесь п — порядок матрицы парных сравнений).<br />Рассмотрим в общем виде пример формирования матрицы парных сравнений.<br />Пусть Е1,E2, ..., Еп — множество из п элементов (альтернатив) и v1, v2, …, vn — соответственно их веса, или интенсивности. Сравним попарно вес, или интенсивность, каждого элемента с весом, или интенсивностью, любого другого элемента множества по отношению к общему для них свойству или цели (по отношению к элементу-«родителю»). В этом случае матрица парных сравнений [Е] имеет следующий вид:<br /> </p> <p>Матрица парных сравнений обладает свойством обратной симметрии, т. е.<br />aij=1/aji,<br />где aij=vi / vj<br />При проведении попарных сравнений следует отвечать на следующие вопросы: какой из двух сравниваемых элементов важнее или имеет большее воздействие, какой более вероятен и какой предпочтительнее.<br />При сравнении критериев обычно спрашивают, какой из критериев более важен; при сравнении альтернатив по отношению к критерию — какая из альтернатив более предпочтительна или более вероятна.</p> mybb@mybb.ru (DjeromG) Fri, 11 Nov 2011 19:19:42 +0400 https://pp09.rolka.me/viewtopic.php?pid=113#p113 https://pp09.rolka.me/viewtopic.php?pid=112#p112 <p>1.4. Классификация методов принятия решений</p> <p>Существует множество классификаций методов принятия решений, основанных на применении различных признаков [10, 19 — 23]. В табл. 1.1 приведена одна из возможных классификаций, признаками которой являются содержание и тип получаемой экспертной информации. </p> <p> Таблица 1.1</p> <p>Классификация методов принятия решений<br />№ п/п Содержание информации Тип информации Метод принятия решений<br />1 Экспертная информация не требуется&#160; &#160; Метод доминирования [24, 25]<br />Метод на основе глобальных критериев [26, 27]<br />2<br /> Информация о предпочтениях на множестве критериев<br /> Качественная информация<br /></p> <p>Количественная оценка предпочтительности критериев<br /></p> <p>Количественная информация о замещениях<br /> Лексикографическое упорядочение [24,25] <br />Сравнение разностей критериальных оценок [22,24] <br />Метод припасовывания [24] <br />Методы &quot;эффективность-стоимость&quot; [24,28] <br />Методы свертки на иерархии критериев [29,30] <br />Методы порогов [24, 31] <br />Методы идеальной точки [24] <br />Метод кривых безразличия [10,24] Методы теории ценности [10, 24]</p> <p>3<br /> Информация о предпочтительности альтернатив<br /> Оценка предпочтительности парных сравнений<br /> Методы математического программирования [32,33] <br />Линейная и нелинейная свертка при интерактивном способе определения ее параметров [34]</p> <p>4</p> <p> Информация о предпочтениях на множестве критериев и о последствиях альтернатив</p> <p> Отсутствие информации о предпочтениях; количественная и/или интервальная информация о последствиях. Качественная информация о предпочтениях и количественная о последствиях</p> <p>Качественная (порядковая) информация о предпочтениях и последствиях<br />Количественная информация о предпочтениях и последствиях<br /> Методы с дискретизацией неопределенности [8,26]<br />Стохастическое доминирование [8,10,22]<br />Методы принятия решений в условиях риска и неопределенности на основе глобальных критериев [8, 35]<br />Метод анализа иерархий [36] <br />Методы теории нечетких множеств [7, 13, 14, 15, 17, 37] <br />Метод практического принятия решений [8, 24]<br />Методы выбора статистически ненадежных решений [8,38] <br />Методы кривых безразличия для принятия решений в условиях риска и неопределенности [8] <br />Методы деревьев решений [8,37] <br />Декомпозиционные методы теории ожидаемой полезности [8, 10,11]</p> <p>Используемый принцип классификации позволяет достаточно четко выделить четыре большие группы методов, причем три группы относятся к принятию решений в условиях определенности, а четвертая — к принятию решений в условиях неопределенности. Из множества известных методов и подходов к принятию решений наибольший интерес представляют те, которые дают возможность учитывать многокритериальность и неопределенность, а также позволяют осуществлять выбор решений из множеств альтернатив различного типа при наличии критериев, имеющих разные типы шкал измерения (эти методы относятся к четвертой группе).<br />В свою очередь, среди методов, образующих четвертую группу, наиболее перспективными являются декомпозиционные методы теории ожидаемой полезности, методы анализа иерархий и теории нечетких множеств. Данный выбор определен тем, что эти методы в наибольшей степени удовлетворяют требованиям универсальности, учета многокритериальности выбора в условиях неопределенности из дискретного или непрерывного множества альтернатив, простоты подготовки и переработки экспертной информации.<br />Охарактеризовать достаточно полно все методы принятия решений, относящиеся к четвертой группе, в рамках данной работы невозможно, поэтому в дальнейшем рассматриваются только три подхода к принятию решений в условиях неопределенности, которые получили наиболее широкое воплощение в системах компьютерной поддержки, а именно: подходы, основанные на методах теории полезности, анализа иерархий и теории нечетких множеств.</p> mybb@mybb.ru (DjeromG) Fri, 11 Nov 2011 19:13:56 +0400 https://pp09.rolka.me/viewtopic.php?pid=112#p112 https://pp09.rolka.me/viewtopic.php?pid=111#p111 <p>Множество Эджворта-Парето<br />Вернемся к выбору супругами из Монтландии очередного<br />туристского тура. Напомним, что при оценке альтернатив использовались<br />два критерия: стоимость и привлекательность.<br />Варианты, которые упоминались в диалоге супругов, можно<br />представить в виде табл. 1.<br />Альтернативы, представленные в табл. 1, изображены графически<br />на рис. 1. Из рисунка очевидно, почему супруги предпочитают<br />тур в Свапландию: он не хуже по критериальным<br />оценкам каждого из двух других туров, а по одному из критериев<br />- явно лучше.<br />Введем следующее определение. Назовем альтернативу А<br />доминирующей по отношению к альтернативе В, если по всем<br />критериям оценки альтернативы А не хуже, чем альтернативы<br />В, а хотя бы по одному критерию оценка А лучше. При этом<br />альтернатива В называется доминируемой.<br />Предположим, что по какой-то причине поездка в Свапландию<br />оказалась невозможной (например, из-за участившихся</p> <p><a href="http://www.radikal.ru" rel="nofollow" target="_blank"><img class="postimg" loading="lazy" src="https://s017.radikal.ru/i414/1111/f9/f3fb4aafd66e.jpg" alt="http://s017.radikal.ru/i414/1111/f9/f3fb4aafd66e.jpg" /></a></p> <p>нападений на туристов). В соответствии с рис.1 туры в Скай-<br />ландию и на Океанские острова не находятся в отношении доминирования.<br />По одному из критериев лучше альтернатива 2,<br />по другому — альтернатива 1.<br />Введем следующее определение: альтернативы относятся к<br />множеству Эджворта-Парето (Э—П), если каждая из них превосходит<br />любую другую по какому-то из критериев.<br />Множество Эджворта-Парето названо так по именам ученых,<br />впервые обративших внимание на альтернативы, не уступающие<br />друг другу по критериальным оценкам, т. е. на альтер-'<br />нативы, не находящиеся в отношении доминирования. Альтернативы,<br />принадлежащие множеству Э—П, принято называть несравнимыми.<br />Их действительно невозможно сравнить непосредственно<br />на основе критериальных оценок. Но если решение<br />должно быть принято (например, супруги должны из многих туров<br />выбрать один), то сравнение альтернатив, принадлежащих<br />множеству Э—П, возможно на основе дополнительной информации.<br />Так, в нашем примере супруги должны решить, что для них<br />более привлекательно: экономия денег или обилие новых впечатлений.<br />Такое сравнение является основным для упомянутого<br />выше третьего этапа процесса принятия решений.<br />Нетрудно убедиться, что множество Э—П включает в себя<br />наиболее «контрастные» альтернативы, сложные для сравнения.<br />Если стоит задача выбора одной лучшей альтернативы, то<br />она обязательно принадлежит множеству Э-П. Поэтому во мно-<br />23<br />гих методах принятия решений очень важен этап выделения<br />множества Э-П из всего множества заданных альтернатив.<br />Один из возможных способов решения этой задачи состоит<br />в попарном сравнении альтернатив и исключении доминируемых.<br />Задача выделения множества Э—П обычно рассматривается<br />как предварительная. За ней следует наиболее существенный<br />этап принятия решений</p> mybb@mybb.ru (DjeromG) Fri, 11 Nov 2011 19:12:19 +0400 https://pp09.rolka.me/viewtopic.php?pid=111#p111 https://pp09.rolka.me/viewtopic.php?pid=110#p110 <p>1.2. Схема процесса принятия решений</p> <p>Общая схема процесса принятия решений включает следующие основные этапы:<br />Этап 1. Предварительный анализ проблемы. На этом этапе определяются:<br />• главные цели;<br />• уровни рассмотрения, элементы и структура системы (процесса), типы связей;<br />• подсистемы, используемые ими основные ресурсы и критерии качества функционирования подсистем;<br />• основные противоречия, узкие места и ограничения. <br />Этап 2. Постановка задачи. Постановка конкретной ЗПР включает:<br />• формулирование задачи;<br />• определение типа задачи;<br />• определение множества альтернативных вариантов и основных критериев для выбора из них наилучших;<br />• выбор метода решения ЗПР.<br />Этап 3. Получение исходных данных. На данном этапе устанавливаются способы измерения альтернатив. Это либо сбор количественных (статистических) данных [9], либо методы математического или имитационного моделирования, либо методы экспертной оценки [10, 11]. В последнем случае необходимо решить задачи формирования группы экспертов, проведения экспертных опросов, предварительного анализа экспертных оценок.<br />Этап 4. Решение ЗПР с привлечением математических методов и вычислительной техники, экспертов и лица, принимающего решение. На этом этапе производятся математическая обработка исходной информации, ее уточнение и модификация в случае необходимости. Обработка информации может оказаться достаточно трудоемкой, при этом может возникнуть необходимость совершения нескольких итераций [12] и желание применить различные методы [13 — 16] для решения задачи. Поэтому именно на этом этапе возникает потребность в компьютерной поддержке процесса принятия решений, которая выполняется с помощью автоматизированных систем принятия решений.<br />Этап 5. Анализ и интерпретация полученных результатов. Полученные результаты могут оказаться неудовлетворительными и потребовать изменений в постановке ЗПР. В этом случае необходимо будет возвратиться на этап 2 или этап 1 и пройти заново весь путь. Решение ЗПР может занимать достаточно длительный промежуток времени, в течение которого окружение задачи может измениться и потребовать корректировок в постановке задачи, а также в исходных данных (например, могут появиться новые альтернативы, требующие введения новых критериев). Задачи принятия решений можно разделить на статические и динамические. К первым относятся задачи, которые не требуют многократного решения через короткие интервалы времени. К динамическим относятся ЗПР, которые возникают достаточно часто. Следовательно, итерационный характер процесса принятия решений можно считать закономерным, что подтверждает необходимость создания и использования эффективных систем компьютерной поддержки. ЗПР, требующие одного цикла, можно скорее считать исключением, чем правилом.</p> <p>1.3. Классификация задач принятия решений</p> <p>Задачи принятия решений отличаются большим многообразием, классифицировать их можно по различным признакам, характеризующим количество и качество доступной информации. В общем случае задачи принятия решений можно представить следующим набором информации [8, 17, 18]:<br />&lt;Т, A, К, X, F, G, D&gt;,<br />где Т— постановка задачи (например, выбрать лучшую альтернативу или упорядочить весь набор);<br />А — множество допустимых альтернативных вариантов;<br />К— множество критериев выбора;<br />Х— множество методов измерения предпочтений (например, использование различных шкал);<br />F— отображение множества допустимых альтернатив в множество критериальных оценок (исходы);<br />G — система предпочтений эксперта;<br />D — решающее правило, отражающее систему предпочтений.<br />Любой из элементов этого набора может служить классификационным признаком принятия решений.<br />Рассмотрим традиционные классификации:<br />1. По виду отображения F. Отображение множества А и К может иметь детерминированный характер, вероятностный или неопределенный вид, в соответствии с которым задачи принятия решений можно разделить на задачи в условиях риска и задачи в условиях неопределенности.<br />2. Мощность множества К. Множество критериев выбора может содержать один элемент или несколько. В соответствии с этим задачи принятия решений можно разделить на задачи со скалярным критерием и задачи с векторным критерием (многокритериальное принятие решений).<br />3. Тип системы G. Предпочтения могут формироваться одним лицом или коллективом, в зависимости от этого задачи принятия решений можно классифицировать на задачи индивидуального принятия решений и задачи коллективного принятия решений.<br />Задачи принятия решений в условиях определенности. К этому классу относятся задачи, для решения которых имеется достаточная и достоверная количественная информация. В этом случае с успехом применяются методы математического программирования, суть которых состоит в нахождении оптимальных решений на базе математической модели реального объекта. Основные условия применимости методов математического программирования следующие:<br />1. Задача должна быть хорошо формализована, т. е. имеется адекватная математическая модель реального объекта.<br />2. Существует некоторая единственная целевая функция (критерий оптимизации), позволяющая судить о качестве рассматриваемых альтернативных вариантов.<br />3. Имеется возможность количественной оценки значений целевой функции.<br />4. Задача имеет определенные степени свободы (ресурсы оптимизации), т. е. некоторые параметры функционирования системы, которые можно произвольно изменять в некоторых пределах в целях улучшения значений целевой функции.<br />Задачи в условиях риска. В тех случаях, когда возможные исходы можно описать с помощью некоторого вероятностного распределения, получаем задачи принятия решений в условиях риска. Для построения распределения вероятностей необходимо либо иметь в распоряжении статистические данные, либо привлекать знания экспертов. Обычно для решения задач этого типа применяются методы теории одномерной или многомерной полезности. Эти задачи занимают место на границе между задачами принятия решений в условиях определенности и неопределенности. Для решения этих задач привлекается вся доступная информация (количественная и качественная).<br />Задачи в условиях неопределенности. Эти задачи имеют место тогда, когда информация, необходимая для принятия решений, является неточной, неполной, неколичественной, а формальные модели исследуемой системы либо слишком сложны, либо отсутствуют. В таких случаях для решения задачи обычно привлекаются знания экспертов. В отличие от подхода, принятого в экспертных системах, для решения ЗПР знания экспертов обычно выражены в виде некоторых количественных данных, называемых предпочтениями.<br />Выбор и нетривиальность задач принятия решений. Следует отметить, что одним из условий существования задачи принятия решений является наличие нескольких допустимых альтернатив, из которых следует выбрать в некотором смысле лучшую. При наличии одной альтернативы, удовлетворяющей фиксированным условиям или ограничениям, задача принятия решений не имеет места.<br />Задача принятия решений называется тривиальной, если она характеризуется исключительно одним критерием К и всем альтернативам Аi приписаны конкретные числовые оценки в соответствии со значениями указанного критерия (рис. 1.1 а).</p> <p>Классификация методов принятия решений</p> <p>Существует множество классификаций методов принятия решений, основанных на применении различных признаков [10, 19 — 23]. В табл. 1.1 приведена одна из возможных классификаций, признаками которой являются содержание и тип получаемой экспертной информации. </p> <p> Таблица 1.1</p> <p>Классификация методов принятия решений<br />№ п/п Содержание информации Тип информации Метод принятия решений<br />1 Экспертная информация не требуется&#160; &#160; Метод доминирования [24, 25]<br />Метод на основе глобальных критериев [26, 27]<br />2<br /> Информация о предпочтениях на множестве критериев<br /> Качественная информация</p> <p>Количественная оценка предпочтительности критериев</p> <p>Количественная информация о замещениях<br /> Лексикографическое упорядочение [24,25] <br />Сравнение разностей критериальных оценок [22,24] <br />Метод припасовывания [24] <br />Методы &quot;эффективность-стоимость&quot; [24,28] <br />Методы свертки на иерархии критериев [29,30] <br />Методы порогов [24, 31] <br />Методы идеальной точки [24] <br />Метод кривых безразличия [10,24] Методы теории ценности [10, 24]</p> <p>3<br /> Информация о предпочтительности альтернатив<br /> Оценка предпочтительности парных сравнений<br /> Методы математического программирования [32,33] <br />Линейная и нелинейная свертка при интерактивном способе определения ее параметров [34]</p> <p>4</p> <p> Информация о предпочтениях на множестве критериев и о последствиях альтернатив</p> <p> Отсутствие информации о предпочтениях; количественная и/или интервальная информация о последствиях. Качественная информация о предпочтениях и количественная о последствиях</p> <p>Качественная (порядковая) информация о предпочтениях и последствиях<br />Количественная информация о предпочтениях и последствиях<br /> Методы с дискретизацией неопределенности [8,26]<br />Стохастическое доминирование [8,10,22]<br />Методы принятия решений в условиях риска и неопределенности на основе глобальных критериев [8, 35]<br />Метод анализа иерархий [36] <br />Методы теории нечетких множеств [7, 13, 14, 15, 17, 37] <br />Метод практического принятия решений [8, 24]<br />Методы выбора статистически ненадежных решений [8,38] <br />Методы кривых безразличия для принятия решений в условиях риска и неопределенности [8] <br />Методы деревьев решений [8,37] <br />Декомпозиционные методы теории ожидаемой полезности [8, 10,11]</p> <p>Используемый принцип классификации позволяет достаточно четко выделить четыре большие группы методов, причем три группы относятся к принятию решений в условиях определенности, а четвертая — к принятию решений в условиях неопределенности. Из множества известных методов и подходов к принятию решений наибольший интерес представляют те, которые дают возможность учитывать многокритериальность и неопределенность, а также позволяют осуществлять выбор решений из множеств альтернатив различного типа при наличии критериев, имеющих разные типы шкал измерения (эти методы относятся к четвертой группе).<br />В свою очередь, среди методов, образующих четвертую группу, наиболее перспективными являются декомпозиционные методы теории ожидаемой полезности, методы анализа иерархий и теории нечетких множеств. Данный выбор определен тем, что эти методы в наибольшей степени удовлетворяют требованиям универсальности, учета многокритериальности выбора в условиях неопределенности из дискретного или непрерывного множества альтернатив, простоты подготовки и переработки экспертной информации.<br />Охарактеризовать достаточно полно все методы принятия решений, относящиеся к четвертой группе, в рамках данной работы невозможно, поэтому в дальнейшем рассматриваются только три подхода к принятию решений в условиях неопределенности, которые получили наиболее широкое воплощение в системах компьютерной поддержки, а именно: подходы, основанные на методах теории полезности, анализа иерархий и теории нечетких множеств.</p> mybb@mybb.ru (DjeromG) Fri, 11 Nov 2011 19:03:43 +0400 https://pp09.rolka.me/viewtopic.php?pid=110#p110 https://pp09.rolka.me/viewtopic.php?pid=109#p109 <p>АНАЛИЗ ЗАДАЧ И МЕТОДОВ ТЕОРИИ ПРИНЯТИЯ РЕШЕНИЙ</p> <p>Задача принятия решений (ЗПР) — одна из самых распространенных в любой предметной области [1 — 7]. Ее решение сводится к выбору одной или нескольких лучших альтернатив из некоторого набора. Для того чтобы сделать такой выбор, необходимо четко определить цель и критерии (показатели качества), по которым будет проводиться оценка некоторого набора альтернативных вариантов. Выбор метода решения такой задачи зависит от количества и качества доступной информации. Данные, необходимые для осуществления обоснованного выбора, можно разделить на четыре категории: информация об альтернативных вариантах, информация о критериях выбора, информация о предпочтениях, информация об окружении задач.</p> <p>1.1. Эволюция теории принятия решений. ЭВМ в принятии решений</p> <p>В своем развитии теория принятия решений прошла через три стадии.<br />На первой стадии развивался дескриптивный подход к принятию решений. Здесь усилия ученых были направлены на описание процесса выбора решений человеком в целях определения рационального зерна, характерного для всякого разумного выбора. В результате проведенных исследований оказалось, что большинство людей действуют интуитивно, проявляя при этом непоследовательность и противоречивость в своих суждениях. Положительным аспектом исследований в области дескриптивного подхода явилось то, что удалось дать достаточно четкий ответ на вопрос, что может и чего не может человек, решая задачу выбора [8].<br />На второй стадии исследователи разрабатывали нормативный подход к принятию решений. Однако и здесь их постигла неудача, поскольку идеализированные теории, рассчитанные на сверхрационального человека с мощным интеллектом, не нашли практического применения.<br />На третьей стадии был развит прескриптивный подход к принятию решений. Он оказался наиболее плодотворным, поскольку предписывал, как должен поступать человек с нормальным интеллектом, желающий напряженно и систематизированно обдумывать все аспекты своей задачи. Прескриптивный подход не гарантирует нахождения оптимального решения в любой ситуации, но обеспечивает выбор такого решения, которое не обременено противоречиями и непоследовательностями. Данный подход предъявляет к человеку серьезные требования по освоению методов и приемов теории принятия решений, а также предписывает проведение многочисленных вычислений, связанных с реализацией этих методов.<br />Первоначальным импульсом для применения ЭВМ в процессе принятия решений явилась необходимость проведения большого объема вычислений для получения обобщенной оценки путем синтеза всех плюсов и минусов по каждой альтернативе. На этом шаге решением ЗПР занимались специалисты, имеющие широкие знания как в области методов принятия решений, так и в программировании на ЭВМ.<br />Поскольку на практике указанное сочетание знаний является редким, возникла новая категория специалистов — аналитиков в области принятия решений. Аналитики владели методами принятия решений и навыками программирования и выступали в роли посредников между лицом, принимающим решение (ЛПР), и ЭВМ. Аналитик выполнял следующие функции: уточнял совместно с ЛПР постановку задачи, выбирал метод принятия решений, адекватный задаче, собирал необходимую статистическую и экспертную информацию, строил модель задачи, организовывал обработку накопленной информации на ЭВМ, представлял полученные результаты ЛПР и их интерпретировал.<br />Следующий шаг в применении ЭВМ для принятия решений был связан с созданием диалоговых систем, позволявших менять интересующие исследователя параметры заложенной в память ЭВМ модели задачи принятия решений, выбирать алгоритм поиска решения или его параметров, исследовать чувствительность полученного решения. Такие системы позволяли получать исчерпывающую информацию для всестороннего обоснования выбираемых решений.<br />В настоящее время в связи с возросшими возможностями современных ЭВМ разработаны программные информационные системы, обеспечивающие поддержку процесса принятия решений на всех его фазах. Большинство систем принятия решений реализовано на персональных ЭВМ.</p> <p>1.2. Схема процесса принятия решений</p> <p>Общая схема процесса принятия решений включает следующие основные этапы:<br />Этап 1. Предварительный анализ проблемы. На этом этапе определяются:<br />• главные цели;<br />• уровни рассмотрения, элементы и структура системы (процесса), типы связей;<br />• подсистемы, используемые ими основные ресурсы и критерии качества функционирования подсистем;<br />• основные противоречия, узкие места и ограничения. <br />Этап 2. Постановка задачи. Постановка конкретной ЗПР включает:<br />• формулирование задачи;<br />• определение типа задачи;<br />• определение множества альтернативных вариантов и основных критериев для выбора из них наилучших;<br />• выбор метода решения ЗПР.<br />Этап 3. Получение исходных данных. На данном этапе устанавливаются способы измерения альтернатив. Это либо сбор количественных (статистических) данных [9], либо методы математического или имитационного моделирования, либо методы экспертной оценки [10, 11]. В последнем случае необходимо решить задачи формирования группы экспертов, проведения экспертных опросов, предварительного анализа экспертных оценок.<br />Этап 4. Решение ЗПР с привлечением математических методов и вычислительной техники, экспертов и лица, принимающего решение. На этом этапе производятся математическая обработка исходной информации, ее уточнение и модификация в случае необходимости. Обработка информации может оказаться достаточно трудоемкой, при этом может возникнуть необходимость совершения нескольких итераций [12] и желание применить различные методы [13 — 16] для решения задачи. Поэтому именно на этом этапе возникает потребность в компьютерной поддержке процесса принятия решений, которая выполняется с помощью автоматизированных систем принятия решений.<br />Этап 5. Анализ и интерпретация полученных результатов. Полученные результаты могут оказаться неудовлетворительными и потребовать изменений в постановке ЗПР. В этом случае необходимо будет возвратиться на этап 2 или этап 1 и пройти заново весь путь. Решение ЗПР может занимать достаточно длительный промежуток времени, в течение которого окружение задачи может измениться и потребовать корректировок в постановке задачи, а также в исходных данных (например, могут появиться новые альтернативы, требующие введения новых критериев). Задачи принятия решений можно разделить на статические и динамические. К первым относятся задачи, которые не требуют многократного решения через короткие интервалы времени. К динамическим относятся ЗПР, которые возникают достаточно часто. Следовательно, итерационный характер процесса принятия решений можно считать закономерным, что подтверждает необходимость создания и использования эффективных систем компьютерной поддержки. ЗПР, требующие одного цикла, можно скорее считать исключением, чем правилом.</p> <p>1.3. Классификация задач принятия решений</p> <p>Задачи принятия решений отличаются большим многообразием, классифицировать их можно по различным признакам, характеризующим количество и качество доступной информации. В общем случае задачи принятия решений можно представить следующим набором информации [8, 17, 18]:<br />&lt;Т, A, К, X, F, G, D&gt;,<br />где Т— постановка задачи (например, выбрать лучшую альтернативу или упорядочить весь набор);<br />А — множество допустимых альтернативных вариантов;<br />К— множество критериев выбора;<br />Х— множество методов измерения предпочтений (например, использование различных шкал);<br />F— отображение множества допустимых альтернатив в множество критериальных оценок (исходы);<br />G — система предпочтений эксперта;<br />D — решающее правило, отражающее систему предпочтений.<br />Любой из элементов этого набора может служить классификационным признаком принятия решений.<br />Рассмотрим традиционные классификации:<br />1. По виду отображения F. Отображение множества А и К может иметь детерминированный характер, вероятностный или неопределенный вид, в соответствии с которым задачи принятия решений можно разделить на задачи в условиях риска и задачи в условиях неопределенности.<br />2. Мощность множества К. Множество критериев выбора может содержать один элемент или несколько. В соответствии с этим задачи принятия решений можно разделить на задачи со скалярным критерием и задачи с векторным критерием (многокритериальное принятие решений).<br />3. Тип системы G. Предпочтения могут формироваться одним лицом или коллективом, в зависимости от этого задачи принятия решений можно классифицировать на задачи индивидуального принятия решений и задачи коллективного принятия решений.<br />Задачи принятия решений в условиях определенности. К этому классу относятся задачи, для решения которых имеется достаточная и достоверная количественная информация. В этом случае с успехом применяются методы математического программирования, суть которых состоит в нахождении оптимальных решений на базе математической модели реального объекта. Основные условия применимости методов математического программирования следующие:<br />1. Задача должна быть хорошо формализована, т. е. имеется адекватная математическая модель реального объекта.<br />2. Существует некоторая единственная целевая функция (критерий оптимизации), позволяющая судить о качестве рассматриваемых альтернативных вариантов.<br />3. Имеется возможность количественной оценки значений целевой функции.<br />4. Задача имеет определенные степени свободы (ресурсы оптимизации), т. е. некоторые параметры функционирования системы, которые можно произвольно изменять в некоторых пределах в целях улучшения значений целевой функции.<br />Задачи в условиях риска. В тех случаях, когда возможные исходы можно описать с помощью некоторого вероятностного распределения, получаем задачи принятия решений в условиях риска. Для построения распределения вероятностей необходимо либо иметь в распоряжении статистические данные, либо привлекать знания экспертов. Обычно для решения задач этого типа применяются методы теории одномерной или многомерной полезности. Эти задачи занимают место на границе между задачами принятия решений в условиях определенности и неопределенности. Для решения этих задач привлекается вся доступная информация (количественная и качественная).<br />Задачи в условиях неопределенности. Эти задачи имеют место тогда, когда информация, необходимая для принятия решений, является неточной, неполной, неколичественной, а формальные модели исследуемой системы либо слишком сложны, либо отсутствуют. В таких случаях для решения задачи обычно привлекаются знания экспертов. В отличие от подхода, принятого в экспертных системах, для решения ЗПР знания экспертов обычно выражены в виде некоторых количественных данных, называемых предпочтениями.<br />Выбор и нетривиальность задач принятия решений. Следует отметить, что одним из условий существования задачи принятия решений является наличие нескольких допустимых альтернатив, из которых следует выбрать в некотором смысле лучшую. При наличии одной альтернативы, удовлетворяющей фиксированным условиям или ограничениям, задача принятия решений не имеет места.<br />Задача принятия решений называется тривиальной, если она характеризуется исключительно одним критерием К и всем альтернативам Аi приписаны конкретные числовые оценки в соответствии со значениями указанного критерия (рис. 1.1 а).</p> <p>Классификация методов принятия решений</p> <p>Существует множество классификаций методов принятия решений, основанных на применении различных признаков [10, 19 — 23]. В табл. 1.1 приведена одна из возможных классификаций, признаками которой являются содержание и тип получаемой экспертной информации. </p> <p> Таблица 1.1</p> <p>Классификация методов принятия решений<br />№ п/п Содержание информации Тип информации Метод принятия решений<br />1 Экспертная информация не требуется&#160; &#160; Метод доминирования [24, 25]<br />Метод на основе глобальных критериев [26, 27]<br />2<br /> Информация о предпочтениях на множестве критериев<br /> Качественная информация<br /></p> <p>Количественная оценка предпочтительности критериев<br /></p> <p>Количественная информация о замещениях<br /> Лексикографическое упорядочение [24,25] <br />Сравнение разностей критериальных оценок [22,24] <br />Метод припасовывания [24] <br />Методы &quot;эффективность-стоимость&quot; [24,28] <br />Методы свертки на иерархии критериев [29,30] <br />Методы порогов [24, 31] <br />Методы идеальной точки [24] <br />Метод кривых безразличия [10,24] Методы теории ценности [10, 24]</p> <p>3<br /> Информация о предпочтительности альтернатив<br /> Оценка предпочтительности парных сравнений<br /> Методы математического программирования [32,33] <br />Линейная и нелинейная свертка при интерактивном способе определения ее параметров [34]</p> <p>4</p> <p> Информация о предпочтениях на множестве критериев и о последствиях альтернатив</p> <p> Отсутствие информации о предпочтениях; количественная и/или интервальная информация о последствиях. Качественная информация о предпочтениях и количественная о последствиях</p> <p>Качественная (порядковая) информация о предпочтениях и последствиях<br />Количественная информация о предпочтениях и последствиях<br /> Методы с дискретизацией неопределенности [8,26]<br />Стохастическое доминирование [8,10,22]<br />Методы принятия решений в условиях риска и неопределенности на основе глобальных критериев [8, 35]<br />Метод анализа иерархий [36] <br />Методы теории нечетких множеств [7, 13, 14, 15, 17, 37] <br />Метод практического принятия решений [8, 24]<br />Методы выбора статистически ненадежных решений [8,38] <br />Методы кривых безразличия для принятия решений в условиях риска и неопределенности [8] <br />Методы деревьев решений [8,37] <br />Декомпозиционные методы теории ожидаемой полезности [8, 10,11]</p> <p>Используемый принцип классификации позволяет достаточно четко выделить четыре большие группы методов, причем три группы относятся к принятию решений в условиях определенности, а четвертая — к принятию решений в условиях неопределенности. Из множества известных методов и подходов к принятию решений наибольший интерес представляют те, которые дают возможность учитывать многокритериальность и неопределенность, а также позволяют осуществлять выбор решений из множеств альтернатив различного типа при наличии критериев, имеющих разные типы шкал измерения (эти методы относятся к четвертой группе).<br />В свою очередь, среди методов, образующих четвертую группу, наиболее перспективными являются декомпозиционные методы теории ожидаемой полезности, методы анализа иерархий и теории нечетких множеств. Данный выбор определен тем, что эти методы в наибольшей степени удовлетворяют требованиям универсальности, учета многокритериальности выбора в условиях неопределенности из дискретного или непрерывного множества альтернатив, простоты подготовки и переработки экспертной информации.<br />Охарактеризовать достаточно полно все методы принятия решений, относящиеся к четвертой группе, в рамках данной работы невозможно, поэтому в дальнейшем рассматриваются только три подхода к принятию решений в условиях неопределенности, которые получили наиболее широкое воплощение в системах компьютерной поддержки, а именно: подходы, основанные на методах теории полезности, анализа иерархий и теории нечетких множеств.</p> <p><em class="bbuline"><strong>Классификация методов системного анализа</strong></em><br />Метод системного анализа - это путь, способ решения проблемы. Другими словами, это некоторая формализация, позволяющая получить такое решение. <br /> Классификация методов системного анализа тесно связана с понятием уровней научного познания. Различают два таких уровня: эмпирический (дословно – воспринимаемый посредством органов чувств) и теоретический.<br /> Эмпирический уровень научного познания характеризуется непосредственным исследованием научного реально существующих, чувственно воспринимаемых объектов. Соответствующие методы можно разделить на две погруппы: <br />&#160; &#160;– методы вычленения и исследования эмпирического объекта;<br />&#160; &#160;– методы обработки и систематизации полученного эмпирического знания;<br /> Теоретический уровень научного познания характеризуется опосредствованным исследованием действительности с помощью систем абстракций «высшего порядка» - таких как понятия, умозаключения, законы, категории, принципы и другие формы «мыслительных операций». Системный анализ как прикладная дисциплина, имеет отношение лишь к подгруппе теоретических методов нижнего уровня – методов построения и исследования идеализированного объекта.<br />&#160; &#160;Выделяя в научном исследовании указанные два различных уровня не следует, однако, их отрывать друг от друга и противопоставлять. Ведь эмпирический и теоретический уровни познания взаимосвязаны между собой. Эмпирический уровень выступает в качестве основы, фундамента теоретического. Гипотезы и теории формируются в процессе теоретического осмысления научных фактов, статических данных, получаемых на эмпирическом уровне. Эмпирическое исследование, выявляя с помощью наблюдений и экспериментов новые данные, стимулирует теоретическое познание (которое их обобщает и объясняет), ставит перед ним новые более сложные задачи. С другой стороны, теоретическое познание, развивая и конкретизируя на базе эмпирии новое собственное содержание, открывает новые, более широкие горизонты для эмпирического познания, ориентирует и направляет его в поисках новых фактов, способствует совершенствованию его методов и средств и т.д. Эмпирический уровень научного познания не может существовать без достижений теоретического уровня. Эмпирическое исследование обычно опирается на определенную теоретическую конструкцию, которая определяет направление этого исследования, обуславливает и обосновывает применяемые при этом методы.<br /> Методы системного анализа имеют свои преимущества и недостатки, определяющие их область применения как по отношению к типу проблемы, так и к этапу ее решения. Для принятия решений в условиях большей определенности, что обычно имеет место на нижнем уровне иерархии экономических систем, успешно применяются формальные математические методы (разновидность языкового моделирования). По мере перехода на более высокие уровни иерархии количественная определенность в постановке и решении проблем уменьшается, цели, и другие элементы системного анализа приобретают все более качественный характер. Соответственно, все большее число задач решается в условиях повышенного риска и неопределенности. Как следствие, возрастающее значение приобретают субъективные методы анализа, оперирующие с мысленными моделями, тогда как чисто математические методы начинают играть вспомогательную роль.<br />&#160; &#160;Преимуществом методов системного анализа уровня модельного эксперимента выше является возможность проводить исследования какого-либо объекта без непосредственного обращения к нему.</p> mybb@mybb.ru (DjeromG) Fri, 11 Nov 2011 18:57:55 +0400 https://pp09.rolka.me/viewtopic.php?pid=109#p109 https://pp09.rolka.me/viewtopic.php?pid=108#p108 <p>Табличное представление данных <br />Втр, 06/29/2010 - 09:42 — Кузьма<br />Делфи для професионалов<br /><a href="http://delphi.uz/delfi-dlya-profesionalov/tablichnoe-predstavlenie-dannykh.html" rel="nofollow" target="_blank">http://delphi.uz/delfi-dlya-profesional &#8230; nnykh.html</a></p> <p>Компонент TDBGrid </p> <p>Этот компонент инкапсулирует двумерную таблицу, в которой строки представляют собой записи, а столбцы — поля набора данных.</p> <p>Компонент TDBGrid является потомком классов TDBCustomGrid И TCustomGrid. </p> <p>От класса TCustomGrid наследуются все функции отображения и управления работой двумерной структуры данных. Класс TDBCustomGrid обеспечивает визуализацию и редактирование полей из набора данных, причем TDBGrid только публикует свойства и методы класса TDBCustomGrid, не добавляя собственных. </p> <p>В компоненте TDBGrid можно отображать произвольное подмножество полей используемого набора данных, но число записей ограничить нельзя — в компоненте всегда присутствуют все записи связанного набора данных. Требуемый набор полей можно составить при помощи специального Редактора столбцов, который открывается при двойном щелчке на компоненте, перенесенном на форму, или кнопкой свойства columns в Инспекторе объектов. </p> <p>Новая колонка добавляется при помощи кнопки Add New, после этого ее название появляется в списке колонок (рис. 15.2). Для выбранной в списке колонки доступные для редактирования свойства появляются в Инспекторе объектов. Колонки в списке можно редактировать, удалять, менять местами. </p> <p>При помощи кнопки Add All Fields в сетку можно добавить все поля набора данных. </p> <p>Каждая колонка компонента TDBGrid описывается специальным классом TColumn, а совокупность колонок доступна через свойство columns компонента, оно имеет тип TDBGridColumns и представляет собой индексированный список объектов колонок. Поле набора данных связывается с конкретной колонкой при помощи свойства FieldName класса TColumn. При этом в колонку автоматически переносятся все необходимые параметры поля, в частности заголовок поля, настройки шрифтов, ширина поля. После ручного изменения параметров первоначальные значения восстанавливаются методами соответствующих объектов Icolumn. <br /><br /></p> <p>Рис. 15.2. Редактор колонок компонента TDBGrid </p> <p> При метода метода DefaultDrawColumnCell и метода- обработчика OnDraw-CoiumnCell можно управлять процессом отображения данных в ячейках. </p> <p>Метод DefauitorawDataCelll предназначен только для обеспечения обратной совместимости по коду с более ранними версиями. </p> <p>Настройка параметров компонента TDBGrid, от которых зависит его внешний вид и некоторые функции, осуществляется при помощи свойства options (табл. 15.2). Текущая позиция в двумерной структуре данных может быть определена свойствами SelectedField, SelectedRows, Selectedlndex. </p> <p>При необходимости разработчик может использовать разнообразные методы-обработчики событий. Среди них есть как стандартные методы, присущие всем элементам управления, так и специфические. </p> <p>Например, при помощи метода-обработчика OnEditButtonClick можно предусмотреть вызов специализированной формы при щелчке на кнопке в ячейке: </p> <p>procedure TForml.DBGridlEditButtonClick(Sender: TObject);&#160; </p> <p>begin </p> <p>if DBGridl.Selectedlndex = 2 then SomeForm.ShowModal;&#160; </p> <p>end; </p> <p>Примечание </p> <p>Объект колонки TColumn имеет свойство ButtonStyle. Если ему присвоить значение cbsEllipsis, то при активизации ячейки этой колонки в правой части ячейки появляется кнопка. </p> <p>Таблица 15.2. Свойства и методы компонента WBGrid </p> <p>Объявление - Тип - Описание<br />Свойства </p> <p>property Columns: TDBGridColumns; - Pb - Содержит коллекцию объектов TColumn, описывающих колонки компонента </p> <p>property DefaultDrawing: Boolean; - Pb - Определяет способ визуализации данных в сетке. При значении True данные отображаются автоматически. При значении False используется метод-обработчик OnDrawColumnCell </p> <p>property FieldCount: Integer; - Ro - Возвращает число видимых колонок сетки </p> <p>property Fields [Index: Integer] : TField; - Ro - Массив объектов полей набора данных, отображаемых в компоненте </p> <p>TDBGridOption = (dgEditing, dgAlwaysShowEditor, dgTitles, dglndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect) ;<br /> TDBGridOptions = set of TDBGridOption; - Pb - Определяет особенности визуализации и поведения компонента: <br /> dgEditing — данные можно редактировать; <br /> dgAlwaysShowEditor — данные в сетке всегда в режиме редактирования; <br /> dgTitles — видны заголовки колонок; <br /> dglndicator — в начале строки виден номер текущей колонки; <br /> dgColumnResize — колонки можно перемещать и менять их ширину; <br /> dgColLines — видны линии между колонками; <br /> dgRowLines — видны линии между строками; <br /> dgTabs — для перемещения по строкам можно использовать клавиши &lt;Таb&gt; и + <br /> dgRowSelect — можно выделять целые строки, при этом игнорируются установки dgEditing И dgAlwaysShowEditor; <br /> dgAlwaysShowSelection — выделение текущей ячейки сохраняется, даже если сетка не активна; <br /> dgConfirmDelete — при удалении строк появляется запрос о подтверждении операции; <br /> dgCancelOnExit — созданные пустые строки при уходе из сетки не сохраняются;<br /> dgMultiSelect — можно выделять несколько строк одновременно </p> <p>property SelectedField: TField; - Pu - Содержит объект текущего поля </p> <p>property Selectedlndex: Integer; - Pu - Содержит номер текущей колонки в массиве свойства Columns </p> <p>property SelectedRows: TBookmarkList; - Ro - Набор закладок на записи набора данных, соответствующих выделенным строкам сетки </p> <p>property TitleFont: TFont; - Pb - Шрифт заголовков колонок </p> <p>property EditorMode: Boolean; - Pu - Показывает, можно ли редактировать текущую ячейку </p> <p>property FixedColor: TColor; - Pb - Цвет фона неподвижных ячеек сетки </p> <p>Методы </p> <p>procedure DefaultDrawColumnCell (const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState) ; - Pu - Перерисовывает текст в ячейке колонки с номером DataCol. Ячейка задается прямоугольником Rect на канве сетки. Параметр state определяет состояние ячейки после перерисовки. Параметр Column содержит экземпляр класса колонки, которой принадлежит ячейка </p> <p>procedure DefaultDrawDataCell (const Rect: TRect; Field: TField; State: TGridDrawState); - Pu - Перерисовывает текст в ячейке колонки, определяемой параметром Field, содержащим связанный с колонкой объект поля. Ячейка задается прямоугольником Rect на канве сетки. Параметр State определяет состояние ячейки после перерисовки </p> <p>procedure Def aultHandler (var Msg); override; - Pu - Вызывает всплывающее меню для колонки, которой соответствуют текущие координаты мыши. Компонент должен обрабатывать сообщение WM RBUTTONUP </p> <p>function ExecuteAction (Action: TBasicAction): Boolean; override; - Pu - Выполняет действие, заданное параметром Action, по отношению к данному компоненту </p> <p>procedure ShowPopupEditor (Column: I TColumn; X: Integer = Low (Integer); Y: Integer = Low (Integer) ); dynamic; - Pu - Открывает набор данных, связанный с передаваемой параметром Column колонкой в новом окне. Работает только для типов данных абстрактный и набор данных. Параметры X и Y определяют положение нового окна </p> <p>function | ValidFieldlndex (Fieldlndex: Integer) : Boolean; - Pu - Возвращает значение True, если колонка с номером Fieldlndex связана с полем набора данных </p> <p>type TGridCoord = record X: Longint;Y: Longint; end;<br /> function MouseCoord(X, Y: Integer): TGridCoord; ; - Pu - Возвращает номера строки и столбца, соответствующие ячейке, которой принадлежат экранные координаты X и Y </p> <p>Методы-обработчики событий </p> <p>type TDBGridClickEvent = procedure (Column: TColumn) 1 of object;<br /> property OnCellClick: TDBGridClickEvent; - Pb - Вызывается при щелчке мышью на ячейке. Параметр Column содержит колонку, которой принадлежит ячейка </p> <p>property OnColEnter: TNotifyEvent; - Pb - Вызывается при переносе фокуса на новую колонку сетки </p> <p>property OnColExit: TNotifyEvent; - Pb - Вызывается перед переносом фокуса из текущей колонки </p> <p>type TMovedEvent = procedure (Sender: TObject; Froinlndex, Tolndex: Longint) of object;<br /> property OnColumnMoved:<br /> TMovedEvent ; - Pb - Вызывается при переносе колонки в сетке на новое место при помощи мыши. Параметр Fromindex возвращает номер старого положения колонки. Параметр Tolndex возвращает номер нового положения колонки </p> <p>type<br /> TDrawColumnCellEvent = procedure (Sender: TObject; const Rect : TRect; DataCol : State: TGridDrawState) of object;<br /> property OnDrawColurnnCell : TDrawColumnCellEvent; - Pb - Вызывается при перерисовке ячейки. </p> <p>Параметр Rect определяет ячейку по координатам прямоугольника на канве.<br /> Параметр DataCol возвращает номер колонки в сетке.<br /> Параметр Column содержит объект колонки.<br /> Параметр State возвращает состояние колонки </p> <p>type<br /> TDrawDataCellEvent = procedure (Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState) of object;<br /> property OnDrawDataCell: TDrawDataCellEvent; - Pb - I Вызывается при перерисовке ячейки | перед обработчиком OnDrawCoiumnCell, если свойство Columns. State =csDefault. </p> <p>Этот метод лучше не применять, т. к. он используется только для обеспечения обратной совместимости с ранними версиями </p> <p>property OnEditButtonClick: TNotifyEvent; - Pb - 1 Вызывается при щелчке мышью на кнопке в ячейке </p> <p>type TDBGridClickEvent = procedure (Column: TColumn) of object;<br /> property OnTitleClick: TDBGridClickEvent; - Pb - | Вызывается при щелчке мышью на заголовке колонки. Колонка определяется параметром Column </p> <p>В работе компонента TDBGrid важную роль играет класс TColumn, который инкапсулирует свойства колонки или столбца сетки (табл. 15.3). Его основным назначением является правильное отображение данных из поля набора данных, связанного с этой колонкой. Поэтому объект колонки обладает свойствами и методами, которые позволяют произвольным образом задавать параметры отображения данных (цвет, шрифт, ширину и т. д.). Первоначальные значения берутся из связанных с колонками полей. Измененные свойства можно восстановить при помощи группы специальных методов (DefauitColor, DefaultFont И др.). </p> <p>Свойство Assignedvalues позволяет в любой момент определить, какие первоначальные настройки были изменены. </p> <p>За отображение заголовка колонки отвечает свойство Title, представляющее собой ссылку на экземпляр объекта TColumnTitie. Здесь можно задать текст заголовка, параметры шрифта текста заголовка и цвет фона заголовка. По умолчанию текст заголовка берется из свойства DispiayLabel объекта TField (CM. гл. 13). </p> <p>Каждой колонке можно придать список, который разворачивается при щелчке на кнопке в активной ячейке колонки. Выбранное в списке значение автоматически заносится в ячейку. Для реализации этой возможности применяется свойство pickList типа TStrings. Достаточно лишь заполнить список значениями во время разработки или выполнения (рис. 15.3). <br /><br /></p> <p>Рис. 15.3. Список колонки в компоненте TDBGrid </p> <p>Таблица 15.3. Свойства и методы класса TColumn </p> <p>Объявление - Тип - Описание<br />Свойства </p> <p>property Alignment: TAlignment; - Pb - Определяет выравнивание данных в колонке </p> <p>type<br /> TColumnValue = (cvColor, cvWidth, cvFont, cvAlignment, cvReadOnly, cvTitleColor, cvTitleCaption, cv'i'itleAlignment, cvTitleFont, cvImeMode, cvImeName) ; TColuinnValues = set of TColumnValue;<br /> property AssignedValues: TColuranValues ; - Ro - Возвращает набор атрибутов колонки, которые были изменены по сравнению с первоначальными </p> <p>type TColumnButtonStyle = (cbsAuto, cbsEllipsis, cbsNone) ;<br /> property ButtonStyle: TColumnButtonStyle; - Pb - Задает способ редактирования данных в колонке: <br /> cbsAuto — кнопка в редактируемой ячейке появляется, если связанное поле является полем синхронного просмотра; <br /> cbsEllipsis — кнопка в редактируемой ячейке появляется всегда, щелчок на кнопке вызывает обработчик OnEditButtonClick; <br /> cbsNone — при редактировании ячейки кнопка не появляется </p> <p>property Color: TColor; - Pb - Цвет фона колонки </p> <p>property DisplayName: string; - Pu - Название колонки в списке Редактора столбцов </p> <p>property DropDownRows: Cardinal; - Pb - Определяет число строк разворачивающегося списка ячейки </p> <p>property Expandable: Boolean; - Pu - В значении True разрешает показ связанных с полем колонки дочерних полей абстрактного, ссылочного типов и массивов </p> <p>property Expanded: Boolean; - Pb - При значении True каждое дочернее поле отображается в новой колонке. При значении False дочерние поля отображаются через точку с запятой и не доступны для редактирования </p> <p>property FieldName: string; - Pb - Название поля, связанного с колонкой </p> <p>property Font: TFont; - Pb - Шрифт данных в колонке </p> <p>property Grid: TCustomDBGrid; - Ro - Определяет сетку, содержащую эту колонку </p> <p>property ParentColumn: TColumn; - Ro - Определяет колонку-владельца текущей колонки. Используется для дочерних полей </p> <p>property PickList: TStrings; - Pb - Содержит разворачивающийся список, используемый при редактировании данных </p> <p>property PopupMenu: TPopupMenu; - Pb - Связывает с колонкой всплывающее меню </p> <p>property Showing: Boolean; - Ro - Возвращает значение True, если колонка видима </p> <p>property Title: TColumnTitle; - Pb - Задает текст заголовка и его параметры </p> <p>property Visible: Boolean; - Pb - Задает видимость колонки </p> <p>property Width: Integer; - pb - Задает ширину колонки в пикселах </p> <p>Методы </p> <p>procedure Assign (Source: TPersistent); override; - Pu - Копирует колонку Source в текущую колонку </p> <p>function Def aultAlignment: TAlignment; - Pu - Возвращает первоначальное значение выравнивания колонки </p> <p>function DefaultColor: TColor; - Pu - Возвращает первоначальный фоновый цвет колонки </p> <p>function DefaultFont: TFont; - Pu - Возвращает первоначальный шрифт данных в колонке </p> <p>type TIraeMode = (imDisable, iraClose, imOpen, imDontCare, imSAlpha, imAlpha, imHira, imSKata, irnKata, imChinese, imSHanguel, imHanguel); function DefaultlmeMode: TImeMode; - Pu - Возвращает первоначальный способ ввода символов </p> <p>type TImeName = type string;<br /> function DefaultlmeName: TImeName; - Pu - Возвращает первоначальное имя редактора способа ввода символов </p> <p>function DefaultReadOnly: Boolean; - Pa - : Возвращает первоначальный режим редактирования данных </p> <p>function DefaultWidth: Integer; - Pu - Возвращает первоначальную ширину колонки в пикселах </p> <p>function Depth: Integer; - Pu - ; Возвращает число непосредственных предков колонки </p> <p>procedure RestoreDefaults; virtual; - Pu - i Восстанавливает первоначальные настройки колонки </p> <p>При работе с компонентом TDBGrid все операции с отдельными колонками осуществляются при помощи экземпляра класса TDBGridColumns, который инкапсулирует список объектов колонок (свойство Columns компонента TDBGrid). Доступ к колонкам осуществляется при помощи свойства items. Нумерация колонок начинается с нуля. </p> <p>При помощи свойств и методов класса TDBGridColumns можно изменять настройки полей компонента TDBGrid во время выполнения (табл. 15.4). </p> <p>Свойство state определяет способ создания колонок. Его значение устанавливается автоматически. При создании колонок для всех полей сразу (кнопка Add All Fields Редактора столбцов) устанавливается значение csDefault. </p> <p>При любом ручном изменении свойств устанавливается значение csCustomized. При программном изменении значения свойства во время выполнения все существующие колонки удаляются. </p> <p>Все данные из существующих колонок можно сохранить в файле или потоке при помощи методов SaveToFile и saveToStream, а затем загрузить их обратно методами LoadFromFile И LoadFromStream. </p> <p>Таблица 15.4. Свойства и методы класса TDBGridColumns </p> <p>Объявление - Тип - Описание<br />Свойства </p> <p>property Grid: TCustomDBGrid; - Ro - Возвращает ссылку на сетку, владеющую данным объектом </p> <p>property Items [Index: Integer] : TColumn default; - Pu - Индексный список объектов колонок сетки: </p> <p>type TDBGridColumnsState = (csDefault, csCustomized) ;<br /> property State: TDBGridColumnsState; - Pu - Определяет способ создания колонок сетки: <br />csDefault — колонки создаются динамически с параметрами, соответствующими связанным полям; <br /> csCustomized — параметры колонок определены разработчиком и могут отличаться от параметров полей </p> <p>property Count: Integer; - Pu - Возвращает общее число колонок </p> <p>Методы </p> <p>function Add: TColumn; - Pu - Добавляет новый объект TColumn </p> <p>procedure LoadFromFile (const Filename: string); - Pu - Загружает данные в объект из файла FileName </p> <p>procedure LoadFromStream(S: TStream) ; - Pu - Загружает данные в объект из потока s </p> <p>procedure RebuildColumns; - Pu - Удаляет существующие колонки и создает новые, основываясь на параметрах полей набора данных </p> <p>procedure RestoreDefaults; - Pu - Восстанавливает первоначальные настройки колонок </p> <p>procedure SaveToFiie (const Filename: string); - Pu - Сохраняет данные из колонок в файле FileName </p> <p>procedure SaveToStream(S: TStream) ; - Pu - Сохраняет данные из колонок в потоке s</p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 23:22:27 +0400 https://pp09.rolka.me/viewtopic.php?pid=108#p108 https://pp09.rolka.me/viewtopic.php?pid=107#p107 <p>Графические возможности Delphi. Canvas.</p> <p><a href="http://www.beluch.ru/progr/100comp/4_2.htm" rel="nofollow" target="_blank">http://www.beluch.ru/progr/100comp/4_2.htm</a><br /><a href="http://www.beluch.ru/progr/100comp/3_1.htm" rel="nofollow" target="_blank">http://www.beluch.ru/progr/100comp/3_1.htm</a><br /><a href="http://www.delphisources.ru/pages/faq/base/gdi_delphi_graphic.html" rel="nofollow" target="_blank">http://www.delphisources.ru/pages/faq/b &#8230; aphic.html</a></p> <p>Property Brush: TBrush</p> <p> Применимо к<br />TQRShape<br />Использование<br />Используется для установки кисти для компоненты TQRShape при печати квадратов и кругов. Более подробная информация имеется в справочной системе Delphi.<br />Задачи<br />• Для стирания фона установите свойство Brush.Style в bsClear<br />• Для заполнения цветом установите свойство Brush.Color в нужный цвет</p> <p>ИМЯ ОПИСАНИЕ<br />Pen Используется для рисования простых линий. Обычно применяется для функции LineTo или при рисовании рамки для определённой фигуры (например для функции Rectangle).</p> <p>Canvas обеспечивает пространство (холст, канву) для создания, хранения и модификации графических объектов. Canvas является основой графической подсистемы Delphi. Канва обеспечивает:</p> <p>&#216;&#160; Загрузку и хранение графических изображений</p> <p>&#216;&#160; Создание новых и изменение хранимых изображений с помощью пера, кисти, шрифта</p> <p>&#216;&#160; Рисование и закраску различных фигур, линий, текстов</p> <p>&#216;&#160; Комбинирование различных изображений</p> <p>Система координат</p> <p>Для того, чтобы мы могли что-либо нарисовать на форме или компоненте (Canvas поддерживают многие компоненты), нам нужно уметь задавать положение на экране того, что мы рисуем. Для этого с канвой связывается система координат следующего вида:<br /></p> <p>Обратите внимание. Точка (0,0) находится в левом верхнем углу. Привычная для нас система координат “перевернута”</p> <p>Каждая точка на самом деле представляет собой очень маленький прямоугольник (И поскольку это не совсем точка, то используются термин — “пиксел”).</p> <p>Основные методы Canvas</p> <p>Рассмотрим часть методов, при помощи которых можно создавать простые рисунки.</p> <p>Arc</p> <p>Рисует дугу окружности или эллипса</p> <p>Arc(x1,y1,x2,y2,x3,y3,x4,y4: Integer)</p> <p>Метод Arc рисует дугу окружности или эллипса с помощью текущих параметров пера Pen (эти параметры мы рассмотрим чуть ниже). Точки (x1,y1) и (x2,y2) определяют прямоугольник, описывающий эллипс. Начальная точка дуги определяется пересечением эллипса с прямой, проходящей через его центр и точку (x3,y3). Конечная точка дуги определяется пересечением эллипса с прямой, проходящей через его центр и точку (x4,y4). Дуга рисуется против часовой стрелки от начальной до конечной точки.</p> <p>Пример.</p> <p>Image1.Canvas.Arc(0,0, 200,200, 200,0, 0,0);</p> <p>Image2.Canvas.Arc(0,0, 200,200, 0,0, 200,0);<br /><br /><br /><br /> </p> <p>Chord</p> <p>Рисует заполненную замкнутую фигуру, ограниченную дугой окружности или эллипса и хордой</p> <p>Chord (x1,y1,x2,y2,x3,y3,x4,y4:Integer);</p> <p>Метод Chord рисует замкнутую фигуру: дугу окружности или эллипса, замкнутую хордой, с помощью текущих параметров пера Pen. Фигура заполняется текущим значением Brush (рассмотрим чуть ниже). Точки (x1,y1) и (x2,y2) определяют прямоугольник, описывающий эллипс. Начальная точка дуги определяется пересечением эллипса с прямой, проходящей через его центр и точку (x3,y3). Конечная точка дуги определяется пересечением эллипса с прямой, проходящей через его центр и точку (x4,y4). Дуга рисуется против часовой стрелки от начальной до конечной точки. Хорда соединяет точки(x3,y3) и (x4,y4).</p> <p>Пример.</p> <p>Image1.Canvas.Chord(0,0, 200,200, 200,0, 0,0);</p> <p>Image2.Canvas.Chord(0,0, 200,200, 0,0, 200,0);<br /></p> <p>Draw</p> <p>Рисует графическое изображение в указанную позицию канвы</p> <p>Draw (x,y:Integer;Graphic:TGraphic);</p> <p> Метод Draw рисует изображение, содержащееся в объекте, указанном параметром Graphic, сохраняя исходный размер изображеня в его источнике и перенося изображение в область канвы объекта TCanvas, верхний левый угол которой определяется параметрами x и y. Источник изображения может быть битовой матрицей, пиктограммой или метафайлом.</p> <p>Пример.</p> <p>Form1.Canvas.Draw(10,10,Bitmap1);</p> <p>Рисует на канве формы Form1 изображение из компонента Bitmap1 в область с координатами левого верхнего угла (10,10).</p> <p>DrawFocusRect</p> <p>Рисует изображение прямоугольника в виде, используемом для отображения рамки фокуса, операцией XOR</p> <p>DrawFocusRect (const Rect:TRect);</p> <p>Метод DrawFocusRect рисует на канве в области Rect изображение прямоугольника в виде, используемом обычно для отображения рамки фокуса, т.е. точками. При рисовании используется операция XOR, что позволяет удалить изображение прямоугольника его повторной прорисовкой.</p> <p>Пример.</p> <p>Следующая совокупность обработчиков событий, связанных с мышью, рисует на канве компонента Image1 прямоугольную рамку размером 10 на 10 вокруг курсора и перетаскивает еепри перемещении мыши с нажатой кнопкой:</p> <p>Var x0,y0:Integer;</p> <p>Const drag:Boolean=False;<br /><br /> </p> <p>Procedure TForm1.Image1MouseDown(Sender: TObject;Button: TMouseButton;Shift: TShiftState;X, Y: Integer);</p> <p>Begin</p> <p>{рисование рамки}</p> <p>Image1.Canvas.DrawFocusRect(Rect(x-5,y-5,x+5,y+5));</p> <p>{запоминание координат курсора}</p> <p>X0:=x;</p> <p>Y0:=y;</p> <p>{включение флажка режима перемещения рамки}</p> <p>Drag:=True;</p> <p>End;<br /><br /> </p> <p>Procedure TForm1.Image1MouseMove(Sender: TObject;Shift: TShiftState;X,Y: Integer);</p> <p>Begin</p> <p>If not drag then exit;</p> <p>{стирание рамки}</p> <p>Image1.Canvas.DrawFocusRect(Rect(X0-5,Y0-5,X0+5,Y0+5));</p> <p>{рисование рамки}</p> <p>Image1.Canvas.DrawFocusRect(Rect(X-5,Y-5,X+5,Y+5));</p> <p>{запоминание координат курсора}</p> <p>X0:=X;</p> <p>Y0:=Y;</p> <p>End;<br /><br /> </p> <p>Procedure TForm1.Image1MouseUp(Sender: TObject;Button: TMouseButton;Shift: TShiftState;X,Y: Integer);</p> <p>Begin</p> <p>If not drag then exit;</p> <p>{стирание рамки}</p> <p>Image1.Canvas.DrawFocusRect(Rect(X0-5,Y0-5,X0+5,Y0+5));</p> <p>{выключение флажка режима перемещения рамки}</p> <p>drag:=false;</p> <p>End;</p> <p>При нажатии кнопки мыши рисуется первая рамка, запоминаются координаты курсора и включается режим перемещения рамки (переменная drag = True). При перемещении мыши в режиме перемещения рамки стирается прежняя рамка, рисуется рамка в новой позиции и запоминаются новые координаты курсора. При отпускании кнопки мыши стирается рамка и выключается режим перемещения рамки.</p> <p>Ellipse</p> <p>Рисует заполненную окружность или эллипс</p> <p>Ellipse (x1,y1,x2,y2:Integer);</p> <p>Метод Ellipse рисует окружность или эллипс с помощью текущих параметров пера Pen. Фигура заполняется текущим значением Brush. Точки (x1,y1) и (x2,y2) определяют прямоугольник, описывающий эллипс.</p> <p>Пример.</p> <p>With Image1.Canvas do //в операторных скобках перед каждой строкой добавляет Image1.Canvas.</p> <p> Begin</p> <p>&#160; Brush.Color := clRed;</p> <p>&#160; Brush.Style := bsDiagCross;</p> <p>&#160; Ellipse(0, 0, Image1.Width, Image1.Height);</p> <p> End;</p> <p>FillRect</p> <p>Заполняет указанный прямоугольник канвы, используя текущее значение Brush.</p> <p>FillRect(const: TRect);</p> <p>Метод FillRect заполняет прямоугольник канвы, указанный параметром Rect, используя текущее значение Brush. Заполняемая область включает верхнюю и левую стороны прямоугольника, но не включает правую и нижнюю стороны.</p> <p>Пример.</p> <p>Image1.Canvas.FillRect(Rect(0,0,Width,Height));</p> <p>Очищает всю канву компонента Image1, заполняя ее фоном, если он установлен в свойстве Brush.</p> <p>FloodFill</p> <p>Закрашивает текущей кистью замкнутую область канвы, определенным цветом.</p> <p>Type TFillStyle = (fsSurfase, fsBorder);</p> <p>Procedure FloodFill (x,y:Integer;Color:TColor;FillStyle:TFillStyle);</p> <p>Метод FloodFill закрашивает текущей кистью Brush замкнутую область канвы, определенным цветом и начальной точкой закрашивания (x,y). Точка с координатами x и y является произвольной внутренней точкой заполняемой области, которая может иметь произвольную форму. Граница этой области определяется сочетанием параметров Color и FillStyle. Параметр Color указывает цвет, который используется при определении границы закрашиваемой области, а параметр FillStyle определяет, как именно по этому цвету определяется граница. Если FillStyle = fsSurface, то заполняется область, закрашенная цветом Color, а на других цветах метод останавливается. Если FillStyle = fsBorder, то наоборот, заполняется область окрашенная любыми цветами, не равными Color, а на цвете Color метод останавливается.</p> <p>Примеры.</p> <p>1.</p> <p>With Image1.Canvas do begin</p> <p> Brush.Color:=clWhite;</p> <p> FloodFill(X,Y,Pixels[X,Y],fsSurface);</p> <p>End;</p> <p>Приведенные операторы закрашивают белым цветом на канве компонента Image1 все пиксели, прилегающие к пикселю с координатами (x,y) и имеющие тот же цвет, что и этот пиксель.</p> <p>2.</p> <p>With Image1.Canvas do begin</p> <p> Brush.Color:=clWhite;</p> <p> FloodFill(X,Y,clBlack, fsBorder);</p> <p>End;</p> <p>Приведенные операторы закрашивают белым цветом на канве компонента Image1 все пиксели, прилегающие к пикселю с координатами (x,y) и имеющие цвет, отличный от черного. При достижении черной границы области закраска останавливается.</p> <p>FrameRect</p> <p>Рисует на канве текущей кистью прямоугольную рамку.</p> <p>FrameRect(const Rect:TRect);</p> <p>Метод FrameRect рисует на канве прямоугольную рамку вокруг области Rect, используя установку текущей кисти Brush. Толщина рамки — 1 пиксель. Область внутри рамки кистью не закрашивается. Отличается от метода Rectangle тем, что рамка рисуется цветом кисти (в методе Rectangle — цветом пера Pen) и область не закрашивается (в методе Rectangle закрашивается).</p> <p>Пример.</p> <p>With Form1.Canvas do </p> <p> Begin</p> <p> Brush.Color:=clBlack;</p> <p>FrameRect(Rect(10,10,100,100));</p> <p>End;</p> <p>Рисует на канве формы Form1 черную рамку.</p> <p>LineTo</p> <p>Рисует на канве прямую линию, начинающуюся с текущей позиции пера и кончающуюся указанной точкой.</p> <p>LineTo (x,y:Integer);</p> <p>Метод LineTo рисует на канве прямую линию, начинающуюся с текущей позиции пера PenPos и кончающуюся точкой (x,y). Текущая позиция пера PenPos перемещается и кончающуюся точкой (x,y), исключая саму точку (x,y). Текущая позиция пера PenPos перемещается в точку (x,y). При рисовании используются текущие установки пера Pen.</p> <p>Пример.</p> <p>Form1.Canvas.MoveTo(x1,y1);</p> <p>Form1.Canvas.LineTo(x2,y2);</p> <p>Form1.Canvas.LineTo(x3,y3);</p> <p>Рисует кусочно-ломаную прямую, соединяющую точки (x1,y1), (x2,y2) и (x3,y3).</p> <p>MoveTo</p> <p>Изменяет текущую позицию пера на заданную, ничего не рисуя при этом.</p> <p>MoveTo(x,y:Integer);</p> <p>Метод MoveTo изменяет текущую позицию пера на заданную точкой (x,y). Это эквивалентно непосредственной установке свойства PenPos. При перемещении пера методом MoveTo ничего не рисуется.</p> <p>Pie</p> <p>Рисует заполненную замкнутую фигуру — сегмент окружности или эллипса.</p> <p>Pie (x1,y1,x2,y2,x3,y3,x4,y4:Longint);</p> <p>Метод Pie рисует замкнутую фигуру — сектор окружности или эллипса, с помощью текущих параметров пера Pen. Фигура заполняется текущим значением Brush. Точки (x1,y1) и (x2,y2) определяют прямоугольник, описывающий эллипс. Начальная точка дуги определяется пересечением эллипса с прямой, проходящейчерез его центр и точку (x3,y3). Конечная точка дуги определяется пересечением эллипса с прямой, проходящей через его центр и точку (x4,y4). Дуга рисуется против часовой стрелки от начальной до конечной точки. Рисуются прямые, ограничивающие сегмент и проходящие через центр эллипса и точки (x3,y3) и (x4,y4).</p> <p>Пример.</p> <p>Image1.Canvas.Pie(0,0, 200,200, 200,0, 0,0);</p> <p>Image2.Canvas.Pie(0,0, 200,200, 0,0, 200,0);<br /><br /><br /><br /> </p> <p>Polygon</p> <p>Рисует на канве текущим пером замкнутую фигуру (многоугольник) по заданному множеству угловых точек, замыкая первую и последнюю точки и закрашивая внутреннюю область фигуру текущей кистью.</p> <p>Polygon (Points: array of TPoint);</p> <p>Метод Polygon рисует на канве замкнутую фигуру (полигон, многоугольник) по множеству угловых точек, заданному массивом Points. Первая из указанных точек соединяется прямой с последней. Этим метод Polygon отличается от метода Polyline, который не замыкает конечные точки. Рисование проводится текущим пером Pen. Внутренняя область фигуры закрашивается текущей кистью Brush.</p> <p>Примеры.</p> <p>1</p> <p>Form1.Canvas.Polygon([Point(10,10),Point(30,10),Point(130,30),Point(240, 120)]);</p> <p>Рисует на канве формы четырехугольник по точкам, заданным функциями Point.</p> <p>2</p> <p>Form1.Canvas.Polygon(PointArray);</p> <p>Рисует на канве формы многоугольник по точкам, хранящимся в массиве PointArray, который может быть объявлен, например, следующим образом:</p> <p>Var PointArray:array[1..100] of TPoint;</p> <p>3</p> <p>Form1.Canvas.Polygon(Slice(PointArray, 10));</p> <p>Рисует на канве формы многоугольник по первым 10 точкам, хранящимся в массиве PointArray из предыдущего примера.</p> <p>Polyline</p> <p>Рисует на канве текущим пером кусочно-линейную кривую по заданному множеству точек.</p> <p>Polyline(Points: array of TPoint);</p> <p>Метод Polyline рисует на канве кусочно-линейную кривую по множеству точек, заданному массивом Points. Отличие метода Polyline от метода Polygon заключается в том, что метод Polygon замыкает конечные точки, а метод Polyline — нет. Рисование проводится текущим пером Pen. Метод не изменяет текущей позиции PenPos пера Pen.</p> <p>Метод позволяет рисовать кусочно-линейный график функции, хранящийся в массиве типа TPoint. Если желательно использовать для рисования только часть точек массива, это можно сделать с помощью функции Slice. Если надо нарисовать кривую всего по нескольким точкам, то передавать их в метод Polyline удобно с помощью функции Point.</p> <p>То что делает метод Polyline, можно сделать и с помощью методов MoveTo и LineTo, подведя сначало перо к первой точке, а затем последовательно выполняя LineTo. Различие будет заключаться в том, что метод Polyline не изменит текущую пера, а методы MoveTo и LineTo изменят.</p> <p>Примеры.</p> <p>1</p> <p>Form1.Canvas. Polyline([Point(10,10),Point(30,10),Point(130,30),Point(240, 120)]);</p> <p>Рисует кусочно-линейную кривую по четырем точкам, заданным функциями Point.</p> <p>2</p> <p>var PointArray:array[0..100] of TPoint;<br /><br /> </p> <p>procedure TForm1.Button1Click(Sender: TObject);</p> <p>var i,X,Y:word;</p> <p>begin</p> <p> for i:=0 to 100 do begin</p> <p>&#160; X:=Image1.ClientWidth*i div 100;</p> <p>&#160; Y:=trunc((Image1.ClientHeight div 2)*(1+sin(4*Pi*X/Image1.ClientWidth)));</p> <p>&#160; PointArray[i]:=Point(X,Y);</p> <p> end;</p> <p>end;<br /><br /> </p> <p>procedure TForm1.Button2Click(Sender: TObject);</p> <p>begin</p> <p> Image1.Canvas.PolyLine(PointArray);</p> <p>end;<br /><br /> </p> <p>procedure TForm1.Button3Click(Sender: TObject);</p> <p>begin</p> <p> Image1.Canvas.PolyLine(Slice(PointArray,25));</p> <p>end;</p> <p>Первая процедура Button1Click заполняет массив PointArray точками, описывающими график функции sin(x) на протяжении двух периодов (4). Вторая процедура Button2Click по точкам из этого массива рисует график на канве компонента Image1. Третья процедура Button3Click использует для рисования графика первые 25 точек этого массива.</p> <p>Rectangle</p> <p>Рисует на канве текущим пером прямоугольник и закрашивает его текущей кистью.</p> <p>Rectangle(x1,y1,x2,y2:Integer);</p> <p>Метод Rectangle рисует на канве текущим пером Pen прямоугольник, верхний левый угол которого имеет координаты (x1,y1), а нижний правый — (x2,y2). Прямоугольник закрашивается текущей кистью Brush. Рисование прямоугольника без рамки можно осуществить методом FillRect. Прямоугольник со скругленными углами рисуется методом RoundRect. Прямоугольникбез внутренней закраски рисуется методом FrameRect.</p> <p>Пример.</p> <p>Image1.Canvas.Rectangle(10,10,210,110);</p> <p>RoundRect</p> <p>Рисует на канве прямоугольную рамку со скругленными углами.</p> <p>RoundRect(x1,y1,x2,y2,x3,y3:Integer);</p> <p>Метод RoundRect рисует на канве прямоугольную рамку со скругленными углами, используя текущие установки пера Pen и заполняя площадь фигуры текущей кистью Brush. Рамка определяется прямоугольником с координатами углов (x1,y1) и (x2,y2). Углы скругляются с помощью эллипсов с шириной x3 и высотой y3.</p> <p>Если задать ширину эллипса x3 x2-x1, то верхняя и нижняя границы рамки окажутся целиком скругленными (без прямолинейной части). Если y3 y2-y1, то же самое произойдет с левой и правой границами рамки. Если же оба измерения эллипса не меньше размеров рамки, то будет рисоваться просто эллипс. Но, конечно, для рисования эллипса лучше использовать метод Ellipse. Если один из размеров эллипса задать нулевым, то будет рисоваться прямоугольная рамка, а для получения такой рамки лучше использовать метод Rectangle.</p> <p>Пример.</p> <p>Набор следующих операторов вызывает изображения, позанные на приведенномниже рисунке:</p> <p>with Image1.Canvas do</p> <p> begin</p> <p>&#160; RoundRect(10,10,110,210,50,100);</p> <p>&#160; RoundRect(160,10,260,210,100,100);</p> <p>&#160; RoundRect(310,10,410,210,50,200);</p> <p>&#160; RoundRect(460,10,560,210,100,200);</p> <p> end;<br /></p> <p>Основные свойства Canvas</p> <p>Brush</p> <p>Определяет цвет и стиль заполнения фона окна. Доступен только для чтения.</p> <p>Brush: TBrush;</p> <p>Свойство Brush (кисть) присуще многим оконным объектам, включая Canvas. Его можно читать, чтобы определить цвет и стиль заполнения фона окна. Это свойство только для чтения. Однако, атрибуты объекта Brush можно изменять, используя свойства Color и Style.</p> <p>Color</p> <p>Цвет фона компонента, цвет текста, объекта, TFont и др.</p> <p>Color: TColor;</p> <p>Свойство Color определяет цет фона компонента. Значение цвета может задаваться как значение, определяющее интенсивности красного, зеленого и синего цветов в формате RGB (Например: Form1.Canvas.Brush.Color:= RGB (88, 87, 104)) или равным одной из предопределенных в Delphi констант. Ниже приведены некоторые из них.<br />Константа <br />Значение цвета</p> <p>clBlack <br />Черный</p> <p>clMaroon <br />Темно-бордовый</p> <p>clGreen <br />Зеленый</p> <p>clOlive <br />Оливково-зеленый</p> <p>clNavy <br />Темно-синий</p> <p>clPurple <br />Пурпурный</p> <p>clTeal <br />Морской воды</p> <p>clGray <br />Серый</p> <p>clSilver <br />Серебряный</p> <p>clRed <br />Красный</p> <p>clLime <br />Лимонно-зеленый</p> <p>clBlue <br />Синий</p> <p>clYellow <br />Желтый</p> <p>clFuchsia <br />Сиреневый</p> <p>clAqua <br />Голубой</p> <p>clWhite <br />Белый</p> <p>clBackground <br />Текущий цвет фона стола Windows</p> <p>clScrollBar <br />Текущий цвет полос прокрутки</p> <p>Style</p> <p>Style: TBrushStyle default bsSolid;</p> <p>Свойство Style определяет шаблон, которым кисть заполняет фон объекта. Возможные значения свойста Style:<br /></p> <p>Pen</p> <p>Определяет свойства пера, используемые при рисовании линий и фигур на канве. </p> <p>Основные свойста:</p> <p>Color — цвет пера. По умолчанию clBlack.</p> <p>Style — определяет режимрисования линий.<br />psSolid <br />Сплошная линия</p> <p>psDash <br />Штриховая линия</p> <p>psDot <br />Пунктирная линия</p> <p>psDashDot <br />Штрих-пунктирная линия</p> <p>psDashDotDot <br />Линия, чередующая штрих и два пунктира</p> <p>psClear <br />Отсутствующая линия</p> <p>psInsideFrame <br />Сплошная линия, но при width &gt; 1 допускающая цвета, отличные от палитры windows.</p> <p>Width — определяет толщину линии в пикселях. Тип Integer. Влияет на Style.</p> <p>Пример использования Canvas.</p> <p>Задание: нарисовать ель.</p> <p>Программный код:</p> <p>Procedure TForm1.FormPaint(Sender: TObject);</p> <p>Begin</p> <p>With Form1.Canvas do // к каждой последующей строке добавлять Form1.Canvas.</p> <p> Begin</p> <p> Pen.Width:=1; //установка полщины пера</p> <p> Pen.Color:=clGreen; //установка цвета пера</p> <p> Brush.Color:=clGreen; //установка цвета заливки</p> <p> {Рисование елки}</p> <p> PolyGon([Point(350,90),Point(330,90),Point(400,160),Point(380,160),</p> <p>&#160; &#160; &#160; &#160; &#160; Point(470,250),Point(130,250),Point(220,160),Point(200,160),</p> <p>&#160; &#160; &#160; &#160; &#160; Point(270,90),Point(250,90),Point(300,40)]);</p> <p> Pen.Color:=RGB(128,64,0); //установка цвета пера (оттенок коричневого)</p> <p> Brush.Color:=RGB(128,64,0); //установка цвета заливки (оттенок коричневого)</p> <p> {Рисование ствола}</p> <p> PolyGon([Point(350,251),Point(350,301),Point(250,301),Point(250,251)]);</p> <p> End;</p> <p>Font — шрифт отображения текста в компонентах</p> <p>Во всех компонентах ввода и отображения текстовой и цифровой информации шрифт текста, его размер, стиль (жирный, курсив и т.п.) определяются свойством Font. Это свойство в свою очередь является объектом типа TFont, который имеет множество подсвойств, устанавливаемых в процессе проектирования или программно во время выполнения приложения. Основные свойства шрифта следующие: Charset Определяет набор символов шрифта. <br />Color Определяет цвет текста. <br />Height Характеризует высоту шрифта в пикселях. <br />Name Вид (имя) шрифта. <br />Pitch Определяет способ установки ширины символов. <br />Size Размер шрифта в кеглях (пунктах). <br />Style Стиль шрифта: полужирный — fsBold, курсив — fsItalic, подчеркнутый — fsUnderline, перечеркнутый — fsStrikeout. </p> <p>Если система не может найти шрифта с заданной комбинацией свойств Name, Charset, Pitch и Size, Windows использует другой, близкий по характеристикам шрифт. </p> <p>Основное свойство шрифта — Name. Если заданный именем Name шрифт недоступен в системе, Windows заменит его другим шрифтом. По умолчанию для всех компонентов Delphi, начиная с Delphi 2, задается имя шрифта MS Sans Serif и размер 8. Delphi 1 задает имя шрифта System и размер 10. Можно рекомендовать без особой нужды не изменять Name, так как заданные по умолчанию шрифты есть на любом компьютере с Windows, а другой шрифт может отсутствовать на компьютере пользователя вашей программы. </p> <p>Свойства Size и Height определяют размер шрифта. Свойство Size определяет его в кеглях (пунктах, принятых в Windows), a свойство Height — в пикселях. Если значение Size задано отрицательным, то в размер входит верхний пиксель каждой строки. Если значение Size задано положительным, то этот пиксель не учитывается. </p> <p>Значение Size связано со свойствами Height и PixelsPerInch (число пикселей на дюйм) соотношением: <br />Font.Size = -Font.Height * 72 / Font.PixelsPerInch</p> <p>Из соотношения, в частности, видно, что задание положительного значения Size ведет к отрицательному значению Height и наоборот. </p> <p>Свойство Pitch обычно имеет значение fpDefault, при котором ширина устанавливается равной по умолчанию, т.е. описанной в шрифте заданного вида Name. Свойство может принимать также значения fpFixed — установка одинаковой ширины всех символов и fpVariable — установка различной ширины символов. Задание значения отличного от fpDefault заставляет Windows искать наилучший способ удовлетворить всем заданным характеристикам шрифта. Иногда это может привести к замене шрифта на шрифт другого, близкого вида, а иногда может вообще не повлиять на шрифт — все зависит от конкретного вида шрифта и даже от его версии. </p> <p>Свойство Charset определяет набор символов шрифта. Каждый вид шрифта, определяемый его именем, поддерживает один или более наборов символов. Какие именно значения Charset поддерживает тот или иной шрифт можно установить из документации на него или экспериментальным путем, в частности, с помощью приведенного далее в этом разделе тестового приложения. Для шрифтов, поддерживающих несколько наборов символов, важно правильно задать Charset. </p> <p>В Delphi предопределено много констант, соответствующих стандартным наборам символов. Большинство из них, относящихся к японскому, корейскому, китайскому и другим языкам, вряд ли представляют интерес для наших читателей. Поэтому отметим только одно значение — 204, обозначаемое также константой RUSSIAN_CHARSET, которое соответствует символам кириллицы. </p> <p>По умолчанию в объектах типа TFont задается значение Charset, равное 1 или DEFAULT_CHARSET. При этом шрифт выбирается только по его имени Name и размеру Size. Если описанный шрифт недоступен в системе, то Windows заменит его другим шрифтом. Для имен шрифтов, принятых в Delphi по умолчанию, это обычно нормальный вариант. Но в ряде случаев полезно для отображения русских текстов с другими шрифтами заменить это значение на RUSSIAN_CHARSET. Это позволит отобразить символы кириллицы для тех шрифтов, для которых при DEFAULT_CHARSET символы кириллицы не отображаются нормально. </p> <p>Свойство Style, задающее стиль, представляет собой множество или пустое, или содержащее одно или более из возможных значений. Ниже приведены примеры операторов, устанавливающих стиль шрифта: <br />Label1.Font.Style := [ ]; &#160; &#160; &#160; &#160; &#160;{Обычный стиль}<br />Label1.Font.Style := [fsBold]; &#160; &#160; &#160; &#160; &#160;{Полужирный}<br />Label1.Font.Style := [fsBold, fsItalic]; {Полужирный курсив}</p> <p>Значения свойств объекта Font можно присваивать по отдельности, как это сделано в приведенных выше операторах для свойства Style. Но чаще они задаются все сразу методом Assign, который записывает значения всех свойств одного объекта в другой. Пусть, например, на форме имеется компонент Memo1 (см. раздел 3.3.4), в котором расположен некоторый текст, компонент FontDialog1 — диалог выбора шрифта (см. раздел 8.4), и меню с разделом выбора шрифта, названным MFont. Для того, чтобы пользователь мог выбрать имя и атрибуты шрифта текста, отображаемого в Memo1, в обработчик события OnClick раздела меню MFont надо вставить оператор: <br />if (FontDialog1.Execute) <br />&#160; then Memo1.Font.Assign(FontDialog1.Font);</p> <p>Если пользователь сменил атрибуты в диалоговом окне выбора шрифта, то метод FontDialog1.Execute (см. раздел 8.1) возвращает true и атрибуты шрифта компонента Memo1 устанавливаются равными выбранным пользователем. </p> <p>Для того, чтобы продемонстрировать доступные в системе шрифты и исследовать влияние на них свойств Pitch и Charset, можно построить тестовое приложение, показанное на рис. 3.1 В нем используются компоненты MainMenu, Button, ComboBox, SpinEdit и Memo, которые будут рассмотрены позднее в разделах 6.1, 5.2, 3.3.5, 3.4.2 и 3.3.4. Поэтому те, кто не знаком с этими компонентами, могут пока пропустить данный пример и вернуться к нему позднее. <br />Рис. 3.1<br /> Тестовое приложение свойств шрифта </p> <p>Разместите на форме многострочное окно редактирования Memo (см. раздел 3.3.4), в который поместите какой-нибудь текст, например, тест латинских и русских символов, показанный на рис. 3.1. Перенесите на форму выпадающий список ComboBox (см. раздел 3.3.5), в который будут загружаться имена шрифтов, доступных системе на данном компьютере. Назовите этот компонент CBName. Разместите еще один компонент ComboBox, который будет содержать возможные значения свойства Pitch. Назовите его CBPitch и занесите в его свойство Items строки «fpDefault», «fpFixed» и «fpVariable». Разместите на форме также компонент SpinEdit (см. раздел 3.4.2), в котором можно будет задавать численные значения свойства Charset, и кнопку Button (см. раздел 5.2), нажатие которой будет передавать значение, введенное пользователем в SpinEdit, в свойство шрифта Charset. Разместите на форме компонент главного меню MainMenu (см. раздел 6.1) и введите в меню один раздел — &quot;Шрифт&quot;, при выборе которого пользователь сможет в диалоге выбирать атрибуты шрифта, в частности, его размеры и стиль. Чтобы обеспечить диалог выбора шрифта разместите на форме также компонент FontDialog (см. раздел 8.4). </p> <p>Расположение всех компонентов может примерно соответствовать приведенному на рис. 3.1. Далее надо написать обработчики событий: события OnCreate при созданий формы (FormCreate), выбора раздела меню (MFontClick), изменений в списке CBName (CBNameClick) и в списке CBPitch (CBPitchChange) и щелчка на кнопке Button1 (Button1Click). Ниже приведен текст всех этих обработчиков. <br />procedure&#160; TForm1.FormCreate(Sender: TObject);<br />var <br />i: integer; <br />begin&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;<br />// Загрузка в CBName всех шрифтов системы<br /> for i := 0 to Screen.Fonts.Count - 1 do<br />&#160; &#160;CBName.Items.Add(Screen.Fonts[i]);&#160; &#160;<br /> CBName.ItemIndex := 0;&#160; &#160; &#160; <br /> CBPitch.ItemIndex := 0;<br /> // Загрузка в Memo1 имени первого шрифта<br /> Memo1.Font.Name := CBName.Items[CBName.ItemIndex];<br />end; </p> <p>procedure TForm1.MFontClick(Sender: TObject); <br />begin<br />// Задание диалогу текущих атрибутов шрифта Memo1<br /> FontDialog1.Font.Assign(Memo1.Font); <br /> if (FontDialog1.Execute)<br />&#160; then begin&#160; &#160; &#160; &#160; <br />&#160; // Задание атрибутов шрифта, выбранных в диалоге пользователем <br />&#160; &#160; Memo1.Font.Assign(FontDialog1.Font); <br />&#160; &#160; CBName.Text:=Memo1.Font.Name;&#160; &#160; &#160; <br />&#160; &#160; SpinEdit1.Value:=FontDialog1.Font.CharSet; <br />&#160; end&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; <br />end; <br />&#160; &#160;<br />procedure TForm1.CBNameChange(Sender: TObject);<br />begin<br />// Изменение свойства Name<br />&#160; Memo1.Font.Name := CBName.Items[CBName.ItemIndex];<br />end;</p> <p>procedure TForm1.CBPitchChange(Sender: TObject);<br />begin <br />// Изменение свойства Pitch<br />&#160; case CBPitch.ItemIndex of<br />&#160; &#160; 0: Memo1.Font.Pitch := fpDefault;<br />&#160; &#160; 1: Memo1.Font.Pitch := fpFixed;<br />&#160; &#160; 2: Memo1.Font.Pitch := fpVariable;<br />&#160; end;<br />end;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; <br />// Изменение свойства CharSet <br />Memo1.Font.CharSet := SpinEdit1.Value;<br />end;</p> <p>Комментарии в тексте поясняют отдельные операции. Запустите приложение и исследуйте шрифты, зарегистрированные в системе, и влияние на них свойств Pitch и Charset.</p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 23:20:21 +0400 https://pp09.rolka.me/viewtopic.php?pid=107#p107 https://pp09.rolka.me/viewtopic.php?pid=106#p106 <p>Ползунки и полосы прокрутки — компоненты TrackBar и ScrollBar</p> <p>Компонент TrackBar представляет собой элемент управления в виде ползунка, который пользователь может перемещать курсором мыши или клавишами во время выполнения. Таким образом, пользователь может управлять какими-то процессами: громкостью звука, размером изображения и т.п. На рис. 5.3 приведены различные формы отображения ползунка. Как видно из рисунка, он может располагаться горизонтально, вертикально, иметь шкалу с различных сторон, иметь какой-то выделенный диапазон шкалы. <br />Рис. 5.3<br /> Различные варианты ползунков </p> <p><a href="http://www.beluch.ru/progr/100comp/5_6.htm" rel="nofollow" target="_blank">http://www.beluch.ru/progr/100comp/5_6.htm</a><br /><a href="http://www.beluch.ru/progr/100comp/4_8_1.htm" rel="nofollow" target="_blank">http://www.beluch.ru/progr/100comp/4_8_1.htm</a><br />Основное свойство компонента — Position. Это свойство можно задавать во время проектирования или программно во время выполнения. При перемещении пользователем ползунка можно прочитать значение Position, характеризующее позицию, в которую пользователь переместил ползунок. Для возможности такого чтения служит событие OnChange. В обработчике этого события можно прочитать значение Position и использовать его для управления каким-то компонентом. </p> <p>Свойство Position — целое, значение которого может изменяться в пределах, задаваемых свойствами Min и Мах. По умолчанию Min = 0, Мах = 10, так что Position может принимать только 11 значений — от 0 до 10. Если задать большее значение Мах, соответственно увеличится количество возможных значений Position в диапазоне Min — Мах. </p> <p>Свойство Orientation определяет ориентацию ползунка: trHorizontal — горизонтальная, trVertical — вертикальная. </p> <p>Свойство TickMarks указывает размещение шкалы относительно компонента и может принимать значения: tmBottomRight — снизу или справа в зависимости от ориентации компонента (верхний и правый компоненты на рис. 5.3), tmTopLeft — сверху или слева в зависимости от ориентации компонента (нижний компонент на рис. 5.3), tmBoth — с обеих сторон (средний компонент на рис. 5.3). </p> <p>Свойство TickStyle определяет способ изображения шкалы. Оно может принимать значения: tsAuto — автоматическая прорисовка шкалы, tsNone — отсутствие шкалы, tsManual — программное рисование шкалы с помощью метода SetTick(Value: Integer), который помещает метку шкалы в позицию, соответствующую величине Value. Метки, соответствующие началу и концу шкалы автоматически размещаются и в случае TickStyle = tsManual. </p> <p>При TickStyle = tsAuto частота меток шкалы определяется свойством Frequency. Это свойство задает, сколько возможных значений Position лежит между метками. Например, если Frequency = 2, то метки будут соответствовать только каждому второму возможному значению позиции (такое значение Frequency задано в верхнем компоненте на рис. 5.3). </p> <p>Свойства LineSize и PageSize определяют, насколько смещается ползунок, если пользователь управляет им с помощью соответственно клавиш со стрелками или клавишами PageUp и PageDown. </p> <p>Свойства SelStart и SelEnd позволяют визуально выделить на шкале некоторый диапазон (см. средний компонент на рис. 5.3), который о чем-то говорит пользователю, например, рекомендуемый диапазон значений. При этом ничто не мешает пользователю выйти за пределы этого диапазона. </p> <p>Похож на ползунок по своим функциям и компонент ScrollBar, хотя выглядит он иначе и предназначен по замыслу для других целей. Этот компонент представляет собой стандартную линейку прокрутки Windows. Однако, он может использоваться и для целей прокрутки (впрочем, многие оконные компоненты Delphi имеют собственные полосы прокрутки), и для управления, подобного компоненту TrackBar. </p> <p>Основные свойства ScrollBar — Position, Min и Мах те же, что у компонента TrackBar. Свойство Kind, определяющее горизонтальное или вертикальное расположение полосы и принимающее соответственно значения sbHorizontal или sbVertical, аналогично свойству Orientation компонента TrackBar. </p> <p>Имеются два свойства, отсутствующие у TrackBar: SmallChange и LargeChange. Они определяют соответственно «малый» сдвиг при щелчке на кнопке в конце полосы или нажатии клавиши со стрелкой, и «большой» сдвиг при перемещении на страницу щелчком рядом с бегунком или нажатии клавиш PageUp или PageDown. </p> <p>Событие, соответствующее перемещению пользователем бегунка полосы прокрутки — OnScroll. В процедуру обработчика этого события передается по ссылке параметр ScrollPos — позиция бегунка, которую можно читать, но можно и изменять, и передается параметр ScrollCode, характеризующий вид перемещения бегунка. Этот параметр может иметь значения: scLineUp, scLineDown «Малый» сдвиг: перемещение соответственно вверх или налево и вниз или вправо после нажатия кнопки полосы прокрутки или клавиши со стрелкой <br />scPageUp, scPageDown «Большой» сдвиг: перемещение на страницу щелчком рядом с бегунком или нажатием клавиш PageUp или PageDown <br />scPosition Пользователь переместил и освободил бегунок <br />scTrack Пользователь перемещает бегунок <br />scTop, scBottom Бегунок перемещен соответственно в крайнюю верхнюю или левую позицию и в крайнюю нижнюю или правую позицию <br />scEndScroll Окончание перемещения </p> <p>В обработке события ScrollPos можно поместить операторы, перемещающие требуемую область формы или компонент, а можно поместить операторы, которые управляют некоторым компонентом, используя значение позиции бегунка ScrollPos.</p> <p>Рассмотрим компоненты ProgressBar со страницы библиотеки &quot;Win32&quot; и Gauge со страницы &quot;Samples&quot;, предназначенные для отображения в стиле Windows 95/98 хода процессов, занимающих заметное время, например, копирования больших файлов, настройку приложения, установку приложения на компьютере и т.п. Пример возможных вариантов отображения хода процесса компонентами ProgressBar и Gauge приведен на рис. 4.20. <br />Рис. 4.20<br /> Пример отображения хода процесса компонентами ProgressВar и Gauge </p> <p>Основные свойства этих компонентов очень схожи, различаясь только именами: Свойство ProgressBar Свойство Gauge Описание <br />Max MaxValue Максимальное значение позиции (Position, Progress), которое соответствует завершению отображаемого процесса. По умолчанию задается в процентах — 100. <br />Min MinValue Начальное значение позиции (Position, Progress), которое соответствует началу отображаемого процесса. <br />Position Progress Позиция, которую можно задавать по мере протекания процесса, начиная со значения Min или MinValue в начале процесса, и кончая значением Мах или MaxValue в конце. Если минимальное и максимальное значения выражены в процентах, то позиция — это процент завершенной части процесса. <br />Smooth — Непрерывное (при значении true) или дискретное отображение процесса. На рис. 4.20 в горизонтальном компоненте ProgressBar задано Smooth = true, а в вертикальном — false. <br />Step — Шаг приращения позиции, используемый в методе StepIt. Значение по умолчанию — 10. <br />Orientation — Ориентация шкалы компонента: pbHorizontal — горизонтальная, pbVertical — вертикальная. Если задана ориентация pbVertical, то компонент надо вытянуть по вертикали (см. на рис. 4.20 компонент слева). <br />— ForeColor Цвет заполнения. <br />— ShowText Текстовое отображение процента выполнения на фоне диаграммы. <br />— Kind Тип диаграммы: gkHorizontalBar — горизонтальная полоса, gkVerticalBar — вертикальная полоса, gkPie — круговая диаграмма, gkNeedle — секторная диаграмма, gkText — отображение текстом. </p> <p>Отображение хода процесса можно осуществлять, задавая значение позиции — Position в ProgressBar или Progress в Gauge. Например, если полная длительность процесса характеризуется значением целой переменной Count (объем всех копируемых файлов, число настроек, количество циклов какого-то процесса), а выполненная часть — целой переменной Current, то задавать позицию диаграммы в случае, если используются значения минимальной и максимальной позиции по умолчанию (т.е. 0 и 100), можно операторами <br />ProgressBar1.Position := 100 * Current div Count;<br />или <br />Gauge1.Progress := 100 * Current div Count;<br />соответственно для ProgressBar и Gauge. </p> <p>Можно поступать иначе: задать сначала значение максимальной величины равным Count, а затем в ходе процесса задавать позицию равной Current. Например: <br />Gauge1.MaxValue := Count;<br />Gauge1.Progress := Current;</p> <p>Компонент ProgressBar имеет два метода, которыми тоже можно воспользоваться для отображения процесса: StepBy(Delta: Integer) — увеличение позиции на заданную величину Delta и StepIt — увеличение позиции на один шаг, величина которого задается свойством Step.</p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 23:13:23 +0400 https://pp09.rolka.me/viewtopic.php?pid=106#p106 https://pp09.rolka.me/viewtopic.php?pid=105#p105 <p>Компонент Shape только условно может быть отнесен к средствам отображения графической информации, поскольку просто представляет собой различные геометрические фигуры, соответствующим образом заштрихованные. Основное свойство этого компонента — Shape (форма), которое может принимать значения: stRectangle прямоугольник <br />stRoundRect прямоугольник со скругленными углами <br />stEllipse эллипс <br />stSquare квадрат <br />stRoundSquare квадрат со скругленными углами <br />stCircle круг </p> <p> Примеры этих форм показаны на рис. 4.7. <br />Рис. 4.7<br /> Примеры компонента Shape </p> <p>Другое существенное свойство компонента — Brush (кисть). Это свойство является объектом типа TBrush, имеющим ряд подсвойств, в частности: цвет (Brush.Color) и стиль (Brush.Style) заливки фигуры. Заливку при некоторых значениях Style вы можете видеть на рис. 4.7. Третье из специфических свойство компонента Shape — Pen (перо), определяющее стиль линий. Это свойство, как и свойство Brush, уже рассматривались в разделе 4.2. Справочные данные об этих свойствах вы можете найти в главе 10*.</p> <p><a href="http://www.beluch.ru/progr/100comp/4_5.htm" rel="nofollow" target="_blank">http://www.beluch.ru/progr/100comp/4_5.htm</a></p> <p>Графические возможности Delphi. Image.<br /></p> <p>Этот компонент служит для размещения на форме одного из трех поддерживаемых Delphi типов изображений: растровой картинки, пиктограммы или метафайла. Любой из этих типов изображения содержится в центральном свойстве компонента — picture. В свойстве canvas содержится канва, с помощью которой при необходимости программа может отредактировать растровое изображение (но не пиктограмму или метафайл!).</p> <p>Свойства компонента:<br />property Center: Boolean; <br />Указывает, надо ли центрировать изображение в границах компонента. Игнорируется, если Autosize=True или если Stretch =True и изображение не является пиктограммой (ICO) </p> <p>property Canvas : TCanvas; <br />Содержит канву для прорисовки изображения</p> <p>property Transparent: Boolean; <br />Запрещает/разрешает накладывать собственный фон изображения на фон компонента</p> <p>property Proportional: Boolean; property Stretch: Boolean; <br />Разрешает/запрещает изменять размер изображения так, чтобы оно целиком заполнило клиентскую область компонента.</p> <p>property Picture: TPicture; <br />Разрешает/запрещает пропорционально уменьшать высоту и ширину изображения, если оно не может целиком уместиться в рабочей зоне компонента</p> <p>property IncrementalDisplay: Boolean; <br />Разрешает/запрещает показ большого изображения по мере его загрузки Центральное свойство класса. Служит контейнером изображения</p> <p>Методы компонента:</p> <p>Никаких специальных методов у Image нет.</p> <p>Описание использования:</p> <p>Иллюстрацию, которая будет выведена в поле компонента image, можно задать как во время разработки формы приложения, так и во время работы программы.</p> <p>Во время разработки формы иллюстрация задается установкой значения свойства picture путем выбора файла иллюстрации в стандартном диалоговом окне, которое появляется в результате щелчка на командной кнопке Load окна Picture Editor. Чтобы запустить Image Editor, нужно в окне Object Inspector выбрать свойство Picture и щелкнуть на кнопке с тремя точками.<br /></p> <p>Если размер иллюстрации больше размера компонента, то свойству strech нужно присвоить значение True и установить значения свойств width и Height пропорционально реальным размерам иллюстрации.</p> <p>Чтобы вывести иллюстрацию в поле компонента image во время работы программы, нужно применить метод LoadFromFile к свойству Picture, указав в качестве параметра имя файла иллюстрации. Например, инструкция</p> <p>Form1.Image1.Picture.LoadFromFile('e:\temp\bart.bmp')</p> <p>загружает иллюстрацию из файла bart.bmp и выводит ее в поле вывода иллюстрации (imagel).</p> <p>Метод LoadFromFile позволяет отображать иллюстрации различных графических форматов: BMP, WMF, JPEG (файлы с расширением jpg).</p> <p>Пример использования.</p> <p>Написать программу-фотоальбом, которая позволяет просматривать фотографии и оставлять к ним записи.</p> <p>Реализация.</p> <p>Замечание. Для работоспособности программы необходимо создать в папке программы текстовый файл comment.txt и сменить ему расширение на .dat (comment.dat); также необходимо разместить 10 графических файлов с расширением .bmp и имеющих имена от 1 до 10.</p> <p>Данная программа представляет собой прототип программы-фотоальбома. Она представлена для ознакомления принципа использования Image.</p> <p>Интерфейс:<br /></p> <p>Вид инспектора объектов:<br /><br /><br /><br /> </p> <p>Программный код.</p> <p>Для Panel1.Visible:=False;</p> <p>Type mas=array [1..10] of String;</p> <p>Var n:Integer;</p> <p>&#160; &#160; log_f:TextFile;</p> <p>&#160; &#160; a:mas;<br /><br /> </p> <p>procedure TForm1.BitBtn2Click(Sender: TObject);</p> <p>begin</p> <p>Form1.BitBtn2.Caption:='Вперед';</p> <p>n:=n+1;</p> <p>If n=11 then n:=1;</p> <p>Form1.Image1.Picture.LoadFromFile(IntToStr(n)+'.bmp');</p> <p>Form1.BitBtn3.Visible:=True;</p> <p>Form1.GroupBox1.Visible:=True;</p> <p>Form1.BitBtn4.Visible:=True;</p> <p>Form1.Label1.Caption:=a[n];</p> <p>If a[n]='' then Form1.BitBtn4.Caption:='Добавить'</p> <p>else Form1.BitBtn4.Caption:='Изменить';</p> <p>end;<br /><br /> </p> <p>procedure TForm1.FormCreate(Sender: TObject);</p> <p>var i:byte;</p> <p>begin</p> <p>n:=0;</p> <p>Form1.BitBtn3.Visible:=False;</p> <p>Form1.BitBtn4.Visible:=False;</p> <p>Form1.GroupBox1.Visible:=False;</p> <p>Form1.BitBtn2.Caption:='Просмотр';</p> <p>Form1.Panel1.Visible:=False;</p> <p>AssignFile(log_f,'comment.dat');</p> <p>Try</p> <p>Reset(log_f);</p> <p>For i:=1 to 10 do</p> <p>ReadLn(log_f,a[i]);</p> <p>CloseFile(log_f);</p> <p>except</p> <p>ShowMessage('Файл comment.dat не найден!'+#13#10+</p> <p>'Программа завершит свою работу.');</p> <p>Form1.Close;</p> <p>end;</p> <p>end;<br /><br /> </p> <p>procedure TForm1.BitBtn3Click(Sender: TObject);</p> <p>begin</p> <p>n:=n-1;</p> <p>If n=0 then n:=10;</p> <p>Form1.Image1.Picture.LoadFromFile(IntToStr(n)+'.bmp');</p> <p>Form1.Label1.Caption:=a[n];</p> <p>If a[n]='' then Form1.BitBtn4.Caption:='Добавить'</p> <p>else Form1.BitBtn4.Caption:='Изменить';</p> <p>end;<br /><br /> </p> <p>procedure TForm1.BitBtn1Click(Sender: TObject);</p> <p>Var j:byte;</p> <p>begin</p> <p>ReWrite(log_f);</p> <p>For j:=1 to 10 do</p> <p>WriteLn(log_f,a[j]);</p> <p>CloseFile(log_f);</p> <p>Form1.Close;</p> <p>end;<br /><br /> <br /><br /> </p> <p>procedure TForm1.BitBtn4Click(Sender: TObject);</p> <p>begin</p> <p>Form1.Memo1.Clear;</p> <p>Form1.BitBtn6.Caption:=Form1.BitBtn4.Caption;</p> <p>If Form1.BitBtn6.Caption='Добавить' then Form1.Label2.Caption:='Добавление комментария'</p> <p>else</p> <p> Begin</p> <p> Form1.Memo1.Text:=a[n];</p> <p> Form1.Label2.Caption:='Изменение комментария';</p> <p> End;</p> <p>Panel1.Visible:=True;</p> <p>end;<br /><br /> </p> <p>procedure TForm1.BitBtn5Click(Sender: TObject);</p> <p>begin</p> <p>Form1.Panel1.Visible:=False;</p> <p>end;<br /><br /> </p> <p>procedure TForm1.BitBtn6Click(Sender: TObject);</p> <p>begin</p> <p>a[n]:=Form1.Memo1.Text;</p> <p>Form1.Label1.Caption:=a[n];</p> <p>Form1.Panel1.Visible:=False;</p> <p>end;</p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 23:06:09 +0400 https://pp09.rolka.me/viewtopic.php?pid=105#p105 https://pp09.rolka.me/viewtopic.php?pid=104#p104 <p>Простой и комбинированный списки</p> <p>Список представляет собой упорядоченную совокупность взаимосвязанных элементов, являющихся текстовыми строками.</p> <p>Простой список представляет собой прямоугольную область, в которой располагаются его строковые элементы. Для работы с простым списком в Delphi предназначен компонент ListBox.</p> <p>Если количество строк больше, чем их может поместиться в видимой области списка, то у области отображения появляется полоса прокрутки. Ориентация полосы прокрутки, а также число столбцов в области списка зависят от свойства Columns. </p> <p>При работе со списком можно управлять номером элемента, который в видимой области списка отображается верхним. Это обеспечивается свойством TopIndex, который доступен на этапе выполнения приложения.</p> <p>Список может иметь обычную рамку или не иметь. Наличие рамки определяется свойством BorderStyle</p> <p>Комбинированный список объединяет поле редактирования и список. Пользователь может выбирать значение из списка или вводить его непосредственно в поле. Для работы с комбинированным списком служит компонент ComboBox.</p> <p>В отличие от простого, комбинированный список не может иметь горизонтальную полосу прокрутки и допускает выбор только одного значения.</p> <p>Свойство Style определяет внешний вид и поведение комбинированного списка.</p> <p>Свойство DropDownCount определяет количество строк, которые одновременно отображаются в раскрывающемся списке (по умолчанию имеет значение 8). </p> <p>Свойство DroppedDown логического типа позволяет определить, раскрыт ли список. Если это свойство имеет значение True, то список отображается в раскрытом виде. По умолчанию список свернут.<br />При работе с комбинированным списком генерируются следующие события:<br />- OnDropDown (открытие списка);<br />- OnCloseUp (закрытие списка);<br />- OnSelect (выбор элемента);<br />- OnChange (изменение текста в поле редактирования).</p> <p>Пример:<br />procedure TForm1.ComboBox1Select(Sender: TObject);<br />begin<br />Edit1.Text:=ComboBox1.Text;<br />end;</p> <p>Простой и комбинированный списки во многом похожи и имеет много общих свойств, методов и событий.</p> <p>Они отличаются друг от друга прежде всего тем, что ListBox только отображает данные и позволяет пользователю выбрать из них то, что ему надо, a ComboBox позволяет также редактировать данные. Кроме того различается форма отображения списков. ListBox отображает список в раскрытом виде и автоматически добавляет в список полосы прокрутки, если все строки не помещаются в окне компонента. ComboBox позволяет отображать список, как в развернутом виде, так и в виде выпадающего списка, что обычно удобнее, так как экономит площадь окна приложения.</p> <p>Основным для списков является свойство Items, которое содержит элементы списка и представляет собой массив строк.</p> <p>Элементы списка можно отсортировать в алфавитном порядке. Наличие или отсутствие сортировки определяется свойством Sorted. При значении False (по умолчанию) элементы в списке располагаются в порядке в порядке их поступления в список. В противном случае, элементы автоматически сортируются по алфавиту в порядке возрастания. Действие этого свойства является статическим. Это означает, что при добавлении к отсортированному списку новых строк они размещаются на указанной позиции или в конце списка. Чтобы отсортировать список, нужно сбросить значение свойства в False, а затем снова установить значение true.</p> <p>Пользователь может выбирать отдельные строки списка. Выбранный в списке элемент определяется свойством ItemIndex </p> <p>Edit1.Text:=IntToStr(ListBox1.ItemIndex);</p> <p>Начальное значение ItemIndex невозможно задать во время проектирования. По умолчанию ItemIndex = -1. Это означает, что ни один элемент списка не выбран. </p> <p>По умолчанию в списке можно выбрать только один элемент. Для выбора двух и более элементов свойство MultiSelect, управляющее возможностью выбора нескольких строк, устанавливается в значение True.</p> <p>Число выбранных элементов в списке возвращает свойство SelCount. </p> <p>Для определения номеров выбранных строк можно просмотреть значения свойства Selected, представляющего собой массив логических значений.</p> <p>ListBox1.Selected[2]:=True;</p> <p>При выборе элементов списка происходит событие OnClick, которое можно использовать для обработки выбранных строк.</p> <p>Edit1.Text:=ListBox1.Items[ListBox1.itemindex];<br /></p> <p>Структура проекта в среде Delphi Описание главного модуля проекта Описание модулей форм проекта Переключатели и флажки в Delphi Работа с кнопками Опиание классов в Delphi 7 Поля, свойства и методы класса Одномерные и многомерные массивы (задание 1) Одномерные и двумерные массивы (задание 2) Одномерные и двумерные массивы (задание 3)</p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 23:01:33 +0400 https://pp09.rolka.me/viewtopic.php?pid=104#p104 https://pp09.rolka.me/viewtopic.php?pid=103#p103 <p>Переключатели и флажки в Delphi</p> <p>Переключатель (зависимый переключатель) позволяет выбрать единственное значение из определенного множества значений, представленного группой переключателей. Он может находиться в выбранном или не выбранном состоянии. Одновременно можно выбрать только один переключатель в группе.</p> <p>Флажок (независимый переключатель) отличается от переключателя тем, что в группе флажков одновременно можно установить флажки в любой комбинации. Флажок может находиться в установленном или сброшенном состоянии.</p> <p>Флажок представлен компонентом ChekBox. Он выглядит как прямоугольник с текстовым заголовком. Если в нем есть галочка, то опция включена (флажок отмечен). </p> <p>Для определения состояния флажка используется свойство Checked логического типа (по умолчанию – False, флажок снят).</p> <p>Пользователь может переключать состояние флажка щелчком мыши. Что отражается на свойстве Checked. Флажок можно переключить с помощью клавиши пробел, при условии, что компонент находится в фокусе ввода.<br />При каждом щелчке пользователя на индикаторе его состояние изменяется, проходя в общем случае последовательно через три значения: выделение (появление черной галочки), промежуточное (серое окно индикатора и серая галочка) и не выделенное (пустое окно индикатора). Этим трем состояниям соответствуют три значения свойства компонента State: <br />- cbChecked;<br />- cbGrayed; <br />- cbUnchecked. </p> <p>Эти три состояния допускаются только при значении другого свойства AllowGrayed равном true. Если же AllowGrayed = false (значение по умолчанию), то допускается только два состояния: выделенное и не выделенное. </p> <p>Промежуточное состояние обычно используется, если индикатор применяется для отображения какой-то характеристики объекта. Например, если индикатор призван показать, какой регистр использовался при написании какого-то фрагмента текста, то в случае, если весь текст написан в верхнем регистре индикатор может принимать выделенное состояние, если в нижнем — не выделенное, а если использовались оба регистра — промежуточное. </p> <p>В индикаторе CheckBox надпись задается свойством Caption, а ее размещение по отношению к индикатору – свойством Alignment. </p> <p>Переключатель представлен компонентом RadioButton, который отображается в виде кружка с текстовым заголовком (при выбранном состоянии в кружке появляется черная точка).</p> <p>Свойство Caption содержит надпись, появляющуюся около кнопки. Значение свойства Alignment определяет, с какой стороны от кнопки появится надпись. Свойство Checked определяет, выбрана ли данная кнопка пользователем, или нет. Поскольку в начале выполнения приложения обычно надо, чтобы одна из кнопок группы была выбрана по умолчанию, ее свойство Checked надо установить в true в процессе проектирования. </p> <p>Переключатели обычно располагаются по группам (форма Form, панель Panel, группа GroupBox). Выбор переключателя является взаимоисключающим, т.е. при выборе одного переключателя другие становятся не выбранными.</p> <p>Когда в группе выбран один их переключателей, то его состояние нельзя поменять повторным щелчком, как для флажков. Отмена выбора происходит только при выборе другого переключателя из этой же группы.</p> <p>В Delphi есть специализированный компонент RadioGroup, представляющий собой группу переключателей RadioButton. </p> <p>Управлением числом и названиями переключателей производится с помощью свойства Items. Доступ к отдельному переключателю можно получить через свойство ItemIndex (позиция переключателя). </p> <p>Свойство Columns задает число столбцов, на которое разбиваются переключатели при расположении в группе.<br /></p> <p>Свойства компонента Form&#160; События компонента Form&#160; Структура проекта в среде Delphi Описание главного модуля проекта Описание модулей форм проекта Работа с кнопками Простой и комбинированный списки Опиание классов в Delphi 7 Поля, свойства и методы класса Одномерные и многомерные массивы (задание 1)</p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 22:59:13 +0400 https://pp09.rolka.me/viewtopic.php?pid=103#p103 https://pp09.rolka.me/viewtopic.php?pid=102#p102 <p>Управляющие кнопки Button и BitBtn<br /><a href="http://www.beluch.ru/progr/100comp/5_2.htm" rel="nofollow" target="_blank">http://www.beluch.ru/progr/100comp/5_2.htm</a><br />Простейшей и, пожалуй, наиболее часто используемой кнопкой является кнопка Button (см. на рис. 5.1 в верхнем левом углу формы), расположенная на странице библиотеки &quot;Standard&quot;. Реже используется кнопка BitBtn (см. на рис. 5.1 под кнопкой Button), отличающаяся, прежде всего, возможностью отобразить на ее поверхности изображение. Большинство свойств, методов и событий у этих видов кнопок одинаковы. </p> <p>Основное с точки зрения внешнего вида свойство кнопки — Caption (надпись). В надписях кнопок можно предусматривать использование клавиш ускоренного доступа, выделяя для этого один из символов надписи. Перед символом, который должен соответствовать клавише ускоренного доступа, ставится символ амперсанта «&amp;». Этот символ не появляется в надписи, а следующий за ним символ оказывается подчеркнутым. Тогда пользователь может вместо щелчка на кнопке нажать в любой момент клавишу Alt совместно с клавишей выделенного символа. </p> <p>Например, если в вашем приложении имеется кнопка выполнения какой-то операции, вы можете задать ее свойство Caption равным «&quot;&amp;Выполнить&quot;». На кнопке эта надпись будет иметь вид «&quot;Выполнить&quot;». И если пользователь нажмет клавиши Alt-В, то это будет эквивалентно щелчку на кнопке. </p> <p>Основное событие любой кнопки — OnClick, возникающее при щелчке на ней. Именно в обработчике этого события записываются операторы, которые должны выполняться при щелчке пользователя на кнопке. Помимо этого есть еще ряд событий, связанных с различными манипуляциями клавишами и кнопками мыши. </p> <p>Свойство Cancel, если его установить в true, определяет, что нажатие пользователем клавиши Esc будет эквивалентно нажатию на данную кнопку. Это свойство целесообразно задавать равным true для кнопок «&quot;Отменить&quot;» в различных диалоговых окнах, чтобы можно было выйти из диалога, нажав на эту кнопку или нажав клавишу Esc. </p> <p>Свойство Default, если его установить в true, определяет, что нажатие пользователем клавиши ввода Enter будет эквивалентно нажатию на данную кнопку, даже если данная кнопка в этот момент не находится в фокусе. Правда, если в момент нажатия Enter в фокусе находится другая кнопка, то все-таки сработает именно кнопка в фокусе. </p> <p>Еще одно свойство — ModalResult используется в модальных формах, рассмотрение которых выходит за рамки данной книги. В обычных приложениях значение этого свойства должно быть равно mrNone. </p> <p>Из методов, присущих кнопкам, имеет смысл отметить один — Click. Выполнение этого метода эквивалентно щелчку на кнопке, т.е. вызывает событие кнопки OnClick. Этим можно воспользоваться, чтобы продублировать какими-то другими действиями пользователя щелчок на кнопке. Пусть, например, вы хотите, чтобы при нажатии пользователем клавиши с символом «С» или «с» в любой момент работы с приложением выполнялись операции, предусмотренные в обработчике события OnClick кнопки Button1. Поскольку неизвестно, какой компонент будет находиться в фокусе в момент этого события, надо перехватить его на уровне формы. Такой перехват осуществляется, если установить свойство формы KeyPreview в true. Тогда в обработчике события формы OnKeyPress можно написать оператор <br />if (key='C' or key='c') then Button1.Click;</p> <p>Если пользователь ввел символ «С» или «с», то в результате будет выполнен обработчик щелчка кнопки Button1. </p> <p>Все сказанное выше в равной степени относится и к Button, и к BitBtn. Рассмотрим теперь особенности кнопки с пиктограммой BitBtn. Изображение на этой кнопке задается свойством Glyph. При нажатии кнопки с многоточием в строке свойства Glyph в Инспекторе Объектов вызывается окно, представленное на рис. 5.2. Нажав в нем кнопку &quot;Load&quot; вы перейдете в обычное окно открытия файла рисунка и можете выбрать файл битовой матрицы .bmp, содержащий желаемое изображение. В частности, с Delphi поставляется большое количество изображений для кнопок. Они расположены в каталоге \Images\Buttons, а сам каталог Images в Delphi 5 и 4 расположен в каталоге \program files\common files\borland shared, а в других версиях Delphi — в каталоге \program files\borland\delphi... . <br />Рис. 5.2<br /> Окно редактора пиктограммы </p> <p>После того, как вы выбрали изображение, нажмите &quot;OK&quot; и выбранное изображение появится на вашей кнопке левее надписи. </p> <p>Файл изображения для кнопки может содержать до четырех изображений пиктограмм размера 16x16. Самое левое соответствует отжатой кнопке. Второе слева соответствует недоступной кнопке, когда ее свойство Enabled равно false. Третье слева изображение используется при нажатии пользователя на кнопку при ее включении. Четвертое слева изображение используется в кнопках с фиксацией SpeedButton, о которых будет сказано позднее, для изображения кнопки в нажатом состоянии. Большинство изображений для кнопок использует две пиктограммы. Число пиктограмм вы можете узнать из свойства кнопки NumGlyphs, которое после загрузки изображения покажет вам число пиктограмм в нем. </p> <p>Расположение изображения и надписи на кнопке определяется свойствами Margin, Layout и Spacing. Если свойство Margin равно -1 (значение по умолчанию), то изображение и надпись размещаются в центре кнопки. При этом положение изображения но отношению к надписи определяется свойством Layout, которое может принимать значения: blGlyphLeft (слева, это значение принято по умолчанию), blGlyphRight (справа), blGlyphТор (вверху), blGlyphBottom (внизу). Если же Margin &gt; 0, то в зависимости от значения Layout изображение и надпись смещаются к той или иной кромке кнопки, отступая от нее на число пикселей, заданное значением Margin. </p> <p>Свойство Spacing задает число пикселей, разделяющих изображение и надпись на поверхности кнопки. По умолчанию Spacing = 4. Если задать Spacing = 0, изображение и надпись будут размещены вплотную друг к другу. Если задать Spacing = -1, то текст появится посередине между изображением и краем кнопки. </p> <p>Еще одно свойство BitBtn — свойство Kind определяет тип кнопки. По умолчанию значение этого свойства равно bkCustom — заказная. Но можно установить и множество других предопределенных типов: bkOK, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry, bkIgnore, bkAll. В этих типах уже сделаны соответствующие надписи, введены пиктограммы, заданы еще некоторые свойства. Обычно все-таки лучше ими не пользоваться. Во-первых, надписи все равно надо переводить на русский язык. Во-вторых, предопределенные рисунки обычно выбиваются из общего стиля конкретного приложения. И главное — предопределение некоторых свойств, не учтенных вами, может иногда приводить к странным результатам работы. Уж лучше использовать заказные кнопки и самому устанавливать в них все необходимые свойства</p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 22:57:52 +0400 https://pp09.rolka.me/viewtopic.php?pid=102#p102 https://pp09.rolka.me/viewtopic.php?pid=101#p101 <p>Окна редактирования Edit и MaskEdit<br /><a href="http://www.beluch.ru/progr/100comp/3_3_3.htm" rel="nofollow" target="_blank">http://www.beluch.ru/progr/100comp/3_3_3.htm</a><br />На рис. 3.5 вы можете увидеть примеры окон редактирования. Внешнее оформление окон редактирования определяется свойством BorderStyle, влияние которого на вид компонента вы можете увидеть на том же рисунке. <br />Рис. 3.5<br /> Примеры окон редактирования </p> <p>В компонентах Edit и MaskEdit вводимый и выводимый текст содержится в свойстве Text. Это свойство можно устанавливать в процессе проектирования или задавать программно. Выравнивание текста, как это имело место в метках и панелях, невозможно. Перенос строк тоже невозможен. Текст, не помещающийся по длине в окно, просто сдвигается и пользователь может перемещаться по нему с помощью курсора. Свойство AutoSize в окнах редактирования имеет смысл, отличный от смысла аналогичного свойства меток: автоматически подстраивается под размер текста только высота, но не ширина окна. </p> <p>Окна редактирования снабжены многими функциями, свойственными большинству редакторов. Например, в них предусмотрены типичные комбинации «горячих» клавиш: Ctrl-C — копирование выделенного текста в буфер обмена &quot;Clipboard&quot; (команда &quot;Copy&quot;), Ctrl-X — вырезание выделенного текста в буфер &quot;Clipboard&quot; (команда &quot;Cut&quot;), Ctrl-V — вставка текста из буфера &quot;Clipboard&quot; в позицию курсора (команда &quot;Paste&quot;), Ctrl-Z — отмена последней команды редактирования. Правда, пользователи часто не догадываются об этих возможностях редактирования. Так что полезно напоминать им об этом соответствующими подсказками. </p> <p>Свойство AutoSelect определяет, будет ли автоматически выделяться весь текст при передаче фокуса в окно редактирования. Его имеет смысл задавать равным true в случаях, когда при переключении в данное окно пользователь будет скорее заменять текущий текст, чем исправлять его. Имеются также свойства только времени выполнения SelLength, SelStart, SelText, определяющие соответственно длину выделенного текста, позицию перед первым символом выделенного текста и сам выделенный текст. Например, если в окне имеется текст «выделение текста» и в нем пользователь выделил слово «текста», то SelLength = 6, SelStart = 10 и SelText = 'текста'. Если выделенного текста нет, то свойство SelStart просто определяет текущее положение курсора. </p> <p>Окна редактирования можно использовать и просто как компоненты отображения текста. Для этого надо установить в true их свойство ReadOnly и целесообразно установить AutoSelect в false. В этом случае пользователь не сможет изменять отображаемый текст и окно редактирования становится подобным меткам, рассмотренным в разделе 3.3.2. Но имеются и определенные отличия. Во-первых, окна редактирования оформлены несколько иначе (сравните рис. 3.4 и 3.5.). А главное — окна редактирования могут вмещать текст, превышающий их длину. В этом случае пользователь может прокручивать этот текст, перемещая курсор в окне. Такими особенностями не обладает ни одна метка. </p> <p>При использовании окон редактирования для вывода, ввода и редактирования чисел необходимо использовать функции взаимного преобразования строк и чисел. Для вывода это описанные при рассмотрении меток функции FloatToStr и IntToStr. При вводе это функции StrToFloat — преобразование строки в значение с плавающей запятой, и StrToInt — преобразование строки в целое значение. Если вводимый текст не соответствует числу (например, содержит недопустимые символы), то функции преобразования генерируют исключение EConvertError. Поэтому в программе необходимо предусмотреть обработку этого исключения. Например: <br />var A: integer;<br />try<br />&#160; A := StrToInt(Edit1.Text);<br />&#160; &#160;...{операторы,&#160; &#160;использующие переменную А}<br />except on EConvertError do<br />&#160; &#160; &#160; &#160; ShowMessage('Вы&#160; ввели&#160; ошибочное&#160; число;<br /> &#160; &#160; &#160; &#160; &#160; &#160; &#160;повторите&#160; &#160;ввод');</p> <p>Этот код обеспечивает сообщение пользователю об ошибке ввода и предотвращает ошибочные вычисления. Впрочем, это не лучший вариант предотвратить ошибочный ввод, поскольку пользователь узнает о своей ошибке только после того, как программа пытается использовать введенные данные. Лучше, если пользователь просто не сможет ввести неправильные символы. Например, если вы хотите, чтобы пользователь мог вводить в окно редактирования Edit только цифры и символ точки, вы можете в обработчик события OnKeyPress этого компонента вставить оператор: <br />if not (Key in ['0'..'9', ',']) then Key := #0;</p> <p>Этот оператор подменит все символы, кроме цифр и запятой, нулевым символом, который не занесется в текст окна Edit. </p> <p>Свойство MaxLength определяет максимальную длину вводимого текста. Если MaxLength = 0, то длина текста не ограничена. В противном случае значение MaxLength указывает максимальное число символов, которое может ввести пользователь. </p> <p>Свойство Modified, доступное только во время выполнения, показывает, проводилось ли редактирование текста в окне. Если вы хотите использовать это свойство, то в момент начала работы пользователя с текстом Modified надо установить в false. Тогда при последующем обращения к этому свойству можно по его значению (true или false) установить, было или не было произведено редактирование. </p> <p>Свойство PasswordChar позволяет превращать окно редактирования в окно ввода пароля. По умолчанию значение PasswordChar равно #0 — нулевому символу. В этом случае это обычное окно редактирования. Но если в свойстве указать иной символ (например, символ звездочки «*»), то при вводе пользователем текста в окне будут появляться именно эти символы, а не те, которые вводит пользователь (см. рис. 3.5). Тем самым обеспечивается секретность ввода пароля. </p> <p>Компонент MaskEdit отличается от Edit тем, что в нем можно задать строку маски в свойстве EditMask. Маска состоит из трех разделов, между которыми ставится точка с запятой (;). В первом разделе — шаблоне записываются специальным образом символы (см. таблицу 3.2), которые можно вводить в каждой позиции, и символы, добавляемые самой маской; во втором разделе записывается 1 или 0 в зависимости от того, надо или нет, чтобы символы, добавляемые маской, включались в свойство Text компонента; в третьем разделе указывается символ, используемый для обозначения позиций, в которых еще не осуществлен ввод. Прочитать результат ввода можно или в свойстве Text, которое в зависимости от вида второго раздела маски включает или не включает в себя символы маски, или в свойстве EditText, содержащем введенный текст вместе с символами маски. Таблица 3.2. Символы шаблона маски</p> <p>! Наличие символа «!» означает, что в EditText недостающие символы предваряются пробелами, а отсутствие символа «!» означает, что пробелы размещаются в конце. <br />&gt; Символ «&gt;» означает, что все последующие за ним символы должны вводиться в верхнем регистре, пока не кончится маска или пока не встретится символ «&lt;». <br />&lt; Символ «&lt;» означает, что все последующие за ним символы должны вводиться в нижнем регистре, пока не кончится маска или пока не встретится символ «&gt;». <br />&lt;&gt; Символы «&lt;&gt;» означают, что анализ регистра не производится. <br />\ Символ «\» означает, что следующий за ним символ является буквенным, а не специальным, характерным для маски. Например, символ «&gt;» после символа «\» воспримется как знак &gt;, а не как символ, указывающий на верхний регистр. <br />L Символ «L» означает, что в данной позиции должна бытъ буква. <br />l Символ «l» означает, что в данной позиции может быть только буква или ничего. <br />A Символ «А» означает, что в данной позиции должна быть буква или цифра. <br />a Символ «а» означает, что в данной позиции может быть буква, или цифра, или ничего. <br />C Символ «С» означает, что в данной позиции должен быть любой символ. <br />c Символ «с» означает, что в данной позиции может быть любой символ или ничего. <br />0 Символ «0» означает, что в данной позиции должна быть цифра. <br />9 Символ «9» означает, что в данной позиции может быть цифра или ничего. <br /># Символ «#» означает, что в данной позиции может быть цифра, знак «+», знак «-» или ничего. <br />: Символ «:» используется для разделения часов, минут и секунд. <br />/ Символ «/» используется для разделения месяцев, дней и годов в датах. <br /> Символ « » означает автоматическую вставку в текст пробела. </p> <p>Вводить маску можно непосредственно в свойство EditMask. Но удобнее пользоваться специальным редактором масок, вызываемым при нажатии кнопки с многоточием в строке свойства EditMask в Инспекторе Объектов. Окно редактора масок имеет вид, представленный на рис. 3.6. </p> <p>В редакторе масок окно &quot;Sample Masks&quot; содержит наименования стандартных масок и примеры ввода с их помощью. В окно &quot;Input Mask&quot; надо ввести маску. Если вы выбираете одну из стандартных масок, то окно &quot;Input Mask&quot; автоматически заполняется и вы можете, если хотите, отредактировать эту маску. </p> <p>Окно &quot;Character for Blanks&quot; определяет символ, используемый для обозначения позиций, в которых еще не осуществлен ввод (третий раздел маски). Индикатор &quot;Save Literal Characters&quot; определяет второй раздел маски: установлен, если второй раздел равен 1, и не установлен, если второй раздел равен 0. <br />Рис. 3.6<br /> Окно редактора масок с загруженными файлами стандартных масок: американским (а) и российским (6) a) <br /> b) </p> <p>Кнопка &quot;Masks&quot; позволяет выбрать и загрузить какой-либо другой файл стандартных масок. К сожалению, среди файлов стандартных масок, поставляемых с Delphi, отсутствует маска, соответствующая российским стандартам. Но вы легко можете сами сделать себе такой файл стандартных масок. Он делается в обычном текстовом редакторе и должен сохраняться как «только текст» с расширением .dem. Чтобы редактор масок Delphi видел этот файл, его надо сохранить в каталоге Delphi BIN. Каждая строка файла состоит из трех частей, разделяемых символом вертикальной черты. Первая часть состоит из пояснительного текста, появляющегося в левой панели окна &quot;Sample Masks&quot; редактора масок. Вторая часть — пример, который появляется в правой панели окна &quot;Sample Masks&quot; редактора масок. А третья часть — сама маска. Например, я сделал себе файл с текстом, приведенным ниже, и сохранил его с именем ru.dem. <br />Телефон | 5551212 | !000-00-00;0;_<br />Телефон с кодом страны | 0955551212 | !\(999\) 000-00-00;0;_<br />Почтовый индекс | 123456 | !000000;1;_<br />Паспорт| VII123456 | !L-LL 999999;0;_<br />Дата с указанием дня | 270694 | !99/99/00;1;_<br />Дата без указания дня | 0694 | !99/00;1;_<br />Время с секундами | 210515 | ! 90:00:00;1;_<br />Время без секунд | 1345 | !90:00;1;_</p> <p>На рис. 3.6 б вы можете видеть его в работе, а на рис. 3.5 вы можете видеть ввод в окна с масками телефона и даты. </p> <p>Рассмотрим примеры масок. В приведенном выше файле маска для ввода номера телефона имеет вид: <br />!\(999\) 000-00-00;0;_<br />В этой маске символ 9 означает, что в соответствующей позиции может быть только цифра. Символ 0 означает, что в данной позиции должна быть цифра. Символ подчеркивания в конце маски будет заполнять пустые позиции. Таким образом, пользователю для ввода в окне будет отображен шаблон (см. рис. 3.5): <br />(___)___-__-__</p> <p>Поскольку второй раздел маски равен 0, то при чтении введенных пользователем значений свойства EditText и Text будут различаться. Свойство EditText для примера рис. 3.5 будет равно (095) 123-45-67, а свойство Text будет равно 0951234567. Если второй раздел маски сделать равным 1, то значения обоих свойств будут равны (095) 123-45-67. </p> <p>Рассмотрим еще пример. Если с помощью EditMask надо ввести, например, целое число без знака, состоящее не более, чем из двух цифр, можно задать маску 99;0; . Если число обязательно должно быть двузначным, то маска должна иметь вид 00;0; <br /><a href="http://www.maksakov-sa.ru/TeorDelphi/VizualKomponDelphi/RedSimvolInform/LabelEditDelphi/index.html" rel="nofollow" target="_blank">http://www.maksakov-sa.ru/TeorDelphi/Vi &#8230; index.html</a><br /><strong><br />Строка ввода с меткой класса TLabeledEdit (вкладка Additional палитры инструментов) совмещает в себе два компонента: редактор TEdit и метку TLabel, которая располагается над редактором. Эти редакторы имеют идентичные свойства (единственное уникальное свойство EditLabel компонента LabeledEdit используется для настройки метки, связанной с этим редактором). Работа с данным компонентом ничем не отличается от работы с компонентом класса TEdit. Отличие состоит лишь во внешнем виде.</strong><br /><span style="font-style: italic"><br />Отображение текста в надписях компонентов Label, StaticText и Panel</p> <p>Для отображения различных надписей на форме используются в основном компоненты Label, StaticText (появившийся только в Delphi 3) и Panel. Первые два из этих компонентов — метки, специально предназначенные для отображения текстов. Основное назначение панели Panel другое: компоновка компонентов в окне формы. Однако, панель можно использовать и для вывода текстов. </p> <p>Примеры вывода текста в компоненты приведены на рис. 3.4. </p> <p>Тексты, отображаемые в перечисленных компонентах, определяются значением их свойства Caption. Его можно устанавливать в процессе проектирования или задавать и изменять программно во время выполнения приложения. Например: <br />Label1.Caption := 'Новый текст';</p> <p>Если требуется отобразить числовую информацию, можно воспользоваться функциями FloatToStr и IntToStr, переводящими соответственно числа с плавающей запятой и целые в строку. Для формирования текста, состоящего из нескольких фрагментов, можно использовать операцию «+», которая для строк означает их склеивание (конкатенацию). Например, если в программе имеется целая переменная I, отображающая число сотрудников некоторой организации, то вывести в метку Label1 информацию об этом можно оператором: <br />Label1.Caption := 'Число сотрудников: '+IntToStr(I);</p> <p>Во всех компонентах цвет фона определяется свойством Color, а цвет надписи — подсвойством Color свойства Font. Например, в большинстве меток (кроме верхней) на рис. 3.4 а и в правых метках на рис. 3.4 б задан цвет фона равным clWhite — белый. Если цвет специально не задавать, то цвет фона обычно сливается с цветом контейнера, содержащего метку, так что фон просто не заметен. </p> <p>Для метки Label цвет и шрифт — единственно доступные элементы оформления надписи. Компоненты StaticText и Panel имеют кроме того свойство BorderStyle, определяющее рамку текста — бордюр. На рис. 3.4 б вы можете видеть влияние бордюра на вид метки StaticText. При стиле sbsNone метка StaticText по виду не отличается от метки Label. Вероятно, если уж использовать бордюр, то наиболее приятный стиль sbsSunken. <br />Рис. 3.4<br /> Примеры вывода текста в компоненты Label (а), StaticText (б) и Panel (в) а) <br /> б) <br /> в) </p> <p>Компонент Panel кроме свойства BorderStyle имеет еще свойства BevelInner, BevelOuter, BevelWidth, BorderWidth, которые предоставляют богатые возможности оформления надписи, как вы можете видеть на рис. 3.4 в. Таким образом, с точки зрения оформления выводимого текста максимальные возможности дает Panel и минимальные — Label. </p> <p>Размещение всех рассматриваемых компонентов на форме определяется, в частности, свойствами Тор (координата верхнего края), Left (координата левого края), Height (высота), Width (ширина). Имеются также свойства, определяющие изменение размера компонента при изменении пользователем во время выполнения приложения размеров окна. Это общие свойства всех оконных компонентов: Align (выравнивание компонента по всей верхней, левой, правой, нижней частям контейнера или по всей его клиентской области), Anchors (привязка сторон компонента к сторонам контейнера), Constraints (ограничения допустимых изменений размеров). Учтите, что использование в свойстве Anchors одновременной привязки компонента к противоположным сторонам контейнера приведет к растягиванию или сжатию компонента при изменении пользователем размеров окна. При этом в метках в ряде случаев наблюдаются неприятности, связанные с перемещением надписей (если они, например, выровнены по центру). Чтобы избежать этих неприятностей, надо в обработку события формы OnResize вставить операторы, перерисовывающие компоненты методом Repaint, например: <br />StaticText1.Repaint;</p> <p>Размер меток Label и StaticText определяется также свойством AutoSize. Если это свойство установлено в true, то вертикальный и горизонтальный размеры компонента определяются размером надписи. Если же AutoSize равно false, то выравнивание текста внутри компонента определяется свойством Alignment, которое позволяет выравнивать текст по левому краю, правому краю или центру клиентской области метки. В панели Panel также имеется свойство AutoSize, но оно не относится к размерам надписи Caption. Однако, свойство выравнивания Alignment работает и для панели. </p> <p>В метке Label имеется свойство Wordwrap — допустимость переноса слов длинной надписи, превышающей длину компонента, на новую строчку. Чтобы такой перенос мог осуществляться, надо установить свойство WordWrap в true, свойство AutoSize в false (чтобы размер компонента не определялся размером надписи) и сделать высоту компонента такой, чтобы в нем могло поместиться несколько строк (см. пример правой нижней метки на рис. 3.4 а). Если WordWrap не установлено в true при AutoSize равном false, то длинный текст, не помещающийся в рамке метки, просто обрезается (см. пример левой нижней метки на рис. 3.4 а). </p> <p>В метке StaticText перенос длинного текста осуществляется автоматически, если значение AutoSize установлено в false и размер компонента достаточен для размещения нескольких строк. Для того, чтобы в StaticText осуществлялся перенос при изменении пользователем размеров окна, надо осуществлять описанную выше перерисовку компонента методом Repaint в обработчике события формы OnResize. </p> <p>В панели размещение надписи в нескольких строках невозможно. </p> <p>Можно отметить еще одно свойство меток Label и StaticText, превращающее их в некоторое подобие управляющих элементов. Это свойство FocusControl — фокусируемый компонент. Если в свойстве метки Caption поместить перед одним из символов символ амперсант «&amp;», то символ, перед которым поставлен амперсант, отображается в надписи метки подчеркнутым (сам амперсант вообще не отображается). Если после этого обратиться к свойству метки FocusControl, то из выпадающего списка можно выбрать элемент, на который будет переключаться фокус, если пользователь нажмет клавиши ускоренного доступа: клавишу Alt + подчеркнутый символ. Подобные клавиши ускоренного доступа предусмотрены в управляющих элементах: разделах меню (см. раздел 6.1) и кнопках (см. раздел 5.2). Благодаря свойству FocusControl метки могут обеспечить клавишами ускоренного доступа иные элементы, например, окна редактирования (см. раздел 3.3.3), в которых такие клавиши не предусмотрены. Только для того, чтобы клавиши ускоренного доступа в метках срабатывали, необходимо установить свойство ShowAccelChar этих меток в true. </p> <p>Для отображения текстовой информации, и даже с дополнительной возможностью прокрутки длинных текстов, можно использовать также окна редактирования Edit и MaskEdit в режиме Readonly.</span></p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 22:56:24 +0400 https://pp09.rolka.me/viewtopic.php?pid=101#p101 https://pp09.rolka.me/viewtopic.php?pid=100#p100 <p>Многострочные окна редактирования Memo и RichEdit</p> <p>Компоненты Memo и RichEdit (см. пример на рис. 3.7) являются окнами редактирования многострочного текста. Они так же, как и окно Edit, снабжены многими функциями, свойственными большинству редакторов. В них предусмотрены типичные комбинации «горячих» клавиш: Ctrl-C — копирование выделенного текста в буфер обмена &quot;Clipboard&quot; (команда &quot;Copy&quot;), Ctrl-X — вырезание выделенного текста в буфер &quot;Clipboard&quot; (команда &quot;Cut&quot;), Ctrl-V — вставка текста из буфера &quot;Clipboard&quot; в позицию курсора (команда &quot;Paste&quot;), Ctrl-Z — отмена последней команды редактирования. <br />Рис. 3.7<br /> Примеры компонентов Memo и RichEdit </p> <p>В компоненте Memo формат (шрифт, его атрибуты, выравнивание) одинаков для всего текста и определяется свойством Font. Если вы сохраните в файле текст, введенный или отредактированный пользователем, то будет создан текстовый файл, содержащий только символы и не содержащий элементов форматирования. При последующем чтении этого файла в Memo формат будет определяться текущим состоянием свойства Font компонента Memo, а не тем, в каком формате ранее вводился текст. </p> <p>Компонент RichEdit работает с текстом в обогащенном формате RTF. При желании изменить атрибуты вновь вводимого фрагмента текста вы можете задать свойство SelAttributes. Это свойство типа TTextAttributes, которое в свою очередь имеет подсвойства: Color (цвет), Name (имя шрифта), Size (размер), Style (стиль) и ряд других. Например, введите на форму компонент RichEdit, диалог выбора шрифта FontDialog (см. раздел 8.4) и кнопку Button, которая позволит пользователю менять атрибуты текста. В обработчик щелчка кнопки можно было бы ввести текст: <br />if FontDialog1.Execute then<br /> with RichEdit1.SelAttributes do<br />&#160; begin<br />&#160; &#160;Color:=FontDialog1.Font.Color;<br />&#160; &#160;Name:=FontDialog1.Font.Name;<br />&#160; &#160;Size:=FontDialog1.Font.Size;<br />&#160; &#160;Style:=FontDialog1.Font.Style;<br />&#160; end;<br />RichEdit1.SetFocus;</p> <p>В приведенном коде присваивается поочередно значение каждого свойства. Но этот текст можно кардинально сократить, воспользовавшись тем, что объекты SelAttributes и Font совместимы по типу. Поэтому можно присвоить сразу все свойства одного объекта другому: <br />if FontDialog1.Execute then<br /> RichEdit1.SelAttributes.Assign(FontDialog1.Font);<br />RichEdit1.SetFocus;</p> <p>Запустите приложение и увидите, что вы можете менять атрибуты текста, выполняя отдельные фрагменты различными шрифтами, размерами, цветами, стилями. Устанавливаемые атрибуты влияют на выделенный текст или, если ничего не выделено, то на атрибуты нового текста, вводимого начиная с текущей позиции курсора (позиция курсора определяется свойством SelStart). </p> <p>В компоненте имеется также свойство DefAttributes, содержащее атрибуты по умолчанию. Эти атрибуты действуют до того момента, когда изменяются атрибуты в свойстве SelAttributes. </p> <p>Но значения атрибутов в DefAttributes сохраняются и в любой момент эти значения могут быть методом Assign присвоены атрибутам свойства SelAttributes, чтобы вернуться к прежнему стилю. </p> <p>Свойство DefAttributes доступно только во время выполнения. Поэтому его атрибуты при необходимости можно задавать, например, в обработчике события OnCreate. </p> <p>За выравнивание, отступы и т.д. в пределах текущего абзаца отвечает свойство Paragraph типа TParaAttributes. Этот тип в свою очередь имеет ряд свойств: Alignment Определяет выравнивание текста. Может принимать значения taLeftJustify (влево), taCenter (по центру) или taRightJustify (вправо). <br />FirstIndent Число пикселей отступа красной строки. <br />Numbering Управляет вставкой маркеров, как в списках. Может принимать значения nsNone — отсутствие маркеров, nsBullet — маркеры ставятся. <br />LeftIndent Отступ в пикселях от левого поля. <br />RightIndent Отступ в пикселях от правого поля. <br />TabCount Количество позиций табуляции. <br />Tab Значения позиций табуляции в пикселях. </p> <p>Значения подсвойств свойства Paragraph можно задавать только в процессе выполнения приложения, например, в событии создания формы или при нажатии какой-нибудь кнопки. Значения подсвойств свойства Paragraph относятся к тому абзацу, в котором находится курсор. Например, каждый из следующих операторов осуществит соответственное выравнивание текущего абзаца: <br />RichEdit1.Paragraph.Alignment:=taLeftJustify; // Влево<br />RichEdit1.Paragraph.Alignment:=taCenter;&#160; &#160; &#160; // По центру<br />RichEdit1.Paragraph.Alignment:=taRightJustify;// Вправо</p> <p>Следующий оператор приведет к тому, что текущий абзац будет отображаться как список, т.е. с маркерами: <br />RichEdit1.Paragraph.Numbering:=nsBullet;</p> <p>Уничтожение списка в текущем абзаце осуществляется оператором <br />RichEdit1.Paragraph.Numbering:=nsNone;</p> <p>В целом, если с помощью компонента ActionList (см. раздел 9.2) определено некоторое действие ввода и уничтожения списка, названное ABullet, то операторы обработки соответствующего действия могут иметь вид: <br />if (ABullet.Checked) then<br /> RichEdit1.Paragraph.Numbering:=nsNone<br />else RichEdit1.Paragraph.Numbering :=nsBullet;<br />ABullet.Checked:=not ABullet.Checked;</p> <p>Они обеспечивают переключение соответствующей быстрой кнопки и раздела меню из нажатого состояния (отмеченного) в ненажатое с соответствующим изменением вида текущего абзаца. </p> <p>Свойства TabCount и Tab имеют смысл при вводе текста только при значении свойства компонента WantTabs = true. Это свойство разрешает пользователю вводить в текст символ табуляции. Если WantTabs = false, то нажатие пользователем клавиши табуляции просто переключит фокус на очередной компонент и символ табуляции в текст не введется. </p> <p>Мы рассмотрели основные отличия Memo и RichEdit. Теперь остановимся на общих свойствах этих окон редактирования. </p> <p>Свойства Alignment и WordWrap имеют тот же смысл, что, например, в метках, и определяют выравнивание текста и допустимость переноса длинных строк. Установка свойства ReadOnly в true задает текст только для чтения. Свойство MaxLength определяет максимальную длину вводимого текста. Если MaxLength = 0, то длина текста не ограничена. Свойства WantReturns и WantTab определяют допустимость ввода пользователем в текст символов перевода строки и табуляции. </p> <p>Свойство ScrollBars определяет наличие полос прокрутка текста в окне. По умолчанию ScrollBars = ssNone, что означает их отсутствие. Пользователь может в этом случае перемещаться по тексту только с помощью курсора. Можно задать свойству ScrollBars значения ssHorizontal, ssVertical или ssBoth, что будет соответственно означать наличие горизонтальной, вертикальной или обеих полос прокрутки. </p> <p>В качестве примера на рис. 3.8 приведен пример текстового редактора, использующего описанные выше свойства компонента RichEdit. Текст в окне редактора частично поясняет атрибуты шрифта, использованные при его написании. <br />Рис. 3.8<br /> Пример редактора на основе компонента RichEdit </p> <p>Основное свойство окон Memo и RichEdit — Lines, содержащее текст окна в виде списка строк и имеющее тип TStrings. Начальное значение текста можно установить в процессе проектирования, нажав кнопку с многоточием около свойства Lines в окне Инспектора Объектов. Перед вами откроется окно редактирования списков строк, представленное на рис. 3.9. Вы можете редактировать или вводить текст непосредственно в этом окне, или нажать кнопку &quot;CodeEditor&quot; и работать в обычном окне Редактора Кода. В этом случае, завершив работу с текстом, выберите из контекстного меню, всплывающего при щелчке правой кнопкой мыши, команду &quot;Close Page&quot; и ответьте утвердительно на вопрос, хотите ли вы сохранить текст в соответствующем свойстве окна редактирования. </p> <p>В Delphi 1 аналогичное окно имеет еще кнопки, позволяющие загрузить текст из файла или сохранить его в файле. <br />Рис. 3.9<br /> Окно редактирования списков строк </p> <p>Во время выполнения приложения вы можете заносить текст в окно редактирования с помощью методов свойства Lines типа TStrings. Этот тип широко используется в свойствах многих компонентов и его описание вы можете найти в во встроенной справке Delphi. Здесь коротко укажем только на его основные свойства и методы, используемые в свойстве Lines. </p> <p>Весь текст, представленный одной строкой типа String, внутри которой используются разделители типа символов возврата каретки и перевода строки, содержится в свойстве Text. </p> <p>Доступ к отдельной строке текста вы можете получить с помощью свойства Strings[Index: Integer]. Индексы, как и везде в Delphi, начинаются с 0. Так что Memo1.Lines.Strings[0] — это текст первой строки. Учтите, что если окно редактирования изменяется в размерах при работе с приложением и свойство WordWrap = true, то индексы строк будут изменяться при переносах строк, так что в этих случаях индекс мало о чем говорит. </p> <p>Свойство только для чтения Count указывает число строк в тексте. </p> <p>Для очистки текста в окне надо выполнить процедуру Clear. Этот метод относится к самому окну, а не к его свойству Lines. </p> <p>Для занесения новой строки в конец текста окна редактирования можно воспользоваться методами Add или Append свойства Lines. Для загрузки текста из файла применяется метод LoadFromFile. Сохранение текста в фале осуществляется методом SaveToFile. </p> <p>Пусть, например, в вашем приложении имеется окно редактирования Edit1, в котором пользователь вводит имя сотрудника, и есть кнопка, при щелчке на которой в окно Memo1 должна занестись шапка характеристики этого сотрудника, после чего пользователь может заполнить текст характеристики. </p> <p>Обработчик щелчка на кнопке может иметь вид: <br />Memo1.Clear;<br />Memo1.Lines.Add ('Х А Р А К Т Е Р И С Т И К А');<br />Memo1.Lines.Add('Сотрудник '+Edit1.Text) ;.<br />Memo1.SetFocus;</p> <p>Загрузка в окно Memo1 текста из файла (например, хранящейся в файле характеристики сотрудника) может осуществляться командой <br />Memo1.Lines.LoadFromFile ('text.txt');</p> <p>Сохранение текста в файле может осуществляться командой <br />Memo1.Lines.SaveToFile('text.txt');</p> <p>Свойство SelStart компонентов Memo и RichEdit указывает позицию курсора в тексте или начало выделенного пользователем текста. Свойство CaretPos указывает на запись, поле X которой содержит индекс символа в строке, перед которым расположен курсор, а поле Y — индекс строки, в которой находится курсор (встроенная справка Delphi утверждает другое — что свойство CaretPos содержит координаты курсора в пикселях; но, к счастью, это не так). Таким образом, учитывая, что индексы начинаются с 0, значения Memo1.CaretPos.Y+1 и Memо1.CaretPos.X+1 определяют соответственно номер строки и символа в ней, перед которым расположен курсор. В редакторе на рис. 3.8 именно эти значения (только не для Memo, а для RichEdit) использованы, чтобы отображать в строке состояния (см. раздел 7.6) позицию курсора.</p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 22:48:00 +0400 https://pp09.rolka.me/viewtopic.php?pid=100#p100 https://pp09.rolka.me/viewtopic.php?pid=99#p99 <p>В этой статье я постараюсь рассмотреть три процедуры для воспроизведения звука. Использование этих процедур вместо компонента TMediaPlayer существенно сэкономит ресурсы системы. С помощью этих процедур можно решать довольно широкий круг задач. Итак, начнем рассмотрение этих процедур с самой простой.</p> <p>Процедура Beep</p> <p>Эта процедура не имеет никаких параметров. Ее объявление выглядит довольно-таки просто:</p> <p>Beep;</p> <p>Суть этой процедуры - воспроизводить стандартный звуковой сигнал, установленный в Windows, если имеется звуковая карта и настроен стандартный звук, если же нет, то звук поступит через динамик компьютера в виде короткого щелчка. Ее можно использовать, например, при вводе пользователем не тех данных, или при закрытии формы:<br />procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br />begin<br />Beep;<br />end; </p> <p>С первой процедурой мы разобрались. Теперь посмотрим вторую... </p> <p>Функция MessageBeep </p> <p>Эта функция является более серьезной, она определена как:</p> <p>function MessageBeep(uType:word) : boolean; </p> <p>Параметр uType указывает воспроизводимый звук, как идентификатор раздела [sounds] реестра, в котором записаны звуки, сопровождающие те, или иные события Windows. Параметр uType может принимать следующие значения:</p> <p>MB_ICONASTERISK - проигрывает звук &quot;Звездочка&quot; (SystemAsterisk) </p> <p>MB_ICONEXCLAMATION - проигрывает звук &quot;Восклицание&quot; (SystemExclamation) </p> <p>MB_ICONHAND - проигрывает звук &quot;Критическая ошибка&quot; (SystemHand) </p> <p>MB_ICONQUESTION - проигрывает звук &quot;Вопрос&quot; (SystemQuestion) </p> <p>MB_OK - проигрывает звук &quot;Стандартный звук&quot; (SystemDefault) </p> <p>Надо отметить, что эта функция воспроизводит звук асинхронно, т.е. во время воспроизведения звука Ваше приложение продолжает работать. После запроса звука функция MessageBeep передает управление вызвавшей ее функции. </p> <p>Если невозможно воспроизвести указанный звук, то функция попытается воспроизвести стандартный системный звук, установленный по умолчанию, если и это невозможно, то будет воспроизведен стандартный сигнал через динамик.</p> <p>Ну и наконец, осталась самая интересная и полезная функция воспроизведения звука, о ней мы сейчас и поговорим.</p> <p>Функция PlaySound</p> <p>Эта функция может воспроизводить любые волновые звуки, а не только звуки событий Windows. Функция API Windows, параметры которой описаны в модуле mmsystem. Поэтому для использования этой функции в Ваших программах, необходимо включить в раздел uses модуль mmsystem. Функция PlaySound определена так:</p> <p>function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:Cardinal):boolean; </p> <p>Параметр pszSound является нуль терминированной строкой (последний символ строки имеет нулевой код), он определяет воспроизводимый звук. Параметр hmod используется в случае, когда звук берется из ресурса, поскольку мы этого делать не будем, то можно этот параметр задавать равным 0 или nil.</p> <p>Последний параметр fdwSound является множеством, которое определяет как будет воспроизводиться звук (режим воспроизведения). Приведу наиболее важные значения этого множества для воспроизведения произвольных волновых флагов.</p> <p>SND_ASYNC - Звук воспроизводится асинхронно и функция возвращается сразу же после начала воспроизведения. Чтобы прекратить воспроизведение нужно вызвать функцию PlaySound с параметром pszSound, равным 0. </p> <p>SND_LOOP - воспроизведение звука постоянно повторяется, одновременно надо установить флаг SND_ASYNC. </p> <p>SND_NOSTOP - Если заданный звук не может быть воспроизведен из-за занятости ресурсов, то функция немедленно вернет false (и звук не будет воспроизведен). Если же данный флаг не указан, то функция попытается остановить воспроизведение другого звука, чтобы освободить ресурсы. </p> <p>SND_PURGE - Останавливает воспроизведение любых звуков, вызванных в данной задаче. </p> <p>SND_SYNC - Синхронное воспроизведение звука события. Функция PlaySound возвращается только после окончания воспроизведения. </p> <p>Важно: флаги можно комбинировать операцией or. </p> <p>Указанный параметром pszSound звук, должен подходить для установленного драйвера устройства воспроизведения волновых файлов, а также должен помещаться в доступную память.</p> <p>Прервать воспроизведение звука можно выполнив оператор</p> <p>PlaySound(0, 0, SND_PURGE); </p> <p>или путем задания нового звука.</p> <p>Например, чтобы многократно и асинхронно проиграть какой-нибудь звук, выбранный с помощью OpenDialog, можно написать такой код:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var PCh: PChar;<br />begin<br />if OpenDialog1.Execute then<br />begin<br />StrPCopy(PCh,OpenDialog1.FileName);<br />PlaySound(Pch,0,SND_ASYNC or SND_LOOP);<br />end;<br />end; </p> <p>Ну вот, надеюсь все ясно! В следующий раз будет что-нибудь посложнее и поинтереснее!</p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 22:45:41 +0400 https://pp09.rolka.me/viewtopic.php?pid=99#p99 https://pp09.rolka.me/viewtopic.php?pid=98#p98 <p>Компонент ColorDialog вызывает диалоговое окно выбора цвета, представленное на рис. 8.9. В нем пользователь может выбрать цвет из базовой палитры или, нажав кнопку &quot;Определить цвет&quot;, раскрыть дополнительную панель (на рис. 8.9 она раскрыта), позволяющую синтезировать цвет, отличный от базовых. Синтезированный цвет можно добавить кнопкой &quot;Добавить в набор&quot; в палитру дополнительных цветов на левой панели и использовать его в дальнейшем.</p> <p>Основное свойство компонента ColorDialog — Color. Это свойство соответствует тому цвету, который выбрал в диалоге пользователь. Если при вызове диалога желательно установить некоторое начальное приближение цвета, это можно сделать, установив Color предварительно во время проектирования или программно. Свойство CustomColors типа TStrings позволяет задать заказные цвета дополнительной палитры. Каждый цвет определяется строкой вида</p> <p>=;</p> <p>Имена цветов задаются от ColorA (первый цвет) до ColorP (шестнадцатый, последний). Например, строка</p> <p>ColorA=808022</p> <p>задает первый заказной цвет. При задании цвета 2 младших разряда описывают интенсивность красного цвета, следующие 2 — зеленого, старшие — синего.</p> <p>Свойство Options содержит множество следующих опций:<br />cdFullOpen Отображать сразу при открытии диалогового окна панель определения заказных цветов<br />cdPreventFullOpen Запретить появление в диалоговом окне кнопки &quot;Определить цвет&quot;, так что пользователь не сможет определять новые цвета<br />cdShowHelp Добавить в диалоговое окно кнопку &quot;Справка&quot;<br />cdSolidColor Указать Windows использовать сплошной цвет, ближайший к выбранному (это обедняет палитру)<br />cdAnyColor Разрешать пользователю выбирать любые не сплошные цвета (такие цвета могут быть не ровными)</p> <p>По умолчанию все опции выключены.</p> <p>Приведем пример применения компонента ColorDialog. Если вы хотите, чтобы пользователь мог задать цвет какого-то объекта, например, цвет фона компонента Memo1, то это можно реализовать оператором</p> <p>if ColorDialog1.Execute then<br /> Memo1.Color := ColorDialog1.Color;</p> <p><a href="http://delphi-guru.org.ua/components/58-dialog-vybora-cveta-komponent-colordialog.html" rel="nofollow" target="_blank">http://delphi-guru.org.ua/components/58 &#8230; ialog.html</a></p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 22:41:36 +0400 https://pp09.rolka.me/viewtopic.php?pid=98#p98 https://pp09.rolka.me/viewtopic.php?pid=97#p97 <p>Компонент FontDialog вызывает диалоговое окно выбора атрибутов шрифта, представленное на рис. 8.8. В нем пользователь может выбрать имя шрифта, его стиль (начертание), размер и другие атрибуты. <br />Рис. 8.8<br /> Диалоговое окно выбора атрибутов шрифта </p> <p>Основное свойство компонента — Font типа TFont (см. раздел 3.1), в котором вы можете задать при желании начальные установки атрибутов шрифта и в котором вы можете прочесть значения атрибутов, выбранные пользователем в процессе диалога. </p> <p>Свойства MaxFontSize и MinFontSize устанавливают ограничения на максимальный и минимальный размеры шрифта. Если значения этих свойств равны 0 (по умолчанию), то никакие ограничения на размер не накладываются. Если же значения свойств заданы (обычно это целесообразно делать исходя из размеров компонента приложения, для которого выбирается шрифт), то в списке &quot;Размер&quot; диалогового окна (см. рис. 8.8) появляются только размеры, укладывающиеся в заданный диапазон. При попытке пользователя задать недопустимый размер ему будет выдано предупреждение вида «Размер должен лежать в интервале ...» и выбор пользователя отменится. Свойства MaxFontSize и MinFontSize действуют только при включенной опции fdLimitSize (см. ниже). </p> <p>Свойство Device определяет, из какого списка возможных шрифтов будет предложен выбор в диалоговом окне: fdScreen — из списка экрана (по умолчанию), fdPrinter — из списка принтера, fdBoth — из обоих. </p> <p>Свойство Options содержит множество опций: fdAnsiOnly Отображать только множество шрифтов символов Windows, не отображать шрифтов со специальными символами <br />fdApplyButton Отображать в диалоге кнопку &quot;Применить&quot; независимо от того, предусмотрен ли обработчик события OnApply <br />fdEffects Отображать в диалоге индикаторы специальных эффектов (подчеркивание и др.) и список &quot;Цвет&quot; <br />fdFixedPitchOnly Отображать только шрифты с постоянной шириной символов <br />fdForceFontExist Позволять пользователю выбирать шрифты только из списка, запрещать ему вводить другие имена <br />fdLimitSize Разрешить использовать свойства MaxFontSize и MinFontSize, ограничивающие размеры шрифта <br />fdNoFaceSel Открывать диалоговое окно без предварительно установленного имени шрифта <br />fdNoOEMFonts Удалять из списка шрифтов шрифты OEM <br />fdScalableOnly Отображать только масштабируемые шрифты, удалять из списка не масштабируемые (шрифты bitmap) <br />fdNoSimulations Отображать только шрифты и их начертания, напрямую поддерживаемые файлами, не отображая шрифты, в которых жирный стиль и курсив синтезируется <br />fdNoSizeSel Открывать диалоговое окно без предварительно установленного размера шрифта <br />fdNoStyleSel Открывать диалоговое окно без предварительно установленного начертания шрифта <br />fdNoVectorFonts Удалять из списка векторные шрифты (типа Roman или Script для Windows 1.0) <br />fdShowHelp Отображать в диалоговом окне кнопку &quot;Справка&quot; <br />fdTrueTypeOnly Предлагать в списке только шрифты TrueType <br />fdWysiwyg Предлагать в списке только шрифты, доступные и для экрана, и для принтера, удаляя из него аппаратно зависимые шрифты </p> <p>По умолчанию все эти опции, кроме fdEffects, отключены. </p> <p>Если установить опцию fdApplyButton, то при нажатии пользователем кнопки &quot;Применить&quot; возникает событие OnApply, в обработчике которого вы можете написать код, который применит выбранные пользователем атрибуты, не закрывая диалогового окна. </p> <p>Приведем примеры применения компонента FontDialog. Пусть ваше приложение включает окно редактирования Memo1, шрифт в котором пользователь может выбирать командой меню &quot;Шрифт&quot;. Вы ввели в приложение компонент FontDialog, имя которого по умолчанию FontDialog1. Тогда обработчик команды &quot;Шрифт&quot; может иметь вид: <br />if FontDialog1.Execute then<br />&#160; Memo1.Font.Assign(FontDialog1.Font);</p> <p>Приведенный оператор вызывает диалог выбора атрибутов шрифта и, если пользователь произвел выбор, то значения всех выбранных атрибутов, содержащиеся в свойстве FontDialog1.Font, присваиваются атрибутам окна редактирования, содержащимся в свойстве Memo1.Font. Шрифт в окне редактирования немедленно изменится. </p> <p>Если вы установите в компоненте FontDialog1 опцию fdApplyButton, то можете написать обработчик события OnApply: <br />Memo1.Font.Assign(FontDialog1.Font);</p> <p>Тогда пользователь может наблюдать изменения в окне Memo1, нажимая в диалоговом окне кнопку &quot;Применить&quot; и не прерывая диалога. Это очень удобно, так как позволяет пользователю правильно подобрать атрибуты шрифта. </p> <p>Если в качестве окна редактирования в вашем приложении вы используете RichEdit, то можете предоставить пользователю выбирать атрибуты шрифта для выделенного фрагмента текста или для вновь вводимого текста. Тогда выполнение команды меню &quot;Шрифт&quot; может осуществляться операторами: <br />if FontDialog1.Execute then<br />&#160; RichEdit1.SelAttributes.Assign(FontDialog1.Font);</p> <p>Вы можете разрешить пользователю изменять шрифт не только отдельных компонентов, но и всех компонентов и надписей на форме. Это осуществляется оператором: <br />if FontDialog1.Execute then<br />&#160; Font.Assign(FontDialog1.Font);</p> <p>В этом операторе свойство Font без ссылки на компонент подразумевает шрифт формы.</p> <p><a href="http://www.beluch.ru/progr/100comp/8_4.htm" rel="nofollow" target="_blank">http://www.beluch.ru/progr/100comp/8_4.htm</a></p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 22:39:50 +0400 https://pp09.rolka.me/viewtopic.php?pid=97#p97 https://pp09.rolka.me/viewtopic.php?pid=96#p96 <p>Компоненты OpenDialog — диалог «Открыть файл» и SaveDialog — диалог «Сохранить файл как...», пожалуй, используются чаще всего, в большинстве приложений. Примеры открываемых ими диалоговых окон приведены на рис. 8.1 и 8.2. <br />Рис. 8.1<br /> Диалоговое окно открытия файла </p> <p>Рис. 8.2<br /> Диалоговое окно сохранения файла </p> <p>Все свойства этих компонентов одинаковы, только их смысл несколько различен для открытия и закрытия файлов. Основное свойство, в котором возвращается в виде строки выбранный пользователем файл, — FileName. Значение этого свойства можно задать и перед обращением к диалогу. Тогда оно появится в диалоге как значение по умолчанию в окне &quot;Имя файла&quot; (см. рис. 8.1, 8.2). </p> <p>Типы искомых файлов, появляющиеся в диалоге в выпадающем списке &quot;Тип файла&quot; (рис. 8.1, 8.2), задаются свойством Filter. В процессе проектирования это свойство проще всего задать с помощью редактора фильтров, который вызывается нажатием кнопки с многоточием около имени этого свойства в Инспекторе Объектов. При этом открывается окно редактора, вид которого представлен на рис. 8.3. В его левой панели &quot;Filter Name&quot; вы записываете тот текст, который увидит пользователь в выпадающем списке &quot;Тип файла&quot; диалога. А в правой панели &quot;Filter&quot; записываются разделенные точками с запятой шаблоны фильтра. В примере рис. 8.3 задано два фильтра: текстовых файлов с расширениями .txt и .doc и любых файлов с шаблоном *.*. <br />Рис. 8.3<br /> Окно редактора фильтров </p> <p>После выхода из окна редактирования фильтров заданные вами шаблоны появятся в свойстве Filter в виде строки вида: <br />текстовые (*.txt, *.doc)|*.txt; *.doc|все&#160; файлы|*.*</p> <p>В этой строке тексты и шаблоны разделяются вертикальными линиями. В аналогичном виде, если требуется, можно задавать свойство Filter программно во время выполнения приложения. </p> <p>Свойство FilterIndex определяет номер фильтра, который будет по умолчанию показан пользователю в момент открытия диалога. Например, значение FilterIndex = 1 задает по умолчанию первый фильтр. </p> <p>Свойство InitialDir определяет начальный каталог, который будет открыт в момент начала работы пользователя с диалогом. Если значение этого свойства не задано, то открывается текущий каталог или тот, который был открыт при последнем обращении пользователя к соответствующему диалогу в процессе выполнения данного приложения. </p> <p>Свойство DefaultExt определяет значение расширения файла по умолчанию. Если значение этого свойства не задано, пользователь должен указать в диалоге полное имя файла с расширением. Если же задать значение DefaultExt, то пользователь может писать в диалоге имя без расширения. В этом случае будет принято заданное расширение. </p> <p>Свойство Title позволяет вам задать заголовок диалогового окна. Если это свойство не задано, окно открывается с заголовком, определенным в системе (например, «Открытие файла» в окне на рис. 8.1). Но вы можете задать и свой заголовок, подсказывающий пользователю ожидаемые действия. Например, «Укажите имя открываемого файла». </p> <p>Свойство Options определяет условия выбора файла. Множество опций, которые вы можете установить программно или во время проектирования, включает: ofAllowMultiSelect Позволяет пользователю выбирать несколько файлов <br />ofCreatePrompt В случае, если пользователь написал имя несуществующего файла, появляется замечание и запрос, надо ли создать файл с заданным именем <br />ofEnableIncludeNotify Разрешает посылать в диалог сообщения <br />ofEnableSizing Разрешает пользователю изменять размер диалогового окна <br />ofExtensionDifferent Этот флаг, который можно прочитать после выполнения диалога, показывает, что расширение файла, выбранного пользователем, отличается от DefaultExt <br />ofFileMustExist В случае, если пользователь написал имя несуществующего файла, появляется сообщение об ошибке <br />ofHideReadOnly Удаляет из диалога индикатор &quot;Открыть только для чтения&quot; <br />ofNoChangeDir После щелчка пользователя на кнопке &quot;OK&quot; восстанавливает текущий каталог, независимо от того, какой каталог был открыт при поиске файла <br />ofNoDereferenceLinks Запрещает переназначать клавиши быстрого доступа в диалоговом окне <br />ofNoLongNames Отображаются только не более 8 символов имени и трех символов расширения <br />ofNoNetworkButton Убирает из диалогового окна кнопку поиска в сети. Действует только если флаг ofOldStyleDialog включен <br />ofNoReadOnlyReturn Если пользователь выбрал файл только для чтения, то генерируется сообщение об ошибке <br />ofNoTestFileCreate Запрещает выбор в сети защищенных файлов и не доступных дисков при сохранении файла <br />ofNoValidate Не позволяет писать в именах файлов неразрешенные символы, но не мешает выбирать файлы с неразрешенными символами <br />ofOldStyleDialog Создает диалог выбора файла в старом стиле (см. рис. 8.4) <br />ofOverwritePrompt В случае, если при сохранении файла пользователь написал имя существующего файла, появляется замечание, что файл с таким именем существует, и запрашивается желание пользователя переписать существующий файл <br />ofPathMustExist Генерирует сообщение об ошибке, если пользователь указал в имени файла несуществующий каталог <br />ofReadOnly По умолчанию устанавливает индикатор &quot;Открыть только для чтения&quot; при открытии диалога <br />ofShareAware Игнорирует ошибки нарушения условий коллективного доступа и разрешает, несмотря на них, производить выбор файла <br />ofShowHelp Отображает в диалоговом окне кнопку &quot;Справка&quot; </p> <p>По умолчанию все перечисленные опции, кроме ofHideReadOnly, выключены. Но, как видно из их описания, многие из них полезно включить перед вызовом диалогов. </p> <p>Если вы разрешаете с помощью опции ofAllowMultiSelect множественный выбор файлов, то список выбранных файлов можно прочитать в свойстве Files типа TStrings. </p> <p>В приведенной таблице даны опции, используемые в 32-разрядных версиях Delphi. В Delphi 1 диалоговое окно имеет вид, представленный на рис. 8.4. Аналогичный вид имеет диалог и в 32-разрядных версиях Delphi при включении опции ofOldStyleDialog. В примере рис. 8.4 диалог открыт с заданным значением свойства Title и заданный текст отображается в заголовке окна. Кроме того, в этом примере выключена опция ofHideReadOnly (в Delphi 1 она выключена по умолчанию), что привело к появлению индикатора «&quot;Только чтение&quot;». <br />Рис. 8.4<br /> Диалог в старом стиле при включенной опции ofOldStyleDialog и выключенной опции ofHideReadOnly </p> <p>В компонентах диалогов открытия и сохранения файлов предусмотрена возможность обработки ряда событий. Такая обработка может потребоваться, если рассмотренных опций, несмотря на их количество, не хватает, чтобы установить все диктуемые конкретным приложением ограничения на выбор файлов. Событие OnCanClose возникает при нормальном закрытии пользователем диалогового окна после выбора файла. При отказе пользователя от диалога — нажатии кнопки &quot;Отмена&quot;, клавиши Esc и т.д. событие OnCanClose не наступает. В обработке события OnCanClose вы можете произвести дополнительные проверки выбранного пользователем файла и, если по условиям вашей задачи этот выбор недопустим, вы можете известить об этом пользователя и задать значение false передаваемому в обработчик параметру CanClose. Это не позволит пользователю закрыть диалоговое окно. </p> <p>Можно также написать обработчики событий OnFolderChange — изменение каталога, OnSelectionChange — изменение имени файла, OnTypeChange — изменение типа файла. В этих обработчиках вы можете предусмотреть какие-то сообщения пользователю. </p> <p>Теперь приведем примеры использования диалогов OpenDialog и SaveDialog. Пусть ваше приложение включает окно редактирования Memo1, в которое по команде меню &quot;Открыть&quot; вы хотите загружать текстовый файл, а после каких-то изменений, сделанных пользователем, — сохранять по команде &quot;Сохранить&quot; текст в том же файле, а по команде &quot;Сохранить как...&quot; — в файле с другим именем. </p> <p>Введите на форму компоненты — диалоги OpenDialog и SaveDialog. Предположим, что вы оставили их имена по умолчанию — OpenDialog1 и SaveDialog1. Поскольку после чтения файла вам надо запомнить его имя, чтобы знать под каким именем потом его сохранять, вы можете определить для этого имени переменную, назвав ее, например, FName: <br />var FName: string;</p> <p>Тогда обработка команды &quot;Открыть&quot; может сводиться к следующему оператору: <br />if OpenDialog1.Execute then<br /> begin<br />&#160; FName := OpenDialog1.FileName;<br />&#160; Memo1.Lines.LoadFromFile(FName);<br /> end;</p> <p>Этот оператор вызывает диалог, проверяет, выбрал ли пользователь файл (если выбрал, то функция Execute возвращает true), после чего имя выбранного файла (OpenDialog1.FileName) сохраняется в переменной FName и файл загружается в текст Memo1 методом LoadFromFile. </p> <p>Обработка команды &quot;Сохранить&quot; выполняется оператором <br />Memo1.Lines.SaveToFile(FName);</p> <p>В данном случае нет необходимости обращаться к какому-то диалогу, поскольку имя файла известно: оно хранится в переменной FName. </p> <p>Обработка команды &quot;Сохранить как...&quot; выполняется операторами: <br />SaveDialog1.FileName := FName;<br />if SaveDialog1.Execute then<br /> begin<br />&#160; FName := SaveDialog1.FileName;<br />&#160; Memo1.Lines.SaveToFile(FName);<br /> end;</p> <p>Первый из этих операторов присваивает свойству FileName компонента SaveDialog1 запомненное имя файла. Это имя по умолчанию будет предложено пользователю при открытии диалога &quot;Сохранить как...&quot;. Следующий оператор открывает диалог и, если пользователь выбрал в нем файл, запоминает новое имя файла и сохраняет в файле с этим именем текст компонента Memo1. </p> <p>Мы рассмотрели диалоги открытия и сохранения файлов произвольного типа. Начиная с Delphi 3 в библиотеке имеются специализированные диалоги открытия и закрытия графических файлов: OpenPictureDialog и SavePictureDialog. Диалоговые окна, открываемые этими файлами, приведены на рис. 8.5 и 8.6. От окон, открываемых компонентами OpenDialog и SaveDialog (рис. 8.1, 8.2), они отличаются удобной возможностью просматривать изображения в процессе выбора файла. <br />Рис. 8.5<br /> Диалоговое окно открытия файла изображения <br /></p> <p>Рис. 8.6<br /> Диалоговое окно сохранения файла изображения <br /></p> <p>Свойства компонентов OpenPictureDialog и SavePictureDialog ничем не отличаются от свойств компонентов OpenDialog и SaveDialog. Единственное отличие — заданное значение по умолчанию свойства Filter в OpenPictureDialog и SavePictureDialog. В этих компонентах заданы следующие фильтры: All (*.jpg; *.jpeg; *.bmp; *.ico; *.emf; *.wmf) *.jpg; *.jpeg; *.bmp; *.ico; *.emf; *.wmf <br />JPEG Image File (*.jpg) *.jpg <br />JPEG Image File (*.jpeg) *.jpeg <br />Bitmaps (*.bmp) *.bmp <br />Icons (*.ico) *.ico <br />Enhanced Metafiles (*.emf) *.emf <br />Metafiles (*.wmf) *.wmf</p> <p><a href="http://www.beluch.ru/progr/100comp/8_2.htm" rel="nofollow" target="_blank">http://www.beluch.ru/progr/100comp/8_2.htm</a></p> mybb@mybb.ru (DjeromG) Thu, 02 Jun 2011 22:38:25 +0400 https://pp09.rolka.me/viewtopic.php?pid=96#p96