Отправляет email-рассылки с помощью сервиса Sendsay

Новости форума и блога сайта о программировании Chertenok.ru

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Создание сайта. Уроки для начинающих и не только" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Декабрь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
13-ый

Статистика

3.612 подписчиков
-1 за неделю
←   Все выпуски   →

Программирование от Чертенка.ру Выпуск 6. бегущая строка


Информационный Канал Subscribe.Ru

Доброго времени суток, уважаемые подписчики!

 Стучат часы, уходит старый год,
Шуршат его последние страницы,
Пусть лучшее что было не уйдет,
Плохое - никогда не повторится !
С Уважением, администрация форума и сайта.

За прошедшую неделю в мире soft IT были замечены следующие интересные новости:

  1. Софтверному пирату грозит до 10 лет тюрьмы
  2. Вышла обновленная бета-версия Windows Vista
  3. Выпущен FastReport 3.20
  4. Firebird версия 1.5.3 Release Candidate 3


Бегущая строка

Такая же бегущая строка будет и у вас в Delphi-приложении

Итак, как вы уже догадались, сегодня мы будем делать бегущую строку в своём Delphi-приложении.
Однажды мне очень понадобилось некое подобие TEdit'a, только не со стационарной, а с бегущей строкой (все символы просто не влазили, а показать нужно было всё...) Вот я и задумался, как же это сделать. Сегодня я расскажу вам 2 способа решения данной проблeмы.

Способ первый, он первым пришёл мне в голову. Поиграться со свойством Text Edit'a, т.е. через определённый промежуток времени "смещать" саму строку. Под смещением я понимаю удаление первого символа строки и добавление нового последнего. Таким образом получается цикл нужного нам текста.
Для этого кинем на форму один таймер, один TEdit и объявим глобальную переменную i сразу после слова implementation. i по умолчанию должно равняться единице, т.е. её оъявление будет выглядеть так:

...
implementation

var
   i: integer = 1;
...

А сам код таймера будет выглядеть так:

