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