Subversion Repositories jumper

Rev

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

Rev 11 Rev 18
Line 80... Line 80...
80 
  RefreshList;
 80 
  RefreshList;
81 
end;
 81 
end;
82 
 
 82 
 
83 
procedure TLevelChoice.LevelListClick(Sender: TObject);
 83 
procedure TLevelChoice.LevelListClick(Sender: TObject);
84 
var
 84 
var
85 
  LevelFile, LevelString: string;
 85 
  LevelFile: string;
86 
  Level: TLevel;
 86 
  Level: TLevel;
87 
begin
 87 
begin
88 
  PlayBtn.Enabled := Assigned(LevelList.Selected);
 88 
  PlayBtn.Enabled := Assigned(LevelList.Selected);
89 
  PLoadLevel.Enabled := Assigned(LevelList.Selected);
 89 
  PLoadLevel.Enabled := Assigned(LevelList.Selected);
90 
 
 90 
 
Line 128... Line 128...
128 
    repeat
 128 
    repeat
129 
      with LevelList.Items.Add do
 129 
      with LevelList.Items.Add do
130 
      begin
 130 
      begin
131 
        Caption := Copy(s.Name, 1, Length(s.Name)-Length(LVL_EXT));
 131 
        Caption := Copy(s.Name, 1, Length(s.Name)-Length(LVL_EXT));
132 
        Level := TLevel.Create(LVL_PATH + s.Name);
 132 
        Level := TLevel.Create(LVL_PATH + s.Name);
- 
 
 133 
 
- 
 
 134 
        if Level.CheckLevelIntegrity <> leNone then
- 
 
 135 
          ImageIndex := 2{Error}
133 
        case Level.GetGameMode of
 136 
        else case Level.GetGameMode of
134 
          gmNormal: ImageIndex := 0;
 137 
          gmNormal: ImageIndex := 0{Normal};
135 
          gmDiagonal: ImageIndex := 1;
 138 
          gmDiagonal: ImageIndex := 1{Diagonal};
136 
          gmUndefined: ImageIndex := 2;
 139 
          gmUndefined: ImageIndex := 2{Error};
137 
        end;
 140 
        end;
138 
      end;
 141 
      end;
139 
    until FindNext(s) <> 0;
 142 
    until FindNext(s) <> 0;
140 
    FindClose(s);
 143 
    FindClose(s);
141 
  end;
 144 
  end;