diff --git a/Source/ide/simba.form_main.pas b/Source/ide/simba.form_main.pas index fd51444aa..0d56d4e8e 100644 --- a/Source/ide/simba.form_main.pas +++ b/Source/ide/simba.form_main.pas @@ -802,7 +802,7 @@ procedure TSimbaMainForm.MenuGotoClick(Sender: TObject); begin Value := ''; if InputQuery('Goto line', 'Goto line:', Value) and Value.IsNumeric then - SimbaTabsForm.CurrentEditor.TopLine := Value.ToInteger - (SimbaTabsForm.CurrentEditor.LinesInWindow div 2); + SimbaTabsForm.CurrentEditor.TopLine := Value.ToInt - (SimbaTabsForm.CurrentEditor.LinesInWindow div 2); end; end;