TImageEnProc.PointPasteFromClip

Declaration

function PointPasteFromClip(XDest, YDest: Integer; MergeAlpha: Boolean = True): Boolean;

Description

Pastes the image on the clipboard at position x1, y1 (coordinates relative to component). All uncompressed DBI formats are handled (1, 4, 8, 15, 16, 24 and 32 bits).
MergeAlpha will merge the alpha channel of the pasted bitmap with the background bitmap (only valid if the image was copied to the clipboard in "ImageEn" format).
Result is false if a valid image was not found on the clipboard.

Note: Color images (4, 8, 15, 16, 24 or 32 bits) are converted to 24 bit. Monochrome images (1 bit) will remain 1 bit.

Example

// Paste the clipboard image at the current mouse position
procedure TForm1.ImageEnView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ImageEnView1.Proc.PointPasteFromClip(X, Y);
end;

TImageEnProc.PointPasteFromClip