Dialog
Barvy
Tento dialog ze využít tehdy, pokud chcete dát uživateli Vaší aplikace
možnost vybrat barvu ze systémových barev. Nejprve k některým nastavením:
Parametr |
Změny... |
DialogTitle |
Titulek
dialogového okna |
Color |
Zvolená
barva |
Flags |
Uživatelská
nastavení, jako například zakázání tlačítko pro tvorbu uživatelských
barev |
CancelError |
Generování
chyby při stisku tlačítka Storno |
Následující
kód zobrazí dialog pro výběr barvy a pokud nějakou uživatel vybere,
tak jí nastaví jako barvu pozadí formuláře:
CommonDialog1.DialogTitle
= "Zvolte barvu ..."
CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlCCFullOpen
On Error Resume Next
CommonDialog1.ShowColor
If Err Then
Msgbox "Výběr barvy stornován ..."
Exit Sub
End If
Form1.Backcolor = CommonDialog1.Color
|