paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 23:20:45 +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 OnSynCompletionUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
procedure OnSynCompletionPositionChanged(Sender: TObject); procedure OnSynCompletionPositionChanged(Sender: TObject);
procedure DeactivateCompletionForm; procedure DeactivateCompletionForm;
procedure InitIdentCompletion(S: TStrings); function InitIdentCompletion(S: TStrings): boolean;
procedure EditorMouseMove(Sender: TObject; Shift: TShiftstate; procedure EditorMouseMove(Sender: TObject; Shift: TShiftstate;
X,Y: Integer); X,Y: Integer);
@ -3930,7 +3930,7 @@ begin
end; end;
end; end;
procedure TSourceNotebook.InitIdentCompletion(S: TStrings); function TSourceNotebook.InitIdentCompletion(S: TStrings): boolean;
var var
i: integer; i: integer;
Handled: boolean; Handled: boolean;
@ -3938,6 +3938,7 @@ var
Prefix: string; Prefix: string;
ItemCnt: Integer; ItemCnt: Integer;
begin begin
Result:=false;
Prefix := CurCompletionControl.CurrentString; Prefix := CurCompletionControl.CurrentString;
if Assigned(OnInitIdentCompletion) then begin if Assigned(OnInitIdentCompletion) then begin
OnInitIdentCompletion(Self,fIdentCompletionJumpToError,Handled,Abort); OnInitIdentCompletion(Self,fIdentCompletionJumpToError,Handled,Abort);
@ -3950,6 +3951,7 @@ begin
CurCompletionControl.Position:=0; CurCompletionControl.Position:=0;
for i:=0 to ItemCnt-1 do for i:=0 to ItemCnt-1 do
s.Add('Dummy'); s.Add('Dummy');
Result:=true;
exit; exit;
end; end;
end; end;
@ -4108,7 +4110,7 @@ Begin
CurEdit:=GetActiveSE.EditorComponent; CurEdit:=GetActiveSE.EditorComponent;
case CurrentCompletionType of case CurrentCompletionType of
ctIdentCompletion: ctIdentCompletion:
InitIdentCompletion(S); if not InitIdentCompletion(S) then exit;
ctWordCompletion: ctWordCompletion:
begin begin