Discussion :

[Sunchaser]

Bonjour et bonne année a tous,
Cela fait bien longtemps que je n'avais pas pu revenir ici, cela me manquait...
Petite question toute bête et bizarre a la fois, j'ai réinstallé mon builder sur un nouveau PC et repris mon 'travail', et j'ai un comportement bizarre sur un évènement des listbox et autres du même genre.
J'ai du code dans le OnDrawItem pour afficher une couleur différente a une ligne sur deux, ou si la ligne est selectionnée, ou en fonction de certaines valeurs, etc...je passe les détails. Le souci est qu'aujourd'hui sur ce pc cela ne fonctionne plus.
J'ai même repris les exemples trouvés ici ou la sur la FAQ ou autre, copié le code mais l'affichage du texte est toujours planté : soit rien, soit tout est comme écrit dans la première ligne.
J'ai essayé 'TextOut', 'TextOutA', 'TextRect' de TCanvas mais rien de plus.
Honnetement, etre planté pour un tel détail m'agace profondemment

QQu'un a une bouée de sauvetage ?
Merci d'avance,
@ +

NB : j'ai évidemment vérifié la propriété 'Style' de l'objet , par ex le listbox n'est pas en lbStandard...

[Sunchaser]

Bonjour,

Toujours de rien de neuf ....a noter que il n'y avait pas eu d'erreur lors de la réinstallation de Builder. Rien de particulier donc...

Eventuellement, si qqu'un a des pistes a revérifier, même sur un problème matériel (on peut tout envisager, non ? ), je le remercie d'avance.

@ +

[Djob]

Salut Cantrelle,

pourrait tu tester si ce code fonctionne chez toi (il fonctionne chez moi)
avec juste une listbox (propriété Style=lbOwnerDrawFixed) dans une nouvelle application.

Comme ça on saura si ça vient d'un probleme du programme ou d'un probleme spécifique à l'installation windows ou à l'installation builder ou d'un composant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
 
        if( (Index%2==0) && (!State.Contains(odSelected))){
           ListBox1->Canvas->Brush->Color=clYellow;
           ListBox1->Canvas->FillRect(Rect);
        }
        ListBox1->Canvas->TextRect(Rect,Rect.Left+2,Rect.top+2,ListBox1->Items->Strings[Index]);
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        ListBox1->Clear();
        for(int i=0;i<12;i++){
                ListBox1->Items->Add("item"+IntToStr(i));
        }
}
//---------------------------------------------------------------------------

[Sunchaser]

Salut Djob,

Merci pour ta réponse....effectivement, alors qu'au départ même l'exemple basique de OnDrawItem de la FAQ ne marchais pas, tes qq lignes de code sont passées sans soucis sur la pluspart des TListBox du projet. (! )
Bon, dans un sens tant mieux.
Reste une TListBox présente dans une TFrame placée sur une fiche, qui elle reste hostile a toute tentative de 'dressage' ( ) quoi que ce soit que l'on y mette...une vrai petite rebelle.
Je vais la virer, replacer une autre objet et rééssayer...

Merci et a @ +

NB: pendant que j'y repense, j'avais raté l'installation de la rxLib ( ) - dérangé par d'incessants coups de fils du boulot - et depuis d'ailleurs je n'ai pas encore retenté de l'installer a nouveau. C'est le seul 'plantage' qui avait eu lieu...

[Sunchaser]

Je vais la virer, replacer une autre objet et rééssayer..

A solution débile, resultat débile. La nouvelle TListBox sur la TFrame a le même comportement...