Fix search result line numbers.

[DEVELOPMENT ENVIRONMENT]
* BUG: Fix search result line numbers.

app/src/gambas3/.src/FMain.class

@@ -2034,6 +2034,8 @@ Public Sub mnuEditWith_Show()
   Dim hMenu As Menu
   
   mnuEditWith.Children.Clear
+  If Not mnuEditWith.Tag Then Return
+  
   For Each hProg In mnuEditWith.Tag
     hMenu = New Menu(mnuEditWith) As "mnuEditWithProg"
     hMenu.Caption = hProg.Name & " (" & hProg.ProgramName & ")"

app/src/gambas3/.src/Search/FSearch.class

@@ -1137,7 +1137,7 @@ Public Sub gvwFind_Data(Row As Integer, Column As Integer)
         .Text = hResult.Location
         .Alignment = Align.Normal
       Case 2
-        .Text = CStr(hResult.Line + 1) & " "
+        .Text = CStr(hResult.Line) & " "
         .Alignment = Align.Right
       Case 3
         .Text = CStr(hResult.Column + 1) & " "