OVH Cloud OVH Cloud

[WD 7.5] Police

6 réponses
Avatar
Jean Passe
Salut,

Peut-on, par programmation, changer le police d'affichage pour une table
p.e. (type, taille,...) ?

Merci.
A+
Jan Van Wijk

6 réponses

Avatar
Romain PETIT
Le 25/08/2004, Jean Passe a supposé :
Salut,



Salut,

Peut-on, par programmation, changer le police d'affichage pour une table
p.e. (type, taille,...) ?



Oui (table mémoire), mais il faut définir une police avant et appliquer
la police APRES avoir rempli la table.

exemple :
pPoliceBarre est une Police = PoliceCrée("Courier New",12, iBarre)
//barré sur ligne2
Table1[2]..Police = pPoliceBarre
//barré sur colonne 2 ligne 1
Table1.Colonne2[1]..Police = pPoliceBarre

A+

--
Romain PETIT
http://cerbermail.com/?IJmancZl88
(cliquez sur le lien ci-dessus pour me contacter en privé)
Avatar
mat
Romain PETIT wrote:
Le 25/08/2004, Jean Passe a supposé :

Salut,




Salut,

Peut-on, par programmation, changer le police d'affichage pour une table
p.e. (type, taille,...) ?




Oui (table mémoire), mais il faut définir une police avant et appliquer
la police APRES avoir rempli la table.

exemple :
pPoliceBarre est une Police = PoliceCrée("Courier New",12, iBarre)
//barré sur ligne2
Table1[2]..Police = pPoliceBarre
//barré sur colonne 2 ligne 1
Table1.Colonne2[1]..Police = pPoliceBarre

A+




Tu peux appliquer la même chose à l'affichage de la ligne et donc
changer la police (p.ex gras ou non) selon le contenu de la ligne.
Avatar
Pascal F
mat a émis l'idée suivante :
Romain PETIT wrote:
Le 25/08/2004, Jean Passe a supposé :

Salut,




Salut,

Peut-on, par programmation, changer le police d'affichage pour une table
p.e. (type, taille,...) ?




Oui (table mémoire), mais il faut définir une police avant et appliquer
la police APRES avoir rempli la table.

exemple :
pPoliceBarre est une Police = PoliceCrée("Courier New",12, iBarre)
//barré sur ligne2
Table1[2]..Police = pPoliceBarre
//barré sur colonne 2 ligne 1
Table1.Colonne2[1]..Police = pPoliceBarre

A+




Tu peux appliquer la même chose à l'affichage de la ligne et donc changer la
police (p.ex gras ou non) selon le contenu de la ligne.



Il est aussi possible de modifier les attributs de la police sans faire
de icreepolice par la méthode suivante (issu d'une classe) pour
affecter des paramètres prédéfinis:

SI :stIndice>0 ALORS // le champ est une ligne de table (indice >0)
{:stNom}[:stIndice]..CouleurFond=:stCoul
{:stNom}[:stIndice]..PoliceNom=:stPolNom
{:stNom}[:stIndice]..PoliceItalique=:stPolItal
{:stNom}[:stIndice]..PoliceTaille=:stPolTail
{:stNom}[:stIndice]..PoliceGras=:stPolGras
{:stNom}[:stIndice]..PoliceSoulignée=:stPolSoul
{:stNom}[:stIndice]..Couleur=:stPolCoul
//{:stNom}..Largeur=:stLong
{:stNom}..Etat=:stEtat
{:stNom}..CadrageHorizontal=:stCadrage
SINON // le champ n'est pas indicé
{:stNom}..CouleurFond=:stCoul
{:stNom}..PoliceNom=:stPolNom
{:stNom}..PoliceItalique=:stPolItal
{:stNom}..PoliceTaille=:stPolTail
{:stNom}..PoliceGras=:stPolGras
{:stNom}..PoliceSoulignée=:stPolSoul
{:stNom}..Couleur=:stPolCoul
{:stNom}..Hauteur=:stHaut
//{:stNom}..Largeur=:stLong
{:stNom}..CadrageHorizontal=:stCadrage
{:stNom}..Etat=:stEtat
FIN

ou bien pour choisir une police depuis la table de police Windows:
maPolice est une Police
cChamp est une chaîne=ChampEnCours()
intPos est un entier=IndiceEnCours()
cParent est une chaîne
cParent=ParentObjet(cChamp)

SI intPos=0 OU cParentþnEnExécution ALORS
maPolice={cChamp}..Police
SI PoliceSelect(maPolice) ALORS
{cChamp}..Modifié=Vrai
{cChamp}..Police=maPolice
FIN
SINON
maPolice={cChamp}[intPos]..Police
maPolice..Couleur={cChamp}[intPos]..Couleur
SI PoliceSelect(maPolice) ALORS
{cChamp}[intPos]..Police=maPolice
SI {cParent}..Type=typTable ALORS
{cParent}..Modifié=Vrai
SINON
{cChamp}..Modifié=Vrai
FIN
FIN
FIN

--
Pascal Ferracci
efpé


Avatar
Romain PETIT
Pascal F a écrit :

Il est aussi possible de modifier les attributs de la police sans faire de
icreepolice par la méthode suivante (issu d'une classe) pour affecter des
paramètres prédéfinis:


[...]
..PoliceNom
..PoliceItalique
..PoliceTaille
..PoliceGras



Non, pas en 7.5.
Mais faut croire que ça sert à quelque chose de poster les TODO :

http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadmËrd7vc3vo3jegmhrt5kadfsmhsssooka2%404ax.com&rnum=1&prev=/groups%3Fq%3DPoliceGras%2520windev%26hl%3Dfr%26lr%3D%26ie%3DUTF-8%26sa%3DN%26tab%3Dwg

A+

--
Romain PETIT
http://cerbermail.com/?IJmancZl88
(cliquez sur le lien ci-dessus pour me contacter en privé)
Avatar
Jean Passe
Salut,

Merci beaucoup pour vos réponses.

C'est vrai que je ne pense pas toujours à consulter les archives ou que je
cherche mal parfois.

A+

--
Jan Van Wijk
Non, pas en 7.5.
Mais faut croire que ça sert à quelque chose de poster les TODO :




http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadmËrd7vc3vo3jegmhrt5kadfsmhsssooka2%404ax.com&rnum=1&prev=/groups%3Fq%3DPoliceGras%2520windev%26hl%3Dfr%26lr%3D%26ie%3DUTF-8%26sa%3DN%26tab%3Dwg
Avatar
Pascal F
Jean Passe a utilisé son clavier pour écrire :
Salut,

Merci beaucoup pour vos réponses.

C'est vrai que je ne pense pas toujours à consulter les archives ou que je
cherche mal parfois.

A+



Mille excuses
Je n'avais pas prété attention au [WD 7.5] comme quoi a vouloir aller trop vite :'(

--
Pascal Ferracci
efpé