Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 23 → Rev 24

/LevSpeicherung.pas
27,8 → 27,7
li3b: TLabel;
liu: TLabel;
liw: TLabel;
SpinEditEdt: TEdit;
SpinEdit: TUpDown;
LevelNumber: TSpinEdit;
procedure LoeschenBtnClick(Sender: TObject);
procedure LadenBtnClick(Sender: TObject);
procedure SpeichernBtnClick(Sender: TObject);
40,9 → 39,6
procedure LevelNameChange(Sender: TObject);
procedure LevelListBoxDblClick(Sender: TObject);
procedure FormHide(Sender: TObject);
procedure SpinEditClick(Sender: TObject; Button: TUDBtnType);
procedure SpinEditEdtKeyPress(Sender: TObject; var Key: Char);
procedure SpinEditEdtChange(Sender: TObject);
public
procedure SearchLevels;
function RightStr(str: string; count: integer): string;
77,7 → 73,7
for i := 1 to 9999 do
begin
if fileexists(GetLevelFileName(i)) then
LevelListBox.items.Add(ExtractFileName(GetLevelFileName(i)));
LevelListBox.items.Add(ChangeFileExt(ExtractFileName(GetLevelFileName(i)),''));
end;
end;
 
113,7 → 109,7
procedure TSpeicherungForm.LadenBtnClick(Sender: TObject);
var
Markiert: boolean;
i, TempArtMain, TempLiveMain: integer;
i: integer;
LevelData: TLevelData;
begin
Markiert := false;
147,8 → 143,6
LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev');
MainForm.ScrollBar.Max := LevelData.LevelEditorLength;
MainForm.Enemys.Clear;
TempArtMain := MainForm.ArtChecked;
TempLiveMain := MainForm.LiveEdit;
MainForm.NumEnemys := Length(LevelData.EnemyAdventTable);
for i := 0 to MainForm.NumEnemys-1 do
begin
158,11 → 152,11
Ord(LevelData.EnemyAdventTable[i].enemyType),
LevelData.EnemyAdventTable[i].lifes
);
MainForm.ArtChecked := Ord(LevelData.EnemyAdventTable[i].enemyType);
MainForm.LiveEdit := LevelData.EnemyAdventTable[i].lifes;
MainForm.EnemyCreate(
LevelData.EnemyAdventTable[i].x,
LevelData.EnemyAdventTable[i].y
LevelData.EnemyAdventTable[i].y,
LevelData.EnemyAdventTable[i].enemyType,
LevelData.EnemyAdventTable[i].lifes
);
if LevelData.EnemyAdventTable[i].enemyType = etEnemyBoss then MainForm.Boss := true;
end;
169,8 → 163,6
finally
FreeAndNil(LevelData);
end;
MainForm.LiveEdit := TempLiveMain;
MainForm.ArtChecked := TempArtMain;
// Nacharbeiten
MainForm.AnzeigeAct;
close;
245,7 → 237,7
if mainform.Enemys.count = 0 then
begin
MessageDlg('Das Level ist leer!', mtError, [mbOK], 0);
SpinEdit.SetFocus;
LevelNumber.SetFocus;
exit;
end;
{for i := 0 to length(LevelName.text) do
265,7 → 257,7
exit;
end;
end;}
if LevelListBox.items.IndexOf('Level ' + inttostr(SpinEdit.Position)) > -1 then
if LevelListBox.items.IndexOf('Level ' + inttostr(LevelNumber.Value)) > -1 then
begin
if MessageDlg('Level ist bereits vorhanden. Ersetzen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
exit;
297,7 → 289,7
LevelData.EnemyAdventTable[i].y := StrToInt(filter(2, mainform.enemys.Strings[i]));
LevelData.EnemyAdventTable[i].lifes := StrToInt(filter(4, mainform.enemys.Strings[i]));
end;
LevelData.Save(GetLevelFileName(SpinEdit.Position));
LevelData.Save(GetLevelFileName(LevelNumber.Value));
finally
FreeAndNil(LevelData);
end;
332,7 → 324,7
exit;
end;
temp := LevelListBox.Items.strings[LevelListBox.itemindex];
SpinEdit.Position := strtoint(RightStr(temp, length(temp)-6));
LevelNumber.Value := strtoint(RightStr(temp, length(temp)-Length('Level ')));
 
LevelData := TLevelData.Create;
try
409,27 → 401,5
mainform.dxtimer.enabled := true;
end;
 
procedure TSpeicherungForm.SpinEditClick(Sender: TObject;
Button: TUDBtnType);
begin
SpinEditEdt.Text := inttostr(SpinEdit.position);
end;
 
procedure TSpeicherungForm.SpinEditEdtKeyPress(Sender: TObject;
var Key: Char);
begin
{$IFDEF UNICODE}
if not CharInSet(Key, [#13, #08, '0'..'9']) then
{$ELSE}
if not (Key in [#13, #08, '0'..'9']) then
{$ENDIF}
Key := #0;
end;
 
procedure TSpeicherungForm.SpinEditEdtChange(Sender: TObject);
begin
SpinEdit.Position := strtoint(SpinEditEdt.text);
end;
 
end.