Vista/Win7 Aero Farbe auslesen

[Corpsman]

Delphi-Quellcode:

// Überprüfen ob die RGB-Werte zulässig sind
  if r < 0 then r := 0;
  if g < 0 then g := 0;
  if b < 0 then b := 0;

  if r > 255 then r := 255;
  if g > 255 then g := 255;
  if b > 255 then b := 255;

wie sieht den das aus mach doch einfach

Delphi-Quellcode:

// Überprüfen ob die RGB-Werte zulässig sind
  r := min(255, max(0, r));
  g := min(255, max(0, g));
  b := min(255, max(0, b));

Dank Inlining ist das genau so schnell, und sieht irgendwie hübscher aus