paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-20 03:48:18 +02: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

10
components/synedit/syneditautocomplete.pp
View File

@ -45,8 +45,7 @@ interface
uses
{$IFDEF SYN_LAZARUS}
LCLLinux,
LCLType,
LCLLinux, LCLType,
{$ELSE}
Windows,
{$ENDIF}
@ -90,9 +89,9 @@ type
destructor Destroy; override;
procedure AddCompletion(AToken, AValue, AComment: string);
{$IFDEF SYN_LAZARUS}
{$IFDEF SYN_LAZARUS}
procedure DeleteCompletion(Index: integer);
{$ENDIF}
{$ENDIF}
function AddEditor(AEditor: TCustomSynEdit): boolean;
procedure Execute(AEditor: TCustomSynEdit); virtual;
procedure ExecuteCompletion(AToken: string; AEditor: TCustomSynEdit);
@ -372,6 +371,9 @@ begin
AEditor.SelText := s;
if NewCaretPos then
AEditor.CaretXY := p;
{$IFDEF SYN_LAZARUS}
AEditor.EnsureCursorPosVisible;
{$ENDIF}
finally
AEditor.EndUpdate;
end;