Discussion :

[Ardely]

Bonjour a tous.
Comment savoir dans un richedit le nombre total de ligne afficher a l'écran,
avec ce code on détermine la position de la 1ière ligne.

Code :

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

1
2
 
SendMessage(RichEdit1.Handle,EM_GETFIRSTVISIBLELINE,0,0);

ou comment déterminer la position de la dernière ligne afficher???
Les fonts sont toujours de même grandeur.

Merci beaucoup et salutations.

[ero-sennin]

Salut,

Le nombre total de lignes à afficher à l'écran ? Je vois pas trop ce que tu veux dire...

Tu souhaites sans doute récupérer le nombre de lignes dans le RichEdit non ?
Pour ce faire :

Code :

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

RichEdit1.Lines.Count // Renvoie le nombre de ligne du RichEdit

Pour connaitre la position de la dernière ligne, il suffit alors de faire :

Code :

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

RichEdit1.Lines.Count - 1

Je ne sais pas si je réponds correctement à la question
A+

[CapJack]

C'est simple : il veut le nombre de lignes qui apparaissent à l'écran, pas le nombre de lignes total, donc Lines.Count n'est d'aucun intérêt.

Par contre, je n'ai aucune solution à apporter. tu peux toujours chercher sur msdn :

http://msdn2.microsoft.com/en-us/library/bb530929.aspx

mais ça m'étonnerait que tu trouves, je ne crois pas que ce soit prévu dans l'API de Windows.

À la rigueur dans un Memo on peut au pire le calculer par une simple division en utilsant les FontMetrics de la police en cours, mais pour un RichEdit ça soulève un problème de taille (dans les deux sens du terme ) puisque les lignes peuvent avoir des hauteurs différentes.

[ero-sennin]

Désolé d'avoir répondu à coté de la plaque
Ma réponse aurait était trop simple!

Je n'ai pas de solutions à donner dans ce cas ...

A+

[Ardely]

Code :

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

1
2
3
 
// ceci donnant une information de la première ligne affichable
SendMessage(RichEdit1.Handle,EM_GETFIRSTVISIBLELINE,0,0);

J'aimerais bien avoir une information de la dernière ligne voyant afficher à l'écran
un peut comme .... EM_GETLASTVISIBLELINE ...

[Ardely]

NO problem, Merci pour les infos...

Bon,si ce n'est pas possible... alors est-il possible de détecter si le caret est caché en haut ou en bas!
Je m'explique..

Si je travaille dans mon fichier Richedit et si je scroll le texte avec le scrollbar (ascenseur) j'aimerai bien avoir une information ou se trouve mon caret, dans la parti haut du texte caché ou dans la partie bas du texte caché.
Par example 0 veut dire le caret est en Haut, 1 veut dire le caret est en bas...

Merci et bonne journée

[Gilbert Geyer]

Bonjour,

A toutes fins utiles voiçi du code que j'avais récupéré un jour sur le site Torry et qui propose deux fonctions RE_GetLastVisibleLine() et RE_GetFirstVisibleLine mais que je n'ai pas encore testées :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
...get the first/last visible line of a TRichEdit?	
Author: Thomas Stutz 	
 
function RE_GetLastVisibleLine(RichEdit: TRichEdit): Integer;
const
EM_EXLINEFROMCHAR = WM_USER + 54;
var
r: TRect;
i: Integer;
begin
{
The EM_GETRECT message retrieves the formatting rectangle
of an edit control.
}
RichEdit.Perform(EM_GETRECT, 0, Longint(@r));
r.Left := r.Left + 1;
r.Top := r.Bottom - 2;
{
The EM_CHARFROMPOS message retrieves information about the character
closest to a specified point in the client area of an edit control
}
i := RichEdit.Perform(EM_CHARFROMPOS, 0, Integer(@r.topleft));
{
The EM_EXLINEFROMCHAR message determines which
line contains the specified character in a rich edit control
}
Result := RichEdit.Perform(EM_EXLINEFROMCHAR, 0, i);
end;
 
{
Sending the EM_GETFIRSTVISIBLELINE message to a multi-line edit control
finds out which line is the first line visible.
This is the line that is currently displayed at the top of the control.
}
 
function RE_GetFirstVisibleLine(RichEdit: TRichEdit): Integer;
begin
Result := RichEdit.Perform(EM_GETFIRSTVISIBLELINE, 0, 0);
end;

A+

[CapJack]

La propriété CaretPos de ton RichEdit renvoie la colonne (X) et la ligne (Y) courante.
Il suffit alors de comparer CaretPos.Y à la valeur renvoyée par EM_GETFIRSTVISIBLELINE. On saura au moins si c'est avant la première ligne affichée, ou après. Par contre on ne saura pas si le caret est visible ou caché au-delà de la dernière ligne visible.

[CapJack]

Grillé par GG.

La fonction est intéressante, il fallait y penser.

[Ardely]

J'ai introduit cette fonction dans mon application, je l'ai testé pour mes
besoins et qui fonctionne très bien.
Merci beaucoup pour tes Infos.
Très bonne soirée, salutations.

[Gethile]

Pour un TRichEdit, la hauteur de ligne étant potentiellement variable, le problème se résout moins facilement que pour un TMemo.

Ceci étant, une technique possible est de soustraire le numéro de la première ligne visible au numéro de ligne en cours de saisie . Si le numéro de première ligne change, c'est que l'on a attend le bas du control. Si les lignes ont la même hauteur, le nombre issu de la soustraction sera invariable depuis ce moment sauf sur un redimensionnement du control.
Si le bas du texte est très en dessous du bas du control, la même technique peut être employée : noter la première ligne visible (N1),... faire évoluer le caret vers le bas jusque ce que N-N1 ne change plus. C'est le nombre de ligne du control.

Technique radicalement différente et néanmoins efficace : diviser CustomEdit.ClientHeight par la hauteur de caractère de la police en cours. Cela suppose la même police sur l'étendue considérée ainsi que la même mise en forme.