| Вопрос: Drop Shadow | Добавлено: 30.01.06 08:43 |
Автор вопроса:  chaos
|
|
Brosaet ten na object po hwnd //------------------------------------------------------- Public Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Const CS_DROPSHADOW = &H20000 Public Const GCL_STYLE = (-16) Dim style As Long Public Sub DropShadow(hwnd As Long) style = GetClassLong(hwnd, GCL_STYLE) SetClassLong hwnd, -24, style And CS_DROPSHADOW End Sub //------------------------------------------------------- Kto nibud znaet kak snjat ten |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #1 | Добавлено: 30.01.06 10:25 |
|
Or/Xor
Нах And? |
||
Страница: 1 |