ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Main.pas

Comparing oup/current/Main.pas (file contents):
Revision 113 by alloc, Sun Feb 25 17:20:22 2007 UTC vs.
Revision 129 by alloc, Wed Mar 28 01:12:22 2007 UTC

#	Line 137 | Line 137 | var
137
138		implementation
139
140	+	uses
141	+	LevelDB;
142	+
143		{$R *.dfm}
144
145
#	Line 561 | Line 564 | end;
564
565		procedure TForm_Main.menu_createlvlClick(Sender: TObject);
566		begin
567	<	ShowMessage('Not yet usable');
568	<	{
567	>	//  ShowMessage('Not yet usable');
568	>
569		opend.Filter     := 'OUP-Level-DB (*.oldb)|*.oldb';
570		saved.Filter     := 'Oni-Dat-Files|*.dat';
571		saved.DefaultExt := 'dat';
572		if opend.Execute then
573		if saved.Execute then
574		Form_LevelDB.CreateLevel(opend.FileName, saved.FileName);
575	<	}
575	>
576		end;
577
578

Diff Legend

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