| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Кому - нибудь знакомо слово Speed Button...?

CHIMUMBARO ©   (2002-06-12 23:03:00) 

Это кнопка ,которую нужно самому создать при помощи rect, polygon, и еще чего-то там ... так вот может кто поможет:как это все прописать...?

---

liho26   (2002-06-13 08:07:00) [1]

Элементарно. Эта прцедура делает кнопку круглой.


procedure TForm1.Button4Click(Sender: TObject);
Var
Button4: TButton;
btnrgn: hRgn;

begin
Button4.Brush.Style := bsSolid;
GetWindowRgn(Button4.Handle, btnrgn);
DeleteObject(btnrgn);
button4.Height := 30;
Button4.Width := Button4.Height;
btnrgn := CreateRoundRectRgn(1, 1, Button4.Width - 1,
Button4.height - 1, Button4.width, Button4.height);
SetWindowRgn(Button4.Handle, btnrgn, TRUE);
end;


Вот вроде и все...

---

allrussia   (2002-06-13 03:29:00) [2]

могу посоветовать посмотреть Buttons.pas

там как раз speedbutton прописан

---

Наверх