DGL • Thema anzeigen - TColor zu RGB

TColor zu RGB

Moderator: DGL-Team

Seite 1 von 1

[ 4 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

HomerS

Betreff des Beitrags: TColor zu RGB

Verfasst: Do Jan 02, 2003 18:16

DGL Member

Registriert: Sa Nov 02, 2002 18:06
Beiträge: 299
Wohnort: Dresden

Hi,
Ich hab ein Problem. Und zwar will ich einen TColor Wert (von Canvas.Pixels[x, y]) in RGB umwandeln, sodass ich die drei Werte in drei verschiedenen Variablen hab (bzw. in einem Record). Und dann will ich drei Variablen (RGB) zurück in die die TColor Form bekommen. Ich weiß das es die Methode ColortoRGB gibt, doch ich weiß nicht, wie man die benutzt.
MfG HomerS

P.S. Wenn es geht ohne OpenGL sondern nur mit der Standartunit (Graphics)

_________________
"Ich würde ja gern die Welt verändern, aber Gott gibt mir den Quelltext nicht"

Nach oben

lithander

Betreff des Beitrags:

Verfasst: Do Jan 02, 2003 19:06

DGL Member

Registriert: Mo Mai 06, 2002 20:27
Beiträge: 479
Wohnort: Bremen

Um einen TColorwert in RGB umzuwandeln kannst du folgenden Code benutzen, dabei ist l ein LongInt und r,g,b jeweils ein byte.

Code:

 
l := ColorToRGB(cl);
 
r := L and $FF;
 
g := (L shr 8) and $FF;
 
b := (L shr 16) and $FF;

Und daraus kann man auch ganz leicht wieder einene TColor wert machen... (c ist TColor r,g,b s.o.)

Code:

c   := b shl 16 or g shl 8 or r;

p.s.: habs net getestet... also ohne garantie

_________________
Selber Denken macht klug!

Nach oben

sordit

Betreff des Beitrags:

Verfasst: Mi Jan 08, 2003 19:51

DGL Member

Registriert: Mo Jan 06, 2003 21:22
Beiträge: 1
Wohnort: Unna

Wenn man die Werte für R,G & B einzeln haben will kann man auch folgende Befehle nutzen:

Code:

 
meinefarbe: TColor;
 
rot, gruen, blau: byte;
 
rot := getrvalue(meinefarbe);
 
gruen := getgvalue(meinefarbe);
 
blau := getbvalue(meinefarbe);

Nach oben

Mari

Betreff des Beitrags:

Verfasst: Do Jan 09, 2003 15:27

DGL Member

Registriert: Mi Sep 04, 2002 21:26
Beiträge: 63

Und um die drei Werte wieder in TColor zu bekommen:

Code:

meinefarbe := RGB(rot,gruen,blau);

Nach oben

Seite 1 von 1

[ 4 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 7 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.