[D7] positionnement dans un Memo

Version imprimable

23/12/2019, 16h57
Charly910

[D7] positionnement dans un Memo

Bonjour, et joyeuses fêtes à tous,

J'aimerais récupérer le numéro de la première ligne affichée (ou visible) en haut d'un TMemo.

Puis en ré-affichant le Memo avec un nombre de lignes identiques, repositionner le Memo à la même place (ligne de même numéro visible en haut)

Je sais me déplacer et scroller dans le mémo, mais je n'arrive pas à faire cela.

Quelqu'un a t il une solution ?

Le but est de comparer facilement 2 affichages successifs.

Merci
A+
Charly

J'ai trouvé le n° de la première ligne visible, mais je n'arrive toujours pas à la repositionner après le nouvel affichage du Memo.

Code:

1
2
3
4
5
6
7
8
9
10
{ =========================================================== }
function FirstVisibleLine(const aMemo:TMemo) :Integer;
const
  EM_GETFIRSTVISIBLELINE = 206;
begin
  Result := -1;
  if Assigned(aMemo) then
    Result := SendMessage(aMemo.Handle,EM_GETFIRSTVISIBLELINE,0,0);
end;
{ =========================================================== }

A+
Charly

Bon, j'ai fait ceci qui fonctionne bien :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 { =========================================================== } procedure TF_Princ.Lb_FichierClick(Sender: TObject); Var i : Integer ; begin Memo1.Lines.BeginUpdate ; Ligne := SendMessage(Memo1.Handle,EM_GETFIRSTVISIBLELINE,0,0); Btn_LireExifClick(Self) ; Memo1.Perform( Em_linescroll, 0, Ligne - Memo1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0)); Memo1.Lines.EndUpdate ; end; { =========================================================== }
Reste à régler le problème d'un nouvel affichage qui a moins de lignes que le précédent.

(je peux ajouter des lignes vierges pour compléter, mais c'est un peu bourrin ...)

A+
Charly

Code:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
unit ex01a;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.dialogs,
  Vcl.Controls, Vcl.Forms, Vcl.StdCtrls, Vcl.ComCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;
 
TYPE
  TMemoHelper = class helper for TMemo
  private
    function GetLineNo: integer;
    procedure SetLineNo(NewLineNo: INTEGER);
  public
    property LineNo : integer Read GetLineNo Write SetLineNo;
  END;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TMemoHelper.GetLineNo: integer;
BEGIN
  Result := Perform(EM_LINEFROMCHAR, SelStart, 0)
END;
 
PROCEDURE TMemoHelper.SetLineNo(NewLineNo: INTEGER);
BEGIN
  IF NewLineNo < 0 THEN
    NewLineNo := 0;
  IF NewLineNo > Lines.Count THEN
    NewLineNo := Lines.Count;
  SelStart := Perform(EM_LINEINDEX, NewLineNo, 0);
  Perform(EM_SCROLLCARET, 0, 0);
END;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.LineNo := Memo1.Lines.Count;
  Memo1.LineNo := 15;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('ex01a.pas');
end;
 
end.

24/12/2019, 10h19
Charly910

Merci Alweber,

mais dans cette appli je suis en D7. Je vais tester ta solution en 10.3

A+
Charly

Bonjour,

et Bonnes Fêtes à toutes et à tous.

je sais pas si j'ai bien saisi le problème
Code:

1 2 3 4 5 6 7 8 var FirstVisibleLine: Integer = 15; // retrouve l'index de la première ligne affiché procedure TForm6.Button2Click(Sender: TObject); begin FirstVisibleLine := Memo1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0); end;
Code:

1 2 3 4 5 // repositionne l'affichage à la ligne souhaitée procedure TForm6.Button3Click(Sender: TObject); begin Memo1.Perform(EM_LINESCROLL, 0, FirstVisibleLine - Memo1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0)); end;
Cordialement,

@+

ps: Testé sous D6

[EDIT] je viens de voir le positionnement avec "EM_LINESCROLL" est relatif
problème corrigé [/EDIT]

Merci Cirec et bon Noël à toi aussi,

Oui, cela fonctionne bien, mais mon code me satisfait aussi :

Code:

1
2
3
4
5
6
7
8
9
10
{ =========================================================== }
procedure TF_Princ.Lb_FichierClick(Sender: TObject);
 
begin
  Memo1.Lines.BeginUpdate ;
  Ligne := SendMessage(Memo1.Handle,EM_GETFIRSTVISIBLELINE,0,0);  // Stocke le n° de la ligne visible en haut
  Btn_LireExifClick(Self) ;   // Effectue un traitement qui réaffiche le Memo avec d'autres données 
  Memo1.Perform( Em_linescroll, 0, Ligne - Memo1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0));  // réaffiche la même ligne visible en haut et donc le memo reste à la même position
  Memo1.Lines.EndUpdate ;
end;

Mon problème est solutionné !

A+
Charly