paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 00:02:03 +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, ...
SrcEdit:=GetActiveSE;
Editor:=SrcEdit.EditorComponent;
if NewValue <> '' then
if ValueType <> icvNone then
Editor.TextBetweenPoints[SourceStart, SourceEnd] := NewValue;
if CursorToLeft>0 then
begin

9
ide/sourceeditprocs.pas
View File

@ -76,7 +76,8 @@ type
icvProcWithParams,
icvIndexedProp,
icvCompleteProcDeclaration,
icvUnitName
icvUnitName,
icvNone
);
// completion form and functions
@ -477,9 +478,13 @@ begin
CanAddComma:=(AddChar<>',');
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
ValueType := icvNone;
MainIDEInterface.DoJumpToCodeToolBossError;
exit;
end;