Dead.MorozZ
25.12.2005 17:24
Подскажите как сделать в Делфе бегущую строку в обычном Лейбле
#$# PaVeL #$#
25.12.2005 18:05
Попробуй копировать и удалять первый символ и вставлять его в конец.
Понимаю что способ неочень, однако, работает!
Иногда очень хорошо выглядит, но для постоянного спецэффекта - плох.
Gothic_Snake
25.12.2005 23:24
Код
var
s:string;
begin
s:=label1.caption;
s:=copy(s,2,length(s))+s[1];
label1.caption:=s;
end;
попробуй это..
Gothic_Snake, это чем-то отличается от совета, который дал #$# PaVeL #$#? Тогда покажи, чем... Volvo, по-моему GS просто проилюстрировал кодом совет #$# PaVeL #$#. Там был предложен метод, я его реализовал и все...
Dead.MorozZ
21.01.2006 0:49
У меня такая ситуация строка полностью не влазет в метку, поэтому решил сделать ее бегущей.
Как можно сделать бегущую строку по типу как в WinAmp'e. Чтоб после того, как последняя часть строки выползла процесс пошел в другую сторону(строка побежала обратно) а добежав до другого конца снова поворачивала и т.д. ...
Цитата(Dead.MorozZ @ 20.01.2006 20:49)

У меня такая ситуация строка полностью не влазет в метку, поэтому решил сделать ее бегущей.
Как можно сделать бегущую строку по типу как в WinAmp'e. Чтоб после того, как последняя часть строки выползла процесс пошел в другую сторону(строка побежала обратно) а добежав до другого конца снова поворачивала и т.д. ...
Я перемещаю битмапик по PaintBox'у. В принципе этот код можно в компоненту зашить.
Смотри проект.
Dead.MorozZ
21.01.2006 16:36
А как можно сделать тоже самое с TLabel, а с PaintBox медленно работает, а мне нужа бег. строка как постоянный эффект??
hardcase
21.01.2006 19:33
Ты скорость измени и/или период таймера.
А с Лэйблом - криво получается.
А там, где вызывается PaintBox1.Refresh можно поставить закраску обычным прямоугольником. PaintBox1.Canvas.Rectangle(PaintBox1.ClientRect)
Gothic_Snake
22.01.2006 23:35
Цитата(Dead.MorozZ @ 21.01.2006 15:36)

А как можно сделать тоже самое с TLabel, а с PaintBox медленно работает, а мне нужа бег. строка как постоянный эффект??
TPaintBox работает очень быстро, и позволяет, в отличии от TLabel, рисовать без мерцания.
does viagra help premature ejacu
21.12.2021 11:54
Amoxicillin For Pets
nishaknapp
16.01.2023 6:16
Why not settling on games that is fun and at the same time your earning. Well it'll make suspense because the game is well but dude just try it and it gave me hope while pandemic is real rn.
3 Things You Need to Know before Playing at Online Casinos
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста,
нажмите сюда.