Форум: "Основная";
Текущий архив: 2002.09.23;
Скачать: [xml.tar.bz2];
Внизбегущая строка в статусбаре Найти похожие ветки
← →
billybons (2002-09-12 09:00) [0]Подскажите плз как реализовать сабж. Где -то натыкался на пример кода , но сейчас найти не могу...
← →
Anatoly Podgoretsky (2002-09-12 09:07) [1]Бегущая строка, кроме разработчика, никому не интересна
← →
lenin (2002-09-12 09:09) [2]Примерно так:
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.23;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c