Subversion Repositories spacemission

Rev

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

Rev 51 Rev 56
Line 62... Line 62...
62 
procedure TSpeicherungForm.SearchLevels;
 62 
procedure TSpeicherungForm.SearchLevels;
63 
var
 63 
var
64 
  i: integer;
 64 
  i: integer;
65 
  fil: string;
 65 
  fil: string;
66 
begin
 66 
begin
- 
 
 67 
  // TODO: slow
67 
  //SpinEdit.Value := 1;
 68 
  //SpinEdit.Value := 1;
68 
  LevelListBox.items.clear;
 69 
  LevelListBox.items.clear;
69 
  li1a.visible := false;
 70 
  li1a.visible := false;
70 
  li2a.visible := false;
 71 
  li2a.visible := false;
71 
  li3a.visible := false;
 72 
  li3a.visible := false;