Discussion :

[Charly910]

Bonjour,

Quand je clique dans un Memo, je veux sélectionner la ligne sous le curseur. J'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
{ ===================================================================== }
procedure TF_Import.MemoClick(Sender: TObject);
//  Sélection d'une ligne du mémo
begin
  with TMemo(Sender) do
   begin
     FirstLine := SendMessage(TMemo(Sender).Handle, EM_LineFromChar, TMemo(Sender).SelStart, 0);
     Label1.Caption := 'Ligne : '+IntToStr(FirstLine) ;
     CaretPos:= Point(0, CaretPos.Y); // Début de la ligne
     SelLength:= length(Lines[CaretPos.Y]); // sélection de la ligne
     SetScrollPos(Memo.Handle, SB_HORZ, 0, True); // Essai de revenir en début de ligne sans déselection
   end;
end;
{ ===================================================================== }

ça marche, mais quand la ligne affichée est plus grande que la largeur du mémo, le texte se déplace vers la gauche et affiche la fin de ligne. Je voudrais revenir à un affichage du début de ligne sans la désélectionner. SetScrollPos ne fait que remettre la scrollbar à 0, mais ne bouge pas le texte.

Comment faire ?
Merci
A+
Charly

[Charly910]

J'ai trouvé !
à la place du setScrollbox :

Code :

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

     SendMessage(Memo.Handle, WM_HSCROLL, SB_TOP, 0 );

A+
Charly

[ShaiLeTroll]

C'est le SelLength qui ne positionnerait pas à la fin justement ?
C'est le principe même de la sélection, en tout cas, impossible de déplacer la position du curseur puisque cela déplacerait aussi la sélection.

Avec WordWrap à False et une ligne dont la longueur est moins de 1Ko (ou 4Ko, je sais plus, même à WordWrap False, il y a un retour à la ligne pour les lignes très longues)

Sous D10 Seattle

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
procedure TForm1.Button2Click(Sender: TObject);
var
  S: string;
  I, J: Integer;
begin
  for J := 1 to 40 do
  begin
    S := '';
    for I := 20 to Random(200) do
      S := S + Chr(Ord('0') + (I mod 10));
 
    Memo1.Lines.Add(S);
  end;
end;
 
procedure TForm1.Memo1Click(Sender: TObject);
var
  FirstLine: Integer;
begin
  with TMemo(Sender) do
   begin
    FirstLine := SendMessage(Handle, EM_LineFromChar, SelStart, 0);
    Label1.Caption := 'Ligne : '+IntToStr(FirstLine) ;
    CaretPos := Point(0, CaretPos.Y); // Début de la ligne
    SelLength:= length(Lines[CaretPos.Y]); // sélection de la ligne
    Perform(EM_LINESCROLL, -SelLength, 0);
  end;
end;

[Charly910]

Oui, ta solution fonctionne bien, et la mienne aussi avec SendMessage(Handle, WM_HSCROLL, SB_TOP, 0 );

Merci
A+
Charly