paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 15:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed stopping keypress event if handled by LCL

Browse Source 
git-svn-id: trunk@3139 -
This commit is contained in:
lazarus 2002-08-18 16:49:51 +00:00
parent 6b69ba633b
commit 1f7c5dd3fa
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/codetools/codecompletiontool.pas
View File

@ -2146,6 +2146,21 @@ var CleanCursorPos, Indent, insertPos: integer;
CompleteCode:=true; CompleteCode:=true;
end; end;
function IsNonExistingIdentAssignment: boolean;
begin
Result:=false;
{$IFDEF CTDEBUG}
writeln(' IsEventAssignment: IsNonExistingIdentAssignment...');
{$ENDIF}
// check assigment syntax
{if not CheckLocalVarAssignmentSyntax(VarNameAtom, AssignmentOperator,
TermAtom)
then
exit;}
end;
// function CompleteCode(CursorPos: TCodeXYPosition; // function CompleteCode(CursorPos: TCodeXYPosition;
// var NewPos: TCodeXYPosition; var NewTopLine: integer; // var NewPos: TCodeXYPosition; var NewTopLine: integer;
// SourceChangeCache: TSourceChangeCache): boolean; // SourceChangeCache: TSourceChangeCache): boolean;
@ -2188,6 +2203,9 @@ begin
// test if Event assignment // test if Event assignment
if IsEventAssignment then exit; if IsEventAssignment then exit;
// test if Local variable assignment
if IsNonExistingIdentAssignment then exit;
{$IFDEF CTDEBUG} {$IFDEF CTDEBUG}
writeln('TCodeCompletionCodeTool.CompleteCode nothing to complete ... '); writeln('TCodeCompletionCodeTool.CompleteCode nothing to complete ... ');