Thema: Delphi Farbwerte

Einzelnen Beitrag anzeigen

Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: München
11.586 Beiträge
 
Delphi 10.4 Sydney
 
#3
  Alt 16. Jan 2003, 14: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 W.
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat