pluginunit.pas

delphi的图片处理控件 看图方面的功能很强

unit PlugInUnit;

interface
Uses Windows,Graphics,extdlgs;
const
  MaxPixelCount=32768;
type
  pRGBArray  =  ^TRGBArray;
  TRGBArray  =  ARRAY[0..MaxPixelCount-1] OF TRGBTriple;



procedure flipy(ABmp:Tbitmap);export; stdcall;



implementation

//水平镜像
procedure flipy(ABmp:Tbitmap);
var
  i,j:Integer;
  SrcRow: pRGBArray;
  R,G,B:byte;

begin
      for i := 0 to ABmp.Height - 1 do
      begin
        SrcRow := ABmp.ScanLine[i];
        for j := 0 to (ABmp.Width - 1) div 2 do
        begin
          R:=SrcRow[j].rgbtRed;
          SrcRow[j].rgbtRed:=SrcRow[ABmp.Width - 1-j].rgbtRed;
          SrcRow[ABmp.Width - 1-j].rgbtRed:=R;

          G:=SrcRow[j].rgbtGreen;
          SrcRow[j].rgbtGreen:=SrcRow[ABmp.Width - 1-j].rgbtGreen;
          SrcRow[ABmp.Width - 1-j].rgbtGreen:=G;


          B:=SrcRow[j].rgbtBlue;
          SrcRow[j].rgbtBlue:=SrcRow[ABmp.Width - 1-j].rgbtBlue;
          SrcRow[ABmp.Width - 1-j].rgbtBlue:=B;

        end;

      end;

end;


end.