Карта сайтаСсылкиКонтакты

Как вырезать прямоугольник из Image в Буфер Обмена

PDF Печать
Статьи

Вырезание изображения в буфер обмена это то же самое, что и копирование, но также выполняется удаление изображения из источника.


procedure CutToClipboard
    (AnImage:TImage; ARect:TRect) ;
 var b:TBitmap;
 begin
   // сначала копируем
   b:=TBitmap:Create;
   try
     b.Width := ARect.Width;
     b.Height := ARect.Height;
     CopyRect(Rect(0,0,b.Height,b.Width),
              AnImage.Canvas, ARect) ;
     Clipboard.Assign(b)
   finally
     b.Free
   end;
   // затем вырезаем
   with AnImage.Canvas do
    begin
     CopyMode := cmWhiteness;
     CopyRect(ARect, AnImage.Canvas, ARect) ;
     CopyMode := cmSrcCopy;
    end;
 end;

 

Добавить комментарий


Защитный код
Обновить