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

CodeTools/SourceEditor: code completion, indicate if the returned value is void

Browse Source 
git-svn-id: trunk@21026 -
This commit is contained in:
martin 2009-07-31 15:27:47 +00:00
parent dbfbbff04f
commit 974cdf9067
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditor.pp
View File

@ -4014,7 +4014,7 @@ Begin
// insert value plus special chars like brackets, semicolons, ... // insert value plus special chars like brackets, semicolons, ...
SrcEdit:=GetActiveSE; SrcEdit:=GetActiveSE;
Editor:=SrcEdit.EditorComponent; Editor:=SrcEdit.EditorComponent;
if NewValue <> '' then if ValueType <> icvNone then
Editor.TextBetweenPoints[SourceStart, SourceEnd] := NewValue; Editor.TextBetweenPoints[SourceStart, SourceEnd] := NewValue;
if CursorToLeft>0 then if CursorToLeft>0 then
begin begin

9
ide/sourceeditprocs.pas
View File

@ -76,7 +76,8 @@ type
icvProcWithParams, icvProcWithParams,
icvIndexedProp, icvIndexedProp,
icvCompleteProcDeclaration, icvCompleteProcDeclaration,
icvUnitName icvUnitName,
icvNone
); );
// completion form and functions // completion form and functions
@ -477,9 +478,13 @@ begin
CanAddComma:=(AddChar<>','); CanAddComma:=(AddChar<>',');
IdentItem:=IdentList.FilteredItems[Index]; IdentItem:=IdentList.FilteredItems[Index];
if IdentItem=nil then exit; if IdentItem=nil then begin
ValueType := icvNone;
exit;
end;
if not CodeToolBoss.IdentItemCheckHasChilds(IdentItem) then begin if not CodeToolBoss.IdentItemCheckHasChilds(IdentItem) then begin
ValueType := icvNone;
MainIDEInterface.DoJumpToCodeToolBossError; MainIDEInterface.DoJumpToCodeToolBossError;
exit; exit;
end; end;