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 241 by alloc, Tue Jul 17 22:27:16 2007 UTC vs.
Revision 330 by alloc, Thu Jun 4 12:03:57 2009 UTC

# Line 217 | Line 217 | begin
217        begin
218          ShowMessage('Load OPF-File: ' + ParamStr(2));
219        end
220 <      else if (strings.Strings[0] = 'oldb') or (strings.Strings[0] = 'dat') then
220 >      else if (strings.Strings[0] = 'oldb') or (strings.Strings[0] = 'dat') or (strings.Strings[0] = 'oni') then
221        begin
222          CreateConnection(strings.Strings[1]);
223        end;
# Line 280 | Line 280 | begin
280    begin
281      ShowMessage('Load OPF-File: ' + ParamStr(2));
282    end
283 <  else if (MidStr(ParamStr(1), 1, 4) = 'oldb') or (MidStr(ParamStr(1), 1, 3) = 'dat') then
283 >  else if (MidStr(ParamStr(1), 1, 4) = 'oldb') or (MidStr(ParamStr(1), 1, 3) = 'dat') or (MidStr(ParamStr(1), 1, 3) = 'oni') then
284    begin
285      CreateConnection(ParamStr(2));
286    end;
# Line 508 | Line 508 | begin
508        entry.Name := 'menu_conn_' + IntToStr(i);
509        entry.OnClick := menu_conns_itemClick;
510        menu_conns.Add(entry);
511 –      entry := nil;
511      end;
512    end;
513   end;
# Line 519 | Line 518 | var
518    i: Integer;
519   begin
520    opend.InitialDir := AppSettings.DatPath;
521 <  opend.Filter     := 'Compatible level files|*.dat;*.oldb|Oni level (*.dat)|*.dat|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
521 >  opend.Filter     := 'Compatible level files|*.dat;*.oni;*.oldb|Oni level (*.dat)|*.dat|OniSplit Archive (*.oni)|*.oni|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
522    if typedb then
523 <    opend.FilterIndex := 3
523 >    opend.FilterIndex := 4
524    else
525      opend.FilterIndex := 2;
526    if opend.Execute then
# Line 824 | Line 823 | begin
823   end;
824  
825   end.
826 +

Diff Legend

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