Changeset 129 for oup/current/Main.pas

Timestamp:

Mar 28, 2007, 3:12:22 AM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Main.pas (modified) (3 diffs)

oup/current/Main.pas

@@ -138 +138 @@
 implementation
 
+uses
+  LevelDB;
+
 {$R *.dfm}
 
@@ -562 +565 @@
 procedure TForm_Main.menu_createlvlClick(Sender: TObject);
 begin
-  ShowMessage('Not yet usable');
-{
+//  ShowMessage('Not yet usable');
+
   opend.Filter     := 'OUP-Level-DB (*.oldb)|*.oldb';
   saved.Filter     := 'Oni-Dat-Files|*.dat';
@@ -570 +573 @@
     if saved.Execute then
       Form_LevelDB.CreateLevel(opend.FileName, saved.FileName);
-}
+
 end;