Discussion :

[Jon Shannow]

Bonjour,

Voilà, je me (re)lance dans Lazarus (mes dernières tentatives ne se sont jamais bien passées), et j'aimerais que tous mes boutons (TBitBtn) aient la même tailles (largeur et hauteur) sans avoir à les modifier à chaque fois.

Pouvez-vous me dire si c'est possible (je n'en doute pas) et si oui, comment ?

Merci d'avance.

JS

[Ph. B.]

Bonjour,

Voilà, je me (re)lance dans Lazarus (mes dernières tentatives ne se sont jamais bien passées), et j'aimerais que tous mes boutons (TBitBtn) aient la même tailles (largeur et hauteur) sans avoir à les modifier à chaque fois.

Pouvez-vous me dire si c'est possible (je n'en doute pas) et si oui, comment

Mais si, c'est possible ! (dixit Roland Magdane)
a) En modifiant le code source du TBitBtn ou de son ancêtre TCustomBitBtn: unité Button (source button.pp)
en surchargeant la méthode Create de la classe TBitBtn ou son ancêtre TCustomBitBtn.
b) Une fois cela fait, il faut reconstruire l'EDI car Lazarus à contrario de Delphi qui utilise des paquets liés dynamiquement, lie statiquement ses composants : menu Outils > Build Lazarus. Et vérifiez les options auparavant : menu Outils > Configurer "Build Lazarus"

Attention, après toute mise à jour de Lazarus, ces sources sont mises à jour également, il faudra reprendre la manipulation.

Ensuite, on pourrait aussi créer un composant dérivé du TCustomBitBtn qui serait construit avec les valeurs de taille voulues, en faire un paquet à installer...
--
Philippe.

[tourlourou]

ou, sans installation, il suffit :
- de faire une unité uMyBitBtn qui déclarera un TMyBitBtn dont la surcharge du Create mettra les valeurs par défaut souhaitées ;
- d'ajouter cette unité en uses des fiches souhaitées ;
- de remplacer les BitBtn par les siens, en déclarant :

Code :

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

type TBitBtn = TMyBitBtn ;

[Ph. B.]

Cette dernière méthode marche lorsque l'on crée les composants à l'exécution, mais je pense que @Jon Shannow parlait de la création lors de la phase de conception, avec le constructeur de fiches donc...
--
Philippe.

[Jon Shannow]

Merci à vous 2, c'est cool.

Je pense que je vais choisir la solution de créer un composant héritant de TBitBtn, ça sera plus propre. Je vais faire un paquet spécial pour l'application qui contiendra les composants hérités, sans changer les composants d'origine, ainsi, si je dois faire une autre appli, je pourrais refaire un paquet différent en dérivant à nouveau les composants dont j'ai besoin.

Merci beaucoup, et à très bientôt, n'en doutez pas !

JS