-----Original Message-----
> How do I determine, in code, what lines are displayed in
> a Rich Edit control?
>
> What I want is three Rich Edit controls, with lines that are
> relates, to scroll at the same time. I thought that I could
> scroll all three when one is scrolled but cannot work out
> how to do this.
______________________________________________________________
Chrissy
Yes, it is annoying the lack of control one can have over the scroll bars in
rich edit.
While I was not doing exactly what you are, in trying to control rich edit
scrolling, I once put a rich edit in a panel, added a rich edit and a
vertical scroll bar. It worked, but never entirely to my satisfaction.
However, the code following may give a hint of a possible direction.
Graham
procedure TForm1.ScrollBox1Enter(Sender: TObject);
begin
PostMessage(Handle,MyMsg,VertScrollboxPos,0);
PostMessage(Handle,VertMsg,HorzScrollboxPos,0);
end;
procedure TForm1.ScrollBox1Exit(Sender: TObject);
begin
VertScrollboxPos:=ScrollBox1.VertScrollBar.Position;
HorzScrollboxPos:=Scrollbox1.HorzScrollBar.Position;
{ScrollBox1.VertScrollBar.Position:=0;}
end;
Procedure Tform1.wmPost(var Message:tMessage);
begin
ScrollBox1.VertScrollBar.Position:=Message.wParam;
end;
Procedure Tform1.wmVertPost(var Message:tMessage);
begin
ScrollBox1.HorzScrollBar.Position:=Message.wParam;
end;
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
