Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.042 c
6-51380
SergK
2003-08-18 16:58
2003.10.16
Ошибка работы с сокетами


3-51149
rosl
2003-09-24 11:51
2003.10.16
fasreport


3-51137
dtm
2003-09-23 17:51
2003.10.16
Тут пролетал запрос, возвращающий


3-51108
diokant
2003-09-24 13:27
2003.10.16
Как обеспечить отображение значения поля, измененного триггером


1-51303
den74
2003-10-06 13:12
2003.10.16
Перерисовка формы