Changeset 139

Timestamp:

Mar 30, 2007, 2:51:58 AM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• Main.pas (modified) (3 diffs)
• _exe/OniUnPacker.exe (modified) ( previous)

oup/current/Main.pas

@@ -551 +551 @@
 procedure TForm_Main.menu_createdbClick(Sender: TObject);
 begin
-  ShowMessage('Not yet usable');
-{
+//  ShowMessage('Not yet usable');
+
   opend.Filter     := 'Oni-Dat-Files|*.dat';
   saved.Filter     := 'OUP-Level-DB (*.oldb)|*.oldb';
@@ -559 +559 @@
     if saved.Execute then
       Form_LevelDB.CreateDatabase(opend.FileName, saved.FileName);
-}
 end;
 
@@ -573 +572 @@
     if saved.Execute then
       Form_LevelDB.CreateLevel(opend.FileName, saved.FileName);
-
 end;