begin process at 2012 02 08 10:14:48
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Graphique

 > SCREENSOURCE, RÉCUPÉRATION DES COULEURS ÉCRAN EN RVB, TSL, TSV, CAPTURE D'ÉCRAN, ADOBE COLOR PICKER

SCREENSOURCE, RÉCUPÉRATION DES COULEURS ÉCRAN EN RVB, TSL, TSV, CAPTURE D'ÉCRAN, ADOBE COLOR PICKER


 Information sur la source

Note :
10 / 10 - par 3 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Graphique Niveau :Débutant Date de création :07/05/2004 Date de mise à jour :13/09/2005 11:53:12 Vu / téléchargé :5 483 / 544
Auteur : ronchon_sama

Ecrire un message privé
Site perso
Commentaire sur cette source (8)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Mise à disposition du code sous Delphi 7, par contre, comme je n'ai plus trop le temps, c'est bourré de bugs!

Mise à jour version 2.0
Cela faisait longtemps que j'avais modifié le programme mais n'ayant jamais vraiment terminé celles-ci, je ne l'avais pas mis à jour...
Il reste encore quelques bugs (le popup de la fenetre disparait de temps en temps -_-) et j'envisage de changer l'unité de gestion des langues pour coder les champs modifiables 'en dur' ce sera moins souple mais plus simple pour les comboboxes.
Les gros changements sont le support TSV et l'ajout d'une fenetre de dialogue similaire à celle de Adobe Photoshop.
Quand vous utiliserez la fenêtre 'Adobe' vous remarquerez de gros ralentissements au niveau de l'affichage... Ceci est dû aux calculs effectuer lors de la modification des valeurs sous TSL ou TSV... J'ai essayé une premiere optimisation mais je devrais sans doute me pencher vers l'assembleur ou GDI+ afin d'optimiser les temps de traitement. Si quelqu'un a envie d'essayer...

Mise à jour version 1.1
J'ai corriger la fonction de conversion en HSL et j'ai aussi ajouté d'autres options avec non plus l'affichage HTML et Delphi mais un affichage personnalisé HTML, Delphi, C++ ou VB.
J'ai aussi ajouté un support pour les langues, des effets à appliquer lors de la capture (WebSafe, inverse et niveaux de gris) et une TrayIcon.
Mon unité de support de langue est encore en développment mais elle fonctionne correctement pour le moment avec cette application.

Version 1.0
ScreenSource permet de sélectionner une couleur depuis l'écran afin d'obtenir ses valeurs RGB, HSL, HTML et Delphi. Il permet aussi de faire une capture de la zone sélectionnée afin de pouvoir, par exemple, la parcourir par la suite ou l'enregistrer en Bitmap.

Le programme utilise quelques fonctions intéressantes comme (bien entendu!) la capture d'écran mais aussi l'alphablending de deux bitmaps, l'antialiasing d'un bitmap, la récupération des informations de version d'un programme, ou encore le dessin personnalisé dans une ListBox ou ComboBox.


 Conclusion

Le programme a été testé écrit sous Delphi 7.
Le TrayIcon provient de Japee.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

01 juillet 2005 13:00:18 :
¤ Version 2.0 (01/07/2005) - Compilé sous Borland © Delphi 2005 - Modification de l'interface - Enregistrement automatique de la position - Modification des fonctions de calculs HSL et ajout de fonctions pour les valeurs HSV - Ajout de la valeur 'C#' des couleurs - Ajout d'un filtre de 'désaturation' - Ajout d'une icone indiquant si la couleur sélectionnée est Websafe - Ajout d'une liste de couleurs capturées - Ajout du support multi-écrans - Ajout de la capture des fenêtres semi-transparentes - Ajout d'une fenêtre de dilogue similaire à la sélection de couleur sous Adobe © Photoshop - Ajout d'une option pour 'cacher' l'application de la barre des tâches - Ajout d'une barre de 'réduction' afin de cacher l'image capturée - Ajout d'une option pour garder l'application au premier plan - Modification de la fonction de vérification d'instance
13 septembre 2005 11:45:55 :
Source modifiée pour Delphi 7
13 septembre 2005 11:53:12 :
Source modifiée pour Delphi 7

 Sources du même auteur

CHARGEMENT DU CURSEUR 'MAIN' DE WINDOWS, RÉSOLUTION VARIABLE...
Source avec Zip Source avec une capture TXPBACKGROUNDPANEL
Source avec Zip Source avec une capture PARSER XML SIMPLE (V2.0)+ TXMLINIFILE
RECUPERATION DES CURSEURS WINDOWS
Toutes les sources de ronchon_sama

 Sources de la même categorie

