Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];

Вниз

Нужен компонент для работы со скинами, или как округлить углы в 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c