| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Бегущая строка [D6, WinXP]

Torn ©   (2002-08-08 23:45:00) 

Кто знает где взять и есть ли компонент бегущая строка?

---

Torn   (2002-08-09 15:40:00) [1]

всем спасиба компонент я не отыскал пришлось самому написать (всего 3 строчки кода)))))))))))))))

---

Yuri Btr   (2002-08-09 09:37:00) [2]

У меня есть пример на основе Canvas, олько я его делал исключительно в познавательных целях. Но с ним можно выводить бегущую строку везде, где есть свойство Canvas.

T1.OnTimer
_________________________
if ((textpos<PBx2.Width) And (T1.Enabled=true))
then
begin
textpos:=Trunc(PBx2.Width/150)+textpos;
PBx2.Canvas.TextOut(textpos,10,"HALLO !");
end
else
begin
textpos:=-20;
end;

---

LVG   (2002-08-09 07:53:00) [3]

В RXLib есть такой компонент.

---

mukha   (2002-08-09 07:00:00) [4]

Самый простой пример бегущей строки:

procedure TForm1.Timer1Timer(Sender: TObject);
Var st1:ShortString;
begin
st1:=copy(Label1.Caption,2,length(Label1.Caption)-1);
st1:=st1+Label1.Caption[1];
label1.Caption:=st1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:=" Пример бегущей строки";
end;

Также бегущую строку можно сделать используя из RXLib к-т TSecretPanel

---

Voldemar   (2002-08-09 01:54:00) [5]

Делается на основе TLabel в течение получаса... Могу примерчик кинуть - как сам делал.

---

Наверх