PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV Mobile (earlier versions) → Modifier taille de la police de tous les champs d'un projet
Modifier taille de la police de tous les champs d'un projet
Started by Julie, Sep., 25 2014 3:48 PM - 1 reply
Posted on September, 25 2014 - 3:48 PM
Bonjour,

Je développe en WindevMobile 17.
Je cherche pour tous les champs de mon projet (et il y'en a beaucoup) principalement les libellés des boutons à tester la taille du libellé.
Si la taille dépasse 15 caractères je passe mon PoliceTaille à 8 et sinon PoliceTaille reste à 9.

Comment puis-je faire pour l'appliquer sur tous les boutons de mon projet sans avoir à taper un par un :

SI Taille(BTN_1..Libellé)>15 ALORS
FENAccueil.BTN_SaisieClavierChgtCtrlPL..PoliceTaille = 7
FIN
SI Taille(BTN_2..Libellé)>15 ALORS
FENAccueil.BTN_SaisieClavierChgtCtrlPL..PoliceTaille = 7
FIN
...


Merci d'avance
Posted on September, 25 2014 - 4:15 PM
Bonjour Julie

1. en ouverture de chaque fenêtre, tu appelle une procédure globale et
tu lui passe en paramètre le nom de la fenêtre

2. dans la procédure globale, tu énumère tous les boutons avec les
fonction enum

3. Tu utilise ensuite les indirections "{ }" pour tester et modifier si
besoin

Cordialement


--
Fabrice Harari
Consultant WinDev, WebDev et WinDev Mobile International

NOUVEAU: WXReplication, votre système de réplication open source est
disponible sur mon site web !!!
WXShowroom.com : Montrez vos projets !
Plus d'information sur http://fabriceharari.com


On 9/25/2014 7:48 AM, Julie wrote:
Bonjour,

Je développe en WindevMobile 17. Je cherche pour tous les champs de mon
projet (et il y'en a beaucoup) principalement les libellés des boutons à
tester la taille du libellé.
Si la taille dépasse 15 caractères je passe mon PoliceTaille à 8 et
sinon PoliceTaille reste à 9.

Comment puis-je faire pour l'appliquer sur tous les boutons de mon
projet sans avoir à taper un par un :

SI Taille(BTN_1..Libellé)>15 ALORS
FENAccueil.BTN_SaisieClavierChgtCtrlPL..PoliceTaille = 7
FIN
SI Taille(BTN_2..Libellé)>15 ALORS
FENAccueil.BTN_SaisieClavierChgtCtrlPL..PoliceTaille = 7
FIN
...


Merci d'avance