[Boardmod-devel] boardmod uMain.pas,1.2.2.8,1.2.2.9

[<t-m...@us...>]

Update of /cvsroot/boardmod/boardmod
In directory sc8-pr-cvs1:/tmp/cvs-serv13379

Modified Files:
      Tag: BoardMod25-branch
	uMain.pas 
Log Message:
problem with Archives and win XP fixed - but does it work with win 98 and Linux though??

Index: uMain.pas
===================================================================
RCS file: /cvsroot/boardmod/boardmod/uMain.pas,v
retrieving revision 1.2.2.8
retrieving revision 1.2.2.9
diff -C2 -d -r1.2.2.8 -r1.2.2.9
*** uMain.pas	22 Dec 2002 14:27:50 -0000	1.2.2.8
--- uMain.pas	23 Dec 2002 10:56:07 -0000	1.2.2.9
***************
*** 240,244 ****
  
    // Get all available versions (=folders) for the dropdown box
!   Mod_Folder.Items.Text := GetFileList(CurDir + 'Mods'+PathDelim, '*', faDirectory, TRUE).Text;
  
    // THIS IS THE SCRIPT AUTODETECTION PART:
--- 240,244 ----
  
    // Get all available versions (=folders) for the dropdown box
!   Mod_Folder.Items.Text := GetFileList(CurDir + 'Mods'+PathDelim, '*', faDirectory+faArchive+faReadOnly+faCompressed+faEncrypted, TRUE).Text;
  
    // THIS IS THE SCRIPT AUTODETECTION PART:
***************
*** 377,381 ****
  var i: integer;
  begin
!   CheckListBox1.Items.Text := GetFileList(curdir + 'Mods' + PathDelim + Mod_Folder.Text + PathDelim, '*.mod', faAnyFile, TRUE).Text;
    for i := 0 to CheckListBox1.Items.Count - 1 do
      if InstallLog.IndexOf(Mod_Folder.Text + PathDelim + CheckListBox1.Items.Strings[i]) <> -1 then begin
--- 377,384 ----
  var i: integer;
  begin
! //  CheckListBox1.Items.Text := GetFileList(curdir + 'Mods' + PathDelim + Mod_Folder.Text + PathDelim, '*.mod', faAnyFile, TRUE).Text;
!   // since i don't know what Offline and ContentNotIndexed is for better display such files, too
!   CheckListBox1.Items.Text := GetFileList(curdir + 'Mods' + PathDelim + Mod_Folder.Text + PathDelim, '*.mod',
!     faReadOnly+faSysFile+faArchive+faEncrypted+faNormal+faCompressed+faOffline+faNotContentIndexed, TRUE).Text;
    for i := 0 to CheckListBox1.Items.Count - 1 do
      if InstallLog.IndexOf(Mod_Folder.Text + PathDelim + CheckListBox1.Items.Strings[i]) <> -1 then begin