FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Une autre façon de terminer une application.
par Francis-mr Aujourd'hui à 12:07

» Compilateur FBPano
par jean_debord Aujourd'hui à 10:09

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Aujourd'hui à 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Aujourd'hui à 5:01

» Mettre en windows en veille
par papydall Aujourd'hui à 4:15

» Stretch_on ne stretch plus...
par papydall Hier à 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Hier à 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (résolu): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (résolu): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Couleurs HTML

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
JL35



Nombre de messages : 5922
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Couleurs HTML   Ven 8 Avr 2016 - 18:09

Juste pour meubler le silence ambiant, affichage des 140 couleurs Html avec leur code et leur nom (in english):
Code:
DIM a$,nc%,cnom$(150),ccode$(150),i%,j%,wp%,hp%,x%,y%,r%,g%,b%
DATA "Couleurs": ' 140 couleurs
DATA "aliceblue","F0F8FF","antiquewhite","FAEBD7","aqua","00FFFF","aquamarine","7FFFD4"
DATA "azure","F0FFFF","beige","F5F5DC","bisque","FFE4C4","black","000000"
DATA "blanchedalmond","FFEBCD","blue","0000FF","blueviolet","8A2BE2","brown","A52A2A"
DATA "burlywood","DEB887","cadetblue","5F9EA0","chartreuse","7FFF00","chocolate","D2691E"
DATA "coral","FF7F50","cornflowerblue","6495ED","cornsilk","FFF8DC","crimson","DC143C"
DATA "cyan","00FFFF","darkblue","00008B","darkcyan","008B8B","darkgoldenrod","B8860B"
DATA "darkgray","A9A9A9","darkgreen","006400","darkkhaki","BDB76B","darkmagenta","8B008B"
DATA "darkolivegreen","556B2F","darkorange","FF8C00","darkorchid","9932CC"
DATA "darkred","8B0000","darksalmon","E9967A","darkseagreen","8FBC8F"
DATA "darkslateblue","483D8B","darkslategray","2F4F4F","darkturquoise","00CED1"
DATA "darkviolet","9400D3","deeppink","FF1493","deepskyblue","00BFFF"
DATA "dimgray","696969","dodgerblue","1E90FF","firebrick","B22222","floralwhite","FFFAF0"
DATA "forestgreen","228B22","fuchsia","FF00FF","gainsboro","DCDCDC","ghostwhite","F8F8FF"
DATA "gold","FFD700","goldenrod","DAA520","gray","808080","green","008000"
DATA "greenyellow","ADFF2F","honeydew","F0FFF0","hotpink","FF69B4","indianred","CD5C5C"
DATA "indigo","4B0082","ivory","FFFFF0","khaki","F0E68C","lavender","E6E6FA"
DATA "lavenderblush","FFF0F5","lawngreen","7CFC00","lemonchiffon","FFFACD"
DATA "lightblue","ADD8E6","lightcoral","F08080","lightcyan","E0FFFF","lightgoldenrodyellow","FAFAD2"
DATA "lightgreen","90EE90","lightgrey","D3D3D3","lightpink","FFB6C1","lightsalmon","FFA07A"
DATA "lightseagreen","20B2AA","lightskyblue","87CEFA","lightslategray","778899"
DATA "lightsteelblue","B0C4DE","lightyellow","FFFFE0","lime","00FF00"
DATA "limegreen","32CD32","linen","FAF0E6","magenta","FF00FF","maroon","800000"
DATA "mediumaquamarine","66CDAA","mediumblue","0000CD","mediumorchid","BA55D3"
DATA "mediumpurple","9370DB","mediumseagreen","3CB371","mediumslateblue","7B68EE"
DATA "mediumspringgreen","00FA9A","mediumturquoise","48D1CC","mediumvioletred","C71585"
DATA "midnightblue","191970","mintcream","F5FFFA","mistyrose","FFE4E1"
DATA "moccasin","FFE4B5","navajowhite","FFDEAD","navy","000080","oldlace","FDF5E6"
DATA "olive","808000","olivedrab","6B8E23","orange","FFA500","orangered","FF4500"
DATA "orchid","DA70D6","palegoldenrod","EEE8AA","palegreen","98FB98","paleturquoise","AFEEEE"
DATA "palevioletred","DB7093","papayawhip","FFEFD5","peachpuff","FFDAB9"
DATA "peru","CD853F","pink","FFC0CB","plum","DDA0DD","powderblue","B0E0E6"
DATA "purple","800080","red","FF0000","rosybrown","BC8F8F","royalblue","4169E1"
DATA "saddlebrown","8B4513","salmon","FA8072","sandybrown","F4A460","seagreen","2E8B57"
DATA "seashell","FFF5EE","sienna","A0522D","silver","C0C0C0","skyblue","87CEEB"
DATA "slateblue","6A5ACD","slategray","708090","snow","FFFAFA","springgreen","00FF7F"
DATA "steelblue","4682B4","tan","D2B48C","teal","008080","thistle","D8BFD8"
DATA "tomato","FF6347","turquoise","40E0D0","violet","EE82EE","wheat","F5DEB3"
DATA "white","FFFFFF","whitesmoke","F5F5F5","yellow","FFFF00","yellowgreen","9ACD32"
DATA "FF"
READ a$: WHILE a$<>"Couleurs": READ a$: END_WHILE
nc% = 0: READ a$
WHILE a$<>"FF"
    nc% = nc%+1: cnom$(nc%) = a$: READ a$: ccode$(nc%) = a$: READ a$
END_WHILE

WIDTH 0,800: HEIGHT 0,950: BORDER_SMALL 0: FONT_NAME 0,"Calibri": CAPTION 0,"140 couleurs HTML"
wp% = 100: hp% = 18: y% = 0: x% = 5
FOR i% = 1 TO nc%
    a$ = ccode$(i%): r%=HEX(LEFT$(a$,2)): g%=HEX(MID$(a$,3,2)): b%=HEX(RIGHT$(a$,2))
    PICTURE i%: WIDTH i%,wp%: HEIGHT i%,hp%: TOP i%,y%: LEFT i%,x%: COLOR i%,r%,g%,b%
    j%=i%+200: ALPHA j%: TOP j%,y%+hp%: LEFT j%,x%: CAPTION j%,"#"+a$
    j%=i%+400: ALPHA j%: TOP j%,y%+hp%+10: LEFT j%,x%: CAPTION j%,cnom$(i%)
    x% = x%+wp%+10: IF x%>(WIDTH(0)-wp%-20) THEN x% = 5: y%=y%+45
NEXT i%
END
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Couleurs HTML   Ven 8 Avr 2016 - 18:43

Merci ! C'est intéressant et utile. Je prends et je garde.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 5922
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Couleurs HTML   Ven 8 Avr 2016 - 18:46

Merci Klaus !
Mais après réflexion, en plus rationnel il me semble, sous forme de sub:
Code:
CouleursHtml(10)
message clipboard_string_paste$
TERMINATE
' ==============================================================================
SUB CouleursHtml(nc%)
  ' Affichage des 140 couleurs standard HTML. nc% = nombre de colonnes d'affichage
  ' Si clic sur une couleur: code hexa RRGGBB copié dans le clipboard.
  DIM_LOCAL f%,ff%,a$,n$,c$,nco%,nr,i%,j%,wp%,hp%,hi%,x%,y%,r%,g%,b%,te%,dln%,dlc%
  IF LABEL("Fchtml")=0 THEN LABEL Fchtml
  IF LABEL("Fchaff")=0 THEN LABEL Fchaff
  IF LABEL("Fchcol")=0 THEN LABEL Fchcol
  IF LABEL("Fchtri")=0 THEN LABEL Fchtri
  DATA "140 Couleurs": ' les 140 couleurs Html
  DATA "aliceblue","F0F8FF","antiquewhite","FAEBD7","aqua","00FFFF","aquamarine","7FFFD4"
  DATA "azure","F0FFFF","beige","F5F5DC","bisque","FFE4C4","black","000000"
  DATA "blanchedalmond","FFEBCD","blue","0000FF","blueviolet","8A2BE2","brown","A52A2A"
  DATA "burlywood","DEB887","cadetblue","5F9EA0","chartreuse","7FFF00","chocolate","D2691E"
  DATA "coral","FF7F50","cornflowerblue","6495ED","cornsilk","FFF8DC","crimson","DC143C"
  DATA "cyan","00FFFF","darkblue","00008B","darkcyan","008B8B","darkgoldenrod","B8860B"
  DATA "darkgray","A9A9A9","darkgreen","006400","darkkhaki","BDB76B","darkmagenta","8B008B"
  DATA "darkolivegreen","556B2F","darkorange","FF8C00","darkorchid","9932CC"
  DATA "darkred","8B0000","darksalmon","E9967A","darkseagreen","8FBC8F"
  DATA "darkslateblue","483D8B","darkslategray","2F4F4F","darkturquoise","00CED1"
  DATA "darkviolet","9400D3","deeppink","FF1493","deepskyblue","00BFFF"
  DATA "dimgray","696969","dodgerblue","1E90FF","firebrick","B22222","floralwhite","FFFAF0"
  DATA "forestgreen","228B22","fuchsia","FF00FF","gainsboro","DCDCDC","ghostwhite","F8F8FF"
  DATA "gold","FFD700","goldenrod","DAA520","gray","808080","green","008000"
  DATA "greenyellow","ADFF2F","honeydew","F0FFF0","hotpink","FF69B4","indianred","CD5C5C"
  DATA "indigo","4B0082","ivory","FFFFF0","khaki","F0E68C","lavender","E6E6FA"
  DATA "lavenderblush","FFF0F5","lawngreen","7CFC00","lemonchiffon","FFFACD"
  DATA "lightblue","ADD8E6","lightcoral","F08080","lightcyan","E0FFFF","lightgoldenrodyellow","FAFAD2"
  DATA "lightgreen","90EE90","lightgrey","D3D3D3","lightpink","FFB6C1","lightsalmon","FFA07A"
  DATA "lightseagreen","20B2AA","lightskyblue","87CEFA","lightslategray","778899"
  DATA "lightsteelblue","B0C4DE","lightyellow","FFFFE0","lime","00FF00"
  DATA "limegreen","32CD32","linen","FAF0E6","magenta","FF00FF","maroon","800000"
  DATA "mediumaquamarine","66CDAA","mediumblue","0000CD","mediumorchid","BA55D3"
  DATA "mediumpurple","9370DB","mediumseagreen","3CB371","mediumslateblue","7B68EE"
  DATA "mediumspringgreen","00FA9A","mediumturquoise","48D1CC","mediumvioletred","C71585"
  DATA "midnightblue","191970","mintcream","F5FFFA","mistyrose","FFE4E1"
  DATA "moccasin","FFE4B5","navajowhite","FFDEAD","navy","000080","oldlace","FDF5E6"
  DATA "olive","808000","olivedrab","6B8E23","orange","FFA500","orangered","FF4500"
  DATA "orchid","DA70D6","palegoldenrod","EEE8AA","palegreen","98FB98","paleturquoise","AFEEEE"
  DATA "palevioletred","DB7093","papayawhip","FFEFD5","peachpuff","FFDAB9"
  DATA "peru","CD853F","pink","FFC0CB","plum","DDA0DD","powderblue","B0E0E6"
  DATA "purple","800080","red","FF0000","rosybrown","BC8F8F","royalblue","4169E1"
  DATA "saddlebrown","8B4513","salmon","FA8072","sandybrown","F4A460","seagreen","2E8B57"
  DATA "seashell","FFF5EE","sienna","A0522D","silver","C0C0C0","skyblue","87CEEB"
  DATA "slateblue","6A5ACD","slategray","708090","snow","FFFAFA","springgreen","00FF7F"
  DATA "steelblue","4682B4","tan","D2B48C","teal","008080","thistle","D8BFD8"
  DATA "tomato","FF6347","turquoise","40E0D0","violet","EE82EE","wheat","F5DEB3"
  DATA "white","FFFFFF","whitesmoke","F5F5F5","yellow","FFFF00","yellowgreen","9ACD32"
  DATA "FF"
  dln% = 900: DLIST dln%
  dlc% = dln%+1: DLIST dlc%
  RESTORE: READ a$: WHILE a$<>"140 Couleurs": READ a$: END_WHILE
  nco% = 0: READ a$
  WHILE a$<>"FF"
      nco% = nco%+1: READ c$: ITEM_ADD dln%,a$+","+c$: ITEM_ADD dlc%,c$+","+a$: READ a$
  END_WHILE
  SORT dlc%
  wp% = 100: hp% = 18: hi% = 45
  nr = nco%/nc%: IF nr > INT(nr) THEN nr = nr+1: ' nombre de rangées d'affichage
  f% = dlc%+1
  FORM f%: WIDTH f%,(wp%+5)*nc%+20: HEIGHT f%,nr*45+60: BORDER_SMALL f%: CAPTION f%,"140 couleurs HTML"
          FONT_BOLD f%: FONT_SIZE f%,12: COLOR f%,96,96,96: ON_CLOSE f%,Fchtml
          FONT_NAME f%,"Calibri"
  i%=f%+1: PICTURE i%: PARENT i%,f%: FULL_SPACE i%: HEIGHT i%,HEIGHT(f%+1)-28
          2D_TARGET_IS i%: PRINT_TARGET_IS i%: FONT_SIZE i%,8: ON_CLICK i%,Fchcol
  i%=i%+1: BUTTON i%: PARENT i%,f%: TOP i%,HEIGHT(f%)-60: LEFT i%,5: CAPTION i%,"Tri/Teinte"
          ON_CLICK i%,Fchtri: te% = 0
  i%=i%+1: PICTURE i%: PARENT i%,f%: HEIGHT i%,24: TOP i%,TOP(i%-1): LEFT i%,LEFT(i%-1)+80: WIDTH i%,50
  i%=i%+1: ALPHA i%: PARENT i%,f%: TOP i%,TOP(i%-1)+3: LEFT i%,LEFT(i%-1)+WIDTH(i%-1)
          COLOR i%,255,255,0
  i%=i%+1: BUTTON i%: PARENT i%,f%: TOP i%,TOP(f%+2): LEFT i%,WIDTH(f%)-95
          CAPTION i%,"OK": ON_CLICK i%,Fchtml
  te% = 0: GOSUB Fchaff: ' affichage: tri alpha
  CLIPBOARD_STRING_COPY "FFFFFF": ' à tout hasard
  WHILE ff%=0: PAUSE 300: END_WHILE
  2D_TARGET_IS 0: PRINT_TARGET_IS 0: DELETE f%: DELETE dln%: DELETE dlc%: EXIT_SUB
Fchtml:
  ff% = 1
RETURN
Fchaff:
  y% = 0: x% = 5: HIDE f%+1: CLS
  FOR i% = 1 TO nco%
      IF te% = 0
          a$ = ITEM_READ$(dln%,i%): j% = INSTR(a$,",")
          c$ = RIGHT_POS$(a$,j%+1): n$ = LEFT$(a$,j%-1)
      ELSE
          a$ = ITEM_READ$(dlc%,i%): j% = INSTR(a$,",")
          n$ = RIGHT_POS$(a$,j%+1): c$ = LEFT$(a$,j%-1)
      END_IF
      r%=HEX(LEFT$(c$,2)): g%=HEX(MID$(c$,3,2)): b%=HEX(RIGHT$(c$,2))
      2D_PEN_COLOR r%,g%,b%: 2D_FILL_COLOR r%,g%,b%
      2D_RECTANGLE x%,y%,x%+wp%,y%+hp%: 2D_FILL_COLOR 255,255,255
      PRINT_LOCATE x%,y%+hp%: PRINT "#"+c$
      PRINT_LOCATE x%,y%+hp%+11: PRINT n$
      x% = x%+wp%+5: IF x%>(WIDTH(f%)-wp%) THEN x% = 5: y% = y%+hi%
  NEXT i%
  SHOW f%+1
RETURN
Fchcol:
  x% = MOUSE_X_LEFT_DOWN(f%+1): y% = MOUSE_Y_LEFT_DOWN(f%+1)
  r%=COLOR_PIXEL_RED(f%+1,x%,y%): g%=COLOR_PIXEL_GREEN(f%+1,x%,y%): b%=COLOR_PIXEL_BLUE(f%+1,x%,y%)
  c$ = RIGHT$("0"+HEX$(r%),2)+RIGHT$("0"+HEX$(g%),2)+RIGHT$("0"+HEX$(b%),2)
  CLIPBOARD_STRING_COPY c$
  COLOR f%+3,r%,g%,b%
  FOR i% = 1 TO nco%
      a$ = ITEM_READ$(dlc%,i%)
      IF LEFT$(ITEM_READ$(dlc%,i%),6) = c$ THEN EXIT_FOR
  NEXT i%
  CAPTION f%+4," #"+c$+" "+RIGHT_POS$(a$,8)+" "
RETURN
Fchtri:
  IF te% = 0
      te% = 1: GOSUB Fchaff: CAPTION f%+2,"Tri/Alpha"
  ELSE
      te% = 0: GOSUB Fchaff: CAPTION f%+2,"Tri/Teinte"
  END_IF
RETURN
END_SUB

9/4 Ajout d'un paramètre dans la sub: nombre de colonnes de couleurs à afficher (pour ajuster à son écran)
+ récupération en sortie dans le presse-papier d'une couleur éventuellement cliquée, sous forme de code en hexa RRGGBB
10/4 Ajout du tri des couleurs par ordre alphabétique ou par valeur hexa (avec affichage de la couleur cliquée).


Dernière édition par JL35 le Dim 10 Avr 2016 - 23:35, édité 8 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Couleurs HTML   Ven 8 Avr 2016 - 18:58

Juste un petit conseil:
les DATA de ta SUB vont s"ajouter aux autres DATAs du programme. Et ce pas au moment où tu appelles la SUB, mais avant le démarrage proprement-dit, puisque l'interpréteur de Panoramic analyse d'abord grossièrement le source (comptage des IF/ENS_IF, SUB/END_SUB etc) et traitement de toutes les lignes DATA. Donc, pour que ta SUB marche dans tous les cas, il faudrait remplacer ta ligne
Code:
READ a$: WHILE a$<>"Couleurs": READ a$: END_WHILE
par
Code:
RESTORE : READ a$: WHILE a$<>"Couleurs": READ a$: END_WHILE
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 5922
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Couleurs HTML   Ven 8 Avr 2016 - 19:03

Tu me surprends Klaus... Il me semble qu'avec le 'WHILE a$<>"Couleurs" (qui est fait pour ça) on se positionne dans tous les cas au début de la bonne série de Datas, quoi qu'il y ait avant, jusqu'à la fin marquée par 'FF'.
Ou alors quelque chose m'échappe...

Ah oui pardon, tu as parfaitement raison, c'est le Restore que j'ai oublié ! je corrige ça tout de suite Embarassed
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5518
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Couleurs HTML   Ven 8 Avr 2016 - 20:45

Merci JL35 pour avoir pensé à meubler le silence ambiant qui commence à peser lourd.
J’ai adapté le code à mon écran et à mes yeux.
Voici ce que ça donne:
Code:

