Couleurs HTML

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

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

Merci ! C'est intéressant et utile. Je prends et je garde.

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

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).

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

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

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

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

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

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.

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+

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

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

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...

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 !

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

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...

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

Heu … c’est-à-dire que tu n’es pas si jeune que ça.

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

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

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.

Code:: -. --- ..- ... ... --- -- -- . ... .- .--. . ..- .--. .-. . ... -.. . .-.. .- -- . -- . . .--. --- --.- ..- .

NOUS SOMMES A PEU PRES DE LA MEME EPOQUE farao

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

tu as oublié un 's' dans ton morse... Very Happy

C’est corrigé. cheers

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

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.

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

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.

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.

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.

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

@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û...

» Affichage d'un GRID en HTML avec couleurs et images
» Palette de couleurs
» Palette (une de plus): 16, 48 ou 216 couleurs
» Outils couleurs
» BAS to HTML