COULEUR EN HEXADÉCIMAL ET RVB
yvemoreau
Messages postés
308
Date d'inscription
mardi 11 juin 2002
Statut
Membre
Dernière intervention
26 septembre 2008
-
7 août 2005 à 00:58
florenth - 7 août 2005 à 11:16
florenth - 7 août 2005 à 11:16
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/33100-couleur-en-hexadecimal-et-rvb
https://codes-sources.commentcamarche.net/source/33100-couleur-en-hexadecimal-et-rvb
7 août 2005 à 11:16
7 août 2005 à 11:13
D'autant plus que ta source n'aporte rien de merveilleux à celles déjà postées (voir dans la partie "sources qui peuvent être en rapport avec celle-ci").
C'est juste une petite démonstration de l'utilisation d'un ColorDialog, GetXValue(), et d'un petit bout de presse-papier.
Bref, pas de quoi s'émerveiller.
7 août 2005 à 00:58
var
Point:TPoint;
DesktopBitmap:TBitmap;
ColorPixel:TColor;
R,G,B : Byte;
begin
DesktopBitmap:=TBitmap.Create;
DesktopBitmap.Width:=Screen.Width;
DesktopBitmap.Height:=Screen.Height;
BitBlt(DesktopBitmap.Canvas.Handle,
0,0,Screen.Width,Screen.Height,
GetDC(GetDesktopWindow),0,0,SrcCopy);
windows.GetCursorPos(Point);
ColorPixel:=DesktopBitmap.Canvas.Pixels[Point.X,Point.Y];
R:=GetRValue(ColorPixel);
G:=GetGValue(ColorPixel);
B:=GetBValue(ColorPixel);
edit2.Text:=(IntToStr(R)+','+IntToStr(G)+','+IntToStr(b));
edit1.text:=('$'+IntToHex(ColorPixel,6));
DesktopBitmap.Free;
end;