Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Farbwerte (https://www.delphipraxis.net/2295-farbwerte.html)

nailor 16. Jan 2003 13:46


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

CalganX 16. Jan 2003 13:50

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 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);
  ....
...:cat:...


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:41 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf