Discussion :

[laurent30s]

Voici comment faire un zoom sur une table avec la roulette + Ctrl à la manière de word ou excel

Dans les déclarations globales de la fenêtre

Code :

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

1
2
EXTERNE "KeyConst.WL"
gxCoef_zoom_table est un numérique = 1

Ajouter l'entrée de code sur la table
Roulette souris (WM_MOUSEWHEEL) sur TABLE_SansNom1

Code :

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

1
2
3
4
// sur l'évènement roulette + Ctrl
SI ToucheEnfoncée(teControl) ALORS
	ZoomTable("TABLE_SansNom1",0.1,-0.090909)
FIN

Procédure permettant de zoomer sur la table

Code :

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

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)

Bon dev
Laurent

[OnePoint]

Bravo Laurent !
Merci pour cette contribution qui mériterait de figurer dans le sous forum "Contribuez".

[laurent30s]

Merci OnePoint
et je suis ton conseil en allant de ce pas copier mon message dans le sous forum contribuer...

Bon dev
Laurent