CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 08 10:11:05

MONITORING ET PATRON DE MéTHODE par mranchin

ADO.NET DATA SERVICES HOOKING POC V2 par Matthieu MEZIL

BACK FROM NYC ! par sebmafate

HELLO WORLD! par hamid

MSBUILD EXTENSION PACK SUR CODEPLEX par Miiitch

MENU POPUP ET TEDIT par jeje2

PDF & IMPRESSION par ezekiel62

RE : SQL SERVER 2000 ET EXCEL par dominique.stock

EXCEL par dominique.stock

RE : GéNERAIS UN EXUCUTABLE SUR DELPHI7 QUE JE POURAIS GRAVé ET UTILISé SUR UN AUTRE MICRO par f0xi

+ de logiciels à télécharger

1 257 893 membres
108 nouveaux aujourd'hui
14 401 membres club

Trouver une ressource

Trouvez une ressource parmi 38 804 codes, 1 184 346 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RÉCUPÉRER LA COULEUR D'UN PIXEL DE L'ÉCRAN

Information sur la source

Catégorie :Graphique Niveau : Débutant Date de création : 24/03/2002 Date de mise à jour : 24/03/2002 10:16:25 Vu : 2 440

Auteur : fabiin

Site perso

Ecrire un message privé

Note :

7,00 / 10

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Petit code pour connaitre la couleur du pixel situé sous la souris :)

Source

var
Pos: TPoint;
Couleur:TColor;
begin
GetCursorPos(Pos);
Couleur := DesktopColor(Pos.X, Pos.Y);

var
  Pos: TPoint;
  Couleur:TColor;
begin
  GetCursorPos(Pos);
  Couleur := DesktopColor(Pos.X, Pos.Y);

Sources du même auteur

CAPTUER LE SON SORTANT ET L'ENREGISTRER DANS UN FICHIER WAV

CALCUL D'UNE MOYENNE

CHANGER LA DURÉE D'AFFICHAGE DES BULLES D'AIDES (HINT)

ASCII-T : PETIT SOFT D'ASCII ART.

CHANGER CONTRASTE / LUMINOSITÉ (L'ALGORITHME)

Toutes les sources de fabiin

Sources de la même categorie

UNE HORLOGE BINAIRE par offlake

SIMULATION D'UN LANCEMENT D'UN DÉ par offlake

SIMULATEUR DE DÉFAUT DE PAGE (( GESTION DE LA MÉMOIRE )) " O... par offlake

SIMULATEUR DU L'ORDONNANCEUR SRT par offlake

ENCORE LOUPÉ par barbichette

Toutes les sources de la catégorie Graphique

Commentaires et avis

Commentaire de cwanty le 12/02/2004 11:15:52

Salut je voudrais juste savoir quel uses il faut rajouter pour que ce petit code fonctionne ! Merci

Commentaire de fabiin le 12/02/2004 15:14:17

C'est un oubli de ma part,
il manque la fonction DeskTop Color... :'(
Je corrige de suite...
Merci
@+
Fabs

Commentaire de fabiin le 12/02/2004 15:29:26

Bon le site marche pas,
voicl a fonction

function DesktopColor(const X, Y: Integer): TColor;
var
  c: TCanvas;
begin
  c := TCanvas.Create;
  try
    c.Handle := GetWindowDC(GetDesktopWindow);
    Result   := GetPixel(c.Handle, X, Y);
  finally
    c.Free;
  end;
end;

Commentaire de slachz le 23/02/2005 17:06:58

cool ton code juste une question:
comment vous faites tous pour trouver ces fonctions/procédures ?? je sais que c'est dans les DLL ou les fichiers DCU de delphi mais dès que j'en ouvre une dans le bloc-note ou delphi, c'est remplie de caracteres en + et pas formaté, illisible quoi ;(
merci et bon' progr'
++

Commentaire de Bacterius le 26/02/2008 00:53:29

Bonjour,
slachz, n'essaye pas d'ouvrir de fichiers .dcu - ils sont compilés ! Mémorise plutot le nom du fichier. Exemple : tu trouves dans le dossier Lib un fichier Monfichierdcu.dcu (rempli de fonctions et tout et tout). Tu ouvres un projet, et dans la clause uses tu ajoutes "monfichierdcu". Delphi fera le reste. Pour acceder aux fonctions, tu vas n'importe-ou et tu tapes Monfichierdcu.(et un popup avec le contenu du dcu ! )
Si tu n'as pas le fichier Monfichierdcu.PAS , tu ne pourras pas voir le code source :(
Voila j'espère avoir répondu à ta question - un peu tard c'est vrai mais bon ;)
A plus !

Commentaire de slachz le 26/02/2008 19:58:01

ahah ouii ça date (et va savoir pourquoi je n'ai pas désactiver la notification depuis le temps que je ne viens plus).
En faite, ma question était plus de savoir comment connaitre les procédures proposées par les librairies, souvent -comme tu le dis toi même- disponible seulement sous forme compilées..
J'ai trouvé depuis: les docs ! ( et internet aussi :3)

En tout cas je te remercie tout de même de cette réponse (aah la joie d'internet ^^).

Commentaire de Bacterius le 26/02/2008 22:03:00

Bonjour, eh oui... ou ca s'arretera t-y leur progré mdr !
j'ai essayé de répondre le mieux possible :) mais internet est plus instruit que moi (enfin les autres disent ca mais je n'en crois pas un mot :p ).
A plus