Sudden jump to the beginning of the file while select text with
dragging
lazarus / 9-Editor

----------------------------------------------------------------------
BorisZanin · 2011-07-25 10:35

Have found one more unusual behaviour of the editor. The repro is the
following:
1. Set an option Options, IDE Options, Editor, Scrolling, Scroll past
end of file
2. Open a lengthy source code file (something near 1000 lines)
3. Jump to the end of file
4. Using mouse begin selecting piece of code from the middle of opened
page and drag the mouse arrow to the bottom of the window (to the
statusbar of the window).
5. And here it is: for some reason vertical scrollbar jumps to the
beginning of the file and (because of the mouse pointer is in bottom)
continues to UNselect selected text from the beginning of the file to
the end.

----------------------------------------------------------------------
Martin_fr · 2011-07-25 11:23

please report as bug on mantis.

----------------------------------------------------------------------
BorisZanin · 2011-07-25 14:57

Cannot pass registration on http://mantis.freepascal.org/ .
So can you register this issue, please?
Please post the bug number here.

----------------------------------------------------------------------
Martin_fr · 2011-07-25 15:48

http://bugs.freepascal.org/view.php?id=19811

If you don't get the registration mail, IIRc some mail providers sort
them as spam, or something... long time I last looked at.

get a google/hotmail mail account, and you should be able to register

----------------------------------------------------------------------
Martin_fr · 2011-07-25 16:32

You got lucky, I found a moment of time, and fast tracked it.

You can either:
- use SVN now
- use snapshot tomorrow
- watch for it to be merged to fixes snapshot:
http://wiki.lazarus.freepascal.org/Lazarus_0.9.30_fixes_branch
- patch your own synedit

Code: [Select]Index: A:/components/synedit/synedit.pp
===================================================================
--- A:/components/synedit/synedit.pp    (revision 31797)
+++ A:/components/synedit/synedit.pp    (revision 31798)
@@ -2922,6 +2922,8 @@
       if fScrollDeltaY > 0
       then Y := FFoldedLinesView.TextIndex[LinesInWindow-1]+1  //
scrolling down
       else Y := TopLine;  // scrolling up
+      if Y < 1   // past end of file
+      then y := FCaret.LinePos;
       FCaret.LineCharPos := Point(C.X, Y);
       if (not(sfIsDragging in fStateFlags)) then
         SetBlockEnd(LogicalCaretXY);

----------------------------------------------------------------------
BorisZanin · 2011-07-26 06:40

You work so quick!
Thanks a lot for such a fast fix.