正在阅读：用Delphi来DIY一个软件"变脸"功能用Delphi来DIY一个软件"变脸"功能

　　type
　　PRGBArray = ^TRGBArray;
　　TRGBArray = array [0..MaxPixelCount - 1] of TRGBTriple;

　　procedure TForm1.Button3Click(Sender: TObject);
　　var
　　i, j: Integer;
　　Row: PRGBArray;
　　Png: TPngObject;
　　Rect: TRect;
　　begin
　　Png := TPngObject.Create;
　　Png.LoadFromFile('2.png');

　　for i := 0 to Png.Height - 1 do
　　begin
　　Row := Png.Scanline[i];  // 复制ScanLine属性到Row指针数组
　　for j := 0 to Png.Width - 1 do
　　begin
　　Row[j].rgbtRed := 255 - (255 - Row[j].rgbtRed) * (255 - 153) div 255;
　　Row[j].rgbtGreen := 255 - (255 - Row[j].rgbtGreen) * (255 - 0) div 255;
　　Row[j].rgbtBlue := 255 - (255 - Row[j].rgbtBlue) * (255 - 0) div 255;
　　end;
　　end;
　　{ ... }
　　{ 后面的画图片代码相同 }