paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-21 11:00:44 +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

10
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}
@ -90,9 +89,9 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure AddCompletion(AToken, AValue, AComment: string); procedure AddCompletion(AToken, AValue, AComment: string);
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
procedure DeleteCompletion(Index: integer); procedure DeleteCompletion(Index: integer);
{$ENDIF} {$ENDIF}
function AddEditor(AEditor: TCustomSynEdit): boolean; function AddEditor(AEditor: TCustomSynEdit): boolean;
procedure Execute(AEditor: TCustomSynEdit); virtual; procedure Execute(AEditor: TCustomSynEdit); virtual;
procedure ExecuteCompletion(AToken: string; AEditor: TCustomSynEdit); procedure ExecuteCompletion(AToken: string; AEditor: TCustomSynEdit);
@ -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;