Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Farbpalette erstellen?

    Delphi
    by neolithos, 16. Feb 2004
  *ups*
  
  Das liegt daran das sie bei Delphi nicht existiert.
  
  function GetMixColor(adwStartColor, adwStopColor : Cardinal; afPos : Extended) : Cardinal;
  function Clc(abStart, abStop : Byte) : Byte;
  begin
  Result := abStart + Round((abStop - abStart) * afPos);
  end;
  begin
• Forum: Multimedia

  Re: Farbpalette erstellen?

    Delphi
    by neolithos, 16. Feb 2004
  procedure TForm1.cmdRGBtoHSVClick(Sender: TObject);
  var iDelta,
  iMax,
  iMin,
  h, s, v : Double;
  r, g, b : Byte;
  begin
  r := StrToInt(txtR.Text);
  g := StrToInt(txtG.Text);
  b := StrToInt(txtB.Text);