Содержание материала

Ниже приведен код, позволяющий скопировать панель. Для вырезания части изображения необходимо знать размеры и координаты вырезаемого прямоугольника, и заменить значения width, height, left и top, приведенные в коде, на реальные. Если вы действительно хотите вырезать, а не копировать область, то вам понадобиться ее залить с помощью вызова функции fillrect.

Code:

Var

BitMap: TBitmap;

begin

BitMap:=TBitMap.Create;

BitMap.Height:=BaseKeyPanel.Height;

BitMap.Width:=BaseKeyPanel.Width;

BitBlt(BitMap.Canvas.Handle, 0 {Лево}, 0{Top},

BaseKeyPanel.Width, BaseKeyPanel.Height,

GetDC(BaseKeyPanel.Handle), 0, 0, SRCCOPY);

Clipboard.Assign(BitMap);

BitMap.Free;

End;

 

 

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

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


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