Про автоматический переход на след. трек

[KatCH]

Здраствуйте. Разьясните пожалуста етот код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // изменить счетчик времени
  if sec < 59
    then inc(sec)
    else begin
      sec :=0;
      inc(min);
    end;

  // вывести время воспроизведения
  Label2.Caption := IntToStr(min)+':';
  if sec < 10
    then Label2.Caption :=
           Label2.Caption +'0'+ IntToStr(sec)
    else Label2.Caption :=
           Label2.Caption + IntToStr(sec);

  // если воспроизведение текущей композиции
  // не завершено
  if MediaPlayer1.Position < MediaPlayer1.Length
    then exit;

  // воспроизведение текущей композиции
  // закончено
  Timer1.Enabled := False; // остановить таймер
  MediaPlayer1.Stop;       // остановить плеер

  if ListBox1.ItemIndex < ListBox1.Count // список не исчерпан
  then begin
        ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
        Play;
       end
end;

Особенно интересует слово "sec"(как я предполагаю, ето переменная), для чего оно и откуда взялось.

Задумка в авт. переходе на след. трек. У меня при двойном клике на заданную композицию почему то сразу скидывает на вторую, ну потом уже идет как полагается, автоматически. Как устранить перекидывание с первого трека, который выбрал пользователь ?



Взято тут http://www.programmersforum.ru/showt...aPlayer&page=2

[notHaker]

sec - пременная численного типа. byte, word, DWORD без разницы...
И она глобальна.

Нужна она для подсчёта и отображения воспроизведённых секунд трека.

[KatCH]

Мм, правила читал. Знаю, что в одной теме - один вопрос. Но ради такого вопроса создавать тему не резенно
Как сделать, что б при нажатии кнопки её bmp менялось? Я пробывал так:

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
BitBtn3.Glyph(GetCurrentDir+'cp.bmp');
end;

Но так не катит

[KatCH]

Как я и думал

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
BitBtn3.Glyph.LoadFromFile('cp.bmp');
end;

[notHaker]

Сообщение от KatCH

Как я и думал

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
BitBtn3.Glyph.LoadFromFile('cp.bmp');
end;

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

[KatCH]

а как загнать в память?

[Deamonig]

var
Picture : TbitMap;
...
begin
Picture:=graphics.TbitMap.Create;
Picture.LoadFromFile(GetCurrentDir+'\cp.bmp');
...
BitBtn3.Glyph.Assign(Picture);
...

[KatCH]

Всем Спасибо