Discussion :

[Invité]

Bonjour,

Je voulais utiliser une couleur définie en RVB 152-201-250 (Conversion en Hexa : 98-C9-FA).

En Lazarus :
clBleuMoyen := RGBToColor(152,201,250);
ou
clBleuMoyen := TColor($FAC998); (ou $00FAC998)

J'ignorais qu'il fallait déclarer TColor(B, G, R) et non TColor(R, G, B)
C'est vrai qu'en regardant "simplement" clAqua Tcolor(FF,FF,0) ie 0,255,255, on peut s'en rendre compte "facilement"... avec un minimum d'attention.

Je ne me rappelle pas avoir lu quoi que ce soit à ce niveau et par paresse (pour m'éviter 3 conversions en hexa), j'utilise RGBToColor ou les clAbrev prédéfinies. Mais dans ce cas précis, je devais déclarer des "nuances" de couleurs comme constantes donc exit les (mauvaises) habitudes.

La documentation de Lazarus à ce sujet n'est pas explicite et entretient même la confusion :

OVERVIEW
The standard color in the LCL is TColor, which is compatible to Delphi's TColor. TColor can be an RGB, 3x8bit, value or a system color like clDefault.
Source

Pourquoi diable cette inversion dans la suite des couleurs du TColor ? C'est compatible Delphi précise la documentation de Lazarus. C'est donc visiblement un emprunt d'usage. C'est un peu court comme explication.

Cordialement. Gilles

[tourlourou]

possible que ce soit lié à l'Endianess de Delphi/Intel, qui stocke les entiers avec les poids faible en tête (alignement Little Endian), donc une représentation mémoire RGB(+/-alpha)

[Invité]

Oui, c'est une explication rationnelle et fort plausible compte tenu de la concomitance de Borland, Windows et Intel.

Si tel est le cas, sans échapper à ses origines, "on" aurait pu faire l'effort de respecter une standardisation "humaine". C'est très curieux cette approche.

Merci beaucoup.
Bonne Fin de WE.
Cordialement. Gilles

[Ph. B.]

Bonjour,

Pourquoi diable cette inversion dans la suite des couleurs du TColor ? C'est compatible Delphi précise la documentation de Lazarus. C'est donc visiblement un emprunt d'usage. C'est un peu court comme explication.

Ah bon ? Dès le tout début, Lazarus avait pour but de ressembler le plus possible à Delphi, voire d'en être un clône (cf. wiki)

J'ignorais qu'il fallait déclarer TColor(B, G, R) et non TColor(R, G, B)

Ce n'est pas tout à fait cela, mais plutot TColor($00BGR) ou TColor($BGR) où la valeur hexa se décompose en 4 octets dont les 3 derniers (le lisant le texte de gauche à droite) contiennent les valeurs pour le Bleu, le Vert et le Rouge.
Dans Delphi, on a pas RGBToColor(R, G, B: Byte): TColor mais RGB(R, G, B: Byte): COLORREF; . Les fonctions réalisent la même opération aux propriétés commutatives des opérateurs près...
--
Philippe.

[Invité]

Bonsoir Philippe,

Oui, je ne conteste pas que j'aurais dû savoir. Mais je n'avais jamais remarqué... même avec mon vieux Delphi 7.

[...]Ce n'est pas tout à fait cela, mais plutot TColor($00BGR) ou TColor($BGR) où la valeur hexa se décompose en 4 octets dont les 3 derniers (le lisant le texte de gauche à droite) contiennent les valeurs pour le Bleu, le Vert et le Rouge.[...]

clBleuMoyen := TColor($FAC998); (ou $00FAC998)

Pas de confusion à ce niveau. Enfin j'espère : L'utilisation TColor(R, G, B) avait pour seul objet d'insister sur l'ordre.

J''ai simplement été surpris et amusé par le bleu "marron" que j'ai obtenu dans ma StringGrid... et dans ma mémoire cela ne m'a rien rappelé... J'ai donc découvert cette "curiosté"... d'où la mienne.

Ah bon ? Dès le tout début, Lazarus avait pour but de ressembler le plus possible à Delphi, voire d'en être un clône (cf. wiki)

Il faut bien un point de départ... Mais dès sa naissance aussi, il a nécessairement divergé à partir du moment où Borland a abandonné Kylix. Je pense en effet que c'est probablement des conjonctions de l'Histoire comme le précise Toulourou, même si Lazarus n'était pas aussi intrinsèquement lié à la plateforme Intel/Windows... Ce qui lui a donné fort à faire : il a fallu inventer pour les autres environnements.

Merci pour vos précisions. Gilles

[Paul TOTH]

ceci dit l'ordre des composants de couleur dépend aussi de son utilisation...par exemple pour définir une texture OpenGL il faut inverser le Rouge et le Bleu d'un Bitmap Windows 32bits

[tourlourou]

Y aurait-il une différence d'Endianité entre les processeurs de la carte mère et de la carte graphique ?

[Paul TOTH]

Y aurait-il une différence d'Endianité entre les processeurs de la carte mère et de la carte graphique ?

si c'était un problème de boutisme, le canal Alpha serait affecté

$AARRGGBB <=> $BBGGRRAA

en fait je pense que c'est juste une convention

RGB/BGR Color Model
RGB and BGR formats describe colors in an additive color model. The most common method of describing an image is with three separate color channels representing the colors red (R), green (G), and blue (B). WIC provides support for these three channels in either the red-green-blue (RGB) or blue-green-red (BGR) order. This is the order in which each color channel appears within the sequential bit stream. For example, in the GUID_WICPixelFormat32bppRGB format, each pixel is 32 bits wide. The red channel is the first (least significant) byte in memory, followed by green, and then blue. Conversely, in the GUID_WICPixelFormat32bppBGR format, the color channels are in the opposite order. WIC supports a number of RGB/BGR formats, including special packed bit formats such as GUID_WICPixelFormat16bppBGR555.

http://msdn.microsoft.com/en-us/libr....aspx#rgbcolor