Permalink
Browse files

#395: fix missing call to SetTitleText()

  • Loading branch information...
ansgarbecker committed Nov 28, 2018
1 parent 82254af commit a374c7c3adba2951505e1884d27863f132f11fba
Showing with 1 addition and 0 deletions.
  1. +1 −0 source/main.pas
@@ -9053,6 +9053,7 @@ procedure TMainForm.AnyGridCreateEditor(Sender: TBaseVirtualTree; Node:
end else if (TypeCat = dtcText) or ((TypeCat in [dtcBinary, dtcSpatial]) and actBlobAsText.Checked) then begin
InplaceEditor := TInplaceEditorLink.Create(VT);
InplaceEditor.MaxLength := Results.MaxLength(Column);
InplaceEditor.TitleText := DataGrid.Header.Columns[Column].Text;
InplaceEditor.ButtonVisible := True;
EditLink := InplaceEditor;
end else if (TypeCat in [dtcBinary, dtcSpatial]) and AppSettings.ReadBool(asFieldEditorBinary) then begin

0 comments on commit a374c7c

Please sign in to comment.