Discussion :

[engi]

Bonjour.

Je voudrais pouvoir maitriser la hauteur d'une combo.
Sa propriété Height semble être d'un minimum de 21 (si on conserve la police standard).
Est-il possible de modifier à la baisse cette hauteur sans changer pour autant la police de caractère.
Je souhaite imiter le comportement des combos présentes dans l'inspecteur d'objet dédié à la saisie des propriétés.
Merci pour l'aide.

Nicolas

[Crayon]

Salut, essai d'utiliser l'évènement OnMeasureItem de ton combobox. Il y a un paramètre Height.

[engi]

J'ai essayé avec cet événement mais le résultat n'est vraiment pas probant.
Merci de ta réponse.

[free07]

Bonjour.

Je voudrais pouvoir maitriser la hauteur d'une combo.
Sa propriété Height semble être d'un minimum de 21 (si on conserve la police standard).
Est-il possible de modifier à la baisse cette hauteur sans changer pour autant la police de caractère.
Je souhaite imiter le comportement des combos présentes dans l'inspecteur d'objet dédié à la saisie des propriétés.
Merci pour l'aide.

Nicolas

Est ce vraiment la hauteur de la combo que tu veux modifier ou sa zone d'édit ?
car sinon c'est la propriété ItemHeight de la combo qu'il faut modifier.

[engi]

C'est bien la hauteur totale de la combo que je souhaite réduire, pour la faire tenir dans la cellule d'une grille de saisie qui ne fait que 15 pixels de hauteur...
Au départ, j'avais essayé en modifiant la police et en réduisant la taille de cette dernière mais c'est vraiment illisible sur des écrans paramétrés en haute def.
Ça doit être possible puisque c'est le cas dans l'inspecteur d'objets de Delphi/Builder.
A moins qu'il ne faille tout redessiner manuellement ?

[Crayon]

engi, est-ce que tu as lu le lien que j'ai mis. Il faut que ton combobox ait le style csOwnerDrawVariable, sinon l'évènement n'est jamais appelé.

[blondelle]

Salut engi
Comme Crayon l'a dit il suffit de lire ses posts je cite " essai d'utiliser l'évènement OnMeasureItem de ton combobox", il faut que ton combobox ait le style csOwnerDrawVariable "
et cela fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
 
void __fastcall TForm1::ComboBox1MeasureItem(TWinControl *Control,
      int Index, int &Height)
{
// on recupere la hauteur d'origine
Label2->Caption = Height;
// on regle la nouvelle hauteur
Height = 13;
}

[engi]

Effectivement, j'avais testé une fois mais cela ne fonctionnait pas.
Je viens de le refaire et cette fois, tout fonctionne comme décrit.
Merci !