Couleur en hexadécimal et rvb

Soyez le premier à donner votre avis sur cette source.

Vue 9 909 fois - Téléchargée 688 fois

Description

Permet de sortir une couleur choisit en hexadéciaml et en RVB(Rouge Vert Bleu).
Le choix de la couleur se fait avec le sélecteur de couleur de Windows.

!! Si vous avez un message sur XPman (ou XPManifest) ne vous inquitez pas c'est juste un composant présent à partir de la version 7 de Delphi qui permet d'avoir le style XP sur vos applications (lorsqu'elles sont ouvertes sous XP bien sur!) !!

Source / Exemple :


Tout est dans le zip.

Conclusion :


Ce programme est très utile pour les déutants en HTML, Delphi et héxadécimal!
La source est très simple.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Ah, et un détail : tu as deux boutons "copier" mais je ne suis pas sûr que tu as testé leur utilité (je ne regarde que le source), vu qu'il n'y a qu'une seule procédure de copie. (Celle de l'edit2)
On ira pas jusqu'a dire qu'il y a trop de "color picker" sur DelphiFr mais sûrement qu'on commence à s'en lasser.
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.
Messages postés
308
Date d'inscription
mardi 11 juin 2002
Statut
Membre
Dernière intervention
26 septembre 2008

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;

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.