Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 42 → Rev 43

/LevSpeicherung.pas
25,6 → 25,7
li2b: TLabel;
li2a: TLabel;
li3b: TLabel;
li4: TLabel;
liu: TLabel;
liw: TLabel;
LevelNumber: TSpinEdit;
66,6 → 67,7
li1b.visible := false;
li2b.visible := false;
li3b.visible := false;
li4.visible := false;
liw.visible := true;
LadenBtn.enabled := false;
LoeschenBtn.enabled := false;
88,6 → 90,7
li1b.visible := false;
li2b.visible := false;
li3b.visible := false;
li4.visible := false;
liu.visible := false;
liw.visible := true;
LadenBtn.enabled := false;
182,6 → 185,7
li1b.visible := false;
li2b.visible := false;
li3b.visible := false;
li4.visible := false;
liu.visible := false;
liw.visible := false;
if (LevelListBox.items.count=0) or (LevelListBox.itemindex = -1) then
216,6 → 220,7
li1b.visible := true;
li2b.visible := true;
li3b.visible := true;
li4.visible := true;
LadenBtn.enabled := true;
LoeschenBtn.enabled := true;
li1b.caption := inttostr(anzahlEinheiten);
224,6 → 229,7
else
li2b.caption := 'Nein';
li3b.caption := IntToStr(LevelData.LevelEditorLength) + ' Felder';
li4.Caption := Trim(LevelData.LevelName + ' von ' + LevelData.LevelAuthor);
finally
FreeAndNil(LevelData);
end;