TDbRichViewEdit scroll automatically with click in...

General TRichView support forum. Please post your questions here
Post Reply
Marcer
Posts: 31
Joined: Mon Mar 23, 2009 1:54 pm

TDbRichViewEdit scroll automatically with click in...

Post by Marcer »

Hi,

I succeeded reproduce my problem with the demo program include in “RichView \ demonstrations \ Delphi \ dB demonstration \ 1 dbrichviewedit”.

My problem is the following:

When you adds the letters “a” to “z”, but you will add one letter per line, then one goes at the beginning of the text and with the arrow I go down until I would be on the letter “i”. On the following line one sees half of the letter “j”, then I click with the left button so that my cursor positions at the end of the letter “j”, there the letter “k” and “l” will then be selected and my cursor will find at the end of the letter “l”.

How to solve my problem if I want that my cursor positions at the end of the letter " j" under the conditions mentioned?
Marcer
Posts: 31
Joined: Mon Mar 23, 2009 1:54 pm

RE: TDbRichViewEdit scroll automatically with click in...

Post by Marcer »

The version of my RichView component is 11.0.3
Sergey Tkachenko
Site Admin
Posts: 17571
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Post by Sergey Tkachenko »

I'll test this problem in the next week.
Marcer
Posts: 31
Joined: Mon Mar 23, 2009 1:54 pm

RE: TDbRichViewEdit scroll automatically with click in...

Post by Marcer »

Anybody are a solution?
Sergey Tkachenko
Site Admin
Posts: 17571
Joined: Sat Aug 27, 2005 10:28 am
Contact:

Post by Sergey Tkachenko »

Sorry for delay.
The following change in the source code is required to fix this problem.
In CRVFData.pas, in TCustomRVFormattedData.MouseDown, near the end of the method, change

Code: Select all

DoOnSelection(True);
to

Code: Select all

DoOnSelection(not (rvstMakingSelection in State));
Marcer
Posts: 31
Joined: Mon Mar 23, 2009 1:54 pm

Post by Marcer »

Thanks for your solution, it is functional.
Post Reply