was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

46 Visitors Online


 
...zu einer RGB Farbe die dazugehörige Graustufe herausfinden?
Autor: H.Kniebusch@gmx.de
Homepage: http://www.the-admin.de.vu
[ Tip ausdrucken ]  

Tip Bewertung (3):  
     


{
  The following function helps you to convert a RGB Color to Grayscale.
  It works after the american NTSC (National Televisision Standards Committee)
  system.
}

{
  Mit Hilfe des folgenden Codes lässt sich die Graustufe einer
  beliebigen RGB Farbe herausfinden. Das System arbeitet nach dem
  vom amerikanischem NTSC (National Televisision Standards Committee)
  vorgelschlagenem System.
  Es kann unteranderem dazu verwendet werden ein Bild in Graustufen
  darzustellen. (siehe dazu Tipp http://www.swissdelphicenter.ch/de/showcode.php?id=437)
}


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;

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners