From 87440431fb70e8a28c7eb53ab8fb354ddfa5b68d Mon Sep 17 00:00:00 2001 From: Niels Date: Sat, 3 Apr 2010 09:34:58 +0200 Subject: [PATCH] Little style fix in code completion. --- Units/Misc/v_ideCodeInsight.pas | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Units/Misc/v_ideCodeInsight.pas b/Units/Misc/v_ideCodeInsight.pas index 37be128..60302e6 100644 --- a/Units/Misc/v_ideCodeInsight.pas +++ b/Units/Misc/v_ideCodeInsight.pas @@ -985,9 +985,12 @@ procedure TCodeInsight.Proposal_AddDeclaration(Item: TDeclaration; ItemList, Ins begin Result := 'Enumeration'; if (Item.Items.Count > 0) then + begin Result := Result + '(' + Item.Items[0].ShortText; - if (Item.Items.Count > 1) then - Result := Result + '..' + Item.Items[Item.Items.Count - 1].ShortText + ')'; + if (Item.Items.Count > 1) then + Result := Result + '..' + Item.Items[Item.Items.Count - 1].ShortText; + Result := Result + ')'; + end; end; procedure AddEnums(Item: {TCodeInsight}TDeclaration; ItemList, InsertList: TStrings); overload;