Microsofot common dialog control

[DVV]

как при помощи контроля Microsoft common dialog control получить цвет шрифта (font).

[SHURUP]

Так работает:

Код: Выделить всё

CommonDialog1.flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.ShowFont
Me.BackColor = CommonDialog1.Color


[A.A.Z.]

При чем тут

Код: Выделить всё

Me.BackColor = CommonDialog1.Color

???

[SHURUP]

Сори, если неправ !
Я думал, что неважно, куда этот цвет передастся. Просто как я понял, у DVV возник вопрос когда он не увидел такого свойства как CommonDialog1.fontcolor. И я показал что цвет выбранного шрифта передается в CommonDialog1.Color. Я тоже удивился, но это так.
А писать "добавляешь на форму label1 и пишешь код: label1.foreColor = CommonDialog1.Color" я посчитал лишним!

[A.A.Z.]

Тогда при чем тут ShowFont? Тогда уж ShowColor! Ведь выбирается-то цвет шрифта, а не сам шрифт!

[tyomitch]

Тогда при чем тут ShowFont? Тогда уж ShowColor! Ведь выбирается-то цвет шрифта, а не сам шрифт!

Из оригинального поста следует как раз наоборот...

[A.A.Z.]

как при помощи контроля Microsoft common dialog control получить цвет шрифта (font).

Если ты про мой 1 пост, то я просто не дочитал вопрос до конца, подумав, что афтар хочет шрифт получить. А потом прочитал еще раз, и понял, что он хочет всего лишь цвет, а для этого надо ShowColor.

[tyomitch]

я просто не дочитал вопрос до конца, подумав, что афтар хочет шрифт получить. А потом прочитал еще раз, и понял, что он хочет всего лишь цвет, а для этого надо ShowColor.

В диалоге выбора шрифта есть комбобокс "Цвет", во фрейме "Эффекты".
Имхо оригинальный пост - именно об этом цвете.


Вот, на всякий случай:

cdlCFEffects (&H100) specifies that the dialog box enables strikethrough, underline, and color effects.

[DVV]

Спасибо!

[A.A.Z.]

А-а-а... Да, точно, я не обратил внимание на флаги