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:

markieren

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.

zusammenfalten · markieren

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);

  ....

...

nailor Registriert seit: 12. Dez 2002 Ort: Karlsruhe 1.989 Beiträge	#1 Farbwerte 16. Jan 2003, 14:46 Ich habe Werte von X bis Y. Wie kann ich jetzt X weiß, Y schwarz und den Werten dazwischen die jeweilige Graustufe zuweisen? Michael N. http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen! ::: don't try so hard - it'll happen for a reason :::
	Zitat

CalganX Registriert seit: 21. Jul 2002 Ort: Bonn 5.403 Beiträge Turbo Delphi für Win32	#2 16. Jan 2003, 14:50 In etwa so: markieren Delphi-Quellcode: x := $00000000; // weiß y := $00ffffff; // schwarz for i := x to y do begin irgendwas := i; end; Keine Ahnung ob das geht... Chris
	Zitat

sakura Registriert seit: 10. Jun 2002 Ort: Unterhaching 11.412 Beiträge Delphi 12 Athens	#3 16. Jan 2003, 15:44 Folgender Codeauszug verdeutlicht den Aufbau einer Farbtabelle mit 256 Graustufen. zusammenfalten · markieren 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
	Zitat

Farbwerte

Farbwerte

Forumregeln