Текущий архив: 2003.10.16;
Скачать: CL | DM;

Вниз

Нужен компонент для работы со скинами, или как округлить углы в E   Найти похожие ветки 

← →
Delphin ©   (2003-10-04 22:12) [0]

Нужен компонент для работы со скинами, или как округлить углы в Edit?

---

← →
dataMaster ©   (2003-10-04 22:23) [1]

Скругленные углы можно сделать так:

procedure MakeRounded(Control: TWinControl);
var
R: TRect;
Rgn: HRGN;
begin
with Control do
begin
R := ClientRect;
rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20);
Perform(EM_GETRECT, 0, lParam(@r));
InflateRect(r, - 5, - 5);
Perform(EM_SETRECTNP, 0, lParam(@r));
SetWindowRgn(Handle, rgn, True);
Invalidate;
end;
end;

---

← →
Delphin ©   (2003-10-04 22:37) [2]

спасибо, всё работает :))

---

← →
GH@ST ©   (2003-10-05 09:48) [3]

Varian Skin Factory

---

← →
Delphin ©   (2003-10-05 12:11) [4]

Hi ALL! Спасибо за советы, я нашёл способ, как всё это сделать на много проще:

var
Rgn: HRGN;

rgn := CreateRoundRectRgn(2, 2, Edit1.Width, Edit1.Height, 20, 20);
SetWindowRgn(Edit1.Handle, rgn, True);

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c