图片的剪切、复制、粘贴和旋转

Question

谁有图片的剪切、复制、粘贴和旋转的源码，谢谢！
贴出来或给我发E_mail:[email protected]

Answer 1

转载
剪切
 clipboard.assign(image1.picture.bitmap);
 image1.picture.assign(nil);
复制
 clopboard.assign(image1.picture.bitmap);
粘贴
  if clipboard.hasformat(cf_picture) then
     begin
      image2.picture.assign(clipboard);
     end;

Answer 2

clipboard和clopboard是什么东西，要申请什么的吗，我是新手，还望你给详细一些，谢谢。

Answer 3

clopboard是剪贴板，clopboard纯粹笔误，用的时候，加上uses clipbrd

Answer 4

不知道你懂不懂c++,我这里c++builder旋转源代码，要的话给我来信，[email protected]

Answer 5

如果你有image prefssal
可以很方便通过代码控制图片

Answer 6

mikko11(新手)：
    你的来信我已经收到，里面提供的方式已实现，在此表示感谢！对了，还差顺时针90，180度和对图片的剪辑（圆形和矩形），在什么地方能找到，谢谢！

Answer 7

顺时针的我也正想要一个呢。其它的你到delphibbs上看看有可能会有

Answer 8

能不能发一个旋转的给我呀，我的信箱是[email protected]

Answer 9

给我一个好吗
[email protected]

Answer 10

unit ImgFlip;interface
uses Windows, Classes, SysUtils, Graphics;type
EInvalidPixelFormat = class(Exception);procedure ImageFlipH(aBitmap: TBitmap);
// flips the image along the center horizontal axisprocedure ImageFlipV(aBitmap: TBitmap);
// flips the image along the center vertical axisprocedure ImageRotate90(aBitmap: TBitmap);
// rotates the bitmap counterclockwise in increments of 90degreesprocedure ImageRotateSsz90(aBitmap: TBitmap);
// rotates the bitmap 顺时针 in increments of 90degrees
procedure ImageRotate180(aBitmap: TBitmap);
//180implementationconst
BitsPerByte = 8; // Assume there are 8 bits in one byte, this may not be true in the future. (JIC){ this functions returns the number of bytes needed to represent 1 pixel
in the current PixelFormat of the bitmap. }
function GetPixelSize(aBitmap: TBitmap): integer;
var
nBitCount, nMultiplier: integer;
begin
case aBitmap.PixelFormat of
pfDevice:
begin
nBitCount := GetDeviceCaps(aBitmap.Canvas.Handle, BITSPIXEL);
nMultiplier := nBitCount div BitsPerByte;
if (nBitCount mod BitsPerByte)>0 then
begin
Inc(nMultiplier);
end;
end;
pf1bit: nMultiplier := 1;
pf4bit: nMultiplier := 1;
pf8bit: nMultiplier := 1;
pf15bit: nMultiplier := 2;
pf16bit: nMultiplier := 2;
pf24bit: nMultiplier := 3;
pf32bit: nMultiplier := 4;
else raise EInvalidPixelFormat.Create('Bitmap pixelformat is unknown.');
end;
Result := nMultiplier;
end;procedure ImageFlipH(aBitmap: TBitmap);
var
nMultiplier,
nMemSize, y, y2,
nHalfHeight, nFullHeight: integer;
aScanLine: PByteArray;begin
nMultiplier := GetPixelSize(ABitmap); nMemSize := aBitmap.Width * nMultiplier;
GetMem(aScanLine, nMemSize);
try nFullHeight := aBitmap.Height;
nHalfHeight := nFullHeight div 2; {
This FOR-LOOP basically swaps the top and the bottom lines converging
into the center lines.
}
for y := 0 to nHalfHeight do
begin
Move(aBitmap.ScanLine[y]^, aScanLine^, nMemSize);
y2 := nFullHeight - y - 1;
Move(aBitmap.ScanLine[y2]^, aBitmap.ScanLine[y]^, nMemSize);
Move(aScanLine^, aBitmap.ScanLine[y2]^, nMemSize);
end; finally
FreeMem(aScanLine);
end;
end;{
This procedure swaps the pixel information in a scanline, in other words, the
leftmost pixel is swapped with the rightmost pixel moving to the middle of the
scanline.  nSize is the total byte size of the scanline.  nElemWidth is the
number of bytes per pixel. (e.g. for 24bit, 1 pixel is 3 bytes)
}
procedure ReverseScanLine(AScanLine: PByteArray; nSize, nElemWidth: integer);
var
i, j, w, w2, x1, x2: integer;
aByte: Byte;
begin
w := nSize div nElemWidth;
w2 := w div 2;
for i := 0 to w2 do
begin
x1 := i * nElemWidth;
x2 := (w - i - 1) * nElemWidth;
for j := 0 to nElemWidth-1 do
begin
aByte := AScanLine[x1 + j];
AScanLine[x1 + j] := AScanLine[x2 + j];
AScanLine[x2 + j] := aByte;
end;
end;
end;procedure ImageFlipV(aBitmap: TBitmap);
var
nMultiplier,
nMemSize, y,
nFullHeight: integer;
aScanLine: PByteArray;
begin nMultiplier := GetPixelSize(ABitmap); nMemSize := aBitmap.Width * nMultiplier;
GetMem(aScanLine, nMemSize);
try nFullHeight := aBitmap.Height; { this FOR-LOOP read the scanlines into a buffer and swaps the pixels and
then writes it back into the bitmap scanlines.  the buffer is necessary
because it is faster working with a copy of the scanline than using the
scanline itself }
for y := 0 to nFullHeight-1 do
begin
Move(aBitmap.ScanLine[y]^, aScanLine^, nMemSize);
ReverseScanLine(aScanLine, nMemSize, nMultiplier);
Move(aScanLine^, aBitmap.ScanLine[y]^, nMemSize);
end; finally
FreeMem(aScanLine);
end;
end;{ this procedure rotates the image counterclockwise by 90 degrees.
i could have made this routine rotate clockwise but doing it in
counter-clockwise is easier and thus less prone to bugs. what we do here is grab the first scanline and distribute each pixel
along one column of the new image (or in this case new scanlines buffer)
we do this until we run out of scanlines then we are done.}

