ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Main.pas
(Generate patch)

Comparing oup/current/Main.pas (file contents):
Revision 51 by alloc, Sat Dec 23 22:16:42 2006 UTC vs.
Revision 53 by alloc, Sat Dec 23 23:36:07 2006 UTC

# Line 71 | Line 71 | type
71      TBSeparatorItem1: TTBSeparatorItem;
72      tb_db2dat: TTBItem;
73      tb_dat2db: TTBItem;
74 +    menu_loaddb: TTBItem;
75 +    tb_opendb: TTBItem;
76 +    procedure LoadFile(typedb: Boolean);
77      function TryCloseAll: Boolean;
78      procedure menu_AboutClick(Sender: TObject);
79      procedure menu_settingsClick(Sender: TObject);
# Line 105 | Line 108 | type
108      procedure menu_windows_tilevertClick(Sender: TObject);
109      procedure menu_metaClick(Sender: TObject);
110      procedure ToolbarDockChanged(Sender: TObject);
111 +    procedure menu_loaddbClick(Sender: TObject);
112    private
113    public
114    end;
# Line 319 | Line 323 | begin
323   end;
324  
325  
326 < {#################################}
327 < {##### Main-Menu-Handlers    #####}
324 < {#################################}
325 < procedure TForm_Main.menu_loadfileClick(Sender: TObject);
326 >
327 > procedure TForm_Main.LoadFile(typedb: Boolean);
328   var
329    ext: String;
330   begin
# Line 331 | Line 333 | begin
333      CloseDataConnection;
334      opend.InitialDir := AppSettings.DatPath;
335      opend.Filter     := 'Compatible level files|*.dat;*.oldb|Oni level (*.dat)|*.dat|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
336 +    if typedb then
337 +      opend.FilterIndex := 3
338 +    else
339 +      opend.FilterIndex := 2;
340      if opend.Execute then
341      begin
342        ext := ExtractFileExt(opend.FileName);
# Line 353 | Line 359 | begin
359   end;
360  
361  
362 + {#################################}
363 + {##### Main-Menu-Handlers    #####}
364 + {#################################}
365 + procedure TForm_Main.menu_loaddbClick(Sender: TObject);
366 + begin
367 +  LoadFile(True);
368 + end;
369 +
370 + procedure TForm_Main.menu_loadfileClick(Sender: TObject);
371 + begin
372 +  LoadFile(False);
373 + end;
374 +
375 +
376  
377  
378   procedure TForm_Main.menu_settingsClick(Sender: TObject);

Diff Legend

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