Discussion :

[Pedro]

Salut à tous

Voila, je cherche à récupérer, dans un TEdit, la hauteur de la zone de saisie. Je m'explique:
Si vous mettez un TEdit sur une fiche, exécutez et écrivez du texte. Sélectionnez ensuite la totalité ou quelques caractères, vous remarquerez que cette "bande" de sélection a une hauteur différente de celle de la police quelque soit ce qu'il y a d'écrit.
Je cherche à trouver cette hauteur à l'exécution!
En d'autres termes, trouver la hauteur du caret!

Merci d'avance

[CapJack]

Si ton problème est d'obtenir la hauteur de la sélection courante, je ne crois pas que ce soit possible. Windows ajuste cette hauteur en fonction de la police de caractères courante, et je n'ai pas vu de fonction pour ça non plus.

http://msdn.microsoft.com/en-us/libr...68(VS.85).aspx

Tu peux toujours essayer de modifier la hauteur du caret en rusant avec CreateCaret, mais tu ne pourras que changer l'apparence du curseur, je ne crois pas que ça changera quelque chose à la hauteur de la sélection... enfin, pas testé... à voir.

[Pedro]

Justement, je ne cherche pas à le modifier mais bien à récupérer sa hauteur.
Bon bah va encore falloir ruser A moins que quelqu'un ait une solution?

[Cl@udius]

Salut Pedro

En examinant la procédure AdjustHeight de TCustomEdit, je pense qu'on peut s'en sortir comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function GetCaretHeight(AEdit: TEdit): Integer;
var
  I: Integer;
begin
  if AEdit.Ctl3D then
    I := 8
  else
    I := 6;
  I := GetSystemMetrics(SM_CYBORDER) * I;
  Result := AEdit.Height - I;
end;

@+ Claudius

[Pedro]

Salut Cl@udius

Merci pour ta réponse

Ton code ne fonctionne (la hauteur renvoyée n'est pas bonne) pas en revanche, cela me donne une sérieuse piste à suivre!
Je vais essayer de fouiller dans ce sens-là!

[Pedro]

J'ai trouvé

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
 
function GetCaretHeight(aEdit: TCustomEdit): integer;
var
  DC: HDC;
  SaveFont: HFONT;
  aFont: HFONT;
  Metrics: TTextMetric;
begin
  DC := GetDC(0);
  try
    aFont := SendMessage(aEdit.Handle, WM_GETFONT, 0, 0);
    SaveFont := SelectObject(DC, aFont);
    GetTextMetrics(DC, Metrics);
    SelectObject(DC, SaveFont);
  finally
    ReleaseDC(0, DC);
  end;
  Result := Metrics.tmHeight;
end;

Voila
Merci Cl@udius de m'avoir mis sur la voie

[Cl@udius]

Cela ramène la hauteur de la Font, ou bien est-ce plus subtil ?

[Pedro]

J'ai bien l'impression que c'est plus subtil: Dans mon exemple, j'ai une Font Arial à 12 et il me renvoie... 18 Ce qui correspond exactement à la hauteur de la zone de sélection et du caret.

[Cl@udius]

J'ai bien l'impression que c'est plus subtil

Exact cela tient compte du talus interne.
A noter que ta fonction renvoie la valeur de la propriété Font.Height si celle-ci est positive car dans ce cas Height contient le talus.

@+

[Pedro]

Exact cela tient compte du talus interne.
A noter que ta fonction renvoie la valeur de la propriété Font.Height si celle-ci est positive car dans ce cas Height contient le talus.

Tu en es sûr? J'ai pourtant essayé avec un Edit Flat (BevelInner à bvNone, BevelKind à bkFlat et BorderStyle à bsNone en laissant BevelWidth à 0), on a encore la bonne valeur
De toutes, façons, je n'ai jamais utilisé de Font.Height positive. A vrai dire, je ne savais même pas que c'était possible J'utilise systématiquement Font.Size.

[Cl@udius]

Font.Size est la dimension de la fonte en point.
Font.Height est celle exprimée en pixel.

Ces 2 propriétés sont toujours de signe opposé.

Si Height est positif, ce fameux talus est pris en compte. (visiblement de 2 pixels).

Quant à BevelInner, BevelKind, etc..., ceux-ci n'ont pas d'impact sur la taille de la police (et donc du caret) mais uniquement sur la hauteur du contrôle.

[Pedro]

Font.Size est la dimension de la fonte en point.
Font.Height est celle exprimée en pixel.

Ces 2 propriétés sont toujours de signe opposé.

Si Height est positif, ce fameux talus est pris en compte. (visiblement de 2 pixels).

Merci pour ces infos

Quant à BevelInner, BevelKind, etc..., ceux-ci n'ont pas d'impact sur la taille de la police (et donc du caret) mais uniquement sur la hauteur du contrôle.

Je dirais plutôt sur la taille de la zone cliente
Enfin, quoi qu'il en soit, ma méthode fonctionne pour ce que je veux en faire

[Cl@udius]

Je dirais plutôt sur la taille de la zone cliente

Exact, l'impact en premier lieu sur la zone cliente.

Enfin, quoi qu'il en soit, ma méthode fonctionne pour ce que je veux en faire

Re-exact, elle marche nickel, quelque soit le signe de Size et Height.