Thema: Delphi RGB nach HSV und zurück

Einzelnen Beitrag anzeigen

Benutzerbild von Aya
Aya

Registriert seit: 24. Jul 2003
Ort: Kassel
138 Beiträge
 
Delphi 6 Professional
 
#5

Re: RGB nach HSV und zurück

  Alt 28. Jul 2005, 02:26
Hi,

bei RGBtoHSV mußt du die RGB werte in einem bereich von 0..1 übergeben und bekommst als rückgabewert einen TColorHSV.

Da kannst du dann so drauf zugreifen:

Delphi-Quellcode:
var
  color: TColorHSV;
  h, s, v: Extended;
begin
  color:=RGBtoHSV(1, 0, 0);
  h:=color.h;
  s:=color.s;
  v:=color.v;
end;
Au'revoir,
Aya~
I aim for my endless dreams and I know they will come true!
S: String = #86^)^3^)^4#58#32^(^4^4^0#58#47#47^7^7^7#46^+^/^3^(^)^'^!^9^!#46^$^%;
  Mit Zitat antworten Zitat