Answer 11

procedure ImageRotate90(aBitmap: TBitmap);
var
nIdx, nOfs,
x, y, i,
nMultiplier: integer;
nMemWidth, nMemHeight, nMemSize,
nScanLineSize: LongInt; aScnLnBuffer: PChar;
aScanLine: PByteArray;
begin nMultiplier := GetPixelSize(ABitmap); nMemWidth := aBitmap.Height;
nMemHeight := aBitmap.Width;
nMemSize := nMemWidth * nMemHeight * nMultiplier; GetMem(aScnLnBuffer, nMemSize);
try
nScanLineSize := aBitmap.Width * nMultiplier;
GetMem(aScanLine, nScanLineSize);
try
for x := 0 to aBitmap.Height-1 do
begin
Move(aBitmap.ScanLine[x]^, aScanLine^, nScanLineSize);
for y := 0 to aBitmap.Width-1 do
begin
nIdx := ((aBitmap.Width-1) - y) * nMultiplier;
nOfs := (y * nMemWidth * nMultiplier) +  // y component of the dst
(x * nMultiplier); // x component of the dst
for i := 0 to nMultiplier-1 do
Byte(aScnLnBuffer[nOfs + i]) := aScanLine[nIdx+i];
end;
end; aBitmap.Height := nMemHeight;
aBitmap.Width := nMemWidth; for y := 0 to nMemHeight-1 do
begin
nOfs := y * nMemWidth * nMultiplier;
Move((@(aScnLnBuffer[nOfs]))^, aBitmap.ScanLine[y]^, nMemWidth * nMultiplier);
end; finally
FreeMem(aScanLine, nScanLineSize);
end;
finally
FreeMem(aScnLnBuffer, nMemSize);
end;end;
{@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
***************   顺时针90***********************************************
************************************************************************}procedure ImageRotateSsz90(aBitmap: TBitmap);
var
nIdx, nOfs,
x, y, i,
nMultiplier: integer;
nMemWidth, nMemHeight, nMemSize,
nScanLineSize: LongInt; aScnLnBuffer: PChar;
aScanLine: PByteArray;
begin nMultiplier := GetPixelSize(ABitmap); nMemWidth := aBitmap.Height;
nMemHeight := aBitmap.Width;
nMemSize := nMemWidth * nMemHeight * nMultiplier; GetMem(aScnLnBuffer, nMemSize);
try
nScanLineSize := aBitmap.Width * nMultiplier;
GetMem(aScanLine, nScanLineSize);
try
  for y := aBitmap.Height-1 downto 0 do begin
