Subversion Repositories spacemission

Rev

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

Rev 40 Rev 43
Line 23... Line 23...
23 
    li1b: TLabel;
 23 
    li1b: TLabel;
24 
    li1a: TLabel;
 24 
    li1a: TLabel;
25 
    li2b: TLabel;
 25 
    li2b: TLabel;
26 
    li2a: TLabel;
 26 
    li2a: TLabel;
27 
    li3b: TLabel;
 27 
    li3b: TLabel;
- 
 
 28 
    li4: TLabel;
28 
    liu: TLabel;
 29 
    liu: TLabel;
29 
    liw: TLabel;
 30 
    liw: TLabel;
30 
    LevelNumber: TSpinEdit;
 31 
    LevelNumber: TSpinEdit;
31 
    procedure LoeschenBtnClick(Sender: TObject);
 32 
    procedure LoeschenBtnClick(Sender: TObject);
32 
    procedure LadenBtnClick(Sender: TObject);
 33 
    procedure LadenBtnClick(Sender: TObject);
Line 64... Line 65...
64 
  li2a.visible := false;
 65 
  li2a.visible := false;
65 
  li3a.visible := false;
 66 
  li3a.visible := false;
66 
  li1b.visible := false;
 67 
  li1b.visible := false;
67 
  li2b.visible := false;
 68 
  li2b.visible := false;
68 
  li3b.visible := false;
 69 
  li3b.visible := false;
- 
 
 70 
  li4.visible := false;
69 
  liw.visible := true;
 71 
  liw.visible := true;
70 
  LadenBtn.enabled := false;
 72 
  LadenBtn.enabled := false;
71 
  LoeschenBtn.enabled := false;
 73 
  LoeschenBtn.enabled := false;
72 
  for i := 1 to MaxPossibleLevels do
 74 
  for i := 1 to MaxPossibleLevels do
73 
  begin
 75 
  begin
Line 86... Line 88...
86 
    li2a.visible := false;
 88 
    li2a.visible := false;
87 
    li3a.visible := false;
 89 
    li3a.visible := false;
88 
    li1b.visible := false;
 90 
    li1b.visible := false;
89 
    li2b.visible := false;
 91 
    li2b.visible := false;
90 
    li3b.visible := false;
 92 
    li3b.visible := false;
- 
 
 93 
    li4.visible := false;
91 
    liu.visible := false;
 94 
    liu.visible := false;
92 
    liw.visible := true;
 95 
    liw.visible := true;
93 
    LadenBtn.enabled := false;
 96 
    LadenBtn.enabled := false;
94 
    LoeschenBtn.enabled := false;
 97 
    LoeschenBtn.enabled := false;
95 
    deletefile(IncludeTrailingPathDelimiter(ExtractFilePath(GetLevelFileName(1)))+
 98 
    deletefile(IncludeTrailingPathDelimiter(ExtractFilePath(GetLevelFileName(1)))+
Line 180... Line 183...
180 
  li2a.visible := false;
 183 
  li2a.visible := false;
181 
  li3a.visible := false;
 184 
  li3a.visible := false;
182 
  li1b.visible := false;
 185 
  li1b.visible := false;
183 
  li2b.visible := false;
 186 
  li2b.visible := false;
184 
  li3b.visible := false;
 187 
  li3b.visible := false;
- 
 
 188 
  li4.visible := false;
185 
  liu.visible := false;
 189 
  liu.visible := false;
186 
  liw.visible := false;
 190 
  liw.visible := false;
187 
  if (LevelListBox.items.count=0) or (LevelListBox.itemindex = -1) then
 191 
  if (LevelListBox.items.count=0) or (LevelListBox.itemindex = -1) then
188 
  begin
 192 
  begin
189 
    ladenbtn.enabled := false;
 193 
    ladenbtn.enabled := false;
Line 214... Line 218...
214 
      li2a.visible := true;
 218 
      li2a.visible := true;
215 
      li3a.visible := true;
 219 
      li3a.visible := true;
216 
      li1b.visible := true;
 220 
      li1b.visible := true;
217 
      li2b.visible := true;
 221 
      li2b.visible := true;
218 
      li3b.visible := true;
 222 
      li3b.visible := true;
- 
 
 223 
      li4.visible := true;
219 
      LadenBtn.enabled := true;
 224 
      LadenBtn.enabled := true;
220 
      LoeschenBtn.enabled := true;
 225 
      LoeschenBtn.enabled := true;
221 
      li1b.caption := inttostr(anzahlEinheiten);
 226 
      li1b.caption := inttostr(anzahlEinheiten);
222 
      if boss then
 227 
      if boss then
223 
        li2b.caption := 'Ja'
 228 
        li2b.caption := 'Ja'
224 
      else
 229 
      else
225 
        li2b.caption := 'Nein';
 230 
        li2b.caption := 'Nein';
226 
      li3b.caption := IntToStr(LevelData.LevelEditorLength) + ' Felder';
 231 
      li3b.caption := IntToStr(LevelData.LevelEditorLength) + ' Felder';
- 
 
 232 
      li4.Caption := Trim(LevelData.LevelName + ' von ' + LevelData.LevelAuthor);
227 
    finally
 233 
    finally
228 
      FreeAndNil(LevelData);
 234 
      FreeAndNil(LevelData);
229 
    end;
 235 
    end;
230 
  except
 236 
  except
231 
    liu.visible := true;
 237 
    liu.visible := true;