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