ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Main.pas

Comparing oup/current/Main.pas (file contents):
Revision 129 by alloc, Wed Mar 28 01:12:22 2007 UTC vs.
Revision 139 by alloc, Fri Mar 30 00:51:58 2007 UTC

#	Line 550 | Line 550 | end;
550		{####################################}
551		procedure TForm_Main.menu_createdbClick(Sender: TObject);
552		begin
553	<	ShowMessage('Not yet usable');
554	<	{
553	>	//  ShowMessage('Not yet usable');
554	>
555		opend.Filter     := 'Oni-Dat-Files|*.dat';
556		saved.Filter     := 'OUP-Level-DB (*.oldb)|*.oldb';
557		saved.DefaultExt := 'oldb';
558		if opend.Execute then
559		if saved.Execute then
560		Form_LevelDB.CreateDatabase(opend.FileName, saved.FileName);
561	–	}
561		end;
562
563
#	Line 572 | Line 571 | begin
571		if opend.Execute then
572		if saved.Execute then
573		Form_LevelDB.CreateLevel(opend.FileName, saved.FileName);
575	–
574		end;
575
576

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)