| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать кнопку нестандартной формы? [D6]
kazaam © (2002-09-13 08:25:00)А нестандартную форму?
RV (2002-09-13 09:14:00) [1]хошь утилитку, дабы ручками не писать, пиши
RV (2002-09-13 08:50:00) [2]procedure TForm1.FormCreate(Sender: TObject);
const
n = 1;
var
nn : integer;
ResultReg, Reg : HRGN;
P : array[0..n-1] of TPoint;
begin
//Put Ellipse
//инициализация ResultReg
ResultReg := CreateEllipticRgn(111,92,427,261);
//Put Ellipse
Reg := CreateEllipticRgn(255,108,288,252);
CombineRgn(ResultReg,ResultReg,Reg,RGN_DIFF);
SetWindowRgn(Handle, ResultReg, False);
end;
| |