CouleursHtml()
END
' =====
SUB CouleursHtml()
  DIM_LOCAL f%,ff%,a$,nc%,cnom$(150),ccode$(150),i%,j%,wp%,hp%,x%,y%,r%,g%,b%
  IF LABEL("Fchtml")=0 THEN LABEL Fchtml
  DATA "Couleurs": ' les 140 couleurs Html
  DATA "aliceblue","F0F8FF","antiquewhite","FAEBD7","aqua","00FFFF","aquamarine","7FFFD4"
  DATA "azure","F0FFFF","beige","F5F5DC","bisque","FFE4C4","black","000000"
  DATA "blanchedalmond","FFEBCD","blue","0000FF","blueviolet","8A2BE2","brown","A52A2A"
  DATA "burlywood","DEB887","cadetblue","5F9EA0","chartreuse","7FFF00","chocolate","D2691E"
  DATA "coral","FF7F50","cornflowerblue","6495ED","cornsilk","FFF8DC","crimson","DC143C"
  DATA "cyan","00FFFF","darkblue","00008B","darkcyan","008B8B","darkgoldenrod","B8860B"
  DATA "darkgray","A9A9A9","darkgreen","006400","darkkhaki","BDB76B","darkmagenta","8B008B"
  DATA "darkolivegreen","556B2F","darkorange","FF8C00","darkorchid","9932CC"
  DATA "darkred","8B0000","darksalmon","E9967A","darkseagreen","8FBC8F"
  DATA "darkslateblue","483D8B","darkslategray","2F4F4F","darkturquoise","00CED1"
  DATA "darkviolet","9400D3","deeppink","FF1493","deepskyblue","00BFFF"
  DATA "dimgray","696969","dodgerblue","1E90FF","firebrick","B22222","floralwhite","FFFAF0"
  DATA "forestgreen","228B22","fuchsia","FF00FF","gainsboro","DCDCDC","ghostwhite","F8F8FF"
  DATA "gold","FFD700","goldenrod","DAA520","gray","808080","green","008000"
  DATA "greenyellow","ADFF2F","honeydew","F0FFF0","hotpink","FF69B4","indianred","CD5C5C"
  DATA "indigo","4B0082","ivory","FFFFF0","khaki","F0E68C","lavender","E6E6FA"
  DATA "lavenderblush","FFF0F5","lawngreen","7CFC00","lemonchiffon","FFFACD"
  DATA "lightblue","ADD8E6","lightcoral","F08080","lightcyan","E0FFFF","lightgoldenrodyellow","FAFAD2"
  DATA "lightgreen","90EE90","lightgrey","D3D3D3","lightpink","FFB6C1","lightsalmon","FFA07A"
  DATA "lightseagreen","20B2AA","lightskyblue","87CEFA","lightslategray","778899"
  DATA "lightsteelblue","B0C4DE","lightyellow","FFFFE0","lime","00FF00"
  DATA "limegreen","32CD32","linen","FAF0E6","magenta","FF00FF","maroon","800000"
  DATA "mediumaquamarine","66CDAA","mediumblue","0000CD","mediumorchid","BA55D3"
  DATA "mediumpurple","9370DB","mediumseagreen","3CB371","mediumslateblue","7B68EE"
  DATA "mediumspringgreen","00FA9A","mediumturquoise","48D1CC","mediumvioletred","C71585"
  DATA "midnightblue","191970","mintcream","F5FFFA","mistyrose","FFE4E1"
  DATA "moccasin","FFE4B5","navajowhite","FFDEAD","navy","000080","oldlace","FDF5E6"
  DATA "olive","808000","olivedrab","6B8E23","orange","FFA500","orangered","FF4500"
  DATA "orchid","DA70D6","palegoldenrod","EEE8AA","palegreen","98FB98","paleturquoise","AFEEEE"
  DATA "palevioletred","DB7093","papayawhip","FFEFD5","peachpuff","FFDAB9"
  DATA "peru","CD853F","pink","FFC0CB","plum","DDA0DD","powderblue","B0E0E6"
  DATA "purple","800080","red","FF0000","rosybrown","BC8F8F","royalblue","4169E1"
  DATA "saddlebrown","8B4513","salmon","FA8072","sandybrown","F4A460","seagreen","2E8B57"
  DATA "seashell","FFF5EE","sienna","A0522D","silver","C0C0C0","skyblue","87CEEB"
  DATA "slateblue","6A5ACD","slategray","708090","snow","FFFAFA","springgreen","00FF7F"
  DATA "steelblue","4682B4","tan","D2B48C","teal","008080","thistle","D8BFD8"
  DATA "tomato","FF6347","turquoise","40E0D0","violet","EE82EE","wheat","F5DEB3"
  DATA "white","FFFFFF","whitesmoke","F5F5F5","yellow","FFFF00","yellowgreen","9ACD32"
  DATA "FF"
  RESTORE: READ a$: WHILE a$<>"Couleurs": READ a$: END_WHILE
  nc% = 0: READ a$
  WHILE a$<>"FF"
      nc% = nc%+1: cnom$(nc%) = a$: READ a$: ccode$(nc%) = a$: READ a$
  END_WHILE
  f%=900
  FORM f%: WIDTH f%,1150: HEIGHT f%,700: BORDER_SMALL f%: CAPTION f%,"140 couleurs HTML"
  ON_CLOSE f%,Fchtml
  PICTURE f%+1: PARENT f%+1,f%: FULL_SPACE f%+1: 2D_TARGET_IS f%+1
  PRINT_TARGET_IS f%+1: FONT_NAME f%+1,"Calibri" : font_bold f%+1
  wp% = 100: hp% = 18: y% = 10: x% = 25
  FOR i% = 1 TO nc%
      a$ = ccode$(i%): r%=HEX(LEFT$(a$,2)): g%=HEX(MID$(a$,3,2)): b%=HEX(RIGHT$(a$,2))
      2D_PEN_COLOR r%,g%,b%: 2D_FILL_COLOR r%,g%,b%
      2D_RECTANGLE x%,y%,x%+wp%,y%+hp%: 2D_FILL_COLOR 255,255,255
      PRINT_LOCATE x%,y%+hp%: PRINT "#"+a$
      PRINT_LOCATE x%,y%+hp%+10: PRINT cnom$(i%)
      x% = x%+wp%+10: IF x%>(WIDTH(f%)-wp%-20) THEN x% = 25: y% = y%+45
  NEXT i%
  WHILE ff%=0: PAUSE 300: END_WHILE: DELETE f%: EXIT_SUB
