|
Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
Delphi 12 Athens
|
16. Jan 2003, 15:44
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);
....
...  ...
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
|