Retaining the scrollbars position

[Ed78z]

Is this a bug or not?:

I'm saving position of the scrollbars and then trying to restore them to get back to the previous location(view) in a TMemo....

Code: Pascal  [Select][+][-]

1. Var
2.    M:TPoint;
3. begin
4.   Form1.Memo1.ScrollBars:=ssAutoBoth;
5.   M.X:=Form1.Memo1.HorzScrollBar.Position;
6.   M.Y:=Form1.Memo1.VertScrollBar.Position;
7.    .....
8.    ..... // some changes in the Memo1's contents
9.    .....
10.   Form1.Memo1.HorzScrollBar.Position:=M.X;
11.   Form1.Memo1.VertScrollBar.Position:=M.Y;
12. end;
13.  

If M.X was 15, then at the end the HorzScrollBar.Position will be 15-1=14. Same for M.Y and VertScrollBar.Position, if M.Y=27, then the value will be 27-1=26. I can't set them to initial values, even with M.X+1

Is this a bug?

[jamie]

OS/Widget?

the scrollbars need to be enabled btw.

[Ed78z]

Windows 11 x64
Lazarus 3.6

The scrollbars are part of TMemo (Form1.Memo1.ScrollBars:=ssAutoBoth)