added Key:=#0 after handling it in TSynBaseCompletionForm.KeyPress

git-svn-id: trunk@7316 -
This commit is contained in:
mattias 2005-07-02 21:29:27 +00:00
parent 847e6a815c
commit 9b69eb23ec
2 changed files with 3 additions and 2 deletions

View File

@ -420,7 +420,7 @@ begin
case key of //
#33..'z': begin
if Assigned(OnKeyPress) then
OnKeyPress(self, Key);
OnKeyPress(Self, Key);
{$ifdef SYN_LAZARUS}
if Key<>#0 then
{$ENDIF}
@ -432,6 +432,7 @@ begin
OnCancel(Self);
end; // case
{$ifdef SYN_LAZARUS}
Key:=#0;
Invalidate;
{$ENDIF}
end;

View File

@ -36,7 +36,7 @@ cat lazarus.spec | \
sed -e "s/LAZVERSION/$LazVersion/g" \
-e "s/LAZRELEASE/$LazRelease/" \
-e "s/LAZSOURCE/$SrcTGZ/" \
-e "s/FPCBUILDVERSION/1.0.10/" \
-e "s/FPCBUILDVERSION/2.0.0/" \
-e "s/FPCSRCVERSION/$FPCRPMVersion/" \
> $SpecFile