1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 17:22:21 -05:00

Little style fix in code completion.

This commit is contained in:
Niels 2010-04-03 09:34:58 +02:00
parent 1b44904328
commit 87440431fb

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;