Mega Code Archive

 

Categories / Delphi / Graphic

 

Bitmapin istenilen koordinatlarini kopyalamak ve clipboarda gondermek

uses Clipbrd; { Image1'nin (5, 5) koordinatlarindan baslayarak 50 pixel genisligindeve yüksekliginde bir alani image2'ye kopyalar ve kopyalanan alani clipboard'a gonderir. } procedure TForm1.Button1Click(Sender: TObject); const CopyWidth = 50; // kopyalanacak genislik CopyHeight = 50; // kopyalanacak yükseklik var MyFormat : Word; AData: THandle; APalette: HPalette; begin Image2.Picture.Bitmap.Width := CopyWidth; Image2.Picture.Bitmap.Height := CopyHeight; Image2.Picture.Bitmap.Canvas.CopyRect(Rect(0, 0, CopyWidth, CopyHeight), Image1.Picture.Bitmap.Canvas, Rect(5, 5, CopyWidth + 5, CopyHeight + 5)); Image2.Picture.Bitmap.SaveToClipboardFormat(MyFormat,AData,APalette); ClipBoard.SetAsHandle(MyFormat,AData); end;