listbox a 2 colonnesRésolu

Question

bonjour,
je voudrais savoir si c'est possible d'afficher 2 colonne dans une listbox. Par exemple, une ville (col1) et le code postal (col2).
Comment faut faire ??
Merci par avance
Bonne journ&#233;e

f0xi · Accepted Answer

Decidement j'oublis toujours quelque chose.









pour eviter l'effet sintillement quand tu redimensionne ou "rafraichis" la listbox,

n'oublie pas de declarer dans l'evenement OnCreate de Form1 la ligne suivant :



procedure TForm1.FormCreate(Sender: TObject);

begin

  form1.DoubleBuffered := true;

  listbox1.DoubleBuffered := true;

end;



et voilou

f0xi · Answer

avec l'evenement OnDrawItem.



tu stock une donn&#233;e de type : ville<separateur>code postal



une fois soumise dans la listbox il suffit de separer les deux et avec
quelques fonctions qui vont bien afficher les deux de maniere a ce
qu'il soit bien call&#233;s.



ListBox avec la propri&#233;t&#233; Style sur "lbOwnerDrawVariable"



les fonctions qui vont bien : GetVilleFrom et GetCodeFrom



// recupere uniquement le nom de la ville

function GetVilleFrom(line : string) : string;

var psep : integer;

    sout : string;

begin

  // on recupre la position du separateur

  psep := Pos(';',line);



  // on assigne Line a une variable de traitement

  // car on ne peu pas agir directement sur Line

  sout := line;



  // on coupe la partie que l'on ne veut pas

  delete(sout,psep,length(sout));



  // on renvois le resultat

  result := sout;

end;



// recupere uniquement le code postal

function GetCodeFrom(line : string) : string;

var psep : integer;

    sout : string;

begin

  psep := Pos(';',line);

  sout := line;

  delete(sout,1,psep);

  result := sout;

end;



Exemple pour l'evenement OnDrawItem de la listbox :



procedureTForm1.ListBox1DrawItem(Control:TWinControl;Index:Integer;Rect:TRect;State:TOwnerDrawState);

var Ln,V,CP : string;

begin

  with listbox1.Canvas do begin

    // on efface le canvas

    FillRect(Rect);



    // on recupere les donn&#233;es et on separe

    Ln := ListBox1.Items[index];

    V  := GetVilleFrom ( Ln );

    CP := GetCodeFrom  ( Ln );



    // on ecrit la ville, par defaut a gauche

    TextOut(Rect.Left, Rect.Top, V);

    

    // on ecrit le code postal, a partir de la moiti&#233;e de la taille de la liste box

    // on peu remplacer "Listbox1.widht div 2" par une valeur en pixel fixe.

    TextOut(Rect.Left + (ListBox1.Width div 2), Rect.Top, CP);

  end;

end;





Dans mon exemple, si la form1 et redimensionn&#233;e seule la ligne selectionn&#233;e est "rafraichie".

Pour rafraichir l'ensemble des lignes il faudrat declarer dans l'evenement OnResize de Form1 :



procedure TForm1.FormResize(Sender: TObject);

begin

  listbox1.Repaint;

end;



voila, a partir de la, tu pourras meme modifier la couleur des elements, dessiner une grille, assigner des icones specifique

ect... ect... a ta guise.



j'espere que cela correspondras a tes besoins.

cs_deubal · Answer

je te remercie pour tout ce code.
 d'autant plus, que cela est tr&#232;s appr&#233;ciable d'avoir les commentaires (surtout pour une novice comme moi !!)
encore merci
Bonne journ&#233;e

f0xi · Answer

mais de rien, mais mon erreur et peut etre de trop macher le travail au debutants.

je manque de pedagogie lol.



par contre j'ai oublier un truc a te preciser, mais tu as surrement trouver par toi meme.



pour ajouter une entr&#233;e dans la liste, 

tu doit formater les donn&#233;e comme suis :



listbox1.items.append ( ville+ ';' + codepostal );



";" etant le separateur par defaut que j'ai placer.



tu peu le remplacer par exemple par # ou | ou > ou @ ou $ ou * ou %
ect... ect... bref par n'importe quel caractere qui serat a coup sur
pas utiliser dans la chaine.



par exemple n'utilise pas - ou ' ou / car les noms de ville peuvent les inclures. 



note que les fonctions GetVille et GetCode peuvent etre remani&#233;e pour d'autre programme.



tu peu egalement dessiner le numero des lignes, le nom des colones ect...

pour cela du devras travailler dans DrawItem 

exemple d'affichage des numero de ligne et ligne de separation :



// le numero de l'index +1 pour correspondre a la ligne

TextOut(Rect.left, Rect.Top, IntToStr(Index + 1));



// une ligne de separation

MoveTo(40, rect.Top);

LineTo(40, rect.Bottom);


// la ville, on decale de 5 pixels par rapport a la ligne

TextOut(Rect.Left + 45, Rect.Top, V);


// le code postal

TextOut(Rect.Left + 200, Rect.Top, CP);

DRJEROME · Answer

2° solution : tu prends un Listbox normal, et tu lui mets (par exemple) la propriété "TabWidth" à 40 (choisis une valeur suffisament large par rapport à ton plus long item de ville)

begin listbox1.items.Add('Lyon'+chr(9)+'69000'); listbox1.items.Add('Paris'+chr(9)+'75000'); listbox1.items.Append('Marseille'+chr(9)+'13000'); end;

DrJerome

DRJEROME · Answer

j'ai mis de "Append" et des "Add" mais &#231;a n'a pas d'importance


N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e si c'est OK

DrJerome

DRJEROME · Answer

l'avantage est que tu peux faire plusieurs colonnes :

listbox1.items.Add('Lyon'+chr(9)+'69000'+chr(9)+'FRANCE');

DrJerome

f0xi · Answer

1 petit defauts a ta solution :



les elements ne sont plus align&#233; (car il n'ont pas tous la meme longeur)

jlen100 · Answer

-->f0xi  dans la solution de DrJerome, n'aurais-tu pas oubli&#233; de fixer la largeur des colonnes avec tabwidth par hazard?

cs_deubal · Answer

wouahou, je vois que ma question permet plusieurs solutions...
Je vous remercie tous(ou toutes) pour cela
m'en vais tester les 2 methodes et voir laquelle correspond le mieux a ce que je souaite.
Encor merci

f0xi · Answer

@jlen100 : si justement TabWidth regler a 40 comme dans son exemple ... les elements de la listbox ne sont plus align&#233;s ... 

bizare bizare... vas savoir pourquoi ... je ferais des tests cette nuit ...

jlen100 · Answer

essaie des valeurs plus grandes car je l'ai test&#233; et &#231;a fonctionne m&#234;me en multi-colonnes

DRJEROME · Answer

j'avais bien dit :

tu prends un Listbox normal, et tu lui mets (par exemple) la propriété "TabWidth" à 40 (choisis une valeur suffisament large par rapport à ton plus long item de ville)

Je traduis : (ça veut dire ce que ça veut dire) : Choisir des valeurs suffisamment larges càd au-delà de 40 pour le "TabWidth", si nécessaire Désolé si ce n'était pas clair :-) DrJerome

Listbox a 2 colonnes

13 réponses

Votre réponse

Discussions similaires