ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Main.pas

Comparing oup/current/Main.pas (file contents):
Revision 239 by alloc, Sat Jul 14 20:22:05 2007 UTC vs.
Revision 247 by alloc, Sun Nov 25 14:24:53 2007 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 253 | Line 253 | begin
253
254		ConManager.OnCoonnectionListChanged := UpdateConLists;
255
256	+	Application.HintPause := 250;
257	+	Application.HintHidePause := 5000;
258	+
259		if FileExists(ExtractFilepath(Application.EXEname) + '\oniunpacker.ini') then
260		begin
261		AssignFile(AppSettingsFile, ExtractFilepath(Application.EXEname) +
#	Line 277 | 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 516 | Line 519 | var
519		i: Integer;
520		begin
521		opend.InitialDir := AppSettings.DatPath;
522	<	opend.Filter     := 'Compatible level files|*.dat;*.oldb|Oni level (*.dat)|*.dat|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
522	>	opend.Filter     := 'Compatible level files|*.dat;*.oni;*.oldb|Oni level (*.dat)|*.dat|OniSplit Archive (*.oni)|*.oni|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
523		if typedb then
524		opend.FilterIndex := 3
525		else

Diff Legend

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