Source avec Zip Source avec une capture COMPARATIF ALGO CERCLES par barbichette
Source avec Zip Source avec une capture RAYTRACING EN DELPHI (PROGRESSIVE PATH TRACING) par Bacterius
Source avec Zip Source avec une capture TEXTE SUR COURBE DE BEZIER par pseudo3
Source avec Zip Source avec une capture YEUXROUGES par pseudo3
Source avec Zip Source avec une capture FIREMONKEY : PATHDATA ET FORMAT SVG par Christophe67
Toutes les sources de la catégorie Graphique

Commentaires et avis

Commentaire de Delphiprog le 07/05/2004 07:38:30 administrateur CS

J'ai un doute : au lieu de HSL, ne s'agit-il pas plutôt de TSL  (Teinte, Saturation, Luminosité) ?

Commentaire de ronchon_sama le 07/05/2004 10:34:20

Oui, c'est exactement ça. H indique 'Hue', nom anglais. De même, RGB est anglais, en français RVB ;).

Commentaire de Delphiprog le 07/05/2004 12:06:53 administrateur CS

Merci pour ces précisions et félicitations pour cette réalisation.

Commentaire de ronchon_sama le 08/05/2004 03:05:24

J'ai trouvé un bug dans ma fonction de conversion RVB en TSL.
La valeur de la Teinte reste dans un interval compris entre 0 et 360 au lieu de 0 et 255, juste une règle de 3 à appliquer, mais il y a aussi une erreur de précision à cause des arrondissements. J'ai constaté cela avec Paint Shop Pro avec, par exemple, une valeur RVB de (192, 192, 255). PSP donne TSL (169, 255, 224) tandis que ma fonction, avec la règle de 3, donne TSL (170, 255, 223).
Autre précision, si vous regardez les valeurs TSL d'un TColorDialog, celles-ci seront différents de mon programme puisqu'elles sont exprimées dans un espace compris entre 0 et 240.

Je vais voir pour corriger ce bug, Delphi 6 possède l'unité GraphUtil qui contient déjà cette fonction.

Commentaire de Gecko62 le 08/08/2005 10:21:48

Bonjour,
J'ai voulu tester cette source mais lors de la compilation sous Delphi7, j'ai eu ce message d'erreur :

[Erreur] uColorUtil.pas(863): Identificateur non déclaré : clWebLightCoral'
[Erreur] uColorUtil.pas(863): Etiquette de CASE dupliquée
[Erreur fatale] uColorUtil.pas(871): Compilation abandonnée; trop d'erreurs

A quoi cela est-il dû ?
Serait-ce dû à ce que Delphi 7 ne contient pas tout ce qu'il faut ?
Dois-je rajouter un composant, si oui, lequel ?

Merci de votre réponse

Bien cordialement

Commentaire de ronchon_sama le 08/08/2005 16:19:42

Bonjour Gecko62,
Pour les erreurs, oui, cela est du au fait que tu sois sous Delphi 7, l'application, comme precise dans l'historique, a ete reecrite sous Delphi 2005. Les couleurs Web (les clWeb...) ne sont pas declarees. Pour le moment, il n'y a plus de composants exterieurs au niveau de l'application.
Maintenant, apres cette mise a jour, j'ai eu pas mal de soucis avec 2005 et j'ai du repasser sous Delphi7, ce qui s'annonce comme une bonne nouvelle pour toi en fait ;)
Maintenant, l'appli est toujours en stade beta et risque d'y rester pour un bon moment, parce que je n'ai vraiment plus du tout le temps de travailler dessus...
Il y a pas mal de bugs au niveau des dernieres fonctionnalites ajoutees (notemment entre le 'premier plan' et la 'barre des taches', je les avais juste 'posees a la va-vite' dans le code.
Je mettrais les sources a jour pour la version Delphi7 si je peux ce soir.

Commentaire de Gecko62 le 13/09/2005 00:47:48

Pas de nouvelles depuis mon précédent message !

Dommage je me serais volontiers penché sur les bugs, mais supprimer touts les références à Delphi 2005 là c'est un peu au-dessus de mes forces.

Re-dommage car ce code me semblait prometteur

Bien cordialement

Commentaire de ronchon_sama le 13/09/2005 11:56:40

Désolé, j'avais complètement oublié.
Voilà, c'est mis à jour.

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Single Large Rock Formation in Monument Valley
Photo Tourist Taking a Photograph of Mountains in Yosemite 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,920 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)