Discussion :

[papadrago]

Bonjour,

Je veux utiliser une combobox en ownerdraw pour simuler une "ComboStringGrid". Ca marche bien mais je n'arrive à me débarasser du rectangle de sélection en pointillé.
Il y a au moins 3 raisons pour vouloir s'en débarasser :

• les pointillés ne sont pas toujours effacés quand on déplace la sélection, donc ça bave un peu.
• si on utilise des couleurs dans le OnDrawItem, le rectangle pointillé est tracé en couleur complémentaire ou quelque chose comme ça
• et enfin: j'ai pas envie de le voir.

Quelqu'un sait comment se débarasser de ce truc ?
Merci

[ShaiLeTroll]

As tu changé la valeur du Handled ?

[papadrago]

As tu changé la valeur du Handled ?

D'après ce que je comprends dans la doc, Handled est utilisé par le TDrawItemEvent CLX mais pas celui VCL, et je suis en D7. Désolé pour le manque de précision.

[ShaiLeTroll]

Effectivement, pour le Handled, ce n'est que CLX ... et je n'avais pas fait attention ...

Ces pointillés, même si tu déborde du Rect fourni, cela les dessines (d'ailleurs, ils là avant ou après ton propre dessin ...) ?

[papadrago]

Les pointillés sont ajoutés après le OnDrawItem.

Si on peut pas s'en débarrasser, il faut faire avec...

1/ Je traçais une séparation horizontale en Rect.Bottom au lieu de Rect.Bottom - 1 d'ou quelques problèmes que j'essayais de résoudre en effaçant un rectangle décalé de 1 vers le haut... A cause de ça, les pointillé étaient mal effacés.

2/ Reste la couleur complémentaire. J'affiche l'item sélectionné en bleu. Pour éviter d'avoir les pointillés en complémentaire (jaune), je remet la fonte en noir et j'écris quelque chose qui ne se voit pas sinon la nouvelle couleur n'est pas prise en compte. Ca donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
      // set text color, blue when selected, and write item
      if odSelected in State
        then Canvas.Font.Color := clBlue
        else Canvas.Font.Color := clBlack;
      Canvas.TextOut (Rect.Left + 5, Rect.Top + 2, Items [Index]);
 
      // force black color to avoid complementary color for selection rectangle
      Canvas.Font.Color := clBlack;
      Canvas.TextOut (Rect.Left, Rect.Top + 2, ' ');

Si vous avez quelque chose de plus élégant, je suis preneur.

[papadrago]

Bon, ben, finalement, j'ai posté la question sur borland.public.delphi.vcl.components.using.general.

Il y a deux solutions pour effacer le rectangle de focus :

1) Appeler DrawFocusRect dans le OnDrawItem. Ca marche bien dans la liste mais ça ne marche pas dans mon appli dans la boite d'édition meme en testant sur odComboBoxEdit.

2) "sous classer la propriété WindowProc de la ComboBox" ... mais là, c'est au dela de mes compétences !

[papadrago]

Une solution simple et élégante est décrite là :

http://groups.google.com/group/borla...e71c8afedf835f