Discussion :

[Bernard Grosdoy]

Bonjour,
Derniere tentative de recherche de composant (j'ai deja posé ce pb la semaine derniere et effectué une premiere recherche sur le net).
Je recherche un composant style TCombobox, dont le texte de chaque item pourrait être ecrit sur plusieurs ligne dans la liste déroulante (je sais que c'est un peu a contresens de la "phylosophie" d'une liste deroulante...)
Savez vous si cela existe, ou bien si une manipulation un peu poussée des propriétés me le permettrait? ( et si oui, une petit coup de pouce pour commencer serait le bienvenu)

Merci d'avance

bg

[Leclair2000]

Salut!

Je comprends pas bien ce que t'entends par

dont le texte de chaque item pourrait être ecrit sur plusieurs ligne dans la liste déroulante

Tu peux etre un peu plus explicite

[Bernard Grosdoy]

A priori, dans une combobox, chaque item est représenté par un string, ecrit sur une seule ligne (pour une combo a une seule colonne).

Dans la cas d'une chaine trop longue on peut , "facilement", jouer sur la largeur du composant lui même, ou bien sur la largeur de la liste déroulante.
Pour mon besoin, c'est insuffisant, il faudrait que je puisse faire apparaitre chaque item (String) sur plusieurs ligne dans la combobox, éventuellement indentées, mais que cela continu d'etre considéré comme un seul item. un peu comme si chaque item pouvvait également etre de type Tstrings.

[gord's]

regarde
TCustomComboBox.Style=csOwnerDrawVariable, TCustomComboBox.OnMeasureItem et TCustomComboBox.OnDrawItem

[sjrd]

Comme le dit gord's :

ComboBox.Style = csOwnerDrawVariable

Dans l'événement OnMeasureItem, tu calcule quelle taille, en hauteur, te prendra le dessin de chaque item. Je suppose que tu fais un truc du genre WordWrap, donc tu peux faire ComboBox.Font.TextHeight('A')*NbreLignesRequises.

Dans l'événemtn OnDrawItem, tu dessines chaque item.

[Bernard Grosdoy]

Dans l'événemtn OnDrawItem, tu dessines chaque item.

D'accord, mais c'est la que c'est un peu neuf pour moi :
J'ai deja utilisé l'evenement sur une celule de grille mais pas sur un Combo. Je n'arrive donc pas a faire l'analogie sur des trucs comme :

Comment imposer les dimensions (width) du TRect de l'Item ?
comment utiliser les fonction TextOUt? TextRect ? ... de quel Canvas?
Et faut-il découper soit même la ligne ( et quel est alors le caratere de passage à la ligne?)

Je n'y arrive pas quoi!!
Ps: si je, suis boulet laissez tomber, je me débrouillerai autrement

BG

[Benjamin GAGNEUX]

salut,

Code :

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

procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index: Integer;  var Height: Integer);

MeasureItemEvent est le type des gestionnaires d'événements sur les contrôles dessinés par l'utilisateur qui permettent àdivers éléments d'une liste d'avoir différentes hauteurs.

Control est une référence au contrôle contenant l'élément.

Index est l'indice de l'élément dans la propriétéItems.

Height correspond àla hauteur par défaut de l'élément,exprimée en pixels.Le gestionnaire d'événement peut redéfinir Height àla valeur appropriée.

Code :

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

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;  Rect: TRect; State: TOwnerDrawState);

TDrawItemEvent comprend les paramètres suivants :

Control Une référence au contrôle contenant l'élément.
Index L'indice de l'élément dans la propriétéItems.
Rect Les coordonnées de l'élément sur le canevas du contrôle.
State L'état de l'élément,qui indique si l'élément est sélectionné,coché,a la focalisation,etc.

Il faut penser à


Donc dans ton OnMeasureItem, il te suffit de choisir la hauteur (Height).
Par exemple pour deux lignes :

Code :

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

  Height := Height * 2;

Après dans ton OnDrawItem, tu dispose d'un Rect mis aux nouvelles dimensions, Index indique quel est l'item à dessiner.

il ne reste plus qu'a utiliser dans ce gestionnaire :

Code :

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

ComboBox1.Canvas.TextOut(...)

aussi présent dans l'aide.

Voila,
J'espère que cela pourra t'aider.
a+

[Bernard Grosdoy]

D'accord, d'accord, j'ai lu tout ça, mais je n'ai pas vu, (sans doute trop rapidement parcouru ) deux éléments pour aboutir a mon résultats :

Est-il propre de modifier la largeur du Trect de mon Item ( Rect.rigth) qui est par defaut la largeur de la chaine que je voudrais précisemment decouper en plusieurs lignes ?

Comment faire pour "découper" ma chaine en plusieurs lignes ( pour le moment, si je reduis mon TRect, ca reste sur une seule ligne mais je ne vois plus la fin.

Je rate un truc aussi evident que le nez au milieu de la figure ?

[Nono40]

En fait il faut utiliser les évènements proposés au dessus et une fonction API de dessin du texte permettant aussi d'en déterminer la taille tout en gérant les sauts de lignes.

Cette fonction c'est DrawText ( voir MSDN pour les détails ), avec le paramètre DT_CALCRECT elle ne dessine rien mais donne la hauteur nécessaire pour le texte en fonction de la largeur donnée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index: Integer;var Height: Integer);
Var Rect:TRect;
begin
  If Index<0 Then Exit;
  Rect.Left := 0;
  Rect.Right := TComboBox(Control).Width;
  Rect.Top := 0;
  Rect.Bottom := 5;
  Height := DrawText(TComboBox(Control).Canvas.Handle,PChar(TComboBox(Control).Items[Index])
                                 ,-1,Rect,DT_CALCRECT Or DT_LEFT Or DT_WORDBREAK	);
end;

Pour le dessin il suffit de l'appeler de nouveau, sans le paramètre DT_CALCRECT afin que le dessin soit effectif :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TComboBox(Control) Do With Canvas do
  begin
    // Dessin du fond avec la couleur par défaut
    // Delphi gère lui-même dans ce cas la sélection
    FillRect(Rect);
    if odSelected In State
      Then Font.Color := clHighLightText
      Else Font.Color := clBtnText;
    DrawText(Canvas.Handle,PChar(Items[Index]),-1,Rect,DT_LEFT	Or DT_WORDBREAK	);
  end;
end;

[Bernard Grosdoy]

Je n'ai pas assez le reflexe des fonctrion API, je ne connaissais pas drawtext...
Merci bien