Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
1-77382
proc
2002-06-13 14:24
2002.06.24
ComboBox border = bsNone


1-77463
Artem Bakulin
2002-06-11 20:29
2002.06.24
Изменение свойств нескольких объектов


14-77588
savva
2002-05-22 10:48
2002.06.24
П Р И З Ы В !!! Модераторам и Мастерам !!!


1-77388
Tkach_
2002-06-13 13:36
2002.06.24
Ошибка доступа при работе с потоками/нитями


1-77496
koty
2002-06-07 09:26
2002.06.24
Help по Дельфи