Mettre de la couleur simplement par un include

' Librairie "couleurs"
' Faire un "#include "couleur.bas"
' Utiliser avec un appel de type: Couleur(NumObj%,bleu_clair%) pour définir la couleur bleu claire pour l'objet NumObj%
' ou CouleurTexte(NumObj%,bleu_clair%) pour définir la couleur bleu claire pour le texte de l'objet NumObj%

label fin_couleurs
dim Nb_Couleurs_definies% : Nb_Couleurs_definies% = 40
dim couleur%(Nb_Couleurs_definies%,3)
dim cyan% : cyan% = 1
couleur%(cyan%,1) = 0 : couleur%(cyan%,2) = 255 : couleur%(cyan%,3) = 255
dim bleu_clair% : bleu_clair% = 2
couleur%(bleu_clair%,1) = 173 : couleur%(bleu_clair%,2) = 216 : couleur%(bleu_clair%,3) = 230
dim blanc% : blanc% = 3
couleur%(blanc%,1) = 255 : couleur%(blanc%,2) = 255 : couleur%(blanc%,3) = 255
dim rouge% : rouge% = 4
couleur%(rouge%,1) = 255 : couleur%(rouge%,2) = 0 : couleur%(rouge%,3) = 0
dim vert% : vert% = 5
couleur%(vert%,1) = 0 : couleur%(vert%,2) = 255 : couleur%(vert%,3) = 0
dim bleu% : bleu% = 6
couleur%(bleu%,1) = 255 : couleur%(bleu%,2) = 0 : couleur%(bleu%,3) = 0
dim jaune% : jaune% = 7
couleur%(jaune%,1) = 255 : couleur%(jaune%,2) = 255 : couleur%(jaune%,3) = 0
dim noir% : noir% = 8
couleur%(noir%,1) = 0 : couleur%(noir%,2) = 255 : couleur%(noir%,3) = 0
dim vert_clair%  : vert_clair% = 9
couleur%(vert_clair%,1) = 144 : couleur%(vert_clair%,2) = 238 : couleur%(noir%,3) = 144
dim fushia% : fushia% = 10
couleur%(fushia%,1) = 255 : couleur%(fushia%,2) = 20 : couleur%(fushia%,3) = 147
dim magenta% : magenta% = 11
couleur%(magenta%,1) = 255 : couleur%(magenta%,2) = 0 : couleur%(magenta%,3) = 255
dim bleu_fonce% : bleu_fonce% = 12
couleur%(bleu_fonce%,1) = 0 : couleur%(bleu_fonce%,2) = 0 : couleur%(bleu_fonce%,3) = 140
dim bleu_marine% : bleu_marine% = 13
couleur%(bleu_marine%,1) = 30 : couleur%(bleu_marine%,2) = 30 : couleur%(bleu_marine%,3) = 128
dim gris_clair%  : gris_clair% = 14
couleur%(gris_clair%,1) = 211 : couleur%(gris_clair%,2) = 211 : couleur%(gris_clair%,3) = 211
dim argent% : argent% = 15
couleur%(argent%,1) = 192 : couleur%(argent%,2) = 192 : couleur%(argent%,3) = 192
dim gris%  : gris% = 16
couleur%(gris%,1) = 169 : couleur%(gris%,2) = 169 : couleur%(gris%,3) = 169
dim gris_fonce% : gris_fonce% = 17
couleur%(gris_fonce%,1) = 128 : couleur%(gris_fonce%,2) = 128 : couleur%(gris_fonce%,3) = 128
dim olive% : olive% = 18
couleur%(argent%,1) = 128 : couleur%(argent%,2) = 128 : couleur%(argent%,3) = 0
dim marron% : marron% = 19
couleur%(marron%,1) = 150 : couleur%(marron%,2) = 75 : couleur%(marron%,3) = 30
dim bordeaux% : bordeaux% = 20
couleur%(bordeaux%,1) = 153 : couleur%(bordeaux%,2) = 24 : couleur%(bordeaux%,3) = 44
dim violet%  : violet% = 21
couleur%(violet%,1) = 153 : couleur%(violet%,2) = 0 : couleur%(violet%,3) = 153
dim bleu_acier% : bleu_acier% = 22
couleur%(bleu_acier%,1) = 70 : couleur%(bleu_acier%,2) = 130 : couleur%(bleu_acier%,3) = 180
dim peau%  : peau% = 23
couleur%(peau%,1) = 255 : couleur%(peau%,2) = 235 : couleur%(peau%,3) = 205
dim jean% : jean% = 24
couleur%(jean%,1) = 0 : couleur%(jean%,2) = 140 : couleur%(jean%,3) = 170
dim chocolat% : chocolat% = 25
couleur%(chocolat%,1) = 200 : couleur%(chocolat%,2) = 80 : couleur%(chocolat%,3) = 25
dim faux_noir% : faux_noir% = 26
couleur%(faux_noir%,1) = 0 : couleur%(faux_noir%,2) = 0 : couleur%(faux_noir%,3) = 1
dim faux_blanc% : faux_blanc% = 27
couleur%(faux_blanc%,1) = 255 : couleur%(faux_blanc%,2) = 255 : couleur%(faux_blanc%,3) = 254
dim or% : or% = 28
couleur%(or%,1) = 255 : couleur%(or%,2) = 215 : couleur%(or%,3) = 0
dim lavende% : lavende%= 29
couleur%(lavende%,1) = 204 : couleur%(lavende%,2) = 153 : couleur%(lavende%,3) = 204
dim kaki% : kaki% = 30
couleur%(kaki%,1) = 159 : couleur%(kaki%,2) = 159 : couleur%(kaki%,3) = 95
dim peche% : peche% =31
couleur%(peche%,1) = 255 : couleur%(peche%,2) = 153 : couleur%(peche%,3) = 85
dim brique% : brique% = 32
couleur%(brique%,1) = 178 : couleur%(brique%,2) = 34 : couleur%(brique%,3) = 34
dim beige% : beige% = 33
couleur%(beige%,1) = 245 : couleur%(beige%,2) = 245 : couleur%(beige%,3) = 220
dim jaune_pastel% : jaune_pastel% = 34
couleur%(jaune_pastel%,1) = 255 : couleur%(jaune_pastel%,2) = 255 : couleur%(jaune_pastel%,3) = 224
dim rose_pastel% : rose_pastel% = 35
couleur%(rose_pastel%,1) = 255 : couleur%(rose_pastel%,2) = 230 : couleur%(rose_pastel%,3) = 230
dim bleu_pastel% : bleu_pastel% = 36
couleur%(bleu_pastel%,1) = 230 : couleur%(bleu_pastel%,2) = 230 : couleur%(bleu_pastel%,3) = 255
dim orange_pastel% : orange_pastel% = 37
couleur%(orange_pastel%,1) = 255 : couleur%(orange_pastel%,2) = 205 : couleur%(orange_pastel%,3) = 125
dim violet_pastel% : violet_pastel% = 38
couleur%(violet_pastel%,1) = 226 : couleur%(violet_pastel%,2) = 190 : couleur%(violet_pastel%,3) = 226
dim vert_fonce% : vert_fonce% = 39
couleur%(vert_fonce%,1) = 0 : couleur%(vert_fonce%,2) = 100 : couleur%(vert_fonce%,3) = 0
dim ciel% : ciel% = 40
couleur%(ciel%,1) = 0 : couleur%(ciel%,2) = 178 : couleur%(ciel%,3) = 238

