Subversion Repositories jumper

Rev

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

Rev 6 Rev 7
Line 733... Line 733...
733 
    Dec(LevelRemovedStones);
 733 
    Dec(LevelRemovedStones);
734 
    RefreshStonesRemoved;
 734 
    RefreshStonesRemoved;
735 
 
 735 
 
736 
    Dec(Points, NewWorth-PrevWorth);
 736 
    Dec(Points, NewWorth-PrevWorth);
737 
    RefreshPoints;
 737 
    RefreshPoints;
- 
 
 738 
 
- 
 
 739 
    // Sound abspielen
- 
 
 740 
    if MEnableSound.Checked then PlaySound(RES_UNDO, HInstance, SND_ASYNC or SND_NOWAIT or SND_RESOURCE);
738 
  end;
 741 
  end;
739 
 
 742 
 
740 
  MUndo.Enabled := Length(PrevPlaygroundMatrixes) > 1;
 743 
  MUndo.Enabled := Length(PrevPlaygroundMatrixes) > 1;
741 
end;
 744 
end;
742 
 
 745