Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi glColor4f Konvertieren (https://www.delphipraxis.net/115330-glcolor4f-konvertieren.html)

EWeiss 10. Jun 2008 14:36


glColor4f Konvertieren
 
wie kann ich bsp..
glColor4f(1, 1, 1, 1);

nach DWORD(ARGB) konvertieren ?
kann zwar direkt einen wert in rgb übergeben $397AC4 (leicht blau)
aber dann fehlt mir der alpha wert

gruss Emil

littleDave 10. Jun 2008 14:45

Re: glColor4f Konvertieren
 
Also die Reihenfolge bzw die Interpretation der Farbwerte (RGB/BGR/usw) lässt sich nicht ändern. Aber du kannst einen Work-Around für dein Problem erstellen
Delphi-Quellcode:
var aColor : DWORD;
begin
  aColor = $397AC4FF;
  glColor4bv(@aColor);
end;
Mit glColor4bv gibst du an, dass 4 Byte-Werte folgen. Mit dem glColor4bv gibst du an, dass du einen Pointer auf einen Speicherbereich übergibst, der die Parameter in der Reihenfolge RGBA hat.

Die Farbwerte in aColor sind jetzt:
$39: Rotanteil zwischen 0 und 255 in hex
$7A: Grünanteil zwischen 0 und 255 in hex
$C4: Blauanteil zwischen 0 und 255 in hex
$FF: Alpha-Wert zwischen 0 und 255 in hex

EWeiss 10. Jun 2008 14:48

Re: glColor4f Konvertieren
 
Zitat:

Zitat von littleDave
Also die Reihenfolge bzw die Interpretation der Farbwerte (RGB/BGR/usw) lässt sich nicht ändern. Aber du kannst einen Work-Around für dein Problem erstellen
Delphi-Quellcode:
var aColor : DWORD;
begin
  aColor = $397AC4FF;
  glColor4bv(@aColor);
end;
Mit glColor4bv gibst du an, dass 4 Byte-Werte folgen. Mit dem glColor4bv gibst du an, dass du einen Pointer auf einen Speicherbereich übergibst, der die Parameter in der Reihenfolge RGBA hat.

Die Farbwerte in aColor sind jetzt:
$39: Rotanteil zwischen 0 und 255 in hex
$7A: Grünanteil zwischen 0 und 255 in hex
$C4: Blauanteil zwischen 0 und 255 in hex
$FF: Alpha-Wert zwischen 0 und 255 in hex

Danke hätte ich nicht gewußt.

gruss Emil


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:49 Uhr.

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