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

added nil check for Deactivate

Browse Source 
git-svn-id: trunk@5452 -
This commit is contained in:
mattias 2004-05-10 08:10:07 +00:00
parent a429c83148
commit 106d63ecce
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syncompletion.pas
View File

@ -338,7 +338,9 @@ procedure TSynBaseCompletionForm.Deactivate;
begin
Visible := False;
{$IFDEF SYN_LAZARUS}
SetCaretRespondToFocus(TCustomSynEdit(FCurrentEditor).Handle,true);
if (FCurrentEditor<>nil) and (TCustomSynEdit(fCurrentEditor).HandleAllocated)
then
SetCaretRespondToFocus(TCustomSynEdit(FCurrentEditor).Handle,true);
{$ENDIF}
end;