Картинка

@papillon83 · Регистрация: 22.02.2019

Author24 — интернет-сервис помощи студентам

Как придать Timage круглую форму?

@Flip · 04.05.2019, 18:13

На форму кидаем панель(TPanel) и задаём необходимые размеры (можно сделать это и программно), на которую помещаем компонент TImage, у которого свойство Align ставим alClient. Далее кидаем кнопку, на обработчик которой пишем следующий код:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  rgn: HRGN;
  dc: HDC;
begin
  // Загружаем изображение из файла (находится в папке с проектом)
  Image1.Picture.LoadFromFile('1.bmp');
  rgn := CreateRoundRectRgn(0, 0, Image1.Width, Image1.Height, 500, 500);
  dc := GetDC(Panel1.Handle);
  SetWindowRgn(Panel1.Handle, rgn, true);
  ReleaseDC(Panel1.Handle, dc);
  DeleteObject(rgn);
end;

Сохраняем проект в любую папку, в которую помещаем картинку. Компилируем и радуемся.

Проект - Round_image.zip в Delphi 7.

@papillon83 0 / 0 / 0 Регистрация: 22.02.2019 Сообщений: 112
		1
	Картинка 04.05.2019, 17:03. Показов 1241. Ответов 1 Метки нет (Все метки) Как придать Timage круглую форму? 0

	04.05.2019, 18:13

Опции темы

Картинка

Решение