Subversion Repositories spacemission

Rev

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

Rev 79 Rev 85
Line 328... Line 328...
328 
    li1.caption := SIsNormalLevel
 328 
    li1.caption := SIsNormalLevel
329 
  else
 329 
  else
330 
    li1.caption := SIsRandomLevel;
 330 
    li1.caption := SIsRandomLevel;
331 
  if BeinhaltetLevelDaten then
 331 
  if BeinhaltetLevelDaten then
332 
    li1.Caption := Format(SHasAttachedLevel, [li1.Caption]);
 332 
    li1.Caption := Format(SHasAttachedLevel, [li1.Caption]);
- 
 
 333 
  li2b.caption := FloatToStrF(Punkte,ffNumber,14,0);
333 
  li3b.caption := inttostr(Level);
 334 
  li3b.caption := inttostr(Level);
334 
  li4b.caption := inttostr(Leben);
 335 
  li4b.caption := inttostr(Leben);
335 
  li2b.caption := inttostr(Punkte);
 - 
 
336 
end;
 336 
end;
337 
 
 337 
 
338 
procedure TSpeicherungForm.LevelNameChange(Sender: TObject);
 338 
procedure TSpeicherungForm.LevelNameChange(Sender: TObject);
339 
begin
 339 
begin
340 
  //listbox1.Items.indexof('Level '+spinedit1.text);
 340 
  //listbox1.Items.indexof('Level '+spinedit1.text);