Permalink
Browse files

Prevent inserting cell text ellipsis in query tab. See https://www.he…

  • Loading branch information...
ansgarbecker committed Feb 23, 2017
1 parent b480606 commit e74ccecb75fdb27ca1a09ada4d699eb85901463e
Showing with 1 addition and 1 deletion.
  1. +1 −1 source/main.pas
View
@@ -8517,7 +8517,7 @@ procedure TMainForm.AnyGridGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
end;
else begin
CellText := Results.Col(Column);
if (Length(CellText) = GRIDMAXDATA) and (not Results.HasFullData) then
if (Length(CellText) = GRIDMAXDATA) and (not Results.HasFullData) and (Sender = DataGrid) then
CellText := CellText + ' [...]';
end;
end;

0 comments on commit e74ccec

Please sign in to comment.