moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-26 03:02:15 -05:00
Code Issues Releases Wiki Activity

Little style fix in code completion.

Browse Source
This commit is contained in:
Niels 2010-04-03 09:34:58 +02:00
parent 1b44904328
commit 87440431fb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Units/Misc/v_ideCodeInsight.pas
View File

@ -985,9 +985,12 @@ procedure TCodeInsight.Proposal_AddDeclaration(Item: TDeclaration; ItemList, Ins
begin begin
Result := 'Enumeration'; Result := 'Enumeration';
if (Item.Items.Count > 0) then if (Item.Items.Count > 0) then
begin
Result := Result + '(' + Item.Items[0].ShortText; Result := Result + '(' + Item.Items[0].ShortText;
if (Item.Items.Count > 1) then if (Item.Items.Count > 1) then
Result := Result + '..' + Item.Items[Item.Items.Count - 1].ShortText + ')'; Result := Result + '..' + Item.Items[Item.Items.Count - 1].ShortText;
Result := Result + ')';
end;
end; end;
procedure AddEnums(Item: {TCodeInsight}TDeclaration; ItemList, InsertList: TStrings); overload; procedure AddEnums(Item: {TCodeInsight}TDeclaration; ItemList, InsertList: TStrings); overload;