[DUG] Auto Highlight

[Rohit Gupta]

Going through Borlands code, I can see the culprit ScrollInView 
procedure where it does Position := Postiion + 
Control.ClientRect.Top if the Control.ClientHeight is larger than the 
are in view.  SInce its buried in layres of nested controls, I cant fix it.

However, it woudl still be nice to not highlight the text.....  

From:           	"Rohit Gupta" <rohit at cfl.co.nz>
Organization:   	Computer Fanatics Ltd
To:             	NZ Borland Developers Group - Delphi List <delphi at ns3.123.co.nz>
Date sent:      	Fri, 05 Aug 2005 15:52:16 +1200
Priority:       	normal
Subject:        	[DUG] Auto Highlight
Send reply to:  	rohit at cfl.co.nz,
       	NZ Borland Developers Group - Delphi List <delphi at ns3.123.co.nz>
	<mailto:delphi-request at ns3.123.co.nz?subject=unsubscribe>
	<mailto:delphi-request at ns3.123.co.nz?subject=subscribe>

[ Double-click this line for list subscription options ] 

We have a frustrating situation for some clients...

A memo sits on a scrollbox.  The memo is larger than the display 
area on the form.  Everytime the focus goes to the memo, the 
scrollbox shifts the vertical position to 2.

The sideeffect of this is as if the user held down the mouse button 
and shifted it upwards... thus highlighting the text.  Unfortunately, 
they then type something and lose the whole text.

I have reproduced it in a separate app, thats why I know whats 
happening.  Incidentally other controls do the same (such as 
listbox).

Any ideas on solutions ?
Regards

Rohit

====================================================
==================
CFL - Computer Fanatics Ltd.  21 Barry's Point Road, AKL, New 
Zealand
PH    (649) 489-2280 
FX    (649) 489-2290
email rohit at cfl.co.nz  or  r.gupta at xtra.co.nz
====================================================
==================


_______________________________________________
Delphi mailing list
Delphi at ns3.123.co.nz
http://ns3.123.co.nz/mailman/listinfo/delphi
Regards

Rohit

======================================================================
CFL - Computer Fanatics Ltd.  21 Barry's Point Road, AKL, New Zealand
PH    (649) 489-2280 
FX    (649) 489-2290
email rohit at cfl.co.nz  or  r.gupta at xtra.co.nz
======================================================================