moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-16 07:10:10 -05:00
Code Issues Releases Wiki Activity

Workaround for a weird "bug".

Browse Source
This commit is contained in:
Niels 2010-03-28 15:51:26 +02:00
parent 9e8b0fba13
commit 1f25b99b8a
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Units/Misc/v_ideCodeInsight.pas
View File

@ -1032,6 +1032,7 @@ procedure TCodeInsight.Proposal_AddDeclaration(Item: TDeclaration; ItemList, Ins
if (d = nil) then
Exit;
n := d.ShortText;
s := s + FormatMainName(n);
if (Item.Params <> '') then
begin

6
Units/Misc/v_ideCodeParser.pas
View File

@ -769,6 +769,12 @@ begin
Delete(s, 1, 6);
fProcType := GetFirstWord(s);
end;
if (fProcType = '') then
if (Items.GetFirstItemOfClass(TciReturnType) <> nil) then
fProcType := 'function'
else
fProcType := 'procedure';
end;
Result := fProcType;