paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-16 00:02:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: source editor: after adding a func() show parameter hints, patch #25911

Browse Source 
git-svn-id: trunk@45421 -
This commit is contained in:
mattias 2014-06-09 08:08:50 +00:00
parent 717159b415
commit 4a7c59accf
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/sourceeditor.pp
View File

@ -1875,11 +1875,14 @@ var
CursorToLeft: integer;
NewValue: String;
OldCompletionType: TCompletionType;
prototypeAdded: boolean;
SourceNoteBook: TSourceNotebook;
Begin
{$IFDEF VerboseIDECompletionBox}
DebugLnEnter(['TSourceNotebook.ccComplete START']);
try
{$ENDIF}
prototypeAdded := false;
OldCompletionType:=CurrentCompletionType;
case CurrentCompletionType of
@ -1902,6 +1905,8 @@ Begin
// insert value plus special chars like brackets, semicolons, ...
if ValueType <> icvNone then
Editor.TextBetweenPointsEx[SourceStart, SourceEnd, scamEnd] := NewValue;
if ValueType in [icvProcWithParams,icvIndexedProp] then
prototypeAdded := true;
if CursorToLeft>0 then
begin
NewCaretXY:=Editor.CaretXY;
@ -1954,7 +1959,16 @@ Begin
begin
SourceCompletionCaretXY:=Editor.CaretXY;
AutoStartCompletionBoxTimer.AutoEnabled:=true;
end
else if prototypeAdded and EditorOpts.AutoDisplayFunctionPrototypes then
begin
if Editor.Owner is TSourceNoteBook then
begin
SourceNoteBook := Editor.Owner as TSourceNoteBook;
SourceNotebook.StartShowCodeContext(true);
end;
end;
{$IFDEF VerboseIDECompletionBox}
finally
DebugLnExit(['TSourceNotebook.ccComplete END']);