Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Messwerte mit Farbe darstellen (https://www.delphipraxis.net/70066-messwerte-mit-farbe-darstellen.html)

blue_idea 24. Mai 2006 14:49


Messwerte mit Farbe darstellen
 
Hallo!

I stehe vor folgenden Problem: Ich habe ein array mit 100 Messwerten, im Bereich von 0 bis 255, nun möchte ich diese Werte auf der Image Komponente mit Farbe darstellen,

code um ein Pixel mit Farbe darzustellen:

Delphi-Quellcode:
Image1.Canvas.Pixels[x,y] := clFarbe
Kann mir da jemand helfen das ich die Array Werte mit Farbe ausgeben kann.

Farbpalette:
0 ...Farbe Schwarz
255 ... Farbe Weiß
Werte die dazwischen liegen sollen angepasst werden.
Hat jemand einen Lösungsvorschlag ?

Danke im voraus !

mfg

Hawkeye219 24. Mai 2006 15:09

Re: Messwerte mit Farbe darstellen
 
Hallo!

Zwischen schwarz und weiß liegen nicht besonders viele Farben im eigentlichen Sinn, vielleicht meinst du Graustufen. In diesem Fall ist es einfach:

Delphi-Quellcode:
Image1.Canvas.Pixels[x,y] := RGB(Messwert, Messwert, Messwert);
Wenn r-, g- und b-Anteil bei einer Farbe gleich sind, erhält man eine Graustufe.

Gruß Hawkeye

Igotcha 24. Mai 2006 15:19

Re: Messwerte mit Farbe darstellen
 
Zitat:

Zitat von Hawkeye219
Hallo!

Zwischen schwarz und weiß liegen nicht besonders viele Farben im eigentlichen Sinn...

Liegen dazwischen nicht gerade alle Farben?

Gruß Igotcha

ste_ett 24. Mai 2006 15:28

Re: Messwerte mit Farbe darstellen
 
Nein, wenn alle drei Farben denselben Wert haben, ergibt sich ein "weiss<->grau<->schwarz"-Verlauf. :)

shmia 24. Mai 2006 17:28

Re: Messwerte mit Farbe darstellen
 
Schau mal hier:
http://www.delphipraxis.net/internal...ct.php?t=67805
Die Farbe errechnet sich dann so:
Delphi-Quellcode:
farbe := ColorBetween(clBlack, clWhite, messwert / 255.0):
Wenn du einen Regenbogen willst, dann schnapp dir die Unit SpectraLibrary.pas
aus http://www.efg2.com/Lab/Library/Delp...ColorLines.ZIP

Hawkeye219 24. Mai 2006 18:26

Re: Messwerte mit Farbe darstellen
 
Zitat:

Zitat von shmia
Die Farbe errechnet sich dann so:
Delphi-Quellcode:
farbe := ColorBetween(clBlack, clWhite, messwert / 255.0):

Worin besteht der Vorteil dieser Lösung gegenüber der direkten Nutzung des Meßwertes?

bastischo 24. Mai 2006 22:50

Re: Messwerte mit Farbe darstellen
 
Ich fürchte, ein solcher Vorteil ist nicht vorhanden.

Igotcha 25. Mai 2006 00:13

Re: Messwerte mit Farbe darstellen
 
Zitat:

Zitat von ste_ett
Nein, wenn alle drei Farben denselben Wert haben, ergibt sich ein "weiss<->grau<->schwarz"-Verlauf. :)

Da stimmt aber nur bei seinem Beispiel, wo er von Grauwerten ausgeht - was der Fragesteller aber nie gesagt hat ;-)

Hawkeye219 25. Mai 2006 01:33

Re: Messwerte mit Farbe darstellen
 
@Igotcha

Du hast Recht, es war meine Interpretation, weil ich Begriffe wie "Regenbogen" in seiner Frage vermißt habe. Für solche Fälle sollte man den Hinweis von shmia beachten. Wenn lediglich ein Grauverlauf gesucht ist, kann man die Meßwerte direkt als Farbanteil nutzen.

Gruß Hawkeye

blue_idea 25. Mai 2006 20:23

Re: Messwerte mit Farbe darstellen
 
DANKE!

Danke für die zahlreichen Antworten, hat super geklappt !

mfg mitch


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:00 Uhr.
Seite 1 von 2  1 2      

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