Ich weiß nicht inwiefern das hier noch eine Rolle spielt, aber die subjektiv empfundene Helligkeit hängt auch von der Farbe ab. Ich weiß schon gar nicht mehr wo das bei mir zum Einsatz kommt, aber ich habe noch das hier gefunden:
Delphi-Quellcode:
uses Vcl.Graphics,
Winapi.Windows;
type
TColorHelper =
record helper
for Vcl.Graphics.TColor
public function getPerceptiveLuminance(): Single;
end;
function TColorHelper.getPerceptiveLuminance(): Single;
begin
Result :=
// Nach https://en.wikipedia.org/w/index.php?title=Relative_luminance&oldid=634803879
GetRValue(self) * 0.2126
+ GetGValue(self) * 0.7152
+ GetBValue(self) * 0.0722;
end;