IDE: conditionals syncompletion: fixed starting

git-svn-id: trunk@41634 -
This commit is contained in:
mattias 2013-06-09 13:56:51 +00:00
parent 12c65f30f2
commit 89500ac955

View File

@ -162,6 +162,7 @@ begin
if fSynCompletion.TheForm.Visible then
fSynCompletion.Deactivate;
fSynCompletion.RemoveEditor(CondSynEdit);
//fSynCompletion.Editor:=nil;
end;
procedure TCompilerOtherOptionsFrame.OnSynCompletionExecute(Sender: TObject);
@ -373,9 +374,11 @@ begin
end;
// show completion box
fSynCompletion.AddEditor(CondSynEdit);
//fSynCompletion.AddEditor(CondSynEdit);
fSynCompletion.Editor:=CondSynEdit;
Line:=CondSynEdit.LineText;
fSynCompletion.Execute(copy(Line,LogStartX,LogEndX-LogStartX),XY.X,XY.Y);
debugln(['TCompilerOtherOptionsFrame.StartCompletion XY=',dbgs(XY),' fSynCompletion.TheForm.BoundsRect=',dbgs(fSynCompletion.TheForm.BoundsRect)]);
end;
procedure TCompilerOtherOptionsFrame.UpdateCompletionValues;
@ -588,6 +591,7 @@ begin
CondSynEdit.OnStatusChange:=@CondSynEditStatusChange;
fSynCompletion:=TSynCompletion.Create(Self);
fSynCompletion.ShowSizeDrag:=true;
fSynCompletion.TheForm.Parent:=Self;
fSynCompletion.OnExecute:=@OnSynCompletionExecute;
fSynCompletion.OnCancel:=@OnSynCompletionCancel;