Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
24 - OBTENIR LA COULEUR D'UN POINT DE L'ÉCRAN

PRÉSENTATION : Il s'agit juste d'obtenir la couleur d'un point de l'écran...
ZIP : Téléchargez le zip APERÇUS :

NOTES :

CODE :
// Fonction donnant la courleur du point (x,y) de l'écran
Function CouleurPointEcran(x,y:Integer):TColor;
Var Dc : HDC;
Begin
  // Création d'un contexte d'affichage non lié à une fenêtre
  // donc permet d'accéder à l'écran entier
  DC := CreateDC('DISPLAY',Nil,Nil,Nil);
  Try
    // Obtenir la couleur du point
    Result:=GetPixel(DC,X,Y);
  Finally
    // ne pas oublier de libérer le contexte, c'est une ressource rare.
    DeleteDc(DC);
  End;
End;

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -