Bild in Graustufen umwandeln

[Mirilin]

Ich hab im SwissDelphiCenter
Dies hier gefunden :

Delphi-Quellcode:

function*GetGreyScale(red,*blue,*green:*TColor):*TColor; 
var* 
**Color:*Integer; 
begin 
**Color*:=*Round(red***0.56*+*green***0.33*+*blue***0.11); 
**Result*:=*RGB(Color,*Color,*Color); 
end;

In den Kommentaren zum Beitrag findest du auch noch dies :

Gray:=round((r+g+b)/3); und
Gray:=round(sqrt(r*r+g*g+b*b));