图像基本处理方法

//浮雕 procedure Emboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload; var  i, j, Gray, Azimuthvalue, R, G, B: integer;  SrcRGB, SrcRGB1, SrcRGB2, DestRGB: pRGBTriple; begin  for i := 0 to SrcBmp.Height - 1 do  begin   SrcRGB := SrcBmp.ScanLine[i];   DestRGB := DestBmp.ScanLine[i];   if (AzimuthChange >= -180) and (AzimuthChange < -135) then   begin    if i > 0 then     SrcRGB1 := SrcBmp.ScanLine[i-1]    else     SrcRGB1 := SrcRGB;    Inc(SrcRGB1);    SrcRGB2 := SrcRGB;    Inc(SrcRGB2);   end   else if (AzimuthChange >= -135) and (AzimuthChange < -90) then   begin    if i > 0 then     SrcRGB1 := SrcBmp.ScanLine[i-1]    else     SrcRGB1 := SrcRGB;    SrcRGB2 := SrcRGB1;    Inc(SrcRGB2);   end   else if (AzimuthChange >= -90) and (AzimuthChange < -45) then   begin    if i > 0 then     SrcRGB1 := SrcBmp.ScanLine[i-1]    else     SrcRGB1 := SrcRGB;    SrcRGB2 := SrcRGB1;   end   else if (AzimuthChange >= -45) and (AzimuthChange < 0) then   begin    SrcRGB1 := SrcRGB;    if i > 0 then     SrcRGB2 := SrcBmp.ScanLine[i-1]    else     SrcRGB2 := SrcRGB;   end   else if (AzimuthChange >= 0) and (AzimuthChange < 45) then   begin    SrcRGB2 := SrcRGB;    if (i < SrcBmp.Height - 1) then     SrcRGB1 := SrcBmp.ScanLine[i+1]    else     SrcRGB1 := SrcRGB;   end   else if (AzimuthChange >= 45) and (AzimuthChange < 90) then   begin    if (i < SrcBmp.Height - 1) then     SrcRGB1 := SrcBmp.ScanLine[i+1]    else     SrcRGB1 := SrcRGB;    SrcRGB2 := SrcRGB1;   end   else if (AzimuthChange >= 90) and (AzimuthChange < 135) then   begin    if (i < SrcBmp.Height - 1) then     SrcRGB1 := SrcBmp.ScanLine[i+1]    else     SrcRGB1 := SrcRGB;    SrcRGB2 := SrcRGB1;    Inc(SrcRGB1);   end   else if (AzimuthChange >= 135) and (AzimuthChange <= 180) then   begin    if (i < SrcBmp.Height - 1) then     SrcRGB2 := SrcBmp.ScanLine[i+1]    else     SrcRGB2 := SrcRGB;    Inc(SrcRGB2);    SrcRGB1 := SrcRGB;    Inc(SrcRGB1);   end;   for j := 0 to SrcBmp.Width - 1 do   begin    if (AzimuthChange >= -180) and (AzimuthChange < -135) then    begin     Azimuthvalue := AzimuthChange + 180;     R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;     G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;     B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;    end    else if (AzimuthChange >= -135) and (AzimuthChange < -90) then    begin     Azimuthvalue := AzimuthChange + 135;     R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;     G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;     B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;    end    else if (AzimuthChange >= -90) and (AzimuthChange < -45) then    begin     if j=1 then Inc(SrcRGB1,-1);     Azimuthvalue := AzimuthChange + 90;     R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;     G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;     B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;    end    else if (AzimuthChange >= -45) and (AzimuthChange < 0) then    begin     if j=1 then     begin      Inc(SrcRGB1,-1);      Inc(SrcRGB2,-1);     end;     Azimuthvalue := AzimuthChange + 45;     R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;     G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;     B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;    end    else if (AzimuthChange >= 0) and (AzimuthChange < 45) then    begin     if j=1 then     begin      Inc(SrcRGB1,-1);      Inc(SrcRGB2,-1);     end;     Azimuthvalue := AzimuthChange;     R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;     G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;     B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;    end    else if (AzimuthChange >= 45) and (AzimuthChange < 90) then    begin     if j=1 then Inc(SrcRGB2,-1);     Azimuthvalue := AzimuthChange - 45;     R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;     G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;     B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;    end    else if (AzimuthChange >= 90) and (AzimuthChange < 135) then    begin     Azimuthvalue := AzimuthChange - 90;     R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;     G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;     B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;    end    else if (AzimuthChange >= 135) and (AzimuthChange <= 180) then    begin     Azimuthvalue := AzimuthChange - 135;     R:=SrcRGB.rgbtRed-((SrcRGB1.rgbtRed)*Azimuthvalue div 45)-((SrcRGB2.rgbtRed)*(45-Azimuthvalue) div 45)+78;     G:=SrcRGB.rgbtGreen-((SrcRGB1.rgbtGreen)*Azimuthvalue div 45)-((SrcRGB2.rgbtGreen)*(45-Azimuthvalue) div 45)+78;     B:=SrcRGB.rgbtBlue-((SrcRGB1.rgbtBlue)*Azimuthvalue div 45)-((SrcRGB2.rgbtBlue)*(45-Azimuthvalue) div 45)+78;    end;    R:=Min(R,255);    R:=Max(R,0);    G:=Min(G,255);    G:=Max(G,0);    B:=Min(B,255);    B:=Max(B,0);    Gray := (R shr 2) + (R shr 4) + (G shr 1) + (G shr 4) + (B shr 3);    DestRGB.rgbtRed:=Gray;    DestRGB.rgbtGreen:=Gray;    DestRGB.rgbtBlue:=Gray;    if (j=-180) and (AzimuthChange<-135)) or ((AzimuthChange>=90) and (AzimuthChange<=180))) then    begin     Inc(SrcRGB1);    end;    if (j=135) and (AzimuthChange<180)) or ((AzimuthChange>=-180) and (AzimuthChange<=-90))) then    begin     Inc(SrcRGB2);    end;    Inc(SrcRGB);    Inc(DestRGB);   end;  end; end; procedure Emboss(Bmp:TBitmap;AzimuthChange:integer;ElevationChange:integer;WeightChange:integer);overload; var  DestBmp:TBitmap; begin 　　DestBmp:=TBitmap.Create; 　　DestBmp.Assign(Bmp); 　　Emboss(Bmp,DestBmp,AzimuthChange,ElevationChange,WeightChange); 　　Bmp.Assign(DestBmp); end; //反色 procedure Negative(Bmp:TBitmap); var  i, j: Integer;  PRGB: pRGBTriple; begin  Bmp.PixelFormat:=pf24Bit;  for i := 0 to Bmp.Height - 1 do  begin   PRGB := Bmp.ScanLine[i];   for j := 0 to Bmp.Width - 1 do   begin    PRGB^.rgbtRed :=not PRGB^.rgbtRed ;    PRGB^.rgbtGreen :=not PRGB^.rgbtGreen;    PRGB^.rgbtBlue :=not PRGB^.rgbtBlue;    Inc(PRGB);   end;  end; end; //曝光 procedure Exposure(Bmp:TBitmap); var  i, j: integer;  PRGB: pRGBTriple; begin  Bmp.PixelFormat:=pf24Bit;  for i := 0 to Bmp.Height - 1 do  begin   PRGB := Bmp.ScanLine[i];   for j := 0 to Bmp.Width - 1 do   begin    if PRGB^.rgbtRed<128 then     PRGB^.rgbtRed :=not PRGB^.rgbtRed ;    if PRGB^.rgbtGreen<128 then     PRGB^.rgbtGreen :=not PRGB^.rgbtGreen;    if PRGB^.rgbtBlue<128 then     PRGB^.rgbtBlue :=not PRGB^.rgbtBlue;    Inc(PRGB);   end;  end; end; //模糊 procedure Blur(SrcBmp:TBitmap); var  i, j:Integer;  SrcRGB:pRGBTriple;  SrcNextRGB:pRGBTriple;  SrcPreRGB:pRGBTriple;  Value:Integer;  procedure IncRGB;  begin   Inc(SrcPreRGB);   Inc(SrcRGB);   Inc(SrcNextRGB);  end;  procedure DecRGB;  begin   Inc(SrcPreRGB,-1);   Inc(SrcRGB,-1);   Inc(SrcNextRGB,-1);  end; begin  SrcBmp.PixelFormat:=pf24Bit;  for i := 0 to SrcBmp.Height - 1 do  begin   if i > 0 then    SrcPreRGB:=SrcBmp.ScanLine[i-1]   else    SrcPreRGB := SrcBmp.ScanLine[i];   SrcRGB := SrcBmp.ScanLine[i];   if i < SrcBmp.Height - 1 then    SrcNextRGB:=SrcBmp.ScanLine[i+1]   else    SrcNextRGB:=SrcBmp.ScanLine[i];   for j := 0 to SrcBmp.Width - 1 do   begin    if j > 0 then DecRGB;    Value:=SrcPreRGB.rgbtRed+SrcRGB.rgbtRed+SrcNextRGB.rgbtRed;    if j > 0 then IncRGB;    Value:=Value+SrcPreRGB.rgbtRed+SrcRGB.rgbtRed+SrcNextRGB.rgbtRed;    if j < SrcBmp.Width - 1 then IncRGB;    Value:=(Value+SrcPreRGB.rgbtRed+SrcRGB.rgbtRed+SrcNextRGB.rgbtRed) div 9;    DecRGB;    SrcRGB.rgbtRed:=value;    if j > 0 then DecRGB;    Value:=SrcPreRGB.rgbtGreen+SrcRGB.rgbtGreen+SrcNextRGB.rgbtGreen;    if j > 0 then IncRGB;    Value:=Value+SrcPreRGB.rgbtGreen+SrcRGB.rgbtGreen+SrcNextRGB.rgbtGreen;    if j < SrcBmp.Width - 1 then IncRGB;    Value:=(Value+SrcPreRGB.rgbtGreen+SrcRGB.rgbtGreen+SrcNextRGB.rgbtGreen) div 9;    DecRGB;    SrcRGB.rgbtGreen:=value;    if j > 0 then DecRGB;    Value:=SrcPreRGB.rgbtBlue+SrcRGB.rgbtBlue+SrcNextRGB.rgbtBlue;    if j > 0 then IncRGB;    Value:=Value+SrcPreRGB.rgbtBlue+SrcRGB.rgbtBlue+SrcNextRGB.rgbtBlue;    if j < SrcBmp.Width - 1 then IncRGB;    Value:=(Value+SrcPreRGB.rgbtBlue+SrcRGB.rgbtBlue+SrcNextRGB.rgbtBlue) div 9;    DecRGB;    SrcRGB.rgbtBlue:=value;    IncRGB;   end;  end; end; //锐化 procedure Sharpen(SrcBmp:TBitmap); var  i, j: integer;  SrcRGB: pRGBTriple;  SrcPreRGB: pRGBTriple;  Value: integer; begin  SrcBmp.PixelFormat:=pf24Bit;  for i := 0 to SrcBmp.Height - 1 do  begin   SrcRGB := SrcBmp.ScanLine[i];   if i > 0 then    SrcPreRGB:=SrcBmp.ScanLine[i-1]   else    SrcPreRGB:=SrcBmp.ScanLine[i];   for j := 0 to SrcBmp.Width - 1 do   begin    if j = 1 then Dec(SrcPreRGB);    Value:=SrcRGB.rgbtRed+(SrcRGB.rgbtRed-SrcPreRGB.rgbtRed) div 2;    Value:=Max(0,Value);    Value:=Min(255,Value);    SrcRGB.rgbtRed:=value;    Value:=SrcRGB.rgbtGreen+(SrcRGB.rgbtGreen-SrcPreRGB.rgbtGreen) div 2;    Value:=Max(0,Value);    Value:=Min(255,Value);    SrcRGB.rgbtGreen:=value;    Value:=SrcRGB.rgbtBlue+(SrcRGB.rgbtBlue-SrcPreRGB.rgbtBlue) div 2;    Value:=Max(0,Value);    Value:=Min(255,Value);    SrcRGB.rgbtBlue:=value;    Inc(SrcRGB);    Inc(SrcPreRGB);   end;  end; end;  [图像的旋转和翻转] 以下代码用ScanLine配合指针移动实现，用于24位色！ //旋转90度 procedure Rotate90(const Bitmap:TBitmap); var  i,j:Integer;  rowIn,rowOut:pRGBTriple;  Bmp:TBitmap;  Width,Height:Integer; begin  Bmp:=TBitmap.Create;  Bmp.Width := Bitmap.Height;  Bmp.Height := Bitmap.Width;  Bmp.PixelFormat := pf24bit;  Width:=Bitmap.Width-1;  Height:=Bitmap.Height-1;  for j := 0 to Height do  begin   rowIn := Bitmap.ScanLine[j];   for i := 0 to Width do   begin    rowOut := Bmp.ScanLine[i];    Inc(rowOut,Height - j);    rowOut^ := rowIn^;    Inc(rowIn);   end;  end;  Bitmap.Assign(Bmp); end; //旋转180度 procedure Rotate180(const Bitmap:TBitmap); var  i,j:Integer;  rowIn,rowOut:pRGBTriple;  Bmp:TBitmap;  Width,Height:Integer; begin  Bmp:=TBitmap.Create;  Bmp.Width := Bitmap.Width;  Bmp.Height := Bitmap.Height;  Bmp.PixelFormat := pf24bit;  Width:=Bitmap.Width-1;  Height:=Bitmap.Height-1;  for j := 0 to Height do  begin   rowIn := Bitmap.ScanLine[j];   for i := 0 to Width do   begin    rowOut := Bmp.ScanLine[Height - j];    Inc(rowOut,Width - i);    rowOut^ := rowIn^;    Inc(rowIn);   end;  end;  Bitmap.Assign(Bmp); end; //旋转270度 procedure Rotate270(const Bitmap:TBitmap); var  i,j:Integer;  rowIn,rowOut:pRGBTriple;  Bmp:TBitmap;  Width,Height:Integer; begin  Bmp:=TBitmap.Create;  Bmp.Width := Bitmap.Height;  Bmp.Height := Bitmap.Width;  Bmp.PixelFormat := pf24bit;  Width:=Bitmap.Width-1;  Height:=Bitmap.Height-1;  for j := 0 to Height do  begin   rowIn := Bitmap.ScanLine[j];   for i := 0 to Width do   begin    rowOut := Bmp.ScanLine[Width - i];    Inc(rowOut,j);    rowOut^ := rowIn^;    Inc(rowIn);   end;  end;  Bitmap.Assign(Bmp); end; //任意角度 function RotateBitmap(Bitmap:TBitmap;Angle:Integer;BackColor:TColor):TBitmap; var  i,j,iOriginal,jOriginal,CosPoint,SinPoint : integer;  RowOriginal,RowRotated : pRGBTriple;  SinTheta,CosTheta : Extended;  AngleAdd : integer; begin  Result:=TBitmap.Create;  Result.PixelFormat := pf24bit;  Result.Canvas.Brush.Color:=BackColor;  Angle:=Angle Mod 360;  if Angle<0 then Angle:=360-Abs(Angle);  if Angle=0 then   Result.Assign(Bitmap)  else if Angle=90 then  begin   Result.Assign(Bitmap);   Rotate90(Result);//如果是旋转90度，直接调用上面的代码  end  else if (Angle>90) and (Angle<180) then  begin   AngleAdd:=90;   Angle:=Angle-AngleAdd;  end  else if Angle=180 then  begin   Result.Assign(Bitmap);   Rotate180(Result);//如果是旋转180度，直接调用上面的过程  end  else if (Angle>180) and (Angle<270) then  begin   AngleAdd:=180;   Angle:=Angle-AngleAdd;  end  else if Angle=270 then  begin   Result.Assign(Bitmap);   Rotate270(Result);//如果是旋转270度，直接调用上面的过程  end  else if (Angle>270) and (Angle<360) then  begin   AngleAdd:=270;   Angle:=Angle-AngleAdd;  end  else   AngleAdd:=0;  if (Angle>0) and (Angle<90) then  begin  SinCos((Angle + AngleAdd) * Pi / 180, SinTheta, CosTheta);  if (SinTheta * CosTheta) < 0 then  begin   Result.Width := Round(Abs(Bitmap.Width * CosTheta - Bitmap.Height * SinTheta));   Result.Height := Round(Abs(Bitmap.Width * SinTheta - Bitmap.Height * CosTheta));  end  else  begin   Result.Width := Round(Abs(Bitmap.Width * CosTheta + Bitmap.Height * SinTheta));   Result.Height := Round(Abs(Bitmap.Width * SinTheta + Bitmap.Height * CosTheta));  end;  CosTheta:=Abs(CosTheta);  SinTheta:=Abs(SinTheta);  if (AngleAdd=0) or (AngleAdd=180) then  begin   CosPoint:=Round(Bitmap.Height*CosTheta);   SinPoint:=Round(Bitmap.Height*SinTheta);  end  else  begin   SinPoint:=Round(Bitmap.Width*CosTheta);   CosPoint:=Round(Bitmap.Width*SinTheta);  end;  for j := 0 to Result.Height-1 do  begin   RowRotated := Result.Scanline[j];   for i := 0 to Result.Width-1 do   begin    Case AngleAdd of     0:     begin      jOriginal := Round((j+1)*CosTheta-(i+1-SinPoint)*SinTheta)-1;      iOriginal := Round((i+1)*CosTheta-(CosPoint-j-1)*SinTheta)-1;     end;     90:     begin      iOriginal := Round((j+1)*SinTheta-(i+1-SinPoint)*CosTheta)-1;      jOriginal := Bitmap.Height-Round((i+1)*SinTheta-(CosPoint-j-1)*CosTheta);     end;     180:     begin      jOriginal := Bitmap.Height-Round((j+1)*CosTheta-(i+1-SinPoint)*SinTheta);      iOriginal := Bitmap.Width-Round((i+1)*CosTheta-(CosPoint-j-1)*SinTheta);     end;     270:     begin      iOriginal := Bitmap.Width-Round((j+1)*SinTheta-(i+1-SinPoint)*CosTheta);      jOriginal := Round((i+1)*SinTheta-(CosPoint-j-1)*CosTheta)-1;     end;    end;    if (iOriginal >= 0) and (iOriginal <= Bitmap.Width-1)and      (jOriginal >= 0) and (jOriginal <= Bitmap.Height-1)    then    begin     RowOriginal := Bitmap.Scanline[jOriginal];     Inc(RowOriginal,iOriginal);     RowRotated^ := RowOriginal^;     Inc(RowRotated);    end    else    begin     Inc(RowRotated);    end;   end;  end;  end; end; //水平翻转 procedure FlipHorz(const Bitmap:TBitmap); var  i,j:Integer;  rowIn,rowOut:pRGBTriple;  Bmp:TBitmap;  Width,Height:Integer; begin  Bmp:=TBitmap.Create;  Bmp.Width := Bitmap.Width;  Bmp.Height := Bitmap.Height;  Bmp.PixelFormat := pf24bit;  Width:=Bitmap.Width-1;  Height:=Bitmap.Height-1;  for j := 0 to Height do  begin   rowIn := Bitmap.ScanLine[j];   for i := 0 to Width do   begin    rowOut := Bmp.ScanLine[j];    Inc(rowOut,Width - i);    rowOut^ := rowIn^;    Inc(rowIn);   end;  end;  Bitmap.Assign(Bmp); end; //垂直翻转 procedure FlipVert(const Bitmap:TBitmap); var  i,j:Integer;  rowIn,rowOut:pRGBTriple;  Bmp:TBitmap;  Width,Height:Integer; begin  Bmp:=TBitmap.Create;  Bmp.Width := Bitmap.Height;  Bmp.Height := Bitmap.Width;  Bmp.PixelFormat := pf24bit;  Width:=Bitmap.Width-1;  Height:=Bitmap.Height-1;  for j := 0 to Height do  begin   rowIn := Bitmap.ScanLine[j];   for i := 0 to Width do   begin    rowOut := Bmp.ScanLine[Height - j];    Inc(rowOut,i);    rowOut^ := rowIn^;    Inc(rowIn);   end;  end;  Bitmap.Assign(Bmp); end; [亮度、对比度、饱和度的调整] 以下代码用ScanLine配合指针移动实现！ function Min(a, b: integer): integer; begin  if a < b then   result := a  else   result := b; end; function Max(a, b: integer): integer; begin  if a > b then   result := a  else   result := b; end; //亮度调整 procedure BrightnessChange(const SrcBmp,DestBmp:TBitmap;ValueChange:integer); var  i, j: integer;  SrcRGB, DestRGB: pRGBTriple; begin  for i := 0 to SrcBmp.Height - 1 do  begin   SrcRGB := SrcBmp.ScanLine[i];   DestRGB := DestBmp.ScanLine[i];   for j := 0 to SrcBmp.Width - 1 do   begin    if ValueChange > 0 then    begin     DestRGB.rgbtRed := Min(255, SrcRGB.rgbtRed + ValueChange);     DestRGB.rgbtGreen := Min(255, SrcRGB.rgbtGreen + ValueChange);     DestRGB.rgbtBlue := Min(255, SrcRGB.rgbtBlue + ValueChange);    end else begin     DestRGB.rgbtRed := Max(0, SrcRGB.rgbtRed + ValueChange);     DestRGB.rgbtGreen := Max(0, SrcRGB.rgbtGreen + ValueChange);     DestRGB.rgbtBlue := Max(0, SrcRGB.rgbtBlue + ValueChange);    end;    Inc(SrcRGB);    Inc(DestRGB);   end;  end; end; //对比度调整 procedure ContrastChange(const SrcBmp,DestBmp:TBitmap;ValueChange:integer); var  i, j: integer;  SrcRGB, DestRGB: pRGBTriple; begin  for i := 0 to SrcBmp.Height - 1 do  begin   SrcRGB := SrcBmp.ScanLine[i];   DestRGB := DestBmp.ScanLine[i];   for j := 0 to SrcBmp.Width - 1 do   begin    if ValueChange>=0 then    begin    if SrcRGB.rgbtRed >= 128 then     DestRGB.rgbtRed := Min(255, SrcRGB.rgbtRed + ValueChange)    else     DestRGB.rgbtRed := Max(0, SrcRGB.rgbtRed - ValueChange);    if SrcRGB.rgbtGreen >= 128 then     DestRGB.rgbtGreen := Min(255, SrcRGB.rgbtGreen + ValueChange)    else     DestRGB.rgbtGreen := Max(0, SrcRGB.rgbtGreen - ValueChange);    if SrcRGB.rgbtBlue >= 128 then     DestRGB.rgbtBlue := Min(255, SrcRGB.rgbtBlue + ValueChange)    else     DestRGB.rgbtBlue := Max(0, SrcRGB.rgbtBlue - ValueChange);    end    else    begin    if SrcRGB.rgbtRed >= 128 then     DestRGB.rgbtRed := Max(128, SrcRGB.rgbtRed + ValueChange)    else     DestRGB.rgbtRed := Min(128, SrcRGB.rgbtRed - ValueChange);    if SrcRGB.rgbtGreen >= 128 then     DestRGB.rgbtGreen := Max(128, SrcRGB.rgbtGreen + ValueChange)    else     DestRGB.rgbtGreen := Min(128, SrcRGB.rgbtGreen - ValueChange);    if SrcRGB.rgbtBlue >= 128 then     DestRGB.rgbtBlue := Max(128, SrcRGB.rgbtBlue + ValueChange)    else     DestRGB.rgbtBlue := Min(128, SrcRGB.rgbtBlue - ValueChange);    end;    Inc(SrcRGB);    Inc(DestRGB);   end;  end; end; //饱和度调整 procedure SaturationChange(const SrcBmp,DestBmp:TBitmap;ValueChange:integer); var   Grays: array[0..767] of Integer;  Alpha: array[0..255] of Word;  Gray, x, y: Integer;  SrcRGB,DestRGB: pRGBTriple;  i: Byte; begin ValueChange:=ValueChange+255; for i := 0 to 255 do  Alpha[i] := (i * ValueChange) Shr 8; x := 0; for i := 0 to 255 do begin   Gray := i - Alpha[i];  Grays[x] := Gray;  Inc(x);  Grays[x] := Gray;  Inc(x);  Grays[x] := Gray;  Inc(x); end;  for y := 0 to SrcBmp.Height - 1 do begin  SrcRGB := SrcBmp.ScanLine[Y];  DestRGB := DestBmp.ScanLine[Y];  for x := 0 to SrcBmp.Width - 1 do  begin   Gray := Grays[SrcRGB.rgbtRed + SrcRGB.rgbtGreen + SrcRGB.rgbtBlue];   if Gray + Alpha[SrcRGB.rgbtRed]>0 then    DestRGB.rgbtRed := Min(255,Gray + Alpha[SrcRGB.rgbtRed])   else    DestRGB.rgbtRed := 0;   if Gray + Alpha[SrcRGB.rgbtGreen]>0 then    DestRGB.rgbtGreen := Min(255,Gray + Alpha[SrcRGB.rgbtGreen])   else    DestRGB.rgbtGreen := 0;   if Gray + Alpha[SrcRGB.rgbtBlue]>0 then    DestRGB.rgbtBlue := Min(255,Gray + Alpha[SrcRGB.rgbtBlue])   else    DestRGB.rgbtBlue := 0;   Inc(SrcRGB);   Inc(DestRGB);  end; end;  end; //RGB调整 procedure RGBChange(SrcBmp,DestBmp:TBitmap;RedChange,GreenChange,BlueChange:integer); var  SrcRGB, DestRGB: pRGBTriple;  i,j:integer; begin  for i := 0 to SrcBmp.Height- 1 do  begin   SrcRGB := SrcBmp.ScanLine[i];   DestRGB :=DestBmp.ScanLine[i];   for j := 0 to SrcBmp.Width - 1 do   begin    if RedChange> 0 then     DestRGB.rgbtRed := Min(255, SrcRGB.rgbtRed + RedChange)    else     DestRGB.rgbtRed := Max(0, SrcRGB.rgbtRed + RedChange);    if GreenChange> 0 then     DestRGB.rgbtGreen := Min(255, SrcRGB.rgbtGreen + GreenChange)    else     DestRGB.rgbtGreen := Max(0, SrcRGB.rgbtGreen + GreenChange);    if BlueChange> 0 then     DestRGB.rgbtBlue := Min(255, SrcRGB.rgbtBlue + BlueChange)    else     DestRGB.rgbtBlue := Max(0, SrcRGB.rgbtBlue + BlueChange);    Inc(SrcRGB);    Inc(DestRGB);   end;  end; end; [颜色调整] //RGB<=>BGR procedure RGB2BGR(const Bitmap:TBitmap); var   X: Integer;   Y: Integer;  PRGB: pRGBTriple;  Color: Byte; begin  for Y := 0 to (Bitmap.Height - 1) do  begin   for X := 0 to (Bitmap.Width - 1) do   begin    Color := PRGB^.rgbtRed;    PRGB^.rgbtRed := PRGB^.rgbtBlue;    PRGB^.rgbtBlue := Color;    Inc(PRGB);   end;   end  end; end; //灰度化(加权) procedure Grayscale(const Bitmap:TBitmap); var   X: Integer;   Y: Integer;   PRGB: pRGBTriple;  Gray: Byte; begin  for Y := 0 to (Bitmap.Height - 1) do  begin   PRGB := Bitmap.ScanLine[Y];   for X := 0 to (Bitmap.Width - 1) do   begin    Gray := (77 * Red + 151 * Green + 28 * Blue) shr 8;    PRGB^.rgbtRed:=Gray;    PRGB^.rgbtGreen:=Gray;    PRGB^.rgbtBlue:=Gray;    Inc(PRGB);   end;  end; end;