Solved

Scrollbar of memo : scroll down on  opening

Posted on 2007-12-03
14
694 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
  • 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
 
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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

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 125 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…

895 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

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now