1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| nRatioH est un réel = MaFenêtre..Hauteur/MaFenêtre..HauteurInitialenRatioV est un réel = MaFenêtre..Largeur/MaFenêtre..LargeurInitiale
nTaillePolice est un entier = 9
// Détermination du nombre de champs
nNumChamps est un entier = 1
sChampEnCours est une chaîne
sChampEnCours = EnumèreChamp(FEN_Size, nNumChamps)
TANTQUE sChampEnCours<>""
nNumChamps++
{sChampEnCours,indChamp}..X = {sChampEnCours,indChamp}..XInitial * nRatioV
{sChampEnCours,indChamp}..Largeur = {sChampEnCours,indChamp}..LargeurInitiale * nRatioV
{sChampEnCours,indChamp}..Y = {sChampEnCours,indChamp}..YInitial * nRatioH
{sChampEnCours,indChamp}..Hauteur = {sChampEnCours,indChamp}..HauteurInitiale * nRatioH
SI nRatioV=1 ALORS
{sChampEnCours,indChamp}..PoliceTaille = nTaillePolice
SINON
{sChampEnCours,indChamp}..PoliceTaille = {sChampEnCours,indChamp}..PoliceTaille * (nRatioV/0.8)
FIN
sChampEnCours = EnumèreChamp(FEN_Size, nNumChamps)
FIN |
Partager