font_color sur button

Invité

Bonjour,

Il y a longtemps que cela à été demandé et me parait très simple c'est font_color sur un button.

Il y a pleins d'autres objets avec qui font_color marche, mais pas button.

Merci,
Nicolas

Je suis d'accord avec toi .
Ce serait un peu plus sympa les boutons en couleur.

albino

Et on ne peut pas non plus changer la couleur de fond par la commande color, ni l'image de fond par la commande file_load.

Aijourd'hui,, le moyen d'avoir un bouton coloré ou avec une image de fond, et avec une écriture en couleur, c'est d'utiliser un picture avec son évènement on_click. Je dis cela juste pour donner une moyen dans l'immédiat de faire cela; d'ailleurs, cela a été longuement débattu sur le forum, avec des programmes exemples, certains permettant même d'avoir l'effet visuel de la touche enfoncée lord d'un click...

Oui mais tu avoueras que celà simplifierait le source
et allègerait l'application que l'objet boutton accepte ces commandes.
Ne serait ce déjà que la couleur du font après on peut trouver des polices bitmap ou les créer.

Bien sûr. Ceci a déjà été demandé à Jack, mais j'ai l'impression qu'il travaille actuellement sur quelques gros morceaux, et ces choses-là attendront sûrement encore un peu.

Je me doute bien qu'il doit avoir d'autres priorité
vu tout ce qu'on lui demande Laughing

mais il faudrait y penser car l'écriture en couleur sur certains
boutons pourrait éviter quelques erreurs de l'utilisateur
quand le "active / inactive" n'est pas appliqué au bouton drunken

.

Admin Nombre de messages : 2386 Date d'inscription : 28/05/2007

Citation :: j'ai l'impression qu'il travaille actuellement sur quelques gros morceaux, et ces choses-là attendront sûrement encore un peu.

Oui, sur 2 choses en même temps:
- les plugins. On peut désormais créer sa propre commande qui agit sur un objet système, selon le code qu'on a développé dans un autre langage (C++ ou Delphi).
- un portage de PANORAMIC sous LINUX (sur UBUNTU 10.10 plus exactement). La 3D et les SPRITES ne sont pas encore abordés, mais tous les objets système sauf SOUND, SPIN et MOVIE fonctionnent.

Yes !!!!!

J'attend avec impatience les plugins ! et je ne dois pas être le seul... Wink

Merci Jack !!

J'ai déterré un prog de JL35 et j'ai fait quelques modifs...
C'est perfectible (notamment l'affichage du texte dans les boutons)
il vaudrait mieux faire l'inverse : faire un print du texte dans un objet caché puis tester les pixels allumés
avant dans recopier ceux-ci dans le picture...

Code:: #include "color.bas"
' Adaptation du programme de JL35
' http://panoramic.1fr1.net/t1017-dessine-moi-un-bouton
DIM n%, x%, y%, l%, h%, k%, ba%, r, g, b, t$, a$, xt%, yt%
DIM i%
LABEL Pseudobout, rr, rs, Traitement

ba% = 0: ' numéro du dernier bouton actif
BUTTON 1: TOP 1, 10: LEFT 1, 150: WIDTH 1, 200: CAPTION 1, "Bouton classique Panoramic"
ON_CLICK 1, Traitement

l% = 150: h% = 32
n% = 2: PICTURE n%
x% = 20: y% = 50: r = 220: g=255: b=255: t$ = "Symétrie<#horizontale"
GOSUB Pseudobout: ON_CLICK n%, Traitement
l% = 150: h% = 32
n% = n%+1: PICTURE n%
x% = 200: y% = 50: r = 255: g=220: b=220: t$ = "Symétrie<#verticale"
GOSUB Pseudobout: ON_CLICK n%, Traitement
n% = n%+1: PICTURE n%
l% = 100: x% = 130: y% = 100: r = 192: g = 255: b = 192: t$ = "Exécuter"
GOSUB Pseudobout: ON_CLICK n%, Traitement
n% = n%+1: PICTURE n%
l% = 30: h% = 120: x% = 50: y% = 100: r=255: g=192: b=255: t$ = "OUTILS"
GOSUB Pseudobout: ON_CLICK n%, Traitement
n% = n%+1: PICTURE n%
l% = 150: h% = 80: x% = 200: y% = 150: r = 255: g = 255: b = 180
t$ = "Cliquez ici<#et vous verrez<#la mer"
GOSUB PseudoBout: ON_CLICK n%, Traitement

BUTTON 800: TOP 800,-50

END

