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

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

бегущая строка в статусбаре [D5, Win2k]

billybons ©   (2002-09-12 09:00:00) 

Подскажите плз как реализовать сабж. Где -то натыкался на пример кода , но сейчас найти не могу...

---

lenin   (2002-09-12 09:09:00) [1]

Примерно так:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
pos:=pos+3;
StatusBar1.Invalidate;
if pos>StatusBar1.Panels[0].Width then pos:=0;
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if Panel.Index=0 then
StatusBar1.Canvas.TextRect(Rect,Rect.Left+pos,Rect.Top,Panel.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
pos:=0;
StatusBar1.DoubleBuffered:=true;
end;


---

Anatoly Podgoretsky   (2002-09-12 09:07:00) [2]

Бегущая строка, кроме разработчика, никому не интересна

---

Наверх