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

IDE: identifier completion: do not show box on error in front

Browse Source 
git-svn-id: trunk@21922 -
This commit is contained in:
mattias 2009-09-29 18:36:17 +00:00
parent f8017fdc3a
commit 3a996a5dad
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourceeditor.pp
View File

@ -602,7 +602,7 @@ type
procedure OnSynCompletionUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
procedure OnSynCompletionPositionChanged(Sender: TObject);
procedure DeactivateCompletionForm;
procedure InitIdentCompletion(S: TStrings);
function InitIdentCompletion(S: TStrings): boolean;
procedure EditorMouseMove(Sender: TObject; Shift: TShiftstate;
X,Y: Integer);
@ -3930,7 +3930,7 @@ begin
end;
end;
procedure TSourceNotebook.InitIdentCompletion(S: TStrings);
function TSourceNotebook.InitIdentCompletion(S: TStrings): boolean;
var
i: integer;
Handled: boolean;
@ -3938,6 +3938,7 @@ var
Prefix: string;
ItemCnt: Integer;
begin
Result:=false;
Prefix := CurCompletionControl.CurrentString;
if Assigned(OnInitIdentCompletion) then begin
OnInitIdentCompletion(Self,fIdentCompletionJumpToError,Handled,Abort);
@ -3950,6 +3951,7 @@ begin
CurCompletionControl.Position:=0;
for i:=0 to ItemCnt-1 do
s.Add('Dummy');
Result:=true;
exit;
end;
end;
@ -4108,7 +4110,7 @@ Begin
CurEdit:=GetActiveSE.EditorComponent;
case CurrentCompletionType of
ctIdentCompletion:
InitIdentCompletion(S);
if not InitIdentCompletion(S) then exit;
ctWordCompletion:
begin