Sauvegarder des cellules fusionné dans un stringgrid

**ghassenus** · 17/06/2007, 12h36

Bonjour à tous
alors comme j'ai résolu mon problème de fusion de cellule (grâce à un composant "Nicegrid" que vous trouverais si joint) je voudrais savoir comment pourrais je enregistré les donnés de la fusion pour redessiner le strtinggrid avec les cellules fusionnées
PS je travaille avec DELPHI 2007

**Clorish** · 17/06/2007, 20h19

je ne suis pas un specialiste de ce composant, mais j'imagine que tu joue sur des proprietees et diverses valeurs pour generer cette fusion.

Je developperais soit une classe soit une structure de donnée ou tout autre type de variables pour contenir les informations necessaire a cetet fusion.

Ensuite, suffit de lire et ecrire dans un fichier (TFileStream ?) les données de maniere structurée.

Evenetuelement un travail de généricité sera peut etre necessaire si il n'a pas deja ete prevu.

**ghassenus** · 19/06/2007, 01h50

Enfin je suis arriver à faire ce que je veux
c'est a dire enregistrer le contenue de la grille et sa structure (les cellules fusionnés et leurs contenue)
pour ce faire j'ai modifié les routines de "Philippe GORMAND" dont j'ai oublier ou est ce que je l'ai déniché
somme tout je me demande si on peut pas l'intégrer au composant lui même et ajouter 'Sauve grille'
et "charge grille" directement
et je me demande aussi comment pourrons nous sauvegarder les couleurs de chaque cellules et sa fonte
alors si quelqu'un peut m'aider...
je n'ai jamais programmer un composant c'est ça le Hic!
ah autre chose
pour modifier le contenue d'une cellule fusionner j'utilise le code suivant'
pouvant nous rendre la création de la form dynamique ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.ng1DblClick(Sender: TObject);
var I,k,col,row:integer;
begin
col:=ng1.Col;
 row:=ng1.Row;
 if isfusion(ng1,col,row) then
 begin
  i:=recherchefusion(ng1,col,row);
  Application.CreateForm(Tmodif,modif);
  index:=i;
  modif.Edit1.Text:=Tmerge[i].text;
  modif.ShowModal;
 end;
 end;