Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  Re: farbverlauf in %

   
    by shmia, 2. Feb 2009
  Nun die Funktion GetColor() macht doch nichts anderes als:
  farbe := ColorsBetween(, prozent / 100.0);Wenn du irgendwann mal die Farben Rot, Gelb und Grün ändern möchtest, dann bist du doch mit der ColorsBetween()-Funktion viel besser bedient.
  Ausserdem liefert GetColor() stufige Farben, weil der Farbraum nicht komplett abgedeckt wird.
  Mit ColorsBetween() bekommt man einen völlig gleichmässigen...
• Forum: Win32/Win64 API (native code)

  Re: farbverlauf in %

   
    by shmia, 2. Feb 2009
  Hast du dir den Beitrag in der Code-Library wirklich gut angeschaut?
  Ganz besonders die 2. Funktion:
  // Farbe zwischen beliebig vielen vorgegebenen Farbwerten berechnen
  function ColorsBetween(colors:array of TColor; blend:Real):TColor;
  Mit dieser Funktion kannst du die schönsten Farbverläufe berechnen.
  Wenn du z.B. Rot nach Gelb zu Grün haben willst, dann wäre der Aufruf:
  farbe :=...
• Forum: Win32/Win64 API (native code)

  Re: farbverlauf in %

   
    by shmia, 30. Jan 2009
  Die einzigste Funktion, die aus Unit Graphics benötigt wird, ist diese:
  
  type
  PColor = ^TColor;
  TColor = -$7FFFFFFF-1..$7FFFFFFF;
  ...
  function ColorToRGB(Color: TColor): Longint;
  begin
  if Color < 0 then
  Result := GetSysColor(Color and $000000FF) else
• Forum: Win32/Win64 API (native code)

  Re: farbverlauf in %

   
    by shmia, 30. Jan 2009
  Das Brechnen eines Farbverlauf IST nonVCL.
  Erst beim 2. Schritt; also das Zeichnen der Farbe auf einem Fenster gibt es Unterschiede zwischen VCL und nonVCL.
• Forum: Win32/Win64 API (native code)

  Re: farbverlauf in %

   
    by shmia, 30. Jan 2009
  Code-Library: Farbverlauf berechnen