mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-17 04:09:20 +02:00
added Key:=#0 after handling it in TSynBaseCompletionForm.KeyPress
git-svn-id: trunk@7316 -
This commit is contained in:
parent
847e6a815c
commit
9b69eb23ec
@ -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;
|
||||
|
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user