как создать круглую кнопку, созданную на WinAPI?

[BLACK_RAIN]

Здравствуйте. Хочу сделать круглую кнопку на WinApi.
Читал, что это можно сделать, используя регионы.
Мой код:

var
form1, but : hwnd;
rgn : hrgn;
begin
// создание кнопки
but := CreateWindow(pchar('button'), pchar('button'),
WS_CHILD or WS_VISIBLE,
4,4,100,100,form1,0,hInstance, nil);
// создание региона и применение его к кнопке
  rgn := createellipticrgn(10,10,90,90);
  setwindowrgn(but,rgn,true);
end;

регион создается и успешно применяется к кнопке.
в результате, кнопку можно нажать только в указанном регионе.
однако, углы у кнопки не обрезаются.
кнопка выглядит не круглой, а квадратной.
что еще нужно сделать, чтобы получить круглую кнопку на WinAPI?
ели это имеет значение, то текст на кнопке не нужен.

P.s. Большая просьба: в гуууугл и поиск по форуму не посылать! Я там уже был и не нашел подходящие ответы.

[Аватар]

А я нашел за 20 сек http://www.bdrc.ru/load/2-1-0-60

[BLACK_RAIN]

Сообщение от Аватар

А я нашел за 20 сек http://www.bdrc.ru/load/2-1-0-60

я тоже это быстро нашел. Код, который я привел в предыдущем посте, я взял именно из этого исходника, ссылку на который вы дали.
Я только заменил форму и кнопку на WinAPI.

// создание региона и применение его к кнопке
  rgn := createellipticrgn(10,10,90,90);
  setwindowrgn(but,rgn,true);

если применить это к кнопкам, созданным на VCL, то они становятся круглыми, как и положено (без углов).
если делать кнопки на WinAPI, то происходит так, как описано в первом посте.
может, при создании моей кнопки, ей надо какие-то дополнительные стили присвоить?

[Аватар]

Стиль WS_CLIPSIBLINGS как минимум нужно добавить, кнопка круглая будет, но заморочки с нормальной прорисовкой кнопки останутся

[BLACK_RAIN]

Сообщение от Аватар

Стиль WS_CLIPSIBLINGS как минимум нужно добавить, кнопка круглая будет, но заморочки с нормальной прорисовкой кнопки останутся

спасибо. все получилось.
просто у меня окно и кнопка были одинакового цвета и кнопку не было видно.
тогда еще вопрос:
как перекрасить фон кнопки?
читал, что это делается в сообщении WM_DRAWITEM (кнопке надо добавить стиль BS_OWNERDRAW) с использованием кистей HBRUSH.
но, как именно это делается, я недогоняю.
Сейчас проверил. Если я применяю к кнопке стиль BS_OWNERDRAW, то в сообщении WM_DRAWITEM WPARAM всегда равен 0, а должен быть равен идентификатору кнопки (так написано в MSDN).
И не важно, присутствует ли стиль WS_CLIPSIBLINGS.
ListBox'ы и Label'ы прекрасно перекрашиваются, а вот с кнопками фигня какая-то
подскажите?