| # | 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) |