Компонент выбора цвета

[Control]

Подскажите, что за компонент выбора цвета, типа стандартного Виндусового - кнопка с цветным квадратиком и выбором палитры

[Ramzes]

CommonDialog

Microsoft Common Dialog Control

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

Commondialog1.showcolor


[A.A.Z.]

1) CommonDialog (Project->Components->Microsoft Common Dialog Control)

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

CommonDialog1.ShowColor

2) API

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

Private Type CHOOSECOLOR
lStructSize As Long
hwndOwner As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Private Declare Function CHOOSECOLOR& Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR)

Dim CustomColors() As Byte

Private Function ShowColor&()
Dim cc As CHOOSECOLOR, Custcolor&(16), lReturn&
cc.lStructSize = Len(cc)
cc.hwndOwner = Me.hwnd
cc.hInstance = App.hInstance
cc.lpCustColors = StrConv(CustomColors, vbUnicode)
cc.flags = 0
If CHOOSECOLOR(cc) <> 0 Then
ShowColor = cc.rgbResult
CustomColors = StrConv(cc.lpCustColors, vbFromUnicode)
Else
ShowColor = -1
End If
End Function

[A.A.Z.]

AGGRRHH!!!

[Control]

Спасибо бААльшое! То, что нужно!

[Александр80]

Поюзай Flags...

Private Sub Command1_Click()
CommonDialog1.Flags = cdlCCFullOpen Or cdlCCRGBInit
CommonDialog1.ShowColor
End Sub

Private Sub Command2_Click()
CommonDialog1.ShowColor
End Sub