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; |
520 |
|
opend.InitialDir := AppSettings.DatPath; |
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 |