这个图片平移程序怎么不行呢,操作之后图片全白色,平移量不大啊

Question

procedure TForm3.Button3Click(Sender: TObject);
type
   TRGBTripleArray=Array[0..32768-1] of TRGBTriple;
   pRGBTripleArray=^TRGBTripleArray;
var
   i,j,bmpheight,bmpwidth:integer;
   imageshifted,imageunshifted:pRGBTripleArray;
   originX,originY,
   TX,TY: integer;
   newbmp,tempbmp:Tbitmap;begin
   newbmp:=Tbitmap.Create;
   tempbmp:=Tbitmap.Create;
   tempbmp.PixelFormat:=pf24bit;
   tempbmp.Width:=image1.Width;
   tempbmp.height:=image1.height;
   tempbmp.Canvas.Draw(0,0,image1.Picture.Graphic);
   newbmp.Width:=tempbmp.Width;
   newbmp.height:=tempbmp.height;
   bmpwidth:=tempbmp.Width;
   bmpheight:=tempbmp.height;
   TX:=10;
   TY:=10;
   for j:=bmpheight-1 downto 0 do
   begin
     imageshifted:=newbmp.scanline[j];
     for i:=bmpwidth-1 downto 0 do
     begin
        originX:=i-TX;
        originY:=j-TY;
        if (originX >0)and (originX <bmpwidth-1)and (originY >0)and (originY <bmpheight-1) then
         begin
            imageunshifted:=tempbmp.scanline[originY];
            imageshifted[i]:=imageunshifted[originX];
         end
         else
         begin
            imageshifted[i].rgbtRed:=255;
            imageshifted[i].rgbtGreen:=255;
            imageshifted[i].rgbtBlue:=255;
         end;
     end;
   end;
   image1.Picture.Bitmap.Assign(newbmp);
   newbmp.Free;
   tempbmp.Free;
end;

Answer 1

你的newbmp什么也没有可不是白的嘛

Answer 2

imageshifted应该和你的newbmp建立关系才行啊
什么关系也没有，你打开newbmp能不白嘛

Answer 3

imageshifted:=newbmp.scanline[j];才看到这个

Answer 4

少一句：
newbmp.PixelFormat:=pf24bit; 

Answer 5

{少一句： 
newbmp.PixelFormat:=pf24bit;}
相当正确! 谢谢啦