Текущий архив: 2004.06.20;
Скачать: CL | DM;
Вниз
Непонятки с функцией FrameRgn Найти похожие ветки
← →
SergeyV (2004-05-13 23:30) [0]Создаю окно со скругленными углами, и хочу обвести его рамкой
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 00:06) [1]Удалено модератором
← →
SergeyV (2004-05-14 09:10) [2]Ну вот вместо ответа нагадили :(((
← →
wicked © (2004-05-14 12:28) [3]
> FrameRgn(Canvas.Handle, Rgn, CreateSolidBrush(clRed), 3, 3);
а за CreateSolidBrush(clRed) я бы премию снял...
кто этот Brush потом удалит?...
← →
Игорь Шевченко © (2004-05-14 12:37) [4]SergeyV (13.05.04 23:30)
http://www.delphikingdom.com/treasury/hsdialogs.htm глянь
Страницы: 1 вся ветка
Текущий архив: 2004.06.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.03 c