Fchtml:
  ff% = 1
RETURN
END_SUB
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5922
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Couleurs HTML   Ven 8 Avr 2016 - 21:16

Bonsoir papydall, effectivement c'est sans doute plus universel comme ça, j'ai tendance à prendre mes aises avec mon 24 pouces 1920x1200... Very Happy
Mais bon, on peut ajuster facilement à la demande.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4989
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Couleurs HTML   Ven 8 Avr 2016 - 21:35

Bonsoir JL35,

Je n'utilise pas le HTML, mais c'est a conserver pour le cas où...
La présentation de Papydall me convient mieux car il n'y a pas l'ascenseur à droite (encore cette histoire de hauteur de bandeau sous W8 et W10).

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5518
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Couleurs HTML   Ven 8 Avr 2016 - 21:41

Jl35 a écrit:
… avec mon 24 pouces 1920x1200...    

Veinard !
J’ai presque honte avec mon 20 pouces 1600 x 900

Jean Claude a écrit:
Je n'utilise pas le HTML, mais c'est a conserver pour le cas où...

Ça ne sert pas qu’en HTML, tu peux copier les valeurs RGB pour utiliser une de ces couleurs en Panoramic
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5922
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Couleurs HTML   Ven 8 Avr 2016 - 22:46

Bonsoir Jean Claude, et excuse-moi pour les ascenseurs, encore une fois. Il va bien falloir que je passe à W10 un de ces jours, mais j'avoue que je traîne les pieds au maximum.
Et papydall a raison, moi aussi je ne fais qu'exceptionnellement du html, mais les codes des couleurs peuvent être utiles pour bien d'autres choses, ça sert de palette.

@papydall mon écran c'était un modèle d'expo Acer et je l'ai eu à un prix très intéressant...
Quand je repense à mon TRS80 avec sa définition de 16 lignes de 64 caractères ce qui était déjà bien pour l'époque, et en graphique 128 x 48...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5518
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Couleurs HTML   Sam 9 Avr 2016 - 1:38

JL35 a écrit:
Quand je repense à mon TRS80 avec sa définition de 16 lignes de 64 caractères ce qui était déjà bien pour l'époque, et en graphique 128 x 48...

Quand je disais que tu es veinard ….
Je pense à mon ZX81 avec un mode texte de 32 x 24 et grâce aux caractères semi-graphiques, ça donnait accès à une résolution de 64 x 48 que j'avais exploitée pour tracer des jolies courbes mathématiques.
En assembleur, on (ce n'est pas moi  Embarassed ) pouvait créer des jeux avec une résolution « phénoménale » (à l'époque) de 256 x 192 en monochrome !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5922
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Couleurs HTML   Sam 9 Avr 2016 - 15:31

ZX81 j'ai eu aussi, avant, à côté le TRS80 ça a été la révolution avec son moniteur et son lecteur de cassettes, et un basic très correct, mais très lent, alors j'ai fait beaucoup d'assembleur aussi, pour la rapidité. Le graphisme c'était aussi avec des caractères, on n'avait pas accès au pixel. Après ça a été l'Amstrad, puis le pc standard.
Tout ça c'était le moyen âge...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5518
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Couleurs HTML   Sam 9 Avr 2016 - 15:43

Citation :
Tout ça c'était le moyen âge...

Heu … c’est-à-dire que tu n’es pas si jeune que ça. No
Parler du moyen âge, quelle modestie de la part de celui qui a connu la bande perforée qui datait de la préhistoire! farao
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5922
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Couleurs HTML   Sam 9 Avr 2016 - 16:09

