Ehlib 9.5.027, Delphi 10.4.
Как воспроизвести:
в демо DBGridEh.CentralPopupMenu из поставки библиотеки 1-му столбцу грида задать событие OnDataHintShow:
Код:
procedure TForm1.DBGridEh1Columns0DataHintShow(Sender: TCustomDBGridEh;
CursorPos: TPoint; Cell: TGridCoord; InCellCursorPos: TPoint; Column:
TColumnEh; var Params: TDBGridEhDataHintParams; var Processed: Boolean);
const
longhint = 'Library of components, EhLib, is known at the world software market since 1999.'+
'Our goal is to facilitate as much as possible the everyday work of Delphi application’s developers,'+
' so that they can meet the demands of end-users in the processing of information. '+
'It’s not that easy to solve such a problem. But due to our operational experience with VCL applications'+
' for over 20 years, we created such a product. It is EhLib. The best evidence of the effectiveness of our'+
' solutions is the fact that EhLib was chosen by world’s largest companies, governments and educational institutions in more than 80 countries.';
begin
Params.HintStr := longhint;
Params.HintPos := Params.CursorRect.BottomRight;
Params.HintMaxWidth := Screen.DesktopWidth div 3;
Params.HintFont.Size := 10;
Params.HideTimeout := 10000;
Processed := True;
end;
и DBGridEh1.ShowHint := True. Текст подсказки показывается не полностью:
Вложение:
2020-09-02_094139.png [ 46.17 KiB | Просмотров: 655 ]
Не знаю в какой версии сломалось, но в 9.3 и Delphi 10.2.3 вышеприведенный код работал корректно.
Просьба пофиксить.