Последние записи
- Как сделать картинку адаптивной, само растягивающейся к размеру монитора, чтобы размер баннера изменялся сам — подстраивался под дизайн сайта
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
27th
Ноя
Закруглить углы image
Posted by obzor under Delphi
Как в Delphi закруглить углы image?
Image бросаем на Панель, далее стандартная функция Windows по закруглению углов
procedure MakeRounded(MyControl: TWinControl);
var
R: TRect;
Rgn: HRGN;
begin
R := MyControl.ClientRect;
Rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 16, 16); //эти параметры определяют эллипс скругления
MyControl.Perform(EM_GETRECT, 0, lParam(@R));
InflateRect(R, -2, -2);
MyControl.Perform(EM_SETRECTNP, 0, lParam(@R));
SetWindowRgn(MyControl.Handle, Rgn, True);
MyControl.Invalidate;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.BevelOuter := bvNone;
Image1.Left := 0; Image1.Top := 0;
Panel1.Width := Image1.Width; Panel1.Height := Image1.Height;
MakeRounded(Panel1);
end;