procedure TForm1.Timer1Timer(Sender: TObject);
const
   GoString='А вoт и бегущая строка в Delphi :) '; {Текст, который будет двигаться в Edit'e}
var
   s: string; {Временная переменная для работы с текстом, т.к. удалять символы напрямую из Edit'a мы не можем}
begin
   s := Edit1.Text; {Берём текст}
   Delete(s,1,1); {Удаляем первый символ}
   s := s+GoString[i]; {Добавляем в конец текста следующий по списку символ}
   Edit1.Text := s; {Возвращаем изменённый текст на родину}
   inc(i); {В следующий раз будем добавлять следующий символ}
   if i>length(GoString) then i := 1; {Но если номер следующего символа вылазит за границу строки, то это знак что нужно начинать сначала}
end;

Для того, чтобы данный способ работал корректно, нужно чтобы изначально текст Edit'a был чем-то заполнен. Чем - не важно. Это будет видно только в самом начале. Можно просто взять кучу пробелов. Но длина текста останется постоянной, т.е. какая была, такой и останется...
Данный метод, конечно, хорош. Но передавать строки ему не очень удобно, а если строка должна ещё и периодически изменяться, то совсем неудобен. К тому же, смещение происходит посимвольно, что, если приглядеться, заметно. А мне хотелось, чтобы смещение было максимально плавным, да и кодить этот "ужасный" код совсем не хотелось - было мало времени.



огда я использовал способ второй. А суть заключается в том, что не надо изобретать велосипед, если он уже изобретён. Напряжём мозги и вспомним старый добрый HTML. Опа! А там же есть уже реализованная отличная бегущая строка! MARQUEE вспомнили? Если нет, то сейчас вспомните! :)

Данный тег с атрибутами выглядит примерно так:

<marquee height="100%" width="167" bgcolor="white" behavior="scroll" direction="left" scrollamount="4">
Текст бегущей строки
</marquee>

height - высота бегущей строки. В данном случае змеряется в процентах
width - ширина бегущей строки. В данном случае измеряется в пикселях
behavior - поведение строки. Может равняться:
  • Scroll - обычная прокрутка (можно не прописывать, оно так и есть по умолчанию)
  • Slide - прокрутка с остановкой, строка пробегает до края и останавливается.
  • Alternate - строка будет двигаться от края к краю.
    		•
    Direction - задает направление движения бегущей строки. Может равняться left (right, up, down) - движение влево (вправо, вверх, вниз). Движение влево можно не прописывать, оно является движением по умолчанию.
    Scrollamount - скорость движения строки. Может принимать значения от 1 до 10.
    Конечно же, для бегущей строки можно задавать и другие HTML атрибуты (hspace, vspace и align).

    Пример бегущей строки можете посмотреть вначале этой статьи. Её код выглядит так:

    <marquee height="100%" width="167" bgcolor="white" scrollamount="4">
    <small>Такая же бегущая строка будет и у вас в Delphi-приложении</small>
    </marquee>

    Тег small делает шрифт текста меньшим, относительно основного текста.

    Ну вот, теорию повторили! :) Теперь перейдём к проблемам реализации.
    Как вы уже догадались, показывать нашу страничку мы будем в TWebBrowser => для отображения бегущей строки мы используем Internet Explorer (точнее, TWebBrowser использует IE). Следовательно, и отображаться она будет всегда одинаково! Значит, никаких проблем с разностью в браузерах нет! Это хорошо.
    Но, как же мы будем показывать нашу страничку, если TWebBrowser умеет открывать только существующие странички? Очень просто. Сохранять на диск нашу HTML страничку мы не будем - не респектно! :) Для отображения странички воспользуемся протоколом about. Коротко говоря об этом протоколе, если создать строку вида "about: Наш HTML код " и передать эту строку в качестве параметра в TWebBrowser.Navigate, то наша страничка корректно отобразиться. Например:

    WebBrowser1.Navigate('about:<body bgcolor="red"><center>Hello, Dem@nXP!</center></body>');

    Этот код отобразит нам страничку с красным фоном, посередине которой на первой строке будет надпись "Hello, Dem@nXP!" чёрными буквами.
    А почему бы нам не отобразить так же и бегущую строку? Пробуем! :)

    WebBrowser1.Navigate('about:<body> <marquee height="20" width="167" bgcolor="white" scrollamount="4"> <small>Такая же бегущая строка будет и у вас в Delphi-приложении</small> </marquee> </body>');

    Уррряя! Всё работает! Так, теперь доведём всё до человеческого вида, т.е. Сделаем размеры нашего WebBrowser'a соизмеримыми с размерами Edit'a. В предвкушении законченого дела запускаем наше приложение и ... не тут то было! Эти чёртовы полосы прокрутки! Да ещё и сама строка находится не с самого верху! Мдя, будем лечить...
    В HTML'e есть понятия нижнего, верхнего, левого и правого отступов от краёв страницы. А что если их обнулить?

    WebBrowser1.Navigate('about:<body topmargin="0" leftmargin="0" marginwidth="0" rightmargin="0" bottommargin="0"> <marquee height="20" width="167" bgcolor="white" scrollamount="4"> <small>Такая же бегущая строка будет и у вас в Delphi-приложении</small> </marquee> </body>');

    Угу. Уже получше - если освободить место для полос прокрутки, то будет видно, что наша строка вплотную прилегает к краям TWebBrowser'a. Но полосы прокрутки портят весь вид! Вот их мы сейчас и уберём! :)
    А убираются они довольно просто: в теге body пролписываем scroll="no". Всё гениальное просто :). Делаем размер WebBrowser'a "нормальным" (у меня height=20 а width=167), изменяем текст на:

    WebBrowser1.Navigate('about:<body topmargin="0" leftmargin="0" marginwidth="0"'+
    'rightmargin="0" bottommargin="0" scroll="no"> <marquee height="20" width="167"'+
    'bgcolor="white" scrollamount="4"><small>Такая же бегущая строка будет и у вас в'+
    'Delphi-приложении</small> </marquee> </body>    ');

    И радуемся жизни: теперь то всё работает! Ну, для полного счастья можно подвязать размеры бегущей строки с размерами браузера. Это делается так:

    WebBrowser1.Navigate('about:<body topmargin="0" leftmargin="0" marginwidth="0"'+
    'rightmargin="0" bottommargin="0" scroll="no"> <marquee height="'+
    IntToStr(WebBrowser1.height-5)+'" width="'+IntToStr(WebBrowser1. width)+
    '"bgcolor="white" scrollamount="4"><small>Такая же '+
    'бегущая строка будет и у вас в Delphi-приложении</small></marquee></body>    ');

    Теперь даже если попытаться прокрутить (скроллером или кнопкой мыши) нашу страничку, бегущая строка всё равно не изменит своей траектории. WebBrowser1.height-5 сделано именно для этого.

    Ну и, наконец, всё это можно красиво оформить в одну процедурку:

    procedure SetRunText(Web: TWebBrowser; Text: string);
    begin
      Web.Navigate('about:<body topmargin="0" leftmargin="0" marginwidth="0"'+
      'rightmargin="0" bottommargin="0" scroll="no"> <marquee height="'+
      IntToStr(Web.height-5)+'" width="'+IntToStr(Web. width)+
      '"bgcolor="white" scrollamount="4"><small>'+Text+
      '</small></marquee></body>    ');
    end;

    Ну, или же сразу передавать в процедуру и все настройки:

    procedure SetRunTextProfy(Web: TWebBrowser; Text, bgcolor, behavior, direction: string; speed: integer);
    begin
      Web.Navigate('about:<body topmargin="0" leftmargin="0" marginwidth="0"'+
      'rightmargin="0" bottommargin="0" scroll="no"> <marquee height="'+
      IntToStr(Web.height-5)+'" width="'+IntToStr(Web. width)+
      '"bgcolor="'+bgcolor+'" scrollamount="'+IntToStr(speed)+'" behavior="'+
      behavior+'" direction="'+direction+'" ><small>'
      +Text+'</small></marquee></body>    ');
    end;

    Если захотите оставить параметры по умолчанию, то можно просто передать пустые строки в нужных параметрах. Данную процедуру можно ещё расширить: например, передавать цвет не строкой, а TColor'ом. Но это вы уже сделаете сами :)

    Ну вот и всё. Сегодня вы научились делать бегущую строку аж двумя способами, вспомнили HTML, написали пару полезных процедур Я надеюсь, что эта статья принесла вам пользу, научила чему-нибудь.

    Автор: Dem@nXP
    E-Mail: demanxp@mail.ru
    ICQ: 606986
    В следующих выпусках мы продолжим цикл статей по .Net Framework, поделимся накопленным опытом в области Делфи (автоматическое обновление программы по локальной сети, упрощение работы с репортами FastReport и XLReport, автоматизация работы с СУБД, работа с Excel), продолжим знакомить Вас с другими продуктами фирмы Devrace, а также будут авторские статьи по Делфи

    Ждем Ваших откликов на емайл 5781-author@subscribe.ru или subscr@chertenok.ru


    Приглашаем авторов в рассылку!


    С уважением,
    координатор рассылки Алексей aka Gelios.

    Наши координаты:

    сайт - www.delphi.chertenok.ru
    форум - www.forum.chertenok.ru
    контактный email - 5781-author@subscribe.ru

    Другие проекты:

    www.travel.chertenok.ru - сайт о путешествиях!

    Subscribe.Ru
    Поддержка подписчиков
    Другие рассылки этой тематики
    Другие рассылки этого автора    		 Подписан адрес:
    Код этой рассылки: comp.soft.prog.allofdelphi
    Архив рассылки    		 Отписаться Вебом Почтой
    Вспомнить пароль
    В избранное