CPickSniff - a color picker and sniffer

[fabienwang]

Hello all
I have published the first tool i made in Lazarus, it's a color picker that can take a color on the screen.
It will show you both decimal and hexadecimal color code. You can also type a color code and press enter.

I made it for windows and ubuntu (gtk2).

You can see screenshots and download it here:

http://fabienwang.com/projects/cpicksniff

[typo]

Crazy people are usually have good ideas.

[captian jaster]

Neat......
I never would of thought of this....
 

[typo]

All OS should have such a tool.

Inspired on this idea, I have made my own, which can be downloaded from http://www.lazarusbrasil.org/GetColor.zip

[typo]

I will not steal your idea.

Moreover, I put a link to your tool on this page: http://lazarusbrasil.org/

[fabienwang]

Hey thanks for all

I didn't really understand wuchun. If you're talking about choices in the program, i have tested many other tools and i wanted mine be the simplest possible that's why there's no HSL or other things.
Btw i got a bug in the HSL values so i removed it.
http://www.lazarus.freepascal.org/index.php/topic,10309.0.html

typo, your tool is great you get the transparency of the color on my seven and thanks to you i discovered there is a DrawLineFocus or something (my choice to put red lines wasn't the best, especially if you have a red background ^^)

[typo]

DrawFocusRect:

http://lazarus-ccr.sourceforge.net/docs/lcl/graphics/tcanvas.drawfocusrect.html

[fabienwang]

yeah i used already this one but totally forgot we could create a flat rectangle so it's a line :<

[typo]

I have used this function to RGB:

Code: [Select]

type
  RGBColor = record
    Red :integer;
    Green :integer;
    Blue :integer;
end;

function FindRGB(Color: TColor): RGBColor;
var
  R,G,B : Integer;
begin
  R := Color and $ff;
  G := (Color and $ff00) shr 8;
  B := (Color and $ff0000) shr 16;
  Result.Red := R;
  Result.Green := G;
  Result.Blue := B;
end;       

[eny]

I have used this function to RGB: ...

From a purist's point of view: you don't acutally need the 3 local vars   

[typo]

Code: [Select]

function FindRGB(Color: TColor): RGBColor;
begin
  Result.Red := Color and $ff;
  Result.Green := (Color and $ff00) shr 8;
  Result.Blue := (Color and $ff0000) shr 16;
end;
Yes. I have adapted this function from another use.

[fabienwang]

I would like to thank you all.
My color picker has been downloaded 68 times in 5 days i'm really happy.
I will continue to develop things with lazarus
and help the development and bug fixing of it.

Thanks