Диалоги Font и Color

[Rostik Ultra]

Как сделать чтобы в диалоге выбора цвета ( при его вызове для изменяемого элемента ) обозначался точный цвет ( на палитре ) этого элемента

То же для Font Я идиот! Убейте меня, кто-нибудь!

[Johnny]

Для выбора цвета:
CommonDialog1.Flags = cdlCCRGBInit
CommonDialog1.Color = Picture1.BackColor
CD1.ShowColor

Возможные константы для флага:
cdlCCFullOpen -раскрыть панель выбора дополнительных цветов
cdlCCHelpButton - появляется кнопка справки
cdlCCPreventFullOpen - запрещает выбирать цвет из дополнительной палитры
cdlCCRGBInit - устанавливает начальный цвет диалога

Для шрифта:
CommonDialog1.FontBold = Text1.FontBold
CommonDialog1.FontItalic = Text1.FontItalic
CommonDialog1.FontName = Text1.Font.Name
CommonDialog1.FontSize = Text1.FontSize
CommonDialog1.FontStrikethru = Text1.FontStrikethru
CommonDialog1.FontUnderline = Text1.FontUnderline
CommonDialog1.ShowFont