Текущий архив: 2002.06.24;
Скачать: CL | DM;

Вниз

Кому - нибудь знакомо слово Speed Button...?   Найти похожие ветки 

← →
CHIMUMBARO   (2002-06-12 23:03) [0]

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

---

← →
allrussia ©   (2002-06-13 03:29) [1]

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

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

---

← →
liho26 ©   (2002-06-13 08:07) [2]

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


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;


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

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.24;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c