LISTBOX AVEC SMILEYS

Commentaire de Don0Choa le 05/05/2004 12:27:32

Oh t'es encore vivant toi? :D ca fait un moment quand même !

C'est pas mal la listbox avec smiley! Il était temps que quelqu'un y pense.

Par curiosité, tu fais cette listbox dans quel but? je veux dire, t'as un projet ? Simple curiosité :)

++

Commentaire de shining le 14/05/2004 03:21:50

Bravo!!, pour mon Package ShiningComponents il ya justement un composant dérivé d'un TlistBox avec quelques fonctions en plus.. tel que tu texte façon Mirc ;) donc choix des couleurs incrustation de smiley... et donc voici comment redimenssionnée la TListBox..
tout d'abord il faut surchargé la fonction "MeasureItem" dans la déclaration "Protected" exemple

Procedure MeasureItem(Index: Integer; var ItemHeight:Integer);override;

à l'interrieur de la procédure il faut bien entendu transmettre la fonction au TListBox

Procedure MeasureItem(Index: Integer; var ItemHeight:Integer);override;
begin
      Inherited MeasureItem(Index, ItemHeight);
      { Attention cette fonction est appeler avant le dessin des Items
      ce qui implique une fonction de pre-calcule des Items, une fois la  hauteur calculée il suffit de renvoyé la valeur à ItemHeight.
     voilà j'espère avoir été clair :).
      }  
end;

Commentaire de shining le 19/08/2004 23:05:07

donc on recapitule, tout d'abord je rappel que cette fonction est appeler juste avant le dessin de l'item, donc une fonction préparse est néccessaire pour que chaque items puisse avoir une hauteur adéquate pour celà il faut respecter ces 3 règles

1- Mettre la propriété Style à lbOwnerDrawVariable;
2- Surcharger la procedure MeasureItem(en proctected)
3- préparse du Texte avant le dessin de l'item
mais Attention utilisez ListBox1.Items.Add(MyText) plutôt que AddObject car malheureusement les Objets retourne toujours une valeur nuls(pour des raisons non expliquer de la part de Delphi!!)
et donc c'est simple il suffit de recupérer la valeur de l'item via son Index exemple :
ItemHeight := Préparse(Items[Index]);
Attention dans la fonction préparse il ne faut pas Dessiné l'item sinon ya risque d'appel recursive à Paint & MeasureItem...
Conseil: dans la fonction préparse faire un hashage des caractères et s'arrêter quand il y'a un espace " ", ensuite calculé la largeur du texte via Canvas.Textwidth
ensuite verifiez que w(largeur du text) + X<= ClientWidth , si oui afficher le texte, si non incrémenter Y par Canvas.TextHeight
donc on as besoin d'une variable X,Y,W
X & Y seront initialisé par rapport à itemRect
Bonne Prog .

Commentaire de shining le 20/08/2004 23:53:48

il n'y a pas de quoi.
pour info, une partie de mon client irc sera mis sur ce site, dont un parser de Smiley TEmoticonsManager qui offre une solution flexible pour inserez des images, ainsi qu'un parser de Texte irc, dans le style Mirc
pour le moment de nombreux composants sont en developpement donc patience...
@+