Subversion Repositories spacemission

Rev

Rev 90 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 90 Rev 97
Line 1435... Line 1435...
1435 
    dxmusic.Midis.LoadFromFile(OwnDirectory+DxmFile);
 1435 
    dxmusic.Midis.LoadFromFile(OwnDirectory+DxmFile);
1436 
    for i := 0 to dxmusic.Midis.Count-1 do
 1436 
    for i := 0 to dxmusic.Midis.Count-1 do
1437 
    begin
 1437 
    begin
1438 
      if not dxmusic.Midis.Items[i].IsInitialized then
 1438 
      if not dxmusic.Midis.Items[i].IsInitialized then
1439 
      begin
 1439 
      begin
1440 
        dxmusic.Midis.Items[i].Init;
 1440 
        dxmusic.Midis.Items[i].Init; // TODO: for some reason, AddPort is very slow!
1441 
        dxmusic.Midis.Items[i].Load;
 1441 
        dxmusic.Midis.Items[i].Load;
1442 
      end;
 1442 
      end;
1443 
    end;
 1443 
    end;
1444 
  except
 1444 
  except
1445 
    optionmusic.enabled := false;
 1445 
    optionmusic.enabled := false;