Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Вниз
Бегущая строка в about box ? Найти похожие ветки
← →
Squ (2002-10-22 07:26) [0]Может есть у кого то идеи как наиболее просто и красиво сделать "бегущую строку" ?
Т. е. чтобы в каком-нибудь контроле прокручивался текст вверх, наподобие того как это сделано в некоторых программах в About Box.
← →
gek (2002-10-22 07:51) [1]Посм как это сделано в Rx
← →
Semion (2002-10-22 07:59) [2]Использовать таймер, и пустить круговую смену символов -записуемых caption.
← →
Separator (2002-10-22 08:04) [3]
> Semion © (22.10.02 07:59)
Внимательно почитай, что надо сделать. Прокрутка должна быть снизу вверх, а так получится только справо налево или слева направо.
← →
roadster (2002-10-22 09:01) [4]Ну тык если в лабеле, то добавлять строку Chr(13) + Строка, а ежли в мемо или что похожее, то просто строку добавить.
Особенности: в лабеле текст надо книзу прибить, а после присвоения Application.ProcessMessages делать,
а мемо скроллировать надо. Как скроллинг сделать, где-то в этой конфе было.
Ну и в конец строки добавлять, а сверху затирать придется. Не знаю как лабель, а мемо на 64-х К, кажется, текста глюкнет
← →
Внук (2002-10-22 09:05) [5]Иходники TSecretPanel из RxCtrls.pas будут полезны :)
← →
SWD (2002-10-22 09:10) [6]Привет
Загляни по адесу http://dupliksv.hut.ru/showcat.php?id=5
На этой странице будет описан модуль бегущего текста. Это не совсем то, что одна бегущая строка, но может понравится.
← →
SWD (2002-10-22 09:12) [7]Привет
Загляни на http://dupliksv.hut.ru/showcat.php?id=5
и посмотри модуль "Бегущий текст"- может подойдет
← →
SWD (2002-10-22 09:12) [8]Загляни по адресу http://dupliksv.hut.ru/showcat.php?id=5
и посмотри модуль бегущего текста, может подойдет
← →
Squ (2002-10-22 09:19) [9]Ага, всем спасибо бо!
← →
MetalFan (2002-10-22 09:26) [10]вот что-то сваял, тока ногами не бить)
procedure TForm1.btnClick(Sender: TObject);
var
st:String;
begin
if btn.Caption="Start" then begin
btn.Caption:="Stop";
while btn.Caption="Stop" do begin
with memo1 do begin
st:=Lines[0];
Lines.Delete(0);
Lines.Add(st);
Sleep(500);
Application.ProcessMessages;
end;
end;
end else btn.Caption:="Start";//if
← →
NUU (2002-10-22 10:43) [11]Можно взять панель и положить в нее Label. А на таймере двигать ее хоть снизу вверх, хоть слева на право
← →
Manulo (2002-10-22 10:48) [12]NUU
Убил напрочь! Самый быстрый способ!!!
← →
AlGin (2002-10-22 12:18) [13]Самое простое решение - использовать TRxSecretPanel
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
