Subversion Repositories jumper

Rev

Rev 21 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 21 Rev 22
Line 179... Line 179...
179 
        Caption := Copy(s.Name, 1, Length(s.Name)-Length(LVL_EXT));
 179 
        Caption := Copy(s.Name, 1, Length(s.Name)-Length(LVL_EXT));
180 
        Level := TLevel.Create(LVL_PATH + s.Name);
 180 
        Level := TLevel.Create(LVL_PATH + s.Name);
181 
 
 181 
 
182 
        if Level.CheckLevelIntegrity <> leNone then
 182 
        if Level.CheckLevelIntegrity <> leNone then
183 
          ImageIndex := 2{Error}
 183 
          ImageIndex := 2{Error}
184 
        else case Level.GetGameMode of
 184 
        else case Level.GameMode of
185 
          gmNormal: ImageIndex := 0{Normal};
 185 
          gmNormal: ImageIndex := 0{Normal};
186 
          gmDiagonal: ImageIndex := 1{Diagonal};
 186 
          gmDiagonal: ImageIndex := 1{Diagonal};
187 
          gmUndefined: ImageIndex := 2{Error};
 187 
          gmUndefined: ImageIndex := 2{Error};
188 
        end;
 188 
        end;
189 
      end;
 189 
      end;