Непонятки с функцией 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 потом удалит?...

SergeyV (13.05.04 23:30)

http://www.delphikingdom.com/treasury/hsdialogs.htm глянь

Непонятки с функцией FrameRgn Найти похожие ветки