Шестиугольное окно

[BLACK_RAIN]

Здравствуйте.
Пишу на Delphi 7 WinAPI.
Имею окно класса static со стилем WS_VISIBLE or WS_CHILD or SS_BITMAP or SS_NOTIFY.
Нужно сделать это окно шестиугольным:

Читал, что для этого нужно создать несколько регионов и объединить их функцией CombineRegion(). Но не могу понять, как работает последняя и как вообще создать регионы, чтобы получить шестиугольник (или более сложную форму).

[BLACK_RAIN]

вроде дошло.
а как правильно сделать, чтобы вернуть окно в исходное состояние?

  DeleteObject(rgn);
  SetWindowRgn(Handle,rgn,True);

Или не так?

[waleri]

SetWindowRgn(Handle, 0, True);
DeleteObject делать не надо.

[Serge_Bliznykov]

посмотрите пример, который рисует окошко в виде шестиконечной звезды.
(код не мой, я только выкладываю )

можно перетаскивать, изменять размер, прав.кн.мышки на регионе - About
двойной клик по региону звезды - закрытие.

p.s. извините, если мой пост "мимо кассы" и бесполезен для Вас...

[BLACK_RAIN]

Сообщение от waleri

DeleteObject делать не надо.

А если регион больше не нужен, то надо?

Serge_Bliznykov
Всё-равно, будет интересно посмотреть.

[waleri]

Сообщение от BLACK_RAIN

А если регион больше не нужен, то надо?

Если регион был передан в SetWindowRgn то нет - система сама удалит.

[BLACK_RAIN]

Сообщение от waleri

Если регион был передан в SetWindowRgn то нет - система сама удалит.

Мне нужно изменять регион по таймеру в зависимости от позиции курсора мыши. То есть, после SetWindowRgn не надо удалять регион, а просто заново создавать новый CreateRectRgnIndirect?

    rgn := CreateRectRgnIndirect();              
    rgn2 := CreateRectRgnIndirect();                
    CombineRgn(rgn,rgn,rgn2,RGN_DIFF);
    DeleteObject(rgn2);
    SetWindowRgn(handle,Rgn,False);
// rgn не удаляем?
    rgn := CreateRectRgnIndirect();

[waleri]

Если честно - не пробовал а из документации не совсем понятно.
Насколько я понимаю, один раз отдав регион в окно уже не можем с ним работать.
Лучше всего протестировать - после задавания второго региона попробовать удалить первый и посмотреть вернет ли DeleteObject ошибку или нет...