Ergebnis der Suchanfrage

• Forum: Library: Grafik / Sound / Multimedia

  RGB -> TColor -> RGB

    Delphi
    by sakura, 13. Apr 2003
  Wird ja oft genug nach gefragt ;-) Und nicht alle brauchen gleich die HTML Lösung, also, hier ist die einfache Variante.
  
  function RGB2TColor(const R, G, B: Byte): Integer;
  begin
  // convert hexa-decimal values to RGB
  Result := R + G shl 8 + B shl 16;
  end;
  
  
  procedure TColor2RGB(const Color: TColor; var R, G, B: Byte);