?
Solved

Scrollbar of memo : scroll down on  opening

Posted on 2007-12-03
14
Medium Priority
?
704 Views
Last Modified: 2008-02-01
Can't  make memo be  on text end instead of start of text.
procedure TForm2.DOreading(Ime:string);
    var
         DATAfile: textfile;
         READline: string;
  begin
     AssignFile(  DATAfile,Ime);
     Reset(  DATAfile);
 
     While not EOF (  DATAfile) do begin
     ReadLn(  DATAfile,READline);
     F.Memo1.Lines.Add (READline);
     end;
              // in this way doesent work
     F.  memo1.SelStart := length(memo1.Text);
     F.memo1.Perform(EM_ScrollCaret,0,0);
     
 
CloseFile( DATAfile);
 
  end;

Open in new window

0
Comment
Question by:pr2501
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 8
  • 6
14 Comments
 
LVL 21

Expert Comment

by:ziolko
ID: 20401377
try this:
  Memo1.Lines.LoadFromFile('C:\readme.txt');
  Memo1.SelStart := Length(Memo1.Lines.Text) - 1;
  Memo1.SelLength := 1;


ziolko.
0
 

Author Comment

by:pr2501
ID: 20401525

procedure TForm2.DOreading(Ime:string);
    var
         DATAfile: textfile;
         READline: string;
  begin
     AssignFile(  DATAfile,Ime);
     Reset(  DATAfile);
 
     While not EOF (  DATAfile) do begin
     ReadLn(  DATAfile,READline);
     F.Memo1.Lines.Add (READline);
     end;
              // in this way doesent work
   Memo1.SelStart := Length(Memo1.Lines.Text) - 1;
  Memo1.SelLength := 1;
 
 
CloseFile( DATAfile);
 
  end;

Open in new window

0
 

Author Comment

by:pr2501
ID: 20401536


Can't make to work it in code before.

Problem if the text of memo has more lines that  memo is large:i can
see first par of text- not last.
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 21

Expert Comment

by:ziolko
ID: 20401660
do you have scrollbars on your memo? if so then where are they positioned after setting Selstart and SelLength?

ziolko.
0
 

Author Comment

by:pr2501
ID: 20401749
 on the top
0
 
LVL 21

Expert Comment

by:ziolko
ID: 20401770
you can use Memo1.Lines.LoadFromFile() instead of AssignFile()

and this works for me just fine:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('c:\text.txt');
  Memo1.SelStart := Length(Memo1.Lines.Text) - 1;
  Memo1.SelLength := 1;
  Memo1.SetFocus;
end;

ziolko.
0
 

Author Comment

by:pr2501
ID: 20401945
In may code (code snippet) can't  do scrollbar go down.

I have added scrollbar from  memo Properties: scrollbas ssvertical.  













procedure TForm2.DOread(Ime:string);
    begin
  Memo1.Lines.LoadFromFile('c:\text.txt');
  Memo1.SelStart := Length(Memo1.Lines.Text) - 1;
  Memo1.SelLength := 1;
  Memo1.SetFocus;
end;

Open in new window

0
 

Author Comment

by:pr2501
ID: 20401983


 sorry i was to fast
procedure TForm2.DOread(Ime:string);

the IME wasn't  the c:\text.txt'

I have to work on it.

Thank you
0
 

Author Comment

by:pr2501
ID: 20402007

For itch speedButon i have to read deferent file.
Can you see  the reason way it hasn't work from next code:


 
procedure TForm2.FormShow(Sender: TObject);
   begin
      DOread   ('C:\PC1\Montaza\'+TSpeedButton(Sp).Caption+'\'+TSpeedButton(Sp).Caption+'.txt');
   end;
end.
 
procedure TForm2.DOread(Name:string);
    begin
  Memo1.Lines.LoadFromFile(Name);
  Memo1.SelStart := Length(Memo1.Lines.Text) - 1;
  Memo1.SelLength := 1;
  Memo1.SetFocus;
end

Open in new window

0
 
LVL 21

Expert Comment

by:ziolko
ID: 20402023
first of all validate that this
'C:\PC1\Montaza\'+TSpeedButton(Sp).Caption+'\'+TSpeedButton(Sp).Caption+'.txt'
points to existing file.


ziolko.
0
 
LVL 21

Expert Comment

by:ziolko
ID: 20402036
and use OnActivate instead of OnShow, OnActivate guarantees you that all components are properly created and ready to take user input

ziolko.
0
 

Author Comment

by:pr2501
ID: 20402048

It exist because i can read text into memo.

But the vertical scrollbar is  still positioned  the top.
0
 
LVL 21

Accepted Solution

by:
ziolko earned 500 total points
ID: 20402078
call DoRead routine in OnActivate event handler not OnShow

ziolko.
0
 

Author Comment

by:pr2501
ID: 20402087
 thank you
it's Ok
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …
In this video, Percona Solutions Engineer Barrett Chambers discusses some of the basic syntax differences between MySQL and MongoDB. To learn more check out our webinar on MongoDB administration for MySQL DBA: https://www.percona.com/resources/we…
Suggested Courses
Course of the Month14 days, 6 hours left to enroll

800 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question