Форум: "Начинающим";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];

Вниз

Бегущая строка   Найти похожие ветки 

← →
olevacho_ ©   (2007-05-23 18:52) [0]

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

---

← →
Zeqfreed ©   (2007-05-23 18:58) [1]

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

---

← →
olevacho_ ©   (2007-05-23 20:56) [2]

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

---

← →
Loginov Dmitry ©   (2007-05-23 21:15) [3]

TCanvas
TextOut (DrawText)
TTimer

и т.д.

---

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

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

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

---

← →
Робинзон   (2007-05-24 14:16) [5]

На 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.


---

← →
olevacho_ ©   (2007-05-24 14:39) [6]

Чтоб инсталировать єту библиотеку пишет такое "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:42) [7]

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


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

//{$DEFINE DCS}

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.044 c