перенести строки из Listbox2 в Listbox1

[DIgorevich]

До сих пор никому не мешало это слово...
А до потока я еще не добрался. Но идея такая уже приходило... Суть такова: как Винамп рассчитывает и постепенно обновляет строки с названиями треков (добавляет длину трека), так и моя прога, только размер файлов добавлять должна после имени файла.

[r9m]

Всё прекрасно работает

[DIgorevich]

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

Всё прекрасно работает

когда таким явным способом, то работает. Но я сначала строки обрабатываю (см выше) и после этого глюк...
Вычитал в поиске, что это возможно из-за AlphaSkins...

Кстати событий BeginUpdate и EndUpdate я у ListBox'a не нашел.

[Stilet]

Кстати событий BeginUpdate и EndUpdate я у ListBox'a не нашел.

А это и не события, он в TListItems.BeginUpdate
т.е. перед тем как изменять пиши ListBox1.Items.BeginUpdate. А после всех изменений EndUpdate соответственно.

[DIgorevich]

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

А это и не события, он в TListItems.BeginUpdate
т.е. перед тем как изменять пиши ListBox1.Items.BeginUpdate. А после всех изменений EndUpdate соответственно.

Спасибо помогло!

[Stilet]

Да незачто )

[DIgorevich]

А вот еще вопросик туда же... если делать так:

  for i:=0 to listen.Items.Count-1 do
    begin
      text:=listen.Items[i];
        n:=Pos('|', text); // ðàçäåëèòåëü - '|'
        If n>0 Then
          Begin
            text:=Copy(text, 1, n-1);
          End;
      listen.Items[i] :=text+'|'+dlit(lisss.Items[i]);
    end;

то, пока идет процесс, я не могу прокручивать скролом listen - он возвращается в исходную позицию. От этого можно избавиться?

[Stilet]

Ты прочитал мой пост выше, как я обычно поступаю?
Не хочешь воспользоваться советом?

[DIgorevich]

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

[Stilet]

если в процедуре просто идете перебор строк?

А ты точно уверен что именно в нем дело?