| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Label [D7, XP]

Страницы:   < 1 2 >

GeLLeR ©   (2006-08-11 14:09:00) 

Подскажите пожалуйста как сделать прокрутку Лабеля как в Винампе, или может компонент есть какой...

---

novill   (2006-08-11 14:41:00) [21]

можно еще так

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=Rightstr(Label1.Caption,length(Label1.Caption)-1)+Label1.Caption[1];
Timer1.Tag:= (Timer1.Tag+1) mod length(Label1.Caption);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:=300;
Label1.Caption:='Подскажите пожалуйста ';
Label1.AutoSize:=False;
end;

---

novill   (2006-08-11 14:32:00) [22]

хе, развиваем телепатию, господа )))

вот делать мне было нечего

текст всего модуля, чтобы не было вопросов.

отпимизацией не занимался

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls, strutils;

type
 TForm1 = class(TForm)
   Timer1: TTimer;
   Label1: TLabel;
   procedure Timer1Timer(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=RightStr(Label1.Hint+Label1.Hint,length(Label1.Hint)*2-Timer1.Tag);
Timer1.Tag:= (Timer1.Tag+1) mod length(Label1.Hint);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:=300;
Label1.Hint:='Подскажите пожалуйста как сделать прокрутку Лабеля как в Винампе, или может компонент есть какой...';
Label1.AutoSize:=False;
end;

end.


---

GeLLeR   (2006-08-11 14:28:00) [23]

> Джо ©   (11.08.06 14:26) [5]


Jedi давно пытался скачать... не работал. Попробую ещё раз.

> GeLLeR ©   (11.08.06 14:26) [6]

было написано пункту 4

---

GeLLeR   (2006-08-11 14:26:00) [24]

НЕПОДОЙДЕТ. видел в какой-то демке каго-то компонента такой лабель
Кстати я не думаю, что в винампе используется MEMO

---

Джо   (2006-08-11 14:26:00) [25]

> GeLLeR ©

Если не ошибаюсь, такой компонент есть в Jedi VCL. Если нет, поищи на torry.net, там такого добра навалом.

---

PZ   (2006-08-11 14:24:00) [26]

Label - это (стандартно) однострочный компонент. Какая может быть прокрутка ?
Может быть Memo использовать, если уж так нужна прокрутка?

---

GeLLeR   (2006-08-11 14:23:00) [27]

Ну если название не помещается в лабеле то он прокручивается. Видели как
в программе "Новости" внизу бегущая строка...

---

Джо   (2006-08-11 14:21:00) [28]

Что такое "прокрутка Лабеля как в Винампе"?

---

GeLLeR   (2006-08-11 14:18:00) [29]

????????

---

Страницы:   < 1 2 >

Наверх