Тема: TImage произвольной формы
Показать сообщение отдельно
  #2  
Старый 24.11.2009, 15:08
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
Код:
var
  R : TRect;
begin
  R := Rect(x1,y1,x2,y2);
  Form1.Canvas.StretchDraw(R,AJPEG);
end;
Ответить с цитированием