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; |