Re:Text Scrolling
You have to be more specific, about what exactly you need.
I assume you want soft scroll of text.
You can try the following:
1. Put a Scrollbox on your form (size it 200x200 or so)
2. Put a Paintbox into the Scrollbox
3. In the object inspector: Set PaintBox1.Align to top and PaintBox1.Height to
something like 400
4. In the object inspector: Set ScrollBox1.VertScrollBar.Increment to 1 and
ScrollBox1.VertScrollBar.Tracking to True
5. Generate a PaintBox1.OnPaint-event like this:
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
j : Integer ;
begin
With PaintBox1.Canvas do
begin
for j := 0 to 24 do
TextOut(8, 16*j, 'Line ..'+inttostr(j)) ;
end ;
end;
and run this program. Now the text scolls smoothly.
Is this, what you want ? or please be more specific.
KH Brenner
Quote
Tassos Voulgaris wrote:
> How can I make a txt file scroll on a form ? Not line by line...all the text
> together...