Нестандартное изменение краев формы

[Alfa]

Господа. Мне для моей программы требуется другой интерейс. Там чтобы можно было из квадратной формы сделать ее круглой и так далее?

[Messir]

Для этого юзай регионы. Например, чтобы форма была овальной (и как частный случай круглой) юзай CreateEllipticRgn, чтобы были скругленные края - CreateRoundRectRgn, а чтобы форма была прозивольной формы, т.е. многоугольник - CreatePolygonRgn или CreatePolyPolygonRgn. Также можно комбинировать регионы с различными эффектами.
А после того, как создал регион, вызывай SetWindowRgn!!! И дело в шляпе!

[mark+]

Сходи на www.vbscanner.narod.ru и всё!

[_NeoN_]

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

Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

Dim stPts(9) As POINTAPI
Dim StarForm As Long
Dim i As Long

stPts(0).x = 0: stPts(0).y = 23
stPts(1).x = 19: stPts(1).y = 21
stPts(2).x = 27: stPts(2).y = 0
stPts(3).x = 31: stPts(3).y = 21
stPts(4).x = 59: stPts(4).y = 23
stPts(5).x = 33: stPts(5).y = 29
stPts(6).x = 42: stPts(6).y = 50
stPts(7).x = 27: stPts(7).y = 35
stPts(8).x = 9: stPts(8).y = 49
stPts(9).x = 16: stPts(9).y = 32
StarForm = CreatePolygonRgn(stPts(0), 10, 1)
setWindowRgn [color=red]hwnd_окна[/color], StarForm, True


будет красивая звездочка.. =)

[A.A.Z.]

Вот. Программа НЕ моя.