uses
Clipbrd;
//couper
procedure TForm1.Button1Click(Sender: TObject);
Var ARect:TRect;
begin
Clipboard.Assign(Image1.Picture);
with Image1.Canvas do begin
CopyMode:=cmWhiteness; ARect:=Rect(0,0,Image1.Width,Image1.Height);
CopyRect(ARect, Image1.Canvas, ARect); CopyMode:=cmSrcCopy;
end;
end;
//copier
procedure TForm1.Button2Click(Sender: TObject);
begin
Clipboard.Assign(Image1.Picture);
end;
//coller
procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Picture.Assign(Clipboard);
end;
|