Permalink
Browse files

Show ellipsis button on inplace text edit box of table editor. See ht…

  • Loading branch information...
ansgarbecker committed Jan 7, 2019
1 parent 96dfef6 commit ae297ee52fd1a9fa7face18e69b0bae60d225259
Showing with 7 additions and 2 deletions.
  1. +7 −2 source/table_editor.pas
@@ -1345,6 +1345,7 @@ procedure TfrmTableEditor.listColumnsCreateEditor(Sender: TBaseVirtualTree;
DefaultEditor: TColumnDefaultEditorLink;
DatatypeEditor: TDatatypeEditorLink;
Col: PTableColumn;
Edit: TInplaceEditorLink;
begin
// Start cell editor
VT := Sender as TVirtualStringTree;
@@ -1376,8 +1377,12 @@ procedure TfrmTableEditor.listColumnsCreateEditor(Sender: TBaseVirtualTree;
EnumEditor.ValueList.CommaText := ',VIRTUAL,STORED';
EditLink := EnumEditor;
end
else
EditLink := TInplaceEditorLink.Create(VT);
else begin
Edit := TInplaceEditorLink.Create(VT);
Edit.TitleText := VT.Header.Columns[Column].Text;
Edit.ButtonVisible := True;
EditLink := Edit;
end;
end;
TBaseGridEditorLink(EditLink).TableColumn := Col^;
end;

0 comments on commit ae297ee

Please sign in to comment.