Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

Дайти кто-нибудь простинький кодик как сделать кнопку круглой? 


snoup   (2002-04-11 22:55) [0]

Дайти кто-нибудь простинький кодик как сделать кнопку круглой?



kopachev   (2002-04-11 23:53) [1]

На www.source.ru я видел класс кнопки на C++



Fantasist   (2002-04-12 00:15) [2]

Простенький.


procedure TForm1.Button1Click(Sender: TObject);
var
rg:HRGN;
dc:HDC;
begin
rg:=0;
rg:=CreateEllipticRgn(1,1,40,40);
SetWindowRgn(Button1.Handle,rg,true);
DeleteObject(rg);
Canvas.Ellipse(Button1.Left,Button1.Top,Button1.Left+40,Button1.Top+40);
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
1-81009           Demon Ltd             2002-04-13 00:05  2002.04.25  
Работа повторно с меню


3-80813           Atrem                 2002-04-04 19:18  2002.04.25  
небольшой вопросик


1-80892           OldGirstaris          2002-04-14 14:13  2002.04.25  
Будут ли работать в Win2000 и в WinXP такие функции...


1-80885           Ray_Parker            2002-04-12 17:41  2002.04.25  
Вопрос по обработке события OnKeyUp


14-81070          savva                 2002-03-20 10:37  2002.04.25  
Товарищи!! У нас есть возможность отличиться! (и пивка стребовать на халяву о-)) )