Discussion :

[LightBeam]

Bonjour, nouveau venu sous Kylix et pressé de programmer je n'arrive pas à trouver l'equivalent de GetRValue() (ou GetGValue et GetBValue qui permet d'extraire une valeur Rouge, vert ou bleue d'une Brush.color par exemple...) sous Kylix. Meme chose pour convertir les trois valeurs en couleur RGB : RGB(r, g, b) est introuvable ! L'aide integrée de Kylix ne m'est d'aucun secour pour un equivalent.
Merci de m'aider

[Sub0]

Salut!

Je sais que je l'ai déjà fait, simplement comme ceci... (ma méthode)
Voici les sources de mon exemple à télécharger ici:
http://site.voila.fr/subut/data4/rgb.zip (3 ko)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
TYPE TRGB=RECORD R,G,B:Byte;END;
     LRec=RECORD Lo,Hi:Word;END;
     WRec=RECORD Lo,Hi:Byte;END;
 
{----------------------------------------------------------------}
{ CONVERTION COLOR -> RGB                                        }
{----------------------------------------------------------------}
FUNCTION GetRGB(Col:Longint):TRGB;
BEGIN
Result.R:=WRec(LRec(Col).Hi).Lo;
Result.G:=WRec(LRec(Col).Lo).Hi;
Result.B:=WRec(LRec(Col).Lo).Lo;
END;
 
{----------------------------------------------------------------}
{ CONVERTION RGB -> COLOR                                        }
{----------------------------------------------------------------}
FUNCTION RGB(R,G,B:Byte):Longint;
BEGIN
Result:=(B*$10000)+(G*$100)+R;
END;

Maintenant, tu peux te faire les fonctions que tu veux, par exemple, pour obtenir GetRValue():

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
FUNCTION GetRValue(col:Integer):Byte;
BEGIN Result:=GetRGB(col).R; END;

J'ai aussi trouvé ce lien pour les couleurs HTML au format texte:
http://www.delphipraxis.net/viewtopic.php?p=1917
à+