Discussion :

[pepito62]

Bonjour tout le monde !

Voilà j'ai un soucis avec le StringGrid lorsque je fusionne des cellules de mon tableau et que j'actionne la ScrollBar. (Apparement, j'ai le problème uniquement en verticale)

Pour fusionner les cellules d'un StringGrid, nous n'avons pas d'autre choix que de redessiner le rectangle. Pour cela j'ai suivi l'aide de waskol sur ces 2 posts :
http://www.developpez.net/forums/d98...ts/stringgrid/
http://www.developpez.net/forums/d65...sion-cellules/

J'utilise l'unité UnitFusionStringGrid.

Lorsque je scroll vers le bas, j'ai les rectangles dessinés qui monte vers le haut de façon non synchronisé avec la scrollBar. Ce qui provoque la visualisation des cellules en dessous du rectangle dessiné.

Voici ce que j'obtiens (lien vers des images jpg)
http://downsoft.free.fr/calendrier/calendrier1.jpg
http://downsoft.free.fr/calendrier/calendrier2.jpg
http://downsoft.free.fr/calendrier/calendrier3.jpg

Comment puis-je faire pour gérer ceci ? (Synchro avec la scrollBar, rectangle qui change de taille suivant la zone qui rest à afficher....) C'est pas évident.

waskol si tu trouve ce message, à l'aide

[CharleLéo]

Salut Pépito,

Va jeter un oeil vers là :

J'utilise cette solution, et c'est trés bien. Par contre, lorsquu'il faut redefinir le nombre de celulle fusionnée, là j'ai du mal.
J'arrive à réduire à une cellule, mais pas passer de 1 à plusieurs cellules fusionnées.
Si tu as une psite, je suis preneur
A+


PS : le lien
http://www.developpez.net/forums/d68...es-stringgrid/

[pepito62]

Désolé de répondre seulement maintenant.

C'est pour vous dire que j'ai trouvé. J'ai modifié 2 lignes dans l'unité "UnitFusionStringGrid"

Dans la fonction CalcRectOffset, j'ai remplacé

Code :

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

inc(y,Top+RowHeights[j]+GridLineWidth);

par

Code :

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

inc(y,RowHeights[j]+GridLineWidth);

afin de ne plus compter l'entete
==> Avec ceci, je n'ai plus de décalage lorsque je scroll. Le rectangle dessiné se déplace en fonction de la taille des cellules restante.

Ensuite dans la CalcRect, j'ai ajouter ce code

Code :

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

if ARect.Top <= 0 then ARect.Top:= RowHeights[ARow]+GridLineWidth;

pour ne plus que le rectangle dessiné se déplace sur mon entete.

Uniquement avec ces 2 petites modif, j'ai réussi à corriger mon problème.

Voilà, en espérant que ça servira à d'autres...