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; |