Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Schwarz = Schwarz oder doch nur 80% Schwarz?

    Delphi
    by shmia, 14. Aug 2007
  Folgende Funktion gibt die Helligkeit als Wert zwischen 0 und 255 zurück.
  Die einzelnen Farbanteile werden unterschiedlich stark gewichtet (menschliches Auge ist grünempfindlich).
  function Intensity(Color: TColor): Integer;
  begin
  Color := ColorToRGB(Color);
  Result := GetBValue(Color) * 21 // Blue
  + GetGValue(Color) * 174 // Green
  + GetRValue(Color) * 61; // Red
  ...