Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Farbwert

    Delphi
    by himitsu, 24. Feb 2005
  @Steve: Klar kenn ich diese "netten Funktionen, allerdings weigere ich mich wehement gegen "sinnlose" Funktionen.
  
  Wozu soll das Programm 'ne Funktion aufrufen (mit Parameterübergaber, Sprüngen...), wenn es ein einfaches Shift auch macht :zwinker:
  
  
  
  OT: Außerdem lernt man auf diese Weiße auch gleich mal den Aufbau verschiedenster Datentypen kennen, was ja in diesem Fall eventuell sogar zu...
• Forum: Multimedia

  Re: Farbwert

    Delphi
    by himitsu, 23. Feb 2005
  Also Delphi und HTML haben eine andere Reinfolge bei den Farbwerten (wenn ich das noch richtig weiß), also muß das 1. und 3. Byte getauscht werden.
  
  RGB <> BGR
  
  function ColorToHex(Col: TColor): String;
  begin
  Result := '#' + IntToHex(Byte(Col), 2) +
  IntToHex(Byte(Col shr 8), 2) +
  IntToHex(Byte(Col shr 16), 2);
  end;