Создание формы ввиде звезды!

[Cassius]

Теперь самый интересный из предусмотренных примеров – создание окна и кнопок в форме многоугольников, а конкретно: окна в форме звезды, кнопок в форме треугольника, пяти– и шестиугольника

Окно и кнопки в форме многоугольников

Создание регионов для областей отсечения формы, показанной на рис. 1.7, выглядит следующим образом (листинг 1.12).

 procedure TfrmPoly.FormCreate(Sender: TObject);
    var
    points: array [0..5] of TPoint;
    formRgn, but1Rgn, but2Rgn, but3Rgn: HRGN;
    begin
    //Создаем регионы для окна и кнопок
    //..шестиугольная кнопка
    Make6Angle(Button1.Width, Button1.Height, points);
    but1Rgn:= CreatePolygonRgn(points, 6, WINDING);
    SetWindowRgn(Button1.Handle, but1Rgn, False);
    //..треугольная кнопка
    Make3Angle(Button2.Width, Button2.Height, points);
    but2Rgn:= CreatePolygonRgn(points, 3, WINDING);
    SetWindowRgn(Button2.Handle, but2Rgn, False);
    //..пятиугольная кнопка
    Make5Angle(Button3.Width, Button3.Height, points);
    but3Rgn:= CreatePolygonRgn(points, 5, WINDING);
    SetWindowRgn(Button3.Handle, but3Rgn, False);
    //..форма в виде звезды
    MakeStar(Width, Height, points);
    formRgn:= CreatePolygonRgn(points, 5, WINDING);
    SetWindowRgn(Handle, formRgn, False);
    end;

Особенностью создания регионов в приведенном листинге является использование дополнительных процедур для заполнения массива points координатами точек-вершин многоугольников определенного вида. Все эти процедуры принимают, помимо ссылки на сам массив points, ширину и высоту прямоугольника, в который должен быть вписан многоугольник. Процедура создания треугольника приводится в листинге 1.13.

а как на таком же сделать кнопки в ввиде: