paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 02:27:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Margers to fix bug ID #13757

Browse Source 
git-svn-id: trunk@41079 -
This commit is contained in:
michael 2019-01-27 08:20:54 +00:00
parent 78ea6166e5
commit 2927388c0a
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/ide/weditor.pas
View File

@ -5991,12 +5991,11 @@ begin
end;
procedure TCustomCodeEditor.GotoLine;
var
GotoRec: TGotoLineDialogRec;
const
GotoRec: TGotoLineDialogRec = (LineNo:'1';Lines:0); {keep previous goto line number}
begin
with GotoRec do
begin
LineNo:='1';
Lines:=GetLineCount;
{Linecount can be 0, but in that case there still is a cursor blinking in top
of the window, which will become line 1 as soon as sometype hits a key.}