Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c