paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-21 07:00:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed cursor visibility after code template completion

Browse Source 
git-svn-id: trunk@1693 -
This commit is contained in:
lazarus 2002-05-17 05:42:47 +00:00
parent 36a4903848
commit ad90cde830
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/syneditautocomplete.pp
View File

@ -45,8 +45,7 @@ interface
uses uses
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
LCLLinux, LCLLinux, LCLType,
LCLType,
{$ELSE} {$ELSE}
Windows, Windows,
{$ENDIF} {$ENDIF}
@ -372,6 +371,9 @@ begin
AEditor.SelText := s; AEditor.SelText := s;
if NewCaretPos then if NewCaretPos then
AEditor.CaretXY := p; AEditor.CaretXY := p;
{$IFDEF SYN_LAZARUS}
AEditor.EnsureCursorPosVisible;
{$ENDIF}
finally finally
AEditor.EndUpdate; AEditor.EndUpdate;
end; end;