Форум: "Основная";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
Вниз
Кому - нибудь знакомо слово 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c