DanDaemon
asked on
TRichEdit, get vertical scroll bar position...
Hello All,
I need to get a current possition of vertical scroll bar in the TRichEdit...
I need to get a current line if it possible...
But this TRichEdit is not focused element. It means that you can not place cursor there and get line number.
Thanks,
Dan
I need to get a current possition of vertical scroll bar in the TRichEdit...
I need to get a current line if it possible...
But this TRichEdit is not focused element. It means that you can not place cursor there and get line number.
Thanks,
Dan
And about the scrollbar:
Label3.Caption := IntToStr(GetScrollPos(Rich Edit1.Hand le, SB_VERT));
Regards, Geo
Label3.Caption := IntToStr(GetScrollPos(Rich
Regards, Geo
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I need to get current line when mouse cursor held scroll bar and user moving scoll box to up or down.
The current line is where the cursor is (not the mouse pointer). Thus, in your case the current line might not be visible.
If your RichEdit can show 10 lines at the same time which one should be considered 'current'? If it is the first line on the top then F68 gave you the answer:
FirstVisibleLine := RichEdit1.Perform(EM_GETFI RSTVISIBLE LINE,0,0);
If your RichEdit can show 10 lines at the same time which one should be considered 'current'? If it is the first line on the top then F68 gave you the answer:
FirstVisibleLine := RichEdit1.Perform(EM_GETFI
ASKER
Hey geobul, I do not need to get first line!
Ok, explain again...
Step-By-step:
1. User start software;
2. User sees rich edit with text;
3. Text is huge, about 100000+ lines;
4. He can not see all text;
5. He hand scroll bar by mouse pointer and moves on NN lines up or down...
6. I NEED TO KNOW WHERE HE IS NOW... Better if this is line number...
7. This line number I can get from scroll bar position but scroll bar position in points;
8. TAKS: I need to know which line is visible now and moves automaticaly on this line
if text will be changed but another user.
I hope now you understand what I need
Ok, explain again...
Step-By-step:
1. User start software;
2. User sees rich edit with text;
3. Text is huge, about 100000+ lines;
4. He can not see all text;
5. He hand scroll bar by mouse pointer and moves on NN lines up or down...
6. I NEED TO KNOW WHERE HE IS NOW... Better if this is line number...
7. This line number I can get from scroll bar position but scroll bar position in points;
8. TAKS: I need to know which line is visible now and moves automaticaly on this line
if text will be changed but another user.
I hope now you understand what I need
ASKER
You can see a veeeery good example... Open ICQ message window and move cursor in the top window where is the messages history... when you will get message from another member you still will see here text where you are. but if you move scroll bar down and will receive new message, history text will be moved.
That's exactly what I'm trying to explan: your user is nowhere. There are several lines currently visible and you can get the number of the first of them. I hope it becomes more clear now.
ASKER
Ok, WinXP+SP2, Delphi 7+both service packs...
This code:
---
FirstVisibleLine := RichEdit1.Perform(EM_GETFI RSTVISIBLE LINE,0,0);
---
Always returns me 0...
This code:
---
FirstVisibleLine := RichEdit1.Perform(EM_GETFI
---
Always returns me 0...
ASKER
I think better way if I explain it as:
I need function Add which will make same than standard Add but will not move cursor to end of text if user is not there.
I need function Add which will make same than standard Add but will not move cursor to end of text if user is not there.
OK. A simple example. Drop one Richedit, one Timer, one Label and one Button on a form and apply the following code. RichEdit behaves itself exactly as you've described:
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Timer1: TTimer;
Label1: TLabel;
Button1: TButton;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Counter: integer = 0;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
RichEdit1.Lines.Add(IntToS tr(Counter ));
Inc(Counter);
Label1.Caption := IntToStr(RichEdit1.Perform (EM_GETFIR STVISIBLEL INE,0,0));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit1.TabStop := false;
end;
end.
Regards, Geo
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Timer1: TTimer;
Label1: TLabel;
Button1: TButton;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Counter: integer = 0;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender:
begin
RichEdit1.Lines.Add(IntToS
Inc(Counter);
Label1.Caption := IntToStr(RichEdit1.Perform
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit1.TabStop := false;
end;
end.
Regards, Geo
If you set the HideSelection property of the RichEdit to False, then the Richedit will automatically scroll to newly added text...
Regards
Pierre
Regards
Pierre
Sorry, Just noticed you said: "...will NOT move cursor to end of text if user is not there."
Do something like this:
var SavePos: integer;
begin
SavePos:= Richedit1.SelStart;
Richedit1.Lines.Add('SomeT ext');
RichEdit.SelStart:= SavePos;
end;
Do something like this:
var SavePos: integer;
begin
SavePos:= Richedit1.SelStart;
Richedit1.Lines.Add('SomeT
RichEdit.SelStart:= SavePos;
end;
IMHO Ferruccio68 and I answered all the questions here. Please correct me if I'm wrong.
ASKER
Uh, sorry Ferruccio68... I was waiting additional answers, and forgot about your answer.
Yes, I have changed your code fully, but idea was correct!
Thanks,
Dan
Yes, I have changed your code fully, but idea was correct!
Thanks,
Dan
>I need to get a current line if it possible...
Label2.Caption := IntToStr(RichEdit1.CaretPo
Regards, Geo