Structure pour gerer TColor

Structure pour gerer le couleur

Code:

---

1 2 3 4 5 6 7

TColorRec = record case integer of 0:(Color:Cardinal); 1:(Bytes:array[0..3]of byte); 2:(R,G,B,Alpha:Byte); 3:(SysColorIdx:word;UnUsed:byte;IsSysColor:boolean); end;

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); var C:TColor; begin   C := clWindow;   if TColorRec(C).IsSysColor then C:=windows.GetSysColor(TColorRec(C).SysColorIdx);   with TColorRec(C) do ShowmessageFmt('Color:%x '#10'R:%x, G:%x, B:%x',[Color,R,G,B]);   end;

---

trés bien, juste un truc :

Color en LongWord c'est bien pour GDI+
par contre le type TColor et bel et bien un LongInt (voir déclaration de TColor).

la plupart des méthodes pour savoir si il s'agit d'une couleur système font le test suivant :

Code:

---

1 2 3

if Color < 0 then Color := GetSysColor(Color xor clSystemColor);

---

ce qui invaliderai donc le test, et forcerais à tester comme cela :

Code:

---

1 2	if (color and clSystemColor) <> 0 then ...

---

et bien sur ne pas oublier le "packed" pour le record.

ce qui donne :

Code:

---

1 2 3 4 5 6 7 8 9

type TColorRec = packed record case LongInt of 0: (Color : LongInt); 1: (ColorRef : DWORD); 2: (Bytes : array [0..3] of byte); 3: (R, G, B, A : Byte); 4: (SysColorIdx : word; _unused : byte; IsSysColor: boolean); end;

---

l'idée de IsSysColor est bonne, trés explicite, même si il est plus simple de faire le test décrit plus haut (si on utilise pas de structure de ce type) mais beaucoup moins facile à retenir puisqu'il ne faut pas oublier le "xor clSystemColor" ou faire un "and $00FFFFFF" ce qui est plus contraignant.

le fait de pouvoir faire :

Code:

---

1 2	if CR.IsSysColor then CR.Color := GetSysColor(CR.SysColorIdx);

---

est une approche intéressante.

voila.

Citation:

---

Color en LongWord c'est bien pour GDI+
par contre le type TColor et bel et bien un LongInt (voir déclaration de TColor).

---

lol j'ai l'impression que je vois ça pour la première fois !

Citation:

---

et bien sur ne pas oublier le "packed" pour le record.

---

Pas pour cette fois la structure est déjà alignée...si on a un problème on recharge via TColor et on utilise le cast...mais par précaution je le remis

Merci beaucoup Who

Citation:

---

Envoyé par Montor

lol j'ai l'impression que je vois ça pour la première fois !

---

TGPColor (tiré de la GDI+) est un longword
COLORREF (tiré du SDK win32) est un DWORD
TColor (tiré de Graphics.pas) est un LongInt (-$7FFFFFFF-1..$7FFFFFFF)
clSystemColor est egal à $FF000000 (= nombre négatif)


prend GLScene, ou quelques unit GDI+, les méthodes de conversion
TColor -> GLColor ou TColor -> GPColor se font via la méthode :

Code:

---

1 2 3 4 5

... if Color < 0 then Color := GetSysColor(Color xor clSystemColor);   .. traitement GL ou GP ..

---

puisqu'il est plus simple de faire un test sur 0 (appel d'instruction jz ou jnz) que de faire un test sur des valeurs positive ou négative (jne, jb, ja ...)

par contre, il est vrai que pour les PNG 32bits et Bitmap 32bits, on peu utiliser un LongWord puisque l'espace RGBA de ces deux format est stocké dans un entier non signé.

d'ou l'ajout du champ ColorRef : DWORD dans la structure.
bien qu'inutile puisque la valeur de l'octet 0 se trouve forcement dans le champ A : byte.

de toute façon, on part du principe que le dev sais exactement dans quel espace colorimetrique il travail RGB, RGBA, BGR, BGRA etc.
et puis ici, il n'est pas question d'utiliser cette structure avec GLScene ou GDI+, l'ordre de R,G,B,A n'etant pas le même et encore moins pour GLScene puisque le GLColor est avec flottants.

voilou ;)