[Vayrus]

Сообщение от angvelem

Примерно так.

Спасибо, тоже самое что и у меня, единственное, стоило перенести отрисовку фона в процедуру с таймером и вуаля, заработало

ЗЫ
Кстати, двойной битмап фиксит еще, наверное, такой глюк, который я заметил - это удлинение хвостика буквы Р

[Vayrus]

Сообщение от M.A.D.M.A.N.

А я без второго битмапа обошелся, бе-бе-бе.

И как же, я так и хотел изначально?

[angvelem]

Так

Код:

procedure TForm1.OutText(Canvas : TCanvas; S: string; xoffset, yoffset: Integer);
var
  T: string;
begin
  // InValidateRect(Bmp.Canvas.handle,NIL,True);
  with Canvas do
  begin
    // oldbkmode := SetBkMode(Handle, Transparent);
    if Copy(S, 1, 1) = '#' then
    begin
      T := Copy(S, 2, Length(S));
      Font.Color := $000576DC; // делаем цвет оранжевым
      // SetBkMode(Handle, TRANSPARENT);
      TextOut((ClientWidth - maxlen { TextExtent(S).cx } ) div 2 - 10 - xoffset,
        yoffset { + fontsize } { TextExtent(S).cy } , T);
    end
    else
    begin
      Font.Color := clWhite;
      // SetBkMode(Handle, TRANSPARENT);
      TextOut((ClientWidth - maxlen { TextExtent(S).cx } ) div 2 - xoffset,
        yoffset { + fontsize } { TextExtent(S).cy } , S);
    end;
    // SetBkMode(Handle, oldbkmode);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  offset: Integer;
begin
  y := y - 1;
  if y = -maxh then
    y := Height;
  { else if y = 10 then
    Sleep(1000); }
  offset := y;
  //
  bmBkGnd.Canvas.Draw(0, 0, bmTemp);
  Canvas.Draw(0, 0, bmBkGnd); // вырисовываем на форме объект Bitmap }
  OutText(Canvas, 'Привет', 0, offset);
  Inc(offset, interval);
end;

[Vayrus]

У вас тоже явное мерцание есть при таком подходе?

[angvelem]

Сейчас проверю.

[M.A.D.M.A.N.]

Двойную буферизацию ставьте, не будет мерцать.

[angvelem]

Как и сказано выше, с буферизацией не мерцает.
Хотя нет. С двумя битмапами гораздо лучше.

[Vayrus]

Сообщение от M.A.D.M.A.N.

Двойную буферизацию ставьте, не будет мерцать.

Стояло уже, но всеравно, с 2 лучше выходит

[Vayrus]

Всем участникам Спасибо)