VPF::Функция CreatePolygonRgn - Форум программистов

Snipe

Дата 4.10.2005, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 20.8.2005
Где: Архангельск

Репутация: нет
Всего: нет

Мне нужно чтобы кнопка имела форму ромба. Есть функция CreatePolygonRgn, но у меня не получается применить её.
SetWindowsRgn(Form1.Handle,CreatePolygonRgn() ,True);
Объясните, что нужно использовать вместо первого параметра. Заранее благодарен.

Alex

Дата 4.10.2005, 20:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 6
Всего: 162

Пример использования http://forum.vingrad.ru/index.php?showtopi...ndpost&p=271366

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

~FoX~

Дата 5.10.2005, 07:09 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 0
Всего: 68

Вместо первого параметра нужно использовать хэндл твоего кнопа:

Код


procedure TForm1.FormShow(Sender: TObject);
var
  Coord : array[1..4] of TPoint;
begin
  Coord[1] := Point(Button1.Width div 2, 1);
  Coord[2] := Point(1, Button1.Height div 2);
  Coord[3] := Point(Button1.Width div 2, Button1.Height);
  Coord[4] := Point(Button1.Width, Button1.Height div 2);
  SetWindowRgn(Form1.Button1.Handle,CreatePolygonRgn(Coord, Length(Coord),WINDING),true);
end;

Это сообщение отредактировал(а) ~FoX~ - 5.10.2005, 07:11

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »