COULEUR EN HEXADÉCIMAL ET RVB

Commentaire de yvemoreau le 07/08/2005 00:58:58

procedure TForm1.Timer1Timer(Sender: TObject);
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;