Теле-суфлер

[KIRILL284]

В Delphi7 Есть ли компонент позволяющий плавно перемещать текст в вертикальном направлении по экрану или по форме, или напишите код как это сделать чтобы в Form2 перемещался текст .

[raxp]

в стандартной поставке нет, вроде в rxlib был ...а напишите сами, на основе tmemo, там ничего сложного...

[KIRILL284]

Для tmemo я написал, но текст перемещается построчно а мне надо что бы текст перемещался плавно, а в Formе перемешается плавно, я из tmemo текст отправляю в Form2 вот код
Form2.Canvas.TextOut(x,y+15,(Memo1. Lines.GetText)); но текст не весь отправляется, а только одна строка как мне сделать, чтобы весь текст был в Form2 помогите.

Для tmemo я написал, но текст перемещается построчно а мне надо что бы текст перемещался плавно, а в Formе перемешается плавно, я из tmemo текст отправляю в Form2 вот код
Form2.Canvas.TextOut(x,y+15,(Memo1. Lines.GetText)); но текст не весь отправляется, а только одна строка как мне сделать, чтобы весь текст был в Form2 помогите.

[Smitt&Wesson]

У каждого визуального компонента есть свойство Canvas. По канве можно перемещать текст попиксельно.

[Аватар]

Библиотека RxLib выше упоминалась, в ней компонент TSecretPanel может это делать

[NetSpace]

Если мне на уроках нужна подсказка в виде бугущей строки, то я использую либо презентации, либо вот такую форму в виде текста из отдельных букв. Цвет, размер, сами буквы, скорость и направление движения делаются буквально за пару часов. Это первая демо-версия бегущей строки. Доработать остальное не сложно.
Это обычная форма нестандартного размера. Используются компоненты Shape из Delphi7. И всё.

[DenNik2006]

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

Если мне на уроках нужна подсказка в виде бугущей строки, то я использую либо презентации, либо вот такую форму в виде текста из отдельных букв. Цвет, размер, сами буквы, скорость и направление движения делаются буквально за пару часов. Это первая демо-версия бегущей строки. Доработать остальное не сложно.
Это обычная форма нестандартного размера. Используются компоненты Shape из Delphi7. И всё.

интересно! исходник бы глянуть!

[NetSpace]

Исходник в архиве. Тут все буквы на одной форме. Delphi 5 или 7 откроет без проблем.
Но была мысль создать для каждой буквы и знака свою форму - то их будет около сотни. И подгружать их по мере надобности. Но это пока в мечтах.

[KIRILL284]

1. Вопрос КАК в TSecretPanel останавливать текст, что бы он не исчезал когда прокручивается c низу в верх,

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

3. Вопрос, Как сделать что бы текст сразу полностью выводился на SecretPanel а не прокручивался, а стоял на месте?

Может какой то другой компонент есть. Посоветуйте?

[Stilet]

А так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  s:TStringList;   r:TRect;
  Form1: TForm1;

implementation

uses Types;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 s:=TStringList.Create;
 s.LoadFromFile('D:\Качать фильмы.txt');
 r:=ClientRect; r.Top:=Height;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
 DrawText(Canvas.Handle,pchar(s.Text),length(s.Text),r,DT_WORDBREAK);
 r.Top:=r.Top-1;
end;

end.

Простенько и без особых наворачиваний.