Subversion Repositories jumper

Rev

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

Rev 11 Rev 12
Line 329... Line 329...
329 
  Statistics.Panels.Items[0].Text := Format(LNG_TIME, [LevelTime]);
 329 
  Statistics.Panels.Items[0].Text := Format(LNG_TIME, [LevelTime]);
330 
end;
 330 
end;
331 
 
 331 
 
332 
procedure TMainForm.RefreshStonesRemoved;
 332 
procedure TMainForm.RefreshStonesRemoved;
333 
begin
 333 
begin
334 
  Statistics.Panels.Items[1].Text := Format(LNG_STONES_REMOVED, [LevelRemovedStones, LevelTotalStones]);
 334 
  Statistics.Panels.Items[1].Text := Format(LNG_STONES_REMOVED, [LevelRemovedStones, LevelTotalStones-1]);
335 
end;
 335 
end;
336 
 
 336 
 
337 
procedure TMainForm.RefreshPoints;
 337 
procedure TMainForm.RefreshPoints;
338 
begin
 338 
begin
339 
  Statistics.Panels.Items[2].Text := Format(LNG_POINTS, [Points]);
 339 
  Statistics.Panels.Items[2].Text := Format(LNG_POINTS, [Points]);