| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
не прямоугольная форма [D6, WinXP]
Змей © (2004-11-19 17:02:00)Здрасте уважаемые мастера!
вот у меня собно какой вопросец:
делаю овальной форму
procedure TForm1.FormCreate(Sender: TObject);
var hrgn:cardinal;
begin
hrgn:=createellipticrgn(0,0,width,height);
setwindowrgn(handle,hrgn,false);
end;
воть все работает люск
но хочется сделать такую же как у Shape у прямоугольника с закругленными концами, тобишь shape1.Shape:=stRoundSquare
или там stRoundrect
не подскажите ль как чет не получается
Mike_Vazowskyi (2004-11-25 03:12:00) [1]функция - CreateRoundRectRgn(x1,y1,x2,y2,x3,y3:integer):Cardinal;- Создаёт область со скруглёнными углами...
Grundic (2004-11-20 09:51:00) [2]Можно через прозрачность...
Anatoly Podgoretsky (2004-11-19 17:16:00) [3]Это сложно
MBo (2004-11-19 17:14:00) [4]А если в хелпе по CreateEllipticRgn нажать кнопку Group?
| |
