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

IDE: auto start completion only in pascal

Browse Source 
git-svn-id: trunk@42804 -
This commit is contained in:
mattias 2013-09-15 12:31:25 +00:00
parent 487deb802a
commit 80b7afb789
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/sourceeditor.pp
View File

@ -10180,6 +10180,9 @@ procedure TSourceEditorManager.OnSourceCompletionTimer(Sender: TObject);
Result := false; Result := false;
SrcEdit := ActiveEditor; SrcEdit := ActiveEditor;
if SrcEdit = nil then exit; if SrcEdit = nil then exit;
if not (SrcEdit.FEditor.Highlighter is TSynPasSyn) then
exit; // only start completion automatically for pascal sources
Line := SrcEdit.FEditor.LineText; Line := SrcEdit.FEditor.LineText;
LogCaret := SrcEdit.FEditor.LogicalCaretXY; LogCaret := SrcEdit.FEditor.LogicalCaretXY;
//DebugLn(['CheckStartIdentCompletion Line="',Line,'" LogCaret=',dbgs(LogCaret)]); //DebugLn(['CheckStartIdentCompletion Line="',Line,'" LogCaret=',dbgs(LogCaret)]);