Discussion :

[Modulpro]

Bonjour,

Ma question va peut-être paraître stupide : à quoi sert la propriété "color" d'un TButton ?
J'ai essayé de la modifier via l'inpecteur d'objet et via le code, et le button reste désepérément blanc, à la conception comme à l'execution.
D'où une autre question : comment modifier la couleur de fond d'un Tbutton?

Merci d'avance (c'est agaçant d'être bloqué sur quelque chose d'aussi simple)

[winow]

Bonjour
Sous Ubuntu - Gnome / Lazarus 0.9.28.2
Le TButton change bien de couleur quand on la change d'a partir sa propriété Color.
A+

[Modulpro]

Bonjour,

J'ai effectivement la 0.9.28.2, mais je travail sous XP. J'ai essayé sur deux PC differents, à chaque fois, le TButton reste blanc.
Qulequ'un a t-il le même probleme ?
Est-ce que Windows n'imposerait pas certains réglages pas défauts ?

[winow]

Quand je programmer sous Windows XP avec Borland Builder 6, j'avait le même problème avec les TButton, la propriété Color ne colorisée pas le bouton,

CGI pour BCB6 avait créé un composant TButton avec la propriété Color qui marchait,
Je ne sais pas créer des composants avec Lazarus, peut on l'arranger pour Lazarus ?
j'avais imprimé la page, je peut la retrouver si il le faut.

sinon il y a cela, bouton degradé :
http://chgi.developpez.com/compo7/

[mtournay]

Bonjour

Sous Windows, Lazarus utilise les composant du système (cad les API windows) et le TButton de windows ne permet pas le changement de couleur.

Une des solutions est de rajouter un événement sur 'onPaint' et de dessiner à la main la couleur définie dans la propriété Color (Sans oublier de faire un DrawText après, bien sûr).
Une des autres solution est d'utiliser le speedbutton, entièrement paramétrable.

[Modulpro]

Bonjour,

Tout d'abord, merci pour la réponse.
Etant programmeur débutant, deux questions me viennent :
- Comment "ajouter un événement sur 'onPaint' " ? (je n'ai trouvé aucune propriété onPaint sur les Tbutton)
- Comment " dessiner une couleur à la main" ?

[mtournay]

Bonjour

Pour ce qui est de l'événement onPaint du TButton, j'ai été un peu vite .... effectivement, celui-ci n'existe pas c’était juste de la théorie.

Du coup le TSpeedButton reste la solution multiplateforme à utiliser.


Sinon pour dessiner une couleur à la main :

Quand on dessine dans une fenêtre, on dessine dans un canvas. Le canvas a une brosse (brush) qui permet de définir la couleur avec laquelle on va dessiner. Du coup on obtient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
objet.canvas.brush.color := clRed;
object.canvas.rectangle(Left,Top,Right,Bottom);

PS : onPaint existe sur TSpeedButton

[Modulpro]

Merci pour ces précisions.

J'ai réussis à dessiner sur le canvas du Tspeedbutton en remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(Left,Top,Right,Bottom)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(0,0,width,height)

Resultat : un rectangle de la couleur demandée, mais qui ne ressemble plus du tout à un button (les coins ne sont pas arrondis, pas de cadre bleu...)

N'y a t-il pas de solution pour colorer uniquement le fond du speedbutton (au lieu de dessiner par dessus) ?

Merci.

[parhelie]

pourquoi pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Roundrect(1,1,width-2,height-2,?,?)

ou quelque chose comme ça?