Форум: "WinAPI";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];
Вниз
не прямоугольная форма Найти похожие ветки
← →
Змей © (2004-11-19 17:02) [0]Здрасте уважаемые мастера!
вот у меня собно какой вопросец:
делаю овальной форму
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
не подскажите ль как чет не получается
← →
MBo © (2004-11-19 17:14) [1]А если в хелпе по CreateEllipticRgn нажать кнопку Group?
← →
Anatoly Podgoretsky © (2004-11-19 17:16) [2]Это сложно
← →
Grundic © (2004-11-20 09:51) [3]Можно через прозрачность...
← →
Mike_Vazowskyi (2004-11-25 03:12) [4]функция - CreateRoundRectRgn(x1,y1,x2,y2,x3,y3:integer):Cardinal; - Создаёт область со скруглёнными углами...
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.029 c
