Ce n'est pas un prix nobel du point de vue du code. De plus, je ne suis pas certain qu'il sera utile pour ceux qui travail avec Windows.
Le code suivant envoi dans la fenêtre du Déboggeur une liste de constantes avec les couleurs de base les plus courantes. Il suffit simplement de copier ce qui se trouve dans la fenêtre du Déboggeur dans un code source.
Code : Tout sélectionner
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Nom du projet : Générateur de Constante pour les couleurs de base
; Nom du fichier : Color Cte Generator.pb
; Version du fichier : 1.0.0
; Programmation : En cours
; Programmé par : Guimauve
; Date : 26-06-2010
; Mise à jour : 26-06-2010
; Code PureBasic : 4.50
; Plateforme : Windows, Linux, MacOS X
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Site Web pour une liste des couleurs avec les valeurs RGB
; http://en.wikipedia.org/wiki/List_of_colors
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Debug "#White = " + Str(RGB(255, 255, 255))
Debug "#LightGray = " + Str(RGB(230, 230, 230))
Debug "#Gray = " + Str(RGB(190, 190, 190))
Debug "#DarkGray = " + Str(RGB(105, 105, 105))
Debug "#Red = " + Str(RGB(255, 000, 000))
Debug "#Orange = " + Str(RGB(255, 127, 000))
Debug "#Gold = " + Str(RGB(255, 191, 000))
Debug "#Yellow = " + Str(RGB(255, 255, 000))
Debug "#Green = " + Str(RGB(000, 255, 000))
Debug "#DarkGreen = " + Str(RGB(000, 127, 000))
Debug "#Chartreuse = " + Str(RGB(127,255, 000))
Debug "#SeaGreen = " + Str(RGB(063, 127, 000))
Debug "#Aquamarine = " + Str(RGB(127,255, 191))
Debug "#Turquoise = " + Str(RGB(063, 191, 191))
Debug "#Teal = " + Str(RGB(000, 150, 150))
Debug "#Jade = " + Str(RGB(000, 168, 107))
Debug "#Blue = " + Str(RGB(000, 000, 255))
Debug "#DarkBlue = " + Str(RGB(000, 000, 191))
Debug "#Cyan = " + Str(RGB(000, 255, 255))
Debug "#Cobalt = " + Str(RGB(000, 071, 171))
Debug "#Purple = " + Str(RGB(170, 000, 255))
Debug "#Lavender = " + Str(RGB(191, 191, 255))
Debug "#Magenta = " + Str(RGB(255, 000, 255))
Debug "#Brown = " + Str(RGB(139, 076, 057))
Debug "#DarkBrown = " + Str(RGB(101, 067, 033))
Debug "#Black = " + Str(RGB(000, 000, 000))
; <<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< FIN DU FICHIER <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<Guimauve
