| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Непонятки с функцией FrameRgn [D7, WinXP]
SergeyV © (2004-05-13 23:30:00)Создаю окно со скругленными углами, и хочу обвести его рамкой
procedure TForm1.FormCreate(Sender: TObject);
var
Rgn : HRGN;
begin
Rgn := CreateRoundRectRgn(100,100,300,300,25,25);
FrameRgn(Handle, Rgn, CreateSolidBrush(clRed), 3, 3);
SetWindowRgn(Handle, Rgn, True);
end;
Окно создается но БЕЗ рамки
В чем ошибка?
Игорь Шевченко (2004-05-14 12:37:00) [1]SergeyV (13.05.04 23:30)
http://www.delphikingdom.com/treasury/hsdialogs.htmглянь
wicked (2004-05-14 12:28:00) [2]
> FrameRgn( Canvas.Handle, Rgn, CreateSolidBrush(clRed), 3, 3);
а за CreateSolidBrush(clRed)я бы премию снял...
кто этот Brush потом удалит?...
SergeyV (2004-05-14 09:10:00) [3]Ну вот вместо ответа нагадили :(((
(2004-05-14 00:06:00) [4]Удалено модератором
| |
