Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Бегущая строка

Автор: 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. Чтоб после того, как последняя часть строки выползла процесс пошел в другую сторону(строка побежала обратно) а добежав до другого конца снова поворачивала и т.д. ...

Автор: hardcase 21.01.2006 1:48

Цитата(Dead.MorozZ @ 20.01.2006 20:49) *
У меня такая ситуация строка полностью не влазет в метку, поэтому решил сделать ее бегущей.
Как можно сделать бегущую строку по типу как в WinAmp'e. Чтоб после того, как последняя часть строки выползла процесс пошел в другую сторону(строка побежала обратно) а добежав до другого конца снова поворачивала и т.д. ...

Я перемещаю битмапик по PaintBox'у. В принципе этот код можно в компоненту зашить.
Смотри проект.


Прикрепленные файлы
Прикрепленный файл  runstr.rar ( 5.84 килобайт ) Кол-во скачиваний: 288

Автор: 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. https://bestofhealthylife.com/3-things-you-need-to-know-before-playing-at-online-casinos/