| Цитата | | Часов в 13:00 могу выложить в форум код |
Вот это я запаздал  Вот простой вариант:
Форма:
| Код |
object Form1: TForm1
Left = 289
Top = 105
Width = 783
Height = 540
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 0
Top = 487
Width = 775
Height = 19
Panels = <
item
Width = 70
end
item
Width = 50
end
item
Width = 50
end>
end
object ScrollingTimer: TTimer
Interval = 100
OnTimer = ScrollingTimerTimer
Left = 186
Top = 156
end
end
|
Модуль:
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
ComCtrls, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
ScrollingTimer: TTimer;
procedure ScrollingTimerTimer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
// Строка для скролирования
Txt: String = 'Куплю эффект ПЛАЦЕБО, цена значения не имеет!!!';
const
// Длина строки в панели StatusBar'а
Len = 10;
implementation
{$R *.dfm}
procedure TForm1.ScrollingTimerTimer(Sender: TObject);
begin
// Первую букву переносим в конец строки
Txt := Copy(Txt, 2, ScrollingTimer.Tag) + Txt[1];
StatusBar1.Panels.Items[0].Text := Copy(Txt, 1, Len);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Заносим в Tag таймера длину скролируемой строки
// не обязательно длину хранить в Tag
ScrollingTimer.Tag := Length(Txt);
end;
end.
|
|
