Plus d'image modifier en Delphi ( la formule de la couleur est mentionner plus bas )
(quelque images ont été réduit..)

 

Julia Roberts  
If (r in [180..148]) and (r>b) and (r>g) then
  if r-27 >= 0 then r:=r-27;
  if b+255<= 255 then b:=b+54;
 

Christina Aguilera

If (r>g) and (r>b) and (r in [30..200]) and (r-g>34) and (r-b>34) then
 cc:=22; If r+cc < 256 then r:=r+cc

 

Kelly Clarkson
 
If (r in [30..130]) and (g in [40..104]) and (b in [10..100]) then
  cc:=53; If b<255-cc then b:=b+cc; If g<255-cc then g:=g+cc;
pleine écran
 
Christina Aguilera If (r<113) and (g<112) and (b<95) and (g-r<10) then
  cc:=25; If r>cc then dec(r,cc); If g>cc then dec(g,cc)
  If b>cc then dec(b,cc)  Pleine écran