diff --git a/source/apphelpers.pas b/source/apphelpers.pas index 09ba0d2c..8752307e 100644 --- a/source/apphelpers.pas +++ b/source/apphelpers.pas @@ -2899,7 +2899,7 @@ procedure ToggleCheckBoxWithoutClick(chk: TCheckBox; State: Boolean); function SynCompletionProposalPrettyText(ImageIndex: Integer; LeftText, CenterText, RightText: String; LeftColor: TColor=-1; CenterColor: TColor=-1; RightColor: TColor=-1): String; const - LineFormat = '\image{%d}\hspace{5}\color{%s}%s\column{}\color{%s}%s\hspace{5}\color{%s}%s'; + LineFormat = '\image{%d}\hspace{5}\color{%s}%s\column{}\color{%s}%s\hspace{10}\color{%s}\style{+i}%s'; begin // Return formatted item string for a TSynCompletionProposal if LeftColor = -1 then LeftColor := clGrayText; diff --git a/source/main.pas b/source/main.pas index 925915ee..6cb655cb 100644 --- a/source/main.pas +++ b/source/main.pas @@ -6806,7 +6806,7 @@ procedure TMainForm.SynCompletionProposalExecute(Kind: SynCompletionType; if (Obj.Name.ToLowerInvariant = tblname.ToLowerInvariant) and (Obj.NodeType in [lntTable, lntView]) then begin Columns := Obj.TableColumns; for Col in Columns do begin - DisplayText := SynCompletionProposalPrettyText(ICONINDEX_FIELD, LowerCase(Col.DataType.Name), Col.Name, '', DatatypeCategories[Col.DataType.Category].NullColor); + DisplayText := SynCompletionProposalPrettyText(ICONINDEX_FIELD, LowerCase(Col.DataType.Name), Col.Name, Col.Comment, DatatypeCategories[Col.DataType.Category].NullColor); Proposal.AddItem(DisplayText, Col.Name); Inc(ColumnsInList); end;