Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Näherung zu einer Farbe (https://www.delphipraxis.net/88594-naeherung-zu-einer-farbe.html)

Tumm 17. Mär 2007 19:36


Näherung zu einer Farbe
 
Hi

Ich würde gerne, dass eine Farbe berechnet wird. Ich habe zwei Farben: Dunkelgrau(clGray) und Rot(clred). Nun würde ich gerne dass das Programm immer eine Farbe berechnet, die ein bisschen näher an Rot dranliegt. Mitm Timer würde ich dann gerne eine saubere Blinkfunktion hinkriegen.

Geht sowas mit dem "Farben nähern"? Wenn ja, wie ;)?

Jelly 17. Mär 2007 19:48

Re: Näherung zu einer Farbe
 
Die Farben liegen z.B. als RBG vor. In Delphi gibts dafür Funktionen, um die 3 rot-blau-grün Werte einer Farbe aufzusplitten. z.b. ist:

Rot = (255,0,0)
Grau = (128,128,128)

Du willst von einer Farbe in die nächste "faden". Gib dir dafür eine Schrittzahl z an (z.B. z=10), und errechne für jeden Kanal die Schrittweite mit

Delphi-Quellcode:
r := (255-128) / z ;
g := (0-128) / z ;
b := (0-128) / z ;
Von Grau nach rot

Delphi-Quellcode:
for i := 0 to z do begin
   r2 := r_grau + i*r ;
   g2 := g_grau + i*g ;
   b2 := b_grau + i*b ;
end ;
So in etwas...

Tumm 17. Mär 2007 19:51

Re: Näherung zu einer Farbe
 
wie kriege ich denn die rgb werte eines colors?

Matze 17. Mär 2007 20:16

Re: Näherung zu einer Farbe
 
Mit Delphi so: http://www.delphipraxis.net/internal...ect.php?t=4498


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:17 Uhr.

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