Si tu veux tout savoir, avant la bande perforée j'ai même pratiqué le morse, au manipulateur...
Mais je suis né trop tard pour les signaux de fumée, et même le sémaphore, dommage.
Et j'ai raté les dinosaures, de peu.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5518
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Couleurs HTML   Sam 9 Avr 2016 - 17:15

Code:

   -. --- ..- ...  ... --- -- -- . ...  .-  .--. . ..-  .--. .-. .  ... -.. .  .-.. .-  -- . -- .  . .--. --- --.- ..- .



NOUS SOMMES A PEU PRES DE LA MEME EPOQUE  farao
 


Dernière édition par papydall le Sam 9 Avr 2016 - 18:11, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5922
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Couleurs HTML   Sam 9 Avr 2016 - 17:51

tu as oublié un 's' dans ton morse... Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5518
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Couleurs HTML   Sam 9 Avr 2016 - 18:16

C’est corrigé. cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5922
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Couleurs HTML   Sam 9 Avr 2016 - 19:14

Suite aux remarques judicieuses de Jean Claude et papydall, j'ai ajouté dans la version Sub un paramètre à donner qui précise le nombre de colonnes de couleurs à afficher.
Ce qui permet de moduler le rapport hauteur/largeur de l'affichage, pour adapter à son écran et à ses besoins.
Avec un bouton de sortie en bas, pour faire plus propre.

Après on peut facilement imaginer un clic sur une couleur qui enverrait le code de la couleur choisie dans le presse-papier par exemple, mais bon, ça dépend de ce qu'on veut en faire.

PS pendant que j'y étais, j'ai ajouté la copie dans le presse-papier du code en hexa (de la forme RRGGBB) d'une couleur cliquée dans la sub.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5922
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Couleurs HTML   Dim 10 Avr 2016 - 18:44

Ajout du tri des couleurs pour la présentation: ordre alphabétique (nom des couleurs) ou par valeur hexa.
+ affichage de la couleur cliquée, pour voir.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7975
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 10 Avr 2016 - 19:15

Un classement par code hexa serait peut être judicieux.
Cela permettrait d' avoir les couleurs par ton.
Si on cherche une couleur pour coloriser un objet html on a une idée de la couleur principale.
Après, c' est souvent la nuance de cette couleur principale qui pose souci.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
silverman

avatar

Nombre de messages : 464
Age : 45
Localisation : Picardie
Date d'inscription : 19/03/2015

MessageSujet: Re: Couleurs HTML   Dim 10 Avr 2016 - 20:32

Si à la fin de la ligne 68 tu caches le picture et que tu le montre après le 'gosub Fchaff', l'affichage est instantané, c'est plus joli à mon gout.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5922
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Couleurs HTML   Dim 10 Avr 2016 - 21:46

@silverman,
Si on veut, mais bon, pour moi c'est un détail.
Oui, tu as raison finalement, si on met Hide f%+1 au début du s/p Fchaff et Show f%+1 juste avant le return, l'affichage est instantané, c'est plus joli.
Je viens de l'intégrer là-haut, merci pour ta remarque.

@ygeronimi
Tu as déjà le choix entre le classement par nom de couleur (Tri/Alpha) ou le classement par code (Tri/Teinte).
Après on pourrait peut-être faire des classements par couleurs... mais là ça sort un peu du cadre de la sub, et en plus ça dépasse un peu mes compétences !

Pour info, j'ai pris les couleurs ici: http://www.commentcamarche.net/contents/490-codes-couleur-html
Je note qu'il y a deux paires de couleurs identiques avec des noms différents:
aqua et cyan (00FFFF)
fuschia et magenta (FF00FF)

J'ai corrigé un petit (?) bug: je ne redonnais pas le print_target et le 2d_target à Form 0 avant de supprimer le Form de travail, curieusement ça ne provoquait pas d'erreur au moment de la suppression du Form comme ça aurait dû...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Couleurs HTML   

Revenir en haut Aller en bas
 
Couleurs HTML
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Ajout d'un sélecteur de couleurs
» couleur transparent
» Menu déroulant couleur (besoin code html)
» Comment ajouter couleurs au cadre du tableau
» Pourquoi ne puis-je pas changer les couleurs des textes?

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: