Форум: "Начинающим";
Текущий архив: 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.038 c
