1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| PROCEDURE ZoomTable(Table_a_zoomer,Vitesse_zoom_plus,Vitesse_zoom_moins)
nSens est un entier = PoidsFort(_EVE.wParam)
nNb_colonne est un entier = TableOccurrence({Table_a_zoomer},toColonne)
i est un entier
SI nSens < 0 ALORS
// La roulette de la souris va vers le bas --> zoom -
gxCoef_zoom_table = Vitesse_zoom_moins
SINON
// La roulette de la souris va vers le haut --> zoom +
gxCoef_zoom_table = Vitesse_zoom_plus
FIN
POUR i = 1 A nNb_colonne
// largeur des colonnes
{Table_a_zoomer+"."+TableEnumèreColonne({Table_a_zoomer},i)}..Largeur = Arrondi({Table_a_zoomer+"."+TableEnumèreColonne({Table_a_zoomer},i)}..Largeur * (1 + gxCoef_zoom_table),0)
// taille police
{Table_a_zoomer+"."+TableEnumèreColonne({Table_a_zoomer},i)}..PoliceTaille = Arrondi({Table_a_zoomer+"."+TableEnumèreColonne({Table_a_zoomer},i)}..PoliceTaille * (1 + gxCoef_zoom_table),2)
FIN
// hauteur des lignes
{Table_a_zoomer}..HauteurLigne = Arrondi({Table_a_zoomer}..HauteurLigne * (1 + gxCoef_zoom_table),0) |
Partager