Wrap hint text at 100 chars. Fixes issue #2014.

This commit is contained in:
Ansgar Becker
2010-06-15 17:13:27 +00:00
parent 3444383466
commit e0f835c995

View File

@ -5495,7 +5495,7 @@ begin
ResultTab := ActiveQueryTab.ResultTabs[idx];
BalloonHint1.Description := FormatNumber(ResultTab.Results.ColumnCount) + ' columns x ' +
FormatNumber(ResultTab.Results.RecordCount) + ' rows' + CRLF +
Trim(sstr(ResultTab.Results.SQL, SIZE_KB));
Trim(WrapText(sstr(ResultTab.Results.SQL, SIZE_KB), 100));
Rect := Tabs.ItemRect(idx);
Org := Tabs.ClientOrigin;
OffsetRect(Rect, Org.X, Org.Y);