100 компонентів Delphi - ColorDialog
КомпонентColorDialogвикликає діалогове вікно вибору кольору, представлене на рис. 8.9. У ньому користувач може вибрати колір з базової палітри або, натиснувши кнопку Визначити колір, розкрити додаткову панель (на рис. 8.9 вона розкрита), що дозволяє синтезувати колір, відмінний від базових. Синтезований колір можна додати кнопкою Додати в набір до палітри додаткових кольорів на лівій панелі і використовувати його надалі.
| Мал. 8.9Діалогове вікно вибору кольору |  |
Основна властивість компонентаColorDialog - Color. Ця властивість відповідає тому кольору, який вибрав у діалозі користувач. Якщо під час виклику діалогу бажано встановити деяке початкове наближення кольору, це можна зробити, встановившиColorпопередньо під час проектування або програмно. ВластивістьCustomColorsтипуTStringsдозволяє задати замовні кольори додаткової палітри. Кожен колір визначається рядком виду
Імена кольорів задаються відColorA(перший колір) доColorP(шістнадцятий, останній). Наприклад, рядок задає перший замовний колір. При заданні кольору 2 молодших розряду описують інтенсивність червоного кольору, наступні 2 – зеленого, старші – синього.
ВластивістьOptionsмістить безліч таких опцій:
| cdFullOpen | Відображати відразу при відкритті діалогового вікна панель визначення квітів на замовлення |
| cdPreventFullOpen | Заборонити появу в діалоговому вікні кнопки Визначити колір, тому користувач не зможе визначати нові кольори |
| cdShowHelp | Додати до діалогового вікна кнопку Довідка |
| cdSolidColor | Вказати Windows використовувати суцільний колір,найближчий до обраного (це збіднює палітру) |
| cdAnyColor | Дозволяти користувачеві вибирати будь-які не суцільні кольори (такі кольори можуть бути не рівними) |
За замовчуванням усі опції вимкнені.
Наведемо приклад застосування компонентаColorDialog. Якщо ви хочете, щоб користувач міг задати колір якогось об'єкта, наприклад, колір фону компонентаMemo1, то це можна реалізувати оператором