Discussion :

[SergioMaster]

Bonjour,

on est tous passés par le besoin d'une petite "moulinette" pour tracer des actions

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
// mise à jour
   TTask.Run(
           procedure
               var nomimage : String;
                   log : string;
              begin
              while not datas.Query.EOF do
               begin
                  //traitement plus ou moins long
                   log:='action faite';
                end;

                TThread.Synchronize(TThread.Current,
                    procedure
                    begin
                      memo1.Lines.Add(log);
                      memo1.ScrollToCenter();
                    end);
                   datas.Query.Next;
                  end;
               end);

Si memo1.ScrollToCenter(); donne une bonne illusion de défilement, il n'y a pas de ScrolltoBottom dommage
une idée avant que je ne me lance dans des calculs ?

[SergioMaster]

Bon, finalement, calcul "simple"
voilà le nouveau Synchronize

Code :

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

1
2
3
4
5
6
7
8
9
10
TThread.Synchronize(TThread.Current,
procedure
 var ay : single;
begin
   memo1.Lines.Add(log);
 //                     memo1.ScrollToCenter();
  ay:=memo1.Lines.Count*(Memo1.Font.Size * 96/72 )-Memo1.ViewportSize.cy;
  memo1.ScrollTo(0,ay);
end);

et l'illusion est parfaite, reste plus qu'à intégrer le DPI plutôt que cette "constante" 96/72

[ShaiLeTroll]

En FMX, le TMemo, est-im un control dessiné ou il est tout de même mappé sur le composant Natif de l'OS ?

As-tu essayé : GoToTextEnd ?
Le déplacement du curseur est-il accompagné d'un défilement ?

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
procedure TCustomPresentedScrollBox.ScrollToCenter(const AAnimated: Boolean);
var
  ContentBoundsTmp: TRectF;
  ViewportSizeTmp: TSizeF;
  DestPoint: TPointF;
begin
  ContentBoundsTmp := ContentBounds;
  ViewportSizeTmp := ViewportSize;
  DestPoint := TPointF.Create((ContentBoundsTmp.Width - ViewportSizeTmp.Width) / 2, (ContentBoundsTmp.Height - ViewportSizeTmp.Height) /2);
  ScrollBy(DestPoint.X - ViewportPosition.X, DestPoint.Y - ViewportPosition.Y, AAnimated);
end;
 
procedure TCustomPresentedScrollBox.ScrollToTop(const AAnimated: Boolean = True);
begin
  ScrollBy(0, -ViewportPosition.Y, AAnimated);
end;

on peut en déduire ... code empirique
Ce défile à ce que la dernière page soit visible

Code :

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

1
2
3
4
procedure TCustomPresentedScrollBox.ScrollToBottom(const AAnimated: Boolean);
begin
  ScrollBy(0, ContentBounds.Height - ViewportSize.Height, AAnimated);
end;

En VCL sur Windows

Faudrait vérifier mais il me semble que le défilement était automatique sur le RichEdit mais l'utilisation de BeginUpdate\EndUpdate nuisait à ce comportement
Faudra que je vérifie sur le TMemo mais j'ai l'impression qu'avec un certains jeux d'options, c'est sans effort le défilement auto, cela dépend peut-être de l'OS.


Voir TRichEdit : défilement vertical automatique (autoscrolling) où j'utilise EM_LINESCROLL pour travailler en caractère et non en pixel.

EDIT - Très bête : Memo1.Lines.Add, Delphi 10 Seattle, Win10, un TMemo sans aucune modif, et là le code Memo1.Lines.Add provoque un défilement auto sans aucun code supplémentaire, j'avoue avoir même été surpris pour m'en souvenir.

Code dfm :

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

1
2
3
4
5
6
7
8
9
  object Memo1: TMemo
    Left = 8
    Top = 39
    Width = 333
    Height = 241
    Lines.Strings = (
      'Memo1')
    TabOrder = 1
  end

Absence de ScrollBars via ssNone, je pense qu'il offre dans ce cas un défilement automatique !

Voir aussi le lien entre Lines.Add et ES_AUTOVSCROLL, voir si l'on peut pas faire que le TMemo fasse le scroll même si l'on active des ScrollBars.

[anapurna]

salut

il n'existe plus la propriété SelStart ?

sinon

Code :

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

SelStart := Length(Text);

[blonde]

salut

il n'existe plus la propriété SelStart ?

sinon

Code :

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

SelStart := Length(Text);

J'aurais dit pareil


Je viens de tester en FMX avec un tout petit code

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.SelStart := length(Memo1.Lines.Text);
   Memo1.SetFocus
end;

J'ai mis le SetFocus juste pour tester avec l'entrée au clavier la position de mon curseur.

[SergioMaster]

Memo1.SelStart Oui, je n'y avais même pas pensé , mais cela a un effet que mon code n'a pas : le défilement reprend au début avant d'aller à la fin, c'est un peu moche niveau effet.

As-tu essayé : GoToTextEnd ?

non, parce que j'étais obnubilé par le ScrollToEnd inexistant et je n'ai pas pensé un instant que cette procédure existait

[anapurna]

salut


tu ne ferait pas un selstart := 0 avant de réaffecter la valeur ?
sinon tu peut faire un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure UpdateTMemoPos(Editor : TMemo;Pos : Integer);
var
  OnChange : TNotifyEvent;am;
begin
   OnChange := Editor.OnChange;
   Editor.OnChange := nil;
   Editor.SelStart := Pos;
   Editor.OnChange := OnChange;
end;