Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

14th
Май

Рамка для Image

Posted by micher under Delphi

Как нарисовать рамку для Image по нажатию на Image?

Stilet



procedure TForm1.Image4Click(Sender: TObject);

begin

Image4.Canvas.Brush:=bsNone;

Image4.Canvas.pen.Color := clBlack;

Image4.Canvas.Pen.Width:=10;

Image4.Canvas.Rectangle(584, 64,    584+Image4.Width,   64+ Image4.Height);

 end;