Farbwerte

[nailor]

Ich habe Werte von X bis Y.
Wie kann ich jetzt X weiß, Y schwarz und den Werten dazwischen die jeweilige Graustufe zuweisen?

[CalganX]

In etwa so:

Delphi-Quellcode:

x := $00000000;  // weiß
y := $00ffffff;  // schwarz
for i := x to y do begin
  irgendwas := i;
end;

Keine Ahnung ob das geht...

Chris

[sakura]

Folgender Codeauszug verdeutlicht den Aufbau einer Farbtabelle mit 256 Graustufen.

Delphi-Quellcode:

type
  TGrayValues = array[0..255] of TColor;

....

var
  I: Byte;
  Grays: TGrayValues;
begin
  for I := 0 to 255 do
    Grays[I] := (I shl 16) or (I shl 8) or (I);
  ....

......