RGB werte einer Farbe ermitteln

[XeRo]

Hi. Ich würde gern die RGB werte einer Farbe ermitteln und sie in 3 Variablen(r,g,b:Integer) speichern.

Leider habe ich keinen befehl gefunden mit dem ich das kann und der Befehl ColorToString hat mir auch nicht viel gebracht weil ich nicht weiß wie man das umrechnen muss...

[XeRo]

Hab grad durch zufälliges Surfen den Befehl "GetRValue" gefunden...denke das ist das richtige :oops:

[dahead]

RGB

http://www.delphipraxis.net/internal...&highlight=rgb

[dahead]

das "zufällige" surfen nennt man suchen. sollte man immer machen, bevor man einen thread eröffnet.

[XeRo]

Tja... :stupid:

[leddl]

Und genauso sollte man seine Posts auch einfach editieren, wenn man innerhalb von wenigen, bzw einer Minute mehrmals postet. :roll:

[ste_ett]

Delphi-Quellcode:

procedure RGBToByte(Color: TColor; var R, G, B: Byte);
begin
  R := Byte(Color);
  Color := Color shr 8;
  G := Byte(Color);
  Color := Color shr 8;
  B := Byte(Color);
end;