Discussion :

[myayo001]

hello a tous,
voila mon petit probleme j'utilise un ckecklistbox a l'interieur de celui ci il y a des noms, j'aimerai pouvoir copier plusieurs nom selectionner et pouvoir les placer dans une case du stringgrid !! (il copie bien que le 1er nom dans le stringgrid mai pas les autres).

si quelqu'un sais m'aider ca serai super

merci

[myayo001]

je precise un peu plus encore
donc je possede une table paradox qui contient certaine info y compri le nom que j'affiche dans le checklistbox.
lorsque mon checklistbox est rempli je dois selectionner un ou plusieur nom et les inserer dans une cellule du stringgrid ainsi que dans une autre table
je pensai au depart inserer dans la table puis aller rechercher les info pour les mettre dans le stringgrid mais comment faire pour avoir plusieur info dans une seule cellule du stringgrid !!

[qi130]

As-tu essayé en insérant un retour chariot entre chaque nom venant de la checklistbox ?

Code :

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

stringgrid1.cells[x,y]:=nom1+chr(13)+chr(10)+nom2+...

[myayo001]

voila ce que je fais pour le moment il me copie bien un seul element dans le strinnggrid avec un retour chariot mais si je selectionne plusieurs nom il ne les affiche pas

//insérer le nom de la personne selectionnée dans le stringgrid
with listelev do
for i := 0 to Items.Count-1 do
if Checked[i] then
sgcours.Cells[acol,arow]:= items[i]+chr(13);

[edam]

voila ce que je fais pour le moment il me copie bien un seul element dans le strinnggrid avec un retour chariot mais si je selectionne plusieurs nom il ne les affiche pas

//insérer le nom de la personne selectionnée dans le stringgrid
with listelev do

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var j:integer;
sgcours.Cells[acol,arow]='';
j:=1;
  for i := 0 to Items.Count-1 do
    if Checked[i] then
   begin
      sgcours.Cells[acol,arow]:=sgcours.Cells[acol,arow]+ items[i]+chr(13);
      inc(j);
    end;
sgcours.rowhigh[arow]:=j*canvas.textheigh('dd'); // à vérifier bien sûr

[qi130]

Les lignes de ton grid sont redimensionnables ?

tu peux essayer aussi un

Code :

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

sgcours.repaint;

en fin de boucle

[myayo001]

merci beaucoup maintenant il m'affiche bien les différents nom dans le stringgrid le prob c'est que a mon avis avec le chr(13) il ne passe pas a la ligne il n'y a qu'une barre | qui sépare pour le retour chariot c'est normal ca?

la ligne ci dessous sert a redimensionner le stringgrid mais il y a un petit probleme avec elle agrandit beaucoup trop la cellule en hauteur

sgcours.rowhigh[arow]:=j*canvas.textheigh('dd');

[edam]

Code :

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

1
2
3
 
if j>1 then dec(j);
sgcours.rowhigh[arow]:=j*canvas.textheigh('dd');

pour retour a la ligne je sais pas exactement, essaye avec chr(13)+chr(10)
sinon, dessin toi meme le contenu des sellules dans ondrawcellule avec defautltdraw a false,,,voir la faq

[Stef_D]

Si je me souviens bien le stringgrid ne supporte pas le multiligne de base.
Tu dois toi même gérer l'affichage des "cells" si tu veux pouvoir y afficher du texte en multiligne. Pour cela tu dois aussi gérer le redimensionnement automatique de la cellule.