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

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

Бегущая строка [D4, XP]

olevacho_ ©   (2007-05-23 18:52:00) 

Как организовать бегущую строку в D4?

---

Сергей М.   (2007-05-24 14:42:00) [1]

> Как деактивировать DCS?
>


Например, вот так:

//{$DEFINE DCS}

---

olevacho_   (2007-05-24 14:39:00) [2]

Чтоб инсталировать єту библиотеку пишет такое "If you have Delphi 4 Professional or Standard Edition, deactivate theconditional define {$DEFINE DCS} in the RX.INC file before compiling the
library."
Как деактивировать DCS?

---

Робинзон   (2007-05-24 14:16:00) [3]

На Delphi 4  не пробовал  но на 5 и выше работает. ставишь таймер и в FormCreate обрабатываешь событие
procedure TForm1.FormCreate(Sender: TObject);
var
a:string;
begin
a := 'Бегущая строка!...';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var  
 i: Integer;
begin
 Application.Title := a;
 form1.Caption     := a;
 for i := 1 to (Length(a) - 1) do
   a[i] := Application.Title[i + 1];
 a[Length(a)] := Application.Title[1];
end;
end.


---

Германн   (2007-05-24 01:08:00) [4]

> olevacho_ ©   (23.05.07 18:52)
>
> Как организовать бегущую строку в D4?
>

Всё уже сделано до нас. TSecretPanel из RxLib.

---

Loginov Dmitry   (2007-05-23 21:15:00) [5]

TCanvas
TextOut (DrawText)
TTimer

и т.д.

---

olevacho_   (2007-05-23 20:56:00) [6]

Нужно чтобы текст заезжал справа налево или наоборот в прямоугольную область окна или нужно чтобы текст появлялся с каким нибудь анимационным эффектом.

---

Zeqfreed   (2007-05-23 18:58:00) [7]

Смотря от кого убегать надо.

---

Наверх