Работа с canvas. Delphi

[McFrey]

Доброго времени суток уважаемые программисты.
Написал код, который позволяет вывести текст, прочитанный из файла просто на форму (без использования memo, label и прочего!), но он выводится в одну строку...

procedure TForm1.outtxt;
var
 LF: TLogFont;
 NewFont: HFONT;
 q:integer;
begin
    if GetObject(Font.Handle, SizeOf(LF), @LF)<>0 then
    begin
      LF.lfFaceName:='Arial';
      LF.lfHeight:=20;
    //   Создаем новый фонт
      NewFont:=CreateFontIndirect(LF);
    if NewFont<>0 then
     begin
      with Form1.Canvas do begin
        TextOut(10, 90, '') ;
        for q:=1 to N do
         TextOut(PenPos.X, PenPos.Y, a[q]);
         sleep(500);
        end;
     end;
  end;
end;

Что необходимо чтобы текст выводился на форму, но не в одну строку, а как положено (т.е. если уперлись в правый край формы, перешли на новую строку) , и при достижении конца формы (ну её низа), текст смещался на одну строку вверх, и продолжал бы выводиться пока не закончится.

[MihalNik]

Надо проверять укладывается ли позиция+TextWidth(строка) в ширину области вывода, если нет - устанавливать координаты на новую строку и/или предварительно разбивать строку на части.

[McFrey]

MihalNik, это что то в этом духе должно быть?

 for q:=i to N do
         TextOut(PenPos.X, PenPos.Y, a[q]);
          if PenPos.X+TextWidth(a[q])>200 then begin
         Form1.Canvas.MoveTo(Form1.Canvas.PenPos.X-200,
                       Form1.Canvas.PenPos.Y+10);
                       end;

если да, то как верно будет?? Код выше не работает, ничего не изменилось...

[McFrey]

Разобрался с выводом не в строку, вот так вот работает:

procedure TForm1.outtxt;
var
  q: integer;
begin
  with Form1.Canvas do 
  begin
    for q := 1 to N do 
    begin
      TextOut(PenPos.X, PenPos.Y, a[q]);
      if PenPos.X + TextWidth(a[i]) > 250 then begin
        Form1.Canvas.MoveTo(Form1.Canvas.PenPos.X - (254 + TextWidth(a[i])),
                       Form1.Canvas.PenPos.Y + 20);
      end;
      sleep(100);
    end;
  end;
end;

Как теперь модернизировать это чтобы при выводе текста, когда места на форме уже не хватает (достигли низа формы), весь текст сдвигался на строку вверх?

[MihalNik]

Перерисовывать если нельзя рассчитать предварительно верхнюю позицию (текст меняется)

[McFrey]

а поподробнее?
примерчик бы хотя бы посмотреть какой нибудь?
как то я слабо пока что представляю как это реализовать...

[MihalNik]

Высота текста = высота одной строки*к-во строк +м/устрочный интервал*(к-во строк -1). Какой-нибудь TextHeight(строка) м.б.
Пример - ищите "многострочный текст в ..." или "разбить строку в ..." (на строки). Есть, например, для ячеек таблиц (для TRect областей).

[McFrey]

а что мне даст высота текста если я её посчитаю....
мда....задачка....третий час сижу не могу текст по форме сдвинуть, это вабще реально?

[MihalNik]

Вам нужна функция вывода текста с n-ой строки, т.е. рассчитать a[q] начиная с которой рисовать текст от верха формы? Если Вы собираетесь просто сдвинуть область TRect - тогда это CopyRect.

[McFrey]

Вот у нас форма к примеру высота=265, ширина 256.
Я вывожу текст на неё, начиная от верхнего края вот таким образом

procedure TForm1.outtxt;
var
  q: integer;
begin
  with Form1.Canvas do
  begin
    for q := 1 to N do
    begin
      TextOut(PenPos.X, PenPos.Y, a[q]);
      if PenPos.X + TextWidth(a[i]) > 250 then begin
        Form1.Canvas.MoveTo(Form1.Canvas.PenPos.X - (240 + TextWidth(a[i])),
                       Form1.Canvas.PenPos.Y + 20);
      end;
      sleep(50);
    end;
  end;
end;

Постепенно форма заполняется строками. Когда следующая строка уже не влезет в границы формы (т.е. как бы будет ниже) мне необходимо самую первую строку с формы убрать, вторую поставить на её место, третью на место второй и так далее, делать это до тех пор пока не закончится текст.