paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 07:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed Event Assignment Completion naming

Browse Source 
git-svn-id: trunk@1690 -
This commit is contained in:
lazarus 2002-05-16 18:53:57 +00:00
parent 906da1f20d
commit 1817ed5fc4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codecompletiontool.pas
View File

@ -64,7 +64,7 @@ type
StartNode: TCodeTreeNode; // the first variable/method/GUID node in ClassNode
FAddInheritedCodeToOverrideMethod: boolean;
FCompleteProperties: boolean;
FirstInsert: TCodeTreeNodeExtension; // first of a list of insert requests
FirstInsert: TCodeTreeNodeExtension; // list of insert requests
FSetPropertyVariablename: string;
JumpToProcName: string;
NewPrivatSectionIndent, NewPrivatSectionInsertPos: integer;
@ -1688,6 +1688,8 @@ var CleanCursorPos, Indent, insertPos: integer;
Result:=FullTopLvlName;
l:=PropertyAtom.EndPos-PropertyAtom.StartPos;
PropertyName:=copy(Src,PropertyAtom.StartPos,l);
if AnsiCompareText(PropertyName,RightStr(Result,l))<>0 then
Result:=Result+PropertyName;
if AnsiCompareText(PropertyName,Result)=0 then begin
// this is an event of the class (not event of published objects)
// -> add form name
@ -1700,7 +1702,7 @@ var CleanCursorPos, Indent, insertPos: integer;
end;
// convert OnClick to Click
if (UpperCaseStr(LeftStr(PropertyName,2))='ON')
and (AnsiComparetext(RightStr(Result,l),PropertyName)=0)
and (AnsiCompareText(RightStr(Result,l),PropertyName)=0)
then
Result:=LeftStr(Result,length(Result)-l)+RightStr(Result,l-2);
end else begin