Move(aBitmap.ScanLine[y]^, aScanLine^, nScanLineSize);
for x := 0 to aBitmap.Width-1 do
begin
                                        nIdx :=  x * nMultiplier; nOfs := (x * nMemWidth * nMultiplier) +  // y component of the dst
((aBitmap.Height-1-y) * nMultiplier); // x component of the dst
for i := 0 to nMultiplier-1 do
Byte(aScnLnBuffer[nOfs + i]) := aScanLine[nIdx+i];
end;
end; aBitmap.Height := nMemHeight;
aBitmap.Width := nMemWidth;
for y := 0 to nMemheight-1 do
begin
nOfs := y * nMemwidth * nMultiplier;
Move((@(aScnLnBuffer[nOfs]))^, aBitmap.ScanLine[y]^, nMemWidth * nMultiplier);
end; finally
FreeMem(aScanLine, nScanLineSize);
end;
finally
FreeMem(aScnLnBuffer, nMemSize);
end;end;procedure ImageRotate180(aBitmap: TBitmap);
var j:integer;
   nIdx, nOfs,
x, y, i,
nMultiplier: integer;
nMemWidth, nMemHeight, nMemSize,
nScanLineSize: LongInt; aScnLnBuffer: PChar;
aScanLine: PByteArray;
begin
  for j:=0 to 1 do
    begin
nMultiplier := GetPixelSize(ABitmap); nMemWidth := aBitmap.Height;
nMemHeight := aBitmap.Width;
nMemSize := nMemWidth * nMemHeight * nMultiplier; GetMem(aScnLnBuffer, nMemSize);
try
nScanLineSize := aBitmap.Width * nMultiplier;
GetMem(aScanLine, nScanLineSize);
try
for y :=aBitmap.Height-1 downto 0 do
begin
Move(aBitmap.ScanLine[y]^, aScanLine^, nScanLineSize);
for x := 0 to aBitmap.Width-1 do
begin
nIdx := x * nMultiplier;
nOfs := (x * nMemWidth * nMultiplier) +  // y component of the dst
((aBitmap.Height-1-y) * nMultiplier); // x component of the dst
for i := 0 to nMultiplier-1 do
Byte(aScnLnBuffer[nOfs + i]) := aScanLine[nIdx+i];
end;
end; aBitmap.Height := nMemHeight;
aBitmap.Width := nMemWidth;
       { for y := 0 to nMemHeight-1 do
begin
nOfs := y * nMemWidth * nMultiplier;
Move((@(aScnLnBuffer[nOfs]))^, aBitmap.ScanLine[y]^, nMemWidth * nMultiplier);
end;}
for y := 0 to nMemheight-1 do
begin
nOfs := y * nMemwidth * nMultiplier;
Move((@(aScnLnBuffer[nOfs]))^, aBitmap.ScanLine[y]^, nMemwidth * nMultiplier);
end; finally
FreeMem(aScanLine, nScanLineSize);
end;
finally
FreeMem(aScnLnBuffer, nMemSize);
end;    end;
end;
end.

Answer 12

to:mikko11(指南针) 
楼上弟兄提供了顺时针90，你看到了吗？