~~~~~~~~~~~~~~~~~~~~~~~~~
procedure CutToClipboard
(AnImage:TImage; ARect:TRect) ;
var b:TBitmap;
begin
//first copy
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;
//than cut
with AnImage.Canvas do
begin
CopyMode := cmWhiteness;
CopyRect(ARect, AnImage.Canvas, ARect) ;
CopyMode := cmSrcCopy;
end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Setting the Default Printer from code
« Get Filenames from Clipboard
