Changeset 139


Ignore:
Timestamp:
Mar 30, 2007, 2:51:58 AM (14 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Main.pas

    r129 r139  
    551551procedure TForm_Main.menu_createdbClick(Sender: TObject);
    552552begin
    553   ShowMessage('Not yet usable');
    554 {
     553//  ShowMessage('Not yet usable');
     554
    555555  opend.Filter     := 'Oni-Dat-Files|*.dat';
    556556  saved.Filter     := 'OUP-Level-DB (*.oldb)|*.oldb';
     
    559559    if saved.Execute then
    560560      Form_LevelDB.CreateDatabase(opend.FileName, saved.FileName);
    561 }
    562561end;
    563562
     
    573572    if saved.Execute then
    574573      Form_LevelDB.CreateLevel(opend.FileName, saved.FileName);
    575 
    576574end;
    577575
Note: See TracChangeset for help on using the changeset viewer.