Чтоб этих оптимизаторов... Ну если у кого всплывет проблема. Пометила изменения ) // Initializes the columns by querying information from the shell procedure TJamShellList.InitColumns; ... lFirstInit := True; //+SK Иначе не перезачитывает ZIP { -SK lFirstInit := false; // Check whether the columns already were initialized before // 1 = initialized, 0 = not initialized if (not fColumnsPropertiesForSpecialFolder[fShellBrowser.SpecialFolder].IsInitialized) then lFirstInit := True; } // reset the columns and the header context menu ClearColumns(False); Repeat // while (lCurrentColNumber > MaxLocalColumnIndex) ... until (lCurrentColNumber > 255); // +SK Иначе не дозачитывает ZIP //until (lCurrentColNumber > MaxLocalColumnIndex); // repeat -SK
Обсуждают сегодня