goto fin_couleurs
' Desactiver la ligne ci dessus et activer la ligne ci dessous pour faire un test de couleurs
' width 0,1100 : Aff_Couleurs(7) : end

' Définit la couleur d'un objet
SUB Couleur(Obj%,Ncouleur%)
  color Obj%,couleur%(Ncouleur%,1),couleur%(Ncouleur%,2),couleur%(Ncouleur%,3)
END_SUB

' Définit la couleur du texte
SUB CouleurTexte(Obj%,Ncouleur%)
  Font_color Obj%,couleur%(Ncouleur%,1),couleur%(Ncouleur%,2),couleur%(Ncouleur%,3)
END_SUB

SUB Aff_Couleurs(Nb_Colonnes%)
  dim_local compteur%, colonne%, ligne%
  dim_local couleur_texte$
  if Nb_Colonnes% < 1 then message "Le nombre de colonnes doit être supérieur à 1" : exit_sub
  colonne% = 1 : ligne% = 1

  for compteur% = 1 to Nb_Couleurs_definies%
     if colonne% > Nb_Colonnes% then colonne% = 1 : ligne% = ligne% + 1
     if (couleur%(compteur%,1) + couleur%(compteur%,2)+ couleur%(compteur%,3)) < 200
       couleur_texte$ = "blanc"
     else
       couleur_texte$ = "noir"
     end_if
     Texte(compteur%+100,ligne%, colonne%, couleur_texte$, compteur%)
     colonne% = colonne%+1
  next compteur%
END_SUB

SUB Texte(Num_obj%,O_ligne%, O_colonne%, O_couleur_texte$, O_couleur%)
  dim_local largeur%, hauteur%,T$
  largeur%=140 : hauteur% = 20
  Alpha Num_obj% : Hide Num_obj%
  Top  Num_obj%, (hauteur% + 5) * (O_ligne%)   - hauteur% : Height Num_obj%, hauteur%
  Left Num_obj%, (largeur% + 5) * (O_colonne%) - largeur% : Width  Num_obj%, largeur%
  If O_couleur_texte$ = "blanc" then CouleurTexte(Num_obj%,blanc%)
  Couleur(Num_obj%,O_couleur%)
  Caption Num_obj%,"N°:"+RIGHT$("0"+Str$(O_couleur%),2) + " - R:"+LEFT$(Str$(couleur%(O_couleur%,1))+"  ",3)+"; V:"+LEFT$(Str$(couleur%(O_couleur%,2))+"  ",3)+"; B:"+ LEFT$(Str$(couleur%(O_couleur%,3))+"  ",3)+"  "
  Show Num_obj%
END_SUB

fin_couleurs:
end