RGB-Farben ändern ?

[himitsu]

Delphi-Quellcode:

Var R, G, B: Byte;
  Farbe: TColor;
  HD: ShortInt;  { -100..0 = dunkler }
                 {  0..100 = heller  }

R := (Farbe and $000000FF);
G := (Farbe and $0000FF00) shr 8;
B := (Farbe and $00FF0000) shr 16;

If HD < 0 Then Begin
  R := R + (R * HD div 100);
  G := G + (G * HD div 100);
  B := B + (B * HD div 100);
End Else Begin
  R := R + ((255 - R) * HD div 100);
  G := G + ((255 - G) * HD div 100);
  B := B + ((255 - B) * HD div 100);
End;

{Farbe := R or (G shl 8) or (B shl 16);}
Farbe := RGB(R, G, B);

Angaben ohne Gewähr


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif