# | Line 39 | Line 39 | function ExtensionRegistered(ext: String | |
---|---|---|
39 | var | |
40 | ftr: TFileTypeRegistration; | |
41 | begin | |
42 | + | Result := True; |
43 | ftr := TFileTypeRegistration.Create; | |
44 | if (ftr <> nil) then | |
45 | begin | |
# | Line 60 | Line 61 | function TForm_Settings.RegisterExtensio | |
61 | var | |
62 | ftr: TFileTypeRegistration; | |
63 | temps: String; | |
63 | – | warnmsg: String; |
64 | begin | |
65 | Result := -1; | |
66 | ftr := TFileTypeRegistration.Create; |
– | Removed lines |
+ | Added lines |
< | Changed lines (old) |
> | Changed lines (new) |