画像をシフトするサンプルコード

//Bass Unit
unit EffectBass;

interface
uses
 Windows,SysUtils, Classes, Graphics;

type
 //24bitアクセス用ポインタ
 pRGBarray  = ^TRGBarray;
 TRGBarray  = array[0..0] of TRGBTriple; //None リテラル

type
 //24bitアクセス用ダブルポインタ
 PPBits = ^TPBits;
 TPBits = array[0..0] of pRGBarray; //None リテラル

//汎用プロシージャ
procedure Set24bit(Src,Dest :TBitmap);
function  Set255(Value : integer) : BYTE;

implementation


/////////
procedure Set24bit(Src,Dest :Tbitmap);
begin
  Src.PixelFormat :=pf24bit;
  Dest.PixelFormat:=pf24bit;
  Dest.Width:=Src.Width;
  Dest.Height:=Src.Height;
end;

/////////
function Set255(Value:Integer):Byte;
begin
 if Value>=255 then
  Result:=255
 else if Value<=0 then
 Result:=0
 else Result:=Value;
end;
end.

//-----------------------------------------------------------------------------
// ■関数名    EffectShift
// ■用途      イメージをシフトする
// ■引数
//             hBMP             ...転送元のTBitmapのハンドル
//             nWidth           ...0～Widthまで
//             nHeight          ...0～Heightまで
//■戻り値
//             ビットマップのハンドル
// -----------------------------------------------------------------------------
function EffectShift(hBMP:HBitmap;nWidth,nHeight: integer):HBitmap;
var
  Row,Col,hoge,foo : Integer;
  SrcRow,DestRow   : pRGBArray;
  _Height,_Width   : integer;
  SrcBitmap,DestBitmap : TBitmap;
begin
 SrcBitmap   :=TBitmap.Create;
 DestBitmap  :=TBitmap.Create;
 SrcBitmap.Handle  :=hBMP;
 //範囲チェック
 if (nWidth>SrcBitmap.Width)  or (nHeight>SrcBitmap.Height) then
 begin
    Result :=SrcBitmap.ReleaseHandle;
    SrcBitmap.Free ;
    DestBitmap.Free;
    Exit;
 end;

 Set24bit(SrcBitmap,DestBitmap);
 _Height := SrcBitmap.height-1;
 _Width  := SrcBitmap.width-1;
 hoge:=nWidth;  foo:=nHeight;
try
   For Row := 0 To _Height   do
   begin
       SrcRow:=SrcBitmap.ScanLine[Row];
       if foo>_Height then foo:=0;
       DestRow:=DestBitmap.ScanLine[foo];

        For Col := 0 To _Width do
        begin
             if (hoge> _Width) then hoge:=0;
             DestRow[hoge].rgbtBlue:=SrcRow[Col].rgbtBlue;
             DestRow[hoge].rgbtGreen:= SrcRow[Col].rgbtGreen;
             DestRow[hoge].rgbtRed:=SrcRow[Col].rgbtRed;
             inc(hoge);
       end;
      inc(foo);
    end;
  Result :=DestBitmap.ReleaseHandle;
except
     Result :=SrcBitmap.ReleaseHandle;
end;
  SrcBitmap.Free ;
  DestBitmap.Free;
end;

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    Image1.Picture.bitmap.Handle:= 関数名(Image1.Picture.Bitmap.ReleaseHandle);
  end;