pluginunit.pas

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

unit PlugInUnit;

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



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



implementation

procedure notcolor(ABmp:Tbitmap);
var
  i,j:Integer;
  SrcRow: pRGBArray;

begin
      SrcRow := ABmp.ScanLine[0];
      for i := 0 to ABmp.Height - 1 do
      begin
        for j := 0 to ABmp.Width - 1 do
        begin
          SrcRow[j].rgbtRed :=not SrcRow[j].rgbtRed ;
          SrcRow[j].rgbtGreen :=not SrcRow[j].rgbtGreen;
          SrcRow[j].rgbtBlue :=not SrcRow[j].rgbtBlue;
        end;
        SrcRow := ABmp.ScanLine[i];
      end;
end;


end.