Pseudobout:
' Création en x% et y% d'un pseudo-bouton de numéro n%, de couleur rgb donnée,
' de dimensions l% et h%, de 1 ou plusieurs lignes de titre (si plusieurs lignes:
' séparées par '<#')
' Police Lucida Console, taille 10, caractères 8x12
TOP n%, y%: LEFT n%, x%: WIDTH n%, l%: HEIGHT n%, h%
2D_TARGET_IS n%
2D_PEN_COLOR 0,0,0: ' 2D_FILL_COLOR r,g,b
' 2D_RECTANGLE 0, 0, l%-1, h%-1
2D_PEN_COLOR 255,255,255: 2D_LINE 0,0,l%-1,0: 2D_LINE 0,0,0,h%-1
PRINT_TARGET_IS n%: FONT_NAME n%, "Lucida Console": FONT_SIZE n%, 10
IF l% < h%
' bouton vertical
xt% = (l%-8)/2: yt% = (h%-12*LEN(t$))/2
FOR k% = 1 TO LEN(t$)
PRINT_LOCATE xt%, yt%: PRINT MID$(t$, k%, 1): yt% = yt% + 12
NEXT k%
ELSE
a$ = t$: yt% = (h%-12)/2
rr:
k% = INSTR(a$, "<#")
IF k% > 0
yt% = yt%-6: a$ = MID$(a$, k%+2, LEN(a$)-k%-1): GOTO rr
END_IF
a$ = t$
rs:
k% = INSTR(a$, "<#")
IF k% > 0
PRINT_LOCATE (l%-8*LEN(LEFT$(a$,k%-1)))/2, yt%: PRINT LEFT$(a$, k%-1)
a$ = MID$(a$, k%+2, LEN(a$)-k%-1): yt% = yt% + 12: GOTO rs
END_IF
PRINT_LOCATE (l%-8*LEN(a$))/2, yt%: PRINT a$
END_IF
dll_on "color.dll"
color_Red% = int(r): color_Green% = int(g):color_Blue% = int(b)
k% = dll_call4("ContractRGB",color_Red%,color_Green%,color_Blue%,color_pRGB)
k% = dll_call4("RGBtoHSV",color_pT,color_pS,color_pV,color_pRGB)
for k%=0 to height(n%)
i% = dll_call4("HSVtoRGB",color_pT,color_pS,color_pV,color_pRGB)
i% = dll_call4("ExpandRGB",color_pRed,color_pGreen,color_pBlue,color_pRGB)
2d_pen_color color_Red%,color_Green%,color_Blue%
for i%=0 to l%-1
if COLOR_PIXEL_RED(n%,i%,k%)=255 then 2d_point i%,k%
next i%
color_S% = int(1+(100*k%/height(n%)))
next k%
dll_off

RETURN

Traitement:
' bouton actif: rectangle de pointillés
FOR k% = 1 TO 5
IF CLICKED(k%) = 1 THEN EXIT_FOR
NEXT k%
' IF k% = 1 THEN ba% = k%: RETURN: ' Bouton classique
IF ba% <> 0
IF ba% = 1
SET_FOCUS 800
ELSE
r=COLOR_PIXEL_RED(ba%,2,2):g=COLOR_PIXEL_GREEN(ba%,2,2):b=COLOR_PIXEL_GREEN(ba%,2,2)
2D_TARGET_IS ba%: 2D_PEN_COLOR r,g,b
2D_LINE 4,4,l%-5,4: 2D_POLY_TO l%-5,h%-5:2D_POLY_TO 4,h%-5:2D_POLY_TO 4,4
END_IF
END_IF
IF k% = 1 THEN ba% = k%: RETURN
TOP k%,TOP(k%)+2:LEFT k%,LEFT(k%)+2:WAIT 200:TOP k%,TOP(k%)-2:LEFT k%,LEFT(k%)-2
ba% = k%
2D_TARGET_IS k%: l% = WIDTH(k%): h% = HEIGHT(k%)
2D_PEN_COLOR 0,0,0
FOR k% = 4 TO l%-5 STEP 3: 2D_POINT k%, 4: 2D_POINT k%, h%-5: NEXT k%
FOR k% = 4 TO h%-5 STEP 3: 2D_POINT 4, k%: 2D_POINT l%-5, k%: NEXT k%
RETURN

@ Jack,

Promis on est patient . bounce

@ Nardo,

Il est chouette le cadavre de JL35,
c'est vrai qu'on le fait pas très souvent et moi même je n'aime pas revenir
sur du déjà fait mais certains programmes mériterait de bénéficier des avancées
les plus récentes et notamment des dll qui ont été développée ces derniers temps.
cheers

Nombre de messages : 2709 Date d'inscription : 13/09/2009

Citation :: Il est chouette le cadavre de JL35

Alors là, je te trouve un peu macabre !
Laughing

Je n'y peux rien c'est une seconde nature

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

de l'au-delà je vous salue bien !

@Nardo, je ne me souviens plus mais c'est quoi ce color.bas en include qui n'existe pas chez moi ?

Salut JL35 !

Le color.bas ? c'est ma petite contribution voir mon sujet :
Couleur
Wink

» FONT_COLOR sur BUTTON
» aide pour button
» Form 01061 und Button
» P4A : couleurs sur BUTTON, ça marche ! :-)
» Problème de FONT_COLOR sur BUTTON